equal
deleted
inserted
replaced
7427 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
7427 Gear^.dX.isNegative := not Gear^.dX.isNegative; |
7428 if not MakeSentryStep(Gear, 6, true) then |
7428 if not MakeSentryStep(Gear, 6, true) then |
7429 begin |
7429 begin |
7430 if GetRandom(2) = 0 then |
7430 if GetRandom(2) = 0 then |
7431 begin |
7431 begin |
7432 Gear^.dY := - _0_25; |
7432 Gear^.dY := - _0_1; |
|
7433 if TestCollisionYKick(Gear, -1) = 0 then |
|
7434 Gear^.dY := - _0_25; |
7433 Gear^.Timer := 3000; |
7435 Gear^.Timer := 3000; |
7434 end |
7436 end |
7435 else |
7437 else |
7436 Gear^.Timer := 5000; |
7438 Gear^.Timer := 5000; |
7437 Gear^.Tag := sentry_Idle; |
7439 Gear^.Tag := sentry_Idle; |