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

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

- - aktif yazana voice kod yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/121237-aktif-yazana-voice-kod-yardim.html)

kanalda yazana + voice yardım

Merhaba bir ricam olacak kanalda aktif yazı yazana mesala 10 satırmı kelime mi nasıl ayarlanabiliyorsa bot otomatik voice versin ve mesaj yazsın olabilirse çok memnun olurum teşekkür ederim saygılar

Cevap: aktif yazana voice kod yardım

Bunun mirc kodları verilmiş buldum ama bana tcl olan lazım yokmu yardım edebilecek bir arkadaş ?

Cevap: aktif yazana voice kod yardım

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

Yazarın Açıklaması :

Voices users who have said a certain number of lines on a channel (Active chatters). Additionally, it also devoices users who are idling for more than a certain amount of time on a channel (Unactive chatters).

Yazar : awyeah

Hazırı varken baştan yazmaya gerek yoktu.

Cevap: aktif yazana voice kod yardım

Nebiliymben saol bunu bende görmüştüm ama ben bunu süreli olanı sanmıştım karekter alıyormuş peki bir sorum daha olacak bu voice verdikten sonra msj yazmıyor ugraştım ama yapamadım :D

voice verme :

Kod:

 

proc autovoice:delay {nick chan} {

 set user [split [string tolower $nick:$chan]]

 if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {

  pushmode $chan +v $nick

  set voiced($user) 1

 }

voice alma :

Kod:

if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {

pushmode $chan -v $user

if {![info exists devoice($chan)]} {

set devoice($chan) 1

}

kısmını pushmode $chan +v $nick : başarı ile voice aldı" yaptım olmadı
putserv "NOTICE $nick :Iyi Eğlenceler dileriz.."
yaptım yine sölemedi mantıgını anlamadım :S yardımcı olursanız sevinirim

Cevap: aktif yazana voice kod yardım

Alıntı:

Neotr Nickli Üyeden Alıntı (Mesaj 496016)

Kod:

 

proc autovoice:delay {nick chan} {

 set user [split [string tolower $nick:$chan]]

 if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {

  pushmode $chan +v $nick

  set voiced($user) 1

 }

voice alma :

Kod:

if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
 pushmode $chan -v $user
 if {![info exists devoice($chan)]} {
 set devoice($chan) 1
 }

Şu şekilde değiştirirsen olabilir

Kod:

 

proc autovoice:delay {nick chan} {

set user [split [string tolower $nick:$chan]]

if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {
 pushmode $chan +v $nick
 putquick "privmsg $chan Bu voice de bizim ikramımız olsun $nick keyifli sohbetler"

set voiced($user) 1

}

digerinide aynı mantıkla yapabilirsin :)

Cevap: aktif yazana voice kod yardım

JoinT çok saolasın kardeş kaç gündür bu cevabı bekliyorum hemen deniyorum tekrar teşekkür ederim allah razı olsun.

Cevap: aktif yazana voice kod yardım

JoinT veya bilen arkadaşlar
ilk yani + vermede kod çalışıyor ama - voice de kod çalışmıyor daha dogrusu mesajı veriyor ama voicesini alamıyor bot

Kod:

if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
 pushmode $chan -v $user
 putquick "privmsg $chan Bu voice de bizim ikramımız olsun $nick keyifli sohbetler"
 if {![info exists devoice($chan)]} {
 set devoice($chan) 1
 }

veya

Kod:

if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
 pushmode $chan -v $user
 if {![info exists devoice($chan)]} {
 putquick "privmsg $chan Bu voice de bizim ikramımız olsun $nick keyifli sohbetler"
 set devoice($chan) 1
 }

şekillerinde denedim ama bir türlü -v yapmıyor ,hatam nerde acaba ?