hedgewars/uTeams.pas
changeset 10349 a51de45dcc42
parent 10345 2b264d67fac3
child 10350 4e919f7b9d92
equal deleted inserted replaced
10348:8a90df36bccb 10349:a51de45dcc42
   517 var i: LongInt;
   517 var i: LongInt;
   518 begin
   518 begin
   519     with Team do
   519     with Team do
   520         if skippedTurns < 3 then
   520         if skippedTurns < 3 then
   521             begin
   521             begin
   522                 inc(skippedTurns);
   522             inc(skippedTurns);
   523                 ParseCommand('/skip', true);
   523             for i:= 0 to cMaxHHIndex do
       
   524                 with Hedgehogs[i] do
       
   525                     if Gear <> nil then
       
   526                         Gear^.State:= Gear^.State and (not gstHHDriven);
       
   527 
       
   528             ParseCommand('/skip', true);
   524             end
   529             end
   525         else
   530         else
   526             for i:= 0 to cMaxHHIndex do
   531             for i:= 0 to cMaxHHIndex do
   527                 with Hedgehogs[i] do
   532                 with Hedgehogs[i] do
   528                     begin
   533                     begin