equal
deleted
inserted
replaced
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); |