Çevrimdışı

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..

 

Çevrimdışı

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

 

Çevrimdışı

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?

 

Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

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

 

Çevrimdışı

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.

 

Çevrimdışı

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.

 

Çevrimdışı

__________________
Suyun intiharıdır şelale...

 

Çevrimdışı

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 } }