![]() |
alias kapat dialog -x $dname $dname alias lock did -b $dname $1- alias mdx { return $dll(mdx.dll,$1,$2-) } alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname } alias badnick { if -* iswm $1- { hdel badnick $hfind(badnick,$remove($1-,-),1,W).data hsave badnick badnick.data echo -a $remove($1-,-) Datası Kaldırıldı } elseif $1 == list { echo -a ----------BadNick Listeniz------------ var %i = 1 while %i <= $hget(badnick,0).item { echo -a %i $+ -) $hget(badnick,%i).data inc %i } } else { hadd badnick $r(0,999999) $1- hsave badnick badnick.data echo -a $1- Datası Eklendi... } } on *:start: { if !$findfile($mircdir,badnick.data,1) { hmake badnick 100 hsave badnick badnick.data .set %ilkacilis 1 dialog yukle yukle } else { hmake badnick hload badnick badnick.data dialog -m yukle yukle } } on 1:join:#: { if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul { if $me isop $chan { if $hfind(badnick,$nick,1,W).data { ban $chan $nick 2 kick $chan $nick 4[Badnick Kullanıyorsunuz] } } } } alias _oynat { var %i = 1 while %i <= 100 { if %i == 100 { .timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!) .timer.ac 1 2 did -e $dname 2 halt } else { .timer 1 2 did -a $dname 3 %i 0 100 inc %i } } } dialog yukle { size -1 -1 325 113 title "Dialog" text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25 button "Yükleniyor...",2,22 68 281 30, flat text "0 0 100",3,22 43 280 24 } on *:dialog:yukle:*:*:{ if $devent == init { mdxinit mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis } else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... } lock 2 $_oynat } if $devent == sclick { kapat } } Kodu aynen bu şekilde eklersen büyük ihtimalle çalışır dark mirci aç alt+r ye bas ve kodu yeni bir remoteye ekle bazen bendede oluyo böyle sorunlar boşluklardan kaynaklanıyo belki sendekide öyle bişidir. Bi deneyip bilgi verirsen yeniden bakarım |
alias kapat dialog -x $dname $dname alias lock did -b $dname $1- alias mdx { return $dll(mdx.dll,$1,$2-) } alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname } alias badnick { if -* iswm $1- { hdel badnick $hfind(badnick,$remove($1-,-),1,W).data hsave badnick badnick.data echo -a $remove($1-,-) Datası Kaldırıldı } elseif $1 == list { echo -a ----------BadNick Listeniz------------ var %i = 1 while %i <= $hget(badnick,0).item { echo -a %i $+ -) $hget(badnick,%i).data inc %i } } else { hadd badnick $r(0,999999) $1- hsave badnick badnick.data echo -a $1- Datası Eklendi... } } on *:start: { if !$findfile($mircdir,badnick.data,1) { hmake badnick 100 hsave badnick badnick.data .set %ilkacilis 1 dialog yukle yukle } else { hmake badnick hload badnick badnick.data dialog -m yukle yukle } } on 1:join:#: { if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul { if $me isop $chan { if $hfind(badnick,$nick,1,W).data { ban -ku300 $chan $nick 2 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk. } } } } alias _oynat { var %i = 1 while %i <= 100 { if %i == 100 { .timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!) .timer.ac 1 2 did -e $dname 2 halt } else { .timer 1 2 did -a $dname 3 %i 0 100 inc %i } } } dialog yukle { size -1 -1 325 113 title "Dialog" text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25 button "Yükleniyor...",2,22 68 281 30, flat text "0 0 100",3,22 43 280 24 } on *:dialog:yukle:*:*:{ if $devent == init { mdxinit mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis } else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... } lock 2 $_oynat } if $devent == sclick { kapat } } Bu şekilde bi dene bakalım... |
Ferudun Bu Seferde Badnickleri Banlıyor Kicklemiyor. :) ya valleyi neden Kicklemiyor Bir Anlayabilsem. |
ban -ku300 $chan $nick 2 Bende codede şurda -ku300 yazmıyordu o ne anlama gelior belki onunla ilgili bişi olabilir. |
Alıntı:
kick $chan $nick ekle. Yani şöyle; . . . if $hfind(badnick,$nick,1,W).data { ban -ku300 $chan $nick 2 kick $chan $nick 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk. } Kolay gelsin. |
Ferudun Saol. Valleyi Çok Zahmet Verdim :) |
Önemli değil. Olduysa ne mutlu, çalışıyor mu şu an ? |
Ferudun Bu Seferde Sebep Görünmüyor Sebep Yaziyorum Nick Yazior Sadece Bu Konu Giderek Sarpa Sarmaya Basladi :D Sebebte Sadece kullandıgım nick yazior mesela Nickim Efsane diyelim Parantez içinde (efsane) yazior |
Calisior Suan Saat Gibi Ama Sebep Göstermiyor Badnicklerin Banlarını 5 Dakka sonrada acior Ferudun su Sebep Olayınada Bi Çözüm Bulsan Tam olcak |
ban -ku300 $chan $nick 2 kick $chan $nick 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk. } Şu kısmı bul ve böyle değiştir. ban -ku300 $chan $nick 2 kick $chan $nick 12Bad nick kullanıyorsunuz! 1Nickiniz:4 $nick 2--- 7/nick YeniNick 2--- 1| 2Banlayan:4 $$1 Kolay gelsin. |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:20. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk