115 replies to this topic

[enecumene]

Mi score fue de 52 , es muy entretenido la hostia

[egostar]

El mio 54

Salud OS

[enecumene]

A ver, mmm, ¿un Burro tira HUevos o Caca?

[Caral]

Hola
Muy entretenido, yo hice 64.
No creo que sea dificil en delphi.
Jose, a entrarle a la gallina.
Saludos

[egostar]

Si esta comico. dejame ver si me encuentro una gallinita que este buena, asi cuando terminemos de crear el juego la hacemos un caldo.

Un Saludo.

Pero consiguete una gallina vieja, dicen que gallina vieja hace buen caldo

Salud OS

[Caral]

Hola
Esta muy bien, incluso la puedes poner a caminar.
Saludos

[Caral]

Hola
Jose, esta muy bien, ese cocinero ademas tiene hambre.
Ahora solo falta empezar, el huevo es la parte mas sencilla.
Saludos

[felipe]

... Esta buena la idea, ¿como controlaremos la velocidad de cada nivel?

[Caral]

Hola
Me parece bien, comienzalo y le entramos todos a la sopa de gallina.
Hay mucho codigo que se puede usar, me gustaria meterle otras cosas para aprender mas.
Saludos

[eduarcol]

ok, aqui un primer aporte para el jueguito, lo trate de hacer sencillo, queria meterme con Threads pero mejor no debido a que se complica la cosa, ustedes me dicen:

delphi

unit unPrincipal;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
 (*Formulario principal, aqui es donde se desplaza la gallina y el cocinero
 Solo tiene tres controles: 2 Timer, y un shape
 *)
  TfrGallina = class(TForm)
    sGallina: TShape;
    tmGallina: TTimer;
    tmHuevoP: TTimer;
    procedure tmGallinaTimer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure tmHuevoPTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
  (*Es la clase que dibuja el huevo cayendo, deberia ser un Thread para que
  no se note lento cuando hayan muchos huevos cayendo a la vez*)
  THuevo = class(TShape)
     private
 
     public
      (*Procedimiento de clase que permite
      crear un huevo cada vezs que se llame*)
      class procedure Lanzar;
  end;
 
 
 
var
  frGallina: TfrGallina;
  cHuevo: Integer;
implementation
 
{$R *.dfm}
 
procedure TfrGallina.tmGallinaTimer(Sender: TObject);
begin
   //Aqui se controla el movimiento de la gallina por la pantalla
   sGallina.Left := sGallina.Left + 1;
   if (sGallina.Left + 10) =  (frGallina.Width - sGallina.Width) then
      sGallina.Left := 0;
end;
 
 
//Objeto Huevo
class procedure THuevo.Lanzar;
begin
   //Crea el huevo le da la forma y posicion
   with THuevo.Create(frGallina) do
   begin
      Parent := frGallina;
      Shape := stEllipse;
      Name   := 'H' + InttoStr(cHuevo);
      Inc(cHuevo);
      Height := 30;
      Width  := 20;
      Left := frGallina.sGallina.Left;
      Top  := frGallina.sGallina.Top;
   end;
end;
 
procedure TfrGallina.FormKeyPress(Sender: TObject; var Key: Char);
begin
   //Si se presiona enter lanza el artefacto
   if Key = #13 then
   begin
      THuevo.Lanzar;
   end;
end;
 
procedure TfrGallina.tmHuevoPTimer(Sender: TObject);
var
   Huevo: THuevo;
   nActual: Integer;
begin
   (*Busca todos los huevos que esten creados, y les va incrementando el TOP*)
   tmHuevoP.Enabled := False;
   for nActual := 0 to cHuevo - 1 do
   begin
      if frGallina.FindComponent('H' + InttoStr(nActual)) is THuevo then
      begin
         Huevo := THuevo(frGallina.FindComponent('H' + InttoStr(nActual)));
         Huevo.Top := Huevo.Top + 1;
         //Si llega al final de la pantalla le cambia el nombre y el color para no seguir moviendolo.
         if (Huevo.Top + 40) =  (frGallina.Height - Huevo.Height) then
         begin
            Huevo.Brush.Color := clRed;
            Huevo.Name := StringReplace(Huevo.Name, 'H', 'R', [rfReplaceAll]);
         end;
      end;
   end;
   tmHuevoP.Enabled := True;
end;
 
procedure TfrGallina.FormCreate(Sender: TObject);
begin
   //Inicializa la cantidad de huevos creados
   cHuevo := 0;
end;
 
end.

Cualquier cosa no duden en preguntar.

Attached Files

•  98_.zip   202.56KB   23 downloads