Changeset 31 for trunk/UGame.pas


Ignore:
Timestamp:
Mar 4, 2014, 10:18:09 PM (11 years ago)
Author:
chronos
Message:
  • Added: Amount of inaccessible cells can be adjusted in New game dialog.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UGame.pas

    r30 r31  
    159159    Map: THexMap;
    160160    VoidEnabled: Boolean;
     161    VoidPercentage: Integer;
    161162    CurrentPlayer: TPlayer;
    162163    Moves: TObjectList; // TList<TMove>
     
    644645  Players.Add(Player);
    645646
    646   //VoidEnabled := True;
     647  VoidEnabled := True;
     648  VoidPercentage := 20;
    647649
    648650  Map := THexMap.Create;
     
    673675  for X := 0 to Map.Size.X - 1 do
    674676  with Map.Cells[Y, X] do begin
    675     if VoidEnabled and (Random(2) = 0) then Terrain := ttVoid
     677    if VoidEnabled and (Random < VoidPercentage / 100) then Terrain := ttVoid
    676678      else Terrain := ttNormal;
    677679    Power := Random(4);
Note: See TracChangeset for help on using the changeset viewer.