xd.diff

--- ice2.tcl    2012-04-03 16:38:46.513068967 -0300
+++ ice2x.tcl   2012-04-03 22:13:11.907973862 -0300
@@ -20,7 +20,7 @@
 #Change these varibles to the one for your stream/bot/channel

 #Name of Radio Station
-set streamname "Radio Linuzerz"
+set streamname "Radio Linuxerz"

 #IP of the Icecast server.
 set streamip "91.121.134.23"
@@ -33,10 +33,10 @@

 #Other channel that the bot can advertise to. Bot must be in this channel for this to work. Ice2.tcl only
 # sends stream advertisements to this channel and does not send song info.
-set otherchan ""
+set otherchan "#Hackxcrack"

 #URL/Link to the stream for listening. This is what listeners need to click to tune in.
-set streamurl "http://91.121.134.23:8000/latam.ogg"
+set streamurl "http://radio.linuxerz.org"

 #How often the bot checks the stream when it knows it is down in minutes. Recommend 1 minute.
 set offlinetimer "1"
@@ -73,7 +73,7 @@
 bind pub - "%help" showcommands
 #same as %commands

-bind pub - "!sonando" status
+bind pub - "%status" status
 #Displays the status of the stream

 bind pub - "!cuantos" listenercheck
@@ -94,7 +94,7 @@
 bind msg - "djoff" dj_off_pm
 #turns off dj status

-bind pub - "!fadvert" forceadvertise
+bind pub - "%fadvert" forceadvertise
 #Forces an advertising message to be sent

 bind pub - "%version" iceversion
@@ -108,8 +108,8 @@
 set oldsong ""
 set newsong ""
 set newlistener ""
-set oldlistener ""
-set forceadsent "1"
+set oldlistener "0"
+set forceadsent "0"
 set sessionpeak "0"

 # Check to make sure StatusCheck timer isn't running when bot rehashes.
@@ -153,6 +153,7 @@
   }
 }

+
 # Turns on and off Advertising. Also lets you set the interval: !advertise X
 proc toggle_advertise {nick uhost hand chan arg} {
   global radiochan enableadvertise adtimer
@@ -189,8 +190,8 @@
 proc advertise {} {
   global radiochan streamstatus otherchan enableadvertise adtimer forceadsent streamurl streamname
   if {$streamstatus != "0" && $enableadvertise == "1"} {
-    putserv "PRIVMSG $radiochan :$streamname actualmente esta transmitiendo en vivo! Escuchar en @ $streamurl"
-    putserv "PRIVMSG $otherchan :$streamname actualmente esta transmitiendo en vivo! Escuchar en @ $streamurl"
+    putserv "PRIVMSG $radiochan :$streamname Actualmente esta transmitiendo en VIVO!! Escuchanos en @ $streamurl"
+    putserv "PRIVMSG $otherchan :$streamname Actualmente esta transmitiendo en VIVO!! Escuchanos en @ $streamurl"
     if {$forceadsent == "0"} {timer $adtimer [list advertise]} else {set forceadsent "0"}
     return 1
   }
@@ -288,7 +289,7 @@
   }
   if {[string match *streamdata* $pagedata] == 1} {
     set streamstatus "1"
-    set songlocation [string first "Current Song:" $pagedata]
+    set songlocation [string first "Actual Cancion:" $pagedata]
     set songdata1 [string range $pagedata $songlocation 99999]
     set location2 [string first "</tr>" $songdata1]
     set songdata2 [string range $songdata1 0 $location2]
@@ -297,7 +298,7 @@
     set location3 [expr $location3 - 1]
     set newsong [string range $songdata3 0 $location3]

-    set llocation [string first "Listeners:" $pagedata]
+    set llocation [string first "Oyentes:" $pagedata]
     set countdata1 [string range $pagedata $llocation 99999]
     set llocation2 [string first "</tr>" $countdata1]
     set countdata2 [string range $countdata1 0 $llocation2]
@@ -319,7 +320,7 @@
 proc status {nick uhost hand chan arg} {
   global dj radiochan newsong newlistener streamstatus streamurl streamname
   if {$streamstatus == 1} {
-    if {$newsong != "" &&  $dj == "$nick" && $arg != ""} {putserv "notice $arg :La cancion actual es |$newsong| @ $streamurl"}
+    if {$newsong != "" &&  $dj == "$nick" && $arg != ""} {putserv "notice $arg :La cancion actual es |$newsong| @ Escuchanos en $streamurl"}
     if {$newsong != "" &&  $dj != "$nick"} {
       putserv "noticia $nick :La cancion actual es |$newsong| @ $streamurl"
     }
@@ -390,7 +391,7 @@
 #      if {$arg == "Test"} {
 #        set dj "$nick"
 #        putserv "PRIVMSG $nick :You are logged in as $dj."
-#        putserv "PRIVMSG $radiochan :$dj is now rocking the turntables and accepting requests via %request, enjoy."
+#        putserv "PRIVMSG $radiochan :$dj is now rocking the turntables and accepting requests via !request, Enjoy."
 #        return 0
 #      }
     }
@@ -433,4 +434,4 @@
    }
 }

-putlog "Ice2 Version $ice2version Por Tido, Henkes, y Sircrazy esta cargando :)"
+putlog "Ice2 Version $ice2version Por Tido, Henkes, Sircrazy, Editado por Xc0re esta cargando :)"