hedgewars/uGearsHandlersMess.pas
changeset 15719 08e556cad305
parent 15718 83c950393d7a
child 15721 1244c64b8e28
equal deleted inserted replaced
15718:83c950393d7a 15719:08e556cad305
  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;