# HG changeset patch # User unc0rr # Date 1210363433 0 # Node ID 63c52f8d5cfd6748904c7f72813f7e6170bc72e9 # Parent 8dd71d960cbc8e5255589bc4041908d0da2c3d2a Remove temporary debug messages diff -r 8dd71d960cbc -r 63c52f8d5cfd hedgewars/uAIMisc.pas --- a/hedgewars/uAIMisc.pas Fri May 09 12:58:10 2008 +0000 +++ b/hedgewars/uAIMisc.pas Fri May 09 20:03:53 2008 +0000 @@ -51,7 +51,7 @@ Targets: TTargets; implementation -uses uTeams, uMisc, uLand, uCollisions, uconsole; +uses uTeams, uMisc, uLand, uCollisions; const KillScore = 200; MAXBONUS = 1024; friendlyfactor: Longword = 300; @@ -102,8 +102,7 @@ end; if e > f then friendlyfactor:= 300 + (e - f) * 30 -else friendlyfactor:= max(30, 300 - f * 80 div e); -writelntoconsole('e:' +inttostr(e) + ' f:' + inttostr(f) + ' ff:'+ inttostr(friendlyfactor)) +else friendlyfactor:= max(30, 300 - f * 80 div e) end; procedure FillBonuses(isAfterAttack: boolean);