Changeset 3 for trunk/UFormMain.pas

Timestamp:

Feb 8, 2014, 11:28:47 PM (11 years ago)

Author:

chronos

Message:

• Added: Support for multiple players.
• Added: Each cell have power state.

File:

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

trunk/UFormMain.pas

@@ -17 +17 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
@@ -45 +46 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
-  Game.Player.Paint(PaintBox1);
+  TPlayer(Game.Players[0]).Paint(PaintBox1);
 end;
 
@@ -62 +63 @@
 end;
 
+procedure TFormMain.FormShow(Sender: TObject);
+begin
+  Game.New;
+end;
+
 procedure TFormMain.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   StartMousePoint := Point(X, Y);
-  StartViewPoint := Point(Game.Player.View.Left, Game.Player.View.Top);
+  StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top);
   MoveActive := True;
 end;
@@ -79 +85 @@
 begin
   if MoveActive then begin
-    Game.Player.View := Bounds(StartViewPoint.X + StartMousePoint.X - X,
+    TPlayer(Game.Players[0]).View := Bounds(StartViewPoint.X + StartMousePoint.X - X,
       StartViewPoint.Y + StartMousePoint.Y - Y,
-      Game.Player.View.Right - Game.Player.View.Left,
-      Game.Player.View.Bottom - Game.Player.View.Top);
+      TPlayer(Game.Players[0]).View.Right - TPlayer(Game.Players[0]).View.Left,
+      TPlayer(Game.Players[0]).View.Bottom - TPlayer(Game.Players[0]).View.Top);
     PaintBox1.Repaint;
   end;
-  Caption := IntToStr(Game.Player.View.Right - Game.Player.View.Left);
+  Caption := IntToStr(TPlayer(Game.Players[0]).View.Right - TPlayer(Game.Players[0]).View.Left);
 end;