--- a/hedgewars/uAIMisc.pas Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/uAIMisc.pas Sat Jan 27 14:18:33 2007 +0000
@@ -23,7 +23,7 @@
type TTarget = record
Point: TPoint;
- Score: integer;
+ Score: LongInt;
end;
TTargets = record
Count: Longword;
@@ -38,13 +38,13 @@
procedure FillTargets;
procedure FillBonuses(isAfterAttack: boolean);
-procedure AwareOfExplosion(x, y, r: integer);
-function RatePlace(Gear: PGear): integer;
-function TestColl(x, y, r: integer): boolean;
-function RateExplosion(Me: PGear; x, y, r: integer): integer;
-function RateShove(Me: PGear; x, y, r, power: integer): integer;
+procedure AwareOfExplosion(x, y, r: LongInt);
+function RatePlace(Gear: PGear): LongInt;
+function TestColl(x, y, r: LongInt): boolean;
+function RateExplosion(Me: PGear; x, y, r: LongInt): LongInt;
+function RateShove(Me: PGear; x, y, r, power: LongInt): LongInt;
function HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;
-function AIrndSign(num: integer): integer;
+function AIrndSign(num: LongInt): LongInt;
var ThinkingHH: PGear;
Targets: TTargets;
@@ -55,16 +55,16 @@
MAXBONUS = 1024;
type TBonus = record
- X, Y: integer;
- Radius: integer;
- Score: integer;
+ X, Y: LongInt;
+ Radius: LongInt;
+ Score: LongInt;
end;
var bonuses: record
Count: Longword;
ar: array[0..Pred(MAXBONUS)] of TBonus;
end;
KnownExplosion: record
- X, Y, Radius: integer
+ X, Y, Radius: LongInt
end = (X: 0; Y: 0; Radius: 0);
procedure FillTargets;
@@ -96,7 +96,7 @@
var Gear: PGear;
MyColor: Longword;
- procedure AddBonus(x, y: integer; r: Longword; s: integer);
+ procedure AddBonus(x, y: LongInt; r: Longword; s: LongInt);
begin
bonuses.ar[bonuses.Count].x:= x;
bonuses.ar[bonuses.Count].y:= y;
@@ -131,16 +131,16 @@
AddBonus(X, Y, Radius + 10, -Radius);
end;
-procedure AwareOfExplosion(x, y, r: integer);
+procedure AwareOfExplosion(x, y, r: LongInt);
begin
KnownExplosion.X:= x;
KnownExplosion.Y:= y;
KnownExplosion.Radius:= r
end;
-function RatePlace(Gear: PGear): integer;
-var i, r: integer;
- Result: integer;
+function RatePlace(Gear: PGear): LongInt;
+var i, r: LongInt;
+ Result: LongInt;
begin
Result:= 0;
for i:= 0 to Pred(bonuses.Count) do
@@ -153,7 +153,7 @@
RatePlace:= Result
end;
-function TestColl(x, y, r: integer): boolean;
+function TestColl(x, y, r: LongInt): boolean;
var b: boolean;
begin
b:= (((x-r) and $FFFFF800) = 0)and(((y-r) and $FFFFFC00) = 0) and (Land[y-r, x-r] <> 0);
@@ -165,8 +165,8 @@
TestColl:=(((x+r) and $FFFFF800) = 0)and(((y+r) and $FFFFFC00) = 0) and (Land[y+r, x+r] <> 0)
end;
-function RateExplosion(Me: PGear; x, y, r: integer): integer;
-var i, dmg, Result: integer;
+function RateExplosion(Me: PGear; x, y, r: LongInt): LongInt;
+var i, dmg, Result: LongInt;
begin
Result:= 0;
// add our virtual position
@@ -195,8 +195,8 @@
RateExplosion:= Result * 1024
end;
-function RateShove(Me: PGear; x, y, r, power: integer): integer;
-var i, dmg, Result: integer;
+function RateShove(Me: PGear; x, y, r, power: LongInt): LongInt;
+var i, dmg, Result: LongInt;
begin
Result:= 0;
for i:= 0 to Targets.Count do
@@ -217,7 +217,7 @@
end;
function HHJump(Gear: PGear; JumpType: TJumpType; var GoInfo: TGoInfo): boolean;
-var bX, bY: integer;
+var bX, bY: LongInt;
Result: boolean;
begin
Result:= false;
@@ -290,7 +290,7 @@
end;
function HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;
-var pX, pY: integer;
+var pX, pY: LongInt;
Result: boolean;
begin
Result:= false;
@@ -388,7 +388,7 @@
HHJump(AltGear, jmpHJump, GoInfo)
end;
-function AIrndSign(num: integer): integer;
+function AIrndSign(num: LongInt): LongInt;
begin
if random(2) = 0 then AIrndSign:= num
else AIrndSign:= - num