Sorry your browser is not supported!

object screen x()

sync on
Center text 320,140,"The Flame Wars had raged for years. The countless battles found Mods jumping through"
Center text 320,160,"Galaxies, leaving the bodies and IP adresses of noobs in their wake, desperately trying to"
center text 320,180,"lock the Pointless Threads. At the center of this turmoil lay the greatest question of all time:"
set text size 40
center text 320,200,"Which was better, DarkBASIC or FPS Creator?"  
suspend for key
cls
set text size 20
center text 320,150,"In this game you take the role of DarkBASIC, trying to defeat FPS Creator ('Cause DB is way better)."
center text 320,170,"Click on one of your ships to selected it. Then right click on it to bring up the menu. Use the arrow"
center text 320,190,"keys to choose an option. If you select fire the ship will fire straight forwards. If you select move"
center text 320,210,"You can use the arrow keys to move your ship and space to leave movement mode. Good luck,"
center text 320,230,"You only have 40 seconds to defeat FPS Creator!"
suspend for key
cls
autocam off
gosub makeimages
eoh#=100
eth#=100
o1x#=6
o1y#=2
o1z#=5
o2x#=6
o2y#=-1
o2z#=5

make object cube 1,1
position object 1,o1x#,o1y#,o1z#
texture object 1,1
make object cylinder 2,0.5
make mesh from object 1,2
add limb 1,1,1
offset limb 1,1,-0.5,y,z
rotate limb 1,1,0,0,90
texture limb 1,1,2

make object cube 3,1
position object 3,o2x#,o2y#,o2z#
texture object 3,1
make object cylinder 4,0.5
make mesh from object 2,4
add limb 3,1,2
offset limb 3,1,-0.5,y,z
rotate limb 3,1,0,0,90
texture limb 3,1,2
c=0.5
delete object 2
delete object 4
fix object pivot 1
fix object pivot 3
position camera x,y,-5
texture backdrop 3

o10x#=-5
o10y#=3

o11x#=-5
o11y#=-2

make object sphere 10,2
position object 10,o10x#,o10y#,5
make object sphere 11,2
position object 11,o11x#,o11y#,5


texture object 10,9
texture object 11,9

set object 10,1,0,0
set object 11,1,0,0

a#=timer()
ink rgb(255,255,255),0
loop:
do
b#=timer()-a#
set cursor 0,0
print b#/1000
if b#>40000 then goto lose
if b#>30000 then ink rgb(255,0,0),0
gosub rot
gosub cr
gosub selecthandling
gosub hrc
if object exist(10)=0 and object exist(11)=0 then gosub win
sync
loop





selecthandling:
if mousex()>object screen x(1)-40 and mousex()<object screen x(1)+35 and mousey()>object screen y(1)-40 and mousey()<object screen y(1)+35 and mouseclick()=1 then selected=1 : ghost object on 1 : wait 1*100 : ghost object off 1
if mousex()>object screen x(3)-40 and mousex()<object screen x(3)+35 and mousey()>object screen y(3)-40 and mousey()<object screen y(3)+35 and mouseclick()=1 then selected=2 : ghost object on 3 : wait 1*100 : ghost object off 3
if selected=1 then sprite 4,object screen x(1)-40,object screen y(1)-50,4 
if selected=2 then sprite 4,object screen x(3)-40,object screen y(3)-50,4
if object exist(10)=1 then sprite 10,object screen x(10)-50,object screen y(10)-50,10
if object exist(11)=1 then sprite 11,object screen x(11)-50,object screen y(11)-50,10
return


hrc:
if selected=1 and mousex()>object screen x(1)-40 and mousex()<object screen x(1)+35 and mousey()>object screen y(1)-40 and mousey()<object screen y(1)+35 and mouseclick()=2 then gosub menu
if selected=2 and mousex()>object screen x(3)-40 and mousex()<object screen x(3)+35 and mousey()>object screen y(3)-40 and mousey()<object screen y(3)+35 and mouseclick()=2 then gosub menu


cr:
if mouseclick()=4 and pointing=0 then pointing=1
if mouseclick()=3 and pointing=1 then pointing=0

rotate camera cx#,cy#,cz#
if pointing=1 and selected=1 then point camera o1x#,o1y#,o1z#
if pointing=1 and selected=2 then point camera o2x#,o2y#,o2z#

return


rot:
rotate limb 1,1,wrapvalue(c),0,90
rotate limb 3,1,wrapvalue(c),0,90
inc c,1
if object exist(10)=1 then yrotate object 10,wrapvalue(erf)
if object exist(11)=1 then yrotate object 11,wrapvalue(erf)
dec erf,5
return


cmc:
if o=0 and selected=1 then fire(1)
if o=0 and selected=2 then fire(3)
if o=1 then gosub move
if o=2 then gosub loop
gosub loop



makeimages:
f=30
for t=0 to 50
ink rgb(f,f,f),0
inc f,3
box t,0,t,100
next t
for t=51 to 100
ink rgb(f,f,f),0
dec f,3
box t,0,t,100
next t
f=200
for t=20 to 50
ink rgb(f,f,f),0
box t,20,t,80
dec f,5
next t
for t=50 to 80
ink rgb(f,f,f),0
box t,20,t,80
inc f,5
next t
ink rgb(255,0,0),0
box 50,20,50,80
get image 1,0,0,100,100
cls
ink rgb(100,100,100),0
box 0,0,100,100
ink rgb(0,0,0),0
box 20,20,80,80
ink rgb(255,0,0),0
box 49,20,51,80
box 20,49,80,51
get image 2,0,0,100,100
cls
ink rgb(20,20,20),0
box 0,0,400,400
ink rgb(255,255,255),0
for t=0 to 50
circle rnd(400),rnd(400),0
next t
get image 3,0,0,200,200
cls
ink rgb(0,255,0),0
box 0,0,100,5
get image 4,0,0,100,5
cls
ink rgb(255,255,0),0
box 0,0,50,50
ink rgb(10,10,10),0
box 1,1,49,49
ink rgb(100,100,255),0
set cursor 1,1
print "Fire"
set cursor 1,15
print "Move"
set cursor 1,30
print "Defend"
get image 5,0,0,51,51
cls
ink rgb(200,200,255),0
box 0,0,10,15
get image 6,0,0,11,16
cls
r=255
g=255
for t=0 to 7
ink rgb(r,g,0),0
circle 8,8,t
dec r,1
dec g,15
next t
get image 7,0,0,20,20
cls
for t=0 to 8
ink rgb(r,g,0),0
circle 8,8,t
dec r,1
dec g,15
next t
get image 8,0,0,20,20
cls
ink rgb(255,0,0),0
box 0,80,200,120
ink rgb(0,255,0),0
box 0,90,200,110
ink rgb(20,20,20),0
set text size 29
text 10,85,"FPS Creator"
get image 9,0,0,200,200
ink rgb(255,0,0),0
box 0,0,100,5
get image 10,0,0,100,5
cls
return

menu:
if selected=1 then sprite 5,object screen x(1),object screen y(1),5
if selected=2 then sprite 5,object screen x(3),object screen y(3),5
do
if o=0 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1),6
if o=1 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+15,6
if o=2 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+30,6
if o=0 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3),6
if o=1 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+15,6
if o=2 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+30,6
if upkey()=1 and o>0 then dec o,1 : wait 1*10
if downkey()=1 and o<2 then inc o,1 : wait 1*10
if returnkey()=1 then delete sprite 5 : delete sprite 6 : gosub cmc
sync
loop

function fire(mp)
if hwty=0 then eoh=100
if hwdy=0 then eth=100
f=40
for t=0 to 15
sprite 7,object screen x(mp)-f,object screen y(mp)-10,7
f=f+40
wait 1*1
if dead1=0 
if object screen x(mp)-f>object screen x(10)-50 and object screen x(mp)-f<object screen x(10)+50 and object screen y(mp)>object screen y(10)-10 and object screen y(mp)<object screen y(10)+10
goto skip
endif
endif
if dead2=0
if object screen x(mp)-f>object screen x(11)-50 and object screen x(mp)-f<object screen x(11)+50 and object screen y(mp)>object screen y(11)-10 and object screen y(mp)<object screen y(11)+10 then goto skip
endif
next t
skip:
delete sprite 7
sprite 8,object screen x(mp)-f,object screen y(mp)-10,8
sprite 9,object screen x(mp)-f+10,object screen y(mp),8
sprite 12,object screen x(mp)-f+10,object screen y(mp)-20,8
wait 1*10
sprite 8,object screen x(mp)-f+10,object screen y(mp)-10,8
sprite 9,object screen x(mp)-f+20,object screen y(mp)+20,8
sprite 12,object screen x(mp)-f+20,object screen y(mp)-40,8
wait 1*10
delete sprite 8
delete sprite 9
delete sprite 12
if dead1=0
if object screen x(mp)-f>object screen x(10)-50 and object screen x(mp)-f<object screen x(10)+50 and object screen y(mp)>object screen y(10)-10 and object screen y(mp)<object screen y(10)+10 then dec eoh,10 : hwty=1
endif
if dead2=0
if object screen x(mp)-f>object screen x(11)-50 and object screen x(mp)-f<object screen x(11)+50 and object screen y(mp)>object screen y(11)-10 and object screen y(mp)<object screen y(11)+10 then dec eth,10 : hwdy=1
endif
if eoh=0 and dead1=0 then delete object 10 : dead1=1 : delete sprite 10
if eth=0 and dead2=0 then delete object 11 : dead2=1 : delete sprite 11
if dead1=0 then size sprite 10,eoh,5
if dead2=0 then size sprite 11,eth,5
endfunction

move:
do
if object collision(1,0)=0 
oldo1x#=o1x#
oldo1y#=o1y#
endif
if object collision(3,0)=0 
oldo2x#=o2x#
oldo2y#=o2y#
endif
if selected=1
if upkey()=1 then inc o1y#,0.1
if downkey()=1 then dec o1y#,0.1
if leftkey()=1 and o1x#>-1 then dec o1x#,0.1
if rightkey()=1 and o1x#<7 then inc o1x#,0.1
endif
if selected=2
if upkey()=1 then inc o2y#,0.1
if downkey()=1 then dec o2y#,0.1
if leftkey()=1 and o2x#>-1 then dec o2x#,0.1
if rightkey()=1 and o1x#<7 then inc o2x#,0.1
endif
if spacekey()=1 then return
if object collision(1,3)=1 then o1x#=oldo1x# : o1y#=oldo1y#
if object collision(3,0)>0 then o2x#=oldo2x# : o2y#=oldo2y#
position object 1,o1x#,o1y#,o1z#
position object 3,o2x#,o2y#,o2z#
sync
loop
return

lose:
for t=0 to 100
center text 320,240,"You lose. Game over."
wait 1*1
next t
end

win:
for t=0 to 100
center text 320,200,"Well done. You ended the Flame Wars." 
center text 320,240,"Lee will be ever grateful."
wait 1*1
next t
center text 320,240,"Lee ownz"
end

remstart
   -------------------------------------------------------------------
   program name: OBese's Pizza stack
   -------------------------------------------------------------------
   written by: OBese87
   date:
   -------------------------------------------------------------------
   comments: There once was a programmer called OBese. Although OBese was an
   ironic name as he was skinny, he did LOVE pizza. One day OBese was bored and decided
   to stack up all his empty pizza boxes.
   -------------------------------------------------------------------
remend
hide mouse
sync on

gosub pizza

make object box 1,10,1,10
texture object 1,1
rotate object 1,20,0,20
fix object pivot 1

position camera 5,10,-10
point camera 0,0,0

DO
turn object left 1,1

sync
LOOP

END

pizza:
cls rgb(255,255,255)
ink rgb(255,240,50),0
for x = 100 to 0 step -1
   ellipse 200,100,x,x/4
next x
ink rgb(200,60,0),0
for x = 90 to 0 step -1
   ellipse 200,100,x,x/5
next x
ink rgb(255,255,0),0
for x = 1 to 50
   cx = rnd(170)+115 : cy = rnd(30) +80
   box cx,cy,cx+10,cy+5
next x

ink rgb(180,0,0),0
box 90,150,160,180
ink rgb(0,180,0),0
box 240,150,310,180
ink 0,0
set text size 30
set text font "times new roman"
center text 200,150,"PIZZA"

get image 1,70,60,330,200
cls
return

gosub menu
REM main loop
DO
gosub this
gosub that
sync
LOOP

menu:
RETURN

` Mine Avoidance Final
` Cory Thornsberry
` 7/23/07

Rem I've included two passwords (hit control during the game and type them in)
Rem For Invincibility Mode type "CORYRULES" WARNING: Cancels your score
Rem For Insane Difficulty Mode type "INSANE"
Rem I haven't worked all the bugs out of INSANE MODE yet

Rem Start-Up
Sync On : Sync Rate 40 : CLS 0 : Sync
Set Window On
Set Window Size Screen Width(),Screen Height()
Set Window Title "Mine Avoidance"
Set Window Position Screen Width()/4,Screen Height()/4
Set Window Layout 1,1,1
Backdrop Off
Always Active Off
Autocam Off

Rem Main Arrays
Rem Time(1)=min, Time(2)=sec, Time(3)=system time, Time(4)=Game Start Count Down
Rem Max game time: 59 min and 59 sec
Dim Time(4)
Dim Selected(5)
Dim Health(20)
Dim EnemyHealth(5)
Dim PlayerPos(20)
Dim EnemyPos(20)
Dim Mines(10)
Alive=5
EnemyAlive=5

Rem Setup-World
GoSub Info_Screen
For n=1 to 5
   Health(n)=100
   EnemyHealth(n)=(20*Difficulty)
Next n
Time(1)=11-Difficulty
If Time(1) > 59 then Time(1)=59
If Time(2) > 59 then Time(2)=59
Time(4)=15
Create_Image(1,20,70,15,30,90,25,100,2)
Create_Image(2,190,190,190,210,210,210,100,2)
GoSub Setup_Scene
GoSub Setup_Players

Position Camera 0,55,0
Rotate Camera 25,0,0
Time(3)=(Timer()/1000)

Rem Main-Loop
Do
   Set Cursor 1,1
   Sprite 1,307.5,202.5,3
   PosX#=Camera Position X()
   PosY#=Camera Position Y()
   PosZ#=Camera Position Z()
   AngY#=Camera Angle Y()
   GoSub Bound_Camera
   GoSub Control_Players
   GoSub Get_Game_Time
   If activemines > 0 then GoSub Handle_Mines
   If UpKey()=1 then PosX#=NewXValue(PosX#,AngY#,5) : PosZ#=NewZValue(PosZ#,AngY#,5)
   If DownKey()=1 then PosX#=NewXValue(PosX#,AngY#,-5) : PosZ#=NewZValue(PosZ#,AngY#,-5)
   If LeftKey()=1 then AngY#=Wrapvalue(AngY#-5)
   If RightKey()=1 then AngY#=Wrapvalue(AngY#+5)
   If Scancode()=12
      PosX#=NewXValue(PosX#,AngY#,-5)
      PosY#=NewYValue(PosY#,25,-5)
      PosZ#=NewZValue(PosZ#,AngY#,-5)
   EndIf
   If Scancode()=13 and PosY# > 55
      PosX#=NewXValue(PosX#,AngY#,5)
      PosY#=NewYValue(PosY#,25,5)
      PosZ#=NewZValue(PosZ#,AngY#,5)
   EndIf
   If Mouseclick()=1 and Selecting=0 then Selecting=1 : OMX=MouseX() : OMY=MouseY()
   If Selecting=1 then GoSub Control_Select_Box else GoSub Check_Selections
   If Mouseclick()=2 then GoSub Give_Command
   INK RGB(0,255,0),0
   If InsaneMode = 1 then Print "INSANE MODE!"
   If GodMode = 1 then Print "GOD MODE!"
   INK RGB(255,255,255),0
   Print "Difficulty Level: ",Difficulty
   Print "Running @ ",Screen FPS()," FPS"
   Print "Time:   ";
   Print Time(1)," : ";
   If Time(2) < 10 then Print "0",Time(2) else Print Time(2)
   INK RGB(0,0,255),0 : Print "Score: ",score
   INK RGB(255,0,0),0 : Print "Score: ",enemyscore
   INK RGB(255,255,255),0
   Position Camera PosX#,PosY#,PosZ#
   YRotate Camera AngY#
   If controlkey()=1 then GoSub Cheat
   If activemines < 0 then activemines = 0
   If activemines > 10 then activemines = 10
   Sync
   If activemines < difficulty and Time(4) <= 0 then INC activemines : Arm_Mine(RND(500)-250,RND(500)-250,Difficulty)
   If spacekey()=1 then game_over("win",500,Difficulty,1,0)
Loop

Rem Sub-Routines
Info_Screen:
   Cls 0 : Sync
   Set Cursor 1,1
   Print "Mine Avoidance"
   Print : Print "     All you have to do is control your team and dodge the mines."
   Print "     simple right?  Click and drag to select team members.  Right"
   Print "     click to command your selected team members to move.  Got It?"
   Print : Print "     Once the game starts you will have 15 seconds to split up your"
   Print "     team.  After that the game time will start and you'll only need"
   Print "     to survive.  Good Luck (I recommend starting on LVL 3 or 4)"
   Print : Print
   Print "Instructions:"
   Print "     Survive for the required time or until the other team is dead"
   Print "     Press - to zoom out and + to zoom in"
   Print "     Move the Camera with the arrow keys"
   Print "     Select team members by clicking and dragging with LMB"
   Print "     Command team members by selecting them then using RMB"
   Print "     Selected members will move to the green crosshairs"
   Print "     Mines will explode when they become bright red"
   Print : Print : Print "Input Difficulty Level (1-10)"
   Input Difficulty
   If Difficulty < 1 Then Difficulty=1
   If Difficulty > 10 then Difficulty=10
Return

Setup_Scene:
   Make Object Plain 1,502,502
   XRotate Object 1,90
   Texture Object 1,1
   Make Object Plain 2,502,502
   Position Object 2,0,250,250
   Make Object Plain 3,502,502
   Position Object 3,0,250,-250
   Make Object Plain 4,502,502
   Position Object 4,-250,250,0
   YRotate Object 4,90
   Make Object Plain 5,502,502
   Position Object 5,250,250,0
   YRotate Object 5,90
   For n=2 to 5
      Texture Object n,2
   Next n
   Rem Make Mines (300-310)(310-320)
   For n=0 to 9
      If n <= Difficulty-1
         Make Object Cube 300+n,10
         Color Object 300+n,RGB(0,0,0)
         Scale Object 300+n,100,50,100
         Hide Object 300+n
         Make Object Sphere 310+n,100
         Color Object 310+n,RGB(255,255,0)
         Position Object 310+n,0,(100*(n+1)),0
         Hide Object 310+n
      EndIf
   Next n
   Create Bitmap 31,25,25
   Set Current Bitmap 31
   Ink RGB(0,255,0),0
   Line 0,13,25,13
   Line 13,0,13,25
   Get Image 3,0,0,25,25
   Delete Bitmap 31
Return

Setup_Players:
   Rem Allies (100-105)
   For n=0 to 4
      Make Object Sphere 100+n,20 : Color Object 100+n,RGB(0,0,255)
      Position Object 100+n,-200,10,0+(n*-40)
      Make Object Collision Box 100+n,-10,-10,-10,+10,+10,+10,0
   next n
   Rem Enemies (200-205)
   For n=0 to 4
      Make Object Sphere 200+n,20 : Color Object 200+n,RGB(255,0,0)
      Position Object 200+n,200,10,0+(n*40)
      Set Object Collision On 200+n
      Make Object Collision Box 100+n,-10,-10,-10,+10,+10,+10,0
   next n
Return

Bound_Camera:
   Rem Create Invisible Camera Boundaries
   If PosX# > 240 then PosX# = 240
   If PosX# < -240 then PosX# = -240
   If PosZ# > 240 then PosZ# = 240
   If PosZ# < -240 then PosZ# = -240
   If PosY# > 425 then PosY# = 425
Return

Control_Select_Box:
   If MouseClick()=1
      NMX=MouseX() : NMY=MouseY()
      Line OMX,OMY,OMX,NMY
      Line OMX,OMY,NMX,OMY
      Line NMX,NMY,OMX,NMY
      Line NMX,NMY,NMX,OMY
   Else
      For n=1 to 5
         Rem Object Detection System
         Selected(n)=0
         If Object in Screen(99+n)=1 and Health(n) > 0
            ScreenX=(Object Screen X(99+n))
            ScreenY=(Object Screen Y(99+n))
            If ScreenX > OMX-10 and ScreenX < NMX+10
               If ScreenY > OMY-10 and ScreenY < NMY+10
                  Selected(n)=1
               EndIf
               If ScreenY < OMY+10 and ScreenY > NMY-10
                  Selected(n)=1
               EndIf
            EndIf
            If ScreenX < OMX+10 and ScreenX > NMX-10
               If ScreenY > OMY-10 and ScreenY < NMY+10
                  Selected(n)=1
               EndIf
               If ScreenY < OMY+10 and ScreenY > NMY-10
                  Selected(n)=1
               EndIf
            EndIf
         EndIf
         If Selected(n)=1 then Color Object 99+n,RGB(0,255,0)
         If Selected(n)=0 then Color Object 99+n,RGB(0,0,255)
      next n
      Selecting=0
   EndIf
Return

Check_Selections:
   For n=1 to 5
      If Selected(n) = 1 and Health(n) > 0
         If Object in Screen(99+n)=1
            ScreenX=Object Screen X(99+n)
            ScreenY=Object Screen Y(99+n)
            Center Text ScreenX,ScreenY-75,STR$(Health(n))
         EndIf
      EndIf
   next n
Return

Rem Main AI
Control_Players:
   score=(20*Difficulty)*5
   enemyscore=500
   For n=1 to 5
      Rem Allys
      If GodMode=0 then score=score-EnemyHealth(n)
      If Health(n+5) > 0
         NewX#=0 : NewZ#=0
         Point Object 99+n,Health(n+10),10,Health(n+15)
         NewX#=NewXValue(Object Position X(99+n),Object Angle Y(99+n),5)
         NewZ#=NewZValue(Object Position Z(99+n),Object Angle Y(99+n),5)
         If Object Collision(99+n,0) > 0
            NewX#=NewX#-Get Object Collision X()
            NewZ#=NewZ#-Get Object Collision Z()
         EndIf
         Health(n+5)=Health(n+5)-5
         If Health(n+5) < 0 then Health(n+5)=0
         If NewX# > 240 then NewX#=240
         If NewX# < -240 then NewX#=-240
         If NewZ# > 240 then NewZ#=240
         If NewZ# < -240 then NewZ#=-240
         Position Object 99+n,NewX#,10,NewZ#
      EndIf
      Rem Enemies
      enemyscore=enemyscore-Health(n)
      If Time(4) <= 0
         If RND(100) <= 10
            If RND(2) = 1
               YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)+5)
            Else
               YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)-5)
            EndIf
         EndIf
         NewX#=NewXValue(Object Position X(199+n),Object Angle Y(199+n),5)
         NewZ#=NewZValue(Object Position Z(199+n),Object Angle Y(199+n),5)
         If Object Collision(199+n,0) > 0
            NewX#=NewX#-Get Object Collision X()
            NewZ#=NewZ#-Get Object Collision Z()
         EndIf
         If NewX# > 240 then NewX#=240 : YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)+RND(180))
         If NewX# < -240 then NewX#=-240 : YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)+RND(180))
         If NewZ# > 240 then NewZ#=240 : YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)+RND(180))
         If NewZ# < -240 then NewZ#=-240 : YRotate Object 199+n,Wrapvalue(Object Angle Y(199+n)+RND(180))
         Position Object 199+n,NewX#,10,NewZ#
      EndIf
      If Health(n) < 0 then Hide Object 99+n : Health(n)=0 : DEC Alive
      If EnemyHealth(n) < 0 then Hide Object 199+n : EnemyHealth(n)=0 : DEC EnemyAlive
   Next n
   If Alive = 0 then Game_Over("",0,0,0,0)
   If EnemyAlive = 0 then Game_Over("win",score,difficulty,InsaneMode,GodMode)
Return

Give_Command:
   Rem I would like to move players to where user clicks
   Rem however using DBC I can't find a useful command
   Rem other than ObjectX and ObjectY
   Distance#=(PosY#/Sin(25))
   MoveX#=NewXValue(PosX#,AngY#,Distance#)
   MoveZ#=NewZValue(PosZ#,AngY#,Distance#)
   Command_MoveTo(MoveX#,MoveZ#)
Return

Get_Game_Time:
   If Time(4) <= 0
      Rem Main Game Time Control (You shouldn't need to adjust this)
      Time(2)=(Time(2)-((Timer()/1000)-Time(3)))
      If Time(2) < 0 then Time(2)=59 : Time(1)=Time(1)-1
      If Time(1) = 0 and Time(2) = 0
         If enemyscore > score then Game_Over("",0,0,0,0)
         If score >= enemyscore then Game_Over("win",score,difficulty,InsaneMode,GodMode)
      EndIf
      Time(3)=(Timer()/1000)
   Else
      Time(4)=(Time(4)-((Timer()/1000)-Time(3)))
      Set Text Size 40
      If Time(4) <= 5 then Ink RGB(255,0,0),0
      Center Text 320,240,STR$(Time(4))
      Time(3)=(Timer()/1000)
      Set Text Size 10 : Ink RGB(255,255,255),0
   EndIf
Return

Handle_Mines:
   For n=1 to 10
      If Mines(n) <= 0 and Object Exist(299+n) = 1
         If Object Visible(299+n)
            Mines(n)=0 : DEC activemines
            Hide Object 299+n
            KABOOM(Object Position X(299+n),Object Position Z(299+n),Difficulty,n)
         EndIf
      EndIf
      If Mines(n) > 0
         If InsaneMode = 0 then Mines(n)=Mines(n)-1 : Else Mines(n)=Mines(n)-2
         Color Object 299+n,RGB(255-Mines(n),0,0)
      EndIf
   next n
Return

Cheat:
   Print "Insert Password"
   Input CHEAT$
   If Upper$(CHEAT$) = "CORYRULES"
      GodMode=1
      For n=0 to 4
         Ghost Object On 100+n
      Next n
   EndIf
   If Upper$(CHEAT$) = "INSANE" then InsaneMode=1
Return

Rem Main Functions
Function Create_Image(ImageNumber,MinRed,MinGreen,MinBlue,MaxRed,MaxGreen,MaxBlue,Blend,Blur)
   Randomize 10
   If Bitmap Exist(31)=1 then Delete Bitmap 31
   RedRange=MaxRed-MinRed
   GreenRange=MaxGreen-MinGreen
   BlueRange=MaxBlue-MinBlue
   Rem Make a Small Box
   Create Bitmap 31,Blend,Blend
   Set Current Bitmap 31
   X=-1 : Y=0
   For n=1 to (Blend^2)
      Rem Create Bitmap
      If X > Blend Then Inc Y : X = 0 : else Inc X
      If RedRange > 0 Then Red=(RND(RedRange)+MinRed) else Red=0
      If GreenRange > 0 Then Green=(RND(GreenRange)+MinGreen) else Green=0
      If BlueRange > 0 Then Blue=(RND(BlueRange)+MinBlue) else Blue=0
      Ink RGB(Red,Green,Blue),0 : Dot X,Y
   next n
   Ink RGB(255,255,255),0
   Blur Bitmap 31,Blur
   Get Image ImageNumber,2,2,Blend-2,Blend-2
   Delete Bitmap 31
EndFunction

Function Game_Over(class$,scr,diff,InsaneMode,GodMode)
   If class$ = "win"
      For n=1 to 5
         bonus=bonus+Health(n)
      Next n
      Repeat
         Center Text 320,240,"Congratulations, You Win!"
         Center Text 320,260,"Press Enter to Proceed"
      Until ReturnKey() = 1
      display=0
      Repeat
         Center Text 320,220,"Score"
         Center Text 320,240,STR$(display)
         display=display+5
         Sync
      Until display >= scr
      display=scr
      Repeat
         Center Text 320,220,"Sub-Total Score = Score + Bonus Team Health Score"
         Center Text 320,240,STR$(display)
         display=display+10
         Sync
      Until display >= scr+bonus
      display=scr+bonus
      If GodMode = 0
         If diff > 1
            Repeat
               Center Text 320,220,"Final Score = Score X Difficulty"
               Center Text 320,240,STR$(display)
               display=display+(10*diff) : Sync
            Until display >= (scr+bonus)*diff
         EndIf
         display=(scr+bonus)*diff
         If InsaneMode=1
            Repeat
               Center Text 320,220,"Insane Mode Bonus = Score X 1000"
               Center Text 320,240,STR$(display)
               display=display+10 : Sync
            Until display >= ((scr+bonus)*diff)+1000
            display=((scr+bonus)*diff)+1000
         EndIf
         Repeat
            Center Text 320,220,"Total Score"
            Center Text 320,240,STR$(display)
            Center Text 320,260,"Press Enter to Exit"
            Sync
         Until ReturnKey() = 1
      Else
         Repeat
            Center Text 320,220,"Cheat Code Used :( Your Final Score is"
            Center Text 320,240,STR$(scr)
            Center Text 320,260,"Press Enter to Exit"
         Until ReturnKey() = 1
      EndIf
   Else
      Repeat
         Center Text 320,220,"Sorry You Lose.  Please Play Again!"
         Center Text 320,240,"Press Enter to Exit"
      Until ReturnKey() = 1
   EndIf
   End
EndFunction

Function Command_MoveTo(PosX#,PosZ#)
   For n=1 to 5
      If Selected(n)=1
         Point Object 99+n,PosX#,10,PosZ#
         Health(n+5)=SQRT((ABS(PosX#-Object Position X(99+n))^2)+(ABS(PosZ#-Object Position Z(99+n))^2))
         Health(n+10)=PosX#
         Health(n+15)=PosZ#
      EndIf
   next n
EndFunction

Function Arm_Mine(PosX,PosZ,diff)
   For n=0 to 9
      If Mines(n+1) = 0 and Object Exist(300+n) = 1 then MineNumber=n
   Next n
   Position Object 300+MineNumber,PosX,0,PosZ
   Color Object 300+MineNumber,RGB(255,0,0)
   Show Object 300+MineNumber
   If Object Exist(310+MineNumber) = 1
      If Object Visible(310+MineNumber) = 1 then Hide Object 310+MineNumber
   EndIf
   Mines(MineNumber+1)=255
EndFunction

Function KABOOM(PosX#,PosZ#,Diff,MineNumber)
   Range=100 : If InsaneMode=1 then Range=250
   If Object Exist(309+MineNumber) = 1
      If Object Visible(309+MineNumber) = 0 then Show Object 309+MineNumber
      Position Object 309+MineNumber,PosX#,0,PosZ#
   EndIf
   For n=1 to 5
      Rem Allies
      If GodMode = 0
         distance#=SQRT((ABS(Object Position X(99+n)-PosX#)^2)-(ABS(Object Position Z(99+n)-PosZ#)^2))
         If distance# <= Range then Health(n)=Health(n)-(Range-Distance#)
      EndIf
      Rem Enemies
      distance#=SQRT((ABS(Object Position X(199+n)-PosX#)^2)-(ABS(Object Position Z(199+n)-PosZ#)^2))
      If distance# <= Range then EnemyHealth(n)=EnemyHealth(n)-((Range-Distance#)/Diff)
   Next n
EndFunction

sync on
Center text 320,140,"The Flame Wars had raged for years. The countless battles found Mods jumping through"
Center text 320,160,"Galaxies, leaving the bodies and IP adresses of noobs in their wake, desperately trying to"
center text 320,180,"lock the Pointless Threads. At the center of this turmoil lay the greatest question of all time:"
set text size 40
center text 320,200,"Which was better, DarkBASIC or FPS Creator?"  
suspend for key
cls
set text size 20
center text 320,150,"In this game you take the role of DarkBASIC, trying to defeat FPS Creator ('Cause DB is way better)."
center text 320,170,"Click on one of your ships to selected it. Then right click on it to bring up the menu. Use the arrow"
center text 320,190,"keys to choose an option. If you select fire the ship will fire straight forwards. If you select move"
center text 320,210,"You can use the arrow keys to move your ship and space to leave movement mode. Good luck,"
center text 320,230,"You only have 40 seconds to defeat FPS Creator!"
suspend for key
cls
autocam off
gosub makeimages
eoh#=100
eth#=100
o1x#=6
o1y#=2
o1z#=5
o2x#=6
o2y#=-1
o2z#=5

make object cube 1,1
position object 1,o1x#,o1y#,o1z#
texture object 1,1
make object cylinder 2,0.5
make mesh from object 1,2
add limb 1,1,1
offset limb 1,1,-0.5,y,z
rotate limb 1,1,0,0,90
texture limb 1,1,2

make object cube 3,1
position object 3,o2x#,o2y#,o2z#
texture object 3,1
make object cylinder 4,0.5
make mesh from object 2,4
add limb 3,1,2
offset limb 3,1,-0.5,y,z
rotate limb 3,1,0,0,90
texture limb 3,1,2
c=0.5
delete object 2
delete object 4
fix object pivot 1
fix object pivot 3
position camera x,y,-5
texture backdrop 3

o10x#=-5
o10y#=3

o11x#=-5
o11y#=-2

make object sphere 10,2
position object 10,o10x#,o10y#,5
make object sphere 11,2
position object 11,o11x#,o11y#,5


texture object 10,9
texture object 11,9

set object 10,1,0,0
set object 11,1,0,0

a#=timer()
ink rgb(255,255,255),0
loop:
do
gosub timerhandling
gosub rot
gosub cr
gosub selecthandling
gosub hrc
gosub haveyouwon
sync
loop


haveyouwon:
if object exist(10)=0 and object exist(11)=0 then gosub win

timerhandling:
b#=timer()-a#
set cursor 0,0
print b#/1000
if b#>40000 then goto lose
if b#>30000 then ink rgb(255,0,0),0


selecthandling:
if mousex()>object screen x(1)-40 and mousex()<object screen x(1)+35 and mousey()>object screen y(1)-40 and mousey()<object screen y(1)+35 and mouseclick()=1 then selected=1 : ghost object on 1 : wait 1*100 : ghost object off 1
if mousex()>object screen x(3)-40 and mousex()<object screen x(3)+35 and mousey()>object screen y(3)-40 and mousey()<object screen y(3)+35 and mouseclick()=1 then selected=2 : ghost object on 3 : wait 1*100 : ghost object off 3
if selected=1 then sprite 4,object screen x(1)-40,object screen y(1)-50,4 
if selected=2 then sprite 4,object screen x(3)-40,object screen y(3)-50,4
if object exist(10)=1 then sprite 10,object screen x(10)-50,object screen y(10)-50,10
if object exist(11)=1 then sprite 11,object screen x(11)-50,object screen y(11)-50,10
return


hrc:
if selected=1 and mousex()>object screen x(1)-40 and mousex()<object screen x(1)+35 and mousey()>object screen y(1)-40 and mousey()<object screen y(1)+35 and mouseclick()=2 then gosub menu
if selected=2 and mousex()>object screen x(3)-40 and mousex()<object screen x(3)+35 and mousey()>object screen y(3)-40 and mousey()<object screen y(3)+35 and mouseclick()=2 then gosub menu


cr:
if mouseclick()=4 and pointing=0 then pointing=1
if mouseclick()=3 and pointing=1 then pointing=0

rotate camera cx#,cy#,cz#
if pointing=1 and selected=1 then point camera o1x#,o1y#,o1z#
if pointing=1 and selected=2 then point camera o2x#,o2y#,o2z#

return


rot:
rotate limb 1,1,wrapvalue(c),0,90
rotate limb 3,1,wrapvalue(c),0,90
inc c,1
if object exist(10)=1 then yrotate object 10,wrapvalue(erf)
if object exist(11)=1 then yrotate object 11,wrapvalue(erf)
dec erf,5
return


cmc:
if o=0 and selected=1 then fire(1)
if o=0 and selected=2 then fire(3)
if o=1 then gosub move
if o=2 then gosub loop
gosub loop



makeimages:
f=30
for t=0 to 50
ink rgb(f,f,f),0
inc f,3
box t,0,t,100
next t
for t=51 to 100
ink rgb(f,f,f),0
dec f,3
box t,0,t,100
next t
f=200
for t=20 to 50
ink rgb(f,f,f),0
box t,20,t,80
dec f,5
next t
for t=50 to 80
ink rgb(f,f,f),0
box t,20,t,80
inc f,5
next t
ink rgb(255,0,0),0
box 50,20,50,80
get image 1,0,0,100,100
cls
ink rgb(100,100,100),0
box 0,0,100,100
ink rgb(0,0,0),0
box 20,20,80,80
ink rgb(255,0,0),0
box 49,20,51,80
box 20,49,80,51
get image 2,0,0,100,100
cls
ink rgb(20,20,20),0
box 0,0,400,400
ink rgb(255,255,255),0
for t=0 to 50
circle rnd(400),rnd(400),0
next t
get image 3,0,0,200,200
cls
ink rgb(0,255,0),0
box 0,0,100,5
get image 4,0,0,100,5
cls
ink rgb(255,255,0),0
box 0,0,50,50
ink rgb(10,10,10),0
box 1,1,49,49
ink rgb(100,100,255),0
set cursor 1,1
print "Fire"
set cursor 1,15
print "Move"
set cursor 1,30
print "Defend"
get image 5,0,0,51,51
cls
ink rgb(200,200,255),0
box 0,0,10,15
get image 6,0,0,11,16
cls
r=255
g=255
for t=0 to 7
ink rgb(r,g,0),0
circle 8,8,t
dec r,1
dec g,15
next t
get image 7,0,0,20,20
cls
for t=0 to 8
ink rgb(r,g,0),0
circle 8,8,t
dec r,1
dec g,15
next t
get image 8,0,0,20,20
cls
ink rgb(255,0,0),0
box 0,80,200,120
ink rgb(0,255,0),0
box 0,90,200,110
ink rgb(20,20,20),0
set text size 29
text 10,85,"FPS Creator"
get image 9,0,0,200,200
ink rgb(255,0,0),0
box 0,0,100,5
get image 10,0,0,100,5
cls
return

menu:
if selected=1 then sprite 5,object screen x(1),object screen y(1),5
if selected=2 then sprite 5,object screen x(3),object screen y(3),5
do
if o=0 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1),6
if o=1 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+15,6
if o=2 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+30,6
if o=0 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3),6
if o=1 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+15,6
if o=2 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+30,6
if upkey()=1 and o>0 then dec o,1 : wait 1*10
if downkey()=1 and o<2 then inc o,1 : wait 1*10
if returnkey()=1 then delete sprite 5 : delete sprite 6 : gosub cmc : return
sync
loop
return

function fire(mp)
if hwty=0 then eoh=100
if hwdy=0 then eth=100
f=40
for t=0 to 15
sprite 7,object screen x(mp)-f,object screen y(mp)-10,7
f=f+40
wait 1*1
if dead1=0 
if object screen x(mp)-f>object screen x(10)-50 and object screen x(mp)-f<object screen x(10)+50 and object screen y(mp)>object screen y(10)-10 and object screen y(mp)<object screen y(10)+10
goto skip
endif
endif
if dead2=0
if object screen x(mp)-f>object screen x(11)-50 and object screen x(mp)-f<object screen x(11)+50 and object screen y(mp)>object screen y(11)-10 and object screen y(mp)<object screen y(11)+10 then goto skip
endif
next t
skip:
delete sprite 7
sprite 8,object screen x(mp)-f,object screen y(mp)-10,8
sprite 9,object screen x(mp)-f+10,object screen y(mp),8
sprite 12,object screen x(mp)-f+10,object screen y(mp)-20,8
wait 1*10
sprite 8,object screen x(mp)-f+10,object screen y(mp)-10,8
sprite 9,object screen x(mp)-f+20,object screen y(mp)+20,8
sprite 12,object screen x(mp)-f+20,object screen y(mp)-40,8
wait 1*10
delete sprite 8
delete sprite 9
delete sprite 12
if dead1=0
if object screen x(mp)-f>object screen x(10)-50 and object screen x(mp)-f<object screen x(10)+50 and object screen y(mp)>object screen y(10)-10 and object screen y(mp)<object screen y(10)+10 then dec eoh,10 : hwty=1
endif
if dead2=0
if object screen x(mp)-f>object screen x(11)-50 and object screen x(mp)-f<object screen x(11)+50 and object screen y(mp)>object screen y(11)-10 and object screen y(mp)<object screen y(11)+10 then dec eth,10 : hwdy=1
endif
if eoh=0 and dead1=0 then delete object 10 : dead1=1 : delete sprite 10
if eth=0 and dead2=0 then delete object 11 : dead2=1 : delete sprite 11
if dead1=0 then size sprite 10,eoh,5
if dead2=0 then size sprite 11,eth,5
endfunction

move:
do
if object collision(1,0)=0 
oldo1x#=o1x#
oldo1y#=o1y#
endif
if object collision(3,0)=0 
oldo2x#=o2x#
oldo2y#=o2y#
endif
if selected=1
if upkey()=1 then inc o1y#,0.1
if downkey()=1 then dec o1y#,0.1
if leftkey()=1 and o1x#>-1 then dec o1x#,0.1
if rightkey()=1 and o1x#<7 then inc o1x#,0.1
endif
if selected=2
if upkey()=1 then inc o2y#,0.1
if downkey()=1 then dec o2y#,0.1
if leftkey()=1 and o2x#>-1 then dec o2x#,0.1
if rightkey()=1 and o1x#<7 then inc o2x#,0.1
endif
if spacekey()=1 then return
if object collision(1,3)=1 then o1x#=oldo1x# : o1y#=oldo1y#
if object collision(3,0)>0 then o2x#=oldo2x# : o2y#=oldo2y#
position object 1,o1x#,o1y#,o1z#
position object 3,o2x#,o2y#,o2z#
sync
loop
return

lose:
for t=0 to 100
center text 320,240,"You lose. Game over."
wait 1*1
next t
end

win:
for t=0 to 100
center text 320,200,"Well done. You ended the Flame Wars." 
center text 320,240,"Lee will be ever grateful."
wait 1*1
next t
center text 320,240,"Lee ownz"
end

menu:
if selected=1 then sprite 5,object screen x(1),object screen y(1),5
if selected=2 then sprite 5,object screen x(3),object screen y(3),5
do
if o=0 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1),6
if o=1 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+15,6
if o=2 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+30,6
if o=0 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3),6
if o=1 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+15,6
if o=2 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+30,6
if upkey()=1 and o>0 then dec o,1 : wait 1*10
if downkey()=1 and o<2 then inc o,1 : wait 1*10
if returnkey()=1 then delete sprite 5 : delete sprite 6 : gosub cmc : return
sync
loop
return

menu:
if selected=1 then sprite 5,object screen x(1),object screen y(1),5
if selected=2 then sprite 5,object screen x(3),object screen y(3),5
REPEAT
if o=0 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1),6
if o=1 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+15,6
if o=2 and selected=1 then sprite 6,object screen x(1)-10,object screen y(1)+30,6
if o=0 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3),6
if o=1 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+15,6
if o=2 and selected=2 then sprite 6,object screen x(3)-10,object screen y(3)+30,6
if upkey()=1 and o>0 then dec o,1 : wait 1*10
if downkey()=1 and o<2 then inc o,1 : wait 1*10
sync
UNTIL returnkey()=1
delete sprite 5 : delete sprite 6 : gosub cmc
RETURN

cmc:
SELECT o
 Case 0
   if selected=1 then fire(1)
   if selected=2 then fire(3)
 Endcase
 Case 1 : gosub move : Endcase
ENDSELECT
RETURN