hedgewars/uGearsHandlersMess.pas
changeset 12700 16fcd59295e3
parent 12693 2592c6ea6008
child 12712 31f7e0a31736
equal deleted inserted replaced
12699:608db0fb90f0 12700:16fcd59295e3
  2614             SetLittle(dX);
  2614             SetLittle(dX);
  2615             dY := _0;
  2615             dY := _0;
  2616             State := State or gstMoving;
  2616             State := State or gstMoving;
  2617             end;
  2617             end;
  2618         DeleteGear(Gear);
  2618         DeleteGear(Gear);
  2619         if (GetAmmoEntry(HHGear^.Hedgehog^, TAmmoType(amParachute))^.Count >= 1) and (HHGear^.Hedgehog^.CurAmmoType <> amParachute) then
  2619         if (GetAmmoEntry(HHGear^.Hedgehog^, amParachute)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  2620             SetWeapon(amParachute);
  2620             SetWeapon(amParachute);
  2621         isCursorVisible := false;
  2621         isCursorVisible := false;
  2622         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2622         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2623         exit
  2623         exit
  2624         end;
  2624         end;
  4017                 Message := 0;
  4017                 Message := 0;
  4018                 Active := true;
  4018                 Active := true;
  4019                 State := State or gstMoving
  4019                 State := State or gstMoving
  4020                 end;
  4020                 end;
  4021             DeleteGear(Gear);
  4021             DeleteGear(Gear);
  4022             if (GetAmmoEntry(HHGear^.Hedgehog^, TAmmoType(amJetpack))^.Count >= 1) and (HHGear^.Hedgehog^.CurAmmoType <> amJetpack) then
  4022             if (GetAmmoEntry(HHGear^.Hedgehog^, amJetpack)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  4023                 SetWeapon(amJetpack);
  4023                 SetWeapon(amJetpack);
  4024             isCursorVisible := false;
  4024             isCursorVisible := false;
  4025             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4025             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4026         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4026         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4027 
  4027