[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=}