equal
deleted
inserted
replaced
49 |
49 |
50 var ThinkingHH: PGear; |
50 var ThinkingHH: PGear; |
51 Targets: TTargets; |
51 Targets: TTargets; |
52 |
52 |
53 implementation |
53 implementation |
54 uses uTeams, uMisc, uLand, uCollisions, uconsole; |
54 uses uTeams, uMisc, uLand, uCollisions; |
55 const KillScore = 200; |
55 const KillScore = 200; |
56 MAXBONUS = 1024; |
56 MAXBONUS = 1024; |
57 friendlyfactor: Longword = 300; |
57 friendlyfactor: Longword = 300; |
58 |
58 |
59 type TBonus = record |
59 type TBonus = record |
100 inc(Targets.Count) |
100 inc(Targets.Count) |
101 end; |
101 end; |
102 end; |
102 end; |
103 |
103 |
104 if e > f then friendlyfactor:= 300 + (e - f) * 30 |
104 if e > f then friendlyfactor:= 300 + (e - f) * 30 |
105 else friendlyfactor:= max(30, 300 - f * 80 div e); |
105 else friendlyfactor:= max(30, 300 - f * 80 div e) |
106 writelntoconsole('e:' +inttostr(e) + ' f:' + inttostr(f) + ' ff:'+ inttostr(friendlyfactor)) |
|
107 end; |
106 end; |
108 |
107 |
109 procedure FillBonuses(isAfterAttack: boolean); |
108 procedure FillBonuses(isAfterAttack: boolean); |
110 var Gear: PGear; |
109 var Gear: PGear; |
111 MyClan: PClan; |
110 MyClan: PClan; |