Creando mi primer juego
#1
Escrito 04 octubre 2011 - 08:43
les adjunto mis avances....
#2
Escrito 06 octubre 2011 - 07:11
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!
#3
Escrito 06 octubre 2011 - 07:26
#4
Escrito 06 octubre 2011 - 07:56
No he podido ni siquiera iniciarlo, no sale de la presentacion
Yo estoy en las mismas.
Windows 7 Professional 64 bits.
Saludos.
#5
Escrito 06 octubre 2011 - 08:25
No he podido ni siquiera iniciarlo, no sale de la presentacion
Parece que eso es todo...
Saludos.
#6
Escrito 06 octubre 2011 - 08:51
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??
#7
Escrito 06 octubre 2011 - 09:24
#9
Escrito 06 octubre 2011 - 10:37
#10
Escrito 06 octubre 2011 - 12:31
#11
Escrito 06 octubre 2011 - 12:47
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
#12
Escrito 06 octubre 2011 - 07:08
Mañana les envió más avances....... saludos
#13
Escrito 06 octubre 2011 - 07:35
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... .
#14
Escrito 06 octubre 2011 - 08:10
Saludos
#15
Escrito 07 octubre 2011 - 08:13
voy a ver como les subo para que miren el juego....... saludos
#16
Escrito 07 octubre 2011 - 08:45
http://www.mediafire...cwhmc8ha1aiwt6z
espero sus comentarios.......... saludos
#17
Escrito 07 octubre 2011 - 09:05
#18
Escrito 09 octubre 2011 - 04:06
#19
Escrito 10 octubre 2011 - 07:18
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....
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...