Sorry your browser is not supported!

Rem Project: War of the machines
Rem Created: 4/17/2008 4:16:20 PM

Rem ***** Main Source File *****
`SET UP GAME
SYNC ON
SYNC RATE 60
SET DISPLAY MODE 640,480,32,1
`START PHYSICS ENGINE
PHY START
`START A.I. ENGINE
AI START
`AMOUNT OF WEAPONS HOLDING
`WEAPONS HOLDING
`WEAPONS EQUIPPED
`LOAD LEVEL1
LOAD OBJECT "testlevel.dbo",1:POSITION OBJECT 1,-10,0,10
PHY MAKE RIGID BODY STATIC TERRAIN 1
`LOAD PLAYER
LOAD OBJECT "Colonel-X.x",2:POSITION OBJECT 2,0,5,0:YROTATE OBJECT 2,90
PHY MAKE RIGID BODY DYNAMIC MESH 2
AI ADD PLAYER 2
`SETUP ANIMATIONS
oacID = EnAn_oacCreate(2)
time = timer()
`LOAD ANIMATIONS
EnAn_ObjExtractAnimation 2,"ANIMATION.ANIM",0,-1
AnimID = EnAn_AnimLoad ("ANIMATION.ANIM")
`SET UP CAMERA
`PLAYER CONTROLS
`START LOOP
DO
`CAMERA
X#=OBJECT POSITION X(2)
Y#=OBJECT POSITION Y(2)+500
Z#=OBJECT POSITION Z(2)
POSITION CAMERA X#,Y#,Z#
POINT CAMERA X#,90,Z#
`MOVEMENTS
IF UPKEY()=1
EnAn_oacSetLimbTransAnimSpeed oacID,1,-25,0
EnAn_oacAnimTransition oacID,1,AnimID,235,235,259,700,1,0
MOVE OBJECT 2,-3
ENDIF

IF DOWNKEY()=1
EnAn_oacSetLimbTransAnimSpeed oacID,1,25,0
EnAn_oacAnimTransition oacID,1,AnimID,235,235,259,700,1,0
MOVE OBJECT 2,3
ENDIF

IF LEFTKEY()=1
TURN OBJECT LEFT 2,5
ENDIF

IF RIGHTKEY()=1
TURN OBJECT RIGHT 2,5
ENDIF

IF UPKEY()=0 AND DOWNKEY()=0 AND LEFTKEY()=0 AND RIGHTKEY()=0
EnAn_oacAnimTransition oacID,1,AnimID,210,210,234,700,0,0
ENDIF
`END LOOP
elapsedTime = timer() - time
time = timer()
EnAn_oacUpdate oacID,elapsedTime

PHY UPDATE

AI UPDATE

SYNC
LOOP

Function playAnimation(Link,obj,Anim)
   for l = 1 to EnAn_ObjTotalLimbs(obj)
      EnAn_oacAnimTransition Link, l, anim,0,0,-1,1000,1,0
   next l
ENDFUNCTION