hedgewars/GSHandlers.inc
changeset 4104 b94ff350d111
parent 4103 aa932f2e6349
child 4135 5be798ecafdc
equal deleted inserted replaced
4103:aa932f2e6349 4104:b94ff350d111
  1351                 Gear^.Y := Gear^.Y + ty;
  1351                 Gear^.Y := Gear^.Y + ty;
  1352                 Gear^.Elasticity := tt;
  1352                 Gear^.Elasticity := tt;
  1353                 Gear^.doStep := @doStepRopeWork;
  1353                 Gear^.doStep := @doStepRopeWork;
  1354                 PlaySound(sndRopeAttach);
  1354                 PlaySound(sndRopeAttach);
  1355                 with HHGear^ do
  1355                 with HHGear^ do
       
  1356                     begin
  1356                     State := State and not (gstAttacking or gstHHJumping or gstHHHJump);
  1357                     State := State and not (gstAttacking or gstHHJumping or gstHHHJump);
       
  1358                     Message := Message and not gmAttack
       
  1359                     end;
  1357 
  1360 
  1358                 RemoveFromAmmo;
  1361                 RemoveFromAmmo;
  1359 
  1362 
  1360                 tt := _0;
  1363                 tt := _0;
  1361                 exit
  1364                 exit