![]() |
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.. |
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 |
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? |
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 :) |
maelstrom ya bunların hiç biri calısmıyor ne unban yapiyor ne adam atiyor sunu aciklayici sekilde tekrar yazarmısın |
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. |
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 } } |
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 } } } |
Alıntı:
Anlamadığım Birşey De Bu Nasıl Çalışıyor :) ! ! |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:26. |
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