115 respuestas en este tema

[Caral]

Hola
Seguro modificaste la sarten, aqui esta el codigo, sigamos este que creo que va.
Revisalo.
Saludos

[archivo adjunto borrado por el administrador]

[Caral]

Hola
Falta darle velocidad y una puntuacion por atrapadas.
Ademas que cuando cumpla ciertas caidas pare o algo asi.
Ya lo vamos haciendo, como nos cuesta amigo, sera Leda  .
Saludos

[Caral]

Hola
No le llego, no hay manera de cambiar la velocidad, esto esta ligado a la caida.
La idea es que lance huevos con un rango, ahora solo los lanza cuando se atrapa o cae alguno.
Saludos

[coso]

Les dejo este codigo de la gallina, aunque no se pq los huevos le salen con diferente peso 

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type THuevo = class(TObject)
     x,y : integer;
end;
 
type TGallina = class(TObject)
     x,y    : integer;
     vx     : integer;
     cuenta : integer;
     Tiempolanzamiento : integer;
     procedure adondevoy;
     function mover : THuevo;
     function PonerHuevo : THuevo;
end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Huevos : array [0..30] of THuevo;
 
implementation
 
procedure TGallina.AdondeVoy;
begin
     if random(100) > 85 then vx := -vx;
end;
 
function TGallina.Mover : THuevo;
begin
     AdondeVoy;
     x := x + vx;
 
     inc(Cuenta);
     if Cuenta > TiempoLanzamiento
     then
     begin
          result := PonerHuevo;
          cuenta := 0;
     end
     else result := nil;
 
end;
 
function TGallina.Koookoroko : THuevo;
begin
     result := THuevo.Create;
     result.x := x;
     result.y := y;
end;
 
var
     gallina : TGallina;
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
     i : integer;
begin
     gallina    := TGallina.Create;
     gallina.x  := width div 2;
     gallina.y  := 10;
     gallina.vx := 5;
     gallina.Cuenta := 0;
     gallina.TiempoLanzamiento := 0;
     timer1.Enabled  := true;
     timer1.Interval := 50;
     timer2.Enabled  := true;
     timer2.Interval := 25;
 
     doublebuffered := true;
 
     for i := 0 to Length(Huevos) - 1 do Huevos[i] := nil;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
     h : THuevo;
     i : integer;
begin
     h := gallina.Mover;
 
     if h <> nil then
     for i := 0 to Length(Huevos)-1 do
     if Huevos[i] = nil then Huevos[i] := h;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var
     i : integer;
begin
     for i := 0 to Length(Huevos) - 1 do
     if Huevos[i] <> nil then
     begin
          Huevos[i].y := Huevos[i].y + 1;
 
          if Huevos[i].y > 500
          then Huevos[i] := nil;
     end;
 
     Paint;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
     i : integer;
begin
     Canvas.Brush.Color := $00FFFFCE;
     Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
 
     Canvas.Brush.Color := clWhite;
     for i := 0 to Length(Huevos)-1 do
     if Huevos[i] <> nil then
     Canvas.Ellipse(Huevos[i].x-3,Huevos[i].y-4,Huevos[i].x+3,Huevos[i].y+4);
 
     Canvas.Brush.Color := clRed;
     Canvas.Rectangle(Rect(Gallina.x-20,Gallina.y-10,Gallina.x+20,Gallina.y+10));
end;
 
end.

(pd: tambien se tendrian que liberar los 'huevos' una vez en el fondo)

[coso]

Es ... PonerHuevo  primero le puse de nombre al procedure Koookoroko en referencia al canto gallinaceo. Luego me volvio la cordura...

[enecumene]

A esta gallinita lo que le falta es poner al burrito con el lanza cohetes y tambarla.


Un Saludo.

  , ¡Qué Hostia de Obsesión teneis con el bendito burro ese ¿eh?!  

Saludos

[eduarcol]

a ver, el fin de semana mientras ustedes se divertian yo estaba sin internet, me atrevi a adelantar el codigo pero veo que ya esta listo, de todas formas dejo el mio a ver que les parece.  Entre los cambios significativos se encuentra:

delphi

Los huevos entran al sarten
Se lleva la cuenta de los capturados y los caidos
Se redujo el desplazamiento de la gallina para que no lanze sobre el cocinero

Archivos adjuntos

•  121_.zip   630,79KB   18 descargas

[enecumene]

Así es, la cosa está mejorando, sólo hay que arreglar un pequeño detalle, y es el movimiento del cocinero, debería un movimiento más suave, más acorde al mouse, o disminuir el cuadro a cuadro (no sé como se le dice) para que se pueda colocar el cocinero en mejor posición debajo de cada huevo que cae.

Saludos.

[Caral]

Hola
No digas eso, si ya no lo entiendo, cuando lo refinen, menos.
Si le decimos a Javier, nos lo hace en dos lineas y por supuesto, nos tendra pegados al programa para saber de que se trata.
Saludos

[enecumene]

Sólo tomen como ejemplo los códigos de Chackall en el juego del Mata Moscas v2, hay muchas cosas interesantes que pueden aplicar, su explicación es bastante conciso y claro, el 80% lo entiendo sólo con darle un reojo porque no me he puesto a verlo completamente, pero a excepción de la parte del Sonido de la mosca y el ASM son cosas que me han dejado intrigado.

Saludos.