View Single Post
Old 08 June 2016, 22:40   #21
Registered User

Join Date: Mar 2015
Location: Sheffield UK
Posts: 360
Screen Open 0,320,200,32,Lowres
Flash Off : Curs Off : Cls 0
Double Buffer 

AM$="A: Let R0=J1; If R0=1 Jump C; If R0=2 Jump D; "
AM$=AM$+"If R0=4 Jump E; If R0=8 Jump F; Pause; Jump A; "
AM$=AM$+"C: Let Y=Y-1; Pause; Jump A; " : Rem UP 
AM$=AM$+"D: Let Y=Y+1; Pause; Jump A; " : Rem DOWN 
AM$=AM$+"E: Let X=X-1; Pause; Jump A; " : Rem LEFT 
AM$=AM$+"F: Let X=X+1; Pause; Jump A; " : Rem RIGHT

Bob 1,160,100,1 : Rem Place the bob near centre of screen

Channel 1 To Bob 1
Amal 1,AM$
Amal On 1
Wait Key
Try this for an AMAL Joystick test routine, It's very basic (well AMAL actually)
but it can easily be expanded on.

It also works in DIRECT mode

You must have at least 1 BOB in the bob bank (pref 32x32 Pixels but not important.)

Hope this gives you some ideas.


PS: The CASE of the lettering in the strings is VERY IMPORTANT.....
volvo_0ne is offline  
Page generated in 0.04463 seconds with 11 queries