equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uAIMisc; |
21 unit uAIMisc; |
22 interface |
22 interface |
23 uses SDLh, uConsts, uGears, uFloat, uTypes; |
23 uses SDLh, uConsts, uFloat, uTypes; |
24 |
24 |
25 const MAXBONUS = 1024; |
25 const MAXBONUS = 1024; |
26 |
26 |
27 type TTarget = record |
27 type TTarget = record |
28 Point: TPoint; |
28 Point: TPoint; |
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, uCollisions, uVariables; |
71 uses 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; |