hedgewars/uGearsHandlersMess.pas
changeset 12568 494d3e1c4810
parent 12377 efa13b925cd8
child 12621 d972b31f8881
equal deleted inserted replaced
12567:459543ef9b1b 12568:494d3e1c4810
  2151             begin
  2151             begin
  2152             doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
  2152             doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
  2153             for i:= 0 to 63 do
  2153             for i:= 0 to 63 do
  2154                 AddGear(x, y, gtFlame, 0, _0, _0, 0);
  2154                 AddGear(x, y, gtFlame, 0, _0, _0, 0);
  2155             end
  2155             end
       
  2156         else if k = gtTarget then
       
  2157             uStats.TargetHit()
  2156         else if k = gtExplosives then
  2158         else if k = gtExplosives then
  2157                 begin
  2159                 begin
  2158                 doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
  2160                 doMakeExplosion(x, y, Gear^.Boom, hog, EXPLAutoSound);
  2159                 for i:= 0 to 31 do
  2161                 for i:= 0 to 31 do
  2160                     begin
  2162                     begin