alias ring {
  if ((%fightera == %fighter1)) { 
    if (($readini(batscore.ini, %fighter1, accessory) == ring of health)) { inc %hpa 150 }
    if (($readini(batscore.ini, %fighter2, accessory) == ring of health)) { inc %hpi 150 }
    if (($readini(batscore.ini, %fighter1, accessory) == belt of vitality)) { inc %hpa 400 }
    if (($readini(batscore.ini, %fighter2, accessory) == belt of vitality)) { inc %hpi 400 }
    if (($readini(batscore.ini, %fighter1, accessory) == Senku's Attire)) { inc %hpa 800 }
    if (($readini(batscore.ini, %fighter2, accessory) == Senku's Attire)) { inc %hpi 800 }
    inc -s %hpa $calc($readini(batscore.ini, %fighter1, wins) * 3)
    inc -s %hpi $calc($readini(batscore.ini, %fighter2, wins) * 3)
    inc -s %mpa $floor($calc($readini(batscore.ini, %fighter1, wins) * 3 / 4))
    inc -s %mpi $floor($calc($readini(batscore.ini, %fighter2, wins) * 3 / 4))
  }
  else {
    if (($readini(batscore.ini, %fighter1, accessory) == ring of health)) { inc %hpi 150 }
    if (($readini(batscore.ini, %fighter2, accessory) == ring of health)) { inc %hpa 150 }
    if (($readini(batscore.ini, %fighter1, accessory) == belt of vitality)) { inc %hpi 400 }
    if (($readini(batscore.ini, %fighter2, accessory) == belt of vitality)) { inc %hpa 400 }
    if (($readini(batscore.ini, %fighter1, accessory) == Senku's Attire)) { inc %hpi 800 }
    if (($readini(batscore.ini, %fighter2, accessory) == Senku's Attire)) { inc %hpa 800 }
    inc -s %hpi $calc($readini(batscore.ini, %fighter1, wins) * 3)
    inc -s %hpa $calc($readini(batscore.ini, %fighter2, wins) * 3)
    inc -s %mpi $floor($calc($readini(batscore.ini, %fighter1, wins) * 3 / 4))
    inc -s %mpa $floor($calc($readini(batscore.ini, %fighter2, wins) * 3 / 4))
  }
}

alias Shiva {
  set %dam $rand(75,125)
  inc %combo 1
  inc %combovalue %dam
  msg %BattleChannel 12 %fightera has summoned the ice esper Shiva!  Shiva uses her ice attack and deals %fighteri $+ 12 %dam points of damage.
  dec -s %hpi 100
  set %dice $rand(0,3)
  set %dice2 $rand(1,100)
  if (($readini(batscore.ini, %fighteri, accessory) == scarf of warmth)) { if ((%dice != 1)) { msg %BattleChannel 12 $+ %fighteri $+ 's scarf of warmth kept %fighteri warm enough to fight! | switch } }
  if (($readini(batscore.ini, %fighteri, accessory) == Senku's Attire)) {
    if ((%dice2 >= 88)) { 
      if (%fighteri == Senku) msg %BattleChannel 13Hey, %fighteri $+ , what are you doing wearing Senku's Attire? You don't get to be unfrozen, you fag.
      else {
        msg %BattleChannel 12Senku's Attire kept Senku warm!
        switch
      }
    }
  }
  else { msg %BattleChannel 12 $+ %fighteri $+ 12 is frozen and %fightera gets another turn! }
  unset %dice
}

alias magic {
  set %dam 180
  inc %combo 1
  inc %combovalue %dam
  if (($readini(batscore.ini, %fightera, accessory) == robe of magi)) { set %dam 190 }
  if ((hat of a black mage == $readini(batscore.ini, %fightera, accessory))) { set %dam 205 }
  if (($readini(batscore.ini, %fightera, accessory) == Senku's Attire)) { set %dam 170 }
  msg %BattleChannel 12 %fightera casts $read(spelllist.txt) and deals %fighterb %dam points of damage!
  dec -s %hpi %dam
  switch
}

alias summon {
  if (($2 == diablos)) { Diablos }
  else {
    set %summon $rand(0,14)
    if ((%summon > -1) && (%summon < 4)) { Ifrit }
    else {
      if ((%summon > 3) && (%summon < 8)) { Shiva }
      else {
        if ((%summon > 7) && (%summon < 12)) {
          if (%summon == 9) && ($readini(batscore.ini, %fightera, accessory) == Senku's Attire) { Diablos }
          else { Holy }
        else {
          if ((%summon == 12) || (%summon = 13)) { Diablos }
          else {
            if ((%summon == 14)) { Electra }
          }
        }
      }
    }
  }
}