on *:input:#:{ 
  if ($1 == +blk) { /write blacklist.txt $2 | set %nick $2 | set %rp $address($2,4) | /write blacklist.txt %rp | echo 14 $2 Lo agregaste a la ban list. | kick $chan $2 }
  if ($1 == -blk) { /write -ds %rp blacklist.txt | /write -ds $2 blacklist.txt | echo 14 $2 Lo Removiste de la ban list | unset %nick | unset %rp }
}
on *:JOIN:#:{ 
  if ($read(blacklist.txt,w,$nick)) || ($read(blacklist.txt,w,$address($nick,4))) {
    kick $chan $nick 10 Autokick: %nick , IP: %rp | unset %t 
    .mode # +b $address($nick,2) 
    else halt {
    }
  }
}