hedgewars/GSHandlers.inc
changeset 7283 322ff9418461
parent 7281 c22dd112c958
child 7293 468cf6d561e5
equal deleted inserted replaced
7281:c22dd112c958 7283:322ff9418461
  2137                 if Gear^.Tag = 1 then 
  2137                 if Gear^.Tag = 1 then 
  2138                     sparkles^.Tint:= $3744D7FF
  2138                     sparkles^.Tint:= $3744D7FF
  2139                 else sparkles^.Tint:= $FAB22CFF
  2139                 else sparkles^.Tint:= $FAB22CFF
  2140                 end;
  2140                 end;
  2141             end;
  2141             end;
  2142         if Gear^.Timer < 1000 then exit;
  2142         if Gear^.Timer < 1000 then 
       
  2143             begin
       
  2144             AllInactive:= false;
       
  2145             exit
       
  2146             end
  2143         end;
  2147         end;
  2144 
  2148 
  2145     if (Gear^.Damage > 0) or exBoom then
  2149     if (Gear^.Damage > 0) or exBoom then
  2146         begin
  2150         begin
  2147         x := hwRound(Gear^.X);
  2151         x := hwRound(Gear^.X);