aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

- Made ULandscape.GetID inline 

- Removed some constraints on TileIDs and map coordinates
- Removed another unnecessary typecast
This commit is contained in:
Andreas Schneider 2009-12-08 15:30:53 +01:00
parent dde886b051
commit 446e104031
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Client/ULandscape.pas
View File

@ -271,9 +271,9 @@ implementation
uses
UGameResources, UdmNetwork, UPackets, UPacketHandlers, Logging;
function GetID(AX, AY: Word): Integer;
function GetID(AX, AY: Word): Integer; inline;
begin
Result := ((AX and $7FFF) shl 15) or (AY and $7FFF);
Result := (AX shl 16) or AY;
end;
{ TLandTextureManager }
@ -321,7 +321,7 @@ begin
Result := GetArtMaterial(ATileID);
end else
begin
id := ATileID or ((AHue.ID and $3FFF) shl 15) or (Byte(APartialHue) shl 29);
id := ATileID or ((AHue.ID and $3FFF) shl 16) or (Byte(APartialHue) shl 30);
if not FArtCache.QueryID(id, Result) then
begin
artEntry := ResMan.Art.GetArt(ATileID, 0, AHue, APartialHue);
@ -511,7 +511,7 @@ begin
for i := 0 to FStaticBlock.Items.Count - 1 do
begin
staticItem := TStaticItem(FStaticBlock.Items[i]);
staticItem := FStaticBlock.Items[i];
staticItem.CanBeEdited := ALandscape.CanWrite(staticItem.X,
staticItem.Y);
end;