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

- Changed TfrmMain.BuildTileList to use all available static tiles 

- Added static tile id checking to the random preset loading
This commit is contained in:
Andreas Schneider 2009-12-18 01:07:55 +01:00
parent 73e704e5fa
commit 365fa72dc9
2 changed files with 367 additions and 364 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Client/CentrED.lpi
View File

@ -350,7 +350,7 @@
</Linking>
<Other>
<CompilerMessages>
<IgnoredMessages idx5024="True"/>
<IgnoredMessages idx4079="True" idx4080="True" idx4081="True" idx5024="True" idx5028="True"/>
</CompilerMessages>
<CustomOptions Value="-FE../bin/
-dNoLogging"/>

11
Client/UfrmMain.pas
View File

@ -966,7 +966,7 @@ var
tiles: TDOMNodeList;
tileNode: PVirtualNode;
tileInfo: PTileInfo;
i: Integer;
i, id: Integer;
begin
if cbRandomPreset.ItemIndex > -1 then
begin
@ -976,11 +976,13 @@ begin
for i := 0 to tiles.Count - 1 do
begin
tile := TDOMElement(tiles[i]);
if tile.NodeName = 'Tile' then
if (tile.NodeName = 'Tile') and
TryStrToInt(tile.AttribStrings['ID'], id) and
(id < FLandscape.MaxStaticID + $4000) then
begin
tileNode := vdtRandom.AddChild(nil);
tileInfo := vdtRandom.GetNodeData(tileNode);
tileInfo^.ID := StrToInt(tile.AttribStrings['ID']);
tileInfo^.ID := id;
end;
end;
end;
@ -2416,8 +2418,9 @@ var
tileInfo: PTileInfo;
filter: string;
begin
maxID := $3FFF;
if cbTerrain.Checked then minID := $0 else minID := $4000;
if cbStatics.Checked then maxID := $7FFF else maxID := $3FFF;
if cbStatics.Checked then maxID := maxID + FLandscape.MaxStaticID;
filter := AnsiLowerCase(UTF8ToISO_8859_1(edFilter.Text));
node := vdtTiles.GetFirstSelected;