<?php
/* Start: Donnerstag 02-Okt-1997  13:57:43 */
/* PHP3-Portierung begonnen am 22-Jan-2001, 02:30 */

  define("WORT_OBJEKT","0");
  define("WORT_ADJEKTIV","1");
  define("WORT_AKTION","2");
  define("WORT_PLURAL","3");      // Nicht in Satzdefinitionen verwenden
  define("WORT_SINGULAR","4");
  define("WORT_BEWEGUNG","5");
  define("WORT_WIEVIELE","6");
  define("WORT_RICHTUNG","7");
  define("WORT_ANZAHL","8");
  define("WORT_VERB","9");
  define("WORT_WEG","10");
  define("WORT_ORT","11");
  define("WORT_BINDEWORT","12");
  define("WORT_FRAGE","13");
  define("WORT_BEGLEITER","14");
  define("WORT_GRUND","15");
  define("WORT_IMMERWIEDER","16");
  define("WORT_OWEH","17");
  define("WORT_VORNAME","18");
  define("WORT_VORNAME_W","19");
  define("WORT_ZUSATZ","20");
  define("WORT_ZUSATZ_W","21");
  define("WORT_NACHNAME","22");
  define("WORT_ENDLIST","23");

function prepare()
{
  global $anzahl;
  global $artikelstr;
  global $satzformen;
  global $wortstamm;

  $artikelstr=array('der','die' ,'das',
               'ein','eine','ein',
               'die','die' ,'die',
               'die','die' ,'die');

  $satzformen=array(
                array(90, 1, 0, 2,255),                   // Der große Fuß schreit.
                array(90, 1, 0, 5, 7,255),                // Das lange Haar fliegt nach Asien.
                array( 1, 0, 9, 4, 0,255),                // Lange Türen machen die Zeit.
                array(90, 0, 2,253,255),                  // Der König stirbt!
                array( 0,97,91, 2,97, 9, 4, 0,255),       // Yetis, die fressen, töten das Leben.
                array(90, 1, 0,255),                      // Die blauen Augen.
                array( 1, 0,96, 1, 0,255),                // Silberne Perlen; kleine Eier.
                array( 1, 0,96,90, 1, 0,255),             // Laute Wiesen; ein heller Punkt.
                array(90, 0,10, 1,255),                   // Das Haus wird alt.
                array(90, 0,10, 1,98, 1,255),             // Ein Mann ist (zu) klein aber stark.
                array(12,91, 0, 2,255),                   // Doch der Mut stinkt.
                array(90, 0, 2,97,12,90, 0, 2,255),       // Das Herz schlägt, weil die Menschen schlafen.
                array( 5,91, 0,254,255),                  // Geht der Hut?
                array( 5,91, 0, 7,254,255),               // Fliegt ein Vogel nach Süden?
                array(13, 5,91, 0, 7,254,255),            // Warum laufen die Räder in ein Loch?
                array( 6, 0, 5, 7,254,255),               // Welche Kinder gehen nach Afrika?
                array(11, 5,91, 0,254,255),               // Wohin rennen die Löwen?
                array(11, 5,91, 0,254,11,254,255),        // Wohin rennen die Löwen? Wohin?
                array(90, 0,253,255),                     // Der Stern!
                array(90, 0,97,90, 0,253,255),            // Die Sterne, das Haus!
                array(90, 0,254,255),                     // Ein Stern?
                array(11,254,255),                        // Wohin?
                array(11,97, 0,254,255),                  // Wohin, Menschen?
                array(13,97, 0,254,255),                  // Warum, Menschen?
                array(17,253,17,253,90, 0,253,255),       // Siehe! Ah! Das Moos!
                array(17,253,90, 0, 2,253,255),           // Doch siehe! Drei Menschen kämpfen!
                array(15,16,90, 1, 0, 2, 97, 2,91, 0,255) // Weil häufig große Menschen gehen, taumelt die Erde.
             );

  include "wortstamm_furry.php";
}

function machsatz($satzform)
{
  global $satz;
  global $anzahl;
  global $artikelstr;
  global $satzformen;
  global $wortstamm;

  $einzahl=false;
  $zahlwort=false;
  $wegwort=false;

  $neusatz="";

  $einzahl=rand(0,1);

  $artikel=rand(0,2);
  $geschlecht=$artikel;

  $index=0;
  $upper=true;
  $altadjektiv=0;

  while(($wortart=$satzform[$index])!=255)
  {
    if($wortart<90)
    {
      $worte=$wortstamm[$wortart];
      if(($wortart==WORT_AKTION) && ($satzform[$index+1])==255)    // Satzende und Aktionswort?
      {
        do
        {
          $wort=$worte[rand(0,$anzahl[WORT_AKTION]-1)];    // Wort aus Aktionsliste suchen
        } while(substr($wort,0,1)!=".");                   // bis Endwort gefunden
      }
      else $wort=$worte[rand(0,$anzahl[$wortart]-1)];
    }

    switch($wortart)
    {
      case WORT_OBJEKT:
        $nutzbar=0;
        while(!$nutzbar)
        {
          if(!ereg("^[!?[0-9].*$",$wort))
          {
            echo "Das Wort '$wort' braucht eine Geschlechtsangabe!\n<br>";
            $wort="0Leben()";          // Vorgabe bei fehlerhafem Wort
          }

          if(substr($wort,0,1)=="!")
          {
            $keinein=1;                // Artikel darf nicht "ein" sein
            $wort=substr($wort,1);
          }
          else $keinein=0;

          if($einzahl)
          {
//            do
//            {
//              $wort=$worte[rand(0,$anzahl[WORT_OBJEKT]-1)];
              $geschlecht=substr($wort,0,1);
//            } while($geschlecht!=($artikel % 3));
              if($geschlecht==($artikel % 3)) $nutzbar=1;
              
            if($keinein && $artikel>2) $nutzbar=0;
          }
          else
          {
            if(strstr($wort,"(")!="") $nutzbar=1;

//            while(strstr($wort,"(")=="")                 // Suchen bis Pluralwort gefunden
//            {
//              $wort=$worte[rand(0,$anzahl[WORT_OBJEKT]-1)];
//            }
          }
          if(!$nutzbar) $wort=$worte[rand(0,$anzahl[WORT_OBJEKT]-1)];
        }

        $wort=substr($wort,1);

        if(strstr($wort,"(")!="") $wort=singplur($wort,$einzahl);
      break;

      case WORT_ADJEKTIV:
        if($wegwort) $wegwort=false;
        else
        {
          if($upper)                // Satzanfang?
          {
            $artikel+=3;
            $zahlwort=true;
          }

          if($altadjektiv)          // Aufzählung?
          {
            $worte2=$wortstamm[WORT_ADJEKTIV];
            // zwei gleiche Attribute sollen nicht auftreten
            while($altadjektiv==$wort) $wort=$worte2[rand(0,$anzahl[WORT_ADJEKTIV]-1)];
            // Leerzeichgen am Satzende löschen
            $neusatz=trim($neusatz);
            $wort=((rand(0,1)) ? ", " : " und ").$wort;
          }
          $wort.="e";

          if($einzahl)
          {
            if($artikel==3) $wort.="r";          // ein (männl.)
            else if($artikel==5) $wort.="s";     // ein (sächl.)
          }
          else if($zahlwort==false) $wort.="n";
        }
      break;

      case WORT_AKTION:
      case WORT_BEWEGUNG:
        if(substr($wort,0,1)==".") $wort=substr($wort,1);   // 1. Zeichen überspringen
        $wort=singplur($wort,$einzahl);
      break;

      case WORT_SINGULAR:
        $artikel=rand(0,$anzahl[WORT_SINGULAR]-1);

        $wort=$worte[$artikel];

        $einzahl=($artikel<6);
      break;

      case WORT_WIEVIELE:
        $einzahl=false;
      break;

      case WORT_RICHTUNG:
        $tempwort=substr($wort,1);
        if(substr($wort,0,1)=="3") $wort="nach $tempwort";
        else
        {
          $worte2=$wortstamm[WORT_SINGULAR];

          // Rausfinden, ob "ein" benutzt werden darf
          if(substr($wort,0,1)=="!")
          {
            $zufall=0;
            $wort=substr($wort,1);      // ! entfernen
            $tempwort=substr($wort,1);  // Geschlecht aus dem Wort entfernen
          }
          else $zufall=rand(0,1);

          $wort="in ".$worte2[substr($wort,0,1)+(3*$zufall)]." ".$tempwort;
        }
      break;

      case WORT_VERB:
        $wort=singplur($wort,$einzahl);
      break;

      case WORT_WEG:
        $wegwort=true;
        $wort=singplur($wort,$einzahl);
        if(rand(0,2)==1)
        {
          $worte2=$wortstamm[WORT_BEGLEITER];

          $wort=$wort." ".$worte2[rand(0,$anzahl[WORT_BEGLEITER]-1)];
        }
      break;

      case WORT_VORNAME:
      case WORT_VORNAME_W:

        $zufall=rand(0,9);

        switch($zufall)
        {
          case 1:
          case 4:
          case 7:
            $wort=$wort."-".$worte[rand(0,$anzahl[$wortart])];  // Doppelname (männl./weibl.)
          break;
          case 2:
          case 5:
            $wort.=" ".substr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",rand(0,25),1).". "; // Namensabkürzung nach Vorname
          break;
          case 3:
          case 6:
            $wort=substr("ABCDEFGHIJKLMNOPQRSTUVWXYZ",rand(0,25),1).". $wort"; // Namensabkürzung vor Vorname
        }
      break;

      case WORT_ZUSATZ:

      if(rand(0,3)!=0)
      {
        $wort="";
        $neusatz=chop($neusatz);
      }

      break;

      case 90:
        $zahlwort=false;

        if(rand(0,1))
        {
          $einzahl=true;
          $artikel=rand(0,5);
          $wort=$artikelstr[$artikel];
        }
        else
        {
          $einzahl=false;
          $artikel=1;
          $zufall=rand(0,3);
          $zufall=3;

          switch($zufall)
          {
            case 1:
              $worte2=$wortstamm[WORT_PLURAL];
              $wort=$worte2[rand(0,$anzahl[WORT_PLURAL]-1)];
              $zahlwort=false;
            break;

            case 2:
              $worte2=$wortstamm[WORT_ANZAHL];
              $wort=$worte2[rand(0,$anzahl[WORT_PLURAL]-1)];
              $zahlwort=true;
            break;

            case 3:
              $worte2=$wortstamm[WORT_ADJEKTIV];
              $wort=$worte2[rand(0,$anzahl[WORT_PLURAL]-1)];
              $altadjektiv=$wort;

              $wort.="e";
              $zahlwort=true;
            break;

            default:
              $wort=$artikelstr[$artikel];
            break;
          }
        }
      break;

      case 91:      // Geschlecht da, Artikel gesucht
        if($einzahl) $wort=$artikelstr[$artikel];
        else $wort="die";
      break;

      case 96:
        $wort=";";
        $neusatz=chop($neusatz);
      break;

      case 97:
        $wort=",";
        $neusatz=chop($neusatz);
      break;

      case 98:
        $zufall=rand(0,7);

        switch($zufall)
        {
          case 0:
            $wort="und auch";
          break;
          case 1:
            $wort="und doch";
          break;
          case 2:
            $wort="und dennoch";
          break;
          case 3:
            $wort="aber doch";
          break;
          case 4:
            $wort="aber dennoch";
          break;
          case 5:
            $wort=", nie";
            $neusatz=chop($neusatz);
          break;
          case 6:
            $wort=", meist aber";
            $neusatz=chop($neusatz);
          break;
          default:
            $wort="und";
          break;
        }

        $wegwort=true;
      break;
    }

    if($upper)
    {
      $wort=ucfirst($wort);

      $wort=ereg_replace("^ä(.*$)","Ä\\1",$wort);
      $wort=ereg_replace("^ö(.*$)","Ö\\1",$wort);
      $wort=ereg_replace("^ü(.*$)","Ü\\1",$wort);

      $upper=false;
    }

    switch($wortart)
    {
      case 253:
        $wort="!";
        $upper=true;
        $neusatz=chop($neusatz);
      break;

      case 254:
        $wort="?";
        $upper=true;
        $neusatz=chop($neusatz);
      break;
    }

    $neusatz.=$wort." ";
    $index++;
  }

  $neusatz=chop($neusatz);

  $satz=$neusatz;

  if(strlen($wort)>1) $satz.=".";
}

function singplur($wort,$einzahl)
{
  $klammer=strpos($wort,"(")+1;
  $trenner=strpos($wort,"/")+1;

  $neuwort=substr($wort,0,$klammer-1);

  if($einzahl)
  {
    if($trenner)
    {
//      StrAdd(neuwort,wort+klammer,InStr(wort,'/')-klammer)
      $neuwort.=substr($wort,$klammer,strpos($wort,"/")-$klammer);
    }
  }
  else
  {
    if(strstr($wort,"/")=="") $trenner=strpos($wort,"(")+1;
//      StrAdd(neuwort,wort+trenner,InStr(wort,')')-trenner)
    $neuwort.=substr($wort,$trenner,strpos($wort,")")-$trenner);

  }
  return $neuwort;
}

  echo "\n<!-- Lyrik V2.0 (Freeware) ©1997-2001 Dario Abatianni  -->\n\n";
  include "header.php3";

  $satzanzahl=0;
  $anzahl=array();

  prepare();
  srand(time());

  for($wortart=0;$wortart<WORT_ENDLIST;$wortart++)
  {
    $anzahl[$wortart]=count($wortstamm[$wortart]);
    if($anzahl[$wortart]==0) echo "Wortart $wortart hat keine Einträge!<br>\n";
  }

  $satzanzahl=count($satzformen);

  include "title.php3";

  for($vers=0;$vers<4;$vers++)
  {
    for($zeile=0;$zeile<4;$zeile++)
    {
      machsatz($satzformen[rand(0,$satzanzahl-1)]);

      $versenum=(($zeile) ? "&nbsp;" : ($vers+1).".");
      $verse=$satz;

      include "verse.php3";
    }
    include "separator.php3";
  }

  machsatz($satzformen[rand(0,$satzanzahl-1)]);
  $author="Aus: &raquo;".$satz."&laquo;<br>";

  $weiblich=rand(0,1);
  machsatz(array(WORT_VORNAME+$weiblich,WORT_ZUSATZ+$weiblich,WORT_NACHNAME,255));
  $author.="von $satz";

  include "author.php3";
  include "footer.php3";
?>