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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   tekrar koruması sorun nerede (https://www.ircforumlari.net/mirc-scripting-sorunlari/55918-tekrar-korumasi-sorun-nerede.html)

XcLusive 29 Nisan 2008 19:13

Cevap: tekrar koruması sorun nerede
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

düzgün bir şekilde okusanız?
en ufak birşeyde sıkışınca yardım istemeyin az çaba gösterin..
kod çalışıyor..

sniper 29 Nisan 2008 19:52

Cevap: tekrar koruması sorun nerede
 
valla haklısın halil üstat gözlerim ağrıdı okumaktan yinede bulamadım hatamızın nerede olduğuna tiyo ver bari :D inan çok aradım adam satır satır anlatmış çok süper ama nereyi eksik yapıyoz anlayamadım valla :D

Dependent 29 Nisan 2008 22:01

Cevap: tekrar koruması sorun nerede
 
Senin yazdığın ile biz ancak kurt kuranı okuruz burada,
sen yaptıklarını sırası ile ayrıntılı bir yaz bakalım hatan nerede ona göre bulunsun?
zira kod gayet düzgün.

Sinbat 30 Nisan 2008 11:26

Cevap: tekrar koruması sorun nerede
 
Kod:


alias prot {
  if !$istok(repeat flood caps long ctrlcode bword spam punc,$1,32) { return $false }
  goto $1
  :repeat
  var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
  inc $(%÷,1)
  if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
  if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
  else { return $false }
  :flood
  var %µ = $+(%,flood.,$2,.,$3)
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
  if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
  else { return $false }
  :caps
  var %e = $remove($strip($2),$chr(32))
  return $iif($iif($len(%e) >= 10,$calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e)*100),0) >= $3,$true,$false)
  :long
  return $iif($len($strip($2)) >= $3,$true,$false)
  :ctrlcode
  return $iif($regex($2,/[[:cntrl:]]/g) >= $3,$true,$false)
  :bword
  var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
  :spam
  var %º = 1 | while $read($3,%º) { if $v1 iswm $2 { return $true } | inc %º } | return $false
  :punc
  return $iif($regex($2,/([?!:;,\.])/g) >= $3,$true,$false)
}
on *:text:*:#:{
  if $prot(repeat,#,$nick,$1-,2,5) { .ban -k # $nick 2 Tekrar etme! }
  elseif $prot(flood,#,$nick,3,4) { .ban -k # $nick 2 Flood yapma }
  elseif $prot(caps,$1-,80) { .ban -k # $nick 2 Büyük harf kullanma! }
  elseif $prot(long,$1-,20) { .ban -k # $nick 2 Uzun yazı yazma! }
  elseif $prot(bword,$1-,kufur.txt) { .ban -k # $nick 2 Kufur etme! }
}

bu şekilde çalışıyo denedim sniper hatayı buldum yaptığımız sende gör:)

sniper 30 Nisan 2008 11:49

Cevap: tekrar koruması sorun nerede
 
yavaş yavaş anlıyorum :D evet;oki

Sinbat 30 Nisan 2008 12:20

Cevap: tekrar koruması sorun nerede
 
Kod:


alias prot {
  if !$istok(flood punc,$1,32) { return $false }
  goto $1
  :flood
  var %µ = $+(%,flood.,$2,.,$3)
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
  if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
  else { return $false }
}
on *:text:*:#:{
  if $prot(flood,#,$nick,3,4) { .ban -k # $nick 2 Flood yapma }
}

Buda sadece istediğin flood koruması:)

Dependent 30 Nisan 2008 12:57

Cevap: tekrar koruması sorun nerede
 
sadece flood korumasında goto ya gerek yok onu
Kod:

alias prot {
  var %µ = $+(%,flood.,$1,.,$2)
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $4 unset $(%µ,1) }
  if ($(%µ,2) >= $3) { unset $(%µ,1) | return $true }
  else { return $false }
}
on *:text:*:#:{
  if $prot(#,$nick,3,4) { .ban -k # $nick 2 Flood yapma }
}

şeklinde değiştirirsek daha mantıklı olur ;oki

sniper 30 Nisan 2008 14:30

Cevap: tekrar koruması sorun nerede
 
tamam ben bu işi anladım 1 sorum daha olacak renk kontrol kodu çalışmıyor denedim olmuyo diğer korumaların hepsi çalışıyor tek tek denedim
şöyle yaptım örnek:
deneme bilemem ne falan filan gibi

15 den fazla oluyo ama hiç bir tepki vermiyor neden acaba

sniper 03 Mayıs 2008 12:06

Cevap: tekrar koruması sorun nerede
 
el33t ustamdan özür diliyorum :D renk korumasıda çalışıyormuş


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:24.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk