|
Ну можно хоть чуть-чуть напрячь мозг? И изменить 2 строчки в его примере?
|
...Да вот сдается мне, что изменений там стоит произвести чуть больше:
Function LoadLevel(levelfile$)
Local FHandle%, Word%, X%, Y%
FHandle = OpenFile(levelfile)
While Not Eof(FHandle)
Word = ReadShort(FHandle)
If Word <> $A0D Then
GameField(X, Y) = (Word And $FF - 48) * 10 + (Word - $3000) Shr 8
X = X + 1
Else : X = 0 : Y = Y + 1
EndIf
Wend
CloseFile(FHandle)
End Function