Çevrimdışı

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

 

Çevrimdışı

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...

 

Çevrimdışı

Ferudun Bu Seferde Badnickleri Banlıyor Kicklemiyor.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ya valleyi neden Kicklemiyor Bir Anlayabilsem.

 

Çevrimdışı

ban -ku300 $chan $nick 2

Bende codede şurda -ku300 yazmıyordu o ne anlama gelior belki onunla ilgili bişi olabilir.

 

Çevrimdışı

LaGoodLife Nickli Üyeden Alıntı

ban -ku300 $chan $nick 2 Bende codede şurda -ku300 yazmıyordu o ne anlama gelior belki onunla ilgili bişi olabilir.

ban -ku300 demek "hem banla hem kickle ve 300 saniye (5 dk) sonra aç" demek. Ama eğer kicklemiyorsa hemen o kodun altına;
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.

 

Çevrimdışı

Ferudun Saol. Valleyi Çok Zahmet Verdim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Önemli değil.
Olduysa ne mutlu, çalışıyor mu şu an ?

 

Çevrimdışı

Ferudun Bu Seferde Sebep Görünmüyor Sebep Yaziyorum Nick Yazior Sadece Bu Konu Giderek Sarpa Sarmaya Basladi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sebebte Sadece kullandıgım nick yazior mesela Nickim Efsane diyelim Parantez içinde (efsane) yazior

 

Çevrimdışı

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

 

Çevrimdışı

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.