mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 16:50:24 +00:00
Adapts theBOB's samples so they don't use ABSOLUTE.
Thanks to Simmons for the conversion utility https://www.tapatalk.com/groups/qbasic/viewtopic.php?p=204977#p204977
This commit is contained in:
parent
702e0f708a
commit
d4ef195bd1
|
@ -216,7 +216,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(MouseDATA$)
|
||||
mouse = SADD(MouseDATA$)
|
||||
CALL ABSOLUTE(LB, RB, MX, MY, mouse)
|
||||
CALL ABSOLUTE_MOUSE_EMU (LB, RB, MX, MY)
|
||||
|
||||
END SUB
|
||||
|
||||
|
@ -261,3 +261,22 @@ SUB ShowMOUSE
|
|||
LB = 1
|
||||
MouseDRIVER LB, 0, 0, 0
|
||||
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
|
||||
|
|
|
@ -1433,7 +1433,7 @@ SUB MouseDRIVER (LB, RB, Mx, My)
|
|||
|
||||
DEF SEG = VARSEG(MouseDATA$)
|
||||
mouse = SADD(MouseDATA$)
|
||||
CALL ABSOLUTE(LB, RB, Mx, My, mouse)
|
||||
CALL ABSOLUTE_MOUSE_EMU (LBLB, RB RB, MX Mx, MY My)
|
||||
|
||||
END SUB
|
||||
|
||||
|
@ -2198,3 +2198,22 @@ ScalePIXELy = PixelY * Scale + 51
|
|||
RETURN
|
||||
|
||||
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
|
||||
|
|
|
@ -221,7 +221,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -299,3 +299,22 @@ SUB ShowMOUSE
|
|||
LB = 1
|
||||
MouseDRIVER LB, 0, 0, 0
|
||||
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
|
||||
|
|
|
@ -2439,7 +2439,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -3343,3 +3343,22 @@ NEXT n
|
|||
|
||||
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
|
||||
|
|
|
@ -847,7 +847,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -1221,3 +1221,22 @@ Item = 0
|
|||
RETURN
|
||||
|
||||
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
|
||||
|
|
|
@ -538,7 +538,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -627,3 +627,22 @@ SUB ShowMOUSE
|
|||
LB = 1
|
||||
MouseDRIVER LB, 0, 0, 0
|
||||
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
|
||||
|
|
|
@ -701,7 +701,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -1973,3 +1973,22 @@ RETURN
|
|||
|
||||
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
|
||||
|
|
|
@ -702,7 +702,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -797,3 +797,22 @@ DEF SEG
|
|||
PUT (198, 178), BigBOX(), PSET
|
||||
|
||||
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
|
||||
|
|
|
@ -369,7 +369,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
|
|||
|
||||
DEF SEG = VARSEG(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
|
||||
|
||||
|
@ -1559,3 +1559,22 @@ LastDECK = 0
|
|||
ShowMOUSE
|
||||
|
||||
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
|
||||
|
|
Loading…
Reference in a new issue