Sorry your browser is not supported!

Rem Make Cubes and place randomly
For x = 1 to 5
   Make object cube x,100
   Position object x,Rnd(2000),0,Rnd(2000)
   Set object collision to boxes x
Next i

`Quest for the Five Staffs of Draconia
`made 6/25/04
`by Ian Calvert

`main menu
CLS
LOAD CDMUSIC 10,4
PLAY MUSIC 4
main_menu:
ink rgb(255,255,255),0
text 20,120,"New Game"
text 20,160,"Music"
text 20,200,"Options"
text 20,240,"Credits"
text 20,280,"Exit"
repeat
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(255,255,0),0 : text 20,120,"New Game"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,0,0),0 : text 20,120,"New Game"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then GOTO SUBROUTINE
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(255,255,0),0 : text 20,160,"Music"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"Music"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then GOTO MUSIC
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(255,255,0),0 : text 20,200,"Options"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"Options"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then GOTO OPTIONS
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 230) and (mousey() <=250))) then ink rgb(255,255,0),0 : text 20,240,"Credits"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 230) or (mousey() >250))) then ink rgb(255,255,255),0 : text 20,240,"Credits"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 230) and (mousey() <=250))) and (mouseclick()=1)) then GOTO CREDITS
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 270) and (mousey() <=290))) then ink rgb(255,255,0),0 : text 20,280,"Exit"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 270) or (mousey() >290))) then ink rgb(255,255,255),0 : text 20,280,"Exit"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 270) and (mousey() <=290))) and (mouseclick()=1)) then end
until false


`music menu
MUSIC:
CLS
stop music 4
delete music 4
ink rgb(255,255,255),0
text 20,120,"Power"
text 20,160,"The E!"
text 20,200,"i cant remember"
text 20,240,"back"
repeat
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) then ink rgb(255,255,0),0 : text 20,120,"Power"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 110) or (mousey() >130))) then ink rgb(255,255,255),0 : text 20,120,"Power"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 110) and (mousey() <=130))) and (mouseclick()=1)) then goto play_song
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) then ink rgb(255,255,0),0 : text 20,160,"The E!"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 150) or (mousey() >170))) then ink rgb(255,255,255),0 : text 20,160,"The E!"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 150) and (mousey() <=170))) and (mouseclick()=1)) then goto play_song2
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) then ink rgb(255,255,0),0 : text 20,200,"i cant remember"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 190) or (mousey() >210))) then ink rgb(255,255,255),0 : text 20,200,"i cant remember"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 190) and (mousey() <=210))) and (mouseclick()=1)) then goto play_song3
if (((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 230) and (mousey() <=250))) then ink rgb(255,255,0),0 : text 20,240,"back"
if (((mousex() < 10) or (mousex() > 100)) or ((mousey() < 230) or (mousey() >250))) then ink rgb(255,255,255),0 : text 20,240,"back"
if ((((mousex() >= 10) and (mousex() <= 100)) and ((mousey() >= 230) and (mousey() <=250))) and (mouseclick()=1)) then goto main_menu
until false


`Play song selected
play_song:
CLS
LOAD CDMUSIC 11,2
PLAY MUSIC 2
GOTO SUBROUTINE
play_song2:
CLS
LOAD CDMUSIC 1,3
PLAY MUSIC 3
GOTO SUBROUTINE
play_song3:
cls 
load cdmusic 3,5
play music 5
goto SUBROUTINE
`options menu
OPTIONS:
CLS
password$="enable cheats"
input "Password: ",userpassword$
IF userpassword$=password$
PRINT "Hold Please"
wait 1500
GOTO cheats
ELSE 
PRINT "Access Denied"
END
ENDIF
wait 3000
CLS

`The cheat pass codes
cheats:
CLS
cheat$="Time Warp"
input "Enter Cheat:";usercheat$
IF usercheat$=cheat$
GOTO no_cheats
ELSE
PRINT "wrong cheat try again"
ENDIF
wait 2500
CLS
no_cheats:
PRINT "Sorry there are no cheats for this game(Yet>:)"
wait 3000
GOTO SUBROUTINE

`credits
CREDITS:
CLS
hide mouse

`Sets the var to 0
var = 0
`Sets the var2 to 5
var2 = 5

REPEAT
   `Starts the loading scroll. It just shows test, clears the screen, then shows another text
   PRINT "Loading"

   `Waits 500 miliseconds
   Wait 500

   `Clears screen
   CLS
   PRINT "Loading."
   WAIT 500
   CLS
   PRINT "Loading.."
   WAIT 500
   CLS
   PRINT "Loading..."
   WAIT 500
   CLS
   PRINT "Loading.."
   WAIT 500
   CLS
   PRINT "Loading."
   WAIT 500
   CLS
   PRINT "Loading"
   WAIT 500
   CLS

   `Adds 1 to var so the scroll can stop after 1 time
   var=var+1
UNTIL var = 1

PRINT "Press Space to Continue"

repeat
   `If spacebar is pressed then var2 = 0
   If SpaceKey() = 1 then var2=0
   `If enterkey is pressed then var2 = 1
   if returnkey() = 1 then var2=1
`Repeat until var2 = 0 or 1
until var2 = 0 or var2 = 1

`If var2 = 0 then scroll Hello and end
if var2=0
   `Basically does the same as the loading scroll
   CLS
   PRINT "w"
   Wait 250
   CLS
   PRINT "we"
   Wait 250
   CLS
   PRINT "wel"
   Wait 250
   CLS
   PRINT "welc"
   Wait 250
   CLS
   PRINT "welco"
   wait 250
	CLS  
   PRINT "welcom"
   Wait 250
   CLS
   PRINT "welcome"
   Wait 250
   CLS
   PRINT "welcome t"
   Wait 250
   CLS
   PRINT "welcome to"
   Wait 250
   CLS
   PRINT "welcome to t"
	wait 250
	CLS
	PRINT "welcome to th"
	wait 250
	CLS
	PRINT "welcome to the"
	wait 250
	CLS
	PRINT "wlcome to the c"
	wait 250
	CLS	
	PRINT "welcome to the cr"
	wait 250
	CLS
	PRINT "welcome to the cre"
	wait 250
	CLS
	PRINT "welcome to the cred"
	wait 250
	CLS  
	PRINT "welcome to the credi"
	wait 250
	CLS
	PRINT "welcome to the credit"
	wait 250
	CLS
	PRINT "welcome to the credit s"
	wait 250
	CLS
	PRINT "welcome to the credit se"
	wait 250
	CLS
	PRINT "welcome to the credit sec"
	wait 250
	CLS
	PRINT "welcome to the credit sect"
	wait 250
	CLS
	PRINT "welcome to the credit secti"
	wait 250
	CLS
	PRINT "welcome to the credit sectio"
	wait 250
	CLS
	PRINT "welcome to the credit section"
	wait 250
	CLS
	PRINT "welcome to the credit section:"
	wait 250
	CLS
	PRINT "welcome to the credit section:a"
	wait 250
	CLS
	PRINT "welcome to the credit section:a s"
	wait 250
	CLS
	PRINT "welcome to the credit section:a sp"
	wait 250
	CLS
	PRINT "welcome to the credit section:a spe"
	wait 250
	CLS
	PRINT "welcome to the credit section:a spec"
	wait 250
	CLS
	PRINT "welcome to the credit section:a speci"
	wait 250
	CLS
	PRINT "welcome to the credit section:a specia"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special t"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special th"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special tha"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special than"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special thank"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special thanks"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special thanks t"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special thanks to"
	wait 250
	CLS
	PRINT "welcome to the credit section:a special thanks to:"
	PRINT "DARKguy,DarkBASIC,aura,my parents,Hop Along,Emeror Baal."
`Wait an extra 5000 miliseconds to let the user see the Hello text
   Wait 5000
   END
`else end
else
   goto main_menu
endif


`the main loop
SUBROUTINE:
CLS
hide mouse
PRINT "Hit enter to begin"
input returnkey
CLS

`make the aimer
autocam off
hide mouse
make object plain 99,2,2
   load image "c:\temp\gunsites.BMP",3
   texture object 99,3
   set object 99,1,0,1 :`set the object transparency.  If this doesn't work will, use the "ghost on" command.
   position object 99,0,0,25
   fix object pivot 99
   lock object on 99

`make objects and matrix
make object sphere 4,50
position object 4,0,100,0

`make matrix
Make matrix 1,10000,10000,20,20

`texture matrix
Load image "cliff03.BMP",1
Prepare matrix texture 1,1,2,2
Load Object "GUN19.X" ,1
xrotate object 1,90
fix object pivot 1 
scale object 1,100,100,500
position object 1,0,-7,15
lock object on 1
make object sphere 2,3
hide object 2
hide object 4

`bullets
If BulletLife > 0
	Dec BulletLife
	Move object 2,20
	bX#=Object position X(2)
	bY#=Object position Y(2)
	bZ#=Object position Z(2)
	Position sound 2,bX#,bY#,bZ#
	set cursor 10,10
	if Sqrt((mX# - bX#)^2 + (mY#+25 - bY#)^2 + (mZ# - bZ#)^2) <20
		text 240,220 ,"hit hit hit hit hit hit hit hit"
		BulletLife = 0
	Endif
	if BulletLife = 0
		Hide object 2
		stop sound 2
	Endif
Endif
`set the camera range
set camera range 1,3000
sync on
sync rate 100

`begin game loop
do

`position camera at location and rotation of object 4
position camera object position x(4),object position y(4),object position z(4)
rotate camera object angle x(4),object angle y(4),object angle z(4)
`define camera variables
wvtx=object angle x(4)
wvty=object angle y(4)
wvtz=object angle z(4)
wcax=wrapvalue(wvtx)
wcay=wrapvalue(wvty)
wcaz=wrapvalue(wvtz)
`controls
	`aiming
cya#=wrapvalue(cya#+(mousemovex()/3.0))
cxa#=cxa#+(mousemovey()/3.0)
if cxa#<-45.0 then cxa#=-45.0
if cxa#>45.0 then cxa#=45.0
cx#=newxvalue(x#,cya#,sin(cxa#)*10)
cz#=newzvalue(z#,cya#,sin(cxa#)*10)
rotate camera wrapvalue(cxa#),cya#,0
rotate object 4,0,camera angle y(),0
position camera object position x(4),object position y(4),object position z(4)
	`walking
if upkey()=1 then move object 4,8
if downkey()=1 then move object 4,-8
	`jumping
if controlkey()=1 and ajump=1
	jumpb=1
	height=30
endif
if jumpb=1
	height=height-1
	position object 4,object position x(4),object position y(4)+height,object position z(4)
endif
if object position y(4)>100 then ajump=0 else ajump=1
if object position y(4)<100
	position object 4,object position x(4),100,object position z(4)
	jump=0
	height=0
endif
	`shooting
if mouseclick()>0 and dst=0
	shot=1
	bdst=1
	show object 2
	position object 2,object position x(4),object position y(4)-1,object position z(4)
	rotate object 2,camera angle x(),camera angle y(),camera angle z()
endif
if object position x(2)<0 or object position x(2)>400000 or object position z(2)>4000 or object position z(2)<0 or object position y(2)<0 or object position y(2)>1000
	hide object 2
	dst=0
	shot=0
endif
if shot=1
	dst=dst+1
	bdst=bdst+1
endif
if shot=1
	move object 2,100
	dst=dst+1
endif

`sync
sync

`end game loop
loop