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