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

 
Join Date: Mar 2015
Location: Sheffield UK
Posts: 360
Code:
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.

V1

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