/*

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 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];



?>

Ключевые Cлова: red_hat, Talkred_hat, grandmother, Talkwolf, дитинко, Червона, Шапочка, loggers, пиріжок, position, горнятко, mother, великі, Бабцю, little_girl, масла, Covergrandmother_housebed, бабці, Смикни, array_pushred_hat.