/*

                        Red Hat

                    written by Sharl Perro


          translated by Karpachev Vladislav (v-ad)
          localization by Конус.in.ua

    */



    include("lib/perro.inc.php");



    $little_girl = new Little_Girl;


    $mother = new Mother($little_girl);


    $grandmother = new Mother($mother);



    $mother -> Love($little_girl);


    $grandmother -> Love($little_girl);



    $little_girl -> Birthsday();



    $grandmother -> Present($little_girl, "Червона шапочка");


    $little_girl -> Walk(1);



    $neighbors = new Neighbors($little_girl);


    $neighbors -> Talk($neighbors, "Ось Червона Шапочка йде");



    $red_hat = $little_girl;


    unset($little_girl);



    sleep(rand());


    $Cake = $mother -> Make("Пиріжок");


    $mother -> Talk($red_hat, "Піди, Червона Шапочка, до бабці, віднеси їй пиріжок і горнятко масла, та дізнайся, чи вона здорова.");



    $Pot = new Pot("Масло");


    array_push($red_hat -> item, $Cake);


    array_push($red_hat -> item, $Pot);


    $grandmother_house = $grandmother->item['house'];


    $red_hat -> Walk($grandmother_house['position']);



    $forest = new Forest;


    $red_hat -> position = $forest -> position;


    $wolf = new Animal("wolf");


    $wolf -> can_talk = True;



    $wolf -> Talk($red_hat, "Куди ти ідеш, Красная Шапочка?");


    $red_hat -> Talk($wolf, "Іду до бабці, несу їй пиріжок і горнятко масла.");


    $wolf -> Talk($red_hat, "А далеко живе твоя бабця?");


    $red_hat -> Talk($wolf, "Далеко. Он в тому селі, за млином, в першій хатці з краю.");


    $wolf -> Talk($red_hat, "Добре, мала, я теж хочу навідатися до твоєї бабці. Я цією дорогою піду, а ти тією йди. Побачимо, хто перший з нас прийде.");



    $wolf -> Run(min($forest -> way), max($wolf -> spirit));



    $red_hat -> Walk(max($forest -> way));


    $red_hat -> Keep($forest -> flowers);



    if($red_hat -> position < $forest -> mill['position']){


        $wolf -> position = $grandmother_house['position'];


        $wolf -> Knocking($grandmother_house['door']);


        $grandmother -> Talk($wolf, "Хто там?");


        $wolf -> Talk($grandmother, "Це я, онучка Ваша, Червона Шапочка, я до Вас погостювати прийшла, пиріжок принесла и горнятко масла.");


        $grandmother -> ill = True;


        $grandmother -> Cover($grandmother_house['bed']);


        $grandmother -> Think($wolf->lastmessage, True);


        $grandmother -> Talk($wolf, "Смикни за мотузку, дитинко, двері і відчиняться!");


        if($wolf -> Pull($grandmother_house['door']['rope']))


            $grandmother_house['door']['status']="opened";


        $wolf -> Eat($grandmother);


        unset($grandmother);


        $grandmother = $wolf;


        $wolf -> Push($grandmother_house['door']);


        $wolf -> Cover($grandmother_house['bed']);


        $wolf -> Wait($red_hat);

    }



    $red_hat -> Knocking($grandmother_house['door']);


    $wolf -> voice['huskiness']++;


    $wolf -> Talk($red_hat, "Хто там?");



    $red_hat -> scary++;


    $red_hat -> Think($grandmother -> ill, True);


    $red_hat -> scary--;



    $red_hat -> Talk($wolf, "Це я, онучка Ваша, Червона Шапочка, я до Вас погостювати прийшла, пиріжок принесла и горнятко масла.");


    $wolf -> voice['huskiness']--;


    $wolf -> Talk($red_hat, "Смикни за мотузку, дитинко, двері і відчиняться!");


    if($red_hat -> Pull($grandmother_house['door']['rope']))


        $grandmother_house['door']['status']="opened";


    $wolf -> Hide($grandmother_house['bed']);


    $wolf -> Talk($red_hat, "Поклади, онучко, пиріжок на стіл, горнятко постав на поличку, а сама лягай коло мене!");


    $red_hat -> Cover($grandmother_house['bed']);


    $red_hat -> Talk($wolf, "Бабцю, чому у вас такі великі руки?");


    $wolf -> Talk($red_hat, "Це щоб сильніше тебе обійняти, моя дитинко.");


    $red_hat -> Talk($wolf, "Бабцю, чому у вас такі великі вуха?");


    $wolf -> Talk($red_hat, "Це щоб краще чути тебе, моя дитинко.");


    $red_hat -> Talk($wolf, "Бабцю, чому у вас такі великі очі?");


    $wolf -> Talk($red_hat, "Це щоб краще тебе бачити моя дитинко.");


    $red_hat -> Talk($wolf, "Бабцю, чому у вас такі великі зуби?");


    $wolf -> Talk($red_hat, "А це щоб швидше з'їсти тебе, дитинко!");


    $wolf -> Eat($red_hat);


        unset($red_hat);



    $loggers = new Loggers(rand(3,5));


    $loggers -> position = $grandmother_house['position'];


    $loggers -> item[]="axe";



    $loggers -> Kill($wolf);


    $result = $loggers -> Open($wolf -> body);


    unset($wolf);


    $red_hat = $result[0];


    $grandmother = $result[1];



?>