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/)
-   -   Ban Sayaç (https://www.ircforumlari.net/mirc-scripting-sorunlari/16049-ban-sayac.html)

NeLix 19 Nisan 2006 17:32

Ban Sayaç
 
Benim Güvenlik Botuna Şöyle Birşey yapmak mümkün mü?; KanaLda Ki Bütün Opların her nicke ayrı ayrı kaç tane ban attıklarını kaydedcek. ve ben bota <NeLix> NeLix Ban List Dediğimde NeLix nickinin kaç tane ban attığını söylicek ßöyle birşey yapmak mümkün mü ? yardım eder misiniz ?

el33t 19 Nisan 2006 19:06

Yanıt: Ban Sayaç
 
Kanalda "NeLix Ban List" yazınca o kanalda daha önce atılan ve %ban.#kanal.nick şeklinde saklanmış olan ban sayıları tek bir satırda kanala mesaj atılır. Yeşille yazılmış nickler bu komutu kullanabilecek kişileri gösterir. Space ile ayırarak sende istediğin nicki ekleyebilirsin. $getban(#kanal) aliasıda custom kullanım içindir. İşte kod:


on *:BAN:#:{ inc $+(%,ban.,#,.,$nick) }
alias getban { if $me ison $1 { var %; = 1, %: | while $var($+(%,ban.,$1,.*),%;) { %: = $addtok(%:,$+($gettok($v1,3,46),:,$($v1,2)),32) | inc %; } | return $iif(%:,Ban listesi durumu[Ban atan:ban sayısı]> %:,$1 kanalında ban atan yok.) } }
on *:text:NeLix Ban List:#:{ if $istok(NeLix NeLix2,$nick,32) { msg # $getban(#) } }



Umarım işine yarar..

NeLix 20 Nisan 2006 12:51

Yanıt: Ban Sayaç
 
El33t Ağßi code çalışmiyor yaws benim demek istediğim şu; Mesala GüvenLik botunun Masterinde Bir Nick Var. Masterinde ki o nick Güvenlik botuna Bugün Kim Ne kadar Ban Atmıs Onları Listeliyecek. ama olmadı :(

diEfoRyoU 20 Nisan 2006 21:27

Yanıt: Ban Sayaç
 
on *:rawmode:#: if $1 == +b { write ban.txt $nick $2- }
on master:text:NeLix Ban List:#: {
var %= 1
while %= <= $lines(ban.txt) {
msg # $read(ban.txt,%=)
inc %= } }

auser'da master seviyesinden ekli nicklerin kanala NeLix Ban List yazması yeterlidir
umarım işine yarar

NeLix 21 Nisan 2006 08:01

Yanıt: Ban Sayaç
 
<NeLix> G-u-v-e-n-L-i-k Ban List
<G-u-v-e-n-L-i-k> 21/04/2006
<G-u-v-e-n-L-i-k> Maxi: 50
<G-u-v-e-n-L-i-k> NeLix:60
<G-u-v-e-n-L-i-k> Sfex: 30
<G-u-v-e-n-L-i-k> nike: 10
<G-u-v-e-n-L-i-k> Course: 50
<G-u-v-e-n-L-i-k> cannibal: 5
<G-u-v-e-n-L-i-k> Kes Ban Attılar.

Demek istediğim bu şekilde ama dieforyou senin ki ban listesini söyliyor o işime yaramadı yaw :(((

el33t 22 Nisan 2006 01:08

Yanıt: Ban Sayaç
 
Aşağıdaki identifier $banlcheck(#kanal) şeklinde çalışır ve o anda kanaldaki ban listesindeki banları nicklere göre sayar ve tek satır halinde kimin kaç ban attığını gösterir. Eğer sen kanala girdiğinde senden önce ban atılmışsa on me:*:join:#:mode # +b yaparak senden önce atılan banları da görebilirsin, böylece daha sağlıklı çalışacaktır. İşte kod:

alias banlcheck {
if $1 ischan {
unset $+(%bl.,$1,.*)
var %_ = 1 | while $ibl($1,%_).by {
inc -e $+(%,bl.,$1,.,$gettok($v1,1,33))
inc %_
}
var %= = 1, %; | while $var($+(%,bl.,$1,.*),%=) {
%; = $addtok(%;,$+($gettok($v1,3,46),:,$($v1,2),),3 2)
inc %=
}
return $+([,$1,]) $date - $iif(%;,$sorttok(%;,32),kanalda ban yok.) | unset $+(%bl.,$1,.*)
}
return Bu identifier bir kanal ile çalışır.
}


Senin istediğin gibi botun nicki ban list yazdığında kanala mesaj olarak gitmesini istiyorsan şu kodu kullanabilirsin.

on *:text:$( $+ $me Ban List $+ ):#:msg # $banlcheck(#)

Ben denedim ve çalıştı, umarım işine yarar..

NeLix 22 Nisan 2006 19:11

Yanıt: Ban Sayaç
 
<NeLix> NeLBoT ban list
<NeLBoT> [#gelişim] 28/04/2006 - :

Abi Bu Şekilde Diyor. Kısacası Nicki Söylemiyor..

MaeLStrOm 23 Nisan 2006 09:27

Yanıt: Ban Sayaç
 
on *:ban:#:{ if $hget(ban,$+(#,$nick)) { hinc ban $+(#,$nick) 1 | halt } | elseif !$hget(ban,$+(#,$nick)) { hadd ban $+(#,$nick) 1 } }
alias hban { var %a $hget(ban,0).item | while %a { echo -a $hget(ban,%a).item $hget(ban,%a).data | dec %a } }
on *:text:NeLix Ban List:#:{ var %ü $hget(ban,0).item | while %ü { if $regex($hget(ban,%ü).item,#) { msg # $hget(ban,%ü).item : $hget(ban,%ü).data } | dec %ü } }
on *:disconnect: hsave ban hash |
on *:connect: hmake ban 100 | hload ban hash

el33t 23 Nisan 2006 10:52

Yanıt: Ban Sayaç
 
Deneyerek verdiğim kodun çalışmaması gerçekten ilginç. Kodları nereye/nasıl koyacağınızı bildiğinizi varsayarak ve detaylı açıklamayı yaparak veriyorum. Yazdığım kodları saklamadığım için olduğu gibi yukardaki alias banlcheck ve on text ile başlayan kodları aldım, mIRC'de Remote'a koydum ve kanalda cloneum varken 7 tane ban ekledim:

(10:46.34a) * el33t sets mode: +bbbbbbb qw!*@* qt!*@* qr!*@* qu!*@* qo!*@* qp!*@* qz!*@*

Daha sonra cloneum kanala:

(10:46.44a) <ARSLAN> el33t ban list

yazdı ve benden otomatik olarak şu mesaj kanala gitti:

(10:46.45a) <@el33t> [#mirc] 23/04/2006 - el33t:7

-
Bende çalışan kodun sende çalışmaması garip. Internal ban listesine baktığı için yani kanala çift tıkladığında çıkan penceredeki banları kimin attığına göre çalıştığı için sen kanala girdikten sonra senden önce atılan banların listesini alman gerekir, aksi takdirde mIRC sadece sen girdikten sonraki banları o ban listesinde sayacaktır. Onun için de hangi kodu kullanman gerektiğini yazmıştım ve tekrar yazıyorum.

on me:*:join:#:mode # +b

Yani sen herhangi bir kanala girdiğinde kanal ban listesini mIRC alıyor, böylece bu kod tam anlamıyla çalışıyor.

NeLix 24 Nisan 2006 07:57

Yanıt: Ban Sayaç
 
alias banlcheck {
if $1 ischan {
unset $+(%bl.,$1,.*)
var %_ = 1 | while $ibl($1,%_).by {
inc -e $+(%,bl.,$1,.,$gettok($v1,1,33))
inc %_
}
var %= = 1, %; | while $var($+(%,bl.,$1,.*),%=) {
%; = $addtok(%;,$+($gettok($v1,3,46),:,$($v1,2),),3 2)
inc %=
}
return $+([,$1,]) $date - $iif(%;,$sorttok(%;,32),kanalda ban yok.) | unset $+(%bl.,$1,.*)
}
return Bu identifier bir kanal ile çalışır.
}


GüvenLik botunda Bunu Ayrı Bir Remote Ye

on *:text:$( $+ $me Ban List $+ ):#:msg # $banlcheck(#)

Bunu da Ayrı bir Remote ye kayıddettim. GüvenLik botunda NeLix Nickine Master Ekledim. Ban List dediğimde ne nicki söylüyor nede ne kadar ban attığını.. :(


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

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