alias blacklist { 
  if ($address($nick,2) == $address($me,2)) { 
    write bl.txt $2 
    amsg I have just globally banned $2 Reason: $3- 
    var %a 1 | while ($chan(%a)) { if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { cs akick $chan(%a) add $$2 2 $iif($3,$3-,No reason given) (global akick) } | inc %a } 
  } 
} 
alias unblacklist { 
  if ($address($nick,2) == $address($me,2)) { 
    write -ds $2 bl.txt 
    amsg I have just globally unbanned $2 reason: $3- 
    var %a 1 | while (%chan(%a)) { if ($Me isop $chan(%a)) || ($me ishop $chan(%a)) { cs akick $chan(%a) del $$2 2 } | inc %a } 
  } 
} 
on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) { 
    if ($nick isin $read(bl.txt,w,* $+ $nick $+ *)) { 
      ban -k $chan $nick You are on my blacklist /ms send $me to get unblacklisted 
    } 
  } 
} 
alias listblacklist { 
  msg $nick Bl users : $read(bl.txt) 
}