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

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

- - Radyo Tcl Teşekkür Eklentisi İsteği (https://www.ircforumlari.net/eggdrop-neostats-bnc/442267-radyo-tcl-tesekkur-eklentisi-istegi.html)

Radyo Tcl Teşekkür Eklentisi İsteği

Merhabalar, daha önce verilmişse affola ama forumda aradım istedigimi bulamadım.

Benim radyo tcl var. cLubber in daha önce vermiş olduğu birkaç eklenti ile zenginleştirdik. sağolsun.

Benim isteğim ise şu. Radyo dinleyenler var bunlara voice vermek istiyorum tcl üzerinden. radyo dinleyenlere voice verdikten sonra teşekkür etsin ve ayrıca radyo dinleyenleri 5 dakikada 1 kere kontrol etsin. kontrollerde daha önce voice verilip radyo dinleyenler devoice edilmesin ama eğer radyoyu birileri kapatmışsa devoice etsin ve yeni dinleyicileride voicelesin istiyorum.

yardımlarınızı bekliyorum şimdiden teşekkürler.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

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

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

tox tşkler burdaki yama.tcl yi direk scripts bölümüne mi atacam yoksa radyo.tcl nin içine mi anlamadım

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

yama.tcl olarak kaydedin. scripts klasörüne atın.

.conf dosyanızın en altına

Kod:

source scripts/yama.tcl

ekleyin ve botu çıkartıp tekrar bağlayın.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

yaptım ama hiçbir tepki vermiyor voicede vermiyor devoice de yapmıyor herhangi bir şey yok yani.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Gerekli ayarlamaları yaptığınızdan emin olun.

Kod:

#radyo kanalı

set sc(kanal) "#radyo"

Buradaki bilginin doğru olması gerek. Küçük/büyük uyumuna dikkat edin.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

orasını da düzenledim #Radyo olarak geçiyor kanal düzenledim gene aynı tepki vermiyor.
#radyo sifre
set sc(sifre) "sifre"
set SayIp "0"

Burdaki "0" değerinide aynen bıraktım ama gene olmadı.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

PHP- Kodu:

   #radyo kanali

set sc(kanal) "#radyo" // "Büyük/Küçük harfe duyarlıdır. Dikkat ediniz."

#radyo portu

set sc(port) "PORTAdresiniz"

#radyo ip

set sc(ip) "IPAdresiniz"

#radyo sifre

set sc(sifre) "RADYOSIFRENİZ"

set SayIp "0"

Arkadaşımızın vermiş olduğu tcl'de mevcut değiştirilmesi kısımlar yukarıdadır.Başka değişiklik yapmadan Eggdrop/scripts klasörüne tcl nizi atın.

Radyo.Conf Dosyanızın en altına

PHP- Kodu:

   source scripts/radyo-yama.tcl

ekleyin.

Telnetten ;

Botunuz Sunucuda ise

cd eggdrop
ps x

kill -9 pidno

./eggdrop -m radyo.conf

Botunuzu sunucuya alın çalışacaktır.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

bende denedim Test etim calişmadi Siz ßunu caliştira bildinizmi?

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Çıkan hatayı yazarmısın puttydekini.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Alıntı:

aSi Nickli Üyeden Alıntı (Mesaj 1040993602)

Çıkan hatayı yazarmısın puttydekini.

[17:20] Tcl error [sc:dinleyici]: invalid command name "http::config"

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

PHP- Kodu:

   #############################################

 
# Radyo ip'sini yazınız..

set radyoip "IPADRESINIZ"

 
# Radyo portunu yazınız..

set rport "RADYOPORT"

 
# Radyo şifresini yazınız..

set rsifre "RADYOSIFRE"

 
# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.

# Örnek #Radyo ile #radyo farklıdır ;)

set rkanal "#Radyo"

 
 
###############################################################

###############################################################

### PROCS.......................................................

###############################################################

###############################################################

 
bind time - "* * * * *" yenidinleyici

proc yenidinleyici {min hour day month year} {

 global radyoip rsifre rport

 if {[catch {set sock [socket $radyoip $rport] } sockerror]} {

  putlog "error: $sockerror"

  return 0

  } else {

  puts $sock "GET /admin.cgi?pass=$rsifre&mode=viewxml&page=0 HTTP/1.0"

  puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

  puts $sock "Host: $radyoip"

  puts $sock "Connection: close"

  puts $sock ""

  flush $sock

  while {[eof $sock] != 1} {

   set bl [gets $sock]

   if { [string first "standalone" $bl] != -1 } {

    set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]

   }

  }

  close $sock

 }

 set voicevr [temiz $voicevr]

 set deger 0

 set ::rawcount 0

 set ipler ""

 bind raw - 352 voysver

 foreach i $voicevr {

  if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {

   incr ::rawcount

   lappend ipler "[lindex $voicevr $deger] "

  }

  incr deger

 }

 set ydeger 0

 foreach j $ipler {

  putquick "who +i [lindex $ipler $ydeger]"

  incr ydeger

 }

}

 
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }

 
proc voysver {from keyword arg} {

global rkanal

if {![isvoice [lindex $arg 5] $rkanal]} {

putquick "mode $rkanal +v [lindex $arg 5]"

}

}

 
bind raw - 315 countdusur

proc countdusur {from keyword arg} {

set ::rawcount [expr $::rawcount - 1]

if {$::rawcount == "0"} {

 unbind raw - 352 voysver

 }

}

 
proc temiz {veri} {

regsub -all \< $veri " " veri

regsub -all \/ $veri " " veri

regsub -all \> $veri " " veri

return $veri

}

 
putlog "radyo-yama.tcl By \002SaW"

Buyrun bu tcl'yi deneyin. Çalışacaktır.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Tamamdır hocam teşekkür ederim..

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

.conf dosyanıza birde

Kod:

source scripts/http.tcl

ekleyip denermisiniz.

Ayrıca http.tcl indirip scripts klasörüne atın.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

teşekkürler çalışıyor Shellhizmetleri. ama kapatanları devoice etmiyor. sadece açıp dinleyenleri voiceliyor kapatanları devoice etmiyor. onu nasıl çözebiliriz arkadaşlar. birde 1 İPten 2 kişiye sadece voice verilebilme ayarı olsaydı harika olurdu.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Teşekkür Msg ekledim fakat Bot bir kiiye teşekkür etek yerine herkeze teşekkür ediyor tekar tekrar sıklıkla :D

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

kapatanları devoice etmek için ne eklemek gerekiyor arkadaşlar daha bulamadım:S

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

zipin icindeki cıkan radyo-yama.tcl yi editleyip

Kod:

 

#radyo kanali büyük kücük fark eder

set sc(kanal) "#Radyo"

#radyo portu

set sc(port) "Radyoport"

#radyo ip

set sc(ip) "Radyoip"

#radyo sifre

set sc(sifre) "Radyosifre"

yani bu bölümü

yine zipin icindeki http.tcl ile birlikde scripts klasörünün icine atin

radyo conf dosyanizda

Kod:

 

source scripts/radyo-yama.tcl

source scripts/http.tcl

seklinde ekleyin
botunuzu yeniden calistirin

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

ekledim ama voice ediyor devoice etmiyor maalesef.

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

verdigim kodu kendi müsterilerimde kullaniyorum sorunsuz sekilde dinleyenlere + veriyor ve tesekkür ediyor kapatanlara + geri alıp yeniden dinlemesi icin radyo adresini yaziyor

Eger sizde olmuyor sa baska bir sıkınti olabilir hatayi bize yazarsaniz yardimci olabiliriz dilimiz döndügünce

Cevap: Radyo Tcl Teşekkür Eklentisi İsteği

Radyo kendine oice verip geri alıyor nasıl kapatabiliriz onu

[13:29:05] *** Radyo mode değiştirdi:-v Radyo
[13:29:05] <Radyo> Radyo Radyomuzu Kapattınız.. :(( Tekrar Dinlemek için Tıklayın >>>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »
[13:29:06] *** Radyo mode değiştirdi:+v Radyo