equal
deleted
inserted
replaced
605 |
605 |
606 //////////////////////////////////////////////////////////////////////////////// |
606 //////////////////////////////////////////////////////////////////////////////// |
607 procedure doStepHedgehogGone(Gear: PGear); |
607 procedure doStepHedgehogGone(Gear: PGear); |
608 const frametime = 65; |
608 const frametime = 65; |
609 timertime = frametime * 11; |
609 timertime = frametime * 11; |
|
610 var i: LongInt; |
610 begin |
611 begin |
611 if Gear^.Hedgehog^.Unplaced then |
612 if Gear^.Hedgehog^.Unplaced then |
612 exit; |
613 exit; |
613 if Gear^.Timer > 1 then |
614 if Gear^.Timer > 1 then |
614 begin |
615 begin |
627 begin |
628 begin |
628 AllInactive:= false; |
629 AllInactive:= false; |
629 Gear^.Z:= cCurrHHZ; |
630 Gear^.Z:= cCurrHHZ; |
630 RemoveGearFromList(Gear); |
631 RemoveGearFromList(Gear); |
631 InsertGearToList(Gear); |
632 InsertGearToList(Gear); |
632 PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); |
633 // only play sound for one alive hedgehog |
633 PlaySound(sndWarp); |
634 with Gear^.Hedgehog^.Team^ do |
|
635 for i:= 0 to cMaxHHIndex do |
|
636 begin |
|
637 if (Hedgehogs[i].Gear <> nil) then |
|
638 begin |
|
639 if (Hedgehogs[i].Gear = Gear) then |
|
640 begin |
|
641 PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); |
|
642 PlaySound(sndWarp); |
|
643 end; |
|
644 break; |
|
645 end; |
|
646 end; |
634 Gear^.Pos:= 0; |
647 Gear^.Pos:= 0; |
635 Gear^.Timer:= timertime |
648 Gear^.Timer:= timertime |
636 end |
649 end |
637 end; |
650 end; |
638 |
651 |