changeset 32 | 78bff13b11c0 |
parent 17 | a6bed8d31444 |
child 47 | 8daf1ee0b9a3 |
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; |