AppTitle "Galgenmännchen"
Graphics 640,480,0,1

;Laden der Grafiken

Pfad$ = ".\Grafik\"

Galgen_staender = LoadImage (Pfad$ + "Galgen(ständer).bmp")
Galgen_stamm = LoadImage (Pfad$ + "Galgen(Stamm).bmp")
Galgen_stange = LoadImage (Pfad$ + "Galgen(Stange).bmp")
Galgen_schnur = LoadImage (Pfad$ + "Galgen(Schnur).bmp")
Galgenmaennchen_kopf = LoadImage (Pfad$ + "Galgenmännchen(Kopf).bmp")
Galgenmaenchen_Koerper = LoadImage (Pfad$ + "Galgenmännchen(Körper).bmp")
Galgenmaennchen_fuss_rechts = LoadImage (Pfad$ + "Galgenmännchen(Fuß_Rechts).bmp")
Galgenmaennchen_fuss_links = LoadImage (Pfad$ + "Galgenmännchen(Fuß_Links).bmp")

Hintergrund = LoadImage (Pfad$ + "Hintergrund.bmp")

MaskImage Galgen_Staender, 255,255,255
MaskImage Galgen_stamm, 255,255,255
MaskImage Galgen_stange, 255,255,255
MaskImage Galgen_schnur, 255,255,255
MaskImage Galgenmaennchen_kopf, 255,255,255
MaskImage Galgenmaenchen_Koerper, 255,255,255
MaskImage Galgenmaennchen_fuss_rechts, 255,255,255
MaskImage Galgenmaennchen_fuss_links, 255,255,255

;Wortschatz

Const Max = 63

.Wotschatz

Dim Wort$(Max)
Data "schule", "märchen", "haus", "hund", "mann", "frau", "wolke", "wiese", "badewanne", "windmühle", "katze", "ventilator", "gast", "bett", "gasthaus", "freund", "wanze", "käfer"
Data "vieh", "traktor", "arbeit", "junge", "mädchen", "jung", "alt", "zahl", "wort", "galgen", "galgenmännchen", "welt", "erde", "stein", "zyklop", "baumeister", "baum", "müllabfuhr"
Data "jahreszeit", "blume", "brett", "holz", "mähdrescher", "nervensäge", "altehrwürdig", "altmodisch", "neumodisch", "farbenblind", "stark", "schwach", "nervig", "stolz", "programmieren"
Data "hobbit", "wehrwolf", "blüte", "anders", "merkwürdig", "abnormal", "komisch", "weinen", "lachen", "toll", "gut", "salzig", "essen", "trinken"

SeedRnd MilliSecs()

For i = 0 To Max
   Read Wort$(i)
Next

Zufall$ = Wort$(Rand(Max))
versuche = 0
geraten$ = String$(".",Len(Zufall$))

Repeat

DrawImage Hintergrund, 0,0

 Text 20,40, Versuche

 Text 20,20, Geraten$

If Versuche > 0 Then DrawImage Galgen_staender, 60,200

If Versuche > 1 Then DrawImage Galgen_stamm, 290,40

If Versuche > 2 Then DrawImage Galgen_stange, 140,70

If Versuche > 3 Then DrawImage Galgen_schnur, 140,50

If Versuche > 4 Then DrawImage Galgenmaennchen_kopf, 200,150

If Versuche > 5 Then DrawImage Galgenmaenchen_Koerper, 205,135

If Versuche > 6 Then DrawImage Galgenmaennchen_fuss_rechts, 205,125

If Versuche > 7 Then DrawImage Galgenmaennchen_fuss_links, 175,120

 Zeichen$ = Input()
 Stelle = Instr(Zufall$,Zeichen$)
 If Stelle <> 0 Then
  Neu$ = Left$(Geraten$,Stelle - 1) + Zeichen$
  Neu$ = Neu$ + Mid$(Geraten$,Stelle+1)
  Geraten$ = Neu$
Else
Versuche = Versuche + 1
 EndIf

Flip
Until KeyDown(1) Or Versuche > 7 Or Geraten$ = Zufall$ Or Zeichen$ = ""

If Geraten$ = Zufall$ Then Goto Sieg

Text 200,60, "Du hast verloren"
Text 200,80, "Beliebige Taste drücken"
Text 200,100, "es währe " + Zufall$ + " gewesen"
WaitKey
Goto Ende

.Sieg

Text 200,60, "du hast gewonnen"
Text 200,80, "Beliebige Taste drücken"

WaitKey


.Ende
End