Anonymous

on *:JOIN:#: { 
  if ($me !isop $chan) && ($me !ishop $chan) { 
    if ($read(Blacklist.txt,w,$nick)) { 
      set %rd $readn 
      echo -t $chan /!\ Blacklist match! Channel: $chan Nick: $nick Address: $Address($nick,2) Match: $ifmatch 
    } 
    elseif ($read(Blacklist.txt,w,$address($nick,2))) { 
      set %rd $readn 
      echo -t $chan /!\ Blacklist match! Channel: $chan Nick: $nick Address: $Address($nick,2) Match: Address Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 
    } 
  } 
  else { 
    if ($read(Blacklist.txt,w,$nick)) { 
      set %rd $readn 
      echo -st /!\ Blacklist match! Channel: $chan Nick: $nick Address: $Address($nick,2) Match: Address Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 
      .Ban -ku300 $chan $nick 2 [Blacklisted] Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $kickc 
    } 
    elseif ($read(Blacklist.txt,w,$address($nick,2))) { 
      set %rd $readn 
      echo -st /!\ Blacklist match! Channel: $chan Nick: $nick Address: $Address($nick,2) Match: Address Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) 
      .Ban -ku300 $chan $nick 2 [Blacklisted] Reason: $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd)) $kickc 
    } 
  } 
} 
alias bl { 
  if ($2) { 
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1) 
    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) $kickc 
  } 
  else { 
    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) $kickc 
  } 
} 
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. To stop: /no. 
    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 
  } 
  else { 
    echo -ta [Blacklist] Error: No blacklist set to delete. Try /bldel <Address/Nick>. 
  } 
} 
alias no { 
  if (%B) { 
    echo -ta [Blacklist] Cancelled: $read(BlackList.txt,%B) Will not be deleted from the blacklist. 
    unset %B 
  } 
  else { 
    echo -ta [Blacklist] Error: No blacklist set to delete. Try /bldel <Address/Nick>. 
  } 
} 
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 { 
  if ($lines(BlackList.txt) >= 30) $iif($?!="30+ Blacklists found. Continue? $crlf $+ Doing so will echo $lines(BlackList.txt) lines into $active $+ .",,goto End) 
  echo -ta [Blacklist] Blacklisted user list $+([,,$lines(BlackList.txt),/,$lines(BlackListReason.txt),]:) (Latest first) 
  if ($lines(BlackList.txt) == 0) { echo -ta [Blacklist] None. | goto End } 
  var %la = $lines(BlackList.txt) 
  var %lc = $lines(BlackList.txt) 
  while (%lc >= 1) { 
    echo -ta $+([,$calc((%la - %lc) + 1),]) User: $read(BlackList.txt,%lc) Reason: $iif($read(BlackListReason.txt,%lc) == Null,Unspecified,$read(BlackListReason.txt,%lc)) 
    dec %lc 
  } 
  :End 
} 
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, /bllist. 
} 
alias kickc { inc %kickcounter | return » $bytes(%kickcounter,db) « }