AppTitle "Grafik4"
Graphics 1200,800
SetBuffer BackBuffer () ;<<<<<<<<<<<<<<<<<<<<<<<< setzt Zeichenbefehle auf den Backbuffer
i=0
SeedRnd MilliSecs()
; Bunte Ellipsen
For i = 1 To 100
  Color Rand(255),Rand(255),Rand(255)
  Oval i*6,i*4, 1200-i*12,800-i*8, 0
Next
Flip ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<kopiert den Backbuffer in den Frontbuffer
WaitKey
;WaitMouse

Graphics 640,480,32,2

SeedRnd MilliSecs()

;weißer Hintergrund
ClsColor 255,255,255
Cls

;Schrift laden und anwenden
font=LoadFont("Arial",24,1,0,0)
SetFont font

;Begrüßung ausgeben
Color 62,124,219
Print "Hallo Ratefuchs, willkommen bei HANGMAN !"
Print "Du hast genau 10 Fehlversuche !"
Print ""

;START Nochmal ?
;Repeat

;Wort aussuchen
word$ = GenWord$()
geraten$ = String$("?", Len(word$))
galgen%=0

;START Galgen voll oder Wort geraten?
Repeat
;Bereits Geratenes ausgeben
Color 69,134,62
Write geraten$
Color 62,124,219
Write "     Fehlversuche: "
Color 69,134,62
Write galgen%+" von 10"
Print ""

;Buchstaben eingeben lassen

Repeat
Color 0,0,0
zeichen$ = Input()
Color 190,5,5
If Len(zeichen$)<>1 Then Print "Bitte gib nur 1 Zeichen ein !"
Until Len(zeichen$)=1

;Ist das Zeichen enthalten ?
If Instr(Upper$(word$), Upper$(zeichen$))>0 Then
Print Instr(Upper$(word$), Upper$(zeichen$))
For i% = 1 To Len(word$)
If Mid$(Upper$(word$), i%, 1) = Upper$(zeichen) Then geraten$=Left$(geraten$, i%-1)+zeichen$+Mid$(geraten$, i%+1)
Next
Else
;Galgen hochzählen
galgen%=galgen%+1
EndIf
;ENDE Galgen voll oder Wort geraten ?
Flip   ;<------------------------------------------------------------------hier Flip eingefügt
Until (galgen% >= 10) Or (Upper$(word$)=Upper$(geraten$))

;Statusmeldungen
Color 190,5,5
If galgen>=10 Then
Print "Du hast verloren ! Galgen ist voll !"
Else
Print "Du hast gewonnen ! Das Wort ist erraten !"
EndIf
Color 62,124,219
Write "Das richtige Wort lautet "
Color 69,134,62
Write word$
Color 62,124,219
Print "!"

;Abfrage NOCHMAL ?
Repeat
Color 62,124,219
Write "Nochmal (j/n): "
Color 0,0,0
nochmal$=Lower$(Input())
Until nochmal$="j" Or nochmal$="n"

;ENDE NOCHMAL ?
Repeat Until (nochmal$="n")
End

;Funktionen:
Function Genword$()
file=ReadFile ("./tiere.txt")
SeekFile (file,0)
num%=Rand (1,ReadLine(file))
For i% =1 To num%
s$ = ReadLine (file)
Next
CloseFile (file)
Return s$
End Function