Code:

if {[string tolower $rest] == [string tolower $botnick]} {putserv "KICK $channel $nick :Insult this beotch! LOL"; return 0}if {$rest == ""} {                  if {$insult(who) == 0} {set rest $nick}                  if {$insult(who) == 1} {set rest [getrnduser $channel]}                 }

Code:

########################################################################                                                                     ## rssnews.tcl - RSS news announcer for eggdrop by demond@demond.net   ##                                                                     ##               this will announce the updated news from RSS feed(s), ##               periodically polling the feed(s); supports multiple   ##               channels, one feed per channel; you only need to set  ##               the feeds array, see below                            ##                                                                     ##        Usage: !rss <news#|*> (read news# or * for headlines list)   ##                                                                     ########################################################################package require Tcl 8.3package require eggdrop 1.6package require http 2.0namespace eval rssnews {# set your feed(s) sources here: channel, poll frequency in mins, feed URL#set feeds(#shu) {17 http://www.shortnews.com/rss/HighTech.xml}set feeds(#shu) {11 http://enews.ebaumsworld.com/enews.rss}set feeds(#shu) {30 http://www.davesdaily.com/rss/davesdaily.rss}set feeds(#shu) {20 http://slashdot.org/slashdot.rss}# maximum number of announced new headlines#variable maxnew 5# feed fetch timeout in seconds#variable timeout 20# public trigger flood settings#variable pubflud 5:15# support SSL feeds (requires TLS package)#variable usessl 0# if usessl is 1, request/require valid certificate from server#variable reqcert yes:no######################################################################## nothing to edit belowvariable version "rssnews-1.5"if {$usessl} {package require tls 1.5scan $reqcert {%[^:]:%s} r1 r2if {$r1 == "yes"} {set r1 1} {set r1 0}if {$r2 == "yes"} {set r2 1} {set r2 0}set ssl [list ::tls::socket -request $r1 -require $r2]::http::register https 443 $ssl}bind pub  - !rss [namespace current]::newsbind time - *    [namespace current]::timerputlog "$version by demond loaded"proc timer {min hour day month year} {variable feedsif {[info exists feeds]} {if {$min} {set min [string trimleft $min 0]}foreach {chan feed} [array get feeds] {if {$min && $min % [lindex $feed 0] == 0} {fetch [lindex $feed 1] $chan}}}}proc fetch {url chan} {variable timeoutvariable version; variable tokenset to [expr {$timeout * 1000}]set cmd [namespace current]::callback::http::config -useragent "$version by demond"if {[catch {set t [::http::geturl $url -command $cmd -timeout $to]} err]} {putlog "$version: ERROR($chan): $err"} {set token($t) $chan}}proc callback {t} {variable version; variable tokenset chan $token($t)switch -exact [::http::status $t] {"timeout" {putlog "$version: ERROR($chan): timeout"}"error" {putlog "$version: ERROR($chan): [::http::error $t]"}"ok" {if {[::http::ncode $t] != 200} {putlog "$version: ERROR($chan): [::http::code $t]"} {process [::http::data $t] $chan}}default {putlog "$version: ERROR($chan): got EOF from socket"}}::http::cleanup $t}proc process {data chan} {variable news; variable hashvariable maxnew; variable sourceset idx 1; set count 0set news($chan) {}; set source($chan) ""if {[regexp {(?i)<title>(.*?)</title>} $data -> foo]} {append source($chan) $foo}if {[regexp {(?i)<description>(.*?)</description>} $data -> foo]} {append source($chan) " | $foo"}regsub -all {(?i)<items.*?>.*?</items>} $data {} dataforeach {foo item} [regexp -all -inline {(?i)<item.*?>(.*?)</item>} $data] {regexp {(?i)<title.*?>(.*?)</title>}  $item -> titleregexp {(?i)<link.*?>(.*?)</link}     $item -> linkregexp {(?i)<desc.*?>(.*?)</desc.*?>} $item -> descrif {![info exists title]} {set title "(none)"}if {![info exists link]}  {set link  "(none)"}if {![info exists descr]} {set descr "(none)"}strip title link descrif {[info exists hash($chan)]} {if {[lsearch -exact $hash($chan) [md5 $title]] == -1 && [botonchan $chan]} {if {$count < $maxnew} {puthelp "privmsg $chan :($idx) $title"incr count} {lappend indices $idx}}}lappend news($chan) [list $title $link $descr]lappend hashes [md5 $title]incr idx}if {[info exists indices] && [botonchan $chan]} {set count [llength $indices]set indices "(indices: [join $indices {, }])"puthelp "privmsg $chan :...and $count more $indices" }set hash($chan) $hashes}proc strip {args} {variable htmlforeach a $args {upvar $a xset amp {& &}set x [string map $amp $x]set x [string map $html $x]while {[regexp -indices {(&#[0-9]{1,3};)} $x -> idxs]} {set b [lindex $idxs 0]; set e [lindex $idxs 1]set num [string range $x [expr {$b+2}] [expr {$e-1}]]if {$num < 256} {set x [string replace $x $b $e [format %c $num]]}}regexp {(?i)<!\[CDATA\[(.*?)\]\]>}   $x ->    xregsub -all {(?i)</t[dr]><t[dr].*?>} $x { | } xregsub -all {(?i)(<p>|<br>|\n)}      $x { }   xregsub -all {<[^<]+?>}               $x {}    x}}proc news {nick uhost hand chan text} {variable sourcevariable news; variable feedsvariable pcount; variable pubfludif {[info exists pcount]} {set n [lindex $pcount 1]; incr nset ts [lindex $pcount 0]set pcount [list $ts $n]scan $pubflud {%[^:]:%s} maxr maxtif {$n >= $maxr} {if {[unixtime] - $ts <= $maxt} {return}set n 1; set ts [unixtime]}} {set n 1; set ts [unixtime]}set pcount [list $ts $n]set num [lindex [split $text] 0]if {$num == ""} {puthelp "notice $nick :Usage: $::lastbind <news#|*>"return}if {$num != "*" && ![string is integer $num]} {puthelp "notice $nick :argument must be number or *"return}if {![info exists news($chan)]} {puthelp "notice $nick :no news for this channel"return}if {$num == "*"} {set idx 1if {$source($chan) != ""} {set title $source($chan)} {set title [lindex $feeds($chan) 1]}puthelp "notice $nick :News source: \002$title\002"foreach item $news($chan) {puthelp "notice $nick :($idx) [lindex $item 0]"incr idx}return 1} {if {$num < 1 || $num > [llength $news($chan)]} {puthelp "notice $nick :no such news index, try $::lastbind *"} {set idx [expr {$num-1}]puthelp "notice $nick :......title($num): [lindex [lindex $news($chan) $idx] 0]"puthelp "notice $nick :description($num): [lindex [lindex $news($chan) $idx] 2]"puthelp "notice $nick :.......link($num): [lindex [lindex $news($chan) $idx] 1]"return 1}}}variable html {"     \x22  &apos;     \x27  &      \x26  <       \x3C>       \x3E        \x20  ¡    \xA1  ¤   \xA4¢     \xA2  £    \xA3  ¥      \xA5  ¦   \xA6§     \xA7  ¨      \xA8  ©     \xA9  ª     \xAA«    \xAB  ¬      \xAC  ­      \xAD  ®      \xAE¯     \xAF  °      \xB0  ±   \xB1  ²     \xB2³     \xB3  ´    \xB4  µ    \xB5  ¶     \xB6·   \xB7  ¸    \xB8  ¹     \xB9  º     \xBA»    \xBB  ¼   \xBC  ½   \xBD  ¾   \xBE¿   \xBF  ×    \xD7  ÷   \xF7  À   \xC0Á   \xC1  Â    \xC2  Ã   \xC3  Ä     \xC4Å    \xC5  Æ    \xC6  Ç   \xC7  È   \xC8É   \xC9  Ê    \xCA  Ë     \xCB  Ì   \xCCÍ   \xCD  Î    \xCE  Ï     \xCF  Ð      \xD0Ñ   \xD1  Ò   \xD2  Ó   \xD3  Ô    \xD4Õ   \xD5  Ö     \xD6  Ø   \xD8  Ù   \xD9Ú   \xDA  Û    \xDB  Ü     \xDC  Ý   \xDDÞ    \xDE  ß    \xDF  à   \xE0  á   \xE1â    \xE2  ã   \xE3  ä     \xE4  å    \xE5æ    \xE6  ç   \xE7  è   \xE8  é   \xE9ê    \xEA  ë     \xEB  ì   \xEC  í   \xEDî    \xEE  ï     \xEF  ð      \xF0  ñ   \xF1ò   \xF2  ó   \xF3  ô    \xF4  õ   \xF5ö     \xF6  ø   \xF8  ù   \xF9  ú   \xFAû    \xFB  ü     \xFC  ý   \xFD  þ    \xFEÿ     \xFF}}