function plg_anek() { $c=file_get_contents('http://www.anekdot.ru/scripts/rand_anekdot.php?t=&rank=4&lim=1'); preg_match('~<pre>(.+?)</pre>~is', $c, $reg); $r=explode("</h1>",$reg[0]); $r=str_replace("</pre>","",$r[1]); $r=str_replace("<br />","\n",$r); Proto::Msg(urldecode($r));};
SteelBot::RegisterCmd("anek","plg_anek", 1,"anek - анекдот");