Tamagotchi 3d

rem annulation de l'autocam
AUTOCAM off
rem Fabrique une scène à regarder
make matrix 1,10000.0,10000.0,25,25
load bitmap "tile01.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,50.0
set matrix height 1,12,12,300.0
update matrix 1
rem Charge un Objet 3D et lui ajoute des données d'animation
LOAD OBJECT "idle.x",1 : APPEND OBJECT "walk.x",1,100
YROTATE OBJECT 1,180 : FIX OBJECT PIVOT 1
rem Boucle sur les objets 3D de 0 à 20
LOOP OBJECT 1,0,20 : SET OBJECT SPEED 1,10
rem Activation du mode de rafraîchissement d'écran manuel
SYNC ON
rem Begin loop
DO
rem Les touches curseur gauche/droite contrôlent l'orientation du personnage
stage=0
IF LEFTKEY()=1 THEN a#=a#-8.0
IF RIGHTKEY()=1 THEN a#=a#+8.0
a#=wrapvalue(a#)
sync
rem Les touches curseur haut/bas contrôlent la position du personnage
IF UPKEY()=1 THEN x#=NEWXVALUE(x#,a#,3) : z#=NEWZVALUE(z#,a#,3) : stage=1
IF DOWNKEY()=1 THEN x#=NEWXVALUE(x#,a#,-3) : z#=NEWZVALUE(z#,a#,-3) : stage=1
sync
rem Si l'action du personnage change
IF stage<>oldstage
   IF stage=0
      SET OBJECT FRAME 1,0.0
      LOOP OBJECT 1,0,20
      SET OBJECT SPEED 1,10
   ENDIF
   IF stage=1
      SET OBJECT FRAME 1,105.0
      LOOP OBJECT 1,105,125
      SET OBJECT SPEED 1,40
   ENDIF
   oldstage=stage
ENDIF

rem Mise à jour de la position et de l'orientation du personnage
POSITION OBJECT 1,x#,0.0,z#
YROTATE OBJECT 1,a#
rem Les touches flechées contrôlent la caméra
if upkey()=1 then x#=newxvalue(x#,a#,10) : z#=newzvalue(z#,a#,10)
if downkey()=1 then x#=newxvalue(x#,a#,-10) : z#=newzvalue(z#,a#,-10)
if leftkey()=1 then a#=wrapvalue(a#-10.0)
if rightkey()=1 then a#=wrapvalue(a#+10.0)
rem Positionne la caméra derrière le personnage
cx#=newxvalue(x#,wrapvalue(a#+180),300)
cz#=newzvalue(z#,wrapvalue(a#+180),300)
cy#=get ground height(1,cx#,cz#)+100.0
position camera cx#,cy#,cz#
rem Oriente la caméra vers l'objet
point camera x#,y#,z#
rem collision avec le sol
DISABLE OBJECT zdepth 1
rem fonction sauvegarde et chargement

rem fin de boucle
LOOP