Help with file save & load?

Blitz3D Forums/Blitz3D Programming/Help with file save & load?

Guy Fawkes

(Posted 2012) [#1]

Hi all :) Ok, so a few weeks ago when I was on vacation, I wrote a function to save multiple objects to a specific folder, along with a save file that reads each object into my level for my game. Now the PROBLEM I'm having is that it's saying "Object does not exist" at THIS line:

all\id = LoadAnimMesh(all\meshdir$)

I have NO idea why.

I checked if all\meshdir$ is NOT "nothing", and it wasn't. It lead straight to the mesh's correct location.

Can someone please help me out here? :) Thanks alot! :)

Here's the functions:

Function Call_Load_Open_Menu()
	
	
	
	ext$ = ".myfile"+Chr$(0)+"*.myfile"+Chr$(0) ;USE A SEMI COLON IF NOT THE END OF THE FILE TYPES LIST!
	
	openfiledir$ = ".\"
	
	openfilename$ = WB3D_OpenFileRequest("Load Level...",openfiledir$,ext$,"")
	
	
	
	If openfilename$ = "" Then api_MessageBox(0, "Level Load Canceled...", "WARNING!", 0) : Return
	
	
	
	If openfilename$<>"" Then
		
		
		
		fname1$ = getfilename$(openfilename$)
		
		fpath1$ = getdirectory$(openfilename$)
		
		fext1$  = getextension$(openfilename$)
		
		
		
		objcount = objcount + 1
		
		
		
		Select fext1$
				
				
				
			Case "myfile"
				
				
				
				;For all.objs = Each objs
				
				
				
				all.objs = New objs
				
				
				
					
					filehandle = ReadFile(openfilename$)
					
					
					
					
					If filehandle<>0
						
						
						
						
						
						Repeat
							
							
							
							all\id = ReadLine$(filehandle)
							
							
							ReadLine$(filehandle)
							
							
							all\meshdir$ = ReadLine$(filehandle)
							
							
							ReadLine$(filehandle)
							
							
							all\xposition# = ReadLine$(filehandle)
							
							all\yposition# = ReadLine$(filehandle)
							
							all\zposition# = ReadLine$(filehandle)
							
							
							ReadLine$(filehandle)
							
							
							all\xrotation# = ReadLine$(filehandle)
							
							all\yrotation# = ReadLine$(filehandle)
							
							all\zrotation# = ReadLine$(filehandle)
							
							
							ReadLine$(filehandle)
							
							
							all\xscale# = ReadLine$(filehandle)
							
							all\yscale# = ReadLine$(filehandle)
							
							all\zscale# = ReadLine$(filehandle)
							
							
							
							api_messagebox(0, all\meshdir$, all\meshdir$, 0)
							
							

								
							all\id=LoadAnimMesh(all\meshdir$)
							
							
							
							
							PositionEntity all\id, all\xposition#, all\yposition#, all\zposition#
							
							
							
							
							ScaleEntity all\id, all\xscale#, all\yscale#, all\zscale#
							
							
							
							
							RotateEntity all\id, all\xrotation#, all\yrotation#, all\zrotation#
							
							
							
							
							If Eof(filehandle) Then Exit : CloseFile(filehandle)
							
							
							
							
						Until Eof(filehandle)
						
						
						
						
					EndIf



					
				;Next
					
				
				
				
		End Select
		
		
		
		
	EndIf
	
	
	
End Function



Function Save()
	
	
	
	ext$ = ".myfile" + Chr$(0) + "*.myfile" + Chr$(0) ;USE A SEMI COLON IF NOT THE END OF THE FILE TYPES LIST!
	
	savefiledir$ = ".\tmpdir2\"
	
	savefilename$ = WB3D_SaveFileRequest("Save Level...", savefiledir$, ext$, "")
	
	If savefilename$ = "" Then api_MessageBox(0, "File Save Canceled...", "WARNING!", 0)
	
	
	
	If savefilename$<>"" Then
		
		
		
		fpath1$ = getdirectory$(savefilename$)
		
		
		fname1$ = getfilename$(savefilename$)
		
		
		fext1$  = ".myfile"
		
		
		
		For all.objs = Each objs
			
			
			
			
			fpath2$ = getdirectory$(all\meshdir$)
			
			fname2$ = getfilename$(all\meshdir$)
			
			fext2$ = getextension$(all\meshdir$)																
			
			
			
			
		Next
		
		
		
		
	;THIS folder\tmpdir\savefile.myfile
		save_filename$ = fpath1$+fname1$+fext1$
		
		
		
	;THIS folder\tmpdir\mesh.b3d
		save_filename2$ = fpath2$+fname2$
		
		
		
	;This is the loaded location of the currently loaded mesh
		orig_file_location$ = save_filename$
		
		
		
	;This is the new location of the currently saved mesh
		save_file_location$ = save_filename2$
		
		
		
		
		If save_filename$<>"" Then iwanttowrite = True : Else iwanttowrite = False
		
		
		
		
		If iwanttowrite = True Then Save_Level(orig_file_location$, fpath2$+fname2$+fext2$, fpath2$+fname2$, iwanttowrite)
		
		
		
		
	EndIf
	
	
	
End Function



Function Save_Level(orig_file_location$, orig_model_file_location$, save_file_location$, iwanttowrite)
	
	
	
		;Save ALL objects
	
	
	
	
	For all.objs = Each objs
		
		
		
		
		
		If all\id<>0
			
			
			
			
			;This is the original saved mesh file's location
			
			
			orig_model_location$ = orig_model_file_location$
			
			
			
			;This is the new location for the currently selected mesh
			
			new_model_location$ = save_file_location$
			
			
			
			
			CopyFile(orig_model_location$, new_model_location$)
			
			
			
		EndIf
		
		
		
	Next
	
	
	
	
		;Create Level
	
	
	
	
	If objcount>0
		
		
		
		
		
		DeleteFile orig_file_location$
		
		
		
		
		
		
		If iwanttowrite = True
			
			
			
			
			
			oldfilehandle = filehandle
			
			
			
			
			
			filehandle = WriteFile(orig_file_location$)
			
			
			
			
		EndIf
		
		
		
		
		
		Repeat
			
			
			
			
			
			For all.objs = Each objs
				
				
				
				
				
				If all\id<>0
					
					
					
					
					
					If entity<>all\id
						
						
						
						
						
						all\xposition# = EntityX(all\id, True)
						
						
						all\yposition# = EntityY(all\id, True)
						
						
						all\zposition# = EntityZ(all\id, True)
						
						
						
						all\xrotation# = EntityPitch(all\id, True)
						
						
						all\yrotation# = EntityYaw(all\id, True)
						
						
						all\zrotation# = EntityRoll(all\id, True)																				
						
						
						
						all\xscale# = EntityScaleX#(all\id)
						
						
						all\yscale# = EntityScaleY#(all\id)
						
						
						all\zscale# = EntityScaleZ#(all\id)
						
						
						
						
						
					ElseIf entity=all\id
						
						
						
						
						all\xposition# = EntityX(entity, True)
						
						
						all\yposition# = EntityY(entity, True)
						
						
						all\zposition# = EntityZ(entity, True)
						
						
						
						all\xrotation# = EntityPitch(entity, True)
						
						
						all\yrotation# = EntityYaw(entity, True)
						
						
						all\zrotation# = EntityRoll(entity, True)																				
						
						
						
						all\xscale# = EntityScaleX#(entity)
						
						
						all\yscale# = EntityScaleY#(entity)
						
						
						all\zscale# = EntityScaleZ#(entity)
						
						
						
						
						
					EndIf
					
					
					
					
				EndIf
				
				
				
				
				
				;If all\id<>0
				
				
				
				If filehandle<>0
					
					
					
					WriteLine(filehandle, all\id)
					
					
					WriteLine(filehandle, "")
					
					
					WriteLine(filehandle, all\meshdir$)
					
					
					WriteLine(filehandle, "")
					
					
					WriteLine(filehandle, all\xposition#)
					
					
					WriteLine(filehandle, all\yposition#)
					
					
					WriteLine(filehandle, all\zposition#)
					
					
					WriteLine(filehandle, "")
					
					
					WriteLine(filehandle, all\xrotation#)
					
					
					WriteLine(filehandle, all\yrotation#)
					
					
					WriteLine(filehandle, all\zrotation#)														
					
					
					WriteLine(filehandle, "")
					
					
					WriteLine(filehandle, all\xscale#)
					
					
					WriteLine(filehandle, all\yscale#)
					
					
					WriteLine(filehandle, all\zscale#)
					
					
					WriteLine(filehandle, "")
					
					
					
					
					
				EndIf
				
				
				
			Next
			
			
			
			Exit
			
			
			
			
		Until Eof(filehandle)
		
		
		
		
		
	ElseIf objcount = 0
		
		
		
		
		
		api_MessageBox(0, "Please import a 3D object into the 3D scene before attempting to save!", "WARNING!", 0)
		
		
		
		
		
	EndIf
	
	
	
	
	
										;If filehandle<>0 Then CloseFile filehandle
	
	
	
	
	
	If filehandle<>0
		
		
		
		
		
		If FileType(save_file_location$)<>0 Then api_MessageBox(0, "File was saved successfully!", "Save Successful!", 0)
		
		
		
		
		
	ElseIf filehandle=0
		
		
		
		
		
		api_MessageBox(0, "Level Save File failed...", "WARNING!", 0)
		
		
		
		
		
	EndIf
	
	
	
	
	
	
	Return FileType(save_file_location$)
	
	
	
	
	
End Function

Please note you do NOT need to run this code. I just need to see why its saying that the loaded mesh does not exist when it clearly does o.o

the loaded path TO my model btw, is whatever path was chosen from the load menu in function Call_Load_Open_Menu(). My load function then reads which mesh location was written into the save file.

Please note: The file extension for now for the save file, is ".myfile"

Thanks again! =D

Last edited 2012

Yasha

(Posted 2012) [#2]

"Object" in Blitz3D errors doesn't refer to 3D models or other scene objects - these will be referred to as "entity" if it needs to be generic, or "mesh", "camera" etc. if it happens to know the subtype of the entity in question.

When an error message refers to "objects", it means instances of custom types. Therefore "Object does not exist" means that the variable in question ("all") is Null at the time when you're expecting to be able to use an object pointed to by it.

So this error message has nothing to do with the loaded mesh. Stick a Stop in that case block and try stepping through it to see why it's Null.

Last edited 2012

Guy Fawkes

(Posted 2012) [#3]

Well do you know what's going on with this thing? For god sakes it's driving me crazy *twitch* :3

Guy Fawkes

(Posted 2012) [#4]

UKW? Screw it. im going to upload a demo :P cause i REALLY need help with this :)

Guy Fawkes

(Posted 2012) [#5]

NVM! Figured it out! I fgt. to add 2 readline(filehandle)'s to the end of my file read... it was crashing because it was missing 2 lines which were null. THANKS ALOT, YASHA! =D

Yasha

(Posted 2012) [#6]

I have no idea why it was doing what it was doing, but OK, glad I apparently helped...?

However, I would suggest you consider using some other way to read/store your data. The issue you just had shows how unstable a program can be when the exact shape of the data is hardcoded into the read routine. If you use a slightly more structured format (e.g. XML, INI - I remember you looked at that before), the program will automatically be resilient to errors caused by too many or too few newlines, or fields being written in the wrong order, or left out, or whatever. You can find libraries for handling XML and other things in the code archives.

Last edited 2012

Guy Fawkes

(Posted 2012) [#7]

Thanks, Yasha! :)

Guy Fawkes

(Posted 2012) [#8]

Thanks, Yasha! :)

Guy Fawkes

(Posted 2012) [#9]

Sorry for the double post.... The forum seems to allow for that for some reason... I twitched when I hit the submit button ><