1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
on @*:join:#: { if ($read(shitlist.txt,s,$address($nick,2))) { /set %shitl $calc(%shitl + 1) | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick $gettok($read(shitlist.txt,$readn),3-,32) ( $+ %shitl } } alias shitconf if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:op:#: if ($opnick == $me) {
var %x = 1
while ($nick($chan,%x)) {
if $gettok($read(shitlist.txt,%i),1,32)
msg $chan $nick is shitlisted
inc %x
else { msg $chan Nobody is shitlisted from $chan | halt }
}
}
dialog shitlist {
title "Shitlist control window by Jees"
icon $scriptdir $+ shit.ico,0
size -1 -1 400 350
button "&Close", 1, 20 270 70 20,ok
button "&Shitlist by Jees", 9, 100 270 130 20,read center
list 2, 10 20 380 255,vsbar
box nickname $chr(4) address $chr(4) reason, 3, 5 5 390 260
text "• To remove someone from the shitlist, double click on the nickname", 8, 15 295 370 45
text "Shitlisted users", 14, 80 315 350 45
text "Shitlisted kicks", 15, 80 330 370 45
edit $+ %shitl $+, 5, 15 314 50 15,read center
edit $+ %shitl $+, 10, 15 330 50 15,read center
}
alias shitsetup if $dialog(shitlist) == $null dialog -m shitlist shitlist
on *:dialog:shitlist:dclick:2:{ set %shitrivi $did(2).sel | set %shitaddress $gettok($did(2).seltext,2,32) | did -d shitlist 2 $did(2).sel 1 | mode $active -b %shitaddress | write -dl $+ %shitaddress shitlist.txt | dec %shitl }
on *:dialog:shitlist:init:*:{
var %i = 1
while (%i <= $lines(shitlist.txt)) {
did -a shitlist 2 $gettok($read(shitlist.txt,%i),2,32) $chr(4) $gettok($read(shitlist.txt,%i),1,32) $chr(4) $gettok($read(shitlist.txt,%i),3-,32)
inc %i
}
}
menu nicklist {
$iif($$1 = $me,$style(2)) &bl cmd
.shitlist $$1:{ if (!$read(shitlist.txt, s, $$1)) { $iif(%shitl,inc %shitl,set %shitl 1) | write shitlist.txt $address($$1,2) $$1 $?="Reason?" | mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 $gettok($read(shitlist.txt,%i),3-,32) | else { $timestamp echo -a $$1 is already shitlisted } }
.shitlist manager:shitsetup
}
.shitquick $$1:{ if (!$read(shitlist.txt,s,$$1)) { $iif(%shitl,inc %shitl,set %shitl 1) | write shitlist.txt $address($$1,2) $$1 Shitlisted because there is poo-poo on your head | mode $chan -o+b $$1 $address($$1,2) | kick $chan $$1 Shitlisted because there is poo-poo on your head ( $+ %shitl | else { $timestamp echo -a $$1 is already shitlisted } }
}
}
menu channel {
shitlist
.shitlist manager:shitsetup
}
|