include "cyoad.h";


Object Keller
  with option
           "untersuche die Flaschen"
           "fege mit dem Besen"
           "schau unter den Teppich"
           "geh wieder nach oben"
           "nimm eine der Weinflaschen",
       text "Du stehst in einem Keller, den
            ein Weinregal an der gegenüberliegenden
            Wand schmückt. In einer Ecke steht ein
            Besen.^^",
       active 1 1 0 1 0,
       exec [choice;
               switch (choice) {
               0: print "Es sind leckere Tröpfchen dabei! Du
                        erwägst, eine davon mitzunehmen und
                        an diesem grauen Tag zur Aufheiterung
                        zu leeren.^^";
                  set (4, keller);
                  unset (0);
               1: print "Du machst ein bisschen sauber.
                        Unter dem Zentimeter hohen
                        Staub kommt ein Teppich zum Vorschein.^^";
                   set (2, keller);
                   unset (1, keller);
               2: print "Du erwartest eine kleine Überraschung. Doch
                        unter dem Teppich ist keine Falltür. Schade!^^";
                  unset (2);
               3: print "Du stolperst die Treppe hinauf.^^";
                  goto(Flur);
               4: print "Du nimmst eine Flasche mit, einen edlen Bordeaux
                  aus dem vergangenen Jahrzehnt.^^";
                  Keller.&active-->4 = 0;
                  if (Flur has general) {
                      set (3, Flur);
                  }
                  else {
                    give Flur general;
                  }
               }
       ];

Object Flur
  with text "Du stehst im Hausflur. Ein Regenschirm steht in der
            Ecke.^^",
       option
           "geh zurück in den Keller"
           "untersuche den Regenschirm"
           "nimm den Griff des Regenschirms ab"
           "öffne die weinflasche mit dem Regenschirm",
       active 1 1 0 0,
       exec [choice;
               switch (choice) {
               0: print "Du stolperst die Stufen hinunter...^^";
                  goto(Keller);
               1: print "Der Regenschirm ist aufklappbar.
                  Da es im Haus nicht regnet, kannst du dieses
                  Leistungsmerkmal nicht nützen. Der Griff scheint
                  abnehmbar. Käme auf einen Versuch an.^^";
                  unset (1);
                  set (2);
               2: print "Du nimmst den Griff ab, und siehe da -
                  darunter findest du einen Korkenzieher. Der
                  Schirm ist ja so vielseitig wie ein Schweizer
                  Messer!^^";
                  unset (2);
                  if (self has general) {
                      set (3);
                  }
                  else {
                    give self general;
                  }
               3: print "Du öffnest die Flasche und verströmst
                  den Geruch des Bordeaux im Raum. Der Tag ist
                  gerettet.^^-= Du hast gewonnen! =-^^";
                  game_over=true;
               }
       ];


[Init;
  print "^^^^^^Durst ist der schlimmste Feind der Zufriedenheit.^^";
  style bold;
  print "UMTRUNK^";
  style roman;
  print "Eine Demonstration von Florian Edlbauer^
        geschrieben IX/2001 in Inform 6.21^^
        Bitte drücke H für ~Hilfe~!^^";

  goto(Keller);
];


include "cyoa.h";