By_ATMACA | 12 Mayıs 2012 15:07 | Badnick Korumasina Ek Kod:
lias Bads { dialog -m Bads Bads }
#shitlizt on
on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#:{
if ($nick != $me) {
qline $nick 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.
if (%banx == !) { /qline # $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız. | /qline $$1 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız.) }
}
}
#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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 13, 20 80 120 20
radio "4: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 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: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 18, 20 180 120 20
radio "9: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 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 { /qline $$1 1Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 4 Lütfen 1/nick 4YeniNick yapınız. | halt }
#blacklist on
on +@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:join:#: { badnick $nick }
#blacklist end
on *:dialog:Bads:*:*:{
dll dll/mdx.dll SetMircVersion $version | dll dll/mdx.dll MarkDialog $dname
dll dll/mdx.dll SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,26,25,27,28, 12 700 Tahoma
dll dll/mdx.dll SetFont +b 3,26,27 700 Tahoma
} Ben SoyLe Bir Badnick Korumasi KuLLaniorum Buna Ek oLarak
Ben Kanallda oP oLmasam Dahi Devreye Girmesini istiyorum.
KanaLa Girdigimde KanaLi tarayip KaraListemddekiLere qLine atmak istiyorum.
Birde KanaLda Nick Degistirip Badnick oLan kısıLerın Karalistemde ise qline atmak isyorum |