Sorry your browser is not supported!

`-----------------------
` SETUP
`-----------------------
sync on
autocam off

position camera 0,15,-20
point camera 0,0,0

gosub make_image

For bx = 1 to 10
   make_box(bx)
   sync
Next bx

`-----------------------
` MAIN LOOP
`-----------------------
sync
wait key
END

`-----------------------
` FUNCTIONS
`-----------------------
FUNCTION make_box(n)
   `make box
   obj = (n*5)-4
   s = 7+rnd(3)
   make object box obj,s,1,s
remstart
   `make vertice drones
   for v = 1 to 4
      make object sphere obj+v,0.5
      color object obj+v,rgb(255,0,0)
      glue object to limb obj+v,obj,0
   next v

   osx = object size x(obj) : osz = object size z(obj)
   position object obj+1, osx/2, 0, osz/2
   position object obj+2, osx/2, 0, -1*(osz/2)
   position object obj+3, -1*(osx/2), 0, -1*(osz/2)
   position object obj+4, -1*(osx/2), 0, osz/2
remend

   `position box
   position object obj,-1+rnd(2),n,-1+rnd(2)
   yrotate object obj,rnd(359)
   texture object obj,1
ENDFUNCTION

`-----------------------
` GOSUBS
`-----------------------
make_image:
for y = 0 to 100
   for x = 0 to 100
      sh = 200+rnd(40)
      ink rgb(sh,sh,sh),0
      dot x,y
   next x
next y

ink rgb(0,150,0),0
set text font "times new roman"
set text size 90
set text to italic
text 15,-5,"P"
set text size 30
text 40,40,"izza"

box 100-33,100-16,100,100
ink rgb(150,0,0),0
box 0,100-16,33,100

get image 1,0,0,100,100
RETURN

` Mine Avoidance Updated
` Cory Thornsberry
` 7/23/07 Updated 7/31/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

window=1

Rem Start-Up 
Sync On : Sync Rate 40 : CLS 0 : Sync
If window = 1
   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
EndIf
Set Camera Range 1,1000
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
AngX=25

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 AngX,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#,AngX,-5)
      PosZ#=NewZValue(PosZ#,AngY#,-5)
   EndIf
   If Scancode()=13 and PosY# > 55
      PosX#=NewXValue(PosX#,AngY#,5)
      PosY#=NewYValue(PosY#,AngX,5)
      PosZ#=NewZValue(PosZ#,AngY#,5)
   EndIf
   If Scancode() = 51 and AngX > 25 then AngX=Wrapvalue(AngX-2)
   If Scancode() = 52 and AngX < 45 then AngX=Wrapvalue(AngX+2)
   If AngX < 25 then AngX=25 : If AngX > 45 then AngX=45
   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#
   XRotate Camera AngX
   YRotate Camera AngY# : Print Width#
   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)
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 "     (NEW) Press < to Rotate Camera Up and > to Rotate Down"
   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
            Width#=Find_Pixel_Width(99+n,PosX#,PosY#,PosZ#)
            ScreenX=(Object Screen X(99+n))
            ScreenY=(Object Screen Y(99+n))
            If ScreenX > OMX-Width# and ScreenX < NMX+Width#
               If ScreenY > OMY-Width# and ScreenY < NMY+Width#
                  Selected(n)=1
               EndIf
               If ScreenY < OMY+Width# and ScreenY > NMY-Width#
                  Selected(n)=1
               EndIf
            EndIf
            If ScreenX < OMX+Width# and ScreenX > NMX-Width#
               If ScreenY > OMY-Width# and ScreenY < NMY+Width#
                  Selected(n)=1
               EndIf
               If ScreenY < OMY+Width# and ScreenY > NMY-Width#
                  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(AngX))
   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 Find_Pixel_Width(OB,PosX#,PosY#,PosZ#)
   DISTANCE#=SQRT((ABS(Object Position X(OB)-PosX#)^2)+(ABS(Object Position Y(OB)-PosY#)^2)+(ABS(Object Position Z(OB)-PosZ#)^2))
   ANGLE#=ATAN(20/DISTANCE#)
   REALWIDTH#=(Tan(ANGLE#)*250)
EndFunction REALWIDTH#

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

(659 x 126) - (600 x 120) = 11,034

sync on : autocam off : cls : sync rate 0
start:
ink rgb(100,0,0),0
box 212,200,433,282
box 212,294,433,369
box 212,383,433,459
ink rgb(255,255,255),0
set text size 70
text 262,200,"Play"
text 262,294,"Help"
text 262,383,"Quit"
do
if mousex()>212 and mousey()>200 and mousex()<433 and mousey()<282 and mouseclick()=1 then goto game
if mousex()>212 and mousey()>294 and mousex()<433 and mousey()<369 and mouseclick()=1 then gosub help
if mousex()>212 and mousey()>383 and mousex()<433 and mousey()<459 and mouseclick()=1 then end
sync
loop
help:
set text size 15
cls
center text 320,60,"It is the year 6,347,652,724. The sun has grown so large that Earth has been consumed. Humans"
center text 320,80,"were wiped out millenia ago, and the solar system is ruled by many different races of intelligent"
center text 320,100,"life. Cargo containers carry automated drones everywhere to do the work, while the alien races"
center text 320,120,"watch from their homes in space. One such cargo ship was unexpectedly fired upon by an evil"
center text 320,140,"battleship while on a depositation mission. It escaped and managed to find a safe refuge on a"
center text 320,160,"small, incredibly hot planet called Pluto. While orbiting it, searching for a safe place to land,"
center text 320,180,"it came across a derilect builing radiating massive amounts of energy. Ground control ordered"
center text 320,200,"the drones in the ship to infiltrate the building and find this power source. That is your mission."
center text 320,220,"Good Luck."
center text 320,260,"To select drones simply click on them. To move the drone that you have selected use the"
center text 320,280,"arrow keys. You must get at least one drone to the power source without being destroyed."
center text 320,300,"To move on to the next level simply move the drones off the right side of the map."
center text 320,320,"Press space to return."
while spacekey()=0
wait 1
endwhile
cls
gosub start







game:
cls
hide mouse
wait 1*2000
set gamma 0,0,0
center text 320,200,"A new time begins..."
for t=0 to 255
set gamma t,t,t
wait 1*1
next t
wait 1*4000
for t=255 to 0 step -1
set gamma t,t,t
wait 1*1
next t
wait 1*4000
cls
set gamma 255,255,255
gosub images
gosub cutscene


do
gosub mousehandle
gosub movement
gosub lazer
gosub haveloze
gosub collisionhandle
sync
loop

lose:
for t=0 to 500
center text 320,200,"Better luck next time."
sync
wait 1*1
next t
end
collisionhandle:

if selected=2
if object collision(2,0)>0 then position object 2,0,0,0 : selected=0 : inc gone,1 
endif
if selected=3
if object collision(3,0)>0 then position object 3,0,0,0 : selected=0 : inc gone,1 
endif
if selected=4
if object collision(4,0)>0 then position object 4,0,0,0 : selected=0 : inc gone,1 
endif
return

haveloze:
if gone=3 then gosub lose
return

lazer:
sprite 6,200,0,5
inc lz,1
if lz<200 then sprite 5,100,0,5 : laser1=1
if lz>200 then delete sprite 5 : laser1=0
if lz=400 then lz=0
if lz<200 then delete sprite 6 : laser2=0
if lz>200 then sprite 6,200,0,5 : laser2=1

if selected=2
if object screen x(2)>85 and object screen x(2)<120 and laser1=1 then position object 2,0,0,0 : selected=0 : inc gone,1
endif
if selected=3
if object screen x(3)>85 and object screen x(3)<120 and laser1=1 then position object 3,0,0,0 : selected=0 : inc gone,1
endif
if selected=4
if object screen x(4)>85 and object screen x(4)<120 and laser1=1 then position object 4,0,0,0 : selected=0 : inc gone,1
endif

if selected=2
if object screen x(2)>185 and object screen x(2)<220 and laser2=1 then position object 2,0,0,0 : selected=0 : inc gone,1
endif
if selected=3
if object screen x(3)>185 and object screen x(3)<220 and laser2=1 then position object 3,0,0,0 : selected=0 : inc gone,1
endif
if selected=4
if object screen x(4)>185 and object screen x(4)<220 and laser2=1 then position object 4,0,0,0 : selected=0 : inc gone,1
endif



return

movement:
if selected>0
x#=object position x(selected)
z#=object position z(selected)
if leftkey()=1 then z#=z#-0.5
if rightkey()=1 then z#=z#+0.5
if upkey()=1 then x#=x#-0.5
if downkey()=1 then x#=x#+0.5
position object selected,x#,object position y(selected),z#
endif
return


mousehandle:
sprite 4,mousex(),mousey(),4
if mouseclick()=1 then gosub select
return


select:
if object exist(2)=1
if mousex()>object screen x(2)-20 and mousex()<object screen x(2)+10 and mousey()>object screen y(2)-10 and mousey()<object screen y(2)+10 then set object 2,0,1,1,1,0,1,0 : selected=2 : set object 3,1,1,1,1,1,1,1 : set object 4,1,1,1,1,1,1,1
endif
if object exist(3)=1
if mousex()>object screen x(3)-20 and mousex()<object screen x(3)+10 and mousey()>object screen y(3)-10 and mousey()<object screen y(3)+10 then set object 3,0,1,1,1,0,1,0 : selected=3 : set object 2,1,1,1,1,1,1,1 : set object 4,1,1,1,1,1,1,1
endif
if object exist(4)=1
if mousex()>object screen x(4)-20 and mousex()<object screen x(4)+10 and mousey()>object screen y(4)-10 and mousey()<object screen y(4)+10 then set object 4,0,1,1,1,0,1,0 : selected=4 : set object 2,1,1,1,1,1,1,1 : set object 3,1,1,1,1,1,1,1
endif
return 


cutscene:
make object cube 1,5
texture object 1,1
make object cube 2,4
make mesh from object 1,2
delete object 2
add limb 1,1,1
color limb 1,1,rgb(100,100,100)
offset limb 1,1,3,-0.5,z
position object 1,0,0,15
make object cylinder 2,4
zrotate object 2,90
make mesh from object 2,2
delete object 2
add limb 1,2,2
offset limb 1,2,-2,0,0
color limb 1,2,rgb(100,100,100)

position object 1,50,50,5



make object cube 2,1
position object 2,x,y,5
texture object 2,2
zrotate object 2,90


make object cylinder 3,0.3
make mesh from object 3,3
delete object 3
add limb 2,1,3
offset limb 2,1,0,-0.6,0.3
color limb 2,1,rgb(100,100,70)


make object cylinder 4,0.3
make mesh from object 4,4
delete object 4
add limb 2,2,4
offset limb 2,2,0,-0.6,-0.3
color limb 2,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 2,3,5
offset limb 2,3,-0.5,y,z
color limb 2,3,rgb(200,100,100)

position object 2,50,50,5
scale object 1,500,500,500
position object 1,0,0,200
scale object 2,900,900,900







make object cube 3,1
position object 3,x,y,5
texture object 3,2
zrotate object 3,90


make object cylinder 7,0.3
make mesh from object 3,7
delete object 7
add limb 3,1,3
offset limb 3,1,0,-0.6,0.3
color limb 3,1,rgb(100,100,70)

make object cylinder 4,0.3
make mesh from object 4,4
delete object 4
add limb 3,2,4
offset limb 3,2,0,-0.6,-0.3
color limb 3,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 3,3,5
offset limb 3,3,-0.5,y,z
color limb 3,3,rgb(200,100,100)
color backdrop rgb(10,10,15)
position object 3,50,50,5
scale object 3,900,900,900







make object cube 4,1
position object 4,x,y,5
texture object 4,2
zrotate object 4,90


make object cylinder 7,0.3
make mesh from object 3,7
delete object 7
add limb 4,1,3
offset limb 4,1,0,-0.6,0.3
color limb 4,1,rgb(100,100,70)

make object cylinder 8,0.3
make mesh from object 8,4
delete object 8
add limb 4,2,4
offset limb 4,2,0,-0.6,-0.3
color limb 4,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 4,3,5
offset limb 4,3,-0.5,y,z
color limb 4,3,rgb(100,100,200)
position object 4,50,50,5
scale object 4,900,900,900
make matrix 1,10000,10000,10,10
position matrix 1,-5000,-450,-5000
prepare matrix texture 1,3,1,1

c#=400
set mipmap mode 2
for t=0 to 300 
position camera object position x(1)+15,object position y(1)+10,t
point camera object position x(1),object position y(1),object position z(1)
position object 2,object position x(1),object position y(1),object position z(1)
position object 1,0,c#,200
dec c#,2.5
sync
wait 50
next t


repeat
position camera object position x(2)+70,object position y(2),object position z(2)-50
point camera object position x(2),object position y(2),object position z(2)
position object 2,object position x(1),object position y(1)-7,object position z(1)
position object 3,object position x(1)-15,object position y(1)-7,object position z(1)
position object 4,object position x(1)+15,object position y(1)-7,object position z(1)
position object 1,0,c#,200
dec c#,1.2
wait 50
until object position y(1)<-436 
position camera object position x(2)+70,object position y(2),object position z(1)-50
point camera object position x(2),object position y(2),object position z(2)
position object 1,0,c#,200
inc c#,1.2
sync
wait 50

position object 1,0,-1000,200
for t=0 to -90 step -1
yrotate object 2,wrapvalue(t)
yrotate object 3,wrapvalue(t)
yrotate object 4,wrapvalue(t)
sync
wait 1*1
next t
wait 1*1000

for t=200 to 450
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
sync
wait 1*20
next t

for t=450 to 800
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
position camera object position x(4)+15,object position y(4),object position z(4)+15
point camera object position x(3),object position y(3),object position z(3)
sync
wait 1*20
next t

for t=800 to 1200
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
position camera object position x(2),object position y(2)+f,object position z(2)-(100+g)
point camera object position x(2),object position y(2),object position z(2)
inc f,1
inc g,2
sync
wait 1*20
next t

for f=0 to 240 step 5
	r=255-f
	g=255-f
	b=255-f
	set gamma r,g,b
next f


prepare matrix texture 1,10,1,1
position object 2,object position x(2),object position y(2),450
position object 3,object position x(3),object position y(3),450
position object 4,object position x(4),object position y(4),450
position camera 0,-200,600
point camera 0,-400,600
yrotate camera 270
for f=15 to 250 step 5
	r=f
	g=f
	b=f
	set gamma r,g,b
next f
color backdrop rgb(50,50,50)
position camera object position x(4)+12,object position y(4),object position z(4)+5
point camera object position x(4),object position y(4),object position z(4)

position object 2,object position x(2),object position y(2),450
position object 3,object position x(3),object position y(3),450
position object 4,object position x(4),object position y(4),450
position camera 0,-200,600
point camera 0,-400,600
yrotate camera 270
return





images:
ink rgb(100,100,100),0
box 0,0,100,100
ink rgb(170,160,160),0
box 55,0,100,100
ink rgb(255,0,0),0
box 0,48,65,52
ink rgb(20,20,255),0
box 0,0,30,1
box 0,99,30,100
box 30,0,31,47
box 30,53,31,100
ink rgb(200,200,200),0
box 90,0,100,100
get image 1,0,0,100,100
cls
ink rgb(100,100,70),0
box 0,0,50,50
ink rgb(0,100,0),1
for t=0 to 5
circle 20,20,t
next t
box 20,18,50,22
get image 2,0,0,50,50
cls
ink rgb(255,255,0),0
box 0,0,124,124
ink rgb(100,100,0),0
for t=1 to 500
a=rnd(124)
b=rnd(124)
box a,b,a,b
next t
get image 3,0,0,124,124
cls
ink rgb(250,0,0),0
circle 5,5,5
get image 4,0,0,11,11
cls
ink rgb(255,0,0),0
box 0,0,10,479
ink rgb(200,0,0),0
box 3,0,7,479
get image 5,0,0,10,479
cls
ink rgb(250,250,250),0
for t=0 to 100
a=rnd(100)
b=rnd(100)
box a,b,a,b
next t
get image 6,0,0,100,100
cls
ink rgb(0,0,255),0
a=1
for t=255 to 0 step -1
box 0,t,20,t
inc a,1
ink rgb(0,0,a),0
next t
ink rgb(0,0,0),0
box 0,254,20,255
get image 7,0,0,20,255
ink rgb(50,50,50),0
box 0,0,124,124
ink rgb(45,45,45),0
box 10,10,114,114
get image 10,0,0,124,124
return

sync on
print "Hello"
~fade(1,4)
END

`~Fade In/Out Screen
FUNCTION ~fade(fade,speed)
if fade = 1
   g = 0 : add = speed*1
else
   g = 255 : add = speed*-1
endif
`fade in/out screen
For x = 0 to 255
   set gamma g,g,g
   g = g + add
   if g < 0 then g = 0 : exit
   if g > 255 then g = 255 : exit
   sync
Next x
ENDFUNCTION

sync on
print "Hello"

DO
 `fade in/out (custom wrapping function)
   f = wrapval(f,180, 1)
   ga = abs(sin(f)*255)
   set gamma ga,ga,ga
   sync
LOOP
END

FUNCTION wrapval(current, maxvalue, deg)
   inc current, deg
   if current >= maxvalue then current = 0
ENDFUNCTION current

sync on : autocam off : cls : sync rate 0
start:
ink rgb(100,0,0),0
box 212,200,433,282
box 212,294,433,369
box 212,383,433,459
ink rgb(255,255,255),0
set text size 70
text 262,200,"Play"
text 262,294,"Help"
text 262,383,"Quit"
do
if mousex()>212 and mousey()>200 and mousex()<433 and mousey()<282 and mouseclick()=1 then goto game
if mousex()>212 and mousey()>294 and mousex()<433 and mousey()<369 and mouseclick()=1 then gosub help
if mousex()>212 and mousey()>383 and mousex()<433 and mousey()<459 and mouseclick()=1 then end
sync
loop
help:
set text size 15
cls
center text 320,60,"It is the year 6,347,652,724. The sun has grown so large that Earth has been consumed. Humans"
center text 320,80,"were wiped out millenia ago, and the solar system is ruled by many different races of intelligent"
center text 320,100,"life. Cargo containers carry automated drones everywhere to do the work, while the alien races"
center text 320,120,"watch from their homes in space. One such cargo ship was unexpectedly fired upon by an evil"
center text 320,140,"battleship while on a depositation mission. It escaped and managed to find a safe refuge on a"
center text 320,160,"small, incredibly hot planet called Pluto. While orbiting it, searching for a safe place to land,"
center text 320,180,"it came across a derilect builing radiating massive amounts of energy. Ground control ordered"
center text 320,200,"the drones in the ship to infiltrate the building and find this power source. That is your mission."
center text 320,220,"Good Luck."
center text 320,260,"To select drones simply click on them. To move the drone that you have selected use the"
center text 320,280,"arrow keys. You must get at least one drone to the power source without being destroyed."
center text 320,300,"To move on to the next level simply move the drones off the right side of the map."
center text 320,320,"Press space to return."
while spacekey()=0
wait 1
endwhile
cls
gosub start







game:
cls
hide mouse
wait 1*2000
set gamma 0,0,0
center text 320,200,"A new time begins..."
~fade(1,6)
~fade(0,6)
cls
~fade(1,4)
gosub images
gosub cutscene


do
gosub mousehandle
gosub movement
gosub lazer
gosub haveloze
gosub collisionhandle
sync
loop

lose:
for t=0 to 500
center text 320,200,"Better luck next time."
sync
wait 1*1
next t
end
collisionhandle:

if selected=2
if object collision(2,0)>0 then position object 2,0,0,0 : selected=0 : inc gone,1 
endif
if selected=3
if object collision(3,0)>0 then position object 3,0,0,0 : selected=0 : inc gone,1 
endif
if selected=4
if object collision(4,0)>0 then position object 4,0,0,0 : selected=0 : inc gone,1 
endif
return

havewon:
if gone<3 and object visible(2)=0 and object visible(2)=0 and object visible(3)=0 then gosub win 
return
win:
for t=0 to 500
center text 320,200,"Yeah yeah, very good. Not that hard woz it?"
sync
wait 1*1
next t
end



haveloze:
if gone=3 then gosub lose
return

lazer:
sprite 6,200,0,5
inc lz,1
if lz<200 then sprite 5,100,0,5 : laser1=1
if lz>200 then delete sprite 5 : laser1=0
if lz=400 then lz=0
if lz<200 then delete sprite 6 : laser2=0
if lz>200 then sprite 6,200,0,5 : laser2=1

if selected=2
if object screen x(2)>85 and object screen x(2)<120 and laser1=1 then position object 2,0,0,0 : selected=0 : inc gone,1
endif
if selected=3
if object screen x(3)>85 and object screen x(3)<120 and laser1=1 then position object 3,0,0,0 : selected=0 : inc gone,1
endif
if selected=4
if object screen x(4)>85 and object screen x(4)<120 and laser1=1 then position object 4,0,0,0 : selected=0 : inc gone,1
endif

if selected=2
if object screen x(2)>185 and object screen x(2)<220 and laser2=1 then position object 2,0,0,0 : selected=0 : inc gone,1
endif
if selected=3
if object screen x(3)>185 and object screen x(3)<220 and laser2=1 then position object 3,0,0,0 : selected=0 : inc gone,1
endif
if selected=4
if object screen x(4)>185 and object screen x(4)<220 and laser2=1 then position object 4,0,0,0 : selected=0 : inc gone,1
endif



return

movement:
if selected>0
x#=object position x(selected)
z#=object position z(selected)
if leftkey()=1 then z#=z#-0.5
if rightkey()=1 then z#=z#+0.5
if upkey()=1 then x#=x#-0.5
if downkey()=1 then x#=x#+0.5
position object selected,x#,object position y(selected),z#
endif
return


mousehandle:
sprite 4,mousex(),mousey(),4
if mouseclick()=1 then gosub select
return


select:
if object exist(2)=1
if mousex()>object screen x(2)-20 and mousex()<object screen x(2)+10 and mousey()>object screen y(2)-10 and mousey()<object screen y(2)+10 then set object 2,0,1,1,1,0,1,0 : selected=2 : set object 3,1,1,1,1,1,1,1 : set object 4,1,1,1,1,1,1,1
endif
if object exist(3)=1
if mousex()>object screen x(3)-20 and mousex()<object screen x(3)+10 and mousey()>object screen y(3)-10 and mousey()<object screen y(3)+10 then set object 3,0,1,1,1,0,1,0 : selected=3 : set object 2,1,1,1,1,1,1,1 : set object 4,1,1,1,1,1,1,1
endif
if object exist(4)=1
if mousex()>object screen x(4)-20 and mousex()<object screen x(4)+10 and mousey()>object screen y(4)-10 and mousey()<object screen y(4)+10 then set object 4,0,1,1,1,0,1,0 : selected=4 : set object 2,1,1,1,1,1,1,1 : set object 3,1,1,1,1,1,1,1
endif
return 


cutscene:
make object cube 1,5
texture object 1,1
make object cube 2,4
make mesh from object 1,2
delete object 2
add limb 1,1,1
color limb 1,1,rgb(100,100,100)
offset limb 1,1,3,-0.5,z
position object 1,0,0,15
make object cylinder 2,4
zrotate object 2,90
make mesh from object 2,2
delete object 2
add limb 1,2,2
offset limb 1,2,-2,0,0
color limb 1,2,rgb(100,100,100)

position object 1,50,50,5



make object cube 2,1
position object 2,x,y,5
texture object 2,2
zrotate object 2,90


make object cylinder 3,0.3
make mesh from object 3,3
delete object 3
add limb 2,1,3
offset limb 2,1,0,-0.6,0.3
color limb 2,1,rgb(100,100,70)


make object cylinder 4,0.3
make mesh from object 4,4
delete object 4
add limb 2,2,4
offset limb 2,2,0,-0.6,-0.3
color limb 2,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 2,3,5
offset limb 2,3,-0.5,y,z
color limb 2,3,rgb(200,100,100)

position object 2,50,50,5
scale object 1,500,500,500
position object 1,0,0,200
scale object 2,900,900,900







make object cube 3,1
position object 3,x,y,5
texture object 3,2
zrotate object 3,90


make object cylinder 7,0.3
make mesh from object 3,7
delete object 7
add limb 3,1,3
offset limb 3,1,0,-0.6,0.3
color limb 3,1,rgb(100,100,70)

make object cylinder 4,0.3
make mesh from object 4,4
delete object 4
add limb 3,2,4
offset limb 3,2,0,-0.6,-0.3
color limb 3,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 3,3,5
offset limb 3,3,-0.5,y,z
color limb 3,3,rgb(200,100,100)
color backdrop rgb(10,10,15)
position object 3,50,50,5
scale object 3,900,900,900







make object cube 4,1
position object 4,x,y,5
texture object 4,2
zrotate object 4,90


make object cylinder 7,0.3
make mesh from object 3,7
delete object 7
add limb 4,1,3
offset limb 4,1,0,-0.6,0.3
color limb 4,1,rgb(100,100,70)

make object cylinder 8,0.3
make mesh from object 8,4
delete object 8
add limb 4,2,4
offset limb 4,2,0,-0.6,-0.3
color limb 4,2,rgb(100,100,70)
make object cube 5,0.7
make mesh from object 5,5
delete object 5
add limb 4,3,5
offset limb 4,3,-0.5,y,z
color limb 4,3,rgb(100,100,200)
position object 4,50,50,5
scale object 4,900,900,900
make matrix 1,10000,10000,10,10
position matrix 1,-5000,-450,-5000
prepare matrix texture 1,3,1,1

c#=400
set mipmap mode 2
for t=0 to 300 
position camera object position x(1)+15,object position y(1)+10,t
point camera object position x(1),object position y(1),object position z(1)
position object 2,object position x(1),object position y(1),object position z(1)
position object 1,0,c#,200
dec c#,2.5
sync
wait 20
next t

~fade(0,4)
position camera object position x(2)+70,object position y(2),object position z(2)-50
point camera object position x(2),object position y(2),object position z(2)
position object 2,object position x(1),object position y(1)-7,object position z(1)
position object 3,object position x(1)-15,object position y(1)-7,object position z(1)
position object 4,object position x(1)+15,object position y(1)-7,object position z(1)
position object 1,0,c#,200
dec c#,1.2
~fade(1,4)
repeat
position camera object position x(2)+70,object position y(2),object position z(2)-50
point camera object position x(2),object position y(2),object position z(2)
position object 2,object position x(1),object position y(1)-7,object position z(1)
position object 3,object position x(1)-15,object position y(1)-7,object position z(1)
position object 4,object position x(1)+15,object position y(1)-7,object position z(1)
position object 1,0,c#,200
dec c#,1.2
wait 20
until object position y(1)<-436 
repeat
position camera object position x(2)+70,object position y(2),object position z(1)-50
point camera object position x(2),object position y(2),object position z(2)
position object 1,0,c#,200
inc c#,1.2
sync
wait 20
until object position y(1)>-350
position camera object position x(2)+70,object position y(2),object position z(1)-50
point camera object position x(2),object position y(2),object position z(2)
position object 1,0,c#,200
inc c#,1.2
sync
wait 20

position object 1,0,-1000,200
for t=0 to -90 step -1
yrotate object 2,wrapvalue(t)
yrotate object 3,wrapvalue(t)
yrotate object 4,wrapvalue(t)
sync
wait 1*1
next t
wait 1*1000

for t=200 to 450
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
sync
wait 1*20
next t

for t=450 to 800
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
position camera object position x(4)+15,object position y(4),object position z(4)+15
point camera object position x(3),object position y(3),object position z(3)
sync
wait 1*20
next t
~fade(0,4)
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
position camera object position x(2),object position y(2)+f,object position z(2)-(100+g)
point camera object position x(2),object position y(2),object position z(2)
inc f,1
inc g,2
sync
~fade(1,4)
for t=800 to 1200
position object 2,object position x(2),object position y(2),t
position object 3,object position x(3),object position y(3),t
position object 4,object position x(4),object position y(4),t
position camera object position x(2),object position y(2)+f,object position z(2)-(100+g)
point camera object position x(2),object position y(2),object position z(2)
inc f,1
inc g,2
sync
wait 1*20
next t

for f=0 to 240 step 5
	r=255-f
	g=255-f
	b=255-f
	set gamma r,g,b
next f


prepare matrix texture 1,10,1,1
position object 2,object position x(2),object position y(2),450
position object 3,object position x(3),object position y(3),450
position object 4,object position x(4),object position y(4),450
position camera 0,-200,600
point camera 0,-400,600
yrotate camera 270
for f=15 to 250 step 5
	r=f
	g=f
	b=f
	set gamma r,g,b
next f
color backdrop rgb(50,50,50)
position camera object position x(4)+12,object position y(4),object position z(4)+5
point camera object position x(4),object position y(4),object position z(4)

position object 2,object position x(2),object position y(2),450
position object 3,object position x(3),object position y(3),450
position object 4,object position x(4),object position y(4),450
position camera 0,-200,600
point camera 0,-400,600
yrotate camera 270
return





images:
ink rgb(100,100,100),0
box 0,0,100,100
ink rgb(170,160,160),0
box 55,0,100,100
ink rgb(255,0,0),0
box 0,48,65,52
ink rgb(20,20,255),0
box 0,0,30,1
box 0,99,30,100
box 30,0,31,47
box 30,53,31,100
ink rgb(200,200,200),0
box 90,0,100,100
get image 1,0,0,100,100
cls
ink rgb(100,100,70),0
box 0,0,50,50
ink rgb(0,100,0),1
for t=0 to 5
circle 20,20,t
next t
box 20,18,50,22
get image 2,0,0,50,50
cls
ink rgb(255,255,0),0
box 0,0,124,124
ink rgb(100,100,0),0
for t=1 to 500
a=rnd(124)
b=rnd(124)
box a,b,a,b
next t
get image 3,0,0,124,124
cls
ink rgb(250,0,0),0
circle 5,5,5
get image 4,0,0,11,11
cls
ink rgb(255,0,0),0
box 0,0,10,479
ink rgb(200,0,0),0
box 3,0,7,479
get image 5,0,0,10,479
cls
ink rgb(250,250,250),0
for t=0 to 100
a=rnd(100)
b=rnd(100)
box a,b,a,b
next t
get image 6,0,0,100,100
cls
ink rgb(0,0,255),0
a=1
for t=255 to 0 step -1
box 0,t,20,t
inc a,1
ink rgb(0,0,a),0
next t
ink rgb(0,0,0),0
box 0,254,20,255
get image 7,0,0,20,255
ink rgb(50,50,50),0
box 0,0,124,124
ink rgb(45,45,45),0
box 10,10,114,114
get image 10,0,0,124,124
return

FUNCTION ~fade(fade,speed)
if fade = 1
   g = 0 : add = speed*1
else
   g = 255 : add = speed*-1
endif

For x = 0 to 250
   set gamma g,g,g
   g = g + add
   if g < 0 then g = 0 : exit
   if g > 255 then g = 255 : exit
   sync
Next x
ENDFUNCTION

for f=0 to 240 step 5
   r=255-f
   g=255-f
   b=255-f
   set gamma r,g,b
next f

for f=255 to 15 step -5
   set gamma f,f,f
next f

for f=15 to 250 step 5
   r=f
   g=f
   b=f
   set gamma r,g,b
next f

for f=15 to 250 step 5
   set gamma f,f,f
next f

Roddman

The multi-unit selection box wins it

Insert Name Here: 'Flamewars'

`=====================
`===Alex's RPS game===
`=====================


sync on : cls : sync rate 0
ink rgb(255,255,255),0
center text 320,80,"Journey to RPS Kastle"
center text 320,100,"1.Play"
center text 320,120,"2.Help"
do
if inkey$()="1" then gosub game
if inkey$()="2" then gosub help
sync
loop

help:
cls
print "You must get to RPS Kastle. To do this you must win a series of Rock Paper Scissors games. Begin"
print "By choosing how many times the enemy who you are playing against will respawn. Then choose"
print "how many times you will respawn. After that you will play Rock Paper Scissors. Click on either rock,"
print "paper or scissors. If you pick the same as the enemy, nothing will happen. You will kill the en-"
print "emy if he has rock and you chose paper, he has paper and you chose scissors, or he has scissors"
print "and you have rock. He will kill you if the opposite is true. Good luck! Click to go back."
suspend for mouse
cls
center text 320,80,"Journey to RPS Kastle"
center text 320,100,"1.Play"
center text 320,120,"2.Help"
return
game:
gosub images
cls
ta:
ink rgb(255,255,255),0
input "How many times should the enemy respawn?",res
if res=0 
print "Invalid, 0 is cheating you lousy-!"
suspend for key
cls
gosub ta
endif
ta2:
input "How many times should you respawn?",yres
if yres=0 
print "Invalid, 0 is bad bad bad. Shame on you!"
suspend for key
cls
gosub ta2
endif
ink rgb(0,0,100),0
box 0,0,639,479
ink rgb(200,200,180),0
box 0,0,400,100
sprite 1,5,0,1
sprite 2,120,0,2
sprite 3,260,30,3
get image 4,400,180,500,400

do
gosub gl
gosub havewonorlost
sync
loop

havewonorlost:
if yres-deaths>0 and res-goes=0 then gosub win
if yres-deaths=0 and res-goes>0 then gosub lose
return

win:
cls
delete sprite 1
delete sprite 2
delete sprite 3
ink rgb(100,100,255),0
box 0,0,639,300
ink rgb(0,100,0),0
box 0,300,639,479
ink rgb(255,255,200),0
box 100,50,250,400
box 200,150,450,400
box 400,50,550,400
ink rgb(100,70,70),0
box 295,300,355,400
ink rgb(0,0,0),0
center text 320,200,"You made it to RPS Kastle!"
suspend for key
end

lose:
cls
delete sprite 1
delete sprite 2
delete sprite 3
ink rgb(255,0,0),0
box 100,100,500,400
for t=0 to 200
a=rnd(600)
b=rnd(400)
box a,b,a+rnd(100),b+rnd(100)
next t
blur bitmap 0,6
blur bitmap 0,6
blur bitmap 0,6
ink rgb(0,0,200),0
center text 320,200,"You lost."
suspend for key
end


gl:
set cursor 420,0
print "Enemy respawns left:",res-goes
set cursor 420,20
print "You respawns left:",yres-deaths

if mousex()<100 and mousey()<100 and mouseclick()=1 then chose=1 : gosub chosen
if mousex()>120 and mousex()<240 and mousey()<100 and mouseclick()=1 then chose=2 : gosub chosen
if mousex()>260 and mousex()<360 and mousey()<100 and mouseclick()=1 then chose=3 : gosub chosen
return

chosen:
if chose=1 then sprite 4,0,200,1
if chose=2 then sprite 4,0,200,2
if chose=3 then sprite 4,0,240,3
set text size 120
text 400,180,"3"
wait 1*1000
paste image 4,400,180
text 400,180,"2"
wait 1*1000
paste image 4,400,180
text 400,180,"1"
wait 1*1000
paste image 4,400,180
enemy=1+rnd(2)
if enemy=1 then sprite 5,300,200,1
if enemy=2 then sprite 5,300,200,2
if enemy=3 then sprite 5,300,200,3
set text size 50
if enemy=chose then center text 320,350,"Draw! Click to continue." : dnc=1
if enemy=1 and chose=2 or enemy=2 and chose=3 or enemy=3 and chose=1 then center text 320,350,"You Win! Click to continue."
if chose=1 and enemy=2 or chose=2 and enemy=3 or chose=3 and enemy=1 then center text 320,350,"You Loze! Click to continue." : deaths=deaths+1 : dnc=1
suspend for mouse
delete sprite 4
delete sprite 5
cls
ink rgb(0,0,100),0
box 0,0,639,479
ink rgb(200,200,180),0
box 0,0,400,100
if dnc=0 then goes=goes+1
if dnc=1 then dnc=0
return

images:
ink rgb(70,70,70),0
box 20,0,80,100
box 0,20,100,80
ink rgb(40,40,40),0
for t=0 to 500
a=rnd(100)
b=rnd(100)
box a,b,a,b
next t
ink rgb(0,0,0),0
box 0,0,20,20
box 0,80,20,100
box 80,0,100,20
box 80,80,100,100
get image 1,0,0,100,100
cls
ink rgb(255,255,255),0
box 0,0,120,100
get image 2,0,0,120,100
cls
ink rgb(180,180,180),0
for t=5 to 15
line 0,t,100,40
next t
for t=31 to 40
line 0,t,100,5
next t 
ink rgb(255,0,0),0
box 0,0,20,20
box 0,25,20,45
ink rgb(0,0,0),0
box 4,4,16,16 
box 4,29,16,41 
get image 3,0,0,100,45
return