;*******************************************
;*** Hangman                             ***
;*******************************************
;*** Von:   PowerProgrammer (Xairro)     ***
;*** Datum: Unbekannt                    ***
;*******************************************
;*** Erklärung ist überflüssig           ***
;*******************************************


If Instr(CommandLine(),"\schummler") Then megahelp = 1


Graphics 800,600,16,2
SetBuffer BackBuffer()

SeedRnd MilliSecs()

AppTitle "HangMan - by PowerProgrammer (Xairro)"

Dim Letter$(30)
Dim FarbeLetter(30)

J = 0
For I = 65 To 90
   J = J + 1
   Letter$(J) = Chr(I)
Next
Letter$(27) = "Ä"
Letter$(28) = "Ö"
Letter$(29) = "Ü"
Letter$(30) = "ß"

font1 = LoadFont("Arial Black",60,1,0,0)
SetFont font1
Text 400,300,"HangMan",1,1
Flip
figur = LoadImage("figur.bmp")
font2 = LoadFont("Arial Black",20,0,0,0)
font3 = LoadFont("Arial Black",25,0,0,0)

stream = ReadFile("worte.txt")
   anzahl = ReadLine(stream)
   Dim Worte$(anzahl)
   For I = 1 To anzahl
      Worte$(I) = ReadLine(stream)
   Next
CloseFile stream


snd_end  = LoadSound("end.wav")
;snd_main = LoadSound("song.mp3")
;LoopSound snd_main

Delay 1000

.start

AppTitle "HangMan - by PowerProgrammer (Xairro)"

;mainsound = PlaySound(snd_main)


wort$ = Worte$(Rand(anzahl))
wortklein$ = Lower(wort$)
wortlaenge = Len(wort$)
wortverlauf$ = ""
For I = 1 To wortlaenge
   wortverlauf$ = wortverlauf$ + "*"
Next

For I = 1 To 30
   FarbeLetter(I) = 0
Next

Name$ = ""
versuch = 1
megahilfe$ = ""
buchstaben_daneben$ = ""
Repeat
   If versuch = 13 Or Lower(wortverlauf$) = wortklein$ Then Exit
   Color 0,0,0
   Rect 0,0,800,600
   Color 50,50,50
   Oval 200,100,400,400
   AppTitle "HangMan - " + versuch + " - by PowerProgrammer (Xairro)"
   SetFont font2
   Color 255,0,0
   Text 400,250, wortverlauf$,1,1
   Text 400,275, megahilfe$,1,1
   DrawImageRect figur, 350,300, (versuch-1)*100,0, 100,120

   mouse_x = MouseX()
   mouse_y = MouseY()

   SetFont font3

   acegik = 0
   For I = 1 To 30
      If FarbeLetter(I) = 0 Then
         Color 0,0,255
      Else
         Color 80,80,80
      EndIf
      Text 400+Sin(I*12)*200, 300+Cos(I*12)*200, Letter$(I),1,1
      FlushMouse
      If RectsOverlap((400+Sin(I*12)*200)-15,(300+Cos(I*12)*200)-15,30,30,mouse_x,mouse_y,1,1) Then
         Color 255,255,255
         Text 400+Sin(I*12)*200,300+Cos(I*12)*200, Letter$(I),1,1
         If MouseDown(1) Then
            Name$ = Letter$(I)
            acegik = 1
            tata = 1
            FarbeLetter(I) = 1
            Repeat
            Until MouseDown(1) = 0
         EndIf
      EndIf
   Next

   SetFont font2
   Color 255,0,0

   If acegik = 0 Then
      A = GetKey()
      If A > 31 Then Name$ = Name$ + Chr$(A)
      If (A = 8) And Len(Name$) > 0 Then Name$ = Left$(Name$, Len(Name$) - 1)
   EndIf
      Text 400,550, ">" +  Name$ + "_",1,1

   If KeyHit(28) + KeyHit(156) > 0 Or tata = 1 Then
      tata = 0
      If megahelp = 1 And Name$ = "Hilfe!" Then megahilfe$ = wort$
      If Lower(Name$) = wortklein$ Then Exit
      Name$ = Lower(Left(Name$,1))

      If Name$ = "Ä" Then Name$ = "ä"
      If Name$ = "Ö" Then Name$ = "ö"
      If Name$ = "Ü" Then Name$ = "ü"

      I = 1
      ghj$ = ""
      setter = 0
      For I = 1 To wortlaenge
         ghj$ = Mid(wortklein$, I, 1)
         If ghj$ = Name$ Then
            wortverlauf$ = Left(wortverlauf$,I-1) + Upper(Name$) + Mid(wortverlauf$,I+1)
            setter = 1
         EndIf
      Next

      If Lower(wortverlauf$) = wortklein$ Then Exit
      If setter = 0 Then
         versuch = versuch + 1
      EndIf
      If Asc(Name$) > 96 And Asc(Name$) < 123 Then
         aem = Asc(Name$)-96
      Else
         If Name$ = "ä" Then aem = 27
         If Name$ = "ö" Then aem = 28
         If Name$ = "ü" Then aem = 29
         If Name$ = "ß" Then aem = 30
      EndIf
      FarbeLetter(aem) = 1
      Name$ = ""
   EndIf

   Flip
Forever

Color 0,0,0
Rect 0,0,800,600

If versuch < 13 Then
   ;StopChannel mainsound
   AppTitle "HangMan - Gewonnen - ML Soft"
   snd_end_won = PlaySound(snd_end)
   ChannelPitch snd_end_won, 22100
   Color 255,0,0
   SetFont font1
   Text 400,150,"Gewonnen",1,1
   SetFont font2
   Text 400,200,"Versuche: " + versuch,1,1
   SetFont font2
   Text 400,250,"Wort: " + wort$,1,1
Else
   ;StopChannel mainsound
   AppTitle "HangMan - Verloren - ML Soft"
   snd_end_lost = PlaySound(snd_end)
   ChannelPitch snd_end_lost, 8000
   Color 255,0,0
   SetFont font1
   Text 400,150,"Verloren",1,1
   SetFont font2
   Text 400,250,"Wort: " + wort$,1,1
EndIf

DrawImageRect figur, 350,300, (versuch-1)*100,0, 100,120

Color 255,255,255
SetFont font2
Text 400,550,"Weiter mit Tastendruck",1,1
Flip
WaitKey
FlushKeys
Goto start

If Lower(Name$) = wortklein$ Then Exit

...
SetFont font2
Text 400,550,"Weiter mit Tastendruck",1,1
Flip
WaitKey
FlushKeys : !NEU!--> versuch=0
...