Engine:
authorsmxx
Sun, 11 Apr 2010 09:53:28 +0000
changeset 3336 d7c1ffed1e15
parent 3335 2520ee7a5484
child 3337 75e7455c69ed
Engine: * Avoid hedgehog specific actions (attack, jump, etc.) to be triggered while the game is paused
hedgewars/CCHandlers.inc
--- a/hedgewars/CCHandlers.inc	Sun Apr 11 03:43:13 2010 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Apr 11 09:53:28 2010 +0000
@@ -251,7 +251,7 @@
 
 procedure chLeft_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('L');
 with CurrentHedgehog^.Gear^ do
@@ -268,7 +268,7 @@
 
 procedure chRight_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('R');
 with CurrentHedgehog^.Gear^ do
@@ -285,7 +285,7 @@
 
 procedure chUp_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('U');
 with CurrentHedgehog^.Gear^ do
@@ -302,7 +302,7 @@
 
 procedure chDown_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('D');
 with CurrentHedgehog^.Gear^ do
@@ -319,7 +319,7 @@
 
 procedure chPrecise_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('Z');
 with CurrentHedgehog^.Gear^ do
@@ -336,7 +336,7 @@
 
 procedure chLJump(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('j');
 with CurrentHedgehog^.Gear^ do
@@ -345,7 +345,7 @@
 
 procedure chHJump(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 if not CurrentTeam^.ExtDriven then SendIPC('J');
 with CurrentHedgehog^.Gear^ do
@@ -354,7 +354,7 @@
 
 procedure chAttack_p(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= false;
 with CurrentHedgehog^.Gear^ do
     begin
@@ -381,7 +381,7 @@
 
 procedure chSwitch(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven then SendIPC('S');
 with CurrentHedgehog^.Gear^ do
     Message:= Message or gm_Switch
@@ -508,7 +508,7 @@
 
 procedure chNewGrave;
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 
 if not CurrentTeam^.ExtDriven then SendIPC('g');
 
@@ -517,7 +517,7 @@
 
 procedure doPut(putX, putY: LongInt; fromAI: boolean);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 if not CurrentTeam^.ExtDriven and bShowAmmoMenu then
     begin
     bSelected:= true;
@@ -707,7 +707,7 @@
 
 procedure chFindhh(var s: shortstring);
 begin
-if CheckNoTeamOrHH then exit;
+if CheckNoTeamOrHH or isPaused then exit;
 bShowFinger:= true;
 FollowGear:= CurrentHedgehog^.Gear
 end;