Something

on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) { 
    if ($read(Blacklist1.txt,w,$nick)) { 
      set %rd $readn 
      echo -t $chan /!\ Blacklist match: Nick: $nick Address: $Address($nick,2) Match: $ifmatch 
      Ban -ku30099999 $chan $nick 2 [ Blacklisted ] Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $+ . » %kickcounter « 
      halt 
    } 
    if ($read(Blacklist.txt,w,$address($nick,2))) { 
      set %rd $readn 
      echo -t $chan /!\ Blacklist match: Nick: $nick Address: $Address($nick,2) Match: $ifmatch 
      Ban -ku3009999 $chan $nick 2 [ Blacklisted ] Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $+ . » %kickcounter « 
      halt 
    } 
  } 
} 

alias bl { 
  if ($2) { 
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1) 
    if ($1 ison $active) { set %Address. [ $+ [ $1 ] ] $address($1,2)) } 
    write BlackListReason.txt $2- 
    echo -ta [ Blacklist ] Successfully written $1 to blacklist. Reason: $2- $+ . 
    if ($1 ison $active) { Ban -ku600 $active $1 2 [ Blacklisted ] Reason: $iif($2,$2-,Unspecified) $+ . » %kickcounter « } 
    halt 
  } 
  write BlackList.txt $iif($1 ison $active,$address($1,2),$1) 
  write BlackListReason.txt Null 
  echo -ta [ Blacklist ] Successfully written $1 to blacklist. No reason specified. 
  if ($1 ison $active) { Ban -ku600 $active $1 2 [ Blacklisted ] Reason: $iif($2,$2-,Unspecified) $+ . » %kickcounter « } 
} 

alias bldel { 
  if (!$1) { echo -ta [ Blacklist ] Error: Invalid syntax. Use: /bldel <Address/Nick>. | halt } 
  if ($read(Blacklist.txt,w,$address($1,2))) { 
    echo -ta [ Blacklist ] $1 was found on the blacklist on line $readn $+ . Match: $read(BlackList.txt,$readn) $+ . 
    echo -ta [ Blacklist ] Blacklist reason: $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn)) 
    echo -ta [ Blacklist ] To delete: /yes 
    set %B $readn 
    halt 
  } 
  if ($read(Blacklist.txt,w,$1)) { 
    echo -ta [ Blacklist ] $1 was found on the blacklist on line $readn $+ . Match: $read(BlackList.txt,$readn) $+ . 
    echo -ta [ Blacklist ] Blacklist reason: $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn)) 
    echo -ta [ Blacklist ] To delete: /yes. To stop: /no. 
    set %B $readn 
    halt 
  } 
  if ($read(Blacklist.txt,w,%Address. [ $+ [ $1 ] ])) { 
    echo -ta [ Blacklist ] $1 was found on the blacklist on line $readn $+ . Match: $read(BlackList.txt,$readn) $+ . 
    echo -ta [ Blacklist ] Blacklist reason: $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn)) 
    echo -ta [ Blacklist ] To delete: /yes. To stop: /no. 
    set %B $readn 
    halt 
  } 
  echo -ta [ Blacklist ] Sorry: $1 was not found on the blacklist. 
} 

alias yes { 
  if (%B) { 
    set -u600 %r $read(BlackList.txt,%B) 
    set -u600 %rr $read(BlackListReason.txt,%B) 
    echo -ta [ Blacklist ] Deleting: $read(BlackList.txt,%B) With reason: $iif($read(BlackListReason.txt,%B) == Null,Unspecified,$read(BlackListReason.txt,%B)) from the blacklist. 
    write -dl [ $+ [ %B ] ] BlackList.txt 
    write -dl [ $+ [ %B ] ] BlackListReason.txt 
    unset %B 
    halt 
  } 
  echo -ta [ Blacklist ] Error: No blacklist set to delete. Try /bldel <Address/Nick>. 
} 

alias no { 
  echo -ta [ Blacklist ] Cancelled: $read(BlackList.txt,%B) Will not be deleted from the blacklist. 
  unset %B 
} 

alias rebl { 
  if (%r) { 
    write BlackList.txt %r 
    write BlackListReason.txt %rr 
    echo -ta [ Blacklist ] Successfully re-written %rbl to blacklist. Reason: $iif(%rblr == Null,Unspecified,%rblr) $+ . 
    unset %r 
    unset %rr 
    halt 
  } 
  echo -ta [ Blacklist ] Error: No user was recently un-blacklisted. 
} 

alias bllist { 
  echo -ta [ Blacklist ] Blacklisted user list [ $+ $lines(BlackList.txt) $+ / $+ $lines(BlackListReason.txt) $+ ]: 
  set %bllines $lines(BlackList.txt) 
  while (%bllines >= 1) { 
    $iif(%bllines == 1,set %blist %blist $read(BlackList.txt,%bllines) $+ $chr(46) $+ ,set %blist %blist $read(BlackList.txt,%bllines) $+ $chr(44) $+ ) 
    if ($numtok(%blist,32) == 30) { echo -ta %blist | unset %blist } 
    dec %bllines 
  } 
  echo -ta %blist 
  unset %bl* 
} 

alias info { 
  echo -ta [ Blacklist ] Blacklists found: [ $+ $lines(BlackList.txt) $+ / $+ $lines(BlackListReason.txt) $+ ]. 
  echo -ta [ Blacklist ] Commands: /Bl <Address/Nick>, /Bldel <Address/Nick>, /Yes, /No, /rebl. 
} 

on *:KICK:#: { 
  if ($nick == $me) { 
    inc %kickcounter 
  } 
}