Fixed compilation with freepascal version prior to 1.9.6
authorunc0rr
Wed, 11 Oct 2006 19:37:48 +0000
changeset 195 edae828322a0
parent 194 88652abdce9a
child 196 993cf173218b
Fixed compilation with freepascal version prior to 1.9.6
hedgewars/uAIActions.pas
--- a/hedgewars/uAIActions.pas	Wed Oct 11 19:07:38 2006 +0000
+++ b/hedgewars/uAIActions.pas	Wed Oct 11 19:37:48 2006 +0000
@@ -29,20 +29,20 @@
       aia_Up         = 5;
       aia_Down       = 6;
 
-      aia_Weapon     = $80000000;
-      aia_WaitXL     = $80000001;
-      aia_WaitXR     = $80000002;
-      aia_LookLeft   = $80000003;
-      aia_LookRight  = $80000004;
-      aia_AwareExpl  = $80000005;
-      aia_HJump      = $80000006;
-      aia_LJump      = $80000007;
-      aia_Skip       = $80000008;
-      aia_Wait       = $80000009;
+      aia_Weapon     = $8000;
+      aia_WaitXL     = $8001;
+      aia_WaitXR     = $8002;
+      aia_LookLeft   = $8003;
+      aia_LookRight  = $8004;
+      aia_AwareExpl  = $8005;
+      aia_HJump      = $8006;
+      aia_LJump      = $8007;
+      aia_Skip       = $8008;
+      aia_Wait       = $8009;
 
-      aim_push       = $80000000;
-      aim_release    = $80000001;
-      ai_specmask    = $80000000;
+      aim_push       = $8000;
+      aim_release    = $8001;
+      ai_specmask    = $8000;
 
 type TAction = record
                Action, Param: Longword;
@@ -72,7 +72,7 @@
                      );
 
 {$IFDEF TRACEAIACTIONS}
-const SpecActionIdToStr: array[$80000000..$80000009] of string[16] = (
+const SpecActionIdToStr: array[$8000..$8009] of string[16] = (
 {aia_Weapon}             'aia_Weapon',
 {aia_WaitX}              'aia_WaitX',
 {aia_WaitY}              'aia_WaitY',