by ignacio » Thu Jul 30, 2009 1:03 am
bueno gente ami se me ocurrio la siguiente idea;un poco mas sencilla ;pero aun le falta pulirse en algunos detalles:
program bla bla
begin
animacion(500,180,18)
....
process animacion(x,y,graph)
BEGIN
CTYPE=C_SCROLL;
Z=-8;
loop
IF(GRAPH==18);
GRAPH=20;
ELSE
GRAPH--;
END
FRAME;
END
END
//********************
PROCESS PERSONAJE();
PRIVATE
C_DER=4;
BEGIN
GRAPH=3;//variable sin imporatancia
Z=-5;
x=0;y=220;
CTYPE=C_SCROLL;
SCROLL.CAMERA=ID;
LOOP
IF(KEY(_LEFT))X-=3;C_DER--;
IF(C_DER==3);C_DER=17; ELSE GRAPH=C_DER;END
END
IF(KEY(_RIGHT)) X+=3;C_DER++;
IF(C_DER==17);C_DER=3;ELSE GRAPH=C_DER; END
if(x>2048) x=0;END
IF(X<-1024)X=2048;END
END
FRAME;
END
END
hay que aclarar que se trata de un mapa de 2024 pixeles de ancho x 300 de alto.
si bien esta idea me ha servido aun tiene un desperfecto y es cuando el personaje retrocede ;pues de esta ultima forma no muesta al proceso animacion;si alguien sve por que es asi agradeceria me dijeran;desde ya gracias