Macintosh-SW
/
MrCBASIC
mirror of https://github.com/stevemac321/MrCBASIC.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added better comments 

for GetCoords
This commit is contained in:
Stephen MacKenzie 2019-04-16 14:16:17 -07:00 committed by GitHub
parent 3460b9b78c
commit 4d840b3f82
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
AFRICA_FIXED.BAS
View File

@ -219,10 +219,10 @@ REM 349 WAVE 0,SIN
553 PRINT "CHOOSE YOUR AREA NOW.": GOSUB 400
554 CHX = 0: CHY = 0: B = 0
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
REM 559 IF B <> -1 THEN 555
REM use GetCoords to determine mouse coordinates 560 GetCoords
REM dummy to exit while getting coordinates 561 GOSUB 20000
REM 560 GetCoords ' use this to run in a loop to determine mouse coordinates
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
@ -910,7 +910,7 @@ SUB GetXY (x, y)
LOOP UNTIL NOT _MOUSEBUTTON(1)
END SUB
SUB GetCoords
x = 0: y = 0
x = -1: y = -1
WHILE x <> 0
GetXY x, y
PRINT x

6
README.md
View File

@ -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 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.