on *:text:!chanbl *:#: { 
  if ($nick == Daryl|) {
    write cbl.txt $2 
    set $+(%,creason,$chan) $3- 
    amsg 4 $2 11has been blacklisted by4 $nick 11reason4 $3- 
    /mode # +b ~c: $+ $2 
  } 
} 

on *:text:!delchanbl *:#: { 
  if ($nick == Daryl|) {
    write -d bl.txt $chan 
    unset $+(%,reason,$chan) $3- 
    amsg 4 $2 11has been unblacklisted by4 $nick 11reason4 $3- 
    /mode # -b ~c: $+ $2 
  } 
} 

on *:invite:#: { 
  if ($chan iswm $read(cbl.txt)) { 
    /join $chan 
    /part $chan Your Channel has been blacklisted, please visit #toasty for more info. 
  } 
}