Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Juego Rescatando al Burrito.

Started by Guest_Jose Fco_* , Dec 06 2008 05:54 PM

«
Prev

Page 4 of 7
2
3
4
5
6

Next
»

Please log in to reply

127 replies to this topic

#61 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 04:34 PM

Hola
El juego de los rectángulos de Seoane tiene la respuesta, hay que estudiarlo, es complicado.
Saludos

Si esta bueno ese juego y pues la respuesta como dices esta en ese codigo.Fijate cuando uno de los enemigos hace colicion con el cuadradito del puntero se produce el sonido y cambia la cuenta.Pero ese codigo esta complicado, al menos para mi.

Un Saludo.

Back to top

#62 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 04:37 PM

Hola
Prueba esto:
Genera un nuevo proyecto.
Fijate que en el uses tengas windows.
Ponle dos label. (label1 y label2)
ponle esta variable:
delphi
var
  Form1: TForm1;
  X,Y:Integer; // esta es la nueva
Pon este procedimiento:
delphi
Procedure GetCursor(Var X,Y:Integer);
var
P: TPoint;
begin
GetCursorPos(P);
X:=P.X;Y:=P.Y;
end;
En el evento OnMouseDown del form pon esto:
delphi
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   GetCursor(X,Y);
   Label1.Caption:= (Format('%d',[X]));
   Label2.Caption:= (Format('%d',[Y]));
end;
Corre el programa
Cada vez que presiones el mouse en los label te dira la posicion exacta del mismo, X y Y.
Saludos

Ok Trabajando en eso.

Un Saludo.

Back to top

#63 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 05:00 PM

Ok, pero eso te da las cordenadas de la pantalla en general.No del form.( X= Left y Y= Top) yo tengo un codigo , deja ver si lo encuentro que te deja saber las cordenadas en un Panel (dentro del Panel en que lugar esta X y Y.

Un Saludo.

Back to top

#64 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 05:06 PM

Aqui esta lo que te decia:

delphi

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Caption:='Posición del ratón en el Panel: X:'+IntToStr(X)+' Y:'+IntToStr(Y);
end;

Solo pones en el evento del Panel1 OnMouseMove.

Un Saludo.

Back to top

#65 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 05:38 PM

Hola Carlos, este codigo lo saque del juego "persiguiendo al burro" y esta interesante:

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
pertop:=image2.Top;
perleft:=image2.Left;
if image2.Top>image1.top then image1.Top:=image1.top+3 else
image1.Top:=image1.top-10;
if image2.left>image1.left then image1.left:=image1.left+3 else
image1.left:=image1.left-10;
end;

La image1 persigue a la image2, si ponemos a la imagen dos a perseguir las cordenadas del puntero(al centro de el Left + 10 ) o lo que sea.Y le damos mas velocidad al timer que controla el movimiento del missil este seguira la direcion que le damos.

Tambien se puede hacer que el que lance el missil se desplace Left de acuerdo a donde este el puntero.Y con el boton del raton disparamos.

Un Saludo.

Back to top

#66 Caral

Advanced Member

Moderador
4266 posts

LocationCosta Rica

Posted 07 December 2008 - 05:46 PM

Hola
A ver, voy a estudiarlo.
Saludos

0

Back to top

#67 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 06:00 PM

Hola
A ver, voy a estudiarlo.
Saludos

Estoy trabajando en eso tambien.

Un Saludo.

Back to top

#68 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 06:36 PM

Bueno aqui tengo una imagenes que le daran mas vida real al UFO cuando a sido alcanzado por los disparos.
Son 8 imagen desde BUfo1.bmp ... asta BUfo8.bmp jejejejejeje se vera mejor el UFO caer.

Un Saludo.

Attached Files

85_.zip 43.15KB 2 downloads

Back to top

#69 Guest_Jose Fco_*

Visitante

Posted 07 December 2008 - 07:34 PM

Bueno aqui esta la modificacion:

delphi

procedure TForm1.Timer5Timer(Sender: TObject);
var
  comp: TComponent;
begin
  if (Contador1 < 1) or (Contador1 > 8) then
  Contador1 := 1;
  comp := Form3.FindComponent('BUfo' + IntToStr(Contador1));
  TUfo.Picture:= TImage(comp).Picture;
  TUfo.Top := TUfo.Top + 5;
  TUfo.Left := TUfo.Left + 5;
   inc(Contador1);
end;

Timer5 = 50 subi las imagenes al Form3 y le puse ese cambio al codigo.Se puede mejorar, pero se ve mejor ahora. (y)

Un Saludo.

PD:Se tienen que modificar las imagenes, el tamaño por eso el movimiento del UFO en caida.(pero queda como que esta fallando.

Back to top

#70 eduarcol

Advanced Member

Administrador
4483 posts

LocationVenezuela

Posted 08 December 2008 - 07:10 AM

Hola
Prueba esto:
Genera un nuevo proyecto.
Fijate que en el uses tengas windows.
Ponle dos label. (label1 y label2)
ponle esta variable:
delphi
var
  Form1: TForm1;
  X,Y:Integer; // esta es la nueva
Pon este procedimiento:
delphi
Procedure GetCursor(Var X,Y:Integer);
var
P: TPoint;
begin
GetCursorPos(P);
X:=P.X;Y:=P.Y;
end;
En el evento OnMouseDown del form pon esto:
delphi
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   GetCursor(X,Y);
   Label1.Caption:= (Format('%d',[X]));
   Label2.Caption:= (Format('%d',[Y]));
end;
Corre el programa
Cada vez que presiones el mouse en los label te dira la posicion exacta del mismo, X y Y.
Saludos

Solo un comentario de mi parte; si te fijas en el evento OnMouseDown uno de los parametros es x,y estas son las coordenadas del componente donde haces click con el mouse, voy reintegrandome del fin de semana si necesitan ayuda estamos a la orden

0

Back to top

#71 Guest_Jose Fco_*

Visitante

Posted 08 December 2008 - 07:20 AM

Hola Eduarcol.

Yo creo que la cosa mas bien es, donde esta el puntero y no donde se hace click.La idea es que tu le digas a una imagen (missil) que siga esa cordenada y si la mantienes encima del enemigo pues se produciria la colision.Si le decimos que mande el missil a donde hacemos click pues no se veria el efecto que deceamos.Le imagen missil estara controlada por un timer y en cada evento OnTimer pues dira que su propiedad 'Left := a X del puntero. ;)Solo se debe tener en cuenta X (Left) si no se encuentra el enemigo y el top del missil es mucho mayor al top del enemigo pues se destruye el missil y fallo el tiro ese.

No se si me di a entender.

Un Saludo.

Back to top

#72 eduarcol

Advanced Member

Administrador
4483 posts

LocationVenezuela

Posted 08 December 2008 - 07:23 AM

ok, me parece bien la idea, para ese fin tenemos el evento onmousemove, donde cada vez que se produzca acutalize unas variables globales, por ejemplo, posx y posy en el timer se programa que el misil siempre busque esas variables.

Deja que ponga al dia unas cositas en la mañana y le entro al codigo

0

Back to top

#73 Guest_Jose Fco_*

Visitante

Posted 08 December 2008 - 07:25 AM

Aqui en este codigo esta lo que te digo:

delphi

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
 X,  Y: Integer);
begin
Panel1.Caption:='Posición del ratón en el Panel: X:'+IntToStr(X)+' Y:'+IntToStr(Y);
end;

Este codigo te deja saber donde esta el raton en ese momento y X estara cambiando si lo mueves detras del enemigo, entonces estaras dandole nuevas cordenadas al missil en su propiedad (Left) esto hace que se vea el efecto de seguir al target.

Un Saludo.

Back to top

#74 Guest_Jose Fco_*

Visitante

Posted 08 December 2008 - 07:28 AM

ok, me parece bien la idea, para ese fin tenemos el evento onmousemove, donde cada vez que se produzca acutalize unas variables globales, por ejemplo, posx y posy en el timer se programa que el misil siempre busque esas variables.

Deja que ponga al dia unas cositas en la mañana y le entro al codigo

Ok tranquilo te estaremos esperando.Una cosa, solo nos interesa X ya que solo queremos el Left del missil.

Un Saludo.

PD: Yo estare entrando y saliendo ya que estoy en el trabajo y los lunes son pesados por aca.

Back to top

#75 Caral

Advanced Member

Moderador
4266 posts

LocationCosta Rica

Posted 08 December 2008 - 10:04 AM

Hola
Estan muy bien las imagenes, se ve mejor el ovni.
Saludos

0

Back to top

#76 eduarcol

Advanced Member

Administrador
4483 posts

LocationVenezuela

Posted 08 December 2008 - 10:24 AM

cual es la ultima versión para mirarla?

0

Back to top

#77 Caral

Advanced Member

Moderador
4266 posts

LocationCosta Rica

Posted 08 December 2008 - 10:41 AM

Hola
Esta es la ultima.
Saludos

[archivo adjunto borrado por el administrador]

0

Back to top

#78 Guest_Jose Fco_*

Visitante

Posted 08 December 2008 - 10:58 AM

Hola
Esta es la ultima.
Saludos

Hola Carlos, Casi tenemos la idea de guiar el misil y quedara como los reales.He visto en algunos juegos que si le pones el puntero encima por algun corto tiempo y se mantiene el enemigo dentro del target, este cambia de color y cuando eso sucede entonces se pasan las cordenadas del misil al enemigo.(es como funciona en los reales). ;)Pero para este juego conque siga al puntero estaria bien.

Un Saludo.

PD:Cuando yo sea grande quiero ser asi como tu, que puedes subir files mas grandes.

Back to top

#79 eduarcol

Advanced Member

Administrador
4483 posts

LocationVenezuela

Posted 08 December 2008 - 11:08 AM

Esta muy bien el invento, que les hace falta? veo que esta muy completico jejeje

0

Back to top

#80 Guest_Jose Fco_*

Visitante

Posted 08 December 2008 - 11:26 AM

Esta muy bien el invento, que les hace falta? veo que esta muy completico jejeje

Bueno para la etapa de inicio(defender al burrito, solo nos hace falta lo del misil que sea guiado por el puntero(target) que siga la cordenada X (Left) y si mantenemos el target encima del UFO pues se producira la colision.