Okay. This is a small game I made, and basically you control a ball with the mouse (it goes to the mouse) and the objective is to cruise around not hit any blocks, surviving for as long as you can. If you hit a block, then you lose. Also, the ball speeds up overtime, so see how long you can last! Your ball will drop blocks (they disappear after a long time) and you can't hit those either. You can jump, but you have limited jumps and you gain a new jump every 50 points.
The code is very disorganized because this was originally going to be something else. Anyway, it uses shadow shading so you'll shader support, I think. The shadows can be turned off though. You will need no media, so you can just copy, paste, and run. Good luck!
Here are some screenshots. Maybe I'll add the ability to change the time of day later (no time now)
This one has motion blur. If you don't like it you can turn it off via the variable at the top of the code.
This is before the blur kicks in.
And, here's the code:
Version-- 1.0
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))))))
rem
rem DO NOT HIT ANY BLOCKS!
rem Created with Dark Basic Professional Version 6.3.
rem
rem CREATED BY SIXTY SQUARES.
rem
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))))))
rem Change to 0 to disable shadows (Shadows make it look better and they're easier on the eyes.)
Shadows=1
rem Change to 0 to disable motion blur.
MotionBlur=1
GOSUB GAME_SETUP
GOSUB Instructions
GOSUB Make_Images
GOSUB Make_Everything
do
GOSUB SPECIAL
GOSUB Control_Other_Player_Stuff
GOSUB VISUALS
GOSUB CONTROL_PLAYER
GOSUB CAMERA
GOSUB Control_Other1
sync
loop
rem ********************************
rem
rem GAME SETUP!
rem
rem ********************************
Game_Setup:
sync on
sync rate 60
Autocam off
randomize Timer()
ResolutionMode=0
if ResolutionMode=0
set display mode 640,480,32
else
set display mode 1024,780,32
endif
hide mouse
return
rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
rem
rem CONTROL OTHER PLAYER STUFF
rem
rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Control_Other_Player_Stuff:
position light 1,Object position x(player),object position y(player)+40,object position z(player)
if inkey$()="p"
ox=mousex()
oy=mousey()
repeat
CENTER TEXT Screen widtH()/2,Screen height()/2,"SCORE: "+Str$(SCORE)
CENTER TEXT Screen widtH()/2,Screen height()/2+70,"SECONDS SURVIVED: "+Str$(SecSurvived)
sync
until returnkey()
position mouse ox,oy
endif
for o = 100 to 500
if object exist(o)
if object collision(player,o)>0
GOSUB LOSE
endif
endif
next o
if Object position x(player)<Size*-1 or object position x(Player)>Size*11 or Object position z(player)<Size*-1 or object position z(Player)>Size*11
GOSUB LOSE
endif
for l = 1200 to 1500
if object collision(player,l)=0 and object visible(l)=1 then Ready(l)=1
if object collision(player,l)>0 and Ready(l)=1
GOSUB LOSE
endif
next l
return
rem ===========================================
rem
rem MAKE EVERYTHING
rem
rem ===========================================
Make_Everything:
make object sphere Player,10
color object Player,rgB(255,0,0)
o=100
Size=200
LX#=Size*5
LY#=Size*5
LZ#=Size*5
if Shadows>0 then set shadow light 0,LX#,LY#,LZ#,10000
position light 0,LX#,LY#,LZ#
if Shadows>0 then set global shadow color 0,0,0,150
for x = 0 to 10
for y = 0 to 10
MAKE OBJECT cube o,Size/2
position object o,x*Size,0,y*Size
color object o,rgb(rnd(255),rnd(255),rnd(255))
texture object o,2+rnd(2)
if shadows>0 then set shadow shading on o,-1,Size,1
set object diffuse o,rgb(rnd(255),rnd(255),rnd(255))
inc o
next y
next x
if Shadows>0 then set shadow shading on 1,-1,Size,1
Make object box 1000,Size*20,Size*1.5,2
Make object box 1001,2,Size*1.5,Size*20
clone object 1002,1000
clone object 1003,1001
position object 1000,Size*5,0,Size*11
position object 1001,Size*11,0,Size*5
position object 1002,Size*5,0,-1*Size
position object 1003,Size*-1,0,Size*5
position object Player,-0.5*Size,0,-0.5*Size
acl#=0.04
rem Make Explode Cubes
for o = 5000 to 5050
make object cube o,10
texture object o,2+rnd(2)
set object diffuse o,rgb(rnd(255),rnd(255),rnd(255))
position object o,9999999,9999999,9999999
next o
remstart
Make object box 10000,Size*50,1,Size*50
position object 10000,10*Size,-5,10*Size
texture object 10000,2
scale object texture 10000,70,70
remend
MAKE MATRIX 1,Size*50,Size*50,70,70
position matrix 1,-10*Size,-5,-10*Size
prepare matrix texture 1,1,1,1
for o = 1000 to 1003
texture object o,3
scale object texture o,50,5
if Shadows>0 then set shadow shading on o,-1,1000,1
next o
for l = 1200 to 1500
make object box l,10,2,10
hide object l
set object ambient l,0
set object transparency l,1
next l
CL=1200
set text size 32
JumpNum=3
if TOD=1
r=255
g=255
b=155
endif
if TOD=2
r=255
g=155
b=0
endif
if TOD=3
r=20
g=20
b=100
endif
if TOD=4
r=0
g=0
b=0
endif
color light 0,rgb(r,g,b)
`color ambient light rgb(r,g,b)
color ambient light rgb(r,g,b)
make light 1
set light range 1,Size*3
color light 1,rgb(255,255,155)
position mouse Screen WidtH()/2,Screen height()/2-100
Ooldtimer=Timer()/1000
OldTimer=Timer()/200
return
rem *****************************
rem
rem INSTRUCTIONS
rem
rem *****************************
Instructions:
set text font "Comic Sans MS"
set text size 20
ink rgb(255,0,0),0
Say("The Object of the game is simple. Don't hit any blocks, even those that you create.")
cls
set text size 16
Say("Direct the ball with the MOUSE. CLICK to jump. You have limited jumps. Press P to pause, and ENTER to continue.")
set text size 20
position camera 0,900,0
`set camera range 1,10000
global Player=1
DIM Ready(1500)
while scancode()>0
endwhile
cls
do
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"CHOOSE A TIME OF DAY."
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+40,"D=Daytime"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+80,"S=Sunset"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+120,"N=Nighttime"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+160,"M=Midnight"
if lower$(inkey$())="d" then TOD=1 : exit
if lower$(inkey$())="s" then TOD=2 : exit
if lower$(inkey$())="n" then TOD=3 : exit
if lower$(inkey$())="m" then TOD=4 : exit
sync
loop
cls
sync : box 0,0,Screen width(),Screen height(),rgb(55,55,55),0,rgb(255,255,255),0 : center text screen width()/2,screen height()/2,"LOADING GAME. PLEASE WAIT." : sync
CameraHeight#=Size*2
return
rem ******************************
rem
rem MAKE IMAGES
rem
rem ******************************
Make_Images:
CREATE BITMAP 1,100,100
lock pixels
g=255
for d = 1 to 20000
c=rnd(g)
ink rgb(c,c,c),0
line rnd(100),rnd(100),rnd(100),rnd(100)
next d
unlock pixels
get image 1,0,0,100,100
delete bitmap 1
for i = 2 to 4
create bitmap 1,100,100
for d = 1 to 5000
c=rnd(255)
ink rgb(c,c,c),0
circle rnd(100),rnd(100),2
next d
get image i,0,0,100,100
delete bitmap 1
next i
return
rem **************************
rem
rem CAMERA
rem
rem **************************
Camera:
cameramode=0
if cameramode=0
position camera Object position x(1),object position y(1)+CameraHeight#,Object position z(1)
`yrotate camera curveangle(OBJECT ANGLE Y(PLAYER),Camera angle y(),20)
xrotate camera 90
else
SET CAMERA TO FOLLOW OBJECT POSITION X(player),0,object position z(player),object angle y(player),25,object position y(player)+100,3.5,0
point camera Object position x(player),object position y(player),object position z(player)
endif
CameraHeight#=CameraHeight#+Mousemovez()/-8
CameraHeight#=CameraHeight#-4*(Upkey()-Downkey())
if CameraHeight#<Size then CameraHeight#=Size
if CameraHeight#>Size*3 then CameraHeight#=Size*3
return
rem **************************
rem
rem CONTROL OTHER 1
rem
rem **************************
Control_Other1:
if bob<=0
inc SCORE
inc speed#,acl#
bob=1
position object CL,object position x(1),object position y(1),object position z(1)
show object cl
color object cl,rgb(rnd(255),rnd(255),rnd(255))
`texture object cl,6
Ready(cl)=0
inc cl
if cl>1500 then cl=1200
endif
for l = 1200 to 1500
yrotate object l,wrapvalue(object angle y(l)+5)
xrotate object l,wrapvalue(object angle x(l)+1)
next l
if Timer()/200>OldTimer then OldTimer=Timer()/200 : dec bob
if Timer()/1000>OoldTimer then OoldTimer=Timer()/1000 : inc SecSurvived
return
rem *************************
rem
rem SPECIAL
rem
rem *************************
Special:
rem Motion blur
set camera to image 0,100,screen width(),screen height()
sprite 1,0,0,100
size sprite 1,Screen width(),screen height()
set sprite 1,0,1
alpha=255
if speed#>=4 and MotionBlur=1 then alpha=160 else alpha=255
set sprite alpha 1,alpha
hide sprite 1
paste sprite 1,0,0
for o = 5000 to 5050
move object o,10
next o
return
rem **************************
rem
rem VISUALS
rem
rem **************************
VISUALS:
ink rgb(0,255,0),0 : line OBJECT SCREEN X(player),object screen y(player),mousex(),mousey()
ink rgb(0,0,255),0
circle mousex(),mousey(),6
line mousex()-12,mousey(),mousex()+12,mousey()
line mousex(),mousey()+12,mousex(),mousey()-12
ink rgb(255,0,0),0
text 0,0,"SCORE: "+str$(score)
ink rgb(0,255,0),0
text 0,40,"# OF JUMPS LEFT: "+Str$(JumpNum)
return
rem ***************************
rem
rem CONTROL PLAYER
rem
rem ***************************
Control_Player:
Move object Player,Speed#
Pick Screen mousex(),mousey(),camera position y()
point object Player,Camera position x()+GET PICK VECTOR X(),object position y(PLAYER),CAMERA POSITION Z()+GET PICK VECTOR Z()
`yrotate object Player,object angle y(Player)+4*(rightkey()-leftkey())
dec Gravity#,0.1
if object position y(player)+Gravity#<=0 then Gravity#=0.0
if mouseclick()=1 and JumpNum>0 and Gravity#=0.0 then Gravity#=5.0 : JumpNum=JumpNum-1
POSITION OBJECT PLAYER,object position x(player),object position y(player)+Gravity#,object position z(player)
if Score>=OldScore+50 then OldScore=Score :inc JumpNum,1
if JumpNum>10 then JumpNum=10
return
rem *************************
rem
rem LOSE
rem
rem *************************
Lose:
hide object Player
backdrop off
set text size 30
while mouseclick()>0 or returnkey()>0
endwhile
for o = 5000 to 5050
position object o,Object position x(player),object position y(player),object position z(player)
rotate object o,rnd(360),rnd(360),0
next o
while mouseclick()<2 and returnkey()=0
Gosub special
ink rgb(0,255,0),0
text 0,screen height()/2,"YOU SCORED "
ink rgb(155,0,255),0
Text TEXT WIDTH("YOU SCORED "),Screen height()/2,str$(Score)
ink rgb(0,255,0),0
Text TEXT WIDTH("YOU SCORED "+str$(Score)),Screen height()/2," POINTS!"
ink rgb(255,255,255),0
text 0,180,"RESULTS"
ink rgb(0,255,0),0
text 0,screen height()/2+70,"YOU LASTED FOR "
ink rgb(155,0,255),0
Text TEXT WIDTH("YOU LASTED FOR "),Screen height()/2+70,str$(SecSurvived)
ink rgb(0,255,0),0
Text TEXT WIDTH("YOU LASTED FOR "+str$(SecSurvived)),Screen height()/2+70," SECONDS!"
sync
endwhile
while mouseclick()>0 or returnkey()>0
endwhile
Score=0
OldScore=0
JumpNum=3
Speed#=0
Gravity#=0.0
position object Player,-0.5*Size,0,-0.5*Size
for l = 1200 to 1500
hide object l
Ready(l)=0
next l
yrotate object Player,0
set text size 32
backdrop on
position mouse Screen WidtH()/2,Screen height()/2-100
show object player
return
rem A FUNCTION.
function Say(t as string)
while mouseclick()>0 or scancode()>0
endwhile
while mouseclick()<2 and scancode()=0
center text screen width()/2,screen height()/2,t
sync
endwhile
while mouseclick()>0 or scancode()>0
endwhile
endfunction
- Includes Time Of Day Settings + a score bug fix
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))))))
rem
rem DO NOT HIT ANY BLOCKS!
rem Created with Dark Basic Professional Version 6.3.
rem
rem CREATED BY SIXTY SQUARES.
rem
rem ))))))))))))))))))))))))))))))))))))))))))))))))))))))))
rem Change to 0 to disable shadows (Shadows make it look better and they're easier on the eyes.)
Shadows=1
rem Change to 0 to disable motion blur.
MotionBlur=1
GOSUB GAME_SETUP
GOSUB Instructions
GOSUB Make_Images
GOSUB Make_Everything
do
GOSUB SPECIAL
GOSUB Control_Other_Player_Stuff
GOSUB VISUALS
GOSUB CONTROL_PLAYER
GOSUB CAMERA
GOSUB Control_Other1
sync
loop
rem ********************************
rem
rem GAME SETUP!
rem
rem ********************************
Game_Setup:
sync on
sync rate 60
Autocam off
randomize Timer()
ResolutionMode=0
if ResolutionMode=0
set display mode 640,480,32
else
set display mode 1024,780,32
endif
hide mouse
return
rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
rem
rem CONTROL OTHER PLAYER STUFF
rem
rem ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Control_Other_Player_Stuff:
position light 1,Object position x(player),object position y(player)+40,object position z(player)
if inkey$()="p"
ox=mousex()
oy=mousey()
repeat
CENTER TEXT Screen widtH()/2,Screen height()/2,"SCORE: "+Str$(SCORE)
CENTER TEXT Screen widtH()/2,Screen height()/2+70,"SECONDS SURVIVED: "+Str$(SecSurvived)
sync
until returnkey()
position mouse ox,oy
endif
for o = 100 to 500
if object exist(o)
if object collision(player,o)>0
GOSUB LOSE
endif
endif
next o
if Object position x(player)<Size*-1 or object position x(Player)>Size*11 or Object position z(player)<Size*-1 or object position z(Player)>Size*11
GOSUB LOSE
endif
for l = 1200 to 1500
if object collision(player,l)=0 and object visible(l)=1 then Ready(l)=1
if object collision(player,l)>0 and Ready(l)=1
GOSUB LOSE
endif
next l
return
rem ===========================================
rem
rem MAKE EVERYTHING
rem
rem ===========================================
Make_Everything:
make object sphere Player,10
color object Player,rgB(255,0,0)
o=100
Size=200
LX#=Size*5
LY#=Size*5
LZ#=Size*5
if Shadows>0 then set shadow light 0,LX#,LY#,LZ#,10000
position light 0,LX#,LY#,LZ#
if Shadows>0 then set global shadow color 0,0,0,150
for x = 0 to 10
for y = 0 to 10
MAKE OBJECT cube o,Size/2
position object o,x*Size,0,y*Size
color object o,rgb(rnd(255),rnd(255),rnd(255))
texture object o,2+rnd(2)
if shadows>0 then set shadow shading on o,-1,Size,1
set object diffuse o,rgb(rnd(255),rnd(255),rnd(255))
inc o
next y
next x
if Shadows>0 then set shadow shading on 1,-1,Size,1
Make object box 1000,Size*20,Size*1.5,2
Make object box 1001,2,Size*1.5,Size*20
clone object 1002,1000
clone object 1003,1001
position object 1000,Size*5,0,Size*11
position object 1001,Size*11,0,Size*5
position object 1002,Size*5,0,-1*Size
position object 1003,Size*-1,0,Size*5
position object Player,-0.5*Size,0,-0.5*Size
acl#=0.04
rem Make Explode Cubes
for o = 5000 to 5050
make object cube o,10
texture object o,2+rnd(2)
set object diffuse o,rgb(rnd(255),rnd(255),rnd(255))
position object o,9999999,9999999,9999999
next o
remstart
Make object box 10000,Size*50,1,Size*50
position object 10000,10*Size,-5,10*Size
texture object 10000,2
scale object texture 10000,70,70
remend
MAKE MATRIX 1,Size*50,Size*50,70,70
position matrix 1,-10*Size,-5,-10*Size
prepare matrix texture 1,1,1,1
for o = 1000 to 1003
texture object o,3
scale object texture o,50,5
if Shadows>0 then set shadow shading on o,-1,1000,1
next o
for l = 1200 to 1500
make object box l,10,2,10
hide object l
set object ambient l,0
set object transparency l,1
next l
CL=1200
set text size 32
JumpNum=3
if TOD=1
r=255
g=255
b=155
endif
if TOD=2
r=255
g=155
b=0
endif
if TOD=3
r=20
g=20
b=100
endif
if TOD=4
r=0
g=0
b=0
endif
color light 0,rgb(r,g,b)
`color ambient light rgb(r,g,b)
color ambient light rgb(r,g,b)
make light 1
set light range 1,Size*3
color light 1,rgb(255,255,155)
position mouse Screen WidtH()/2,Screen height()/2-100
Ooldtimer=Timer()/1000
OldTimer=Timer()/200
return
rem *****************************
rem
rem INSTRUCTIONS
rem
rem *****************************
Instructions:
set text font "Comic Sans MS"
set text size 20
ink rgb(255,0,0),0
Say("The Object of the game is simple. Don't hit any blocks, even those that you create.")
cls
set text size 16
Say("Direct the ball with the MOUSE. CLICK to jump. You have limited jumps. Press P to pause, and ENTER to continue.")
set text size 20
position camera 0,900,0
`set camera range 1,10000
global Player=1
DIM Ready(1500)
while scancode()>0
endwhile
cls
do
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"CHOOSE A TIME OF DAY."
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+40,"D=Daytime"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+80,"S=Sunset"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+120,"N=Nighttime"
CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2+160,"M=Midnight"
if lower$(inkey$())="d" then TOD=1 : exit
if lower$(inkey$())="s" then TOD=2 : exit
if lower$(inkey$())="n" then TOD=3 : exit
if lower$(inkey$())="m" then TOD=4 : exit
sync
loop
cls
sync : box 0,0,Screen width(),Screen height(),rgb(55,55,55),0,rgb(255,255,255),0 : center text screen width()/2,screen height()/2,"LOADING GAME. PLEASE WAIT." : sync
CameraHeight#=Size*2
return
rem ******************************
rem
rem MAKE IMAGES
rem
rem ******************************
Make_Images:
CREATE BITMAP 1,100,100
lock pixels
g=255
for d = 1 to 20000
c=rnd(g)
ink rgb(c,c,c),0
line rnd(100),rnd(100),rnd(100),rnd(100)
next d
unlock pixels
get image 1,0,0,100,100
delete bitmap 1
for i = 2 to 4
create bitmap 1,100,100
for d = 1 to 5000
c=rnd(255)
ink rgb(c,c,c),0
circle rnd(100),rnd(100),2
next d
get image i,0,0,100,100
delete bitmap 1
next i
return
rem **************************
rem
rem CAMERA
rem
rem **************************
Camera:
cameramode=0
if cameramode=0
position camera Object position x(1),object position y(1)+CameraHeight#,Object position z(1)
`yrotate camera curveangle(OBJECT ANGLE Y(PLAYER),Camera angle y(),20)
xrotate camera 90
else
SET CAMERA TO FOLLOW OBJECT POSITION X(player),0,object position z(player),object angle y(player),25,object position y(player)+100,3.5,0
point camera Object position x(player),object position y(player),object position z(player)
endif
CameraHeight#=CameraHeight#+Mousemovez()/-8
CameraHeight#=CameraHeight#-4*(Upkey()-Downkey())
if CameraHeight#<Size then CameraHeight#=Size
if CameraHeight#>Size*3 then CameraHeight#=Size*3
return
rem **************************
rem
rem CONTROL OTHER 1
rem
rem **************************
Control_Other1:
if bob<=0
inc SCORE
inc speed#,acl#
bob=1
position object CL,object position x(1),object position y(1),object position z(1)
show object cl
color object cl,rgb(rnd(255),rnd(255),rnd(255))
`texture object cl,6
Ready(cl)=0
inc cl
if cl>1500 then cl=1200
endif
for l = 1200 to 1500
yrotate object l,wrapvalue(object angle y(l)+5)
xrotate object l,wrapvalue(object angle x(l)+1)
next l
if Timer()/200>OldTimer then OldTimer=Timer()/200 : dec bob
if Timer()/1000>OoldTimer then OoldTimer=Timer()/1000 : inc SecSurvived
return
rem *************************
rem
rem SPECIAL
rem
rem *************************
Special:
rem Motion blur
set camera to image 0,100,screen width(),screen height()
sprite 1,0,0,100
size sprite 1,Screen width(),screen height()
set sprite 1,0,1
alpha=255
if speed#>=4 and MotionBlur=1 then alpha=160 else alpha=255
set sprite alpha 1,alpha
hide sprite 1
paste sprite 1,0,0
for o = 5000 to 5050
move object o,10
next o
return
rem **************************
rem
rem VISUALS
rem
rem **************************
VISUALS:
ink rgb(0,255,0),0 : line OBJECT SCREEN X(player),object screen y(player),mousex(),mousey()
ink rgb(0,0,255),0
circle mousex(),mousey(),6
line mousex()-12,mousey(),mousex()+12,mousey()
line mousex(),mousey()+12,mousex(),mousey()-12
ink rgb(255,0,0),0
text 0,0,"SCORE: "+str$(score)
ink rgb(0,255,0),0
text 0,40,"# OF JUMPS LEFT: "+Str$(JumpNum)
return
rem ***************************
rem
rem CONTROL PLAYER
rem
rem ***************************
Control_Player:
Move object Player,Speed#
Pick Screen mousex(),mousey(),camera position y()
point object Player,Camera position x()+GET PICK VECTOR X(),object position y(PLAYER),CAMERA POSITION Z()+GET PICK VECTOR Z()
`yrotate object Player,object angle y(Player)+4*(rightkey()-leftkey())
dec Gravity#,0.1
if object position y(player)+Gravity#<=0 then Gravity#=0.0
if mouseclick()=1 and JumpNum>0 and Gravity#=0.0 then Gravity#=5.0 : JumpNum=JumpNum-1
POSITION OBJECT PLAYER,object position x(player),object position y(player)+Gravity#,object position z(player)
if Score>=OldScore+50 then OldScore=Score :inc JumpNum,1
if JumpNum>10 then JumpNum=10
return
rem *************************
rem
rem LOSE
rem
rem *************************
Lose:
hide object Player
backdrop off
set text size 30
while mouseclick()>0 or returnkey()>0
endwhile
for o = 5000 to 5050
position object o,Object position x(player),object position y(player),object position z(player)
rotate object o,rnd(360),rnd(360),0
next o
while mouseclick()<2 and returnkey()=0
Gosub special
ink rgb(0,255,0),0
text 0,screen height()/2,"YOU SCORED "
ink rgb(155,0,255),0
Text TEXT WIDTH("YOU SCORED "),Screen height()/2,str$(Score)
ink rgb(0,255,0),0
Text TEXT WIDTH("YOU SCORED "+str$(Score)),Screen height()/2," POINTS!"
ink rgb(255,255,255),0
text 0,180,"RESULTS"
ink rgb(0,255,0),0
text 0,screen height()/2+70,"YOU LASTED FOR "
ink rgb(155,0,255),0
Text TEXT WIDTH("YOU LASTED FOR "),Screen height()/2+70,str$(SecSurvived)
ink rgb(0,255,0),0
Text TEXT WIDTH("YOU LASTED FOR "+str$(SecSurvived)),Screen height()/2+70," SECONDS!"
sync
endwhile
while mouseclick()>0 or returnkey()>0
endwhile
Score=0
SecSurvived=0
OldScore=0
JumpNum=3
Speed#=0
Gravity#=0.0
position object Player,-0.5*Size,0,-0.5*Size
for l = 1200 to 1500
hide object l
Ready(l)=0
next l
yrotate object Player,0
set text size 32
backdrop on
position mouse Screen WidtH()/2,Screen height()/2-100
show object player
return
rem A FUNCTION.
function Say(t as string)
while mouseclick()>0 or scancode()>0
endwhile
while mouseclick()<2 and scancode()=0
center text screen width()/2,screen height()/2,t
sync
endwhile
while mouseclick()>0 or scancode()>0
endwhile
endfunction
