Показать сообщение отдельно
Старый 25.05.2010, 11:26   #5
Fatal
Оператор ЭВМ
 
Аватар для Fatal
 
Регистрация: 25.05.2010
Адрес: Россия, Питер
Сообщений: 34
Написано одно полезное сообщение
Ответ: Чтение и запись в фаил.

2) используй не стринги, а соотвествующие объекты
Преобразовывать в intger?

3) убедись, что записываешь глобальные координаты
Коардинаты конечно глобальны, выводя текст на экран я их получаю правильно

Рабочий код :

If TestImage (MouseX(),MouseY(), x1-5,70, button) Then
If MouseHit(1)
SaveGame = OpenFile("Save.txt")

WriteString ( SaveGame, EntityX#(playership))
WriteString ( SaveGame, EntityY#(playership))
WriteString ( SaveGame, EntityZ#(playership))
;WriteString ( SaveGame, Playerfuel#)
;WriteString( SaveGame, PlayerMoney)
;WriteLine( SaveGame, PlayerSpeed#)   
CloseFile( SaveGame ) 
EndIf 
DrawText " Сохранить ",x1+30,55
EndIf
If TestImage (MouseX(),MouseY(), x1-5,170, button) Then
If MouseHit(1)
LoadGame=ReadFile("Save.txt") 
PositionEntity playership,ReadString(LoadGame),ReadString(LoadGame),ReadString(LoadGame)

CloseFile(LoadGame)
EndIf
DrawText " Загрузить ",x1+30,155
EndIf
If TestImage (MouseX(),MouseY(), x1-5,270, button) Then
DrawText " Выход ",x1+30,255
EndIf

LoadGame=ReadFile("Save.txt") 
DrawText "  " +ReadString(LoadGame)+ "  " +ReadString(LoadGame) + "  " +ReadString(LoadGame),300,200
CloseFile(LoadGame)
__________________
Нет ничего хуже, чем ничего. (с) Василий Орехов
(Offline)
 
Ответить с цитированием