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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 18 Kasım 2009, 13:06   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Koddaki hata için yardım..




Bunu denermisin.. (buradaki liste fullname.txt) senin fullname list nasıl ise o şekilde değiştir.. mirc.txt gibi...

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*client connect*:who $9
raw 352
:*:kontrol $9- $6
alias kontrol 
var %1 1 | while %<= $lines(fullname.txt) { if $regex($1,$read(fullname.txt,%1)) { zline $:sebeb. | return $true } | inc %} | return $false 


Alternatif olarak önerebileceğim bi kod daha yazıyorum. (muhtemel olasılıkla üstteki kodun çalışmaması ihtimaliyle)

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu menubar,status,channel 
  - 
  
Kötü fullname 
  
.$iif($group(#bfname) == on,Kapat,Aç):$+(.,$iif($group(#bfname) == on,dis,en),able) #bfname 
  
.- 
  .
Kelimeler:$iif(!$exists(bfnameads.txt),write -c bfnameads.txt) | run bfnameads.txt 
  
.- 
  .
Ceza 
  
..$iif(%bfname.ceza == kick,$style(2)) Kick:set %bfname.ceza kick 
  
..$iif(%bfname.ceza == kban,$style(2)) Kick Ban:set %bfname.ceza kban 
  
..$iif(%bfname.ceza == kill,$style(2)) Kill:set %bfname.ceza kill 
  
..$iif(%bfname.ceza == kline,$style(2)) Kline:set %bfname.ceza kline 
  
..$iif(%bfname.ceza == gline,$style(2)) Gline:set %bfname.ceza gline 
  
..- 
  ..
Ban süresi $+([,$iif(%bfname.sure != 0,$calc($v1 /60)),d]) :if $$?="Kaç dakika süresince banlı kalsın? (Süresiz için 0 yazın)" set %bfname.sure $calc(60* $!) } 
  ./
Wholar arası zaman 
  
..$iif(%bfname.delay == evet,Kapat,):set %bfname.delay $iif(%bfname.delay == evet,hayir,evet
  ..- 
  ..
Yardım?:echo $color(info) -at Kanala giren herkese anında /who çekmek yerine belirli bir süre sonra işlem yapmakflooddan korunmak için bir yöntem

on *:LOAD:{ 
  echo 
$color(info) -at Kötü fullname koruması addonu yüklendi
  
set %bfname.ceza kban 
  set 
%bfname.delay evet 
  set 
%bfname.sure 0 
  write 
-c bfnameads.txt 
  
echo $color(info) -at Varsayılan ayarlar yapıldıayarları değiştirmek için popupsları kontrol ediniz

on *:UNLOAD:{ 
  unset %
bfname.* 
  echo 
$color(info) -at Kötü fullname koruması kaldırıldıayarlar silindi

#bfname on 
on !*:JOIN:#:{ 
  
if $me !isop # && $istok(kick kban,%bfname.ceza,32) { return } 
  
if !$($+(%,bfnw.,$nick),2) { 
    
set -$($+(%,bfnw.,$nick),1
    
var %' = $+(%,bfnc.,$nick) 
    if !$(%'
,2) { 
      if %
bfname.delay == evet inc -eu3 %bfname.q 3 | .timer 1 %bfname.q who $nick 
      else { 
who $nick 
      
set $(%',1) # 
    } 
  } 

raw *:*:{ 
  if $istok(315 352,$numeric,32) { 
    if $numeric == 315 { 
      if $($+(%,bfnc.,$2),2) { unset $($+(%,bfnc.,$2),1) | halt } 
    } 
    if $numeric == 352 { 
      if $($+(%,bfnc.,$6),2) && $bfname.check($strip($9-)) { 
        if $istok(kill kline gline,%bfname.ceza,32) { 
          %bfname.ceza $6 Fullname'
iniz kötü söz/reklam içerdiğinden serverdan uzaklaştırıldınız
        } 
        elseif 
$istok(kick kban,%bfname.ceza,32) { 
          var %: = 
| while $comchan($6,%:) { var %; = $v1 | if $me isop %; && $6 isreg %; { $iif(%bfname.ceza == kick,kick,ban $iif(%bfname.sure != 0,-ku $+ $v1,-k)) %; $6 $iif(%bfname.ceza == kban,2Fullname'iniz kötü/söz reklam içeriyor. } | inc %: } 
        } 
      } 
    } 
    halt 
  } 

alias bfname.check { 
  if $1 { 
    var %: = 1, %_ = $regsubex($replace($1-,©,c,®,r,3,e),/[^a-z.]+/gi,) | while $read(bfnameads.txt,%:) { 
      if $v1 iswm %_ { return $true } 
      inc %: 
    } 
    return $false 
  } 

#bfname end 



Konu ircop tarafından (18 Kasım 2009 Saat 13:13 ) değiştirilmiştir.
 
Alıntı ile Cevapla

 

Etiketler
fullname, hata, koddaki, koruma, mirc download, mirc indir, yardim, yardım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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
./ircservices hata yardım pls EEkreMM Servisler 13 10 Mayıs 2009 12:42
irc services hata yardım NoX Servisler 4 26 Şubat 2009 15:52
badnicke dönüşte koddaki hata SaintCty mIRC Scripting Sorunları 23 15 Ocak 2009 15:35
ircservices Hata (Yardım) RePLiCa Servisler 2 12 Ocak 2009 15:52
Hata Acil Yardım KuLL Unreal IRCd 0 06 Nisan 2008 14:51