Changeset 6 for trunk/UGame.pas
- Timestamp:
- Feb 9, 2014, 9:53:30 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UGame.pas
r5 r6 46 46 Color: TColor; 47 47 ViewZoom: Double; 48 SelectedCell: TPoint; 49 procedure SelectCell(Pos: TPoint); 48 50 procedure Paint(PaintBox: TPaintBox); 49 51 constructor Create; … … 55 57 Players: TObjectList; 56 58 Map: TMap; 59 VoidEnabled: Boolean; 57 60 constructor Create; 58 61 destructor Destroy; override; … … 78 81 79 82 { TPlayer } 83 84 procedure TPlayer.SelectCell(Pos: TPoint); 85 begin 86 87 end; 80 88 81 89 procedure TPlayer.Paint(PaintBox: TPaintBox); … … 128 136 for X := 0 to Length(Map.Cells[0]) - 1 do 129 137 with Map.Cells[Y, X] do begin 130 if Random(2) = 0then Terrain := ttVoid138 if VoidEnabled and (Random(2) = 0) then Terrain := ttVoid 131 139 else Terrain := ttNormal; 132 140 Power := Random(4);
Note:
See TracChangeset
for help on using the changeset viewer.