equal
deleted
inserted
replaced
7326 begin |
7326 begin |
7327 if not MakeSentryStep(Gear, 6) then |
7327 if not MakeSentryStep(Gear, 6) then |
7328 Gear^.Timer := 0 |
7328 Gear^.Timer := 0 |
7329 end; |
7329 end; |
7330 |
7330 |
|
7331 if ((GameTicks and $1F) = 0) |
|
7332 and (Gear^.Tag = sentry_Aiming) |
|
7333 and (CurrentHedgehog <> nil) |
|
7334 and (CurrentHedgehog^.Gear <> nil) then |
|
7335 begin |
|
7336 HHGear := CurrentHedgehog^.Gear; |
|
7337 Gear^.Target.X := Gear^.Target.X + hwSign(HHGear^.X - int2hwFloat(Gear^.Target.X)); |
|
7338 Gear^.Target.Y := Gear^.Target.Y + hwSign(HHGear^.Y - int2hwFloat(Gear^.Target.Y)); |
|
7339 end; |
|
7340 |
7331 if ((GameTicks and $FF) = 0) |
7341 if ((GameTicks and $FF) = 0) |
7332 and (Gear^.Tag in [sentry_Idle, sentry_Walking]) |
7342 and (Gear^.Tag in [sentry_Idle, sentry_Walking]) |
7333 and (CurrentHedgehog <> nil) |
7343 and (CurrentHedgehog <> nil) |
7334 and (CurrentHedgehog^.Gear <> nil) |
7344 and (CurrentHedgehog^.Gear <> nil) |
7335 and ((CurrentHedgehog^.Gear^.State and (gstMoving or gstHHDriven)) = (gstMoving or gstHHDriven)) then |
7345 and ((CurrentHedgehog^.Gear^.State and (gstMoving or gstHHDriven)) = (gstMoving or gstHHDriven)) then |