Untitled

on *:TEXT:!bl *:#:{
  if ($read(admins.txt,w,$nick)) { 
    if ($left($2,1) == #) {
      write blchan.txt $2 $3-
      amsg 10[04Blacklist10]: I am globally banning04 $2 10in all channels I am (04@10)Op or (07%10)Halfop in. $iif($3,Reason:04 $3-,$null)
      var %x 1 | while ($chan(%x)) { if ($me isop $chan || $me ishop $chan) { mode $chan(%x) +b ~c: $+ $2 $+ !*@* } | inc %x }
    }
    if ($left($2,1) isalpha) {
      write blnick.txt $2 $3-
      amsg 10[04Blacklist10]: I am globally banning04 $2 10in all channels I am (04@10)Op or (07%10)Halfop in. $iif($3,Reason:04 $3-,$null)
      var %x 1 | while ($chan(%x)) { if ($me isop $chan || $me ishop $chan) { mode $chan(%x) +b ~q: $+ $2 $+ !*@* } | inc %x }
    }
    else { notice $nick 10You must enter a valid channel or nickname. }
  }
  else { notice $nick 10You need to be an admin of04 Tucan10 to use this command. }
}

on *:TEXT:!unbl *:#:{
  if ($read(admins.txt,w,$nick)) { 
    if ($left($2,1) == #) {
      write -ds $+ $2 blchan.txt
      amsg 10[04Blacklist10]: I am globally unbanning04 $2 10in all channels I am (04@10)Op or (07%10)Halfop in.
      var %x 1 | while ($chan(%x)) { if ($me isop $chan || $me ishop $chan) { mode $chan(%x) -b ~c: $+ $2 $+ !*@* } | inc %x }
    }
    if ($left($2,1) isalpha) {
      write -ds $+ $2 blnick.txt
      amsg 10[04Blacklist10]: I am globally unbanning04 $2 10in all channels I am (04@10)Op or (07%10)Halfop in.
      var %x 1 | while ($chan(%x)) { if ($me isop $chan || $me ishop $chan) { mode $chan(%x) -b ~q: $+ $2 $+ !*@* } | inc %x }
    }
    else { notice $nick 10You must enter a valid channel or nickname. }
  }
  else { notice $nick 10You need to be an admin of04 Tucan10 to use this command. }
}