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, 22:54   #21
Ç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 $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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 25 Ağustos 2005, 00:33   #22
Ç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
}
}

Bu şekilde bi dene bakalım...

 
Alıntı ile Cevapla

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



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.

 
Alıntı ile Cevapla

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



ban -ku300 $chan $nick 2

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

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 14:15   #25
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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.

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 14:58   #26
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 15:05   #27
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 15:22   #28
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 15:43   #29
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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

 
Alıntı ile Cevapla

Alt 25 Ağustos 2005, 16:15   #30
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



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.

 
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