Changeset 31 for trunk/UGame.pas
- Timestamp:
- Mar 4, 2014, 10:18:09 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UGame.pas
r30 r31 159 159 Map: THexMap; 160 160 VoidEnabled: Boolean; 161 VoidPercentage: Integer; 161 162 CurrentPlayer: TPlayer; 162 163 Moves: TObjectList; // TList<TMove> … … 644 645 Players.Add(Player); 645 646 646 //VoidEnabled := True; 647 VoidEnabled := True; 648 VoidPercentage := 20; 647 649 648 650 Map := THexMap.Create; … … 673 675 for X := 0 to Map.Size.X - 1 do 674 676 with Map.Cells[Y, X] do begin 675 if VoidEnabled and (Random (2) =0) then Terrain := ttVoid677 if VoidEnabled and (Random < VoidPercentage / 100) then Terrain := ttVoid 676 678 else Terrain := ttNormal; 677 679 Power := Random(4);
Note:
See TracChangeset
for help on using the changeset viewer.