Тема: SteelBot
Показать сообщение отдельно

  #4  
Старый 21.06.2009, 17:19
LEE_ROY
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами: 10265091

Репутация: 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, "гороскоп (знак зодиака) - гороскоп" );

?>
 
Ответить с цитированием