hedgewars/uGearsHedgehog.pas
changeset 11473 2f6f8baa2a97
parent 11272 9621fdcad965
child 11489 cb64affd7715
equal deleted inserted replaced
11472:f2c36df8c7b1 11473:2f6f8baa2a97
   585     end
   585     end
   586 else if Gear^.Timer = 1 then
   586 else if Gear^.Timer = 1 then
   587     begin
   587     begin
   588     Gear^.Hedgehog^.Effects[heFrozen]:= 0;
   588     Gear^.Hedgehog^.Effects[heFrozen]:= 0;
   589     Gear^.State:= Gear^.State or gstNoDamage;
   589     Gear^.State:= Gear^.State or gstNoDamage;
   590     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);
   590     doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, CurrentHedgehog, EXPLAutoSound);
   591     grave:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0);
   591     grave:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0);
   592     grave^.Hedgehog:= Gear^.Hedgehog;
   592     grave^.Hedgehog:= Gear^.Hedgehog;
   593     grave^.Pos:= Gear^.uid;
   593     grave^.Pos:= Gear^.uid;
   594     
   594     
   595     DeleteGear(Gear);
   595     DeleteGear(Gear);