- Kod:
alias Bads { dialog -m Bads Bads }<BR>#shitlizt on<BR>on @666:join:#:{<BR>if ($nick != $me) { <BR>kick # $nick %shitkickmsg <BR>if (%banx == !) { mode # +b $address($nick,%mazk) }<BR>} <BR>}<BR>#shitlizt end<BR>dialog Bads {<BR>title "[ Bad Nick / Düşman Menü ]"<BR>size -1 -1 385 340 <BR>button "&Kapat", 1, 323 198 58 30,ok<BR>list 2, 165 20 210 135, sort <BR>box "Düşman Listen", 3, 160 5 220 145 <BR>edit "", 4, 165 165 210 20, autohs<BR>box "Eklenecek Nicki Yazınız", 5, 160 150 220 45<BR>button "E&kLe", 6, 160 200 50 20<BR>box "Note:", 7, 160 225 220 35<BR>text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45 <BR>box "Ban Seçin", 9, 5 5 150 225<BR>radio " 0: *!user@host", 10, 20 20 120 20<BR>radio "1: *!*user@host", 11, 20 40 120 20<BR>radio "2: *!*@host", 12, 20 60 120 20<BR>radio "3: *!*user@*.host", 13, 20 80 120 20<BR>radio "4: *!*@*.host", 14, 20 100 120 20<BR>radio "5: nick!user@host", 15, 20 120 120 20<BR>radio "6: nick!*user@host", 16, 20 140 120 20<BR>radio "7: nick!*@host", 17, 20 160 120 20<BR>radio "8: nick!*user@*.host", 18, 20 180 120 20<BR>radio "9: nick!*@*.host", 19, 20 200 120 20<BR>box "Giriş Yaptığında:", 20, 5 235 150 75<BR>check "Sadece Kick", 21, 20 255 100 20 <BR>check "Kick+Ban", 22, 20 275 100 20 <BR>button "De&fault", 23, 215 200 50 20<BR>button "&Özellik", 24, 270 200 50 20<BR>edit "", 26, 165 280 210 20, autohs<BR>box "Kick Mesajınız", 25, 160 265 220 45<BR>button "Düşman Listesi Açık", 27, 5 315 180 20<BR>button "Düşman Listesi Kapalı", 28, 200 315 180 20<BR>}<BR>alias shitdefmsg { return 4Bad Nick / Düşman Listemdesin.! }<BR>alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads<BR>alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren İstenmeyen Kişiler Kick Sebebiyle Birlikte Kanaldan Atılır.<BR>on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel }<BR>on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } }<BR>on *:dialog:Bads:sclick:10:{ set %mazk 0 }<BR>on *:dialog:Bads:sclick:11:{ set %mazk 1 }<BR>on *:dialog:Bads:sclick:12:{ set %mazk 2 }<BR>on *:dialog:Bads:sclick:13:{ set %mazk 3 }<BR>on *:dialog:Bads:sclick:14:{ set %mazk 4 }<BR>on *:dialog:Bads:sclick:15:{ set %mazk 5 }<BR>on *:dialog:Bads:sclick:16:{ set %mazk 6 }<BR>on *:dialog:Bads:sclick:17:{ set %mazk 7 }<BR>on *:dialog:Bads:sclick:18:{ set %mazk 8 }<BR>on *:dialog:Bads:sclick:19:{ set %mazk 9 }<BR>on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22 } | else { set %banx ! | did -c Bads 22 } }<BR>on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } }<BR>on *:dialog:Bads:sclick:23:{ <BR>set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22 <BR>did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21<BR>}<BR>on *:dialog:Bads:sclick:24:{ s_about_s }<BR>on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) }<BR>on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 }<BR>on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 }<BR>on *:dialog:Bads:init:*:{ <BR>if ($group(#shitlizt) == off) { did -b Bads 21,22 }<BR>if (%mazk == 0) { did -c Bads 10 }<BR>if (%mazk == 1) { did -c Bads 11 }<BR>if (%mazk == 2) { did -c Bads 12 }<BR>if (%mazk == 3) { did -c Bads 13 }<BR>if (%mazk == 4) { did -c Bads 14 }<BR>if (%mazk == 5) { did -c Bads 15 }<BR>if (%mazk == 6) { did -c Bads 16 }<BR>if (%mazk == 7) { did -c Bads 17 }<BR>if (%mazk == 8) { did -c Bads 18 }<BR>if (%mazk == 9) { did -c Bads 19 }<BR>if (%banx == $null) { did -c Bads 21 }<BR>if (%banx == !) { did -c Bads 22 }<BR>did -a Bads 26 %shitkickmsg<BR>if ($ulist(*,666,0) != $null) { <BR>set %cnt.shit 0<BR>while (%cnt.shit < $ulist(*,666,0)) { <BR>inc %cnt.shit 1 <BR>did -a Bads 2 $ulist(*,666,%cnt.shit) <BR>} <BR>unset %cnt.shit <BR>} <BR>}
Kodu ALT+R Yapip Remoteye Koyduktan Sonra, Bad Nick Eklemek icin /bads Yazmaniz Yeterlidir.