blacklist

on *:TEXT:!gban*:#:{
  if ($address($nick,2) == ($address($me,2)) && ($address($2,2) { 
    writeini gban.ini gban $address($2,2) 
    amsg [AMSG] i have globally blacklisted $2 from all channels i have access in. Reason: $iif($3-,$3-,none) $+ .
  }
}
on *:TEXT:!delgban*:#: {
  if ($address($nick,2) == ($address($me,2)) { 
    remini gban.ini gban $address($2,2) 
  }
}
on *:JOIN:#:{
  if ($readini(gban.ini,gban,$address($2,2))) {
    mode $chan +b $address($nick,2)
    kick $chan $nick Blacklisted.
  }
}