Place UOA design #4
|
@ -62,6 +62,9 @@ type
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Math;
|
||||||
|
|
||||||
function ReadString(AStream: TStream): String;
|
function ReadString(AStream: TStream): String;
|
||||||
var
|
var
|
||||||
nonNullFlag: Byte;
|
nonNullFlag: Byte;
|
||||||
|
@ -104,7 +107,7 @@ begin
|
||||||
tile.TileID := ReadInt;
|
tile.TileID := ReadInt;
|
||||||
tile.X := ReadInt;
|
tile.X := ReadInt;
|
||||||
tile.Y := ReadInt;
|
tile.Y := ReadInt;
|
||||||
tile.Z := ReadInt;
|
tile.Z := EnsureRange(ReadInt, -128, 127);
|
||||||
ReadInt; // Level; unused
|
ReadInt; // Level; unused
|
||||||
|
|
||||||
if version = 1 then
|
if version = 1 then
|
||||||
|
|
Loading…
Reference in New Issue