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/)
-   -   Banlarin Sürelerini Iptal Etmek (https://www.ircforumlari.net/mirc-scripting-sorunlari/38142-banlarin-surelerini-iptal-etmek.html)

StanteaR 18 Eylül 2007 13:53
Banlarin Sürelerini Iptal Etmek
 
Arkadaslar SImdı Ben Operım Bır Korumada Kline Atıyor Ama bunları Surelı Atıyor Suresınıde Kendı Belırlıyor Nerde Bu Anlamadım Bu Sureyı Nasıl Iptal Ederım Yardımcı Olurmusunuz

Alıntı:
alias prot {
if !$istok(repeat flood long ctrlcode bword spam,$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 }
: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
}
on *:text:*:#:{
if ($nick isreg #) && !$istok(#operhelp #yönetim #edebiyat #siircafe #hasbahce #turkalemi #bulmaca,#,32) && $nick !ison #yönetim {
if $prot(long,$1-,300) { ak $nick 2Flood Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
elseif $prot(ctrlcode,$1-,15) { }
elseif $prot(repeat,#,$nick,$strip($1-),7,4) { kick # $nick tekrar(5sn:2) }
elseif $prot(flood,#,$nick,10,9) { kick # $nick flood(1sn:3) }
elseif $prot(bword,$1-,küfürler.txt) { ak $nick 2Küfür Ettiqinizden Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
elseif $prot(bword,$1-,reklamlar.txt) { ak $nick 2Reklam Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
}
}

Ban Sureleri Orneklerıde Burda..

Alıntı:
SenSizBen!Oper@iRC.******.CoM added a 13 minute k:line for [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (2Flood Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4)
Yardım Edermısınız Lutfen

L4roXyL 18 Eylül 2007 15:45
Cevap: Banlarin Sürelerini Iptal Etmek
 
"/ak" isminde bir alias ekli olmalı.
Onu bul buraya pastelle halledelim.

StanteaR 19 Eylül 2007 11:49
Cevap: Banlarin Sürelerini Iptal Etmek
 
Bu Ak Kodu Ama Bundan Dııl Baska Arkadaslarda Bu Kodu Kullanıyor Surelı Atmıyor

Alıntı:
alias ak {
/set %ak.temp.left
/set %ak.temp.right
if ($1 == ?) || ($1 == $null) { echo -a >Syntax:
<nick> }
else { /set %ak.temp.nick $1 | /set %ak.temp.note $2- | .enable #ak | whois $1 }
}
#ak off
raw 311:*:set %ak.temp.akill *@ $+ $4 | halt
raw 318:*: {
if (%ak.temp.note != $null) {
.kline %ak.temp.akill %ak.temp.left %ak.temp.note %ak.temp.right
.echo 4 - $2 %ak.temp.akill %ak.temp.left %ak.temp.note %ak.temp.right
}
else {
.kline %ak.temp.akill %ak.temp.left %show2 %ak.temp.right
.echo 4 - $2 %ak.temp.akill %ak.temp.left %kural
%ak.temp.right
}
/unset %ak.temp* | .disable #ak
halt
}
raw 319:*:halt
raw 325:*:halt
raw 401:*:{
.disable #ak
akwas $2
halt
}
#ak end
alias akwas {

detay 19 Eylül 2007 11:53
Cevap: Banlarin Sürelerini Iptal Etmek
 
.kline %ak.temp.akill %ak.temp.left %ak.temp.note %ak.temp.right
.kline (nick|ip) süre sebep
formatinda olduguna gore %ak.temp.left degerinin yerine kendi süreni yazarsin +0 kalici olmasi icin.(yanlis hatirlamiorsam)
.kline %ak.temp.akill +0 %ak.temp.note %ak.temp.right

StanteaR 19 Eylül 2007 13:15
Cevap: Banlarin Sürelerini Iptal Etmek
 
Ben Yapamadım Olmadı Yanı Yada Yanlıs Yeremı Verdıgın Kodu Ekledım Sen Yaparmısın Bır Sana Zahmet

detay 19 Eylül 2007 13:23
Cevap: Banlarin Sürelerini Iptal Etmek
 
Kod:
on *:text:*:#:{
  if ($nick isreg #) && !$istok(#operhelp #yönetim #edebiyat #siircafe #hasbahce #turkalemi #bulmaca,#,32) && $nick !ison #yönetim {
    if $prot(long,$1-,300) { kline $nick +süre 2Flood Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
    elseif $prot(ctrlcode,$1-,15) { }
    elseif $prot(repeat,#,$nick,$strip($1-),7,4) { kick # $nick tekrar(5sn:2) }
    elseif $prot(flood,#,$nick,10,9) { kick # $nick flood(1sn:3) }
    elseif $prot(bword,$1-,küfürler.txt) {
      kline $nick +süre 2Küfür Ettiqinizden Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time
    }
    elseif $prot(bword,$1-,reklamlar.txt) {
      kline $nick +süre 2Reklam Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time
    }
  }
}
kodlari inceledim ak aliasina cokda gerek yok bosuna nicke whois cekiyor kline atmak icin whois cekip ip adresini almak gerekmiyor. +süre olarak beliirttigim yerleri sana birakiyorum örn +1d 1 gün.. +0 kalici.

StanteaR 20 Eylül 2007 09:30
Cevap: Banlarin Sürelerini Iptal Etmek
 
Bu Ak kodu sadece ıp adresını banlamaya yarıyor ama normal kline olarak attıgımda ıdent ve ıp banlıyor sunucumuzda sıtelere ozel ıdentler acıldıgı ıcın ıdente ban atınca userler gıremıyor ve bızde bu yuzden o ak kodunu kullanıyoruz

işte neden bılemıyorum süreli atıyor attıklarımda hemen gerı gelıyor mesela flood yaptıklarında her bır satır ıcın flood cekıyor 5 kere flood yapınca 7-8 kere whois cekıyor

detay 20 Eylül 2007 09:52
Cevap: Banlarin Sürelerini Iptal Etmek
 
Kod:
alias _kline {
  .enable #kline
  userhost $1
  set %sebep $2-
}
#kline off
raw 302:*: { haltdef | kline $+(*@,$gettok($2,2,64)) %sebep  | .disable #kline }
#kline end
Kod:
on *:text:*:#:{
  if ($nick isreg #) && !$istok(#operhelp #yönetim #edebiyat #siircafe #hasbahce #turkalemi #bulmaca,#,32) && $nick !ison #yönetim {
    if $prot(long,$1-,300) { _kline $nick 2Flood Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
    elseif $prot(ctrlcode,$1-,15) { }
    elseif $prot(repeat,#,$nick,$strip($1-),7,4) { kick # $nick tekrar(5sn:2) }
    elseif $prot(flood,#,$nick,10,9) { kick # $nick flood(1sn:3) }
    elseif $prot(bword,$1-,küfürler.txt) { _kline $nick 2Küfür Ettiqinizden Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
    elseif $prot(bword,$1-,reklamlar.txt) { _kline $nick 2Reklam Yaptiqinizdan Dolayi 4Server2 'dan Gecici Olarak Uzaklastirildiniz! 4 $time }
  }
}

kullanim ; _kline nick sebep
cr sanirim server o yüzden tam bilmiyorum komutunu ama koymak istersende kodda asagida gosterdigim yere eklersin
kline $+(*@,$gettok($2,2,64)) <süre> %sebep

StanteaR 23 Eylül 2007 12:10
Cevap: Banlarin Sürelerini Iptal Etmek
 
Sımıd dedıgınız gıbı yaptım $nick yada $$1 olarak denedım ama sonuc şu

[12:05] -irc.********.com- *** Notice -- StanteaR[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] removed a k:line for *@61.175.139.To0=
-
[12:05] -irc.sohbetim.com- That mask doesn't make sense

-

$$1 de ıp adresını sadece banlıyor sunucudan atmıyor 2. de ıse $nick yaptım bu sefer That mask doesn't make sense dıye uyarı cıkıyor malesef


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net