Graphics 640,480
SetBuffer BackBuffer()
Bild = LoadImage ("bgbild.jpg")
ResizeImage bild, 640,480
PlayMusic("aufbruch1.mp3")
Name$ = Input$("Bitte gebe deinen vollständigen Namen ein : ")
Print " Willkommen in Rossmann " + Name$ + "."
Print " Um Fortzufahren bitte die Leertaste drücken"
WaitKey
Print " Sie Befinden sich in der Kosmetik-Abteilung"
Print " Wähle Deinen Artikel
Print " 8765 - Mascara
Print " 2909 - Puder
Print " 3123 - Kajal
Kosmetik = Input$("Geben sie nun die Artikelnummer ein : ")
If Kosmetik = 8765 Then Print "Sie haben Mascara gewählt"
If Kosmetik = 2909 Then Print "Sie haben Puder gewählt"
If Kosmetik = 3123 Then Print "Sie haben Kajal gewählt"
If Kosmetik = 8765 Or Kosmetik=2909 Then Print "Dieser Artikel ist nun in ihrer Einkaufsliste eingetragen.
Print " Fortfahren mit einer beliebiegen Taste " : WaitKey
Print " Möchten sie noch etwas einkaufen?"
Print " 1 - Ja "
Print " 2 - Nein"
Frage =Input$("Möchten sie noch etwas Einkaufen? : ")
 ;<---
If Frage = 1 Then
 Print " Was Möchten sie den noch Einkaufen? "
 Print " 8111 - Kondome "
 Print " 7891 - Zahnbürste"
 Print " 9081 - Kiwi"
 Einkaufen =Input$("Geben sie nun die Artikelnummer ein : ")
 If Einkaufen = 8111 Then Print " Sie haben Kondome ausgewählt"
 If Einkaufen = 7891 Then Print " Sie haben eine Zahnbürste ausgewählt"
 If Einkaufen = 9081 Then Print " Sie haben Kiwi ausgewählt"
 If Einkaufen = 9081 Or Einkaufen=7891 Then Print " Dieser Artikel ist nun in ihrer Einkaufsliste eingetragen."
EndIf
;<--
If Frage = 2 Then
 Print " Dann begeben Wir uns nun zur Kasse "
 Kasse$ = Input$("Möchten sie mit Karte oder Bar bezahlen: ")
 Print " Sie moechten also " + Kasse$ + " bezahlen"
 Print " Danke für Ihren Einkauf " + Name$
EndIf
WaitKey

Print " Willkommen beim Eis-O-Mat "
Print " Wähle deine Sorte : "
Print " 1 - Vanille"
Print " 2 - Bannane"
Print " 3 - Apfel "
Print " 4 - Himbeere"
;
Repeat
Sorte = Input$ ("Wähle eine Eis-Sorte")
Select Sorte
Case 1 Print " Sie haben Vanille gewählt "
Case 2 Print " Sie haben Bannane gewählt "
Case 3 Print " Sie haben Apfel gewählt"
Case 4 Print " Sie haben Himbeere gewählt"
Default Print " Ihre Zahl entspricht keiner Eis-Sorte - versuchen sie es noch einmal"
Antwort$ = Input$("Noch eine Kugel (ja/nein) ")
Until Antwort$ <>"ja"
End Select

Graphics 640,480,32,2
PlayMusic("Sehr_ruhig_2.mp3")    ; Musik wird abgespielt
SetBuffer BackBuffer()
bild = LoadImage ("Title welle 1.jpg") ; Hintergrundbild
DrawImage bild, 15, 15
Print " Du wurdest an Land gespült..."
Print " Auf einen Stück Papier steht ein Name doch er ist nicht lesbar"

Name$ = Input$(" Wie ist dein Name? : ")
Print "Hallo, auf der Kasopa Insel " + Name$ + "!" + " Weiter mit Eingabe Taste "

WaitKey
Print " Welcher Klasse gehörst du an? "
;

Print " 1 - Schwertmeister"
Print " 2 - Schurke"
Print " 3 - Magier"

 Repeat

Klasse = Input$ (" Wähle eine Klasse aus ")
 If Klasse = 1 Then Print Name$ + " , Du bist also ein Schwertmeister"
 If Klasse = 2 Then Print Name$ + " , Du bist also ein Schurke"
 If Klasse = 3 Then Print Name$ + " , Du bist also ein Magier"
 If Klasse >3 Then Print " Ihre Klasse existiert nicht bitte erneut auswählen.
Antwort$ = Input$("Sind diese Angaben Korrekt (j/n) ")
 Until Antwort$ <> "n" 
Print " Möchtest du jetzt die Inselerkunden"
Print " 1 - ja "
Print " 2 - nein "
 
Repeat

 Erkunden = Input$("Inselerkunden : ")
PlayMusic("aufbruch1.mp3")
 If Erkunden = 1 Then Print " Du fängst jetzt an die Insel zu erkunden" + Name$
 If Erkunden = 2 Then Print " Du möchtest wohl schlafen?! "
Antwort$ = Input$("Sind diese Angaben Korrekt (j/n) ")
Until Antwort$ <> "n"
WaitKey
 

CHANNEL=Playsound(sound)

sound = LoadSound ("Sehr_ruhig_2.mp3")
chn = PlaySound (sound)

channel:TChannel = AllocChannel()

Playsound(sound , channel)

'zum stoppen
StopChannel(channel)

'zum pausieren
PauseChannel(channel)