forum.boolean.name - Сказка про красную шапочку

Код:
<? 

  /* 

            Red Hat 

          written by Sharl Perro 



    translated by Karpachev Vladislav (v-ad) 

  */ 





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



?>
Взято отсюда.