hedgewars/uGearsHandlersMess.pas
changeset 12820 4c1c468725ff
parent 12815 92218a06c9ff
child 12823 e2e372449c19
equal deleted inserted replaced
12819:3fc7569c1203 12820:4c1c468725ff
  2626             dY := _0;
  2626             dY := _0;
  2627             State := State or gstMoving;
  2627             State := State or gstMoving;
  2628             end;
  2628             end;
  2629         DeleteGear(Gear);
  2629         DeleteGear(Gear);
  2630         if (GetAmmoEntry(HHGear^.Hedgehog^, amParachute)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  2630         if (GetAmmoEntry(HHGear^.Hedgehog^, amParachute)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  2631             SetWeapon(amParachute);
  2631             HHGear^.Hedgehog^.CurAmmoType:= amParachute;
  2632         isCursorVisible := false;
  2632         isCursorVisible := false;
  2633         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2633         ApplyAmmoChanges(HHGear^.Hedgehog^);
  2634         exit
  2634         exit
  2635         end;
  2635         end;
  2636 
  2636 
  4049                 Active := true;
  4049                 Active := true;
  4050                 State := State or gstMoving
  4050                 State := State or gstMoving
  4051                 end;
  4051                 end;
  4052             DeleteGear(Gear);
  4052             DeleteGear(Gear);
  4053             if (GetAmmoEntry(HHGear^.Hedgehog^, amJetpack)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  4053             if (GetAmmoEntry(HHGear^.Hedgehog^, amJetpack)^.Count >= 1) and ((Ammoz[HHGear^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
  4054                 SetWeapon(amJetpack);
  4054                 HHGear^.Hedgehog^.CurAmmoType:= amJetpack;
  4055             isCursorVisible := false;
  4055             isCursorVisible := false;
  4056             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4056             ApplyAmmoChanges(HHGear^.Hedgehog^);
  4057         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4057         //    if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
  4058 
  4058 
  4059 //    Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall)
  4059 //    Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall)