Graphics 1024,768,16,2
SetBuffer = BackBuffer()
AppTitle "21 - Das Kartenspiel, by Manuel Schubert"


Global x_test1 = (1024/2)-10
Global y_test1 = 534
Global x_test2 = (1024/2)-10
Global y_test2 = 654

Global x_linke_linie = -295
Global y_linke_linie = 600
Global x_rechte_linie = 605
Global y_rechte_linie = 600
Global x_quadrat = 405
Global y_quadrat = 584

; Tastenkombinationen festlegen
hoch = 200
runter = 208





Repeat



cls_mode = 1

If cls_mode = 1 Then
 ClsColor 129,129,129
  Cls
   cls_mode = 0
EndIf


ende()
linien_zeichnen()





Text (1024/2),(768/2),"Du fängst an, ziehst du?",True



Text x_test1,y_test1,"Ja",True
Text x_test2,y_test2,"Nein",True

If KeyDown(hoch) Then
  y_linke_linie = y_test1 + 4
   y_rechte_linie = y_test1 + 4
    y_quadrat = y_test1 - 8
     auswahl_ja = 1
EndIf

If KeyDown(runter) Then
  y_linke_linie = y_test2 + 4
   y_rechte_linie = y_test2 + 4
    y_quadrat = y_test2 - 8
     auswahl_nein = 1
EndIf


If auswahl_ja = 1 And KeyDown(28) Then
 End ; hier soll der komplette bildschirm anstatt end cls werden, was aber nur geht, wenn enter gerdückt bleibt....
endIf









Flip
Forever


Function ende()
If KeyDown(1) Then End
End Function

Function linien_zeichnen()
Rect x_linke_linie,y_linke_linie,700,1 ;linie links
Rect x_rechte_linie,y_rechte_linie,700,1 ;linie rechts
Rect x_quadrat,y_quadrat,200,30,0  ; quadrat
End Function

If NemmeScannen = False Then
If auswahl_ja = 1 And KeyDown(28) Then
   Cls ; hier soll der komplette bildschirm anstatt end cls werden, was aber nur geht, wenn enter gerdückt bleibt....
   Flip
   nemmeScannen = True
EndIf
Else
   Cls
End If