Foro de elhacker.net

Programación => Programación General => Mensaje iniciado por: Tachikomaia en 4 Abril 2025, 13:58 pm


Título: Agregar cosas que se muevan, colisionen, desaparezcan, etc.
Publicado por: Tachikomaia en 4 Abril 2025, 13:58 pm
La idea es que este Mario pueda convocar cosas como en su juego original:
(https://i.ibb.co/XZdvHsZW/Mario-VS-DK.png)
Maníbulas, pájaros, chispas...

Donkey Kong también otras cosas.

Otros personajes que ponga más adelante también, e incluso las cosas mismas (algunos pájaros de Mario dejan caer huevos, por ejemplo).

Algunas diferentes tipos de cosas se moverían igual, pero otras no.

El daño que hacen al colisionar con algo depende de qué cosa sea ella, y el algo. Aún no tengo seguro esto pero es básicamente poder de colisión y de defensa.

¿Cómo harían todo eso uds?

Quiero evitar líos.

Por ahora lo que se me ocurre es:
- Crear una lista de Profundidades disponibles. En Flash cada cosa visible que se agrega debe tener cierta profundidad, un número, y si se pone que una tenga la misma que otra, la 1era desaparece. No sé si 1000 será muy pesado. Significaría que puede haber hasta 1000 cosas agregadas.
- Crear una lista de Extras, que serían las cosas agregadas.
- Cuando se agrega algo, se toma el 1er número disponible de Profundidades, y la cosa se agrega en la lista de Extras. Su nombre sería por ejemplo "Spark"+Numero (obtenido de Profundidad). Eso significa que podría haber Spark1 y Spark3, sin haber existido 2, si en medio se agregó otra cosa. Pero bueno, el número es su profundidad y para distinguir, no es un conteo de los tipos de cosas agregadas.
- Cuando un extra desaparece, se agrega su número en Profundidades y su nombre se quita de Extras.

Y lo más complicado, un while que recorrería la lista de Extras llamando a sus correspondientes códigos y viendo si colisionan con otra cosa.

Para llamar a distintos códigos según qué extra sea, tendría que quitarle el número a su nombre, porque no puede existir una función Spark1Code, Spark2Code, etc, todos iguales, debe ser SparkCode, BirdCode, etc. Entonces en vez de una lista de extras podrían ser 2:
- Una tiene los nombres con número para saber exacto qué cosa es, cuando se requiera moverla, etc.
- La otra tiene sólo el nombre del tipo de cosa que es, así se sabe a qué código llamar.

Otra posibilidad sería que exista un objeto Pájaros, por ejemplo, donde se pongan ellos, y entonces no habría saltos en la numeración (aunque no es problema) y todos usarían el mismo código.
No habría necesidad de funciones variables, pero habría muchos objetos generalmente en vano viendo si tienen algo en ellos... Creo que es mejor lo anterior.

Otra sería que en vez de una lista de Extras haya una de pájaros, etc, pero de nuevo serían muchos whiles, uno para cada lista, que generalmente estaría vacía, so...

Los códigos de las cosas agregadas, en vez de estar en la zona root pueden estar en ellos mismos, pero eso hace que se ejecuten luego de lo que esté en root, creo, así que tampoco parece buena idea.

¿Estará bien?

Ya tengo a Mario pudiendo caminar y dar latigazos, todo dependiente de la velocidad o fuerza que le ponga. Cuando tiene 1 MP convoca a una mandíbula. Me falta que se mueva.
Donkey Kong camina hacia Mario golpeando su pecho a una velocidad dependiente de la que camina. No lo muestro porque me paspa grabar el video.

Código
  1. // Las imágenes fueron tomadas con Virtualnes, zoom 2,
  2. // copiadas desde Chrome.
  3. // General:
  4. fscommand ("fullscreen", "true");
  5. // Se refiere a convocados:
  6. ListaDeExtras = [];
  7. // Player:
  8. attachMovie("sMarioDK", "Player", 1001);
  9. setProperty ("Player", _x, 20);
  10. setProperty ("Player", _y, 568);
  11. // Determinan a qué función se llama:
  12. Player.Action = "Quiet";
  13. Player.Action2 = "Quiet";
  14. Player.Facing = 1;
  15. MarioDKHP = 1;
  16. MarioDKMPMax = 1;
  17. MarioDKMP = 1;
  18. MarioDKMPRecovery = 0.003;
  19. MarioDKPower = 2;
  20. MarioDKSpeed = 0.5;
  21. // La animación avanza cuando esto llega a 100:
  22. MarioDKTurn = 0;
  23. // La velocidad de la animación puede depender de la velocidad...
  24. // de caminar, o de la fuerza, etc:
  25. MarioDKTic = MarioDKSpeed*1.5;
  26. // Para que al empezar a caminar o a quedarse quieto,
  27. // el martillo quede como estaba, arriba o abajo,
  28. // en el mismo nro de frame:
  29. Player.EtapaDeMartillo = 1;
  30. Player.ResetearEtapaDeMartillo = "No";
  31. // IA:
  32. attachMovie("sDK", "IA", 1000);
  33. setProperty ("IA", _x, 780);
  34. setProperty ("IA", _y, 568);
  35. IA.Action2 = "Quiet";
  36. IA.Facing = -1;
  37. DKSpeed = 0.4;
  38. IATurn = 0;
  39. // Escenario:
  40. attachMovie("sDKSuelo", "Suelo", 0);
  41. setProperty ("Suelo", _x, 0);
  42. setProperty ("Suelo", _y, 568);
  43. // /////////////////////////////////////////////
  44. // //////////////////  Most  ///////////////////
  45. // /////////////////////////////////////////////
  46. function FaceRight (Character) {
  47. 	if (eval(Character+".Facing") == -1) {
  48. 		set (Character+".Facing", 1);
  49. 		eval(Character)._xscale = 100;
  50. 	}
  51. }
  52. function FaceLeft (Character) {
  53. 	if (eval(Character+".Facing") == 1) {
  54. 		set (Character+".Facing", -1);
  55. 		eval(Character)._xscale = -100;
  56. 	}
  57. }
  58. // /////////////////////////////////////////////
  59. // //////////////////  Mario  //////////////////
  60. // /////////////////////////////////////////////
  61. // Power up: Las criaturas que convoca se mueven mejor.
  62. function ControlMario () {
  63. 	if (Key.isDown(83)) {
  64. 		// Si se presiona S.
  65. 		eval("SWhen"+Player.Action+Player.Action2)();
  66. 	} else if (Key.isDown(32)) {
  67. 		// Espacio:
  68. 		eval("SpaceWhen"+Player.Action+Player.Action2)();
  69. 	} else if (Key.isDown(39)) {
  70. 		// Derecha:
  71. 		eval("RightWhen"+Player.Action+Player.Action2)();
  72. 	} else if (Key.isDown(37)) {
  73. 		// Izquierda:
  74. 		eval("LeftWhen"+Player.Action+Player.Action2)();
  75. 	} else {
  76. 		// Nada:
  77. 		eval("QuietWhen"+Player.Action+Player.Action2)();
  78. 	}
  79. 	MarioDKTurn = MarioDKTurn + MarioDKTic;
  80. 	if (MarioDKTurn >= 10) {
  81. 		MarioDKTurn = 0;
  82. 		Player.EtapaDeMartillo++;
  83. 		if (Player.EtapaDeMartillo == 7) {
  84. 			Player.EtapaDeMartillo = 1;
  85. 		}
  86. 		Player.Movie.play();
  87. 	}
  88. 	if (MarioDKMP < MarioDKMPMax) {
  89. 		MarioDKMP = MarioDKMP+MarioDKMPRecovery;
  90. 	}
  91. }
  92. // When QuietQuiet:
  93. function SWhenQuietQuiet () {
  94. 	Whip();
  95. }
  96. function RightWhenQuietQuiet () {
  97. 	StartToWalk();
  98. 	WalkToRight();
  99. }
  100. function LeftWhenQuietQuiet () {
  101. 	StartToWalk();
  102. 	WalkToLeft();
  103. }
  104. // When QuietWalking:
  105. function SWhenQuietWalking () {
  106. 	Player.Action2 = "Quiet";
  107. 	Whip();
  108. }
  109. function RightWhenQuietWalking () {
  110. 	WalkToRight();
  111. }
  112. function LeftWhenQuietWalking () {
  113. 	WalkToLeft();
  114. }
  115. function QuietWhenQuietWalking () {
  116. 	Player.Action2 = "Quiet";
  117. 	Quiet();
  118. }
  119. // To whens:
  120. function Whip () {
  121. 	Player.Action = "Whiping";
  122. 	MarioDKTic = MarioDKPower/2;
  123. 	Player.gotoAndStop(3);
  124. 	if (MarioDKMP >= 1) {
  125. 		MarioDKMP--;
  126. 		Extras++;
  127. 		Name = "Extra"+Extras;
  128. 		attachMovie("sDKSnapjaw", Name, Extras);
  129. 		setProperty (Name, _x, Player._x+1);
  130. 		setProperty (Name, _y, 568);
  131. 	}
  132. }
  133. function StartToWalk () {
  134. 	Player.Action2 = "Walking";
  135. 	MarioDKTic = MarioDKSpeed*1.5;
  136. 	Player.gotoAndStop(2);
  137. }
  138. function WalkToRight () {
  139. 	Player._x = Player._x+MarioDKSpeed;
  140. 	FaceRight("Player");
  141. }
  142. function WalkToLeft () {
  143. 	Player._x = Player._x-MarioDKSpeed;
  144. 	FaceLeft("Player");
  145. }
  146. function Quiet () {
  147. 	Player.Action2 = "Quiet";
  148. 	Player.gotoAndStop(1);
  149. }
  150. // /////////////////////////////////////////////
  151. // //////////////////  DK IA  //////////////////
  152. // /////////////////////////////////////////////
  153. // Power up: Puede caminar.
  154. function DKVsMario () {
  155. 	Distancia = IA._x-Player._x;
  156. 	if (Distancia > 0) {
  157. 		IA._x = IA._x-DKSpeed;
  158. 		IA.Action2 = "Walking";
  159. 	} else if (Distancia < 0) {
  160. 		IA._x = IA._x+DKSpeed;
  161. 		IA.Action2 = "Walking";
  162. 	} else {
  163. 		IA.Action2 = "Quiet";
  164. 	}
  165. 	IATurn = IATurn+DKSpeed/2;
  166. 	if (IATurn >= 10) {
  167. 		IATurn = IATurn-10;
  168. 		IA.play();
  169. 	}
  170. }

El juego sería de que recibirán un ataque y deben entrenar. Irán ganando poderes y esas cosas. Se desbloquearían más personajes, etc, pero ya es otro tema.

Título: Re: Agregar cosas que se muevan, colisionen, desaparezcan, etc.
Publicado por: Tachikomaia en 18 Abril 2025, 14:12 pm
Aunque no está resuelto, pues faltan cosas, creo que está muy bien:
4kR4m9st06o

Código
  1. fscommand ("fullscreen", "true");
  2. Mensajes = 0;
  3. // Player:
  4. attachMovie("sMarioDK", "Player", 1001);
  5. setProperty ("Player", _x, 20);
  6. setProperty ("Player", _y, 568);
  7. // Determinan a qué función se llama:
  8. Player.Action = "Quiet";
  9. Player.Action2 = "Quiet";
  10. Player.Facing = 1;
  11. MarioDKHP = 1;
  12. MarioDKDF = 1;
  13. MarioDKMPMax = 1;
  14. MarioDKMP = 1;
  15. MarioDKMPRecovery = 0.005;
  16. MarioDKPower = 2;
  17. MarioDKSpeed = 1.5;
  18. // MarioDKFR = (MarioDKPower + MarioDKSpeed) / 2;
  19. // La animación avanza cuando esto llega a 100:
  20. MarioDKTurn = 0;
  21. // La velocidad de la animación puede depender de la velocidad...
  22. // de caminar, o de la fuerza, etc:
  23. MarioDKTic = MarioDKSpeed*1.5;
  24. // Para que al empezar a caminar o a quedarse quieto,
  25. // el martillo quede como estaba, arriba o abajo,
  26. // en el mismo nro de frame:
  27. Player.EtapaDeMartillo = 1;
  28. Player.ResetearEtapaDeMartillo = "No";
  29. DKSnapjawDF = 2;
  30. DKSnapjawImpact = 1;
  31. DKSnapjawSpeed = 1;
  32. // IA:
  33. attachMovie("sDK", "IA", 1000);
  34. setProperty ("IA", _x, 780);
  35. setProperty ("IA", _y, 568);
  36. IA.Action2 = "Quiet";
  37. IA.Facing = -1;
  38. // setProperty ("IA", _xscale, -100);
  39. DKHP = 10;
  40. DKDF = 2;
  41. DKSpeed = 0.5;
  42. DKImpact = -1;
  43. IATurn = 0;
  44. // Escenario:
  45. attachMovie("sDKSuelo", "Suelo", 0);
  46. setProperty ("Suelo", _x, 0);
  47. setProperty ("Suelo", _y, 568);
  48. // Extras:
  49. LdeProfundidadesDisponibles = [];
  50. ValoraAgregar = 0;
  51. do {
  52. 	ValoraAgregar++;
  53. 	LdeProfundidadesDisponibles.push(ValoraAgregar);
  54. } while (ValoraAgregar<999);
  55. delete ValoraAgregar;
  56. // Para saber cuales devolver a la anterior lista cuando dejen...
  57. // de usarse (cuando el Extra se remueva):
  58. LdeProfundidadesUsandose = [];
  59. // Para saber a qué función llamar:
  60. LdeExtrasSinNumero = [];
  61. // Para chequear colisiones:
  62. LdeExtras = [];
  63. // /////////////////////////////////////////////
  64. // //////////////////  Most  ///////////////////
  65. // /////////////////////////////////////////////
  66. function FaceRight (Character) {
  67. 	if (eval(Character+".Facing") == -1) {
  68. 		set (Character+".Facing", 1);
  69. 		eval(Character)._xscale = 100;
  70. 	}
  71. }
  72. function FaceLeft (Character) {
  73. 	if (eval(Character+".Facing") == 1) {
  74. 		set (Character+".Facing", -1);
  75. 		eval(Character)._xscale = -100;
  76. 	}
  77. }
  78. // /////////////////////////////////////////////
  79. // //////////////////  Mario  //////////////////
  80. // /////////////////////////////////////////////
  81. // Power up: Puede convocar al mandíbula de modo que esté quieto...
  82. // o se mueva.
  83. function ControlMario () {
  84. 	if (Key.isDown(83)) {
  85. 		// Si se presiona S.
  86. 		eval("SWhen"+Player.Action+Player.Action2)();
  87. 	} else if (Key.isDown(32)) {
  88. 		// Espacio:
  89. 		eval("SpaceWhen"+Player.Action+Player.Action2)();
  90. 	} else if (Key.isDown(39)) {
  91. 		// Derecha:
  92. 		eval("RightWhen"+Player.Action+Player.Action2)();
  93. 	} else if (Key.isDown(37)) {
  94. 		// Izquierda:
  95. 		eval("LeftWhen"+Player.Action+Player.Action2)();
  96. 	} else {
  97. 		// Nada:
  98. 		eval("QuietWhen"+Player.Action+Player.Action2)();
  99. 	}
  100. 	MarioDKTurn = MarioDKTurn+MarioDKTic;
  101. 	if (MarioDKTurn>=10) {
  102. 		MarioDKTurn = MarioDKTurn-10;
  103. 		Player.EtapaDeMartillo++;
  104. 		if (Player.EtapaDeMartillo == 7) {
  105. 			Player.EtapaDeMartillo = 1;
  106. 		}
  107. 		Player.Movie.play();
  108. 	}
  109. 	if (MarioDKMP<MarioDKMPMax) {
  110. 		MarioDKMP = MarioDKMP+MarioDKMPRecovery;
  111. 		if (MarioDKMP>MarioDKMPMax) {
  112. 			MarioDKMP = MarioDKMPMax;
  113. 		}
  114. 	}
  115. }
  116. // When QuietQuiet:
  117. function SWhenQuietQuiet () {
  118. 	Whip();
  119. }
  120. function RightWhenQuietQuiet () {
  121. 	StartToWalk();
  122. 	WalkToRight();
  123. }
  124. function LeftWhenQuietQuiet () {
  125. 	StartToWalk();
  126. 	WalkToLeft();
  127. }
  128. // When QuietWalking:
  129. function SWhenQuietWalking () {
  130. 	Player.Action2 = "Quiet";
  131. 	Whip();
  132. }
  133. function RightWhenQuietWalking () {
  134. 	WalkToRight();
  135. }
  136. function LeftWhenQuietWalking () {
  137. 	WalkToLeft();
  138. }
  139. function QuietWhenQuietWalking () {
  140. 	Player.Action2 = "Quiet";
  141. 	Quiet();
  142. }
  143. // To whens:
  144. function Whip () {
  145. 	Player.Action = "Whiping";
  146. 	MarioDKTic = MarioDKPower/2;
  147. 	Player.gotoAndStop(3);
  148. 	if (MarioDKMP>=1) {
  149. 		MarioDKMP--;
  150. 		// La 1er profundidad disponible moverla a la...
  151. 		// lista de usandose:
  152. 		LdeProfundidadesUsandose[LdeProfundidadesUsandose.length] = LdeProfundidadesDisponibles.shift();
  153. 		// Para evitar hacer .length-1 repetidamente:
  154. 		ProfundidadElegida = LdeProfundidadesUsandose[LdeProfundidadesUsandose.length-1];
  155. 		LdeExtrasSinNumero[LdeExtrasSinNumero.length] = "DKSnapjaw";
  156. 		Extra = "DKSnapjaw"+ProfundidadElegida;
  157. 		LdeExtras[LdeExtras.length] = Extra;
  158. 		attachMovie("sDKSnapjaw", Extra, ProfundidadElegida);
  159. 		setProperty (Extra, _x, Player._x+Player.Facing*25);
  160. 		setProperty (Extra, _y, 568);
  161. 		set (Extra+".Facing", Player.Facing);
  162. 		if (Player.Facing == -1) {
  163. 			setProperty (Extra, _xscale, -100);
  164. 		}
  165. 		set (Extra+"Turn", 0);
  166. 	}
  167. }
  168. function StartToWalk () {
  169. 	Player.Action2 = "Walking";
  170. 	MarioDKTic = MarioDKSpeed*1.5;
  171. 	Player.gotoAndStop(2);
  172. }
  173. function WalkToRight () {
  174. 	Player._x = Player._x+MarioDKSpeed;
  175. 	FaceRight("Player");
  176. }
  177. function WalkToLeft () {
  178. 	Player._x = Player._x-MarioDKSpeed;
  179. 	FaceLeft("Player");
  180. }
  181. function Quiet () {
  182. 	Player.Action2 = "Quiet";
  183. 	Player.gotoAndStop(1);
  184. }
  185. // /////////////////////////////////////////////
  186. // ///////////////////  DK  ////////////////////
  187. // /////////////////////////////////////////////
  188. // Power up: Puede caminar.
  189. function DKVsDKMario () {
  190. 	Distancia = IA._x-Player._x;
  191. 	if (Distancia>0) {
  192. 		IA._x = IA._x-DKSpeed;
  193. 		IA.Action2 = "Walking";
  194. 		// IA.gotoAndStop(2);
  195. 		// FaceLeft("IA");
  196. 	} else if (Distancia<0) {
  197. 		IA._x = IA._x+DKSpeed;
  198. 		IA.Action2 = "Walking";
  199. 		// IA.gotoAndStop(2);
  200. 		// FaceRight("IA");
  201. 	} else {
  202. 		IA.Action2 = "Quiet";
  203. 		// IA.gotoAndStop(1);
  204. 		// FaceLeft("IA");
  205. 	}
  206. 	IATurn = IATurn+DKSpeed/2;
  207. 	if (IATurn>=10) {
  208. 		IATurn = IATurn-10;
  209. 		IA.play();
  210. 	}
  211. 	if (IA.hitTest(Player)) {
  212. 		Damage = DKDF+DKImpact-DKMarioDF;
  213. 		if (Damage>0) {
  214. 			MarioDKHP = MarioDKHP-Damage;
  215. 			Mensajes++;
  216. 			if (Mensajes == 1000) {
  217. 				Mensajes = 1;
  218. 			}
  219. 			Mensaje = "Mensaje"+Mensajes;
  220. 			attachMovie("sDamage", Mensaje, 1001+Mensajes);
  221. 			setProperty (Mensaje, _x, Player._x);
  222. 			setProperty (Mensaje, _y, Player._y-Player._height/1.5);
  223. 			set (Mensaje+".Damage", Damage);
  224. 		}
  225. 	}
  226. }
  227. // /////////////////////////////////////////////
  228. // //////////////////  Extras  /////////////////
  229. // /////////////////////////////////////////////
  230. // Utiliza los códigos de todos los extras presentes:
  231. function ExtrasCode () {
  232. 	ExtraDeTurno = 0;
  233. 	while (ExtraDeTurno<LdeExtras.length) {
  234. 		eval(LdeExtrasSinNumero[ExtraDeTurno]+"Code")(LdeExtras[ExtraDeTurno]);
  235. 		// trace("name es "+LdeExtras[ExtraDeTurno]);
  236. 		ExtraDeTurno++;
  237. 	}
  238. }
  239. function DKSnapjawCode (name) {
  240. 	// trace("aplicando a "+name);
  241. 	// Distancia = getProperty(name, _x) - IA._x;
  242. 	Distancia = getProperty(name, _x) - 1000;
  243. 	if (Distancia>0) {
  244. 		setProperty (name, _x, getProperty(name, _x)-DKSnapjawSpeed);
  245. 		FaceLeft(name);
  246. 	} else if (Distancia<0) {
  247. 		setProperty (name, _x, getProperty(name, _x)+DKSnapjawSpeed);
  248. 		FaceRight(name);
  249. 	}
  250. 	nameTurn = name+"Turn";
  251. 	EvaluednameTurn = eval(nameTurn)+1;
  252. 	if (EvaluednameTurn>=10) {
  253. 		EvaluednameTurn = EvaluednameTurn-10;
  254. 		eval(name).play();
  255. 	}
  256. 	set (nameTurn, EvaluednameTurn);
  257. 	// Se verá si este extra colisiona con algún otro:
  258. 	if (eval(name).hitTest(IA)) {
  259. 		Damage = DKSnapjawDF+DKSnapjawImpact-DKDF;
  260. 		if (Damage>0) {
  261. 			DKHP = DKHP-Damage;
  262. 			Mensajes++;
  263. 			if (Mensajes == 1000) {
  264. 				Mensajes = 1;
  265. 			}
  266. 			Mensaje = "Mensaje"+Mensajes;
  267. 			attachMovie("sDamage", Mensaje, 1001+Mensajes);
  268. 			setProperty (Mensaje, _x, IA._x+Math.random()*50-25);
  269. 			setProperty (Mensaje, _y, IA._y-IA._height/1.5);
  270. 			set (Mensaje+".Damage", Damage);
  271. 		}
  272. 	}
  273. 	ExtraaChequar = 0;
  274. 	while (ExtraaChequar<LdeExtras.length) {
  275. 		if (eval(name).hitTest(eval(LdeExtras[ExtraaChequar]))) {
  276. 			// Sí. El efecto sucederá sólo si es rival:
  277. 			if (LdeExtrasSinNumero[ExtraDeTurno] != "DKSnapjaw") {
  278. 				trace ("colisión");
  279. 				// ojo que no diga que se autocolisionó
  280. 				Damage = 99;
  281. 				Mensajes++;
  282. 				if (Mensajes == 1000) {
  283. 					Mensajes = 1;
  284. 				}
  285. 				Mensaje = "Mensaje"+Mensajes;
  286. 				attachMovie("sDamage", Mensaje, 1001+Mensajes);
  287. 				setProperty (Mensaje, _x, getProperty(name, _x));
  288. 				setProperty (Mensaje, _y, getProperty(name, _y)-getProperty(name, _height)/1.5);
  289. 				set (Mensaje+".Damage", Damage);
  290. 			}
  291. 		}
  292. 		ExtraaChequar++;
  293. 	}
  294. }


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines