Jump to content


La Gallinita tira huevos.

Started by Guest_Jose Fco_* , Dec 11 2008 05:55 PM

  • Please log in to reply
115 replies to this topic

#61 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 10:17 AM

Gracias Fernando, se le quito el frio a la gallina. :)

Un Saludo.

#62 eduarcol

eduarcol

    Advanced Member

  • Administrador
  • 4483 posts
  • LocationVenezuela

Posted 13 December 2008 - 10:23 AM

Creo que te le adelantastes a cHackAll, justo me acaba de decir que iba a hacer lo del parpadeo :D
  • 0

#63 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 13 December 2008 - 10:25 AM

Creo que te le adelantastes a cHackAll, justo me acaba de decir que iba a hacer lo del parpadeo :D


:o, pues perdón, al menos no puede decir que no he aprendido nada de él :D :D, de nuevo gracias Chackall.

Saludos.
  • 0

#64 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 10:30 AM

Hola
Pero siempre puede ponerle algo mas al programita, la puerta esta abierta amigo. (y)
Saludos
  • 0

#65 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 10:34 AM

Hola
Pero siempre puede ponerle algo mas al programita, la puerta esta abierta amigo. (y)
Saludos


Eso Eso, como diria el Chapulin Colorado.La puerta esta abierta. ;)

Un Saludo.

#66 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 04:12 PM

Creo que te le adelantastes a cHackAll, justo me acaba de decir que iba a hacer lo del parpadeo :D


¿Bueno y que paso con lo del sarten? :p

Un Saludo.

#67 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 05:29 PM

Hola
He estado intentando, pero no me da.
Puse una imagen adicional del tamaño del sarten para poder ver sus coordenadas, pero no va.
Necesitamos a un, Como dice Eliseo, Maistro :D :D
Saludos
  • 0

#68 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 06:04 PM

Hola
He estado intentando, pero no me da.
Puse una imagen adicional del tamaño del sarten para poder ver sus coordenadas, pero no va.
Necesitamos a un, Como dice Eliseo, Maistro :D :D
Saludos


Existe otra forma de poder verlas.No lo he intentado, pero creo que si ponemos como tu dices una imagen al lado, ella nos daria las cordenadas exactas del sarten.
Esta dificil el asunto, pero pues esperaremos un Maistro. ;)

Un Saludo.

#69 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 06:07 PM

Hola
Aqui esta la ultima version, tiene una imagen en la sarten.
Faltaria indicar que desaparezca el huevo cuando lo atrape, esa es la parte dificil.
saludos

[archivo adjunto borrado por el administrador]
  • 0

#70 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 06:16 PM

Aqui deberia estar la cosa:


delphi
  1. if (Huevo.Top + 40) =  (frGallina.Height - Huevo.Height) then
  2.    begin
  3.       Huevo.Brush.Color := clRed;
  4.       Seguir := False;
  5.       Cuenta:= Cuenta + 1;
  6.       If Cuenta = 2 Then



Se debe hacer una comparacion cuando el huevo este a la altura del sarten y si cuando su altura este a la altura del sarten, esta tambien dentro del rango del Left del sarten (Then)
Creo que debe ser algo asi.

Un Saludo.

#71 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 06:19 PM

Hola
Si amigo, me da la impresion de que es por ahi, el asunto es como hacerlo.
Para mi esta lejos, tal vez con una gran guia pueda.
Saludos
  • 0

#72 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 06:42 PM

¿Recuerdas el codigo del caza aviones? Pues la cosa yo creo es que tenemos que darle las 4 cordenadas al huevo y compararlas con las cordenadas del sarten( igual que como hacemos para que si el misil encuentra el avion.)

Dejame ver algo.

Un Saludo.

#73 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 07:09 PM

Darle una miradita a este codigo:



delphi
  1. Procedure TThreadHuevo.Caer;
  2. begin
  3.   w:= frGallina.Sarten.left;
  4. x:= frGallina.Sarten.left + 55;
  5. y:= frGallina.Sarten.top;
  6. z:= frGallina.Sarten.top + 40;
  7.    If Cuenta = 2 then
  8.    cuenta:= 0;
  9.    Huevo.Top := Huevo.Top + 1;
  10.    if frGallina.Horizontal.Checked then
  11.    begin
  12.       //Realiza el movimiento Vertical
  13.       if Huevo.Dir = 'DER' then
  14.          Huevo.Left := Huevo.Left + 2
  15.       else
  16.          Huevo.Left := Huevo.Left - 2;
  17.  
  18.       //Si llego al extremo derecho cambia la direccion
  19.       if (Huevo.Left + Huevo.Width + 10) >= frGallina.Width then
  20.          Huevo.Dir := 'IZQ';
  21.  
  22.       //Si llego al extremo izquierdo cambia la direccion
  23.       if (Huevo.Left + Huevo.Width + 10) <= 20 then
  24.          Huevo.Dir := 'DER';
  25.    end;
  26.    //Si llega al final de la pantalla le cambia el color y la variable para no seguir moviendolo.
  27.    if (Huevo.Top + 40) =  (frGallina.Height - Huevo.Height) then
  28.    begin
  29.       Huevo.Brush.Color := clRed;
  30.       Seguir := False;
  31.       Cuenta:= Cuenta + 1;
  32.       If Cuenta = 2 Then
  33.       begin
  34.     //  Showmessage('Se te Cayeron Los Huevos');
  35.       end;
  36.       if (Huevo.top>=y) and (Huevo.top<=z) then
  37.   if (Huevo.left>=w) and (Huevo.left<=x) then
  38.         begin
  39.         Huevo.Brush.Color := clyellow;
  40.          Seguir := False;
  41.      Showmessage('Se te Cayeron Los Huevos');
  42.       end;
  43.    end;
  44. end;


Ya logro tener el huevo en la cordenada del sarten(left) solo falta la altura y que el huevo se destruya. ;)

Un Saludo.

#74 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 07:16 PM

Bueno ya la cosa esta mejorando:



delphi
  1. //  Showmessage('Se te Cayeron Los Huevos');
  2.       end;
  3.       if (Huevo.top>=y) and (Huevo.top<=z) then
  4.   if (Huevo.left>=w) and (Huevo.left<=x) then
  5.         begin
  6.         Huevo.Visible :=False;
  7.          Seguir := False;
  8.      Showmessage('Uno Huevo al Sarten ');
  9.       end;
  10.    end;



Solo hace falta que el huevo no caiga tan abajo. :D
Ya casi lo tenemos.

Un Saludo.

#75 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 07:27 PM

Hola
Se ve bien.
Solo falta subirle el top al huevo. (que raro suena :D :D).
Saludos
  • 0

#76 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 07:37 PM

Hola
Muy bueno Jose, ya logre que se meta en la sarten y que desaparezca.
Estoy tratando de darle mas velocidad, esta muy lento, le quite el delay y va mejor, pero lo quiero mas rapido.
Saludos
  • 0

#77 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 07:43 PM

Hola
Se ve bien.
Solo falta subirle el top al huevo. (que raro suena :D :D).
Saludos


jajajajajaja si pues. :D :D :D En eso estoy, por el momento le agrande el sarten, le di mas profundidar ya parece cubo no sarten. :p

Un Saludo.

#78 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 07:47 PM

Hola
El huevo ya esta en la sarten, nos falta darle mas velocidad y un conteo de los huevos en la sarten.
ve la diferencia con lo tuyo, es muy sutil:


delphi
  1. Procedure TThreadHuevo.Caer;
  2. var
  3. x,w,y,z:integer;
  4. begin
  5. w:= frGallina.Sarten.left;
  6. x:= frGallina.Sarten.left + 55;
  7. y:= frGallina.Sarten.top;
  8. z:= frGallina.Sarten.top + 40;
  9.    If Cuenta = 2 then
  10.    cuenta:= 0;
  11.    Huevo.Top := Huevo.Top + 1;
  12.    if frGallina.Horizontal.Checked then
  13.    begin
  14.       //Realiza el movimiento Vertical
  15.       if Huevo.Dir = 'DER' then
  16.          Huevo.Left := Huevo.Left + 2
  17.       else
  18.          Huevo.Left := Huevo.Left - 2;
  19.  
  20.       //Si llego al extremo derecho cambia la direccion
  21.       if (Huevo.Left + Huevo.Width + 10) >= frGallina.Width then
  22.          Huevo.Dir := 'IZQ';
  23.  
  24.       //Si llego al extremo izquierdo cambia la direccion
  25.       if (Huevo.Left + Huevo.Width + 10) <= 20 then
  26.          Huevo.Dir := 'DER';
  27.    end;
  28.  // aqui desaparece el huevo si entra en la sarten
  29.  if (Huevo.top + 18 >=y) and (Huevo.top<=z) then
  30.  if (Huevo.left>=w) and (Huevo.left<=x) then
  31.        begin
  32.        Huevo.Visible :=False;
  33.         Seguir := False;
  34.        end;
  35.    //Si llega al final de la pantalla le cambia el color y la variable para no seguir moviendolo.
  36.    if (Huevo.Top + 40) =  (frGallina.Height - Huevo.Height) then
  37.    begin
  38.       Huevo.Brush.Color := clRed;
  39.       Seguir := False;
  40.       Cuenta:= Cuenta + 1;
  41.    //aqui se cumple la cuota de huevos rojos.
  42.       If Cuenta = 2 Then
  43.       begin
  44.     //  Showmessage('Se te Cayeron Los Huevos');
  45.       end;
  46.  
  47.    end;
  48. end;


Saludos
  • 0

#79 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4266 posts
  • LocationCosta Rica

Posted 13 December 2008 - 07:52 PM

Hola
El problema de la velocidad es que no sale otro huevo hasta que el se atrape o caiga el que salio.
Hay que hacer que salgan los huevos mas seguidos.
Saludos
  • 0

#80 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Posted 13 December 2008 - 08:00 PM

Hola
El problema de la velocidad es que no sale otro huevo hasta que el se atrape o caiga el que salio.
Hay que hacer que salgan los huevos mas seguidos.
Saludos

Eso deberia estar en un timer separado.¿El huevo se esta desapareciendo muy arriva del sarten? ¿Solo me pasa a mi?

Un Saludo.
Back to [Animaciones y Juegos]


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