Bilder Laden
[...]
If ImagesCollide(MouseBild,X,Y,0,ExitButton,100,100,0) And Mousehit(1) Then
end
Endif

Bilder Laden
[...]
Repeat
klick = Mousehit(1)
[...]
If ImagesCollide(MouseBild,X,Y,0,ExitButton,100,100,0) And klick = 1  Then
end
Endif
[...]

Graphics 1024,768,32,2
SetBuffer BackBuffer()

ok = LoadImage("ok1.bmp")
ok2 = LoadImage("ok2.bmp")
pointer = LoadImage ("pointer.bmp")
anwahl = 0

Repeat
Cls
x = MouseX()
y = MouseY()
If anwahl = 0 Then DrawImage ok , 200,200
If anwahl = 1 Then DrawImage ok2 , 200,200

If ImagesOverlap(ok,200,200,pointer,x,y) = 1 Then anwahl = 1
If ImagesOverlap(ok,200,200,pointer,x,y) = 0 Then anwahl = 0



If MouseHit(1) Then an_ok = 1
If anwahl = 1 And an_ok = 1 Then Goto en
DrawImage pointer,x,y

Flip
Until KeyHit(1)



.en
Graphics 1024,768,32,2
SetBuffer BackBuffer()
Text 300,300,("Vertig")
WaitKey

Graphics 640,480,32,2
SetBuffer BackBuffer()

Global mode%
Global g_mHit%,g_mx%,g_my%

AddButton("New Game",20,20,200,20,1)      ;Zwei neue Buttons hinzufügen...
AddButton("Quit",20,50,200,20,2)

timer = CreateTimer(100)      ;Timer erstellen, damit das programm nicht unnötig viel
                                          ;CPU leistung verschwendet
                                          
While True                           ;Hier wird eine Endlosschleife erstellt...

   g_mHit = MouseHit(1)         ;Da beim abfragen der Maus befehle der status (True) gelöscht wird, und bein
                                          ;nächsten Abfragen deshalb ein "0" status zurückgegeben würde, speichern wir
   g_mx = MouseX()                  ;die werte in eine Variable.
   g_my = MouseY()

  Select mode                        ;Modus wählen bzw. prüfen
    Case 0                           ;Im Fall "0" : Menu ausführen
      rMenu()         
    Case 1                           ;Im Fall "1" : Spiel ausführen
     rGame()
     Default                        ;Ansonsten : beenden (diese liste könnte man so eweig weiterführen)
      End
  End Select
   
   Flip                                 ;Backbuffer anzeigen und löschen
   Cls
   WaitTimer timer                  ;Hier wird auf den Timer gewartet
Wend
End

Type TButton                        ;Der Type der die Buttons verwaltet; Ein Type kann beliebig oft erstellt
                                          ;werden, deshalb ist er gut geeignet für die Buttons.
   Field bText$                     ;Feld "bText", enthält den Text der später angezeigt werden soll                                       
   Field x%,y%                        ;x- und y-koordinate
   Field width%,height%         ;länge und höhe der selektion (beim überfahren mit der maus)
   Field Mode%                        ;Modus, 1 = Game, 2 = Ende
End Type

Function rMenu%()
   For b.TButton = Each TButton         ;Jeden erstellten Button in einer Schleife abarbeiten
     If RectsOverlap(b\x,b\y,b\width,b\height,g_mx,g_my,1,1)   ;Wenn die Maus über dem Button ist...
         If g_mhit                                 ;Wenn die maus gedrückt wurde...
            Mode = b\Mode                        ;Wird der globalen Variable "Mode" der Wert des Buttons zugewiesen
            FlushKeys()                           ;Aktuelle key-staten löschen
         EndIf
         Color 0,0,$ff0000                     ;Html Farbe "rot" (Mouse over)
      Else
         Color 0,0,$00ffff                     ;Html Farbe "Blau"   (Normal)
      EndIf
      Text b\x,b\y,b\bText                  ;Text des Buttons an dessen x und y position anzeigen
   Next
End Function

Function rGame()
   Text 20,20,"ESC : Return to menu; Q : Quit"
   If KeyHit(1)
      Mode = 0                        ;Zurück ins Menu mit moudus "0"
      FlushKeys()
   Else If KeyHit(16)            ;Taste "q" für Quit - beenden
      End
   EndIf
End Function

Function AddButton(bText$,bX%,bY%,bWidth%,bHeight%,bMode%)   

   b.TButton = New TButton      ;Ein neues Handle der Klasse TButton erstellen
   b\x=bx                              ;Werte x,y,width (breite), height (höhe), mode und Text
   b\y=by                              ;Zuweisen
   b\width=bwidth
   b\height=bheight
   b\Mode=bMode
   b\bText=bText

End Function