rendered paste body[script]by Ace
n0=on @*:JOIN:#: { if ($read(blacklist.txt, s, $address($nick,2))) { /set %blackl $calc(%blackl + 1) | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick Blacklisted (- $+ %blackl $+ -) [ $+ $gettok($read(blacklist.txt,$readn),3-,32) $+ ] } } alias blackconf if $dialog(blacklist) == $null dialog -m blacklist blacklist
n1=dialog blacklist {
n2= title "Blacklist"
n3= icon $scriptdir $+ black.ico,0
n4= size -1 -1 400 350
n5= button "&Poistu", 1, 20 270 70 20,ok
n6= list 2, 10 20 380 255, vsbar
n7= box Nick $chr(124) Address $chr(124) Reason, 3, 5 5 390 260
n8= text "You can remove a lammer by duble clicking his info", 8, 110 270 370 45
n9= text "Blacklist 1.05 by Jaakko Lukkari a.k.a orktes", 9, 110 300 370 45
n10= text "Lamer(s) kicked", 11, 80 316 370 45
n11= edit - $+ %blackl $+ -, 10, 15 315 60 20,read center
n12=
n13=
n14=}
n15=alias blacksetup if $dialog(blacklist) == $null dialog -m blacklist blacklist
n16=on *:dialog:blacklist:dclick:2:{ /set %blackrivi $did(2).sel | /set %blackteksti $gettok($did(2).seltext,2,32) | did -d blacklist 2 $did(2).sel 1 | echo -a $timestamp $+ %blackteksti $+ is now removed from Blacklist | write -dl $+ %blackrivi blacklist.txt }
n17=on *:dialog:blacklist:init:*:{
n18=
n19= var %i = 1
n20= while (%i <= $lines(blacklist.txt)) {
n21= did -a blacklist 2 $gettok($read(blacklist.txt,%i),2,32) $chr(124) $gettok($read(blacklist.txt,%i),1,32) $chr(124) $gettok($read(blacklist.txt,$readn),3,32)
n22=
n23= inc %i
n24= }
n25=}
n26=menu nicklist {
n27= $iif($$1 = $me,$style(2)) &-Blacklist-
n28= .Add $$1:{ if (!$read(blacklist.txt, s, $$1)) { $iif(%blackl,inc %blackl,set %blackl 1) | write blacklist.txt $address($$1,2) $$1 $?="Reason?" | echo -a $timestamp $address($$1,2) is now on blacklist! (- $+ %blackl $+ -) | mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 Blacklisted (- $+ %blackl $+ -) } | else { $timestamp echo -a $$1 is allready on BlackList } }
n29= .Blacklist manager:blacksetup
n30=}
n31=menu channel {
n32= Blacklist
n33= .Blacklist manager:blacksetup
n34=}