Unnamed

on *:JOIN:#: {
  if ($chan != #kitten) && ($chan != #TheLeet) {
    if ($chan == #Bots) && ($nick == [Lisa]) halt
    if ($me !isop $chan) && ($me !ishop $chan) {
      if ($read(Blacklist.txt,w,$nick)) {
        set %rd $readn
        echo -t $chan 7/!\14 Blacklist match! Channel:07 $chan 14Nick:07 $nick 14Address:07 $Address($nick,2) 14Match:07 $ifmatch
      }
      elseif ($read(Blacklist.txt,w,$address($nick,2))) {
        set %rd $readn
        echo -t $chan 7/!\14 Blacklist match! Channel:07 $chan 14Nick:07 $nick 14Address:07 $Address($nick,2) 14Match:07 Address 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd))
      }
    }
    else {
      if ($read(Blacklist.txt,w,$nick)) {
        set %rd $readn
        if (($me !isop $chan) && ($me !ishop $chan)) || (*Q* iswmcs $chan(#).mode) echo -st 7/!\14 Blacklist match! Channel:07 $chan 14Nick:07 $nick 14Address:07 $Address($nick,2) 14Match:07 Address 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd))
        else ban -ku1800 $chan $nick 2 7[14Blacklisted7]14 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 7/!\14 Blacklist match! Channel:07 $chan 14Nick:07 $nick 14Address:07 $Address($nick,2) 14Match:07 Address 14Reason:07 $iif($read(BlackListReason.txt,%rd) == Null,Unspecified,$read(BlackListReason.txt,%rd))
        if (($me !isop $chan) && ($me !ishop $chan)) || (*Q* iswmcs $chan(#).mode) echo -st 14I cannot kick07 $nick 14from07 $chan $+ 14!
        else ban -ku1800 $chan $nick 2 7[14Blacklisted7]14 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 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. 7Reason:14 $2-
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7]14 Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
  else {
    write BlackList.txt $iif($1 ison $active,$address($1,2),$1)
    write BlackListReason.txt Null
    echo -ta 7[14Blacklist7]14 Successfully written07 $1 14to blacklist. No reason specified.
    if ($1 ison $active) {
      if (($me !isop $active) && ($me !ishop $active)) || (*Q* iswmcs $chan($active).mode) echo -st 14I cannot kick07 $1 14from07 $active $+ 14!
      else ban -ku1800 $active $1 2 7[14Blacklisted7]14 Reason:07 $iif($2,$2-,Unspecified) $kickc
    }
  }
}
alias bldel {
  if (!$1) { echo -ta 7[14Blacklist7]14 Error: Invalid syntax. Use: /bldel <Address/Nick>. | halt }
  if ($read(Blacklist.txt,w,$address($1,2))) {
    echo -ta 7[14Blacklist7]07 $1 14was found on the blacklist on line07 $readn $+ 14. Match:07 $read(BlackList.txt,$readn) $+ 14.
    echo -ta 7[14Blacklist7]14 Blacklist reason:07 $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn))
    echo -ta 7[14Blacklist7]14 To delete: 7/yes14. To stop: 7/no14.
    set %B $readn
    halt
  }
  if ($read(Blacklist.txt,w,$1)) {
    echo -ta 7[14Blacklist7]07 $1 14was found on the blacklist on line07 $readn $+ 14. Match:07 $read(BlackList.txt,$readn) $+ 14.
    echo -ta 7[14Blacklist7]14 Blacklist reason:07 $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn))
    echo -ta 7[14Blacklist7]14 To delete: 7/yes14. To stop: 7/no14.
    set %B $readn
    halt
  }
  if ($read(Blacklist.txt,w,%Address. [ $+ [ $1 ] ])) {
    echo -ta 7[14Blacklist7]07 $1 14was found on the blacklist on line07 $readn $+ 14. Match:07 $read(BlackList.txt,$readn) $+ 14.
    echo -ta 7[14Blacklist7]14 Blacklist reason:07 $iif($read(BlackListReason.txt,$readn) == Null,Unspecified,$read(BlackListReason.txt,$readn))
    echo -ta 7[14Blacklist7]14 To delete: 7/yes14. To stop: 7/no14.
    set %B $readn
    halt
  }
  echo -ta 7[14Blacklist7]14 Sorry:07 $1 14was 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 7[14Blacklist7]14 Deleting:07 $read(BlackList.txt,%B) 14With reason:07 $iif($read(BlackListReason.txt,%B) == Null,Unspecified,$read(BlackListReason.txt,%B)) 14from the blacklist.
    write -dl [ $+ [ %B ] ] BlackList.txt
    write -dl [ $+ [ %B ] ] BlackListReason.txt
    unset %B
  }
  else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias no {
  if (%B) {
    echo -ta 7[14Blacklist7]14 Cancelled:07 $read(BlackList.txt,%B) 14Will not be deleted from the blacklist.
    unset %B
  }
  else echo -ta 7[14Blacklist7]14 Error: No blacklist set to delete. Try 7/bldel <Address/Nick>14.
}
alias rebl {
  if (%r) {
    write BlackList.txt %r
    write BlackListReason.txt %rr
    echo -ta 7[14Blacklist7]14 Successfully re-written07 %rbl 14to blacklist. Reason:07 $iif(%rblr == Null,Unspecified,%rblr) $+ 14.
    unset %r %rr
  }
  else echo -ta 7[14Blacklist7]14 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 $+ .",,halt)
  echo -ta 7[14Blacklist7]14 Blacklisted user list $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14:) (Latest first)
  if ($lines(BlackList.txt) == 0) echo -ta 7[14Blacklist7]14 None.
  else {
    var %la = $lines(BlackList.txt)
    var %lc = $lines(BlackList.txt)
    while (%lc >= 1) {
      echo -ta $+(7[14,$calc((%la - %lc) + 1),7]) 7User:14 $read(BlackList.txt,%lc) 7Reason:14 $iif($read(BlackListReason.txt,%lc) == Null,Unspecified,$read(BlackListReason.txt,%lc))
      dec %lc
    }
  }
}
alias info {
  echo -ta 7[14Blacklist7]14 Blacklists found: $+(7[,14,$lines(BlackList.txt),7/14,$lines(BlackListReason.txt),7]14.)
  echo -ta 7[14Blacklist7]14 Commands: 7/Bl <Address/Nick>14, 7/Bldel <Address/Nick>14, 7/Yes14, 7/No14, 7/Rebl14, 7/Bllist14.
}
alias BlCheck {
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    var %y = 1
    while (%y <= $nick($chan(%x),0)) {
      if ($read(Blacklist.txt,w,$nick($chan(%x),%y))) || ($read(Blacklist.txt,w,$address($nick($chan(%x),%y),2))) {
        var %q = $readn
        inc %z
        echo -s 04/!\ 14Blacklist match: Channel:07 $chan(%x) 14Nick:07 $nick($chan(%x),%y) 14Match:07 $ifmatch
        if ($me !isop $chan(%x)) && ($me !ishop $chan(%x)) || (*Q* iswmcs $chan($chan(%x)).mode) || (($me ishop $chan(%x)) && ($nick($chan(%x),%y) isop $chan(%x))) $echo -s I cannot kick07 $nick($chan(%x),%y) 14from07 $chan(%x) $+ 14!
        else ban -ku300 $chan(%x) $nick($chan(%x),%y) 2 7[14Blacklisted7]14 Reason: $iif($read(BlackListReason.txt,%q) == Null,Unspecified,$read(BlackListReason.txt,%q)) $kickc
      }
      inc %y
    }
    inc %x
  }
  echo -s 14Finished checking07 $chan(0) 14 $+ $iif($chan(0) == 1,channel,channels) $+ , blacklists found:07 %z
}
alias GlobalUnban {
  if (!$1) halt
  var %x = 1, %z = 0
  while (%x <= $chan(0)) {
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) mode $chan(%x) -b $1
    inc %x
  }
  echo -s 14Globally unbanned07 $1
}
alias kickc { inc %kickcounter | return 7»14 $bytes(%kickcounter,db) 7« }