hedgewars/uTeams.pas
changeset 7184 211ab9e2cb15
parent 7151 ec15d9e1a7e3
child 7191 9419294e5f33
equal deleted inserted replaced
7183:95dc11d648fb 7184:211ab9e2cb15
   245         end;
   245         end;
   246     RemoveGearFromList(Gear);
   246     RemoveGearFromList(Gear);
   247     InsertGearToList(Gear);
   247     InsertGearToList(Gear);
   248     FollowGear:= Gear
   248     FollowGear:= Gear
   249     end;
   249     end;
   250 
       
   251 ResetKbd;
       
   252 
   250 
   253 if (GameFlags and gfDisableWind) = 0 then
   251 if (GameFlags and gfDisableWind) = 0 then
   254     begin
   252     begin
   255     cWindSpeed:= rndSign(GetRandomf * 2 * cMaxWindSpeed);
   253     cWindSpeed:= rndSign(GetRandomf * 2 * cMaxWindSpeed);
   256     w:= hwFloat2Float(cWindSpeed);
   254     w:= hwFloat2Float(cWindSpeed);