egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Radio TCL Script

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

Madalin
Master

Joined: 24 Jun 2005
Posts: 310
Location: Constanta, Romania

Posted: Sat Jan 19, 2013 9:40 am Post subject: Radio TCL Script

With this script you can connect to any shoutcast radio station and retrive informations such as 'song name/peak/unique/online etc"

Code:

#### ++++ Author: MadaliN <madalinmen28@yahoo.com>
### +++ Website: www.Ascenture.ro
## +++ TCL name: radio
# +++ Version: 3.0
# +++ Commands:
#
# !radio -activate/-deactivate (this command activates/deactivate the script on a specified channel. It can work on more channel at once with different radio stations)
# !radio -ip/-port/-name/usage (with this command you have to configure the radio script)
# !radio unique/on/peak/maxim/listeners/frequence/song (this command display specific informations about the radio server)
#
# +++ Example:
#
# !radio -activate
# !radio -ip 80.86.106.136
# !radio -port 80
# !radio -name KissFM
# !radio listeners
#
# ..this is an actual radio ip/port that works with this script.
#
######
# NOTE: This script only works with shoutcast radio servers (only)
######

bind PUBM - * radio:main
bind PUBM - * radio:commands

setudef flag radio
setudef str name
setudef str ip
setudef str port

package require http

proc radio:main {nick uhost hand chan arg} {

if {[string index $arg 0] in {! . `}} {
   set temp(cmd) [string range $arg 1 end]
   set temp(cmd) [lindex [split $temp(cmd)] 0]
   set arg [join [lrange [split $arg] 1 end]]
} elseif {[isbotnick [lindex [split $arg] 0]]} {
   set temp(cmd) [lindex [split $arg] 1]
   set arg [join [lrange [split $arg] 2 end]]
} else { return 0 }

set temp(announce) "$nick $temp(cmd) $chan"

if {[info commands ascenture:$temp(cmd)] != ""} { ascenture:$temp(cmd) $nick $uhost $hand $chan $arg }
}

proc ascenture:radio {nick uhost hand chan arg} {
global temp

if {![matchattr $hand n]} { return }

switch -exact -- [lindex [split $arg] 0] {
   unique { return }
   on { return }
   peak { return }
   maxim { return }
   listeners { return }
   frequence { return }
   song { return }
}

switch -exact [lindex [split $arg] 0] {
   -activate {
      channel set $chan +radio

      putserv "PRIVMSG $chan :\002$nick\002 - \00304radio TCL\003 has been succesfully \00312activated\003"
   }
   -deactivate -
   -dezactiveaza {
      channel set $chan -radio

      putserv "PRIVMSG $chan :\002$nick\002 - \00304radio TCL\003 has been succesfully \002dezactivat\002 deactivated"
   }
   -name -
   -nume {
      if {![llength [lindex [split $arg] 1]]} {
         putserv "PRIVMSG $chan :\002ERROR\002: You have to specify a 'radio name'"
         return
      } else {
         channel set $chan name [lindex [split $arg] 1]

         putserv "PRIVMSG $chan :\002SUCCESS\002: 'radio name' has been set to: \00312[lindex [split $arg] 1]"
      }
   }
   -ip {
      if {![llength [lindex [split $arg] 1]]} {
         putserv "PRIVMSG $chan :\002ERROR\002: You have to specify a 'radio ip'"
         return
      } else {
         channel set $chan ip [lindex [split $arg] 1]

         putserv "PRIVMSG $chan :\002SUCCESS\002: 'radio ip' has been set to: \00312[lindex [split $arg] 1]"
      }
   }
   -port {
      if {![llength [lindex [split $arg] 1]]} {
         putserv "PRIVMSG $chan :\002ERROR\002: You have to specify a 'radio port'"
         return
      } else {
         channel set $chan port [lindex [split $arg] 1]

         putserv "PRIVMSG $chan :\002SUCCESS\002: 'radio port' has been set to: \00312[lindex [split $arg] 1]"
      }
   }
   usage {
      putserv "PRIVMSG $chan :\002USAGE\002: !radio <\00303-name\003|\00303-ip\003|\00303-port\003|\00303-activate\003|\00303-deactivate\003>"
   }
}
}

proc radio:commands {nick uhost hand chan arg} {

switch -exact -- [lindex [split $arg] 1] {
   unique { radio $chan $nick unique }
   on { radio $chan $nick on }
   peak { radio $chan $nick peak }
   maxim { radio $chan $nick maxim }
   listeners { radio $chan $nick listeners }
   frequence { radio $chan $nick frecquence }
   song { radio $chan $nick song }
}
}

proc radio {chan nick type} {

set ip [channel get $chan ip]
set port [channel get $chan port]

if {[llength $ip] && [llength $port]} {
   set url "http://$ip:$port/7.html"

   set token [http::config -useragent Mozilla]
   set token [http::geturl "$url"]
   set data [::http::data $token]
   ::http::cleanup $token

   if {[channel get $chan name] == ""} { channel set $chan name "RADIO NAME IS NOT SET" }

   regexp -line {<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>(.*),(.*),(.*),(.*),(.*),(.*),(.*)</body></html>$} $data -> unique on peak maxim listeners frequence song;

   switch -exact -- $type {
      unique {
         if {$unique == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - The unique number of listeners from the servers are: \00304$unique"
      }
      on {
         if {$on == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - Online listeners on the server are: \00304$on"
      }
      peak {
         if {$peak == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - current peak is: \00304$peak"
      }
      maxim {
         if {$maxim == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - The maxim number of listeners that can connect to the servers is: \00304$maxim"
      }
      listeners {
         if {$listeners == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - The current listeners connected on the server are: \00304$listeners"
      }
      frequence {
         if {$frequence == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - The current frequence is: \00304$frequence "
      }
      song {
         if {$song == ""} { putserv "PRIVMSG $chan :\002$nick\002 - '$type' couldnt be read (the website is not providing this information)"; return }

         putserv "PRIVMSG $chan :\002$nick\002 - current song is: \00304$song"
      }
   }
}
}

putlog "++ succesfully loaded \00304Radio TCL\003"

This is the second version of this script the first one is uploaded to www.egghelp.org yet it seems that my email are not getting to the web administrator to modify the version that is currently uploaded there so i decided to post the script here.

For suggestions/new ideas/improvements dont hesitate to post here. Thanks
_________________
https://github.com/MadaliNTCL - To chat with me: https://tawk.to/MadaliNTCL

barman
Voice

Joined: 19 Sep 2007
Posts: 24

Posted: Sun Dec 24, 2017 6:15 pm Post subject: Re: Radio TCL Script

Also for radionomy?

Madalin
Master

Joined: 24 Jun 2005
Posts: 310
Location: Constanta, Romania

Posted: Mon Dec 25, 2017 9:50 am Post subject:

Only for shoutcast _________________ https://github.com/MadaliNTCL - To chat with me: https://tawk.to/MadaliNTCL

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum