hedgewars/uGears.pas
changeset 4159 64e677349124
parent 4155 9160dbe77118
child 4165 dec8aafc6414
equal deleted inserted replaced
4158:08f4627ad2b3 4159:64e677349124
  1058 begin
  1058 begin
  1059 with PHedgehog(Gear^.Hedgehog)^ do
  1059 with PHedgehog(Gear^.Hedgehog)^ do
  1060     begin
  1060     begin
  1061     if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
  1061     if not (((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) and ((Gear^.State and gstAttacked) = 0)) then
  1062         exit;
  1062         exit;
  1063     DrawTexture(round(int64(sx) + 16), round(int64(sy) + 16), ropeIconTex);
  1063     DrawTexture(sx + 16, sy + 16, ropeIconTex);
  1064     DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, round(int64(sx) + 30), round(int64(sy) + 30), ord(CurAmmoType) - 1, 1, 32, 32);
  1064     DrawTextureF(SpritesData[sprAMAmmos].Texture, 0.75, sx + 30, sy + 30, ord(CurAmmoType) - 1, 1, 32, 32);
  1065     end;
  1065     end;
  1066 end;
  1066 end;
  1067 
  1067 
  1068 procedure DrawRopeLinesRQ(Gear: PGear);
  1068 procedure DrawRopeLinesRQ(Gear: PGear);
  1069 begin
  1069 begin