Print "Adventure Haki Haser"
Print ""
Print "Haki Haser ist ein ganz Normaler Spezialist für"
Print "Ratten und Abfall in Rattenverseuchten Abfall-"
Print "kanälen.Auch heute ist er wieder bei der Arbeit."
Print "Als er gerade eine mit Abfall vollgestopfte Ratte"
Print "findet,die in einem der rattenverseuchten Kanälen"
Print "hauste, endeckt er ein weiteres Tier,welches er "
Print "nicht kennt. Es ist grün,schleimig und guckt "
Print "ihn unglaublich böse an. Weg damit in die Abfall-"
Print "Tüte zu der Abfallgefüllten Maus. Autsch!"
Print "schreit Haki auf. Er wurde von dem besagten bös-"
Print "guckendem Tier gebissen!          Was nun?"
Print ""
Print "1=wegkicken"
Print "2=mitnehmen"
t1=Input("Was willst du tun? ")
Cls
If t1=1 Then
Print "Du schiesst das Tier im hohen Bogen durch den "
Print "Kanal und siehst es nie wieder. Niemand wusste"
Print "nun das die Aliens vom Planeten MA-DOH-NA kommen "
Print "und alle Menschen starben qualvoll an Langeweile!"
Delay 15000
End
ElseIf t1=2 Then
.s
Print "Du steckst das Tier ein und gehst aus dem Kanal"
Print "zu deinem Kumpel Schubert,welcher ebenfalls ein "
Print "ein solches Tier fand. Als ihr versehentlich auf"
Print "das eine rauftretet flutscht das Tier einfach weg"
Print "fliegt wie ein Flummi von Wand zu Wand.Dabei macht"
Print "es lustige Geräusche und leuchtet. Was tust du?"
Print ""
Print "1=gleich nochmal!"
Print "2=Einen Geistesblitz bekommen"
t1=Input("Was machst du? ") 
Else
RuntimeError "Du hättest eine Zahl angeben sollen!"
EndIf
Cls
If t1=1 Then
Goto s
ElseIf t1=2 Then
Print "Du hast einen Geistesblitz! Du willst Geld aus "
Print "der Sache machen und suchst zusammen mit Schubert"
Print "noch mehr von diesen Tierchen. Als ihr 100 "
Print "zusammen habt packt ihr die schleimigen,grünen und"
Print "böse guckenden Tiere in Tüten und schreibt "
Print "``ZAUBERFLUMMI`` darauf. Schnell ist ein Stand "
Print "aufgebaut und die Tiere werden an der Straßenecke "
Print "für 5 Euro verkauft. Die Kinder sind begeistert,und"
Print "nach einiger Zeit kommt ein kleiner Mannn mit "
Print "komisch verdrehten Augen und einer nicht zuornungs-
Print "baren Stimme vorbei. Er redet etwas unverständliches,"
Print "nimmt sich einen ``Zauberflummi`` und rennt weg."
Print "Was tust du?"
Print ""
Print "1=Hinterherlaufen"
Print "2=Egal. Es sind nur 5 Euro"
t1=Input("Was machst du? ")
Else
RuntimeError "Du hättest eine Zahl angeben sollen!"
EndIf
Cls
If t1=2 Then
Print "Zum Glück hast du ihn Laufen lassen! 10 Minuten später"
Print "kommt ein Mann der sich als Professor der Biologie "
Print "ausweist, und völlig aus dem Häuschen wegen deiner "
Print "Entdeckung ist.Er bittet dich einen Vortrag über diese"
Print "Tierchen zu halten und sie gemeinsam mit ihm zu unter-"
Print "suchen. Was tust du?"
Print ""
Print "1=Sage zu"
Print "2=Lehne ab"
t1=Input("Was machst du?")
ElseIf t1=1 Then
Print "Du rennst dem Mann hinterher. Er klettert auf den "
Print "Supermarkt und du auch. Vortan jagt ihr euch von  "
Print "Dach zu Dach. Ihr bleibt auf einer Brücke stehen "
Print "als er sich umdreht. Er meint er wäre dein "
Print "Vater! ``So ein Quatsch!`` entgegnest du und stürzt"
Print "dich auf ihn. Leider fliegt ihr dabei beide ins "
Print "Wasser und werdet vortan niewieder gesehen..."
Delay 20000
End
Else
RuntimeError "Du hättest eine Zahl angeben sollen!"
EndIf
Cls