replace

   ExplosiveFire:
      DCBG A 0 A_JumpIfInventory("DahliaFired", 1, "Reload")
      DCBG A 0 A_JumpIfInventory("DahliaExplosiveAmmo", 1, "ExplosiveLastShot")
      DCBB A 2

with


   ExplosiveFire:
      DCBG A 0 A_JumpIfInventory("DahliaFired", 1, "Reload")
      DCBG A 0 A_JumpIfInventory("DahliaExplosiveAmmo", 1, "ExplosiveFire2")
      Goto ReadyEmpty
   ExplosiveFire2:
      DCBB A 2