Revision 119:66352054ce4d Client/UfrmMain.pas
| b/Client/UfrmMain.pas | ||
|---|---|---|
| 607 | 607 |
procedure TfrmMain.oglGameWindowMouseUp(Sender: TObject; Button: TMouseButton; |
| 608 | 608 |
Shift: TShiftState; X, Y: Integer); |
| 609 | 609 |
var |
| 610 |
node: PVirtualNode; |
|
| 611 |
tileInfo: PTileInfo; |
|
| 612 | 610 |
map: TMapCell; |
| 613 | 611 |
i: Integer; |
| 614 | 612 |
z: ShortInt; |
| ... | ... | |
| 923 | 921 |
procedure TfrmMain.btnRandomPresetSaveClick(Sender: TObject); |
| 924 | 922 |
var |
| 925 | 923 |
presetName: string; |
| 926 |
i, index: Integer;
|
|
| 924 |
i: Integer; |
|
| 927 | 925 |
preset, tile: TDOMElement; |
| 928 | 926 |
children: TDOMNodeList; |
| 929 | 927 |
tileNode: PVirtualNode; |
| ... | ... | |
| 2047 | 2045 |
procedure TfrmMain.PrepareScreenBlock(ABlockInfo: PBlockInfo); |
| 2048 | 2046 |
|
| 2049 | 2047 |
procedure GetLandAlt(const AX, AY: Integer; const ADefaultZ, |
| 2050 |
ADefaultRaw: SmallInt; var Z, RawZ: SmallInt);
|
|
| 2048 |
ADefaultRaw: SmallInt; out Z, RawZ: SmallInt);
|
|
| 2051 | 2049 |
var |
| 2052 | 2050 |
cell: TMapCell; |
| 2053 | 2051 |
begin |
| ... | ... | |
| 2547 | 2545 |
virtualTile.Y := tileY; |
| 2548 | 2546 |
virtualTile.Z := frmVirtualLayer.seZ.Value; |
| 2549 | 2547 |
virtualTile.Priority := virtualTile.Z; |
| 2550 |
virtualTile.PriorityBonus := MaxInt;
|
|
| 2548 |
virtualTile.PriorityBonus := High(ShortInt);
|
|
| 2551 | 2549 |
|
| 2552 | 2550 |
Inc(i); |
| 2553 | 2551 |
end; |
Also available in: Unified diff