alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist } 
dialog Shitlist { 
size -1 -1 295 346, flat 
title "Karaliste Badnick Addon" 
Combo 1, 1 1 240 330 
button "&Ekle", 2, 244 2 50 150 ,flat 
button "&Cikar", 3, 244 155 50 150 ,flat 
button "&Tamam", 4, 244 308 50 38, flat ok 
Check "Shitlist Ac" , 5 , 1 327 241 20, flat 
} 
on *:dialog:Shitlist:*:*: { 
if ($devent == init) { Shitlist.init } 
if ($devent == sclick) { 
if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | Shitlist.init } } 
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } } 
if ($did == 5) { 
if ($did(5).state == 1) { writeini " $+ $mircini $+ " Shitlist Shitlist on } 
if ($did(5).state == 0) { writeini " $+ $mircini $+ " Shitlist Shitlist off } 
} 
} 
} 
alias Shitlist.init { 
did -r Shitlist 1 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { did -c Shitlist 5 } 
set %ul 1 
while (%ul <= $ulist(*,0)) { 
if ($level($ulist(*,%ul)) == 10) { did -a Shitlist 1 $ulist(*,%ul) } 
inc %ul 1 
} 
unset %ul 
} 
#karaliste on 
on 10:join:#: { 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
} 
} 
} 
#karaliste end 
#karaliste on 
on 10:part:#: { 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
mode # +b $nick | kick # $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
} 
} 
} 
#karaliste end 
#karaliste on 
on 10:nick: { 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
mode # +b $nick | kick $chan $newnick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
} 
} 
} 
#karaliste on 
on 10:text:*:#: { 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
} 
} 
} 
#karaliste end 
#karaliste on 
on 10:notice:*:#: { 
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
mode # +b $nick | kick $chan $nick 5 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4)
} 
} 
} 
#karaliste end 
menu nicklist { 
.- 
Karalist-Badnick 
.- 
.Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste4/12Badnick4/12Inviter10 Sebebinden Dolayı Yasaklanmıştır... 
.Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı... 
.At:/mode # +b $$1 | /kick # $$1 10 $+ 4( # Kanalına Girişin Kötü Nick Sebebiyle Yasaklanmıştır. [ $date & $time ] 4) 
} 
menu channel,menubar { 
.- 
Karalist-Badnick 
.- 
.Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı... 
.Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı... 
.Düzenle:/shitlist | /echo -a 10 $+ $me 4Karaliste Açıldı 
}