Changeset 6 for trunk/UGame.pas

Timestamp:

Feb 9, 2014, 9:53:30 PM (11 years ago)

Author:

chronos

Message:

• Added: New game parameters form.
• Added: Preparaton for cell mouse selection.

File:

• trunk/UGame.pas (modified) (4 diffs)

trunk/UGame.pas

@@ -46 +46 @@
     Color: TColor;
     ViewZoom: Double;
+    SelectedCell: TPoint;
+    procedure SelectCell(Pos: TPoint);
     procedure Paint(PaintBox: TPaintBox);
     constructor Create;
@@ -55 +57 @@
     Players: TObjectList;
     Map: TMap;
+    VoidEnabled: Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -78 +81 @@
 
 { TPlayer }
+
+procedure TPlayer.SelectCell(Pos: TPoint);
+begin
+
+end;
 
 procedure TPlayer.Paint(PaintBox: TPaintBox);
@@ -128 +136 @@
   for X := 0 to Length(Map.Cells[0]) - 1 do
   with Map.Cells[Y, X] do begin
-    if Random(2) = 0 then Terrain := ttVoid
+    if VoidEnabled and (Random(2) = 0) then Terrain := ttVoid
       else Terrain := ttNormal;
     Power := Random(4);