Sorry your browser is not supported!

sync on : sync rate 60

SET AMBIENT LIGHT 50
POSITION LIGHT 0,0,10,0



ink rgb(192,192,192),1
   box 0,0,32,32
ink rgb(255,255,255),1
   box 4,4,28,28
get image 1,0,0,32,32,1
cls


rem visual matrix
make matrix 1,100,100,10,10
position matrix 1,0,0,0
prepare matrix texture 1,1,1,1



rem textured cubes
for i = 1 to 10
   make object cube i,10
   position object i,0,5,i*12
   texture object i,1
   scale object i,i*10,i*10,i*10
next i


rem non textured cubes
for i = 11 to 20
   make object cube i,10
   position object i,100,5,i*12 -120
   scale object i,(i-10)*10,(i-10)*10,(i-10)*10
next i

position camera 50,50,-50
point camera 50,0,50


disable escapekey
while escapekey()=0


sync
endwhile

delete matrix 1
delete image 1

for i = 1 to 20
   if object exist(i)=1
      delete object i
   endif
next i

set display mode 800,600,16
hide mouse
sync rate 0
sync on

gosub loadmedia

dim xpos(4) as float
dim ypos(4) as float
dim xspeed(4) as float
dim yspeed(4) as float
dim angle(4) as float

gravity as float
players=4
xpos(1)=0:ypos(1)=0
xpos(2)=1.5:ypos(2)=0
xpos(3)=-1.5:ypos(3)=0
xpos(4)=3:ypos(4)=0
for k=1 to 4
   angle(k)=180
next k
p1left=203
p1right=205
p1up=200
p1down=208
p2left$="z"
p2right$="x"

show object 1
show object 2
show object 3
show object 4
show object 50



backdrop off
make object plain 100,800,600
texture object 100,2
position object 100,0,0,500
scale object 50,450,450,450


do

set cursor 50,50
print "FPS = ",screen fps()

sprite 1,0,480,1


if scancode()=p1left then inc angle(1),.5
if scancode()=p1right then dec angle(1),.5

if inkey$()=p2left$ then inc angle(2),.5
if inkey$()=p2right$ then dec angle(2),.5

if inkey$()="c" then inc angle(3),.5
if inkey$()="v" then dec angle(3),.5

if inkey$()="b" then inc angle(4),.5
if inkey$()="n" then dec angle(4),.5

if inkey$()="q" then inc ypos(1),.05
if inkey$()="a" then dec ypos(1),.05

if inkey$()="w" then inc xpos(1),.05
if inkey$()="e" then dec xpos(1),.05

for pl=1 to players
   position object pl,xpos(pl),ypos(pl),10
   rotate object pl,270,0,angle(pl)
next pl

position object 50,-1.5,-3,10
yrotate object 50,a#
inc a#,1

position camera 0,0,0
point camera 0,0,0

sync
loop

end

loadmedia:

for k= 1 to 4
   if k<10 then z$="0" else z$=""
   load object "models\ship"+z$+str$(k)+".x",k
   hide object k
next k
load object "models\LPad.x",50
hide object 50
for k = 1 to 4
   if k<10 then z$="0" else z$=""
   load object "models\weapon"+z$+str$(k)+".x",k+50
   hide object k+50
next k

load image "images\hub01.bmp",1,1
load image "images\space.jpg",2
return