hi
here is the update i promist.
now you have to be careful
dont hit the gray boxes the you will lose
it's not a big update cuse im working on a big game so i don't have the time to make this one better
have fun
rem ********* a smal game***********
rem **********14,36*****************
rem ***********26,02****************
sync on
sync rate 150
disable escapekey
make directory "C:/Claustrophobia"
set dir "C:/Claustrophobia"
gosub camera
start:
y#=50
endx#=200
endz#=250
gosub player
gosub make_boxs
gosub label
gosub color_back
gosub loop_go
make_boxs:
if object exist (51)
delete object 51
endif
make object box 51,10,10,10
position object 51,-100,-100,-100
for h=52 to 56
if object exist (h)
delete object h
endif
make object box h, 3,3,3
position object h, rnd(150),0,rnd(200)
color object h, rgb(50,50,50)
next h
for x= 3 to 50
if object exist (x)
delete object x
endif
make object box x, 3,3,3
position object x, rnd(150),0,rnd(200)
color object x, rgb(255,0,0)
next x
y#=50
return
player:
if object exist (2)
delete object 2
endif
make object cone 2,10
position object 2,50,2,50
color object 2,RGB(69,216,27)
return
camera:
make camera 1
rotate camera 1,90,0,0
position camera 1,100,170,100
return
label:
score#=0
timer#=10
live#=1
return
color_back:
color backdrop 1,RGB(0,0,0)
return
loop_go:
do
dec live#,0.01
dec timer#,0.01
if object exist (1)
delete object 1
endif
set cursor 0,1
set text opaque
dec endx#, 0.01
dec endz#, 0.01
make object box 1,endz#,0,endx#
position object 1,100,0,100
rem show boxx
for y= 3 to 50
if object exist (y)
if object collision (2,y)
score#=score#+1
delete object y
y#=y#-1
endif
endif
next y
for a= 52 to 56
if object exist (a)
if object collision (2,a)
position object 2,-100,-100,-100
endif
endif
next a
rem end
if object collision(2,51)
enable escapekey
print " you loser"
print " you total hight score is:";score#
print " pres r to restart"
print " pres Esc to quit"
endif
rem control player
if keystate(200):move object 2,1:endif
if keystate(208)
move object 2,-1
endif
if keystate(205)
move object left 2,-1
endif
if keystate(203)
move object left 2,1
endif
if object collision(2,51)
if inkey$()="r"
gosub start
endif
endif
if live#>0
set cursor 0,0
print "score :";score#
print " timer :";int(timer#)
endif
if object collision (2,1)
inc live#,0.01
endif
if live#<1
position object 2,-100,-100,-100
endif
if object size z(1)<10
end
endif
if timer#<1
gosub make_boxs
timer#=10
endif
sync
loop
Edit: and my score with the new update is on 82
be what you can't be.
