hedgewars/uAIMisc.pas
changeset 4374 bcefeeabaa33
parent 4372 3836973380b9
child 4377 43945842da0c
equal deleted inserted replaced
4373:fe0e3903bb9e 4374:bcefeeabaa33
    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 uMisc, uCollisions, uVariables;
    71 uses uMisc, uCollisions, uVariables, uUtils;
    72 
    72 
    73 
    73 
    74 const KillScore = 200;
    74 const KillScore = 200;
    75 
    75 
    76 var friendlyfactor: LongInt = 300;
    76 var friendlyfactor: LongInt = 300;