Kleines Mousehit Schnipselchen :)

[Schranz0r]

Net super aber funzt ganz gut...
Wers braucht, kanns geschenkt haben

Nützlich für einen Editor oder ähnliches 

Code (glbasic) Select Expand

//'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
// MAUS-FUNKTIONEN
//,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


FUNCTION InitMousehit: SYSTEM_POINTER = FALSE // Init Mousehits, please call before the While-Wend !
SYSTEMPOINTER SYSTEM_POINTER
GLOBAL __Mhit[]
DIM __Mhit[2][1]
ENDFUNCTION

FUNCTION Mousehit_left: //returns status: 0 = unpressed, 1 = Hit, 2 = Down, -1 = release

IF __Mhit[0][0] = 0 AND MOUSEAXIS(3)
__Mhit[0][0] = 1
ENDIF

RETURN __Mhit[0][0]
ENDFUNCTION

FUNCTION Mousehit_right: //returns status: 0 = unpressed, 1 = Hit, 2 = Down, -1 = release

IF __Mhit[1][0] = 0 AND MOUSEAXIS(4)
__Mhit[1][0] = 1
ENDIF

RETURN __Mhit[1][0]
ENDFUNCTION

FUNCTION UpdateMousehit: // Update Mousehits

FOR i = 0 TO 1
IF __Mhit[i][0] = 1 AND MOUSEAXIS(3+i)
__Mhit[i][0] = 2
ENDIF
IF __Mhit[i][0] = -1
__Mhit[i][0] = 0
ENDIF
IF __Mhit[i][0] = 2 AND MOUSEAXIS(3+i) = 0
__Mhit[i][0] = -1
ENDIF
NEXT

ENDFUNCTION

Code (glbasic) Select Expand


InitMousehit(TRUE)

WHILE TRUE
IF Mousehit_left() = 1
PRINT "Sollte gehen",10,100
ENDIF
UpdateMousehit()
SHOWSCREEN
WEND
END