Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

gapex · 01 Haziran 2011, 12:06

Radyoda kim dinliyo kim dinlemio bulamıyoruz yardımcı olun lütfen dinleyenlere teşekkür ettirebilirsek iyi olcak

CLubber · 01 Haziran 2011, 14:04

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#############################################
# Radyo ip'sini yazınız..
set radyoip "83.170.93.64"
# Radyo portunu yazınız..
 set rport "2778"
# Radyo şifresini yazınız..
 set rsifre "şifre"
# 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
}

Saw'ın yazmış olduğu sanırım tcl.

İşini görecektir.

DeLiKaNLi · 02 Haziran 2011, 04:05

CLubber Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#############################################
# Radyo ip'sini yazınız..
set radyoip "83.170.93.64"
# Radyo portunu yazınız..
 set rport "2778"
# Radyo şifresini yazınız..
 set rsifre "şifre"
# 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
}

Saw'ın yazmış olduğu sanırım tcl.

İşini görecektir.

Kardes biz botu kurduk ve calisiyor. Saw hocamizdan Allah razi olsun. Yalniz bazi sorunlar war mesela dinleyene + vermiyor bu kod. Ikinci sorun galiba timer gibi biseyler war dakkada bir tsk ediyor dinleyenlere. Mesela bir kere ilk actiginda tesekkur etse ve + verse olur mu? Ve forumu baya arastirdim ama bulamadim dinlemeyenden + sini alirsa eminim butun sunucusu olan kardeslerimizin isine yariyacaktir.

Cenk · 02 Haziran 2011, 22:01

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Bu kısmı silerseniz, teşekkür etmez. Sadece voice verir.

DeLiKaNLi · 02 Haziran 2011, 22:26

CoLgate Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Bu kısmı silerseniz, teşekkür etmez. Sadece voice verir.

Kardes sildim ama hala voice vermiyor..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo dinleyen voice-devoice	Set	mIRC Scripting Hazır Kodlar	16	16 Nisan 2020 21:21
radyo dinleyen nickler ile ilgili	alphae	TCL Scriptler	4	03 Ağustos 2019 02:42
Radyo dinleyen Voice	ahmetsivas	mIRC Scripting Sorunları	4	13 Ocak 2016 16:11
Radyo dinleyen nick tcl ile ilgili.	Kombine	Eggdrop, NeoStats, BNC	15	19 Eylül 2014 21:44
Kadınınızın size nasıl hitap etmesini istersiniz?	AnqeL	Ah Kadınlar	7	27 Ocak 2012 18:35

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.