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

Selam arkadaşlar.£limde bir tane radyo-yama.tcl var.Herşey iyi güzel çalışıyor.Yalnız sorun Radyo Dinleyen kişiye 5 dk da bir her parça değişiminde

<DoStFm> Derya: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> Yavuz: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> Favori: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> SiMaLL: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> Kill: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> HeJa: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> SamYeli: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> sempatik: Radyo yayınımızı dinlediğiniz için teşekkürler..
<DoStFm> bahar: Radyo yayınımızı dinlediğiniz için teşekkürler..

ßu Şekilde Diyor..

ßuda dinleyeni baya bir kızdırıyor ikidebir nickinin anımsanması + görüntü kirliliği yapiyor.

Kişi Radyosunu açar açmaz bunu sadece 1 kereye mahsus söylesin.

Ve Son olarak Kişi Radyo Dinlediğinde +v veriyor Kişi Radyo Dinlemeyi Kestiğinde +v yi alıp -v yapsın bunu nasıl yaparız arkadaşlar..

ßuyrun Kodlar şu şekilde ;

Kod:

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

#     radyo-yama.tcl By MeCHuL

# Yayını dinleyene voice verir.

# yayını dinlediği için teşekkür eder..

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

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

set radyoip "95.168.187.16"

# Radyo portunu yazınız..

 set rport "6161"

# Radyo şifresini yazınız..

 set rsifre "!!sanadiryar++"

# 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]"

putquick "privmsg $rkanal \002[lindex $arg 5]: \002 Radyo yayınımızı dinlediğiniz için teşekkürler.."

}

}

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 \002MeCHuL"

Çok güzel bi tcl aslında vazgeçmek istemiyorum.Tcl scriptten anlayan arkadaşlar bi el atin yahu eminim yaparsınız (: