- Fixed TfrmLogin to create the profile path if it doesn't exist

- Removed old code from TfrmMain.Render
- Bumped version to 0.4.5
- Moved TVirtualTile to UWorldItem
- Added TVirtualTile handling to CompareWorldItems
- Added priorities to the virtual tiles
This commit is contained in:
2009-12-02 18:40:03 +01:00
parent c030b9c586
commit 8df2313b4d
8 changed files with 627 additions and 801 deletions

View File

@@ -101,6 +101,8 @@ type
procedure CleanUp;
end;
TVirtualTile = class(TWorldItem);
function CompareWorldItems(AItem1, AItem2: Pointer): Integer;
implementation
@@ -122,6 +124,10 @@ begin
if (TObject(AItem1) is TMapCell) and (TObject(AItem2) is TStaticItem) then
Result := -1
else if (TObject(AItem1) is TStaticItem) and (TObject(AItem2) is TMapCell) then
Result := 1
else if (TObject(AItem1) is TMapCell) and (TObject(AItem2) is TVirtualTile) then
Result := -1
else if (TObject(AItem1) is TVirtualTile) and (TObject(AItem2) is TMapCell) then
Result := 1;
end;