Main BSP code file
-------
Coin of Balance and switch stone
--
on 1:text:Switch Stone*:#:{
  if (%fightera == $nick) {
    if ($readini(batscore.ini,%fightera,item) == switch stone) { set -s %hpswitch %hpa | set -s %hpa %hpi | set -s %hpi %hpswitch | unset %hpswitch | msg $chan 12 $+ %fightera uses a Switch Stone, and the HPs of both fighters are switched! | useitem | switch }
    else msg $chan 12You don't have a Switch Stone, %fightera $+ !
  }
}

on 1:text:Coin of Balance*:#:{
  if (%fightera == $nick) {
    if ($readini(batscore.ini,%fightera,item) == coin of balance) { set -s %hpcombine $calc(%hpa + %hpi) | set -s %hpbalance $calc(%hpcombine / 2) | unset %hpcombine | set -s %hpa %hpbalance | set -s %hpi %hpbalance | unset %hpbalance | msg $chan 12 $+ %fightera flips their Coin of Balance to even the odds for this battle! | useitem | switch }
    else msg $chan 12You don't have a Coin of Balance, %fightera $+ !
  }
}

add this to item.ini
----
[Switch Stone]
price=250

[Coin of Balance]
price=200

add THIS to main BSP code file too, its for the strong and weak repellents (long code):
------
alias summon {
  if ($readini(batscore.ini,%fightera,accessory) == weak repellent) {
    set %summon $rand(0,4)
    if (%summon == 0) Ifrit
    elseif (%summon == 1) Shiva
    elseif (%summon == 2) Holy
    elseif (%summon == 3) Diablos
    elseif (%summon == 4) Repellent
  }
  elseif ($readini(batscore.ini,%fightera,accessory) == strong repellent) {
    set %summon $rand(0,9)
    if (%summon == 0) Ifrit
    elseif (%summon == 1) Ifrit
    elseif (%summon == 2) Shiva
    elseif (%summon == 3) Shiva
    elseif (%summon == 4) Holy
    elseif (%summon == 5) Holy
    elseif (%summon == 6) Repellent
    elseif (%summon == 7) Repellent
    elseif (%summon == 8) Repellent
    elseif (%summon == 9) Diablos
  }
  else {
    set %summon $rand(0,3)
    if (%summon == 0) Ifrit
    elseif (%summon == 1) Shiva
    elseif (%summon == 2) Holy
    elseif (%summon == 3) Diablos
  }
}

alias Repellent {
  msg $chan 12 $+ %fightera $+ 's repellent wards off Diablos temporarily!
  set %summon $rand(0,2)
  if (%summon == 0) Ifrit
  elseif (%summon == 1) Shiva
  elseif (%summon == 2) Holy
}

add this to accessory.ini
--
[weak repellent]
price=100

[strong repellent]
price=400

also for a quick favor, add a couple things...
-----
weapon.ini:
[53]
price=1500
name=Mythril Blade

batscore.ini:
[Kitsune]
gold=5448.5
wins=799
weapon=53
accessory=Belt of Vitality
item=nothing

^ you don't have to do those but it would be very nice to do it for me

OMNISLASH code:
---------------
on 1:text:omnislash*:#:{
  if (%fightera == $nick) {
    if (%hpa <= 20) {
      if ($readini(batscore.ini,%fightera,wins) >= 300) { omnislash }
      else { msg $chan 12 $+ %fightera $+ , you must be level 300 or higher to use Omnislash. }
    }
    else { msg $chan 12 $+ %fightera $+ , you can only use Omnislash when you have 20 HP or lower! }
  }
}
alias omnislash {
  set %dam1 $calc($rand(200,300))
  set %dam2 $calc($rand(200,300))
  set %dam3 $calc($rand(400,500))
  msg $chan 12 $+ %fightera $read(slash.txt) %fighteri for %dam1 HP!
  msg $chan 12 $+ %fightera $read(slash.txt) %fighteri for %dam2 HP!
  msg $chan 12 $+ %fightera charges a final attack and $read(slash.txt) %fighteri for %dam3 HP, and gains that much HP!
  dec -s %hpi $calc(%dam1 + %dam2 + %dam3)
  inc -s %hpa %dam3
  switch
}

I think thats all