| goKhaN` | 25 Kasım 2007 19:36 |
Bad Nick / Düşman Menü
SoyLe bir Kod buLdum biLmiyorum Varmi yokmu Ben arama Yaptim Ama buLamadım. Varsada Yetkılı Arkdaslar Konuyu Silebilr. Benim Hosuma gıttı Calisisiyorda. Kolay gelsin..
Kod:
alias Bads { dialog -m Bads Bads }
#shitlizt on
on @666:join:#:{
if ($nick != $me) {
kick # $nick %shitkickmsg
if (%banx == !) { /mode # +b $$1 | /kick # $$1,%mazk) }
}
}
#shitlizt end
dialog Bads {
title "[ Bad Nick / Düşman Menü ]"
size -1 -1 385 340
button "&Kapat", 1, 323 198 58 30,ok
list 2, 165 20 210 135, sort
box "Düşman Listen", 3, 160 5 220 145
edit "", 4, 165 165 210 20, autohs
box "Eklenecek Nicki Yazınız", 5, 160 150 220 45
button "E&kLe", 6, 160 200 50 20
box "Note:", 7, 160 225 220 35
text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45
box "Ban Seçin", 9, 5 5 150 225
radio " 0: *!user@host", 10, 20 20 120 20
radio "1: *!*user@host", 11, 20 40 120 20
radio "2: *!*@host", 12, 20 60 120 20
radio "3: *!*user@*.host", 13, 20 80 120 20
radio "4: *!*@*.host", 14, 20 100 120 20
radio "5: nick!user@host", 15, 20 120 120 20
radio "6: nick!*user@host", 16, 20 140 120 20
radio "7: nick!*@host", 17, 20 160 120 20
radio "8: nick!*user@*.host", 18, 20 180 120 20
radio "9: nick!*@*.host", 19, 20 200 120 20
box "Giriş Yaptığında:", 20, 5 235 150 75
check "Sadece Kick", 21, 20 255 100 20
check "Kick+Ban", 22, 20 275 100 20
button "De&fault", 23, 215 200 50 20
button "&Özellik", 24, 270 200 50 20
edit "", 26, 165 280 210 20, autohs
box "Kick Mesajınız", 25, 160 265 220 45
button "Düşman Listesi Açık", 27, 5 315 180 20
button "Düşman Listesi Kapalı", 28, 200 315 180 20
}
alias shitdefmsg { return 4Bad Nick / Düşman Listemdesin.! }
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren İstenmeyen Kişiler Kick Sebebiyle Birlikte Kanaldan Atılır.
on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel }
on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } }
on *:dialog:Bads:sclick:10:{ set %mazk 0 }
on *:dialog:Bads:sclick:11:{ set %mazk 1 }
on *:dialog:Bads:sclick:12:{ set %mazk 2 }
on *:dialog:Bads:sclick:13:{ set %mazk 3 }
on *:dialog:Bads:sclick:14:{ set %mazk 4 }
on *:dialog:Bads:sclick:15:{ set %mazk 5 }
on *:dialog:Bads:sclick:16:{ set %mazk 6 }
on *:dialog:Bads:sclick:17:{ set %mazk 7 }
on *:dialog:Bads:sclick:18:{ set %mazk 8 }
on *:dialog:Bads:sclick:19:{ set %mazk 9 }
on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22 } | else { set %banx ! | did -c Bads 22 } }
on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } }
on *:dialog:Bads:sclick:23:{
set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22
did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21
}
on *:dialog:Bads:sclick:24:{ s_about_s }
on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) }
on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 }
on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 }
on *:dialog:Bads:init:*:{
if ($group(#shitlizt) == off) { did -b Bads 21,22 }
if (%mazk == 0) { did -c Bads 10 }
if (%mazk == 1) { did -c Bads 11 }
if (%mazk == 2) { did -c Bads 12 }
if (%mazk == 3) { did -c Bads 13 }
if (%mazk == 4) { did -c Bads 14 }
if (%mazk == 5) { did -c Bads 15 }
if (%mazk == 6) { did -c Bads 16 }
if (%mazk == 7) { did -c Bads 17 }
if (%mazk == 8) { did -c Bads 18 }
if (%mazk == 9) { did -c Bads 19 }
if (%banx == $null) { did -c Bads 21 }
if (%banx == !) { did -c Bads 22 }
did -a Bads 26 %shitkickmsg
if ($ulist(*,666,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,666,0)) {
inc %cnt.shit 1
did -a Bads 2 $ulist(*,666,%cnt.shit)
}
unset %cnt.shit
}
}
alias badnick { /mode # +b $$1 | /kick # $$1 14ßad Nick Enfocer 4ßan 14Detected 4[60 Secs] | halt }
#blacklist on
on +@karaliste:join:#: { badnick $nick }
#blacklist end
Not: Cod3r'i Kımdır biLmiyorum..
|
