equal
deleted
inserted
replaced
122 end; |
122 end; |
123 |
123 |
124 begin |
124 begin |
125 bonuses.Count:= 0; |
125 bonuses.Count:= 0; |
126 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color; |
126 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color; |
|
127 SDL_LockMutex(GearsListMutex); |
127 Gear:= GearsList; |
128 Gear:= GearsList; |
128 while Gear <> nil do |
129 while Gear <> nil do |
129 begin |
130 begin |
130 case Gear.Kind of |
131 case Gear.Kind of |
131 gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25); |
132 gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25); |
139 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3) |
140 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3) |
140 end; |
141 end; |
141 end; |
142 end; |
142 Gear:= Gear.NextGear |
143 Gear:= Gear.NextGear |
143 end; |
144 end; |
|
145 SDL_UnlockMutex(GearsListMutex); |
144 if isAfterAttack and (KnownExplosion.Radius > 0) then |
146 if isAfterAttack and (KnownExplosion.Radius > 0) then |
145 with KnownExplosion do |
147 with KnownExplosion do |
146 AddBonus(X, Y, Radius + 10, -Radius); |
148 AddBonus(X, Y, Radius + 10, -Radius); |
147 end; |
149 end; |
148 |
150 |