equal
deleted
inserted
replaced
110 inc(Targets.Count) |
110 inc(Targets.Count) |
111 end; |
111 end; |
112 end; |
112 end; |
113 |
113 |
114 if e > f then friendlyfactor:= 300 + (e - f) * 30 |
114 if e > f then friendlyfactor:= 300 + (e - f) * 30 |
115 else friendlyfactor:= max(30, 300 - f * 80 div e) |
115 else friendlyfactor:= max(30, 300 - f * 80 div max(1,e)) |
116 end; |
116 end; |
117 |
117 |
118 procedure FillBonuses(isAfterAttack: boolean; filter: TGearsType); |
118 procedure FillBonuses(isAfterAttack: boolean; filter: TGearsType); |
119 var Gear: PGear; |
119 var Gear: PGear; |
120 MyClan: PClan; |
120 MyClan: PClan; |