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/)
-   -   Cakışma.. (https://www.ircforumlari.net/mirc-scripting-sorunlari/10582-cakisma.html)

hidir 13 Ocak 2006 00:25

Cakışma..
 
merhaba arkadaşlar öncelikle hepinizin kurban bayramı mubarek olsun.. sorunum şu ben bir koruma botu yapmaya calısıyorum.. Alience'nin shitlist'i ile !kb !k !ban kodunu Ekledim kodlarin ikiside calisiyor. mirc'in Users: bölümünde kanalda !kb !k !ban yetkisini kullanmak icin ekledigim nickler var Auth:Nick1 Auth:nick2 gibi.. yalnız Auth:nick olarak eklediğim nick kanala girer girmez bot tarafından atılıyor acaba nedendir bilen varmı varsa bana yardımcı olurmusunuz.. ayrıca ben bide baslık actım !unban nick seklinde bir kişinin bota banını nasıl actırabiliriz ve !bantemizle diyince bütün kanaldaki banları nasıl actırabiliriz. bu iki koduda yazarsanız sevinirim..

on $AUTH:text:/^!mode|^!kb|^!b|^!k/Si:#: {
if !$regex($1-,(^!voice .)|(^!mode .* .)|(^!kb|^!b|^!k .)) { .notice $nick Komutların Kullanımı: !voice nick [nick2 nick3], !mode +ohik parametre, !kb nick sebep, !b ip/nick, !k nick [sebep] | halt }
else {
if !$regex($1-,^!mode) {
if $2 !ison $chan { .notice $nick $2 $chan kanalında değil! | halt }
else { $replace($1,!kb,/ban -k,!k,/kick,!b,/ban) $chan $2- $iif($regex($1,^!kb|^!b),) }
}
else { $replace($1,!mode,/mode) $chan $2- }
}
}


Eğer Bunun bir çaresi yoksa bana !kb !k !ban !voice !op !deop !halfop gibi komutlarla calistirabilicegim bi komut bilgiside verirseniz bota ekliyebilicegim sevinirim iyi calismalar..

MaeLStrOm 13 Ocak 2006 11:33

on *:text:*:#:{
;burası önemli : hangi nickler çağrışım yaparsa botun devreye gireceğini
;belirtiyoruz.Sayıyı arttırabilirsin
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
if ($1 == !kb) { ban -k # $2 }
if ($1 == !k) { kick # $2 }
if ($1 == !ban) { ban # $2 }
if ($1 == !voice) { mode # +v $2 }
if ($1 == !op) { mode # +o $2 }
if ($1 == !deop) { mode # -o $2 }
if ($1 == !halfop) { mode # +h $2 }
if ($1 == !unban) { banac $2 }
if ($1 == !bantemizle) { bantemizle }
else { halt }
}
}
alias bantemizle { var %a $ibl($chan,0) | while %a { mode $chan -b $ibl($chan,%a) | dec %a } }
alias banac { var %a $ibl($chan,0) | while %a { if ($ibl($chan,%a) iswm $address($1,5)) { mode $chan -b $ibl($chan,%a) } | dec %a } }
;Denemedim ama umarim çalışır

hidir 13 Ocak 2006 20:05

on *:text:*:#:{
;burası önemli : hangi nickler çağrışım yaparsa botun devreye gireceğini
;belirtiyoruz.Sayıyı arttırabilirsin

bu kısmı anlıyamadım maelstrom?

MaeLStrOm 13 Ocak 2006 20:43

on *:text:*:#: {
;bütün kanallarda yazılanları denetler
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
;burası önemli : hangi nickler çağrışım yaparsa
;botundevreyegireceğini
;belirtiyoruz.Sayıyı arttırabilirsin

böylesi daha uygun sanırım :)

hidir 14 Ocak 2006 01:29

maelstrom ya bunların hiç biri calısmıyor ne unban yapiyor ne adam atiyor sunu aciklayici sekilde tekrar yazarmısın

MaeLStrOm 14 Ocak 2006 11:21

senin botunun 3 kişi tarafından harekete gecirilmesini istiyosun örneğin
if ($nick == nick1) || ($nick == nick2) || ($nick == nick3) {
olan kısımda nick1 hidir nick2 maelstrom nick3 te hidircan olsun mesela.
Kısaca tekrar kanalda hidir maelstrom yada hidircan nicklerinden biri yazı yazarsa kod devam edecek.
if ($1 == !kb) { ban -k # $2 }
bu diyor ki eğer yazılan yazının ilk kelimesi !kb ise ikinci kelimeyi kanaldan banla ve kickle.Yani mesela hidircan kanalda !kb ali yazdığında senin botun ali nickli sahışı kanaldan banlıyıp kickleyecektir.Diğerlerinin mantığıda bunun aynısı.Umarım anlamışsındır.

hidir 14 Ocak 2006 16:20

peki birşey daha sorayım ozaman bu konuyla bir alakası yok ama konu başlığı açmak istemedim.. benim bir oyun kanalım var ve oyun kanalına koruma botunu sokmak istiyorum koruma botunda cocoriconun yazmış olduğu bu regex kodu mevcut kod'da şu kanalda birisi kelimeleri uzatinca once uyariyor sonra atiyor kanaldada oyun kanali soruları uzun yazdığı için botuda kanaldan atıyor bu korumada Oyun nickini nasıl regex uzun yazı korumasından muaf tutarız ? komut aşşağıda belirtişmiştir.


on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}

}

Ajan 14 Ocak 2006 19:00

on *^:text:*:#: {
if ($nick != oyun) {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
}

}


djiNn 17 Ocak 2006 15:39

Alıntı:

hidir Nickli Üyeden Alıntı
peki birşey daha sorayım ozaman bu konuyla bir alakası yok ama konu başlığı açmak istemedim.. benim bir oyun kanalım var ve oyun kanalına koruma botunu sokmak istiyorum koruma botunda cocoriconun yazmış olduğu bu regex kodu mevcut kod'da şu kanalda birisi kelimeleri uzatinca once uyariyor sonra atiyor kanaldada oyun kanali soruları uzun yazdığı için botuda kanaldan atıyor bu korumada Oyun nickini nasıl regex uzun yazı korumasından muaf tutarız ? komut aşşağıda belirtişmiştir.



on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Long Word Protections
}
:U.yr {
;# Uyarı mesajı
RETURN Uyarı: Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}

}


Anlamadığım Birşey De Bu Nasıl Çalışıyor :) ! !


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

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