<?php
function horo($param)
{
if (empty($param))
{
SteelBot::CmdHelp('horo');
}
else
{
switch ($param){
case "козерог":
case "овен":
case "рак":
case "весы":
case "водолей":
case "телец":
case "лев":
case "скорпион":
case "рыбы":
case "близнецы":
case "дева":
case "стрелец":
$param=iconv('windows-1251', 'UTF-8', $param);
$buf=file_get_contents("http://luck.ru/gor/gor.php?f=1&znak=".$param);
$buf=iconv("WINDOWS-1251", "UTF-8", $buf);
$a=explode("table", $buf);

$a[9]=strip_tags($a[9]);
$a[11]=strip_tags($a[11]);

$chislo=strpos($a[9],">");
$a[9]=substr($a[9],$chislo+1);

$chislo=strpos($a[11],">");
$a[11]=substr($a[11],$chislo+1);

$chislo=strpos($a[9],"для");
$part1=substr($a[9],0,$chislo+6);
$part2=substr($a[9],$chislo+6);

$chislo=strpos($a[11],"для");
$part3=substr($a[11],0,$chislo+6);
$part4=substr($a[11],$chislo+6);
$param=iconv("WINDOWS-1251", "UTF-8", $param);
SteelBot::Msg($part1." ".$param."
".$part2."
"."
".$part3." ".$param."
".$part4);
break;
default:
SteelBot::Msg('Неправильно введен знак зодиака. Существующие знаки зодиака:
козерог, овен, рак, весы, водолей, телец, лев, скорпион, рыбы, близнецы, дева, стрелец');
}

}
}

SteelBot::RegisterCmd("гороскоп","horo", 1,"гороскоп (знак зодиака) - гороскоп");
?>