hedgewars-draft: comparison hedgewars/uAIMisc.pas

equal deleted inserted replaced

-:8b653edac2a2
+:95117607b81a
 function  TestCollExcludingMe(Me: PGear; x, y, r: LongInt): boolean; inline;
 function  TraceShoveFall(x, y, dX, dY: Real): LongInt;
 function  RateExplosion(Me: PGear; x, y, r: LongInt): LongInt; inline;
 function  RateExplosion(Me: PGear; x, y, r: LongInt; Flags: LongWord): LongInt;
-function  RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
+function  RateShove(x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
 function  RateShotgun(Me: PGear; gdX, gdY: real; x, y: LongInt): LongInt;
 function  RateHammer(Me: PGear): LongInt;
 function  HHGo(Gear, AltGear: PGear; var GoInfo: TGoInfo): boolean;
 function  AIrndSign(num: LongInt): LongInt;
 ar: array[0..Pred(MAXBONUS div 8)] of TBonus;  // don't use too many
 end;
 const KillScore = 200;
 var friendlyfactor: LongInt = 300;
 implementation
-uses uCollisions, uVariables, uUtils, uDebug, uLandTexture;
+uses uCollisions, uVariables, uUtils, uLandTexture;
 var
 KnownExplosion: record
 X, Y, Radius: LongInt
 end = (X: 0; Y: 0; Radius: 0);
 exit(-1);
 end;
 end;
 function TraceShoveFall(x, y, dX, dY: Real): LongInt;
-var dmg, v: LongInt;
+var dmg: LongInt;
 begin
-v:= random($FFFFFFFF);
+//v:= random($FFFFFFFF);
 while true do
 begin
 x:= x + dX;
 y:= y + dY;
 dY:= dY + cGravityf;
 end;
 end;
 RateExplosion:= rate;
 end;
-function RateShove(Me: PGear; x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
+function RateShove(x, y, r, power, kick: LongInt; gdX, gdY: real; Flags: LongWord): LongInt;
 var i, fallDmg, dmg, rate: LongInt;
 dX, dY, dmgMod: real;
 begin
 fallDmg:= 0;
 dX:= gdX * 0.01 * kick;

changeset 7716	95117607b81a
parent 7651	4cd85eebc54b
child 7719	eeae1cb6b6bf