Place UOA design #4

Merged
aksdb merged 8 commits from uoa_designs into master 2022-07-21 08:47:40 +02:00
1 changed files with 4 additions and 1 deletions
Showing only changes of commit 9f66004c44 - Show all commits

View File

@ -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