hedgewars/uAIMisc.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4365 4f2b1a152979
equal deleted inserted replaced
4357:a1fcfc341a52 4359:83ef50815535
    66              Count: Longword;
    66              Count: Longword;
    67              ar: array[0..Pred(MAXBONUS)] of TBonus;
    67              ar: array[0..Pred(MAXBONUS)] of TBonus;
    68              end;
    68              end;
    69 
    69 
    70 implementation
    70 implementation
    71 uses uTeams, uMisc, uLand, uCollisions;
    71 uses uTeams, uMisc, uLand, uCollisions, uVariables;
    72 
    72 
    73 
    73 
    74 const KillScore = 200;
    74 const KillScore = 200;
    75 
    75 
    76 var friendlyfactor: LongInt = 300;
    76 var friendlyfactor: LongInt = 300;