[pepel]

я вот так записываю

считывание:

If load_level

	level=ReadFile("level_" +level_select+".lv" )
	
	
	number_of_block= ReadInt(level)
	
	For i =1 To number_of_block
		obj_x=ReadFloat(level)
		obj_y=ReadFloat(level)
		obj_w=ReadInt(level)
		obj_h=ReadInt(level)
		blok(obj_x,obj_y,obj_w,obj_h)
	Next
	
	CloseFile( level )
EndIf

запись:

If KeyDown(1)
	level=WriteFile("level_" +level_select+".lv" )
	
	WriteInt level,num_blok
	
		
		For p.ph = Each ph
				If p\blok_still=1
					
					WriteFloat level,pxBodyGetPositionX (p\body)
					WriteFloat level,pxBodyGetPositionY(p\body)
					WriteInt level,MeshWidth (p\mesh)
					WriteInt level,MeshHeight (p\mesh)
					Print p\mesh
				EndIf
		Next
		
	CloseFile( level )
	End
	
EndIf