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

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

- - Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim (https://www.ircforumlari.net/eggdrop-neostats-bnc/395349-radyo-botu-dinleyen-userlere-tesekkur-etmesini-nasil-saglayabilirim.html)

Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim

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

Cevap: Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim

Kod:

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

# 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.

Cevap: Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim

Alıntı:

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

Kod:

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

# 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.

Cevap: Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim

Kod:

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.

Cevap: Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim

Alıntı:

CoLgate Nickli Üyeden Alıntı (Mesaj 1040756889)

Kod:

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..