equal
deleted
inserted
replaced
181 begin |
181 begin |
182 Gear^.State:= (Gear^.State or gstMoving) and (not (gstHHJumping or gstHHHJump)); |
182 Gear^.State:= (Gear^.State or gstMoving) and (not (gstHHJumping or gstHHHJump)); |
183 if (not GameOver) then |
183 if (not GameOver) then |
184 Gear^.State:= (Gear^.State and (not gstWinner)); |
184 Gear^.State:= (Gear^.State and (not gstWinner)); |
185 end; |
185 end; |
|
186 if Gear^.Kind = gtSentry then |
|
187 Gear^.State:= Gear^.State and (not gstHHJumping); |
186 Gear^.Active:= true; |
188 Gear^.Active:= true; |
187 if Gear^.Kind <> gtFlame then FollowGear:= Gear; |
189 if Gear^.Kind <> gtFlame then FollowGear:= Gear; |
188 if Gear^.Kind = gtAirMine then |
190 if Gear^.Kind = gtAirMine then |
189 begin |
191 begin |
190 Gear^.Tag:= 1; |
192 Gear^.Tag:= 1; |