diff -r fd9613278d1b -r f324a18698fe hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Sun Aug 06 17:11:33 2006 +0000
+++ b/hedgewars/uAIMisc.pas	Sun Aug 06 20:08:15 2006 +0000
@@ -55,7 +55,6 @@
 procedure FillBonuses(isAfterAttack: boolean);
 procedure AwareOfExplosion(x, y, r: integer);
 function RatePlace(Gear: PGear): integer;
-function DxDy2AttackAngle(const _dY, _dX: Extended): 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;
@@ -168,19 +167,6 @@
          end;
 end;
 
-function DxDy2AttackAngle(const _dY, _dX: Extended): integer;
-const piDIVMaxAngle: Extended = pi/cMaxAngle;
-asm
-        fld     _dY
-        fld     _dX
-        fpatan
-        fld     piDIVMaxAngle
-        fdiv
-        sub     esp, 4
-        fistp   dword ptr [esp]
-        pop     eax
-end;
-
 function TestColl(x, y, r: integer): boolean;
 begin
 Result:=(((x-r) and $FFFFF800) = 0)and(((y-r) and $FFFFFC00) = 0) and (Land[y-r, x-r] <> 0);