Primer acercamiento a Fenix

[Rox]

Bueno, ayer me puse con Fenix por primera vez y he hecho una chapuza de codigo XD, pero creo que el resultado para ser la primera vez que hago algo está bien(aunque no es nada del otro mundo). Bueno vosotros direis:

Editado: Lo pongo como adjunto

Como me gusta el Software Libre, os dejo el codigo para decirme que mejorar o incluso que no hacer jamas de los jamases XD


Program Stan;
Global
contador;
contadordialog;
contadorinterno;
sonido1;
fichero;
stan;
texto;
tiempo=0;
Begin
sonido1=load_song("stan.mid");
play_song(sonido1,256);
set_mode (320,240,16);
carga();
anima();



Loop
if(key(_enter))
Break;
End;
Frame;
End;

End
//*************************************************
Process carga();
Begin
set_fps(10,0);
fichero=load_fpg("stan2.fpg");
put_screen(fichero,100);

End

//***************************

Process anima();
Begin
set_text_color( 600 );
stan=load_fpg("stan2.fpg");

x=5; y=200;
Repeat //CAMINA
frame;
graph++;
x+=5;
if(graph>6)
graph=1;
end;
until(x==160) // FIN CAMINA

Repeat
if(contador<33)
graph=7;
frame;
graph=8;
frame;
end;
contador++;
switch(contador)
case 3: texto=write(0,100,140,4,"¿Lechuck's Revenge?"); end;
case 10: delete_text(texto); end;
case 11:texto=write(0,150,140,4,"¿Qué cojones es esto?");end;
case 15: delete_text(texto); end;
case 17: texto=write(0,150,140,4,"Eh! Los de arriba");end;
case 19: delete_text(texto); end;
case 20: madera();end;
case 25:texto=write(0,150,140,4,"Eso está mejor"); end;
case 29: delete_text(texto); end;
case 30:set_text_color( 8000 );texto=write(0,170,140,4,"Pero...¿Que desgraciado ha hecho esto?"); end;
case 38: Lechuck();end;
case 45: delete_text(texto); graph=9;frame; end;
case 60: graph=24;Repeat frame;contadorinterno++;graph++;if(graph==27)graph =24;end; until(contadorinterno==20);end;
end;
until(contador==70);
LET_ME_ALONE();

End
//*****************************
Process madera();
Begin
x=120;y=0;
graph=10;
Repeat
frame;
y+=3 ;
until(y>19)
Loop
graph=10;
frame;
end;
End
//*****************************
Process Lechuck();
Begin
graph=11;
x=320;y=200;
repeat
frame;
graph++;
frame;
x-=5;
if(graph==15)
graph=11;
end;
until(x<250);
Loop
graph=14;
frame;
graph=15;
if(contadordialog=20)
break;
end;
frame;
end;
End

[joanvr]

Perdona, pero creo que el zip esta mal... Faltan archivos... Y ademas, el dcb no arranca. Dice que no es un DCB version 2 o compatible.

[chemaris]

amos a probarlo :D

lo del sonido es que la gp32 no acepta midis, tienes que usar musica en formato mod y sus variantes

[Rox]

Uops, ahora lo miro :P

EDITO: Ya lo puse arriba como adjunto, deberia funcionar..cachis lo de midi :\