<?
/*
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];
?>
Bookmarks