IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Yardımcı Olabilecek Varmı (https://www.ircforumlari.net/eggdrop-neostats-bnc/536257-yardimci-olabilecek-varmi.html)

Yardımcı Olabilecek Varmı

Aop ve üstü olan kişiler bu tcl de yer alan kodları kullanabiliyor iken Adminler aop vb. olmadan kullanamıyorlar bu tcl nin sadece oper adminlerin kullanması için uygun hale getirilmesi mümkünmüdür.

bind pub - !ban banned
#PROC
proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +b $text"
putquick "privmsg $chan : $text Basariyla Banlandi $nick"
}
bind pub - !unban ubanned
#PROC
proc ubanned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -b $text"
putquick "privmsg $chan : $text Basariyla Banı Kaldırıldı $nick"
}
bind pub - !kick kicked
#PROC
proc kicked {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan uzaklastırıldı $nick"
}
bind pub - !kb kban
#PROC
proc kban {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +b $text"
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan banlanıp uzaklastırıldı $nick"
}
bind pub - !voice vops
#PROC
proc vops {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +v $text"
putquick "privmsg $chan : $text Voice konumuna cıkarıldı. $nick"
}
bind pub - !devoice dvop
#PROC
proc dvop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -v $text"
putquick "privmsg $chan : $text Voice konumundan indirildi. $nick"
}
bind pub - !op top
#PROC
proc top {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +o $text"
putquick "privmsg $chan : $text Operator Konumuna Cıkarıldı $nick"
}
bind pub - !deop deop
#PROC
proc deop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -o $text"
putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"
}
bind pub - !temizle clear
#PROC
proc clear {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}

putquick "PRIVMSG $chan :0,15 0,14 0,12 Kanal Temizleniyor... 0,14 0,15 $nick !"
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :.0,15 0,14 0,12 Hoş Sohbetler 0,14 0,15 "
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :0,15 0,14 0,12 kanal Temizlendi İyi Sohbetler.. 0,14 0,15 $nick !"
}

Cevap: Yardımcı Olabilecek Varmı

Kodlarda bulunan bu satırlar komutu op olmayanların kullanamayacağını belirtiyor;

Kod:

if {![isop $nick $chan]} {return 0}

Bunun yerine komutu adminlerin kullanmasını istiyorsanız botunuzun oper kanalına girişini sağlamalısınız.

Kod:

if {![onchan $nick "#Opers"]} {return 0}

Bu şekilde değiştirip, botunuzu #Opers kanalında bulundurduğunuzda, komutu farklı kanalda kullanabilmesi için kullanıcıların #Opers kanalında bulunması gerekir.

Cevap: Yardımcı Olabilecek Varmı

yada :

Kod:

set agalar {
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*

}

.......

.....

global agalar

if {![string match -nocase $agalar [getchanhost $nick]]} { 

return 0

}

.....

....

yada :

Kod:

 

 

set agalar {
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*
 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*

}

.......

.....

global agalar

 set kabul 0

    foreach host $agalar {

        if {[string match $host [lindex [split $uhost @] 1]]} { set kabul 1 }

    }

    switch -- $kabul {

        0 { putserv "notice $nick :det..bu komut senin boyunu aşar.." }

        1 { putserv "notice $nick :Lafı mı olur .ne demek ağam ..." }

 

..... kodun devamı...

yada en güzeli/sağlamı:

kim/lerin kullanabilmesi isteniyorsa ,bu zat-ı muhteremleri botun user dosyasına eklersiniz :

örnek:
.+user Tom
.+host Tom [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*
.chattr Tom +f

+f friend yane arkideş yada ne bileyim herhangi bir user flagı verilebilir bu komutlara erişimi olmasını istediğiniz zatlara -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sonrada koda proc/un/ların altına :

Kod:

if {![matchattr [nick2hand $nick $chan] f]} { return 0 :}

yani f "friend" kullanıcı flagı yoksa vallahi-olmaz. gibi eklenip komut/lara erişim "sınırlandırılabilinir....

ayrıca :

!temizle komutu için 50 satır dolusu

Kod:

putquick "PRIVMSG $chan :."

yazmak yerine tek satırda :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yada

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

gibi yapılabilinir....di...(hem daha pratik , hemde en azından göze "hoş" görünürdü kod...)

Cevap: Yardımcı Olabilecek Varmı

Alıntı:

CLubber Nickli Üyeden Alıntı (Mesaj 1041313837)

Kodlarda bulunan bu satırlar komutu op olmayanların kullanamayacağını belirtiyor;

Kod:

if {![isop $nick $chan]} {return 0}

Bunun yerine komutu adminlerin kullanmasını istiyorsanız botunuzun oper kanalına girişini sağlamalısınız.

Kod:

if {![string match -nocase "#Opers" $chan]} {return 0}

Bu şekilde değiştirip, botunuzu #Opers kanalında bulundurduğunuzda, komutu farklı kanalda kullanabilmesi için kullanıcıların #Opers kanalında bulunması gerekir.

Dediğiniz gibi botu opers odasına aldım lakin Bot sadece #Opers odasına işlev görürken bulunduğu diğer odalarda işlev görmemektedir.

Cevap: Yardımcı Olabilecek Varmı

Alıntı:

SanaLName Nickli Üyeden Alıntı (Mesaj 1041314110)

Dediğiniz gibi botu opers odasına aldım lakin Bot sadece #Opers odasına işlev görürken bulunduğu diğer odalarda işlev görmemektedir.

Kodu düzenledim, uykusuzluktan farklı bir kod satırı yazmışım. ;s5;s5