equal
deleted
inserted
replaced
107 end; |
107 end; |
108 |
108 |
109 begin |
109 begin |
110 bonuses.Count:= 0; |
110 bonuses.Count:= 0; |
111 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color; |
111 MyColor:= PHedgehog(ThinkingHH.Hedgehog).Team.Color; |
112 SDL_LockMutex(GearsListMutex); |
|
113 Gear:= GearsList; |
112 Gear:= GearsList; |
114 while Gear <> nil do |
113 while Gear <> nil do |
115 begin |
114 begin |
116 case Gear.Kind of |
115 case Gear.Kind of |
117 gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25); |
116 gtCase: AddBonus(round(Gear.X), round(Gear.Y), 33, 25); |
125 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3) |
124 else AddBonus(round(Gear.X), round(Gear.Y), 100, 3) |
126 end; |
125 end; |
127 end; |
126 end; |
128 Gear:= Gear.NextGear |
127 Gear:= Gear.NextGear |
129 end; |
128 end; |
130 SDL_UnlockMutex(GearsListMutex); |
|
131 if isAfterAttack and (KnownExplosion.Radius > 0) then |
129 if isAfterAttack and (KnownExplosion.Radius > 0) then |
132 with KnownExplosion do |
130 with KnownExplosion do |
133 AddBonus(X, Y, Radius + 10, -Radius); |
131 AddBonus(X, Y, Radius + 10, -Radius); |
134 end; |
132 end; |
135 |
133 |