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

- Store used (random) hues for consistent behavior on commit (refs #66)

This commit is contained in:
Andreas Schneider 2011-03-29 21:51:17 +02:00
parent 4b5cf332ca
commit bfe71ae93f
2 changed files with 53 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Client/CentrED.lpi
View File

@ -450,8 +450,7 @@
</CodeGeneration>
<Linking>
<Debugging>
<UseLineInfoUnit Value="False"/>
<GenerateDwarf Value="True"/>
<GenerateDebugInfo Value="True"/>
</Debugging>
<Options>
<Win32>

53
Client/UfrmMain.pas
View File

@ -48,6 +48,8 @@ type
TAccessChangedListeners = specialize TFPGList<TAccessChangedListener>;
TSelectionListeners = specialize TFPGList<TSelectionListener>;
THueList = specialize TFPGList<Word>;
TTileHintInfo = record
Name: String;
Flags: String;
@ -332,6 +334,7 @@ type
FSelectionListeners: TSelectionListeners;
FTileHint: TTileHintInfo;
FLightManager: TLightManager;
FHueBuffer: THueList;
{ Methods }
procedure BuildTileList;
function ConfirmAction: Boolean;
@ -639,7 +642,7 @@ procedure TfrmMain.oglGameWindowMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
map: TMapCell;
i: Integer;
i, hueCount: Integer;
z: ShortInt;
blockInfo: PBlockInfo;
targetRect: TRect;
@ -796,13 +799,22 @@ begin
end;
end else if acHue.Checked then //***** Hue tile *****//
begin
hueCount := 0;
for i := 0 to targetTiles.Count - 1 do
begin
tile := targetTiles.Items[i];
if tile is TStaticItem then
begin
//If a hue is in the buffer (see UpdateSelection), use that, otherwise
//create a new one. (Necessary for random hues.)
if hueCount < FHueBuffer.Count then
hue := FHueBuffer[hueCount]
else
hue := frmHueSettings.GetHue;
if (tile is TStaticItem) and
(TStaticItem(tile).Hue <> hue) then
Inc(hueCount);
if TStaticItem(tile).Hue <> hue then
begin
FUndoList.Add(THueStaticPacket.Create(tile.X, tile.Y, tile.Z,
tile.TileID, hue, TStaticItem(tile).Hue));
@ -810,6 +822,7 @@ begin
end;
end;
end;
end;
targetTiles.Free;
end;
@ -946,6 +959,8 @@ begin
FSelectionListeners := TSelectionListeners.Create;
FLastDraw := Now;
FHueBuffer := THueList.Create;
end;
procedure TfrmMain.btnGoToClick(Sender: TObject);
@ -1296,6 +1311,7 @@ begin
FreeAndNil(FRandomPresetsDoc);
FreeAndNil(FAccessChangedListeners);
FreeAndNil(FSelectionListeners);
FreeAndNil(FHueBuffer);
RegisterPacketHandler($0C, nil);
end;
@ -2835,8 +2851,12 @@ begin
end;
procedure TfrmMain.UpdateSelection;
var
highlightCount: Integer;
procedure SetHighlight(ABlockInfo: PBlockInfo; AHighlighted: Boolean);
var
hue: Word;
begin
if (ABlockInfo^.Item is TStaticItem) and acHue.Checked then
begin
@ -2844,12 +2864,27 @@ procedure TfrmMain.UpdateSelection;
begin
ABlockInfo^.HueOverride := AHighlighted;
if AHighlighted then
begin
if highlightCount < FHueBuffer.Count then
begin
hue := FHueBuffer[highlightCount];
end else
begin
hue := frmHueSettings.GetHue;
FHueBuffer.Add(hue);
end;
ABlockInfo^.LowRes := FTextureManager.GetStaticMaterial(
TStaticItem(ABlockInfo^.Item), frmHueSettings.GetHue)
else
TStaticItem(ABlockInfo^.Item), hue);
end else
begin
ABlockInfo^.LowRes := FTextureManager.GetStaticMaterial(
TStaticItem(ABlockInfo^.Item));
end;
end;
if AHighlighted then
Inc(highlightCount);
end else
begin
ABlockInfo^.Highlighted := AHighlighted;
@ -2949,6 +2984,14 @@ begin
else
selectedRect := GetSelectedRect;
if acHue.Checked and (SelectedTile = nil) then
begin
//Prepare hue buffer
FHueBuffer.Clear;
end;
highlightCount := 0;
//clean up old ghost tiles
//Logger.Send([lcClient, lcDebug], 'Cleaning ghost tiles');
for i := FVirtualTiles.Count - 1 downto 0 do