Const xr=800, yr=600
Graphics xr, yr,16,2
HidePointer
Global fontButton = LoadFont("Thorndale",30,1)
Global mx, my




SetBuffer BackBuffer()
WaitMouse()

 
   For d = 0 To 25
   Viewport 0,0,xr,yr
   Cls
   Viewport 0,yr/2-d,xr,d+d+1
   drawButton("L",100,yr/2-15-3)
   drawButton("M",200,yr/2-15-3)
   drawButton("S",300,yr/2-15-3)
   drawButton("E",400,yr/2-15-3)
   Rect 0,yr/2-d,xr,1,1
   Rect 0,yr/2+d,xr,1,1
   Flip()
   Delay 1
   Next
   
   Viewport 0,0,xr,yr
   
 
   loopTimer = CreateTimer(60)
   endLoop = False
   Repeat
      mx = MouseX()
      my = MouseY()
     
      Cls
     
      Rect 0,yr/2-25,xr,1,1
      Rect 0,yr/2+25,xr,1,1
      If drawButton("L",100,yr/2-15-3) Then
         Color 255,255,255
         b1 = stretchText("eicht", 100, yr/2+22, b1, 7, 2)
      Else
         b1 = 0
      End If

     
      If drawButton("M",200,yr/2-15-3) Then
         Color 255,255,255
         b2 = stretchText("ittel", 200, yr/2+22, b2, 7, 2)
      Else
         b2 = 0
      End If
     
      If drawButton("S",300,yr/2-15-3) Then
         Color 255,255,255
         b3 = stretchText("chwer", 300, yr/2+22, b3, 7, 2)
      Else
         b3 = 0
      End If

      If drawButton("E",400,yr/2-15-3) Then
         Color 255,255,255
         b4 = stretchText("nde", 400, yr/2+22, b4, 7, 2)
         If MouseDown(1) Then endLoop = True
      Else
         b4 = 0
      End If
     
     
      Color 255, 255, 255
      Line mx - 3, my, mx + 3, my
      Line mx, my - 3, mx, my + 3
     
     
      Flip(0)
      WaitTimer(loopTimer)
   
   
   
   
   
   Until KeyDown(1) Or endLoop



End()




Function drawButton(t$="Buttontext erwartet", xpos=1, ypos=1, clickable = True)

   
   SetFont fontButton
   bxsize = StringWidth(t$)+5
   bysize = StringHeight(t$)+5
   If Len(t$) = 1 Then
      If bxsize < bysize Then bxsize = bysize Else bysize = bxsize
   End If
   miR = mouseInRect(xpos, ypos, xpos + bxsize, ypos + bysize)
         
   Color 150,150,150
   Rect xpos+1, ypos, bxsize, 1,1
   Rect xpos+1, ypos+bysize+1, bxsize, 1,1
   Rect xpos, ypos+1, 1, bysize,1
   Rect xpos+bxsize+1, ypos+1, 1, bysize,1
   Color 50,50,50
   Rect xpos+1,ypos+1,bxsize,bysize,1
   
   


   If miR And clickable Then Color 255, 255, 0 Else Color 255,255,255
   Text xpos+(bxsize-StringWidth(t$))/2+1, ypos+(bysize-StringHeight(t$))/2+1, t$
   
   Return miR

End Function


Function mouseInRect(x1, y1, x2, y2)
   If mx < x1 Or mx > x2 Then Return False
   If my < y1 Or my > y2 Then Return False
   Return True
End Function

Function stretchText(t$, x, y, p, s = 1, d = 1)
   If d = 1 Then
      one_char_size# = StringWidth("#") / 100.0
      tl = Len(t$)
      For i = 1 To tl
         Text x +  (i-1)*one_char_size# * p, y, Mid$(t$,i,1)
      Next
   Else If d = 2 Then
      one_char_size# = StringHeight(Left$(t$,1)) / 100.0
      one_char_size_w# = StringWidth("#")
      tl = Len(t$)
      For i = 1 To tl
         Text x+one_char_size_w#+(one_char_size#-StringWidth(Mid$(t$,i,1)))/2, y + (i-1)*one_char_size# * p, Mid$(t$,i,1)
      Next
   End If   
   
   p = p + s
   If p > 100 Then p = 100
   Return p

End Function


Select menustate
   Case 1
      ; Leicht
   Case 2
      ; Mittel
   Case 3
      ; Schwer
End Select

;Menü
Repeat
  select schwierigkeit
    case leicht
      Spiel (1)
    case mittel
      Spiel (2)
    case schwer
      Spiel (3)
  end select
Forever

Function Leicht()

While Not KeyHit(1)

Cls

If KeyDown(57)
...
EndIf

...


Drawimage...

...


For z=Each ...

...

Next

...

Flip

End Function

      Rect 0,yr/2-25,xr,1,1
      Rect 0,yr/2+25,xr,1,1
      If drawButton("L",100,yr/2-15-3) Then
         Color 255,255,255
         b1 = stretchText("eicht", 100, yr/2+22, b1, 7, 2)
     
hier hin
     
      Else
         b1 = 0
      End If