equal
deleted
inserted
replaced
570 |
570 |
571 //////////////////////////////////////////////////////////////////////////////// |
571 //////////////////////////////////////////////////////////////////////////////// |
572 procedure doStepHedgehogDead(Gear: PGear); |
572 procedure doStepHedgehogDead(Gear: PGear); |
573 const frametime = 200; |
573 const frametime = 200; |
574 timertime = frametime * 6; |
574 timertime = frametime * 6; |
|
575 var grave: PGear; |
575 begin |
576 begin |
576 if Gear^.Hedgehog^.Unplaced then |
577 if Gear^.Hedgehog^.Unplaced then |
577 exit; |
578 exit; |
578 if Gear^.Timer > 1 then |
579 if Gear^.Timer > 1 then |
579 begin |
580 begin |
585 else if Gear^.Timer = 1 then |
586 else if Gear^.Timer = 1 then |
586 begin |
587 begin |
587 Gear^.Hedgehog^.Effects[heFrozen]:= 0; |
588 Gear^.Hedgehog^.Effects[heFrozen]:= 0; |
588 Gear^.State:= Gear^.State or gstNoDamage; |
589 Gear^.State:= Gear^.State or gstNoDamage; |
589 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound); |
590 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound); |
590 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog; |
591 grave:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0); |
|
592 grave^.Hedgehog:= Gear^.Hedgehog; |
|
593 grave^.Pos:= Gear^.uid; |
|
594 |
591 DeleteGear(Gear); |
595 DeleteGear(Gear); |
592 SetAllToActive |
596 SetAllToActive |
593 end |
597 end |
594 else // Gear^.Timer = 0 |
598 else // Gear^.Timer = 0 |
595 begin |
599 begin |