IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershelldamlasu
bizimkiler sihirlisohbet sohbetelit


Like Tree1Beğeni(ler)
  • 1 Post By immortaL
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Mart 2017, 19:45   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
IP Koruması


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:{ if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy } if (!$hget(muafn)) { .hmake muafn | .hload .hload muafn.mercy muafn.mercy } } alias ips { if !$dialog(ips) { .dialog -ms ips ips } } dialog ips { title "IP Koruması" size -1 -1 159 191 option dbu list 1, 6 13 64 74, size text " IP'ler", 2, 24 5 20 7 text " Muaf Nick'ler", 3, 102 5 36 8 list 4, 88 13 64 74, size edit "", 5, 6 91 64 14 button "IP Ekle", 6, 15 107 45 12 edit "", 7, 88 91 64 14 button "Muaf Nick Ekle", 8, 97 107 45 12 text " İşlemler", 9, 63 124 32 8 button "Partall", 10, 7 135 35 15 button "Gline", 11, 81 135 35 15 button "Shun", 12, 44 135 35 15 button "Ban Kick", 13, 118 135 35 15 text " Silmek istediginiz IP'i yada Nick'i üstüne cift tıklayarak Silebilirsiniz.", 14, -2 156 165 8 button "KAPAT", 15, 47 167 65 15 box "", 16, 2 -1 72 124 box "", 17, 84 -1 72 124 box "", 18, 4 129 152 25 box "", 19, 44 162 71 23 } on *:dialog:ips:*:*: { if $devent == init { var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips } var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn } } if $devent == sclick { if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) } } if $did == 8 { if $did(7) { if #* iswm $did(7) || *.* iswm $did(7) { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) } } if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } } if $did == 12 { if %:nick { .shun %:nick - Sebep | unset %:nick | unset %:ipp } } if $did == 11 { if %:ipp { gline $+(*@,%:ipp) - Sebep | unset %:ipp | unset %:nick } } if $did == 13 { if %:nick { var %:com = 1 | while %:com &lt;= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sebep | inc %:com } unset %:nick | unset %:ipp } } if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname } } if $devent == dclick { if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel } if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel } } } on *:snotice:*Client connecting on port*:{ if $hget(muafn,$9) { return } var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .ips | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | break } | inc %:ip } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start:{ if (!$hget(ips)) { .hmake ips | .hload ips ips.mercy } if (!$hget(muafn)) { .hmake muafn | .hload .hload muafn.mercy muafn.mercy } } alias ips { if !$dialog(ips) { .dialog -ms ips ips } } dialog ips { title "IP Koruması" size -1 -1 159 191 option dbu list 1, 6 13 64 74, size text " IP'ler", 2, 24 5 20 7 text " Muaf Nick'ler", 3, 102 5 36 8 list 4, 88 13 64 74, size edit "", 5, 6 91 64 14 button "IP Ekle", 6, 15 107 45 12 edit "", 7, 88 91 64 14 button "Muaf Nick Ekle", 8, 97 107 45 12 text " İşlemler", 9, 63 124 32 8 button "Partall", 10, 7 135 35 15 button "Gline", 11, 81 135 35 15 button "Shun", 12, 44 135 35 15 button "Ban Kick", 13, 118 135 35 15 text " Silmek istediginiz IP'i yada Nick'i üstüne cift tıklayarak Silebilirsiniz.", 14, -2 156 165 8 button "KAPAT", 15, 47 167 65 15 box "", 16, 2 -1 72 124 box "", 17, 84 -1 72 124 box "", 18, 4 129 152 25 box "", 19, 44 162 71 23 } on *:dialog:ips:*:*: { if $devent == init { var %:ips = 1 | while %:ips <= $hget(ips,0).item { .did -a $dname 1 $hget(ips,%:ips).item | inc %:ips } var %:muafn = 1 | while %:muafn <= $hget(muafn,0).item { .did -a $dname 4 $hget(muafn,%:muafn).item | inc %:muafn } } if $devent == sclick { if $did == 6 { if (*.* iswm $did(5)) { if $hget(ips,$did(5)) { return } | if !$hget(ips) { .hmake ips 100 | .write ips.mercy | return } | .hadd -ms ips $did(5) $rand(10,999) | .hsave -o ips ips.mercy | did -a $dname 1 $did(5) } } if $did == 8 { if $did(7) { if #* iswm $did(7) || *.* iswm $did(7) { return } | if !$hget(muafn) { .hmake muafn 100 | .write muafn.mercy | return } | if $hget(muafn,$did(7)) { return } | .hadd -ms muafn $did(7) $rand(10,9999) | .hsave muafn muafn.mercy | .did -a $dname 4 $did(7) } } if $did == 10 { if %:nick { .sajoin %:nick #0,0 | unset %:nick | unset %:ipp } } if $did == 12 { if %:nick { .shun %:nick - Sebep | unset %:nick | unset %:ipp } } if $did == 11 { if %:ipp { gline $+(*@,%:ipp) - Sebep | unset %:ipp | unset %:nick } } if $did == 13 { if %:nick { var %:com = 1 | while %:com &lt;= $comchan(%:nick,0) { ban -k $comchan(%:nick,%:com) %:nick Sebep | inc %:com } unset %:nick | unset %:ipp } } if $did == 15 { unset %:nick | unset %:ipp | .dialog -c $dname } } if $devent == dclick { if $did == 1 { .hdel ips $hfind(ips,$did(1).seltext,1,W).item | .hsave -o ips ips.mercy | .hload ips ips.mercy | .did -d $dname 1 $did(1).sel } if $did == 4 { .hdel muafn $hfind(muafn,$did(4).seltext,1,W).item | .hsave -o muafn muafn.mercy | .hload muafn muafn.mercy | .did -d $dname 4 $did(4).sel } } } on *:snotice:*Client connecting on port*:{ if $hget(muafn,$9) { return } var %:ip = 1 | while %:ip <= $hget(ips,0).item { if $+($hget(ips,%:ip).item,*) iswm $token($token($10,2,64),1,41) { .ips | set %:nick $9 | set %:ipp $token($token($10,2,64),1,41) | break } | inc %:ip } }

KaCaK bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
ip;diyalog, koruması
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık