76 KilledHHs: Longword = 0; |
76 KilledHHs: Longword = 0; |
77 SuddenDeathDmg: Boolean = false; |
77 SuddenDeathDmg: Boolean = false; |
78 SpeechType: Longword = 1; |
78 SpeechType: Longword = 1; |
79 SpeechText: shortstring; |
79 SpeechText: shortstring; |
80 TrainingTargetGear: PGear = nil; |
80 TrainingTargetGear: PGear = nil; |
|
81 skipFlag: boolean = false; |
81 |
82 |
82 implementation |
83 implementation |
83 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, |
84 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, |
84 uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, |
85 uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, |
85 {$IFDEF GLES11} |
86 {$IFDEF GLES11} |
656 and (CurrentHedgehog^.Gear <> nil) |
657 and (CurrentHedgehog^.Gear <> nil) |
657 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then |
658 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then |
658 PlaySound(sndHurry, false, CurrentTeam^.voicepack); |
659 PlaySound(sndHurry, false, CurrentTeam^.voicepack); |
659 dec(TurnTimeLeft) |
660 dec(TurnTimeLeft) |
660 end; |
661 end; |
|
662 |
|
663 if skipFlag then |
|
664 begin |
|
665 TurnTimeLeft:= 0; |
|
666 skipFlag:= false |
|
667 end; |
661 |
668 |
662 if ((GameTicks and $FFFF) = $FFFF) then |
669 if ((GameTicks and $FFFF) = $FFFF) then |
663 begin |
670 begin |
664 if (not CurrentTeam^.ExtDriven) then |
671 if (not CurrentTeam^.ExtDriven) then |
665 SendIPCTimeInc; |
672 SendIPCTimeInc; |