Копипаста:История красной шапочки

<source lang="php"><?php

    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_house['door']['status']="closed";
        $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];
 
?></source>