Graphics 800,600,0,1
SeedRnd MilliSecs ()
;AlphaFenster///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Print "Liebe Alpha-Testerinnen und Tester."
Print "Bei dieser Version handelt es sich um eine Alpha. Das heißt, dass das Spiel noch große Lücken hat."
Print "Da gerade, dass programmieren von Spielen mit vielen Möglichkeiten sehr komplex ist bitte ich Lücken"
Print "in der Handlung zu Entschuldigen und zu melden."
Print "Nun aber viel Spaß."
WaitKey
Cls
;AlphaFenster///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Locate 0, 0
Print "Hey Kumpel. Du hast wohl gehört, dass wir einen neuen Zombie-Schlächter suchen, was?"
Print "Sag mal... Wie heißt du?
Name$ = Input()
Print "Aha " + Name + " ist ein netter Name. Der Name eines Zombie-Töters."
Print "Aber ich muss dich noch etwas fragen bevor wir oder besser gesagt du loslegen kannst."

;Der Spieler wird gefragt ob  er die Vorgeschichte kennt.///////////////////////////////////////////////////////////////////////////////////////
Print "Hast du schon jemals zuvor Tears gespielt " + Name + "?"                     
Default_Counter = 0
Repeat
Vorgeschichtenabfrage$ = Input("Ja oder Nein: ")
Print ""                     
   If Vorgeschichtenabfrage = "Ja" Or Vorgeschichtenabfrage = "JA" Or Vorgeschichtenabfrage = "ja"                              
   Default_Counter = Default_Counter +1
   Print "Dann lass uns Anfangen"                                 
   ElseIf Vorgeschichtenabfrage = "Nein" Or Vorgeschichtenabfrage = "nein" Or Vorgeschichtenabfrage = "NEIN"                           
   Default_Counter = Default_Counter +1
   Print "Dann hör mal gut zu."                                 
   Print "Vorgeschichte:"                                       
   Else                                                   
   Print "Ungültige Eingabe."                                       
   EndIf
Until Default_Counter = 1
WaitKey
Cls
;Der Spieler wird gefragt ob  er die Vorgeschichte kennt.///////////////////////////////////////////////////////////////////////////////////////

;Die Charakterbestimmung erfolgt.///////////////////////////////////////////////////////////////////////////////////////////////////////////////
Locate 0, 0
Charakterfrage_1_Counter = 0
Print "Aber " + Name + " bevor du entgültig loslegen kannst brauchst du noch eine neue Persönlichkeit.
Print "Möchtest du einen vordefinierten Charakter?
Default_Counter = 0
Repeat
Charakterfrage_1$ = Input("Ja oder Nein: ")
   If Charakterfrage_1 = "Ja" Or Charakterfrage_1 = "JA" Or Charakterfrage_1 = "ja"
   Default_Counter = Default_Counter + 1
   Print "Du hast die Wahl zwischen den folgenden Charakteren:
   Print "Da wäre Lisa, die hübsche ehemalige Psychologie- und Mathematik Professorin.
   Print "Oder Armin, der einschüchternde Ex-Navi Seal und Überlebenskünstler.
   Charakterfrage_1_Counter = Charakterfrage_1_Counter + 1
   ElseIf Charakterfrage_1 = "Nein"
   Default_Counter = Default_Counter + 1
   Charakterfrage_1_Counter = Charakterfrage_1_Counter + 2
   Else
   Print "Ungültige Eingabe."
   EndIf
   Until Default_Counter = 1
   
;Funktion vordefinierter Charakter**************************************************************************************************************
Repeat
   If Charakterfrage_1_Counter = 1
   Default_Counter = 0
   Charakterfrage_2$ = Input("Drücke L für Lisa oder A für Armin: ")
   EndIf
   
   If Charakterfrage_2 = "L" Or Charakterfrage_2 = "l"
   Default_Counter = Default_Counter + 1
   Print "Ok. Lisa wird nun zu " + Name + "."
   Print "Jetzt kann alles losgehen."
   ElseIf Charakterfrage_2 = "A" Or Charakterfrage_2 = "a"
   Default_Counter = Default_Counter + 1
   Print "Ok. Armin wird nun zu " + Name + "."
   Print "Jetzt kann alles losgehen."
   Else
   Print "Ungültige Eingabe."
   EndIf
Until    Default_Counter = 1
;Funktion vordefinierter Charakter**************************************************************************************************************

;Funktion eigener Charakter*********************************************************************************************************************



Fehlt noch















;Funktion eigener Charakter*********************************************************************************************************************

WaitKey

;Die Charakterbestimmung erfolgt.///////////////////////////////////////////////////////////////////////////////////////////////////////////////

;Die Szene im Keller von Gebäude A./////////////////////////////////////////////////////////////////////////////////////////////////////////////
Cls
Locate 0, 0
Print "Du wachst langsam und mit schmerzenden Knochen auf.
Print "Du befindest dich nicht in deinem Bett im Hotel von Neu-Anfang sondern in einem kalten Keller."
Print "Nur durch zugezimmerte Fenster fällt etwas Licht."
Print "Neben dir befinden sich noch drei weitere Personen in diesem Keller, die aber noch schlafen."

Default_Counter = 0
Repeat
Handlungsfrage_1$ = Input("Möchtest du dich UMSEHEN, WARTEN oder die anderen WECKEN?: ")
Knall_Counter_Frage = 0
   Print ""
   If Handlungsfrage_1 = "Umsehen"
   Default_Counter = Default_Counter + 1
   Print "Als du dich umsiehst siehst du, dass es außer euch Vieren nur eine Tür in diesem Raum gibt."
   Print "Nachdem du dich umgesehen hast ertönt in der Ferne ein lauter Knall, der die Anderen weckt."
   Print "Möchtest du Versuchen den Knall zu identifizieren?"
   Knall_Counter_Frage = Knall_Frage + 1
   ElseIf Handlungsfrage_1 = "Warten"
   Default_Counter = Default_Counter + 1
   Print "Nachdem du eine Zeit lang gewartet hast hörst du einen sehr lauten Knall in weiter Ferne."
   Print "Möchtest du Versuchen ihn zu identifizieren?
   Knall_Counter_Frage = Knall_Counter_Frage + 1
   ElseIf Handlungsfrage_1 = "Wecken"
   Default_Counter = Default_Counter + 1
   Print "Du weckst die Anderen und Ihr stellt euch gegenseitig vor."
   Print "Die drei Personen heißen Dieter, Anna-Maria und Steffen."
   Print "Während ihr euch noch gegenseitig vorstellt hört ihr einen lauten Knall in der Ferne."
   Print "Dieter kann es eindeutig als Explosion eines Treibstofftanks identifizieren"
   Print "und Anna-Maria erinnert sich, dass das Osttor von Neu-Anfang heute einen neuen Treibstofftank"
   Print "bekommen sollte."
   Print ""
   Print "Während ihr noch darüber rätselt, was am Osttor passiert ist, hört ihr vor der Tür zwei Männer."
   Else
   Print "Ungültige Eingabe."
   EndIf
Until Default_Counter = 1
   Knallfrage = 0
   If Knall_Counter_Frage = 1
   Knall_Frage = Input("Ja oder Nein?: ")
   Else
   Knall_Frage = 524
   EndIf

   If Knallfrage = "Ja" Or Knallfrage = "JA" Or Knallfrage = "ja"
   ElseIf Knallfrage = "Nein" Or Knallfrage = "nein" Or Knallfrage = "NEIN"
   Print "Du entscheidest dich gegen die Identifizierung."
   EndIf
WaitKey
End

Situation 1:
Text=Du stehst vor einer Tür. Was machst du?
Auswahl1Cond=öffnen
Auswahl1Ziel=2
Auswahl2Cond=eintreten
Auswahl2Ziel=3

Situation 2:
Text=Du hast die Tür geöffnet
....

Situation 3:
Text=Du hast die Tür eingetreten
....