While Not KeyHit(88)
Select menuestate
Case 1 ;------Terrain1x
DrawImage terrain1, 0, 0
;überprüfen, ob maus im button water1 ist:
If MouseX ()>=button_x And MouseX ()<=(52+86) Then
If MouseY ()>=button_y And MouseY ()<=(4+18) Then
;überprüfen, ob geklickt wird:
If MouseHit (1) Then menuestate = 2
EndIf ;-----------
EndIf

Case 2 ;------Terrain1x
DrawImage water1, 0, 0
;überprüfen, ob maus im button water1 ist:
If MouseX ()>=button_x And MouseX ()<=(2+50) Then
If MouseY ()>=button_y And MouseY ()<=(4+18) Then
;überprüfen, ob geklickt wird:
If MouseHit (1) Then menuestate = 1
EndIf ;-----------
EndIf




Flip
Cls
Wend

repeat
   for y = 1 to 10
      for x = 1 to 10
         print x + "*" + y + " = " + (x*y)
      next
   next

   select foo
      case bla
         print "bla"
      case moep
         print "moep"
      case blub
         print "blub"
   end select

   if abfrage=1
      machWasTolles()
   end if

until keyhit(1)

   print menustate