dot 0,0:get image 100,0,0,1,1
sprite 100,0,0,100
scale sprite 100,600


http://forum.thegamecreators.com/
`The Game Creators
`main menu
button("Play",1)
button("Controls",2)
button("Difficulty",3)
button("Exit",4)
cont$="Arrow Keys"
diff=1
do
if sprite x(100)<mousex()
rotate sprite 100,90
move sprite 100,1

endif

if sprite x(100)>mousex()
rotate sprite 100,270
move sprite 100,1

endif

if sprite y(100)<mousey()
rotate sprite 100,180
move sprite 100,1

endif

if sprite y(100)>mousey()
rotate sprite 100,0
move sprite 100,1

endif

if sprite collision (100,1)
if mouseclick()
gosub game
endif
endif

if sprite collision (100,2)
s2=s2+1
if s2=1
if mouseclick()
cont=cont+1
if cont=1 then cont$="Arrow Keys"
if cont=2 then cont$="WASD"
if cont=3 then cont$="IJKL"
if cont=4 then cont=1:cont$="Arrow Keys"
endif
else
if s2=3 then s2=0
endif
endif

if sprite collision (100,3)
s=s+1
if s=1
if mouseclick()
diff=diff+1
if diff=5 then diff=1
endif
else
if s=15 then s=0
endif
endif

if sprite collision (100,4)
if mouseclick()
exit
endif
endif

cls
print "Controls: ";cont$
print "Difficulty: ";diff

loop

game:
`Game
hide all sprites
cls
make object cone 1,2

for begin=2 to 52
make object plain begin,2,2
x#=-50
y=35
position object begin,x#,y,z
x#=x#+2
`if x=30
`x=-75
`y=y-3
`endif
next begin

curbullet=60
do
set camera to follow object position x(1),object position y(1),object position z(1),0,60,29,20,1

if rightkey() then move object right 1,.1
if leftkey() then move object left 1,.1
if spacekey()
make object box curbullet,0.5,0.6,0.5
position object curbullet,object position x(1),object position y(1),object position z(1)
set camera to follow object position x(1),object position y(1),object position z(1),0,60,29,20,1
curbullet=curbullet+1
if curbullet=200000 then curbullet=60
endif
for begin=60 to curbullet
if object exist(begin)
move object up begin,1
set camera to follow object position x(1),object position y(1),object position z(1),0,60,29,20,1
if object position y(begin)>70 then delete object begin
endif
next begin
loop




function button(string$,value)
for begin=1 to len(string$)
xl=xl+16
next begin
yl=16
line 0,0,xl,0
line 0,0,0,yl
set cursor (xl/2)-(xl/4),1
print string$
get image value,0,0,xl,yl
cls
sprite value,320-(xl/2),value*25,value
color backdrop rgb(0,0,0)
endfunction