QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-16 06:05:14 +00:00
Code Releases Wiki Activity

Adapts theBOB's samples so they don't use ABSOLUTE.

Browse source 
Thanks to Simmons for the conversion utility https://www.tapatalk.com/groups/qbasic/viewtopic.php?p=204977#p204977
This commit is contained in:
FellippeHeitor 2020-04-03 15:07:38 -03:00
parent 702e0f708a
commit d4ef195bd1
9 changed files with 216 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
programs/samples/thebob/abacus/abacus12.bas
View file

@ -216,7 +216,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$) mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, mouse) CALL ABSOLUTE_MOUSE_EMU (LB, RB, MX, MY)
END SUB END SUB
@ -261,3 +261,22 @@ SUB ShowMOUSE
LB = 1 LB = 1
MouseDRIVER LB, 0, 0, 0 MouseDRIVER LB, 0, 0, 0
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/animax/animax.bas
View file

@ -1433,7 +1433,7 @@ SUB MouseDRIVER (LB, RB, Mx, My)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$) mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, Mx, My, mouse) CALL ABSOLUTE_MOUSE_EMU (LBLB, RB RB, MX Mx, MY My)
END SUB END SUB
@ -2198,3 +2198,22 @@ ScalePIXELy = PixelY * Scale + 51
RETURN RETURN
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/chess/chesssubs.bas
View file

@ -221,7 +221,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$) mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLB, RB RB RB, MX Mx MX, MY My MY)
END SUB END SUB
@ -299,3 +299,22 @@ SUB ShowMOUSE
LB = 1 LB = 1
MouseDRIVER LB, 0, 0, 0 MouseDRIVER LB, 0, 0, 0
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/chopper/chopper.bas
View file

@ -2439,7 +2439,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLB, RB RB RB RB, MX Mx MX MX, MY My MY MY)
END SUB END SUB
@ -3343,3 +3343,22 @@ NEXT n
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/kong/kong.bas
View file

@ -847,7 +847,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLB, RB RB RB RB RB, MX Mx MX MX MX, MY My MY MY MY)
END SUB END SUB
@ -1221,3 +1221,22 @@ Item = 0
RETURN RETURN
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/leapfrog/leapfrog.bas
View file

@ -538,7 +538,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, mX, mY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLB, RB RB RB RB RB RB, MX Mx MX MX MX mX, MY My MY MY MY mY)
END SUB END SUB
@ -627,3 +627,22 @@ SUB ShowMOUSE
LB = 1 LB = 1
MouseDRIVER LB, 0, 0, 0 MouseDRIVER LB, 0, 0, 0
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/minigolf/mg.bas
View file

@ -701,7 +701,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLB, RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX, MY My MY MY MY mY MY)
END SUB END SUB
@ -1973,3 +1973,22 @@ RETURN
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/pongg/pongg.bas
View file

@ -702,7 +702,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLBLB, RB RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX MX, MY My MY MY MY mY MY MY)
END SUB END SUB
@ -797,3 +797,22 @@ DEF SEG
PUT (198, 178), BigBOX(), PSET PUT (198, 178), BigBOX(), PSET
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/sol/sol3.bas
View file

@ -369,7 +369,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
DEF SEG = VARSEG(MouseDATA$) DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$) Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, mX, mY, Mouse) CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLBLBLB, RB RB RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX MX mX, MY My MY MY MY mY MY MY mY)
END SUB END SUB
@ -1559,3 +1559,22 @@ LastDECK = 0
ShowMOUSE ShowMOUSE
END SUB END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB