on $*:TEXT:/^[.!@](bandos|arma(dyl)?|sara(domin)?|zam?(my|orak)) (-p|-r|-g)?/Si:#: {
  set %trip $remove($1,!,.,@)
  if (Sara isin %trip) { set %team Saradomin | unset %trip }
  elseif (Arma isin %trip) { set %team Armadyl | unset %trip }
  elseif (Zam isin %trip) { set %team Zamorak | unset %trip }
  else {
    set %team Bandos
    unset %trip
  }
  if ($2 == -p) {
    writeini bka.ini %team $iif($readini(botinfo.ini,defname,$address($nick,3)),$readini(botinfo.ini,defname,$address($nick,3)),$nick) $iif($regex($3,/^tank(er)?$/Si),Tanker,$iif($3,$3-,Not Tanker))
    notice $nick $nick $+ : You are on the list for the %team Team.
  }
  if ($2 == -r) {
    remini bka.ini %team $nick
    notice $nick $nick $+ : You are off the list for the %team Team.
  }
  if ($2 == -g) {
    notice $nick $nick $+ : I will pm you a list for the %team Team.
    var %i = 0
    while (%i < $ini(bka.ini,%team,0)) {
      inc %i
      msg $nick $ini(bka.ini,%team,%i) - $readini(bka.ini,%team,$ini(bka.ini,%team,%i))
    }
  }
}