hedgewars/uGears.pas
changeset 7053 8c9dcaedc7a8
parent 7028 0f60591f3a16
child 7061 4e0fc59ab1ce
equal deleted inserted replaced
7052:cefb73639f70 7053:8c9dcaedc7a8
   191 
   191 
   192 if (StepSoundTimer > 0) and (StepSoundChannel < 0) then
   192 if (StepSoundTimer > 0) and (StepSoundChannel < 0) then
   193     StepSoundChannel:= LoopSound(sndSteps)
   193     StepSoundChannel:= LoopSound(sndSteps)
   194 else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then
   194 else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then
   195     begin
   195     begin
   196     StopSound(StepSoundChannel);
   196     StopSoundChan(StepSoundChannel);
   197     StepSoundChannel:= -1
   197     StepSoundChannel:= -1
   198     end;
   198     end;
   199 
   199 
   200 if StepSoundTimer > 0 then
   200 if StepSoundTimer > 0 then
   201     dec(StepSoundTimer, 1);
   201     dec(StepSoundTimer, 1);
   420                 if (TurnTimeLeft = 5000)
   420                 if (TurnTimeLeft = 5000)
   421                 and (cHedgehogTurnTime >= 10000)
   421                 and (cHedgehogTurnTime >= 10000)
   422                 and (not PlacingHogs)
   422                 and (not PlacingHogs)
   423                 and (CurrentHedgehog^.Gear <> nil)
   423                 and (CurrentHedgehog^.Gear <> nil)
   424                 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   424                 and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) then
   425                     PlaySound(sndHurry, CurrentTeam^.voicepack);
   425                     PlaySoundV(sndHurry, CurrentTeam^.voicepack);
   426             if ReadyTimeLeft > 0 then
   426             if ReadyTimeLeft > 0 then
   427                 begin
   427                 begin
   428                 if (ReadyTimeLeft = 2000) and (LastVoice.snd = sndNone) then
   428                 if (ReadyTimeLeft = 2000) and (LastVoice.snd = sndNone) then
   429                     AddVoice(sndComeonthen, CurrentTeam^.voicepack);
   429                     AddVoice(sndComeonthen, CurrentTeam^.voicepack);
   430                 dec(ReadyTimeLeft)
   430                 dec(ReadyTimeLeft)