mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Help - Yardım

Help - Yardım mIRC Scripting hakkında her konuda yardım alabileceğiniz bölümdür.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 28 Temmuz 2009, 20:43
Avatar Yok

mS Puan: 1
mS Derece: benX Meraklı
 
Üyelik tarihi: 27 Temmuz 2009
Mesajlar: 6
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Unhappy NoMercy'nin "kanal_koru"masında sorun var

Aşağıdaki nomercy'nin kanal_koru aliasında sorun var ve bir türlü ne yaptiysam düzeltemedim. Kanalda yapılan küfür/reklam/flood/vb. davranışlara tepki göstermiyor. Sorun nerde yardımlarınızı bekliyorum..

PHP- Kodu:
Channel-Guard
 
on 
*:SOCKCLOSE:NoMercy: {
  unset %*
  .
timermercyoff
  
if $hget(mesaj) {
    
hfree mesaj
  
}
}
alias joinglobals {
  var %
j 1
  
while %<= $lines(glob.txt) {
    ;
sw NoMercy SAJOIN NoMercy $read(glob.txt,%j)
    
inc %j
  
}
}
alias deopalll {
  ;
sw NoMercy os raw2 svskill $:Ayrildi
  
;var %d 1
  
;while %<= $lines(glob.txt) {
  ;
sw NoMercy MODE $read(glob.txt,%d) -$1
  
;inc %d
  
;}
}
alias maskban {
  if !
$oyunnick($botfnick($2)) {
    
sw NoMercy MODE $+~q: $+ $mask($2,1)
  }
}
alias kanal_koru {
  if !
$read(yonetimchans.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
    if !
$read(oyunchans.txt,w,%::chan) {
      if 
$len(%::text) > 30 {
        if 
$numtok(%::text,32) > {
          %::
text $gettok(%::text,1-5,32)
        }
        
inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
        if %
mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == {
          
_gzline $botfnick(%::addSaldiri/flood girisimi tespit edilmistir. [NoMercy]
          
sw NoMercy PRIVMSG #Opers :Saldiri tespit edildi: %::chan
          
sw NoMercy PRIVMSG #Opers :Saldiri texti: %::text
          
sw NoMercy PRIVMSG #Opers :60 saniye icin spam (gzline) edildi: $yildiztemizle($_dellast($strip(%::text)))
          
sw NoMercy spamfilter add cN gzline 24h Saldiri/flood girisimi tespit edilmistir. [NoMercy$yildiztemizle($_dellast($strip(%::text)))
          .
timer 1 60 sw NoMercy spamfilter del cN gzline 24h Saldiri/flood girisimi tespit edilmistir. [NoMercy$yildiztemizle($_dellast($strip(%::text)))
          return
        }
      }
    }
    if *
www.* iswm %::text || http isin %::text || *.netiswm %::text || *.comiswm %::text {
      if !
$xisop(%::chan,%::nick) {
        
killnick %::nick
        sw irobot privmsg benX 
: $1-
        return
      }
    }
    if 
$hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(sexchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%
banning. [ $+ [ %::nick ] ] {
        
inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban 
%::chan %::nick
        clearchan 
%::chan
        
;killnick %::nick
        _kick 
%::chan %::add Kanal genelinde kufur/argo icerikli cumleler kurdugunuz icin kanaldan uzaklastirildinizYakalanan kelimeniz4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data
        ;
sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde kufur/argo icerikli cumleler kurdugunuz icin 30dk sureyle konusmaniz engellendiYakalanan kelimeniz4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data
        return
      }
    }
    if 
$chr(35isin %::text && !$read(oyunchans.txt,w,%::chan) && !$read(yonetimchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%
banning. [ $+ [ %::nick ] ] {
        
inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban 
%::chan %::nick
        sw NoMercy PRIVMSG 
%::chan : $+ $+(,%::nick,) $+ ; kanal genelinde baska bir kanalin reklamını yaptiginiz icin 30 dksureyle konusmaniz engellendi.
        ; 
_kick %::chan %::add Kanal genellerinde baska kanal reklami yapmak yasaktirBu olayin tekrarlanmasi halinde yetkililer uyarilip kanaliniz kapatilabilir.
        return
      }
    }
    if ( 
isin %::text2 ||  isin %::text2 ||  isin %::text2) && !$xisop(%::chan,%::nick) {
      
inc -u60 %renklitext. [ $+ [ %::nick ] ] 1
      
if %renklitext. [ $+ [ %::nick ] ] == {
        if !%
banning. [ $+ [ %::nick ] ] {
          
inc -u10 %banning. [ $+ [ %::nick ] ] 1
          maskban 
%::chan %::nick
          sw NoMercy PRIVMSG 
%::chan : $+ $+(,%::nick,) $+ ; kanal takibini zorlastiracak derecede renkli yazdiginiz icin 30 dksureyle konusmaniz engellendi.
        }
      }
    }
    if !
$read(oyunchans.txt,w,%::chan) {
      
inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
      
if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == {
        
maskban %::chan %::nick
        sw NoMercy PRIVMSG 
%::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde flood seklinde yazmakyazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
        ;
_kick %::chan %::add Kanal genellerinde flood seklinde yazmakyazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
      }
      var %
yazi $hash($strip($_dellast(%::text)),32)
      var %
eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %
eski.yazi $deltok(%eski.yazi,1,46)
      if (%
tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
        
set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi 
        
goto hm
      
}
      var %
bugra = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %
sayac $gettok(%bugra,1,46)
      
inc %sayac
      set 
-u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
      
if (%sayac >= 3) {
        if !%
banning. [ $+ [ %::nick ] ] {
          
inc -u10 %banning. [ $+ [ %::nick ] ] 1
          maskban 
%::chan %::add
          
;sw NoMercy mode %::chan +%::nick
          sw NoMercy PRIVMSG 
%::chan : $+ $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin 30 dksureyle konusmaniz engellendi.
          ; 
_kick %::chan %::add Biz bir kereden anliyoruz ki?
        }
      }
      :
hm
    
}
  }

Aşağıdada kanal_koru aliasının bulundugu yer var sorun onun yerindemi anlamadim.. yardimlarinizi bekliyorumm.

PHP- Kodu:
      if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && benX !iswm $gettok(%::text,2,32) && benX !iswm $gettok(%::text,2,32) && xkartaLx* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32) {
        if 
$gettok(%::text,1,32) == !{
          if 
$gettok(%::text,2-,32) {
            
sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
          }
          else {
            
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if 
$gettok(%::text,1,32) == !kb {
          if 
$gettok(%::text,2-,32) {
            
sw $sockname MODE %::chan +b $gettok(%::text,2,32)
            
sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
          }
          else {
            
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if 
$gettok(%::text,1,32) == !voice {
          if 
$gettok(%::text,2-,32) {
            
sw $sockname MODE %::chan $+(+,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
          }
          else {
            
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if 
$gettok(%::text,1,32) == !devoice {
          if 
$gettok(%::text,2-,32) {
            
sw $sockname MODE %::chan $+(-,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
          }
          else {
            
sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if 
$gettok(%::text,1,32) == !bantemizle {
          
sw $sockname MODE %::chan +b
        
}
      }
      if 
$gettok(%::text,1,32) == !clear {
        var %
kc 1
        
while %kc <= $lines(clear.txt) {
          
sw $sockname privmsg %::chan $read(clear.txt,%kc)
          
inc %kc
        
}
      }
      if !
$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
        
kanal_koru
      
}
      if %::
chan == %kanalds {
        
sw $sockname privmsg %kokumanick %kanalds $1-
      }
    }
  }

Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 31 Temmuz 2009, 04:19
Avatar Yok
 Coders 

mS Puan: 1
mS Derece: UOnur Meraklı
 
Üyelik tarihi: 10 Temmuz 2009
Mesajlar: 16
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 1
Yapılan Teşekkür: 0
Standart

Sorunu bulmak için önce botun "kanal_koru" komutuna başvurup başvurmadığını tesbit etmek lazım...
bunu tesbit etmenin en güzel yolu "kanal_koru" komutundan sonra birtane ".echo -a komut kullanıldı.." gibi bi kod ekleyebilirsin... yani kanal_koru komutunun kullanıldığı yerleri kanal_koru | .echo -a komut kullanıldı.. seklinde değiştirirsin.

Örn:
Kod:
if !$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
kanal_koru | .echo -a komut kullanıldı.. 
}

Konu UOnur tarafından (31 Temmuz 2009 Saat 04:22 ) değiştirilmiştir.
Alıntı ile Cevapla
  #3  
Alt 31 Temmuz 2009, 18:36
Avatar Yok

mS Puan: 1
mS Derece: benX Meraklı
 
Üyelik tarihi: 27 Temmuz 2009
Mesajlar: 6
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

dediğinizi yaptım üstad ama hic bi sekilde kullanmıyor, yani komuta başvurmuyor..
Alıntı ile Cevapla
  #4  
Alt 31 Temmuz 2009, 18:51
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 32
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart

UOnur-un demek istediği, eğer /echo komutu uygulanmıyorsa(geçiş yapılmıyorsa) zaten /kanal_koru alias-ı yok demektir.
-
Şöyleki;
alias deneme echo -: 1. komut | XX | echo -: son komut.

/deneme yaptığında, 1. komut yazısını görürsün, /xx diye bir alias-ın olmadığından "* /xx: not connected to server (line 1, script.mrc)" vb. uyarı alırsın. Ve 2. komut uygulanmadığı için 3. komuta mIRC geçiş yapmaz, otomatik /halt eder.

Sen "komut uygulandı.." mesajını aktif ekrana alıyormusun?
Almıyorsan /kanal_koru alias-ı mIRC içerisinde mevcut değildir yada varolsa bile load edilmemiş demektir.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #5  
Alt 31 Temmuz 2009, 20:22
Avatar Yok

mS Puan: 1
mS Derece: benX Meraklı
 
Üyelik tarihi: 27 Temmuz 2009
Mesajlar: 6
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

L4roXyL hocam "komut uygulandı.." mesajını aktif ekranda alamıyorum.
/kanal_koru alias-ı mIRC içerisinde bulunuyor, mevcut.
Alıntı ile Cevapla
  #6  
Alt 31 Temmuz 2009, 20:54
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 32
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart

Edit: Pardon zaten kod içerisinde varmış.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #7  
Alt 31 Temmuz 2009, 22:05
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 18
Standart

tamir etmeye calısmak yerine asl olanını yeniden konfigure edip kullansan cok daha iyi
bu kadar edit görmüş birseyin hala calısması mucize zaten.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
  #8  
Alt 31 Temmuz 2009, 22:21
Avatar Yok

mS Puan: 1
mS Derece: benX Meraklı
 
Üyelik tarihi: 27 Temmuz 2009
Mesajlar: 6
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

hic bişe imkansız degildir hocam yapan yapıyor, IrCbaStarD (sercan) kardeşim hallediyor. Genede tşk ederim.
Alıntı ile Cevapla
  #9  
Alt 31 Temmuz 2009, 22:52
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 32
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart

İmkansız tabiki değil.
Lakin şöyle birşey var; nomercy-i yazan ben değilim. Variable-larından tut, entegre edilmiş alias-ların ne işe yaradığını nasıl çalıştığını hatta kodun ne şekilde/biçimde yazıldığını bilmiyorum. Hiç incelemedim çünki bu zaman kadar. O yüzden yapabileceklerim kısıtlı. Kodu ben yazmadım ki işlevselliğini bileyim.
Ama gördüğüm kadarıyla şunu rahatlıkla diyebilirim; baştan aşağı amatörce yazılmış bir kod silsilesi.
-
Lakin bana dersen-ki "l4roxyl kanal(lar)ım için socket sistemli bir koruma(lar) kod-u istiyorum" vaktim olunca yazar veririm sana. Ama nasıl yazıldığını bilmediğim ve daha önce incelemediğim bir sistem için sana yardım edemem.
En basitinden bir örnek vereyim; %::chan variable-ı nerede atanmış ve ne atanmış? Bunu bilmiyorum, diyelimki %::chan variable-ı #???* olarak dönüyor. Peki neden $left(%::chan,1) == $chr(35) şeklinde bir sorgu kullanılıyor o zaman? Saçma değilmi?
-
Demek istediğimi anladın umarım.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #10  
Alt 01 Ağustos 2009, 01:54
Avatar Yok

mS Puan: 1
mS Derece: benX Meraklı
 
Üyelik tarihi: 27 Temmuz 2009
Mesajlar: 6
Konular: 1
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

L4roXyL anladım demek istedigini üstad. Ben zaten bu konuda ustalaşmış, yani bu bot muhabbetine gönül vermiş arkadaşlar olursa yardımcı olabilirlerse diye konuyu açtım hocam sana lafım yok zaten haddime degil. Bu konu çok canımı sıkıyordu bir kaç aydır çözemedim o yüzden sorunu çözmek amacıyla açtım konuyu.
Alıntı ile Cevapla
Cevapla

Etiketler
kanalkorumasında, nomercynin, sorun, var

Seçenekler

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 Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Mircime Ait 2 Ufak Sorun KarabasaN Help - Yardım 2 23 Temmuz 2009 11:30


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76