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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Mart 2011, 22:19   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Debug koruma




slm arkadaşlar bu kodu düzenleye bilirmiyiz

anlamadım atlama yapıyor cok yasak listesindekileri *ali* gibi ekliyorum

artı profosyonel yardıma ihtiyac duymaktayım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

muaf nick eklemek gerekiyor atılan banı acanı kufretmıs gıbı gorup atıyor

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sahr1 { tokenize 32 $1- set %dbg $5- set %debugkrm $remove($gettok($2,1,33),:) if $ulist(%dbg,arkadas,0) { tumban %debugkrm } if (*NICK* iswm $3-) { set %dbgn $4- if $ulist(%dbgn,arkadas,0) { tumban %dbgn } } if (*JOIN* iswm $2-) { set %dbgj $remove($gettok($2,1,33),:) if $ulist(%dbgj,arkadas,0) { tumban %dbgj } } } alias tumban { if $1 == $me || $comchan($1,1) == $null { halt } set %kanalsayisi $comchan($1,0) var %xzx = 1 while (%xzx <= %kanalsayisi) { echo -a ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj | inc %xzx } }

debug cıktıları
<- :ALone_Man_iStt!Sohbet@88.249.EFC1D372.86304199 PRIVMSG #sohbet :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ılgıncc

<- :CoK_SaPiK_F_GeLSiN!KELEBEK@95.70.3D5640E2.4376196 3 JOIN :#sohbet

<- :meLinDa!hayri@65.34.20F90DBE.9C8A4CF2 NICK :misafir

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 01 Mart 2011, 22:55   #2
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { debug -i on sahr1 } alias sahr1 { tokenize 32 $1- if ($1 != <-) { halt } if ($3 == join) { var %nick $right($gettok($2,1,33),-1),%chan $right($4,-1) if ($ulist(%nick,arkadas,0)) { tumban %nick } } if ($3 == nick) { var %nick $right($4,-1) if ($ulist(%nick,arkadas,0)) { tumban %nick } } } alias tumban { if $1 == $me || $comchan($1,1) == $null { halt } set %kanalsayisi $comchan($1,0) var %xzx = 1 while (%xzx <= %kanalsayisi) { ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj inc %xzx } }



nasil bir kod istedigini anlamadim anladigim kadariyla arkadas listende olan kisiye ban attiriyorsun galiba oyle birsey artik ben arkadas listesinde ekli olana ban atiyor olarak ayarlattim

boyle calismasi gerekdenemedim ama genede bir dene , /debug -i on sahr1 yaparsin kodu ekledigin zaman

 
Alıntı ile Cevapla

Alt 01 Mart 2011, 23:04   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




arkadas listemde bulunan nick girerse banlayacak kanalda nick değiştiğinde listedeki nicki alıyorsa gene banlanacak

+ kanalda listedeki bir nicki söyleyende banlanacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


aslında kod calıstı yarım yamalak

muaf nick eklemezsek banı acan kişiyi de atıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 01 Mart 2011, 23:13   #4
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




muaf ekleme kolay , kod calisiyormu onu denedinmi ? , bana o bilgiyi ver
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 01 Mart 2011, 23:47   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




malesef calışmadı

 
Alıntı ile Cevapla

Alt 02 Mart 2011, 00:50   #6
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { debug -i on sahr1 } alias sahr1 { tokenize 32 $1- if ($1 != <-) { halt } if ($3 == join) { var %nick $right($gettok($2,1,33),-1),%chan $right($4,-1) if ($ulist(%nick,arkadas,0)) { tumban %nick echo -a %nick Banlandi! } } if ($3 == nick) { var %nick $right($4,-1) if ($ulist(%nick,arkadas,0)) { tumban %nick echo -a %nick Banlandi! } } } alias tumban { var %xzx = 1 while (%xzx <= $chan(0)) { ban -k $chan(%xzx) $1 Yasak inc %xzx } }

Kod boyle calisiyor arkadas listesine ekledigin kanala girerse yada nick degisirse banlar baskada muaf eklencek bir sey yok arkadas listesinde ne ekliyse ona islem yapar , hayirli IF'ler.

 
Alıntı ile Cevapla

Alt 02 Mart 2011, 01:00   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




arkadas lıstem olmayanlarıda banlarmı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 02 Mart 2011, 01:07   #8
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




Alıntı:
Kod boyle calisiyor arkadas listesine ekledigin kanala girerse yada nick degisirse banlar baskada muaf eklencek bir sey yok arkadas listesinde ne ekliyse ona islem yapar , hayirli IF'ler.

bosunami yazdim yaziyi , okumak gerekir digil'mi ? bak siyah eden kısımda ne yaziyor.

 
Alıntı ile Cevapla

Alt 02 Mart 2011, 01:30   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




set teşekurler lgine öncelikle kodun ban kısmına echo -a ekleyıp kalaba bır sunucuya geremısın sıradan banlıyor kod secme yok

 
Alıntı ile Cevapla

Alt 02 Mart 2011, 11:13   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Debug koruma




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#debug off alias sahr1 { tokenize 32 $1- if (*PRIVMSG* iswm $3-) { set %debugkrm $remove($gettok($2,1,33),:) if $ulist($5-,DBG,0) { allban %debugkrm } } if (*NICK* iswm $3-) { if $ulist($4-,DBG,0) { allban $remove($gettok($4,1,33),:) } } if (*JOIN* iswm $3-) { set %debugj $remove($gettok($2,1,33),:) if $ulist(%debugj,DBG,0) { allban %debugj } } } alias allban { var %x = $comchan($1,0) var %a = 1 while %a <= %x { echo -a mode $comchan($1,%a) +b $1 echo -a mode $comchan($1,%a) +b $address($1,4) if $1 ison $comchan($1,%a) { echo -a kick $comchan($1,%a) $1 %dbgysk } inc %a } } #debug end menu * { DEBUG Koruması .Korumayı aç:enable #debug | debug -i on sahr1 .Korumayı kapat:disable #debug | debug -c off .ekle:auser DBG * $+ $$?="Yasak nick veya kelime:" $+ * .çıkart:ruser DBG * $+ $$?="Yasağı Kalkacak nick veya kelime:" $+ * .yasaklama mesajın:set %dbgysk $$?="yasaklama mesajınızı yazınız:" .Liste { var %i 1 while $ulist(*,DBG,%i) { kufur $ifmatch inc %i } } } alias kufur { if (!$window(@Yasaklist)) { window -e @Yasaklist } echo @Yasaklist $+($chr(40),$time,$chr(41),$chr(32),$1-) } on *:start: { debug -i on sahr1 }


 
Alıntı ile Cevapla

Cevapla

Etiketler
debug, koruma


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
Debug Extrem Koruma Menüsü V3.0 uFuK mIRC Scripting Hazır Kodlar 24 22 Haziran 2023 15:35
Full Debug Koruma Menüsü uFuK mIRC Scripting Hazır Kodlar 12 22 Temmuz 2014 00:27
Debug Extrem Koruma Menüsü V1.0 uFuK mIRC Scripting Hazır Kodlar 25 04 Eylül 2012 21:22
Debug window kullanarak koruma yapma MephisTo mIRC Scripting Sorunları 8 10 Mart 2005 23:29