Sorry your browser is not supported!

SYNC ON
SYNC RATE 60
HIDE MOUSE

gunOffsetX AS FLOAT = 15.0
gunOffsetY AS FLOAT = -20.0
gunOffsetZ AS FLOAT = 20.0

MAKE OBJECT CUBE 1,10
HIDE OBJECT 1

MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1

MAKE OBJECT BOX 2,10,10,100
GLUE OBJECT TO LIMB 2,1,1

Make matrix 1,5000,5000,50,50
Load image "grass09.bmp",1
Prepare matrix texture 1,1,1,1
fill matrix 1,0,1

xPos AS FLOAT
zPos AS FLOAT
speed AS FLOAT = 10.0

xLook AS FLOAT
yAng AS FLOAT
lookSpeed AS FLOAT = 0.2

gunBobSpeed AS FLOAT = 6.0
gunBobMove AS FLOAT = 3.0
gunBobHeight AS FLOAT = 1.5

gunBobAng AS FLOAT
gunTurnAng AS FLOAT
gunLookAng AS FLOAT

mouseMovementX AS FLOAT
mouseMovementY AS FLOAT

DO

   mouseMovementX = MOUSEMOVEX()
   mouseMovementY = MOUSEMOVEY()

   IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
      IF UPKEY() = 1
         INC xPos,SIN(yAng)*speed
         INC zPos,COS(yAng)*speed
      ENDIF

      IF DOWNKEY() = 1
         DEC xPos,SIN(yAng)*speed
         DEC zPos,COS(yAng)*speed
      ENDIF

      IF RIGHTKEY() = 1
         INC xPos,COS(yAng)*speed
         INC zPos,-SIN(yAng)*speed
      ENDIF

      IF LEFTKEY() = 1
         DEC xPos,COS(yAng)*speed
         DEC zPos,-SIN(yAng)*speed
      ENDIF

      gunBobAng = WRAPVALUE(gunBobAng+gunBobSpeed)
   ELSE
      gunBobAng = CURVEANGLE(0,gunBobAng,10)
   ENDIF

   gunTurnAng = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng,10)
   gunLookAng = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng,10)

   OFFSET LIMB 1,1,gunOffsetX+SIN(gunBobAng)*gunBobMove,gunOffsetY+ABS(COS(gunBobAng))*gunBobHeight,gunOffsetZ
   ROTATE LIMB 1,1,gunLookAng,gunTurnAng,0

   yAng = WRAPVALUE(yAng + mouseMovementX*lookSpeed)
   xLook = WRAPVALUE(xLook + mouseMovementY*lookSpeed)

   POSITION OBJECT 1,xPos,100,zPos
   ROTATE OBJECT 1,0,yAng,0
   PITCH OBJECT DOWN 1,xLook
   POSITION CAMERA xPos,100,zPos
   ROTATE CAMERA xLook,yAng,0
   SYNC
LOOP

rem standard setup, don't need to pay attention to this
sync on
sync rate 60
cls
x=100
y=100
load image "myimage.bmp",1
sprite 1, x,y,1
do
if upkey()=1 y=y-1
if downkey()=1 y=y+1
if leftkey()=1 x=x-1
if rightkey()=1 x=x+1
sprite 1,x,y,1
loop