Shit-list by Khal

;Simple shit-list by Khal.
alias add.n {
  write shits-xd.txt $1
  echo -a 2El NiCK4 $1 2fue agregado a la shit list.
}
alias del.n {
  write -dl shits-xd.txt $1
  echo -a 2 El NiCK4 $1 2fue elminado de la shit list.
}
alias shitlist {
  var %s = 1
  while (%s <= $lines(shits-xd.txt)) {
    if ($1 == $null) {
      echo -a 1 $+ $read(shits-xd.txt,%s)
    }
    inc %s
  }
}
ON *:JOIN:#: {
  var %n = 1
  while (%n <= $lines(shits-xd.txt)) {
    if ($nick isin $read(shits-xd.txt,%n)) {
      mode $chan +b $address($nick,2)
      kick $chan $nick ban automático.
    }
    inc %n
  }
}