IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Ağustos 2005, 17:34   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Code Yardimi Pleaze




Bendeki Badnick Korumasina Şöyle Birkaç Özellik Eklemek istiyorum tabi mümkünse.
Badnick Sebebim Şu Şekilde:

[ Bad Nick Kullandıgınız Tespit Edildi Banlandınız ]

bunu Şu ŞEkilde Yapabilmemiz Mümkünmü:Örneğin Adamın nicki Camdayim

[ Bad Nick Kullandıgınız Tespit Edildi Nickiniz:Camdayim Banlandınız ]

Bu birinci Sorumdu 2. Sorum ise

Badnick korumasının Attıgı Banları 5 Dakika Sonra Otomatik Açabilirmi.

Bu Sorunlarima Çözüm Bulabilirseniz Sevinirim :o
Bendeki Badnick Korumasina Şöyle Birkaç Özellik Eklemek istiyorum tabi mümkünse.
Badnick Sebebim Şu Şekilde:

[ Bad Nick Kullandıgınız Tespit Edildi Banlandınız ]

bunu Şu ŞEkilde Yapabilmemiz Mümkünmü:Örneğin Adamın nicki Camdayim

[ Bad Nick Kullandıgınız Tespit Edildi Nickiniz:Camdayim Banlandınız ]

Bu birinci Sorumdu 2. Sorum ise

Badnick korumasının Attıgı Banları 5 Dakika Sonra Otomatik Açabilirmi.

Bu Sorunlarima Çözüm Bulabilirseniz Sevinirim :o
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 24 Ağustos 2005, 17:36   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Kodunu bi yazsanda ona eklesek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 17:40   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Ferudun Codeler Bu


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 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 } }


 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 17:54   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

Şöyle bi dene, olmuştur umarım.


Konu Hercules tarafından (25 Ağustos 2005 Saat 00:30 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 17:57   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Çok Tesekkurler Ferudun Ayrica % dakika Sonra acir degilmi Banlari onuda ayarlamissindir isallah?

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 18:08   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Ferudun Dostum Bana Kızma Ama Badnickleri Atmıyor Statustede Şöyle Bir yazı ile Karşılaştım.

-
* /ban: Geçersiz parametre (Satır 42, code.txt)
-

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 18:09   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Ferudun Dostum şimdi olay Sebebe 4Nick1:12 $$1 ! bunu eklemekmi?

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 18:11   #8
goXXip
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



LaGoodLife Nickli Üyeden Alıntı
Ferudun Codeler Bu


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 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 kodu bir yerden hatırlıyorum ama
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 18:19   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



goXXip banada bu kodu bir arkadaş yollamıştı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 24 Ağustos 2005, 18:51   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



yaw sunun tamamını verinde bende yükleyim lazım bana
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bunu aynen attım remoteye hata verdi

 
Alıntı ile Cevapla

Cevapla

Etiketler
code, mirc, mirc download, mirc indir, pleaze, yardimi


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Silah Yardimi Zen Tarih 0 25 Mayıs 2014 18:16
Telnet yardimi. LieS Unreal IRCd 3 14 Ağustos 2013 21:31
KOD Yardimi MesqeN Eggdrop, NeoStats, BNC 12 05 Şubat 2012 01:14
Bot Yardimi Deniz mIRC Scripting Sorunları 1 08 Kasım 2005 18:29
Kod Yardimi pLease LaGoodLife mIRC Scripting Sorunları 2 23 Ağustos 2005 21:09