
21.06.2009, 17:19
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме: 1917742
Репутация:
541
|
|
php code beautifier
PHP код:
<?php
function goro( $param )
{
if( empty($param) ) {
SteelBot::CmdHelp( 'goro' );
} else {
$param = iconv( 'windows-1251', 'UTF-8', $param );
switch ( $param ) {
case "козерог":
case "овен":
case "рак":
case "весы":
case "водолей":
case "телец":
case "лев":
case "скорпион":
case "рыбы":
case "близнецы":
case "дева":
case "стрелец":
$arZod = array( 'Козерог' => 10, 'Овен' => 1, 'дева' => '9' );
$buf = file_get_contents( "http://horo.mail.ru/prediction.html?sign=" . $arZod[$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( "гороскоп1", "goro", 1, "гороскоп (знак зодиака) - гороскоп" );
?>
|
|
|