Stuff

on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) { 
    if ($read(Blacklist.txt,w,$nick)) { 
      set %rd $readn 
      echo -t $chan /!\ Blacklist match: Nick: $nick Address: $Address($nick,2) Match: $ifmatch 
      Ban -ku300 $chan $nick 2 4,1¤14,1Y15ou 14,1H15ave 14,1B15een 14,1B15lacklisted 14,1B15y14 Will4,1¤ $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $+ . 
      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 -ku300 $chan $nick 2 4,1¤14,1Y15ou 14,1H15ave 14,1B15een 14,1B15lacklisted 14,1B15y14 Will4,1¤ $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $+ . 
      halt 
    } 
  } 
} 

alias adduser {
  if ($left($1,1) == $chr(64)) {
    if ($2) { 
      var %b = *!* [ $+ [ $1 ] ]
      write BlackList.txt %b
      write BlackListReason.txt $2-
      echo -ta [4 Blacklist ] Successfully written04 %b to blacklist. Reason:04 $$iif($2,$2-,Unspecified) $+ .
      } else {
      var %b = *!* [ $+ [ $1 ] ]
      write BlackList.txt %b
      write BlackListReason.txt Null
      echo -ta [4 Blacklist ] Successfully written04 %b to blacklist. No reason specified.
    }
  }
}

alias DelUser { 
  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 
  } 
}
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 [4 Blacklist ] Successfully written04 $1 to blacklist. Reason:04 $2- $+ .
    if ($1 ison $active) { Ban -ku600 $active $1 2 [ 4Blacklisted ] Reason:04 $iif($2,$2-,Unspecified) $+ . 12»04 %kickcounter 12« }
    halt
  }
  write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
  write BlackListReason.txt Null
  echo -ta [4 Blacklist ] Successfully written $1 to blacklist. No reason specified.
  if ($1 ison $active) { Ban -ku600 $active $1 2 [ 4Blacklisted ] Reason:04 $iif($2,$2-,Unspecified) $+ . 12»04 %kickcounter 12« }
}