equal
deleted
inserted
replaced
129 TryDo(bonuses.Count <= MAXBONUS, 'Bonuses overflow', true) |
129 TryDo(bonuses.Count <= MAXBONUS, 'Bonuses overflow', true) |
130 end; |
130 end; |
131 |
131 |
132 begin |
132 begin |
133 bonuses.Count:= 0; |
133 bonuses.Count:= 0; |
134 MyClan:= PHedgehog(ThinkingHH^.Hedgehog)^.Team^.Clan; |
134 MyClan:= ThinkingHH^.Hedgehog^.Team^.Clan; |
135 Gear:= GearsList; |
135 Gear:= GearsList; |
136 while Gear <> nil do |
136 while Gear <> nil do |
137 begin |
137 begin |
138 if (filter = []) or (Gear^.Kind in filter) then |
138 if (filter = []) or (Gear^.Kind in filter) then |
139 case Gear^.Kind of |
139 case Gear^.Kind of |