TextWindow.Write("Dein Name ist ")
name = TextWindow.Read()
TextWindow.Write("Hallo, ")
TextWindow.WriteLine(name)
TextWindow.Write("Wie geht es dir?Gut oder Schlecht???")
antwort = TextWindow.Read()
If antwort = "Gut" Then
TextWindow.Write("Das ist ja schön!!!")
Else
TextWindow.Write("Das ist aber schade!!!")
Endif
TextWindow.Write("Magst du schwimmen???")
antwort = TextWindow.Read()
If antwort = "Ja" Then
TextWindow.Write("Toll.Hast du schon einen Pokal gewonnen???")
a = TextWindow.Read()
If a = "Ja" Then
TextWindow.Write("Das ist ja toll.")
Else
TextWindow.Write("Du scheinst dich wohl nicht dafür zu interessieren.")
Endif
Else
TextWindow.Write("Das ist schade.")
Endif
TextWindow.Write("hast du noch andere Hobby's???")
antwort = TextWindow.Read()
If antwort = "Ja" Then
TextWindow.Write("Erzähl mir darüber.")
a = TextWindow.Read()
If a = "Tanzen" Then
TextWindow.Write("Du hast den Rythmus voll im blut!!!")
Else
TextWindow.Write("Aha.")
Endif
Else
TextWindow.Write("Schade")
Endif
TextWindow.Write("Hast du einen Beruf oder bist du noch Schüler???")
antwort = TextWindow.Read()
If antwort = "Beruf" Then
TextWindow.Write("Dann hast du sicher viel zu tun.")
Else
TextWindow.Write("Toll,dann kannst du ja am wochenende relaxen.")
Endif
TextWindow.Write("Hast du Langeweile???")
antwort = TextWindow.Read()
If antwort = "Ja" Then
TextWindow.Write("Aha.Ich auch.lass uns einfach mal bis Tausend Zählen.1,2,3,4,5.6...7...8.....9....10...11...125.........Uff...bin ich erschöpft.")
Else
TextWindow.Write("Dann kannst du ja meine Langeweile vertreiben.")
Endif
TextWindow.Write("Magst du Pokémon???")
antwort = TextWindow.Read()
If antwort = "Ja" Then
TextWindow.Write("Dann Lass mal alle aufzählen...Bisasam,Bisaknosp,Bisaflor,Glumanda,Glutexo...,Mewtwo...Wiesor...Griffel...,Celebi...,Registeel...,Jirachi.......,Arceus...Puuuh,war das anstrengend...")
Else
TextWindow.Write("Schade...")
EndIf
TextWindow.Write("Ach ja,wie alt bist du???")
antwort = TextWindow.ReadNumber()
If antwort >= 18 Then
TextWindow.Write("Du bist ja schon erwachsen...")
ElseIf antwort <=10 Then
TextWindow.Write("Du bist ja noch sehr jung...")
Else
TextWindow.Write("Bald bist du erwachsen...")
Endif