Public feed
#529027
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 $chan 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 4,1¤14,1 Y 15ou 14,1 H 15ave 14,1 B 15een 14,1 B 15lacklisted 14,1 B 15y14 Will4,1¤ $iif($read(BlackListReason.txt,%q) == Null,Unspecified,$read(BlackListReason.txt,%q)) $+ .
}
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
}
on *:OP:#: { if ($opnick == $me) { BlCheck # | halt } }
on *:HELP:#: { if ($hnick == $me) { BlCheck # | halt } }
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,1 Y 15ou 14,1 H 15ave 14,1 B 15een 14,1 B 15lacklisted 14,1 B 15y14 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,1 Y 15ou 14,1 H 15ave 14,1 B 15een 14,1 B 15lacklisted 14,1 B 15y14 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 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 4,1¤14,1 Y 15ou 14,1 H 15ave 14,1 B 15een 14,1 B 15lacklisted 14,1 B 15y14 Will4,1¤ $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 4,1¤14,1 Y 15ou 14,1 H 15ave 14,1 B 15een 14,1 B 15lacklisted 14,1 B 15y14 Will4,1¤ $iif($2,$2-,Unspecified) $+ . 12»04 %kickcounter 12« }
}
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, /BlCheck #Channel, /Rebl.
}