hedgewars/uTeams.pas
changeset 4197 dad127904958
parent 4102 96efb3bbf8e3
child 4198 55814f1ef60a
equal deleted inserted replaced
4196:78c45314f123 4197:dad127904958
   293 if PlacingHogs then
   293 if PlacingHogs then
   294    begin
   294    begin
   295    if CurrentHedgehog^.Unplaced then TurnTimeLeft:= 15000
   295    if CurrentHedgehog^.Unplaced then TurnTimeLeft:= 15000
   296    else TurnTimeLeft:= 0
   296    else TurnTimeLeft:= 0
   297    end
   297    end
   298 else TurnTimeLeft:= cHedgehogTurnTime;
   298 else TurnTimeLeft:= cHedgehogTurnTime * 1000;
   299 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then
   299 if (TurnTimeLeft > 0) and (CurrentHedgehog^.BotLevel = 0) then
   300     begin
   300     begin
   301     if CurrentTeam^.ExtDriven then
   301     if CurrentTeam^.ExtDriven then
   302         PlaySound(sndIllGetYou, CurrentTeam^.voicepack)
   302         PlaySound(sndIllGetYou, CurrentTeam^.voicepack)
   303     else
   303     else
   304         PlaySound(sndYesSir, CurrentTeam^.voicepack);
   304         PlaySound(sndYesSir, CurrentTeam^.voicepack);
   305     if PlacingHogs or (cHedgehogTurnTime < 1000000) then ReadyTimeLeft:= cReadyDelay;
   305     if PlacingHogs or (cHedgehogTurnTime < 1000) then ReadyTimeLeft:= cReadyDelay;
   306     AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState)
   306     AddCaption(Format(shortstring(trmsg[sidReady]), CurrentTeam^.TeamName), cWhiteColor, capgrpGameState)
   307     end
   307     end
   308 else
   308 else
   309     begin
   309     begin
   310     if TurnTimeLeft > 0 then
   310     if TurnTimeLeft > 0 then