Vamos a ver, este es el procedimiento:
procedure disparo_uno ( var pos_x,pos_y:array of byte;var cont:byte;c:char);
begin
case c of
'g' : sidisparan (pos_x [9],pos_y [9],cont);
'a' : sidisparan (pos_x [10],pos_y [10],cont);
'k' : sidisparan (pos_x [15],pos_y [15],cont);
'L' : sidisparan (pos_x [18],pos_y [18],cont);
end;
end;
entonces sucede que cuando lo llamo, si presiono la 'k' hace lo que asigne para la 'a'..... las lineas anteriores a la llamada son:
for i := 9 to max 10
bajaletra (pos_x
,pos_y ,vida,vtr );
yo inicialice i asi que por eso no es..... Lo que no entiendo es por q funciona bien si escribo las lineas en lugar de llamar al procedimiento.
Que penita con ustedes, soy novata... Entiendame, todos pasaron por eso (creo)!!!!
Mostrar Mensajes
Hoooola amigos!!!!
