Post by Admin on Apr 1, 2018 19:46:17 GMT
Example of user input management (minimal CPU usage)
k%=0:resp%=0
what%=0
REM This section gives a keypressed value that can be stored to a string
REPEAT
WAIT 1
what%=FNkeychk
IF what%>0 THEN PRINT STR$(what%)+" "+CHR$(what%)
UNTIL FALSE
END
REM keep FNkeychk and FNmoucheck together
REM ****************************************************************
DEFFNkeychk
REPEAT
k% = INKEY(4)
resp%=FNmoucheck
UNTIL k%<>-1 OR resp% >0
=k%
DEF FNmoucheck
PRIVATE mx%,my%,mb%,x%,y%,b%
MOUSE x%,y%,b%
IF mx%=0 AND my%=0 AND mb%=0 THEN mx%=x%:my%=y%:mb%=b%: =-1
IF mx%=x% AND my%=y% AND mb%=b% THEN =-1 ELSE mx%=x%:my%=y%:mb%=b%:=1
REM ********* END OF EFFICIENT CONTROLS ****************************