OK. In this game you use the mouse to destroy the evil blocks coming to destroy Earth. Use the left mouse button to shoot. You have limited ammo so don't be wasteful.
No media. Whole game right here:
start:
cls : center text screen width() / 2 , screen height() / 2 , "WELCOME TO ORBITAL DEFFENSE" : center text screen width() / 2 , screen height () / 2 + 20 , "Use the mouse and LMB to destory the blocks" : wait key
randomize timer() : hide mouse
speed = 1 : x = 320 : y = -50 : ammo = 2000: red as dword : black as dword : currentcol as dword : red = rgb(255 , 0 , 0) : black = rgb(0 , 0 , 0)
do : cls : ink currentcol , 0 : line 0 , 479 , mousex() , mousey() : line 639 , 480 , mousex() , mousey() : if mouseclick() = 1 and ammo > 0 then currentcol = red : dec ammo
if mouseclick() = 0 then currentcol = black
ink rgb(255 , 255 , 255) , 0 : line mousex() - 20 , mousey() , mousex() + 20 , mousey() : line mousex() , mousey() - 20 , mousex() , mousey() + 20 : box x - 25 , y - 25 , x + 25 , y + 25
if currentcol = red and mousex() > x - 25 and mousey() > y - 25 and mousex() < x + 25 and mousey() < y + 25 then speed = rnd(5) - 3 : x = rnd(200) + 220 : y = -50 : inc score , 10
if y > 480 then exit
if speed = 0 then speed = rnd(5) - 3
if speed = 1 then inc speed
if speed = -1 then dec speed
inc x , speed : inc y , abs(speed) : circle 0 , 479 , 30 : circle 639 , 479 , 30
text 0 , 0 , "Score : " + str$(score)
text 0 , 20 , "Ammo : " + str$(ammo)
wait 10
loop
cls : center text screen width() / 2 , screen height() / 2 , "You scored : " + str$(score) : wait key : goto start
Post high scores and all that stuff.
[href = http://forum.thegamecreators.com/?m=forum_view&t=63573&b=5]Leviathan[/href]
