Sorry your browser is not supported!

sync on
x = 320
y = 10


line rnd(640),rnd(480),rnd(640),rnd(480)
line rnd(640),rnd(480),rnd(640),rnd(480)
line rnd(640),rnd(480),rnd(640),rnd(480)

monx# = 320
moninc# = .9
monexist = 1
do

ink rgb(255,255,255),0:line x,y,x,y-10
oldx = x
oldy = y
if spacekey()=1 then attack = 1

ink rgb(255,0,0),0
if monexist = 1 then line monx#,168,monx#,158
if attack = 1 and r = 1 then line x,y-5,x+5,y-5
if attack = 1 and l = 1 then line x,y-5,x-5,y-5
if point(x-1,y) > 0 then y = y - 1 ; stairl = 1
if point(x+1,y) > 0 and stairl = 0 then y = y - 1 ; stairr = 1
if point(x,y+1) < 1 and stairr = 0 and stairl = 0 then y = y + 1
if point(x,y+1) < 1 and stairr = 0 and stairl = 0 then y = y + 1

if leftkey()=1 then x = x - 1 ; l = 1 ; r = 0
if rightkey()=1 then x = x + 1 ; r = 1 ; l = 0

monx# = monx# + moninc#
if monx# > 457 then moninc# = -.9
if monx# < 85 then moninc# = .9

if point(x-1,y) = 16711680 then text 300,240,"GAME OVER"
if point(x+1,y) = 16711680 then text 300,240,"GAME OVER"

if attack = 1 and r = 1 and point(x+6,y-5) = 16711680 then monexist = 0
if attack = 1 and l = 1 and point(x-6,y-5) = 16711680 then monexist = 0

ink 0,0
stairr = 0
stairl = 0
sync
line oldx,oldy,oldx,oldy-10
if attack = 1 then line oldx,oldy-5,oldx+5,oldy-5 ; line oldx,oldy-5,oldx-5,oldy-5

line monx#-moninc#,168,monx#-moninc#,158

attack = 0

loop

Rem * This is the code that loads my level editors levels
LoadLevel("level1",1000,1000)

Rem * Create Player
Load Object "character.x",1
Scale Object 1,500,500,500
Position Object 1,500,get ground height(1,500,500)+50,500

Rem * Create Boxes To Jump On
Make Object Box 2,100,50,100
Position Object 2,500,get ground height(1,500,550)+100,550

Make Object Box 3,100,50,100
Position Object 3,500,get ground height(1,500,550)+100,550

Set Global Collision On
Set Object Collision To Polygons 1

Sync Rate 30
Sync On
Hide Mouse

x#=Object Position x(1)
y#=Object Position y(1)
z#=Object Position z(1)

Do

oldx#=x#
oldy#=y#
oldz#=z#

If Upkey()=1 
x#=newxvalue(x#,Object Angle Y(1),15) 
z#=newxvalue(x#,Object Angle Y(1),15)
Endif

If Downkey()=1 
x#=newxvalue(x#,wrapvalue(Object Angle Y(1)+180),15) 
z#=newxvalue(x#,wrapvalue(Object Angle Y(1)+180),15)
Endif

If Spacekey()=1 and jump=0 then jump=1

If jump=1 then grav#=grav#+25
If grav#=200 then jump=2
If jump=2 then grav#=grav#-25
If grav#=0 then jump=0

Yrotate Object 1,wrapvalue(Object Angle Y+mousemovex())

y#=get ground height(1,x#,z#)+50
y#=y#+grav#

Position Object 1,x#,y#,z#

If Object Collision(1,0)>1
If oldy#>get ground height(1,x#,z#)+50
y#=oldy#
else
x#=oldx#
y#=oldy#
z#=oldz#
endif
endif

Position Object 1,x#,y#,z#

Sync
Loop