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
|
||||
|
|
|
@ -152,20 +152,20 @@ LOOP
|
|||
END '************************** PALETTE DATA ********************************
|
||||
|
||||
PaletteDATA:
|
||||
DATA 4, 2, 12, 6, 4, 14, 12, 12, 20
|
||||
DATA 31, 31, 38, 46, 46, 50, 0, 0, 0
|
||||
DATA 4, 2, 12, 6, 4, 14, 12, 12, 20
|
||||
DATA 31, 31, 38, 46, 46, 50, 0, 0, 0
|
||||
|
||||
CustomCOLORS:
|
||||
DATA 6,7,8,10,12,13,14
|
||||
|
||||
FlameCOLOR:
|
||||
DATA 63, 63, 63, 63, 32, 12, 63, 52, 0
|
||||
DATA 63, 63, 63, 63, 32, 12, 63, 52, 0
|
||||
SilverCOLOR:
|
||||
DATA 63, 63, 63, 38, 38, 35, 53, 53, 48
|
||||
DATA 63, 63, 63, 38, 38, 35, 53, 53, 48
|
||||
GoldCOLOR:
|
||||
DATA 63, 63, 42, 63, 42, 21, 63, 52, 32
|
||||
DATA 63, 63, 42, 63, 42, 21, 63, 52, 32
|
||||
WhiteCOLOR:
|
||||
DATA 63, 63, 63, 48, 48, 53, 53, 53, 58
|
||||
DATA 63, 63, 63, 48, 48, 53, 53, 53, 58
|
||||
|
||||
REM $STATIC
|
||||
SUB Assembly1
|
||||
|
@ -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
|
||||
|
|
|
@ -137,10 +137,10 @@ LOOP
|
|||
END
|
||||
|
||||
PaletteDATA:
|
||||
DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0
|
||||
DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37
|
||||
DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 20
|
||||
DATA 8, 8, 21, 0, 63, 21, 63, 55, 25, 63, 63, 63
|
||||
DATA 0, 4, 16, 0, 10, 21, 0, 16, 32, 32, 10, 0
|
||||
DATA 63, 0, 0, 63, 32, 0, 18, 18, 24, 30, 30, 37
|
||||
DATA 42, 42, 50, 55, 55, 63, 0, 0, 0, 43, 27, 20
|
||||
DATA 8, 8, 21, 0, 63, 21, 63, 55, 25, 63, 63, 63
|
||||
|
||||
SUB ApeCHUCKLE (Which)
|
||||
|
||||
|
@ -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
|
||||
|
|
|
@ -130,10 +130,10 @@ LOOP
|
|||
SYSTEM
|
||||
|
||||
PaletteDATA:
|
||||
DATA 0,0,12, 0,10,30, 4,11,1, 21,21,63
|
||||
DATA 63,0,0, 42,0,42, 32,15,0, 63,16,0
|
||||
DATA 0,63,21, 50,27,18, 5,13,1, 28,28,32
|
||||
DATA 36,36,40, 44,44,48, 52,52,56, 63,63,63
|
||||
DATA 0,0,12, 0,10,30, 4,11,1, 21,21,63
|
||||
DATA 63,0,0, 42,0,42, 32,15,0, 63,16,0
|
||||
DATA 0,63,21, 50,27,18, 5,13,1, 28,28,32
|
||||
DATA 36,36,40, 44,44,48, 52,52,56, 63,63,63
|
||||
|
||||
SUB Bridge
|
||||
STATIC Index, StartTIME#
|
||||
|
@ -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
|
||||
|
||||
|
@ -1225,7 +1225,7 @@ NEXT y
|
|||
Cup = 1
|
||||
RETURN
|
||||
|
||||
Splunk: 'Water hazard
|
||||
Splunk: 'Water hazard
|
||||
PLAY "MBMST255L64O2b"
|
||||
Interval .3
|
||||
PLAY "MBMST255L64O5cP16eP16c<P16gP16>>c"
|
||||
|
@ -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