18 respuestas en este tema

[monchito_elroro]

buenas amiguitos, yo aquí de nuevo, esta vez haciendo una consulta sobre lo que son la creación de juegos en lazarus, especialmente los simples, yo estoy pensando hacer uno tipo mario bros pero mas o menos como lo haría....?

les adjunto mis avances....

[joseme]

Pude llegar solamente al nivel 3, hay algún truco?
En principio, no sé nada de juegos, pero sé que hay mucha gente que usa Lazarus para desarrollar juegos. Creo que deberías darte una vuelta por http://www.pascalgamedevelopment.com

El scroll de pantalla está bueno!

[eduarcol]

No he podido ni siquiera iniciarlo, no sale de la presentacion :D

[fredycc]

No he podido ni siquiera iniciarlo, no sale de la presentacion

Yo estoy en las mismas.


Windows 7 Professional 64 bits.


Saludos.

[escafandra]

No he podido ni siquiera iniciarlo, no sale de la presentacion

Parece que eso es todo...

Saludos.

[eduarcol]

No he podido ni siquiera iniciarlo, no sale de la presentacion

Parece que eso es todo...

Saludos.

Asi lo crei yo, hasta que lei esto:

Pude llegar solamente al nivel 3, hay algún truco?
En principio, no sé nada de juegos, pero sé que hay mucha gente que usa Lazarus para desarrollar juegos. Creo que deberías darte una vuelta por http://www.pascalgamedevelopment.com

El scroll de pantalla está bueno!

jejeje o me engañaron??

[mightydragon_lord]

A mi tampoco me inicia T_T Win7 x64

[egostar]

Caramba!!!

Todos con tecnología de punta y yo que sigo con mi IBM 5150 con el novedoso procesador Intel 8088, 16M de RAM, tecnología a 8 bits y un sorprendente sistema de audio para generar tonos por el altavoz  



Salud OS

[joseme]

era una broma, en realidad no hay nada más que la presentación, con el nombre y el scroll de fondo. En realidad nunca pasé de nivel 1 en juegos reales

[javsolis3]

sin comentarios jjajajajajjaja.

[egostar]

  era una broma, en realidad no hay nada más que la presentación, con el nombre y el scroll de fondo. En realidad nunca pasé de nivel 1 en juegos reales 

jejejeje, que bueno que yo no pude ni ejecutarlo en mi IBM 5150 , nos has engañado como a un chino

Salud OS

[monchito_elroro]

Buenas amiguitos, al parecer este debate está candente, inicio pidiendo disculpas  por no agregar que sólo puse el intro porque ese es mi primer avance, ahora estoy haciendo que mario aparezca y que pueda saltar........... otro que también estoy haciendo es que los koopa villanos aparezcan

Mañana les envió más avances....... saludos 

[javsolis3]

Buenas amiguitos, al parecer este debate está candente, inicio pidiendo disculpas  por no agregar que sólo puse el intro porque ese es mi primer avance, ahora estoy haciendo que mario aparezca y que pueda saltar........... otro que también estoy haciendo es que los koopa villanos aparezcan

Mañana les envió más avances....... saludos 

Si que que fue buena amigo jejejejeje... .

[fredycc]

Y yo buscando el menú, hasta pospuse la instalación del PES2012 en mi lap  , esperemos ver avances pronto  , que no lo dudo.


Saludos

[monchito_elroro]

Buenas amiguitos yo aquí de nuevo......... les quiero mandar el segunda avance de mi jueguito pero no se que pasa que carga bastante en subir (20mb) pero luego todo aparece en blanco.... .

voy a ver como les subo  para que miren el juego....... saludos

[monchito_elroro]

Este es mi segundo avance:

http://www.mediafire...cwhmc8ha1aiwt6z

espero sus comentarios.......... saludos 

[mightydragon_lord]

Hola, primero que todo, felicitarte, está muy bien el avance, lo segundo es que te recomiendo es subir esto a google code o soucefourge, me gusta mucho este pequeño proyecto y quisiera ser parte de el, me cuentas si te parece =)

[javsolis3]

Si amigo felicidades estuve biendo lo que mandastes y lo descrgue al parecer ya mario salta. felicidades  .

[monchito_elroro]

Como les va amigos de lazarus y delphi, quisiera poner el código fuente
del "mario cronch" que he creado.... les pido disculpas si mi codigo es
medio tonto...... pero es que soy principiante (pero con ganas) en esto
de programar....

delphi

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  mmsystem, lresources, StdCtrls, windows;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  s1, archivo, archivo2, archivo3: string;
  indice, indice2, indice3: integer;
  t1: boolean;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if image1.Left<-824 then image1.Left:=image1.Left+form1.Width +822
                   else image1.Left:=image1.Left-1;
 
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if image2.Left<-824 then image2.Left:=image2.Left+form1.Width +822
                   else image2.Left:=image2.Left-1;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
  if (indice < 1) or
     (indice > 3) then
     indice:= 1;
  archivo:='mario'+inttostr(indice);
  image5.Picture.LoadFromLazarusResource(archivo);
  indice:=indice+1;
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
  if image5.Top>=144 then t1:=false;  
    if image5.Top<=70 then t1:=true;  
 
    if t1=true then image5.Top:=image5.Top+10   
               else image5.Top:=image5.Top-10;
 
    if image5.Top=144 then timer4.Enabled:=false;
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
begin
   if (indice2 < 1) or
     (indice2 > 2) then
     indice2:= 1;
  archivo2:='goomba'+inttostr(indice2);
  image6.Picture.LoadFromLazarusResource(archivo2);
  indice2:=indice2+1;
 
  if (indice3 < 1) or
     (indice3 > 2) then
     indice3:= 1;
  archivo3:='koopatropa'+inttostr(indice3);
  image7.Picture.LoadFromLazarusResource(archivo3);
  indice3:=indice3+1;  // aquí me quede ayer miercoles 05 sep 2011
 
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
begin
   if image6.Left<-100 then image6.Left:=image6.Left+form1.Width +822
                   else image6.Left:=image6.Left-2;
 
   if image7.Left<-100 then image7.Left:=image7.Left+form1.Width +822
                   else image7.Left:=image7.Left-2;
 
 
  //image6.Left:=image6.Left-2;  // funciona bacán
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  s1:=lazarusresources.Find('sound1').Value;
  playsound(pchar(s1),hinstance, snd_memory or snd_Async or snd_loop);
   //s1:=lazarusresources.Free;
   //lazarusresources.Free;    //este funciona pero ....
  //playsound(pchar('sound1.wav'),hinstance,snd_async or snd_nodefault or snd_loop);  // AL SER DEL MISMO RECURSO QUE EL DE ARRIBA HACE QUE EL PROGRAMA SE BLOQUEE
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
    //lazarusresources.Free;    // que pasa....???
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if key= vk_up then timer4.Enabled:=true;
end;
 
initialization
{$I koopatropa.lrs}
{$I goomba.lrs}
{$I mariocronch.lrs}
{$I mariosonido.lrs}
end.

Agradezco sus comentarios...