Code: Select all
function GetTileFlags(grp:byte;tile:word) : cardinal; Code: Select all
function GetTileFlags(grp:byte;tile:word) : cardinal; 
 
Code: Select all
TyleType[0] := 3293; 
 TyleType[1] := 3290; 
 TyleType[2] := 3283; 
 TyleType[3] := 3296; 
 TyleType[4] := 3280; 
 TyleType[5] := 3283; 
 TyleType[6] := 3286; 
 TyleType[7] := 3289; 
 TyleType[8] := 3291; 
 TyleType[9] := 3292; 
 TyleType[10] := 3294; 
 TyleType[11] := 3295; 
 TyleType[12] := 3296; 
 TyleType[13] := 3299; 
 TyleType[14] := 3302; 
 TyleType[15] := 3394; 
 TyleType[16] := 3395; 
 TyleType[17] := 3417; 
 TyleType[18] := 3440; 
 TyleType[19] := 3460;
 
Code: Select all
function GetTileFlags(Group: Byte; Tile: Word): Cardinal; // Узнать флаг тайла