Changeset 4 for trunk/UMainForm.pas

Timestamp:

Mar 6, 2011, 6:43:01 PM (14 years ago)

Author:

george

Message:

• Added: Complete map visualizaiton.
• Added: Generating map rock border.
• Added: Tank movement colision detection.
• Added: Some bullet shooting test.

File:

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

trunk/UMainForm.pas

@@ -19 +19 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItemShowMap: TMenuItem;
     StatusBar1: TStatusBar;
-    Timer1: TTimer;
+    TimerDraw: TTimer;
+    TimerEngineTick: TTimer;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormShow(Sender: TObject);
     procedure Image1Resize(Sender: TObject);
     procedure MenuItem2Click(Sender: TObject);
     procedure MenuItem3Click(Sender: TObject);
-    procedure Timer1Timer(Sender: TObject);
+    procedure MenuItemShowMapClick(Sender: TObject);
+    procedure TimerDrawTimer(Sender: TObject);
+    procedure TimerEngineTickTimer(Sender: TObject);
   private
-    { private declarations }
   public
     { public declarations }
@@ -41 +45 @@
 {$R *.lfm}
 
+uses
+  UMapForm;
+
 { TMainForm }
 
-procedure TMainForm.Timer1Timer(Sender: TObject);
+procedure TMainForm.TimerDrawTimer(Sender: TObject);
 begin
   try
-    Timer1.Enabled := False;
-    Engine.Tick;
+    TimerDraw.Enabled := False;
+    Engine.Draw;
     StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
       IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
       IntToStr(TPlayer(Engine.Players[0]).Direction);
   finally
-    Timer1.Enabled := True;
+    TimerDraw.Enabled := True;
   end;
+end;
+
+procedure TMainForm.TimerEngineTickTimer(Sender: TObject);
+begin
+  Engine.Tick;
 end;
 
@@ -59 +71 @@
 begin
   Engine.Bitmap := Image1.Picture.Bitmap;
-  Image1Resize(Self);
   with Engine do begin
-    PlayerCount := 2;
+    PlayerCount := 4;
     with TPlayer(Players[0]) do begin
       Keys.Left := 65;
-      Keys.Down := 87;
+      Keys.Down := 83;
       Keys.Right := 68;
-      Keys.Up := 83;
+      Keys.Up := 87;
       Keys.Shoot := 69;
     end;
     with TPlayer(Players[1]) do begin
       Keys.Left := 37;
-      Keys.Down := 38;
+      Keys.Down := 40;
       Keys.Right := 39;
-      Keys.Up := 40;
+      Keys.Up := 38;
       Keys.Shoot := 17;
+    end;
+    with TPlayer(Players[2]) do begin
+      Keys.Left := 76;
+      Keys.Down := 186;
+      Keys.Right := 222;
+      Keys.Up := 80;
+      Keys.Shoot := 186;
+    end;
+    with TPlayer(Players[3]) do begin
+      Keys.Left := 100;
+      Keys.Down := 98;
+      Keys.Right := 102;
+      Keys.Up := 104;
+      Keys.Shoot := 98;
     end;
   end;
   Engine.NewGame;
+  Image1Resize(Self);
 end;
 
@@ -93 +119 @@
 end;
 
+procedure TMainForm.FormShow(Sender: TObject);
+begin
+end;
+
 procedure TMainForm.Image1Resize(Sender: TObject);
 begin
-//  Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
-  Image1.Picture.Bitmap.SetSize(80, 60);
+  Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height);
   Engine.ResizePlayerFrames;
 end;
@@ -110 +139 @@
 end;
 
+procedure TMainForm.MenuItemShowMapClick(Sender: TObject);
+begin
+  MapForm.Show;
+end;
+
 end.