Sorry your browser is not supported!

` PLAYER
MAKE OBJECT SPHERE 1, 50

` BOX
MAKE OBJECT BOX 2, 200, 20, 50
POSITION OBJECT 2, SCREEN WIDTH()/2, 100, 500

` MATRIX
MAKE MATRIX 1, 1000,1000,25,25

DO

` CAMERA SETTING
SET CAMERA TO FOLLOW OBJECT POSITION X(1),OBJECT POSITION Y(1), OBJECT POSITION Z(1), 0, 300, 150, 10, 0

` JUMP
IF SPACEKEY()=1 AND Jumping#=0 THEN Jump#=1
IF Jump#=1
Jumping#=1
Ground#=OBJECT POSITION Y(1)
JumpS# = 3
Jump#=0
endif

IF Jumping#=1
DEC JumpS#,.01
POSITION OBJECT 1, OBJECT POSITION X(1), OBJECT POSITION Y(1)+JumpS#, OBJECT POSITION Z(1)
IF OBJECT POSITION Y(1)<=Ground# THEN Jumping#=0
endif

` PLAYER MOVEMENT
IF UPKEY()=1 THEN MOVE OBJECT 1, .5
IF DOWNKEY()=1 THEN MOVE OBJECT 1, -.5
IF LEFTKEY()=1 THEN MOVE OBJECT LEFT 1, .5
IF RIGHTKEY()=1 THEN MOVE OBJECT RIGHT 1, .5


SYNC

LOOP

Set Display Mode 1280,1024,32
Sync On : Sync Rate 0


Gravity# = 0.5

Make Object Sphere 1,5        : Move Object Up 1,20
Make Object Box    2,100,5,5
Make Object Box    3,5,0.1,5  : Move Object Right 3,5  : Move Object Up 3,5
Make Object Box    4,5,0.1,5  : Move Object Right 4,10 : Move Object Up 4,10
Make Object Box    5,5,0.1,5  : Move Object Right 5,15 : Move Object Up 5,15
Make Object Box    6,5,0.1,5  : Move Object Right 6,20 : Move Object Up 6,20
Make Object Box    7,5,0.1,5  : Move Object Right 7,25 : Move Object Up 7,25
Make Object Box    8,5,0.1,5  : Move Object Right 8,30 : Move Object Up 8,30

Automatic Object Collision 1,2.5,1
Position Camera 0,20,-50

Do

  Move Object Down 1,Gravity#                    : calculate automatic collision : ` Basic Gravity
  If  LeftKey() = 1 Then Move Object Left  1,0.5 : calculate automatic collision : ` Moving Left
  If RightKey() = 1 Then Move Object Right 1,0.5 : calculate automatic collision : ` Moving Right

` Basic Jumping
  If SpaceKey() = 1 And Jump = 0 Then Jump = 1 : JumpVal = 0
  If Jump = 1 : Inc JumpVal,1 : Move Object Up 1,Gravity#*2 : Calculate Automatic Collision : If JumpVal = 10 : Jump = 2 : EndIf : EndIf
  If Jump = 2 : Dec JumpVal,1 : If JumpVal = 0 : Jump = 0 : EndIf : EndIf


Sync : Loop

` PLAYER
MAKE OBJECT SPHERE 1, 50

` BOX
MAKE OBJECT BOX 2, 200, 20, 50
POSITION OBJECT 2, SCREEN WIDTH()/2, 100, 500

` MATRIX
MAKE MATRIX 1, 1000,1000,25,25

AUTOMATIC OBJECT COLLISION 1,50,1

DO

` CAMERA SETTING
SET CAMERA TO FOLLOW OBJECT POSITION X(1),OBJECT POSITION Y(1), OBJECT POSITION Z(1), 0, 300, 150, 10, 0

` JUMP
IF SPACEKEY()=1 AND Jumping#=0 THEN Jump#=1
IF Jump#=1
Jumping#=1
Ground#=OBJECT POSITION Y(1)
JumpS# = 3
Jump#=0
endif

IF Jumping#=1
DEC JumpS#,.01
POSITION OBJECT 1, OBJECT POSITION X(1), OBJECT POSITION Y(1)+JumpS#, OBJECT POSITION Z(1)
IF OBJECT POSITION Y(1)<=Ground# THEN Jumping#=0
endif

` PLAYER MOVEMENT
IF UPKEY()=1 THEN MOVE OBJECT 1, .5
IF DOWNKEY()=1 THEN MOVE OBJECT 1, -.5
IF LEFTKEY()=1 THEN MOVE OBJECT LEFT 1, .5
IF RIGHTKEY()=1 THEN MOVE OBJECT RIGHT 1, .5


SYNC

LOOP