on *:JOIN:#ThePC,#nucs,#fastpcw,#rips,#Bow: { 
  if ($me isop $chan) || ($me ishop $chan) { 
    if ($read(TehBlacklist.txt,w,$nick)) { 
      set %rd1 $readn 
      Ban -ku300 $chan $nick 2 12,14[Blacklisted] 6Reason: 7,15$iif($read(TehBlackListReason.txt,%rd1) == Null,Unspecified,$read(TehBlackListReason.txt,%rd1)) 
      halt 
    } 
    if ($read(TehBlacklist.txt,w,$address($nick,2))) { 
      set %rd1 $readn 
      Ban -ku300 $chan $nick 2 12,14[Blacklisted] 6Reason: 6 $iif($read(TehBlackListReason.txt,%rd1) == Null,Unspecified,$read(TehBlackListReason.txt,%rd1)) 
      halt 
    } 
  } 
} 

On $*:TEXT:/^[!.]Blacklist/Si:#ThePC,#ThePC.Staff,#Bow,#fastpcw,#rips,#nucs:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    if ($3) { 
      write TehBlackList.txt $iif($address($2,2),$ifmatch,$iif($2,$2))
      write TehBlackListReason.txt $3- 
      msg $chan [Blacklist] $2 written to blacklist. Reason: $3- $+ . 
      if ($2 ison $chan) { Ban -ku600 $chan $2 2 [BlackListed] Reason: $iif($3,$3-,Unspecified) $+ .  } 
    } 
    else { 
      write TehBlackList.txt $iif($2 ison $chan,$address($2,2),$2)
      write TehBlackListReason.txt Null 
      msg $chan [Blacklist] $2 written to blacklist. Reason: Unspecified 
      if ($2 ison $chan) { Ban -ku600 $chan $2 3 [BlackListed] Reason: $iif($3,$3-,Unspecified) $+ .  } 
    } 
  } 
}

On $*:TEXT:/^[!.]Blistdel/Si:#ThePC,#nucs,#Rips,#fastpcw,#ThePC.Staff,#Bow:{
  if (!$2) { notice $nick [Blacklist] Error: Invalid syntax. Use: !bldel <Address/Nick> | halt } 
  if ($read(TehBlacklist.txt,w,$address($2,2))) { 
    set %B1 $readn 
    write -dl [ $+ [ %B1 ] ] TehBlackList.txt 
    write -dl [ $+ [ %B1 ] ] TehBlackListReason.txt 
    msg $chan [Blacklist] Deleting: $read(TehBlackList.txt,%B1) Reason: $iif($read(TehBlackListReason.txt,%B1) == Null,Unspecified,$read(TehBlackListReason.txt,%B1)) from the blacklist. 
    halt 
  } 
  if ($read(TehBlacklist.txt,w,$2)) {  
    set %B1 $readn  
    write -dl [ $+ [ %B1 ] ] TehBlackList.txt 
    write -dl [ $+ [ %B1 ] ] TehBlackListReason.txt 
    msg $chan [Blacklist] Deleting: $read(TehBlackList.txt,%B1) Reason:7 $iif($read(TehBlackListReason.txt,%B1) == Null,Unspecified,$read(TehBlackListReason.txt,%B1)) from the blacklist. 
    halt
  } 
  if ($read(TehBlacklist.txt,w,%Address. [ $+ [ $2 ] ])) {  
    set %B1 $readn 
    write -dl [ $+ [ %B1 ] ] TehBlackList.txt 
    write -dl [ $+ [ %B1 ] ] TehBlackListReason.txt 
    msg $chan [Blacklist] Deleting: $read(TehBlackList.txt,%B1) Reason: $iif($read(TehBlackListReason.txt,%B1) == Null,Unspecified,$read(TehBlackListReason.txt,%B1)) from the blacklist. 
    halt 
  } 
  msg $chan [Blacklist] Sorry: $2 was not found on the blacklist. 
}