Sorry your browser is not supported!

Sync On
Sync Rate 30
Hide mouse
Backdrop on
color backdrop rgb(128,128,128)
Set camera range 1,2000
position camera 5000,5000,1
fog on
fog distance 1000
fog color rgb(128,128,128)

Rem make matrix
Make matrix 1,5000,5000,20,20

Rem texture matrix
Load image "grass.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Make Head
Make object sphere 1,3
position object 1,0,-4,15
Lock object on 1
color object 1, rgb(202,128,54)
set object collision to boxes 1
rem make body
Make object cylinder 3,25
scale object 3, 25,50,10
position object 3,0,-17,30
Lock object on 3
color object 3, rgb(255,0,0)
SET OBJECT COLLISION ON 3
set object collision to boxes 3

Rem arm left
Make object cylinder 4,25
scale object 4, 5,25,5
position object 4,-3,-14.5,30
Lock object on 4
color object 4, rgb(255,255,255)
set object collision to boxes 4
Rem arm right
Make object cylinder 5,25
scale object 5, 5,25,5
position object 5,3,-14.5,30
Lock object on 5
color object 5, rgb(255,255,255)
set object collision to boxes 5
Rem make scenery, big city corp build.
make object box 6,500,750,500
position object 6,2500,375,2500
load image "bottomwindows.jpg",1
texture object 6,1
SET OBJECT COLLISION ON 6
set object collision to boxes 6
rem terrace
make object box 7,1000,400,500
position object 7,2500,200,5000
load image "bank.jpg",4
texture object 7,4
set object collision to boxes 7
rem terrace
make object box 8,1000,400,500
position object 8,3500,200,5000
load image "terrace.jpg",2
texture object 8,2
set object collision to boxes 8
rem terrace
make object box 9,1000,400,500
position object 9,4500,200,5000
texture object 9,2
set object collision to boxes 9
rem terrace
make object box 10,1000,400,500
position object 10,1500,200,5000
texture object 10,2
set object collision to boxes 10
rem terrace
make object box 11,1000,400,500
position object 11,500,200,5000
texture object 11,2
set object collision to boxes 11
rem terrace path
Make matrix 2,5000,250,40,1
position matrix 2,0,1,4500
Load image "cobbles.bmp",5
Prepare matrix texture 2,5,5,1
Fill matrix 2,0,5
rem tree
make object cylinder 12,100
scale object 12,30,300,30
position object 12,100,50,4575
load image "wood.bmp", 6
texture object 12,6
set object collision to boxes 12
make object sphere 13, 150
position object 13, 100,150,4575
load image "shrub.bmp", 7
texture object 13,7

rem tree
make object cylinder 14,100
scale object 14,30,300,30
position object 14,600,50,4575
load image "wood.bmp", 6
texture object 14,6
set object collision to boxes 14
make object sphere 15, 150
position object 15, 600,150,4575
load image "shrub.bmp", 7
texture object 15,7
rem tree
make object cylinder 16,100
scale object 16,30,300,30
position object 16,1100,50,4575
load image "wood.bmp", 6
texture object 16,6
set object collision to boxes 16
make object sphere 17, 150
position object 17, 1100,150,4575
load image "shrub.bmp", 7
texture object 17,7




Rem Load music/sound fx and loop


Rem Main loop
Do
   OldCamAngleY# = CameraAngleY#
   OldCamAngleX# = CameraAngleX#
   CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)


   Rem  Control input for camera
oldx# = x# : oldz# = z#

   If Upkey()=1
      XTest# = Newxvalue(X#,CameraAngleY#,10)
      ZTest# = Newzvalue(Z#,CameraAngleY#,10)
      If XTest#>0 and XTest#<5000 and ZTest#>0 and ZTest#<5000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

   If Downkey()=1
      XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10)
      ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10)
      If XTest#>0 and XTest#<5000 and ZTest#>0 and ZTest#<5000
         X#=XTest#
         Z#=ZTest#
      Endif
   Endif

If Leftkey()=1
   XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
   ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
   If XTest#>0 and XTest#<5000 and ZTest#>0 and ZTest#<5000
      X#=XTest#
      Z#=ZTest#
   Endif
Endif

If Rightkey()=1
   XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
   ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
   If XTest#>0 and XTest#<5000 and ZTest#>0 and ZTest#<5000
      X#=XTest#
      Z#=ZTest#
   Endif
Endif

If Object collision(3,0)=1 then x# = oldx# : z# = oldz#

if Mouseclick()=1 and BulletLife=0
   Position object 2,X#,Y#+43,Z#
   Set object to camera orientation 2
   BulletLife =25
   Show object 2
   Loop sound 2
Endif


   Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
   Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

   Y# = Get ground height(1,X#,Z#)
   Position Camera X#,Y#+50,Z#


Rem Rotate camera
if CameraAngleX#>270
   if CameraAngleX#-270 > 90 then CameraAngleX#=270
else
   if CameraAngleX# > 90 and CameraAngleX#-270<270 then CameraAngleX#=270
endif

Rem Position Listener
Position Listener X#,Y#+50,Z#
Rotate Listener 0,cameraAngleY#,0

YRotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)
XRotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

Rem stops the camera looking too far up or down
if CameraAngleX# > 90 and CameraAngleX# > 0 and CameraAngleX# < 200
   CameraAngleX# = 90
Else
   if CameraAngleX# < 270 and CameraAngleX# < 360 and CameraAngleX# > 200
      CameraAngleX# = 270
   Endif
Endif




Rem Refresh Screen
   Sync
Loop

object collision(id,0)=coll#