Ir al contenido


Juego Rescatando al Burrito.

Comenzado por Guest_Jose Fco_* , dic 06 2008 05:54

  • Por favor identifícate para responder
127 respuestas en este tema

#41 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 01:16

Hola
Lo estoy haciendo con la mira del mata moscas.
lo que va a tener que tener el granjero es buena punteria, ya vas a ver.
Saludos
  • 0

#42 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 07 diciembre 2008 - 01:19

¡Hey!, esa mira es mi patente :D :D, pero nada , a ustedes se los regalo :D :D jajajaja
  • 0

#43 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 01:55

Hola
Lo estoy haciendo con la mira del mata moscas.
lo que va a tener que tener el granjero es buena punteria, ya vas a ver.
Saludos

jajajajajajaja si tiene que ser algo que no sea facil tumbarlo. :D :D :D

Un Saludo.

#44 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 01:57

¡Hey!, esa mira es mi patente :D :D, pero nada , a ustedes se los regalo :D :D jajajaja


Gracias Fernando, algo saldra de todo este relajo jejejejejeje. :p

Un Saludo.

PD:Carlos estoy terminando las imagenes del ET despedazandoce. :D

#45 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 07 diciembre 2008 - 01:59

Esa mira me costó mucho esfuerzo fabricarla, ¿ok?, así que tratenlo con cuidado jajajaja
  • 0

#46 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 02:27

Bueno aqui estan dos imagenes del UFO explotando, a ver si despues creo una mejores:

Un Saludo.

Archivos adjuntos

  • Archivo adjunto  82_.zip   71,65KB   2 descargas

#47 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 02:42

Hola
Bueno ya tengo algo adelantado.
Cuando el ET se va a llevar al burro salen dos opciones.
1. se lo llevan
2- el granjero lo defiende
la primera es obvia.
En la segunda hay que tratar de darle al ET, eso si, solo tienes 5 intentos, si fallas se lo llevan.
Todavía no tengo la parte de darle.
A ver como lo ven
Saludos
PD: Jose, mete le mano, luego lo podemos corregir, creo que sera bueno practicar. (y)

[archivo adjunto borrado por el administrador]
  • 0

#48 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 03:03

jajajajajaja esta bien la idea, yo creo que algo asi como lo del caza aviones para lo de hacer blanco.Es cosa de seguirle buscando. ;)

Un Saludo.

#49 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 03:11

Hola
Ya se destruye el ET, ahora solo falta darle el sonido y que siga a alguna otra opcion.
He puesto 10 oportunidades, es un poco mas sencillo darle. :D
A ver que opinas.
Saludos

[archivo adjunto borrado por el administrador]
  • 0

#50 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 03:27

jajajajajaja esta bueno, pero muy facil de tumbar el UFO con 10 intentos.No se me escapa el tipo. :p
Estaba pensando que cuando se tumbe el UFO pues que haga reset, es algo que no le hemos puesto todavia.
Al igual que si se lo lleva entonces tenemos que rescatarlo.(en eso estoy trabajando)


Un Saludo.

PD:Se puede poner que de los 10 tiros hay que darle por lo menos dos veces.

#51 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 03:30

Hola
Jajajaj, cada vez me la pones mas dificil, terminare con el segundo titulo de novato. :D :D :D
Saludos
PD: Estoy aprendiendo mucho con estos codigos.
  • 0

#52 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 03:48

Hola
Jajajaj, cada vez me la pones mas dificil, terminare con el segundo titulo de novato. :D :D :D
Saludos
PD: Estoy aprendiendo mucho con estos codigos.


jajajajajaja la verdad si se aprende con estos jueguitos.Mira cambiale la altura aqui:



delphi
  1. procedure TForm1.Timer3Timer(Sender: TObject);
  2. var
  3.  dato: PChar;
  4. begin
  5.   TUfo.Picture:= Form2.TUfo2.Picture;
  6.   TUfo.Left:= TUfo.Left + RandomRange(1, 100);
  7.   TUfo.Top:= 100;  // cambie la altura aqui y se ve bien
  8.   If TUfo.Left > 750  then
  9.   begin
  10.   Timer3.Enabled:= False;
  11.   Timer4.Enabled:= True;
  12.   end;



Una pregunta cuando movemos el target(raton) existe alguna forma de decirle a una imagen(rocket) que siga esa cordenada? La idea es tirarle un missil pequeño y que el recorrido de el sea siguiendo el raton(donde apunta el raton)Solo se le podra corregir el (Left) al rocket si no se encuentra con el UFO pues no existe destrucion.
Es una idea que seria interesante conocer. no solo en este juego tambien para otros.

Un Saludo.

PD:Quiero cambiar eso de si le das que se desaparezca, lo pondre a caer y cuando llegue a una altura explote y desaparezca en el suelo. ;)

#53 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 03:52

Mira cambiale el - y ponle + aqui:



delphi
  1. procedure TForm1.Timer5Timer(Sender: TObject);
  2. var
  3.   comp: TComponent;
  4. begin
  5.   if (Contador1 < 1) or (Contador1 > 2) then
  6.   Contador1 := 1;
  7.   comp := Form3.FindComponent('TUfoD' + IntToStr(Contador1));
  8.   TUfo.Picture:= TImage(comp).Picture;
  9.   TUfo.Top := TUfo.Top + 5; //Solo cambia esto ponle el +
  10.   TUfo.Left := TUfo.Left + 5;
  11. end;



Asi el tipo cae al suelo. :D :D :D

Un Saludo.

#54 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 03:53

Hola
Si se ve mejor.
Lo de la posicion supongo que tendra que ver con el cursor, este debe tener coordenadas.
Interesante propuesta, especial para maestros amigo. :D
Saludos
  • 0

#55 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 04:00

Hola
Si se ve mejor.
Lo de la posicion supongo que tendra que ver con el cursor, este debe tener coordenadas.
Interesante propuesta, especial para maestros amigo. :D
Saludos


Asi es amigo.Es cosa de estudiar un poco el asunto y pues que alguno de los maestros nos den una luz.La cosa seria que el missil salga cuando se apriete el raton y que tome como referencia para su trayectoria (Left) las cordenadas del (cursor).jajajajajajajaja suena dificil pero para un maestro no lo creo.Esperemos que algunos de los que tenemos por aqui se compadezca de este par de locos y nos ilumine el camino. :p

Un Saludo.

#56 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 04:07

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

#57 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 04:08

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


Ok, dejame hecharle una miradita a ver que encuentro.

Un Saludo.

PD:Si no lo tumbo del primero en el segundo se cae. :D

#58 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 04:11

Hola
Cambiale la velocidad del interval de los timer 3 y 4.
de 100 a 50, te costara mas tumbarlo.
Saludos
  • 0

#59 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 07 diciembre 2008 - 04:21

Hola
Cambiale la velocidad del interval de los timer 3 y 4.
de 100 a 50, te costara mas tumbarlo.
Saludos


Ok probando a ver.Esta tomando forma el juego amigo. :)
Con el estamos aprendiendo algo. ;)

Un Saludo.

#60 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 07 diciembre 2008 - 04:31

Hola
Prueba esto:
Genera un nuevo proyecto.
Fijate que en el uses tengas windows.
Ponle dos label. (label1 y label2)
ponle esta variable:


delphi
  1. var
  2.   Form1: TForm1;
  3.   X,Y:Integer; // esta es la nueva


Pon este procedimiento:


delphi
  1. Procedure GetCursor(Var X,Y:Integer);
  2. var
  3. P: TPoint;
  4. begin
  5. GetCursorPos(P);
  6. X:=P.X;Y:=P.Y;
  7. end;


En el evento OnMouseDown del form pon esto:


delphi
  1. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  2.   Shift: TShiftState; X, Y: Integer);
  3. begin
  4.    GetCursor(X,Y);
  5.    Label1.Caption:= (Format('%d',[X]));
  6.    Label2.Caption:= (Format('%d',[Y]));
  7. end;


Corre el programa
Cada vez que presiones el mouse en los label te dira la posicion exacta del mismo, X y Y.
Saludos

  • 0
Volver a [Animaciones y Juegos]


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → Delphi
  4. → [Animaciones y Juegos]
  5. Privacy Policy
IP.Board spam blocked by CleanTalk.