Code:

# Puh Rum Pum Pum Pum# This script will announce news just like an rss script# as well as allowing users to type commands and see# the latest news via notice as well. Fully configurable.# Enjoy, and may the force be with you.... always....# speechles was here :Ppackage require httpsetudef flag nopubnewsnamespace eval news {   # config - make your changes here   # trigger character   set ary(pref) "!"   # command used to reply to user   # this can be a list of space delimited commands   set ary(commands) "news"   # amount user can issue before throttle   set ary(throttle) 2   # throttle time   set ary(throttle_time) 30   # time to announce new news items   # this can be a list of space delimited time binds.   # the one you wish to use for bind_time uncommented.   # set ary(bind_time) "00* 15* 30* 45*" ; # every 15 minutes   # set ary(bind_time) "00* 30*" ; # every 30 minutes   set ary(bind_time) "*" ; # every 60 minutes at exactly the start of the hour   # url to news page   set ary(page) http://www.casafree.com/modules/news/   # parsing regex used to gather news   set ary(regex) {<entry .*?="(.*?)">.*?<title .*?>(.*?)</title>.*?<summary .*?>(.*?)<p}   # max amount of news items to announce   set ary(max_bot) 5   # max amount of news items for users   set ary(max_user) 5   # display format for news messages, variables are: %description, %title, %url    # these can be used and will be replaced with actual values, newline (\n) will   # let you span multiple lines if you wish. If something is too long it will   # be cut off, be aware of this... use colors, bold, but remember to \escape any   # special tcl characters.    set ary(display_format) "\[\002%title\002\] %url\n%description"   # script version   set ary(version) "2.2"}# bindsforeach bind [split $::news::ary(commands)] {   bind pub -|- "$::news::ary(pref)$bind" ::news::pub_   bind msg -|- "$::news::ary(pref)$bind" ::news::msg_}foreach bind [split $::news::ary(bind_time)] {   bind time - $bind ::news::magic_}bind time - ?0* ::news::throttleclean_namespace eval news {   # main - time bind - magic   proc magic_ {args} {      news_ $::botnick [getchanhost $::botnick] $::botnick "all" "magic"   }   # main - msg bind - notice   proc msg_ {nick uhost hand arg} {         news_ $nick $uhost $hand $nick "notice"   }   # main - pub bind - privmsg   proc pub_ {nick uhost hand chan arg} {      if {[channel get $chan nopubnews]} { return }      news_ $nick $uhost $hand $chan "privmsg"   }   # sub - give news   proc news_ {nick uhost hand chan arg} {      if {![isbotnick $nick] && [throttle_ $uhost,$chan,news $::news::ary(throttle_time)]} {         putserv "$arg $chan :$nick, you have been Throttled! Your going too fast and making my head spin!"      }      set a "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1"      set t [::http::config -useragent $a]      catch { set t [::http::geturl $::news::ary(page) -timeout 30000] } error      # error condition 1, socket error or other general error      if {![string match -nocase "::http::*" $error] && ![isbotnick $nick]} {         putserv "$arg $chan :[string totitle [string map {"\n" " | "} $error]] \( $::news::ary(page) \)"         return      }      # error condition 2, http error      if {![string equal -nocase [::http::status $t] "ok"] && ![isbotnick $nick]} {         putserv "$arg $chan :[string totitle [::http::status $t]] \( $::news::ary(page) \)"         return      }      set html [::http::data $t]      ::http::cleanup $t      set casafreenews [regexp -all -inline "$::news::ary(regex)" $html]      set c 0      foreach {junk id url title description} $casafreenews {         incr c         if {[isbotnick $nick]} {            if {$c > $::news::ary(max_bot)} { break }            if {[info exists ::news::ary(last)]} { if {$id <= $::news::ary(last)} { break } }         } elseif {$c > $::news::ary(max_user)} { break }         regsub -all -- {<.*?>} $description - description         set output [string map [list "%title" "[mapit_ $title]" "%description" "[mapit_ $description]]" "%url" "$url"] $::news::ary(display_format)]         if {![string equal "magic" $arg]} {            foreach line [split $output "\n"] { puthelp "$arg $chan :$line" }         } else {            foreach ch [channels] {               if {[channel get $ch nopubnews]} { continue }               foreach line [split $output "\n"] { puthelp "privmsg $ch :$line" }            }         }         }      if {[string equal "magic" $arg]} { set ::news::ary(last) [lindex $casafreenews 1] }   }   # sub - map it   proc mapit_ {t} { return [string map [list "'" "'" """ "\""] $t] }   # Throttle Proc (slightly altered, super action missles) - Thanks to user   # see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3   proc throttle_ {id seconds} {      if {[info exists ::news::throttle($id)]&&[lindex $::news::throttle($id) 0]>[clock seconds]} {         set ::news::throttle($id) [list [lindex $::news::throttle($id) 0] [set value [expr {[lindex $::news::throttle($id) 1] +1}]]]         if {$value > $::news::ary(throttle)} { set id 1 } { set id 0 }      } {         set ::news::throttle($id) [list [expr {[clock seconds]+$seconds}] 1]         set id 0      }   }   # sub - clean throttled users   proc throttleclean_ {args} {      set now [clock seconds]      foreach {id time} [array get ::news::throttle] {         if {[lindex $time 0]<=$now} {unset ::news::throttle($id)}      }   }}putlog "news and announce.tcl v$::news::ary(version) loaded."

Code:

on *:Join:*: {   if ($nick == $me) {     .timer.newsck 0 15 newsck     .timer.sf 0 20 soulfly    .timer.evo 0 22 evolution    .timer.chain 0 18 chainz    .timer.hawkee 0 15 hawkee    .timer.mirc 0 27 mircforum    .timer.rumbaar 0 32 rumbaar    .timer.giveaway 0 3660 giveaway  } }; Menu =====================================================================================menu channel {  Feeder  .$iif(%Feed.chainnews. [ $+ [ $active ] ] == on,$style(1)) ChainzScripts: $iif(%Feed.chainnews. [ $+ [ $active ] ] == on,unset %Feed.chainnews. [ $+ [ $active ] ],set %Feed.chainnews. [ $+ [ $active ] ] on)  .$iif(%Feed.evonews. [ $+ [ $active ] ] == on,$style(1)) Evolution: $iif(%Feed.evonews. [ $+ [ $active ] ] == on,unset %Feed.evonews. [ $+ [ $active ] ],set %Feed.evonews. [ $+ [ $active ] ] on)  .$iif(%Feed.hknews. [ $+ [ $active ] ] == on,$style(1)) Hawkee: $iif(%Feed.hknews. [ $+ [ $active ] ] == on,unset %Feed.hknews. [ $+ [ $active ] ],set %Feed.hknews. [ $+ [ $active ] ] on)  .$iif(%Feed.mircnews. [ $+ [ $active ] ] == on,$style(1)) mIRC: $iif(%Feed.mircnews. [ $+ [ $active ] ] == on,unset %Feed.mircnews. [ $+ [ $active ] ],set %Feed.mircnews. [ $+ [ $active ] ] on)  .$iif(%Feed.rumbaarnews. [ $+ [ $active ] ] == on,$style(1)) Rumbaar: $iif(%Feed.rumbaarnews. [ $+ [ $active ] ] == on,unset %Feed.rumbaarnews. [ $+ [ $active ] ],set %Feed.rumbaarnews. [ $+ [ $active ] ] on)  .$iif(%Feed.sfnews. [ $+ [ $active ] ] == on,$style(1)) SoulFly: $iif(%Feed.sfnews. [ $+ [ $active ] ] == on,unset %Feed.sfnews. [ $+ [ $active ] ],set %Feed.sfnews. [ $+ [ $active ] ] on)  .$iif(%Feed.tgnews. [ $+ [ $active ] ] == on,$style(1)) TechGear: $iif(%Feed.tgnews. [ $+ [ $active ] ] == on,unset %Feed.tgnews. [ $+ [ $active ] ],set %Feed.tgnews. [ $+ [ $active ] ] on)  .-  .Add All $chan : {    set %Feed.chainnews. [ $+ [ $active ] ] on    set %Feed.evonews. [ $+ [ $active ] ] on    set %Feed.hknews. [ $+ [ $active ] ] on    set %Feed.mircnews. [ $+ [ $active ] ] on    set %Feed.rumbaarnews. [ $+ [ $active ] ] on    set %Feed.sfnews. [ $+ [ $active ] ] on    set %Feed.tgnews. [ $+ [ $active ] ] on  }  .Remove All $chan : unset %Feed.*. [ $+ [ $active ] ]  .-  .Clear Saved Topics: unset %Topic.*}  ; Aliases ==================================================================================alias striphtml {  if (!$isid) || (!$1) return  var %H = $1 , %T = $regsub(%H,/(<[^>]+>)/g,,%H)  if ($chr(38) isin %H) {    set %H $replacecs(%H,&,&,"," ,<,< ,>,> ,&,& , ,$iif($prop,$chr($prop),$chr(32)) ,£,£ ,§,$chr(36) ,¨,¨ ,«,« ,»,» ,ß,ß, Ñ,Ñ ,ñ,ñ,',')    set %H $replacecs(%H,À,À ,Á,Á ,Â, ,Ã,à ,Ä,Ä ,Å,Å ,Æ,Æ ,à,à ,á,á ,â,â ,ã,ã ,ä,ä ,å,å ,æ,æ)    set %H $replacecs(%H,È,È,É,É,Ê,Ê,Ë,Ë,è,è,é,é,ê,ê,ë,ë,Ì,Ì,Í,Í,Î,Î,Ï,Ï,ì,ì,í,í,î,î)    set %H $replacecs(%H,ï,ï,Ò,Ò,Ó,Ó,Ô,Ô,Õ,Õ,Ö,Ö,Ø,Ø,ò,ò,ó,ó,ô,ô,õ,õ,ö,ö,ø,ø,Ù,Ù,Ú,Ú,Û,Û,Ü,Ü,Ý,Ý,ù,ù,ú,ú,û,û,ü,ü,ý,ý,ÿ,ÿ)  }  return %H}alias turl {  var %s tinyURL. $+ $ticks  sockopen %s tinyurl.com 80  sockmark %s $1 $2 $4 $5 $3}on *:sockopen:TinyURL.*: { sockwrite -tn $sockname $+(GET /api-create.php?url= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1,$crlf,Host: tinyurl.com,$crlf,$str($crlf,2)) }on *:sockread:TinyURL.*:{  var %r | sockread %r  if ($left(%r,7) == HTTP://) {    var %f 1    while ($chan(%f)) {       var %g $gettok($sock($sockname).mark,2,32) $+ . $+ $chan(%f)      if (%FEED. [ $+ [ %g ] ] == on) && (($me isop $chan(%f)) || ($me ishop $chan(%f))) {         msg $chan(%f) $gettok($sock($sockname).mark,1,32) Topic Update: $striphtml($gettok($sock($sockname).mark,5-,32)) - %r $iif($gettok($sock($sockname).mark,4,32) != n/a,- by $striphtml($gettok($sock($sockname).mark,4,32)))       }      inc %f    }  }}; Chainscriptz ===============================================================================alias chainz {  if ($status != connected) { halt }  sockclose chainforum | sockopen chainforum chainscriptz.net 80}on *:sockopen:chainforum: {   if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /chainposts.php HTTP/1.0  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)  sockwrite -n $sockname Host: chainscriptz.net  sockwrite -n $sockname $crlf}on *:sockread:chainforum: {  if ($sockerr) { echo -a Error. | halt }  var %chain | sockread %chain  if (*Chainscriptz Latest Posts* iswm %chain) {    tokenize 165 %chain    if ($3 != %Topic.CHAIN) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {       if ($regex($3,/\#entry(.*?)$/)) { set %chainnewsid $regml(1) }      ;;$turl(site,feed,title,url,by)      $turl(Chainscriptz,chainnews,$2,$3,$gettok($4,2,32))      set %Topic.CHAIN $3      unset %chainnewsid      sockclose chainforum    }  }};Evolution ====================================================================================alias evolution {  if ($status != connected) { halt }  sockclose evoforum  sockopen evoforum evolutionscriptz.com 80  if (%Topic.EVO == $null) { set %Topic.EVO on }  set %evo.check 1}on *:sockopen:evoforum: {   if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /feed.php HTTP/1.1  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)  sockwrite -n $sockname Host: evolutionscriptz.com  sockwrite -n $sockname $crlf}on *:sockread:evoforum: {  if ($sockerr > 0) return  var %evo  sockread %evo  if (%chain == 0) || (%evo.check > 4) {     sockclose $sockname     if (%evo.linktemp != $null) && (%evo.linktemp != on) && (%evo.linktemp != %Topic.EVO) {      set %Topic.EVO %evo.linktemp      ;;$turl(site,feed,title,url,by)      $turl(EvolutionScriptz,evonews,$striphtml(%evo.title),$replace(%evo.linktemp,&,&),n/a)    }    unset %evo.*   }  else {    if (%evo.check == 1) var %evor = /<entry>/ig    if (%evo.check == 2) var %evor = /<author><name><\!\[CDATA\[(.*)\]\]><\/name><\/author>/ig    if (%evo.check == 3) var %evor = /<link href="(.*)"\/>/ig    if (%evo.check == 4) var %evor = /<title type="html"><\!\[CDATA\[(.*)\]\]><\/title>/ig    if ($regex(evoforum, %evo, %evor) > 0) {      if (%evo.check == 2) { set %evo.title by $regml(evoforum,1) }      if (%evo.check == 3) { set %evo.linktemp $regml(evoforum,1) }      if (%evo.check == 4) { set %evo.title $regml(evoforum,1) %evo.title }      inc %evo.check    }  }}; Hawkee ======================================================================================alias hawkee {  if ($status != connected) { halt }  sockclose hawkeeforum  sockopen hawkeeforum hawkee.com 80  if (%Topic.HAWKEE == $null) { set %Topic.HAWKEE on }  set %hawkee.check 1}on *:sockopen:hawkeeforum: {   if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /comment.rss.php HTTP/1.1  sockwrite -n $sockname Host: www.hawkee.com  sockwrite -n $sockname $crlf}on *:sockread:hawkeeforum: {  if ($sockerr > 0) return  var %hawkee  sockread %hawkee  if (%hawkee == 0) || (%hawkee.check > 3) {     sockclose $sockname     if (%hawkee.linktemp != $null) && (%hawkee.linktemp != on) && (%hawkee.linktemp != %Topic.HAWKEE) {      set %Topic.HAWKEE %hawkee.linktemp      $turl(Hawkee,hknews,$striphtml(%hawkee.title),$replace(%hawkee.linktemp,&,&),n/a)    }    unset %hawkee.*   }  else {    if (%hawkee.check == 1) var %hawkeer = /<item>/ig    if (%hawkee.check == 2) var %hawkeer = /<title>(.*)<\/title>/ig    if (%hawkee.check == 3) var %hawkeer = /<link>(.*)<\/link>/ig    if ($regex(hawkeeforum, %hawkee, %hawkeer) > 0) {      if (%hawkee.check == 2) set %hawkee.title $regml(hawkeeforum,1)      if (%hawkee.check == 3) set %hawkee.linktemp $regml(hawkeeforum,1)      inc %hawkee.check    }  }}; mIRC ========================================================================================alias mircforum {  if ($status != connected) { halt }  sockclose mircforum  sockopen mircforum forums.mirc.com 80  if (%Topic.MIRC == $null) { set %Topic.MIRC on }  set %mirc.check 1}on *:sockopen:mircforum: {   if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /ubbthreads.php?ubb=dosearch&topic=1&fromsearch=1 HTTP/1.1  sockwrite -n $sockname Host: forums.mirc.com  sockwrite -n $sockname $crlf}on *:sockread:mircforum: {  if ($sockerr > 0) return  var %mirc 1  sockread %mirc  if (%mirc == 0) || (%mirc.check > 4) {     sockclose $sockname     if (%mirc.linktemp != $null) && (%mirc.linktemp != on) && (%mirc.linktemp != %Topic.MIRC) {      set %Topic.MIRC %mirc.linktemp      $turl(mIRC,mircnews,$striphtml(%mirc.title),http://forums.mirc.com $+ $striphtml(%mirc.linktemp),%mirc.by)      ;surl http://forums.mirc.com $+ $striphtml(%mirc.linktemp) mirc      unset %mirc.*    }  }  else {    if (%mirc.check == 1) var %mircr = /(.*)Go to first unread post in topic(.*)/ig     if (%mirc.check == 2) var %mircr = /<a href="(.*)">/ig    if (%mirc.check == 3) var %mircr = /(.*)/ig    if (%mirc.check == 4) var %mircr = /<a href="/ubbthreads.php\?ubb=showprofile\&User=(.*)">(.*)</a> /ig    if ($regex(mircforum, %mirc, %mircr) > 0) {      if (%mirc.check == 2) { set %mirc.linktemp $regml(mircforum,1) }      if (%mirc.check == 3) { set %mirc.title $regml(mircforum,1) }      if (%mirc.check == 4) { set %mirc.by $regml(mircforum,2) }      inc %mirc.check    }  }}; Rumbaar ====================================================================================alias rumbaar {  if ($status != connected) { halt }  sockclose rumbaarforum  sockopen rumbaarforum public.rumbaar.net 80  if (%Topic.RUMBAAR == $null) { set %Topic.RUMBAAR on }  set %rumbaar.check 1}on *:sockopen:rumbaarforum: {   if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /index.php?type=rss;action=.xml HTTP/1.1  sockwrite -n $sockname Host: www.public.rumbaar.neT  sockwrite -n $sockname $crlf}on *:sockread:rumbaarforum: {  if ($sockerr > 0) return  var %rumbaar  sockread %rumbaar  ;echo -a %rumbaar  if (%rumbaar == 0) || (%rumbaar.check > 3) {     sockclose $sockname     if (%rumbaar.linktemp != $null) && (%rumbaar.linktemp != on) && (%rumbaar.linktemp != %Topic.RUMBAAR) {      set %Topic.RUMBAAR %rumbaar.linktemp      ;;$turl(site,feed,title,url,by)      $turl(Rumbaar,rumbaarnews,%rumbaar.title,$replace(%rumbaar.linktemp,&,&),n/a)    }    unset %rumbaar.*   }  else {    if (%rumbaar.check == 1) var %rumbaarr = /<item>/ig    if (%rumbaar.check == 2) var %rumbaarr = /<title><!\[CDATA\[(.*)]]><\/title>/ig     if (%rumbaar.check == 3) var %rumbaarr = /<link>(.*)<\/link>/ig    if ($regex(rumbaarforum, %rumbaar, %rumbaarr) > 0) {      if (%rumbaar.check == 2) set %rumbaar.title $regml(rumbaarforum,1)      if (%rumbaar.check == 3) set %rumbaar.linktemp $regml(rumbaarforum,1)      inc %rumbaar.check    }  }}; SoulFly ====================================================================================alias soulfly { if ($status != connected) { halt } | sockclose getsf | sockopen getsf www.soulfly-irc.com 80 }on *:sockopen:getsf:{  if ($sockerr > 0) { echo -at $sockname $+ : $1- }  sockwrite -n $sockname GET /sfpost.php HTTP/1.0  sockwrite -n $sockname Host: www.soulfly-irc.com  sockwrite -n $sockname $crlf}on *:sockread:getsf: {  if ($sockerr) { sockclose $sockname | halt }  var %sf | sockread %sf  if (*SoulFly Latest Posts* iswm %sf) {    tokenize 165 %sf    if ($4 != %Topic.SF) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {      $turl(SoulFly,sfnews,$striphtml($2),$striphtml($4),$3)      set %Topic.SF $4    }    sockclose getsf  }}; TG007 =======================================================================================alias newsck { if ($status != connected) { halt } | sockclose tgnews | sockopen tgnews www.tg007.net 80 }on *:sockopen:tgnews:{  if ($sockerr) { sockclose $sockname | halt }  sockwrite -n $sockname GET /scriptsocket/tgposts.php HTTP/1.0  sockwrite -n $sockname Host: www.tg007.net $+ $crlf $+ $crlf}on *:sockread:tgnews: {  if ($sockerr) { echo -a Error. | halt }  var %newsl | sockread %newsl  if (*TG Latest Posts* iswm %newsl) {    tokenize 165 %newsl    if ($3 != %Topic.TGNEWS) && (ERROR--CAN'T CONNECT TO SERVER !isin $2-) && ($2 != $null) {       if ($regex($3,/showtopic=(.*?)&(.*?)/)) { set %tgnewsid $regml(1) }      var %c 1      while ($chan(%c)) {         if (%FEED.tgnews. [ $+ [ $chan(%c) ] ] == on) && (($me isop $chan(%c)) || ($me ishop $chan(%c))) {           msg $chan(%c) Tg007 Topic Update: $striphtml($2) $striphtml($4) - http://www.tg007.net/post/ $+ %tgnewsid          }        inc %c      }      set %Topic.TGNEWS $3      unset %tgnewsid    }    sockclose tgnews  }}