IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   korumalar v2 (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/41716-korumalar-v2.html)

KiLL 26 Şubat 2008 14:56
Cevap: korumalar v2
 
dostum lınkı guncellersen ıyı olur

IrCbaStarD 26 Şubat 2008 21:48
Cevap: korumalar v2
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mcswag 19 Nisan 2008 03:26
Cevap: korumalar v2
 
Adam yapmıs emeğini yazacak tabi inanıyorum ki onu sen yapsaydın donatırdın nicklerini ;) Emeğine saglık kardeş

MaXiMuS78 22 Nisan 2008 09:45
Yanıt: korumalar v2
 
Hocam selamlar..

uzun yazı korumasında karakter sayısını nasıl ve nerden degiştirebiliyorum? yardımcı olabilirmisin..

Kod:
on *:text:*:#: {
  if $istok(%muafn,$nick,32) == $true { halt }
  if $istok(%muafall,#,32) == $true { halt }
  if $istok(%muaf3,#,32) == $true { halt }
  if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
    ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
    echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
  }
}

simdiden tskler..

IrCbaStarD 22 Nisan 2008 09:52
Cevap: korumalar v2
 
on *:text:*:#: {
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if $istok(%muaf3,#,32) == $true { halt }
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}

MaXiMuS78 22 Nisan 2008 09:59
Yanıt: Cevap: korumalar v2
 
Alıntı:
ÌrCBaStarD Nickli Üyeden Alıntı (Mesaj 380515)
on *:text:*:#: {
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if $istok(%muaf3,#,32) == $true { halt }
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}
diger kırmızı ile olan yerde kac defada atılmasımı hocam?

IrCbaStarD 22 Nisan 2008 11:56
Cevap: korumalar v2
 
Hayır, ban şekli.

MaXiMuS78 24 Nisan 2008 11:11
Yanıt: korumalar v2
 
selam arkadaslar bir sorunum var yardımcı olursanız sevinirim..

Kod:
on *:text:*:#: {
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if $istok(%muaf3,#,32) == $true { halt }
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}
Bu korumada uzun yazı yazıldıgı zaman kisiye ban yeribe kline atılsın istiyorum nasıl yapabilirim..?

IrCbaStarD 24 Nisan 2008 11:42
Cevap: Yanıt: korumalar v2
 
Alıntı:
MaXiMuS78 Nickli Üyeden Alıntı (Mesaj 382622)
selam arkadaslar bir sorunum var yardımcı olursanız sevinirim..

Kod:
on *:text:*:#: {
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if $istok(%muaf3,#,32) == $true { halt }
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}
Bu korumada uzun yazı yazıldıgı zaman kisiye ban yeribe kline atılsın istiyorum nasıl yapabilirim..?
Kod:
on *:text:*:#: {
if $istok(%muafn,$nick,32) == $true { halt }
if $istok(%muafall,#,32) == $true { halt }
if $istok(%muaf3,#,32) == $true { halt }
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
.kline $nick Sebeb'in.
}
}

Keen 24 Nisan 2008 16:29
Cevap: korumalar v2
 
tekrar korumasında ikinci tekrardan sonra uyarmasını ve büyük harf korumasında ilk kez büyük harfler yazınca uyarılmasını devamı halinde atılmasını nasıl sağlayabiliriz ircsbastard? tşkler.

IrCbaStarD 24 Nisan 2008 16:44
Cevap: korumalar v2
 
Kod:
on *:text:*:#: {
  if  ($me isop #) && ($nick isreg #) {
    if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
      set -u30 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
      set -u30 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
      return
    }
    var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
    var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
    if (%rpt == $1-) {
      inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
      if (%rps > 2) && ($nick !isop #) {
        hinc -mu5 tekrars $+($chan,.,$nick) 1
        if $hget(tekrars,$+($chan,.,$nick)) == 1 {
          /msg # $nick uyarı1
        }
        if $hget(tekrars,$+($chan,.,$nick)) == 2 {
          /msg # $nick uyarı2
        }
        if $hget(tekrars,$+($chan,.,$nick)) == 3 {
          .kick # $nick  Sebeb.
          .hdel -s tekrars $+($chan,.,$nick))
        }
      }
    }
  }
  if ($me isop #) && ($nick isreg #) && ($nick !isop #) {
    if ($len($1-) < 20) || ($nick isop #) return
    var %text = $strip($remove($1-,$chr(32)))
    var %non.caps = $len($removecs(%text,A,B,C,Ç,Ü,Ğ,İ,Ş,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
    var %full.line = $len($strip($remove(%text,$chr(32))))
    var %percent = $calc(1 - (%non.caps / %full.line))
    if (%percent >= 0.8) {
      hinc -mu20 Capsq $+($chan,.,$nick) 1
      if $hget(Capsq,$+($chan,.,$nick)) == 1 {
        /msg # $nick uyarı
      }
      if $hget(Capsq,$+($chan,.,$nick)) == 2 {
        /msg # $nick uyarı
      }
      if $hget(Capsq,$+($chan,.,$nick)) == 3 {
        .kick # $nick Sebeb.
        .hdel -s Capsq $+($chan,.,$nick))
      }
    }
  }
}
Denemedim ama sorun yok gibi (:


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:18.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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