Also so sieht es ungefähr aus:
FUNCTION xButtons:
SYSTEMPOINTER TRUE
GLOBAL color1,color2,button1,button2,button3
GLOBAL mx,my,mb1,mb2
color1 = RGB(0x80, 0xff, 0xff)
color2 = RGB(0xff, 0xff, 0xb0)
button1 = FALSE
button2 = FALSE
button3 = FALSE
FOR i = 0 TO 2 // 3 x Mouse
SETACTIVEMOUSE i
MOUSESTATE mx,my,mb1,mb2
IF (i = 0 AND mb1 AND mx > 0 AND mx < 100 AND my > 0 AND my < 50) OR (i = 1 AND mb1 AND mx > 0 AND mx < 100 AND my > 0 AND my < 50) OR (i = 2 AND mb1 AND mx > 0 AND mx < 100 AND my > 0 AND my < 50)
button1 = TRUE
ENDIF
/////////////////////////////////////////
IF (i = 0 AND mb1 AND mx > 0 AND mx < 100 AND my > 100 AND my < 150) OR (i = 1 AND mb1 AND mx > 0 AND mx < 100 AND my > 100 AND my < 150) OR (i = 2 AND mb1 AND mx > 0 AND mx < 100 AND my > 100 AND my < 150)
button2 = TRUE
ENDIF
/////////////////////////////////////////
IF (i = 0 AND mb1 AND mx > 0 AND mx < 100 AND my > 200 AND my < 250) OR (i = 1 AND mb1 AND mx > 0 AND mx < 100 AND my > 200 AND my < 250) OR (i = 2 AND mb1 AND mx > 0 AND mx < 100 AND my > 200 AND my < 250)
button3 = TRUE
ENDIF
/////////////////////////////////////////
IF button1 = FALSE
DRAWRECT 0,0,100,50,color1
ELSE
DRAWRECT 0,0,100,50,color2
ENDIF
IF button2 = FALSE
DRAWRECT 0,100,100,50,color1
ELSE
DRAWRECT 0,100,100,50,color2
ENDIF
IF button3 = FALSE
DRAWRECT 0,200,100,50,color1
ELSE
DRAWRECT 0,200,100,50,color2
ENDIF
NEXT
ENDFUNCTION