Save/load help - GameCreators Forum

Author

Message

medsouz

14

Years of Service

User Offline

Joined: 10th May 2010

Location:

Posted: 29th May 2010 05:26

Link

I already got this code:

+ Code Snippet

function SaveGame()
if file exist("media\SaveGame.dat")=1 then delete file "media\SaveGame.dat"
open to write 1,"media\SaveGame.dat"
x#=object position x(2)
y#=object position y(2)
z#=object position z(2)
ax#=object angle x(2)
ay#=object angle y(2)
az#=object angle z(2)
write float 1,x#
write float 1,y#
write float 1,z#
write float 1,ax#
write float 1,ay#
write float 1,az#
endfunction



function LoadGame()
if file exist("media\SaveGame.dat")=1 and keystate(24)=1 
	if Loading = 0
	open to read 1,"media\SaveGame.dat"
	read float 1,x#
	read float 1,y#
	read float 1,z#
	read float 1,ax#
	read float 1,ay#
	read float 1,az#
	position object 2,x#,y#,z#
	xrotate object 2,ax#
	yrotate object 2,ay#
	zrotate object 2,az#
	Loading = 1
	endif
else
	loading = 0
endif
endfunction

But the loading function doesnt work and the saving works fine.

Switching from Lua scripting to BASIC Programming is a HUGE change..

Back to top

Profile PM

owlman

15

Years of Service

User Offline

Joined: 8th Apr 2009

Location: Italy

Posted: 29th May 2010 10:20 Edited at: 29th May 2010 10:51

Link

hi med, I dont get the if statement you are using .. and you have no CLOSE FILE statement. If you only call the function to open and read files, I think you can skip the if-clause. you might want to add a condition to check the file was opened correctly and respond if not - but that's a different matter.
I think the following should work ok for you ..

EDIT: you aren't closing your save file either .. the process is - open file to [operation] #filenumber, #filepath - do operation - close file #filenumber -

+ Code Snippet

function LoadGame()
 
	filename$= "C:\darkbasic\mymedia\Savegame.dat"
if not file exist(filename$)then error_handler("open file - no file found")

	open to read 1,filename$
	
        read float 1,x#
	read float 1,y#
	read float 1,z#
	read float 1,ax#
	read float 1,ay#
	read float 1,az#

      close file 1

	position object 2,x#,y#,z#
	xrotate object 2,ax#
	yrotate object 2,ay#
	zrotate object 2,az#

endfunction

function error_handler(S$)
print S$
wait key
end
endfunction

if effort>reward : gosub home : endif

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 3rd Jun 2010 17:37

Link

Using functions also requires that you understand how they work (you really should use subroutines until you do).

For example, the variable Loading is local to LoadGame() and will never be anything other than 0 (zero) when the function is called - so all lines which use it are redundant.

Check out numbers 1 to 4 here:

http://forum.thegamecreators.com/?m=forum_view&t=99497&b=10

TDK

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Save/load help