Sorry your browser is not supported!

hide mouse
sync on : sync rate 60
randomize timer()

load image "E:\Nut Run\pictures\texture.bmp",1

rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)

rem walls and ground
make object box 2,1000,1,1000
texture object 2,1


make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1


make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1

make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1

make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1

make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1

make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1

make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1

make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1

make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1

make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 1 print
center text 320,15,"Level 1" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
goto L2
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#


inc count
if count=30
for c = 2 to 12
which=rnd(5)
if which=0 then set object emissive c,RGB(255,0,0)
if which=1 then set object emissive c,RGB(0,255,0)
if which=2 then set object emissive c,RGB(0,0,255)
if which=3 then set object emissive c,RGB(255,255,0)
if which=4 then set object emissive c,RGB(0,255,255)
if which=5 then set object emissive c,RGB(255,0,255)
next c
if count=30 then count=0

ENDIF

sync
loop

L2:
print "hi"
wait key