Changeset 3 for trunk/UMainForm.pas

Timestamp:

Mar 6, 2011, 12:13:35 PM (14 years ago)

Author:

george

Message:

• Added: Drawing of tanks in eight directions.

File:

• trunk/UMainForm.pas (modified) (5 diffs)

trunk/UMainForm.pas

@@ -47 +47 @@
   try
     Timer1.Enabled := False;
-    Engine.Paint;
+    Engine.Tick;
     StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
-      IntToStr(TPlayer(Engine.Players[0]).Position.Y);
+      IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
+      IntToStr(TPlayer(Engine.Players[0]).Direction);
   finally
     Timer1.Enabled := True;
@@ -62 +63 @@
     PlayerCount := 2;
     with TPlayer(Players[0]) do begin
-      Position := Point(25 + Random(World.Surface.Count.X - 50),
-        25 + Random(World.Surface.Count.Y - 50));
-      Color := TColor($00f805);
       Keys.Left := 65;
       Keys.Down := 87;
@@ -72 +70 @@
     end;
     with TPlayer(Players[1]) do begin
-      Position := Point(25 + Random(World.Surface.Count.X - 50),
-        25 + Random(World.Surface.Count.Y - 50));
-      Color := TColor($00f805);
       Keys.Left := 37;
       Keys.Down := 38;
@@ -82 +77 @@
     end;
   end;
+  Engine.NewGame;
 end;
 
@@ -111 +107 @@
 procedure TMainForm.MenuItem3Click(Sender: TObject);
 begin
-
+  Engine.NewGame;
 end;