hedgewars/uAIMisc.pas
changeset 4367 f4a0ec067601
parent 4365 4f2b1a152979
child 4368 b89235e401e5
equal deleted inserted replaced
4365:4f2b1a152979 4367:f4a0ec067601
    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, uVariables;
    71 uses uTeams, uMisc, 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;