Revision 13:c78b5eafa10e Server/ULandscape.pas
| b/Server/ULandscape.pas | ||
|---|---|---|
| 30 | 30 |
interface |
| 31 | 31 |
|
| 32 | 32 |
uses |
| 33 |
SysUtils, Classes, contnrs, UGenericIndex, UMap, UStatics, UTiledata,
|
|
| 34 |
UWorldItem, UMulBlock, math,
|
|
| 33 |
SysUtils, Classes, math, UGenericIndex, UMap, UStatics, UTiledata,
|
|
| 34 |
UWorldItem, UMulBlock, |
|
| 35 | 35 |
UTileDataProvider, URadarMap, |
| 36 | 36 |
UListSort, UCacheManager, ULinkedList, UBufferedStreams, |
| 37 | 37 |
UEnhancedMemoryStream, UPacketHandlers, UPackets, UNetState, UEnums; |
| ... | ... | |
| 148 | 148 |
uses |
| 149 | 149 |
UCEDServer, UConnectionHandling, UConfig, ULargeScaleOperations; |
| 150 | 150 |
|
| 151 |
const |
|
| 152 |
mMap = 0; |
|
| 153 |
mStatics = 1; |
|
| 154 |
|
|
| 155 | 151 |
function GetID(AX, AY: Word): Integer; |
| 156 | 152 |
begin |
| 157 | 153 |
Result := ((AX and $7FFF) shl 15) or (AY and $7FFF); |
| ... | ... | |
| 201 | 197 |
constructor TLandscape.Create(AMap, AStatics, AStaIdx, ATiledata: TStream; |
| 202 | 198 |
ARadarCol: string; AWidth, AHeight: Word; var AValid: Boolean); |
| 203 | 199 |
var |
| 204 |
blockID, blockType: Integer;
|
|
| 200 |
blockID: Integer; |
|
| 205 | 201 |
begin |
| 206 | 202 |
inherited Create; |
| 207 | 203 |
FWidth := AWidth; |
| ... | ... | |
| 568 | 564 |
block: TSeperatedStaticBlock; |
| 569 | 565 |
staticItem: TStaticItem; |
| 570 | 566 |
targetStaticList: TList; |
| 571 |
i: Integer; |
|
| 572 | 567 |
subscriptions: TLinkedList; |
| 573 | 568 |
item: PLinkedItem; |
| 574 | 569 |
packet: TInsertStaticPacket; |
| ... | ... | |
| 653 | 648 |
ANetState: TNetState); |
| 654 | 649 |
var |
| 655 | 650 |
block: TSeperatedStaticBlock; |
| 656 |
i, j: Integer;
|
|
| 651 |
i: Integer; |
|
| 657 | 652 |
statics: TList; |
| 658 | 653 |
staticInfo: TStaticInfo; |
| 659 | 654 |
staticItem: TStaticItem; |
| ... | ... | |
| 800 | 795 |
ANetState: TNetState); |
| 801 | 796 |
var |
| 802 | 797 |
block: TSeperatedStaticBlock; |
| 803 |
i, j: Integer;
|
|
| 798 |
i: Integer; |
|
| 804 | 799 |
statics: TList; |
| 805 | 800 |
staticInfo: TStaticInfo; |
| 806 | 801 |
staticItem: TStaticItem; |
Also available in: Unified diff