REM Project: shooter system
REM Created: 28.04.2013 22:42:45
REM
REM ***** Main Source File *****
REM
cls
sync on
sync rate 300
SET WINDOW ON
autocam off
SET DISPLAY MODE 1024, 768, 32
MAXIMIZE WINDOW
SET WINDOW LAYOUT 0, 0, 0
disable escapekey
make object box 1000,1,1,10
for obj=1 to 300
make object cube obj,100
position object obj,1000-rnd(2000),1000-rnd(2000),1000-rnd(2000)
color object obj,rgb(rnd(255),rnd(255),rnd(255))
SET OBJECT COLLISION ON Obj
next obj
position camera 0,0,0
while escapekey()<>1
if fire=0
if mouseclick()=1 then fire=1
endif
if fire=1
move object 1000,10
inc range
endif
if range>200
fire=0
range=0
position object 1000,0,0,0
SET OBJECT TO CAMERA ORIENTATION 1000
endif
if fire =0 then SET OBJECT TO CAMERA ORIENTATION 1000
for obj=1 to 300
if OBJECT HIT(1000,obj)=1
hide object obj
SET OBJECT COLLISION OFF Obj
fire=0
range=0
position object 1000,0,0,0
SET OBJECT TO CAMERA ORIENTATION 1000
endif
next obj
alfa1=mousemovey()+alfa1
alfa2=0
alfa3=mousemovex()+alfa3
rotate camera alfa1,alfa2,alfa3
sync
if upkey()=1 then move object 1000,10
if downkey()=1 then move object 1000,-10
set cursor 1,1
print "range="+STR$(range)
print "FPS="+STR$(SCREEN FPS())
endwhile
delete object 1000
for obj=1 to 300
delete object obj
next obj
end
