making a load/save feature - GameCreators Forum

Author

Message

dj BlackDragon

21

Years of Service

User Offline

Joined: 23rd Sep 2003

Location: who knows

Posted: 9th Jul 2004 07:42

Link

Hi,
once again i have a question.I would like to know if anybody would be eble to make a load/save feature and incorporate it into this code.(pleas dont take the code.)and sorry if its not very explanatory.plus for the music commands put your own cd in place of those.

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

`main menu
CLS
LOAD CDMUSIC 3,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,255,255),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
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:
`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
   end
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
Load Object "command.3DS" ,5
Position Object 5,300,4,2500
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

+ Code Snippet

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

`main menu
CLS
LOAD CDMUSIC 3,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,255,255),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
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:
`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
   end
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
Load Object "command.3DS" ,5
Position Object 5,300,4,2500
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

Current Project:Quest for the Five Staffs of Draconia

Back to top

Profile PM Email Website

zane

21

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: manchester, england

Posted: 9th Jul 2004 08:18

Link

I carnt really do it for you (well, i could, but i dont know exactly what you want to save). but heres a basic explanation of how to do it

If you store the variables you wish to save in an array, then use the save array command, those variables will be saved.
you then load the array when you wish to load and assign the values in the array to the respective variable.

www.zaneinteractive.uni.cc - my brand new site, check it out - NOW!!!!!

Back to top

Profile PM Email Website

dj BlackDragon

21

Years of Service

User Offline

Joined: 23rd Sep 2003

Location: who knows

Posted: 9th Jul 2004 08:36

Link

ok this is what i wanted to do.i would like to save the part of the game that your at in a special file name and when you click the load button on the first menu it brings up the same exact spot you were at when you saved.
bye,
Ian
P.S.Thanks for the help.

urrent Project:Quest for the Five Staffs of Draconia

Back to top

Profile PM Email Website

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 9th Jul 2004 12:32

Link

Simply do what zane suggested.

Get all your variables, such as health, position, weapons, whatever applys to your game, and stick it all in an array, then simply use the Save Array command, and when you want to load it, use the Load Array command. Simple.

Jess.

Team EOD :: Programmer/Logical Engineer/All-Round Nice Guy

Back to top

Profile PM Email Website

dj BlackDragon

21

Years of Service

User Offline

Joined: 23rd Sep 2003

Location: who knows

Posted: 10th Jul 2004 01:59

Link

well thanks to you both.I will have to try that when i get home.and thanks again.
bye,
Ian

urrent Project:Quest for the Five Staffs of Draconia

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / making a load/save feature