Graphics 640,480,16,2
SetBuffer BackBuffer()
AppTitle "Kleines Ratespiel by Blitzkrieg Bop =)"

SeedRnd(MilliSecs())
Zahl_1$ = Rand(1,4)





Repeat
ClsColor 129,129,129
Cls 

warten = warten + 1
Text (640/2)-10,(480/2)-100,"Welche Zahl zwischen 1 und 4 wird gezogen? Rate doch mal!",True 



If warten > 200
	Locate 250,(480/2)-50
	Zahl$ = Input(">>:")
	warten_ende = 1
	warten = 0
EndIf 




If Zahl$ = Zahl_1$    
If warten_ende = 1
	RuntimeError "Richitg! Danke fürs spielen ^^"
EndIf 
EndIf 




If Zahl$ <> Zahl_1$ And Zahl$ <> "cheatmodus on" Then 
If warten_ende = 1
	RuntimeError "Falsch! Du Looser :)"	
	End 
EndIf
EndIf 



;Cheatmodus:
If Zahl$ = "cheatmodus on"
	Text 300,250,"Die gesuchte Zahl lautet:"+" "+Zahl_1,True
	Text 300,280,"Versuchs doch nochmal :)",True 
EndIf 	





If KeyDown(1) Then
	End
EndIf 	





Flip
Forever 

Graphics 640,480, 16, 2
AppTitle "Guessme 1"

SeedRnd MilliSecs()
Dim Zahl(7)
n = 100


Text 0,0, "Mit einem 6-seitigem Würfel wird solange gewürfelt, bis eine Zahl " + n + " mal"
Text 0,10, "gewürfelt wurde. Raten Sie nun, welche Zahl dies sein wird."

.Eingabe
Locate 0,30: Tipp = Input("Ihr Tipp: ")
If Tipp < 1 Or Tipp > 6 Then 
 Text 0,40, "Bitte korrigieren sie ihre Eingabe. Die Zahl " + Tipp + " ist ungültig." 
 Goto Eingabe
EndIf

Text 0,60, "Sie haben " + Tipp + " gewählt. Drücken sie jetzt eine Taste um das Programm zu starten."
WaitKey


Repeat
 Cls

  Wurf = Rnd(0,7)
  Zahl(Wurf) = Zahl(Wurf) + 1  

  For i = 1 To 6
   Text 0,80+(i*10), "Zahl " + i + " = " + Zahl(i)  
   Color 255,0,0: If i = Tipp Then Color 0,0,255
   Line 120,85+(i*10), 120 + Zahl(i), 85+(i*10):Color 255,255,255
  Next

  For i = 1 To 6
   If Zahl(i) = n Then 
    Sieger = i  
    Color 0,255,0:Line 120,85+(i*10), 120 + Zahl(i), 85+(i*10):Color 255,255,255
    Goto Ende
   EndIf
  Next

 Flip

If KeyHit(1) Then End
Forever


.ende
Ergebnis$ = "verloren"
If Tipp = Sieger Then Ergebnis$ = "gewonnen"

Text 0,160, "Die Zahl " + Sieger + " wurde erstmals " + n + " mal gewürfelt. Sie haben"
Text 0,170, Tipp + " getippt. Damit haben sie " + Ergebnis$ + "."

WaitKey