CNN News Feed Bot Script

[napa182]

copy/paste into a new remote of ur bot
trigger is @cnn <1-10>
ex: @cnn 3

<@napa182> @cnn 1
[8:41 pm] <Sick0> Haiti rubble collapse traps at least one :: Teams of rescuers in Haiti's capital rushed to the city's Caribbean Market after a machine used to clear rubble caused a secondary collapse, trapping at least one person in the rubble. Tue, 09 Feb 2010 22:14:46 EST [Full Story @] http://rss.cnn.com/~r/rss/cnn_world/~3/QjDKeOWo204/index.html

Code:

on $*:text:/^@cnn\s(\d+)$/iS:#: {
  if ($sock(cnn) || $hget(cnn)) { sockclose cnn | .hfree cnn }
  sockopen cnn rss.cnn.com 80
  sockmark cnn $calc($regml(1) + 2) msg #
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's CNN News Feed Script
  echo 12 -a A Script0rs Inc. Production
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:sockopen:cnn: {
  sockwrite -nt $sockname GET /rss/cnn_world.rss HTTP/1.1
  sockwrite -nt $sockname Host: $+(rss.cnn.com,$str($crlf,2))
}
on *:sockread:cnn: {
  var %cnn | sockread %cnn
  if ($regex(%cnn,/<title>(.+)<\/title>/)) { .hinc -m cnn feed 1 | if ($hget(cnn,feed) == $gettok($sock(cnn).mark,1,32)) { sockmark cnn $addtok($sock(cnn).mark,$regml(1) ::,32) } }
  if ($regex(%cnn,/<link>(.+)<\/link>/) && $hget(cnn,feed) == $gettok($sock(cnn).mark,1,32)) { .hadd -m cnn link 07[Full Story @]12 $regml(1) }
  if ($regex(%cnn,/<description>(.+)&lt;/) && $hget(cnn,feed) == $gettok($sock(cnn).mark,1,32)) { sockmark cnn $addtok($sock(cnn).mark,$regml(1),32)  }
  if ($regex(%cnn,/<pubDate>(.+)<\/pubDate>/) && $hget(cnn,feed) == $gettok($sock(cnn).mark,1,32)) { $gettok($sock(cnn).mark,2-,32) $regml(1) $hget(cnn,link) | .hfree cnn | sockclose cnn }
}