mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-16 03:29:30 +00:00
added better comments
for GetCoords
This commit is contained in:
parent
3460b9b78c
commit
4d840b3f82
|
@ -219,10 +219,10 @@ REM 349 WAVE 0,SIN
|
||||||
553 PRINT "CHOOSE YOUR AREA NOW.": GOSUB 400
|
553 PRINT "CHOOSE YOUR AREA NOW.": GOSUB 400
|
||||||
554 CHX = 0: CHY = 0: B = 0
|
554 CHX = 0: CHY = 0: B = 0
|
||||||
555 _KEYCLEAR
|
555 _KEYCLEAR
|
||||||
|
REM To get coordinates, comment next line (GetXY), then uncomment the line after that (GetCoords)
|
||||||
|
REM Be sure to restore for normal use. Uncomment out GetXY, comment out GetCoords
|
||||||
557 GetXY CHX, CHY
|
557 GetXY CHX, CHY
|
||||||
REM 559 IF B <> -1 THEN 555
|
REM 560 GetCoords ' use this to run in a loop to determine mouse coordinates
|
||||||
REM use GetCoords to determine mouse coordinates 560 GetCoords
|
|
||||||
REM dummy to exit while getting coordinates 561 GOSUB 20000
|
|
||||||
|
|
||||||
REM 570 IF CHX > 210 AND CHX < 225 AND CHY > 200 AND CHY < 220 THEN 1000
|
REM 570 IF CHX > 210 AND CHX < 225 AND CHY > 200 AND CHY < 220 THEN 1000
|
||||||
570 IF CHX > 236 AND CHX < 252 AND CHY > 75 AND CHY < 100 THEN 1000
|
570 IF CHX > 236 AND CHX < 252 AND CHY > 75 AND CHY < 100 THEN 1000
|
||||||
|
@ -910,7 +910,7 @@ SUB GetXY (x, y)
|
||||||
LOOP UNTIL NOT _MOUSEBUTTON(1)
|
LOOP UNTIL NOT _MOUSEBUTTON(1)
|
||||||
END SUB
|
END SUB
|
||||||
SUB GetCoords
|
SUB GetCoords
|
||||||
x = 0: y = 0
|
x = -1: y = -1
|
||||||
WHILE x <> 0
|
WHILE x <> 0
|
||||||
GetXY x, y
|
GetXY x, y
|
||||||
PRINT x
|
PRINT x
|
||||||
|
|
|
@ -5,7 +5,11 @@ You need to set the screen mode. SCREEN 11 on the first line.
|
||||||
|
|
||||||
Mouse input needs to be refactored, mouse handling is more complex now. I added a subroutine that gets the CHX, CHY, and B params.
|
Mouse input needs to be refactored, mouse handling is more complex now. I added a subroutine that gets the CHX, CHY, and B params.
|
||||||
|
|
||||||
Mouse x,y coordinates need to be recalculated due to resolution differences. Added sub GetCoords that prints the coords as you click.
|
Mouse x,y coordinates need to be recalculated due to resolution differences. Added sub GetCoords that prints the coords as you click:
|
||||||
|
REM To get coordinates, comment next line (GetXY), then uncomment the line after that (GetCoords)
|
||||||
|
REM Be sure to restore for normal use. Uncomment out GetXY, comment out GetCoords
|
||||||
|
557 GetXY CHX, CHY
|
||||||
|
REM 560 GetCoords ' use this to run in a loop to determine mouse coordinates
|
||||||
|
|
||||||
Replaced delay loops with sleep calls. 5 second delay, or press any key to advance (after music finishes).Need to flush keys afterwards _KEYCLEAR.
|
Replaced delay loops with sleep calls. 5 second delay, or press any key to advance (after music finishes).Need to flush keys afterwards _KEYCLEAR.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user