hedgewars/uTeams.pas
changeset 364 52cb4d6f84b7
parent 351 29bc9c36ad5f
child 371 731ad6d27bd1
equal deleted inserted replaced
363:c0d788307314 364:52cb4d6f84b7
   156      FollowGear:= Gear
   156      FollowGear:= Gear
   157      end;
   157      end;
   158 ResetKbd;
   158 ResetKbd;
   159 
   159 
   160 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);
   160 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);
   161 addfilelog('SwitchHedgehog 06');
       
   162 g:= AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1);
   161 g:= AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1);
   163 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   162 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   164 addfilelog('SwitchHedgehog 07');
       
   165 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   163 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   166 ApplyAmmoChanges(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);
   164 ApplyAmmoChanges(CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);
   167 if CurrentTeam^.ExtDriven then SetDefaultBinds
   165 if CurrentTeam^.ExtDriven then SetDefaultBinds
   168                           else SetBinds(CurrentTeam^.Binds);
   166                           else SetBinds(CurrentTeam^.Binds);
   169 bShowFinger:= true;
   167 bShowFinger:= true;