azureworlds save file source code

	Method SaveInstancesToFile() ' save to file
		Local fileName:String
		If AzCurrentFile = Null ' if a file isn't open
			fileName=RequestFile("Save World","Azure Worlds World:azw",True)
		Else
			fileName = AzCurrentFile ' set the current file to AzCurrentFile
		EndIf
		WriteLog("Saving file at..." + fileName,Syslog)
		CreateFile fileName ' create the file
		Local fileStream:TStream = OpenStream(fileName) ' open a stream of the file
		WriteLog("Writing header...",Syslog)
		WriteString(fileStream,"AZW") 'azure worlds
		WriteInt(fileStream,Version) 'write the Azure Worlds version
		WriteInt(fileStream,AzFileFormatVersion) 'write the file format version
		WriteLine(fileStream,CurrentDate() + " " + CurrentTime()) ' timestamp
		WriteLog("Writing SETTINGS block...",Syslog)
		WriteString(fileStream,"SETTINGS")
		WriteInt(fileStream,AzWorldSizeX)
		' RESERVED: Settings
		For Local i:Int = 1 To 8 ' space reserved for settings
			WriteInt(fileStream,0)
		Next
		WriteLine(fileStream,"") ' dummy line
		WriteLog("Writing instance information...",Syslog)
		For InstanceMgr = EachIn AzInstanceList ' go through every file...
			WriteString(fileStream,"INSTANCE") ' write INSTANCE string
			WriteInt(fileStream,InstanceMgr.instanceId) ' write instance id to file
			WriteInt(fileStream,InstanceMgr.uniqueId) ' write unique id to file
			WriteInt(fileStream,InstanceMgr.posX) ' write pos x to file
			WriteInt(fileStream,InstanceMgr.posY) ' write pos y to file
			WriteInt(fileStream,InstanceMgr.colourR) ' write colour r to file
			WriteInt(fileStream,InstanceMgr.colourG) ' write colour g to file
			WriteInt(fileStream,InstanceMgr.colourB) ' write colour b to file
			WriteInt(fileStream,InstanceMgr.sizeX) ' write size x to file
			WriteInt(fileStream,InstanceMgr.sizeY) ' write size y to file
			WriteInt(fileStream,InstanceMgr.styling) ' write styling to file
			WriteInt(fileStream,InstanceMgr.fx) ' write fx to file
			WriteInt(fileStream,InstanceMgr.scoreBonus) ' write score bonus to file
			WriteInt(fileStream,InstanceMgr.timeBonus) ' write time bonus to file
			WriteInt(fileStream,InstanceMgr.bonusBonus) ' write bonus to file
			WriteInt(fileStream,InstanceMgr.winGiven) ' write win given to file
			WriteInt(fileStream,InstanceMgr.physEnabled) ' write phys enabled to file
		Next
		WriteString(fileStream,"Sad..EOF")
		CloseStream fileStream ' buffer changes to file and close the stream

		AzCurrentFile = fileName ' set the filename

		SetGadgetText AzWindow, GadgetText(AzWindow) + " [" + AzCurrentFile + "]" ' gadget text
		Return
	End Method