Sorry your browser is not supported!

Rem Project: Spacegame
Rem Created: 2/7/2004 1:42:46 PM

Rem ***** Main Source File *****
sync on : sync rate 30
`the background (space)
for s= 1 to 1000
Dot rnd(640),rnd(480)
next s

`sprite images

load image "2d spaceshipsshipup.bmp",1,1
load image "2d spaceshipsshipdown.bmp",2,1
load image "2d spaceshipsshipleft.bmp",3,1
load image "2d spaceshipsshipright.bmp",4,1
load image "2d spaceshipsshipleftup1.bmp",5,1
load image "2d spaceshipsshipleftup2.bmp",6,1
load image "2d spaceshipsshipleftup3.bmp",7,1
load image "2d spaceshipsshiprightdown1.bmp",8,1
load image "2d spaceshipsshiprightdown2.bmp",9,1
load image "2d spaceshipsshiprightdown3.bmp",10,1
load image "2d spaceshipsshipsideleft1.bmp",11,1
load image "2d spaceshipsshipsideleft2.bmp",12,1
load image "2d spaceshipsshipsideleft3.bmp",13,1
load image "2d spaceshipsshipupright1.bmp",14,1
load image "2d spaceshipsshipupright2.bmp",15,1
load image "2d spaceshipsshipupright3.bmp",16,1





`sprite set for backsave and transparency thus making them look pretty damn nice
set sprite 1,1,1
set sprite 2,1,1
set sprite 3,1,1
set sprite 4,1,1

imagenum=1
`our loop
do
if upkey()=1 then imageNum=1 : dec y
 if downkey()=1 then imageNum=2 : inc y
 if leftkey()=1 then imageNum=3 : dec x
 if rightkey()=1 then imageNum=4 : inc x
if upkey()=1 and leftkey()=1 then imagenum=5
if leftkey()=1 and downkey()=1 then imagenum=11
if downkey()=1 and rightkey()=1 then imagenum=8
if upkey()=1 and rightkey()=1 then imagenum=14


 sprite 1,x+250,y+250,imagenum
 sync
loop

Box 0,0,10,10 
Get Image 1,0,0,10,10 
sprite 1,0,0,1 
offset sprite 1,5,5 
do 
 inc angle,rightkey()-leftkey() 
 inc x,rightkey()-leftkey() 
 angle = wrapvalue(angle) 
 sprite 1,x,30,1 
 rotate sprite 1,angle 
 sync 
loop 

imagenum=1
sprite imagenum,0,0,1
offset sprite imagenum,5,5
do
 inc angle,rightkey()-leftkey()
 inc x,rightkey()-leftkey()
 angle = wrapvalue(angle)
 sprite imagenum,x,30,1
 rotate sprite imagenum,angle
sync
loop