hedgewars/uGearsHandlersMess.pas
changeset 13956 2568fa516733
parent 13877 8c702a4839ec
child 13974 4d0c80f7aa32
equal deleted inserted replaced
13955:a857cd1cc3f0 13956:2568fa516733
  2875             SetLittle(dX);
  2875             SetLittle(dX);
  2876             dY := _0;
  2876             dY := _0;
  2877             State := State or gstMoving;
  2877             State := State or gstMoving;
  2878             end;
  2878             end;
  2879         DeleteGear(Gear);
  2879         DeleteGear(Gear);
  2880         if (GetAmmoEntry(HHGear^.Hedgehog^, amParachute)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  2880         if (GetAmmoEntry(HHGear^.Hedgehog^, amParachute)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and (HHGear^.Hedgehog^.MultiShootAttacks = 0) then
  2881             HHGear^.Hedgehog^.CurAmmoType:= amParachute;
  2881             HHGear^.Hedgehog^.CurAmmoType:= amParachute;
  2882         isCursorVisible := false;
  2882         isCursorVisible := false;
  2883         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2883         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2884         exit
  2884         exit
  2885         end;
  2885         end;
  4374                 Message := 0;
  4374                 Message := 0;
  4375                 Active := true;
  4375                 Active := true;
  4376                 State := State or gstMoving
  4376                 State := State or gstMoving
  4377                 end;
  4377                 end;
  4378             DeleteGear(Gear);
  4378             DeleteGear(Gear);
  4379             if (GetAmmoEntry(HHGear^.Hedgehog^, amJetpack)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  4379             if (GetAmmoEntry(HHGear^.Hedgehog^, amJetpack)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and (HHGear^.Hedgehog^.MultiShootAttacks = 0) then
  4380                 HHGear^.Hedgehog^.CurAmmoType:= amJetpack;
  4380                 HHGear^.Hedgehog^.CurAmmoType:= amJetpack;
  4381             isCursorVisible := false;
  4381             isCursorVisible := false;
  4382             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4382             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4383         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4383         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4384 
  4384