Changeset 11 for trunk/UMainForm.pas

Timestamp:

Mar 20, 2011, 11:25:50 PM (14 years ago)

Author:

george

Message:

• Added: Decreasing and increasing tank energy.

File:

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

trunk/UMainForm.pas

@@ -66 +66 @@
 procedure TMainForm.TimerDrawTimer(Sender: TObject);
 begin
+  Application.ProcessMessages;
   if not Drawing then
   try
@@ -112 +113 @@
       Keys.Right := 222;
       Keys.Up := 80;
-      Keys.Shoot := 186;
+      Keys.Shoot := 191;
     end;
     with TPlayer(Players[3]) do begin
@@ -119 +120 @@
       Keys.Right := 102;
       Keys.Up := 104;
-      Keys.Shoot := 98;
+      Keys.Shoot := 105;
     end;
   end;