hedgewars/uTeams.pas
changeset 32 78bff13b11c0
parent 17 a6bed8d31444
child 47 8daf1ee0b9a3
equal deleted inserted replaced
31:99888245a4e8 32:78bff13b11c0
   113 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do
   113 with CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog] do
   114      begin
   114      begin
   115      AttacksNum:= 0;
   115      AttacksNum:= 0;
   116      with Gear^ do
   116      with Gear^ do
   117           begin
   117           begin
   118           State:= State or gstHHDriven;
   118           State:= gstHHDriven;
   119           Active:= true
   119           Active:= true
   120           end;
   120           end;
   121      FollowGear:= Gear
   121      FollowGear:= Gear
   122      end;
   122      end;
   123 ResetKbd;
   123 ResetKbd;