Показать сообщение отдельно

  #20  
Старый 18.11.2008, 22:57
aRDee
Новичок
Регистрация: 18.11.2008
Сообщений: 3
Провел на форуме:
17632

Репутация: 0
По умолчанию

Frize
есть такое,
анекдоты выдирать.
Просто добавь в default.plugin.php
PHP код:
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));}; 
и

PHP код:
SteelBot::RegisterCmd("anek","plg_anek",    1,"anek - анекдот"); 
код неказист, но рабочий)