https://ian.jeffray.co.uk/riscos/joypad/
I built the interface, and it works fine. In the help file you mentioned a possibility to save the assignment of the keys.
Thanks to the idea of !FOZ! I created a way to save the setting. Thank you !FOZ!
All you have to do is change or add the following lines:
Code: Select all
570
580CFG=OPENIN("<Obey$Dir>.!JoyCfg")
581 FORn=1TO12
582 w$=GET$#CFG:map(n)=VAL(w$)
583 NEXT
584 m$=GET$#CFG:movement=VAL(m$)
585IF VAL(m$)=1 PROCr(keyboard2, 108, movement<<1)
586CLOSE#CFG
590
3220A$="":MO$="0"
3230IF movement A$=" -move":MO$="1"
3271CFG=OPENOUT("<Obey$Dir>.!JoyCfg")
3351BPUT#CFG,MO$
3352BPUT#CFG,"JoyKeysEmulateMouse "+A$
3353CLOSE#CFG
It's probably not the most elegant solution, but I wrote my last BASIC listing years ago.
If someone likes it, I hope you enjoy it.
@Ian: It's a shame that the keyboard1 (for A30x0) never was finished.
Greetings.
Pandemo