Ultimate Amiga

Network Boards => AMOS Programming Environment => AMOS Factory => AMAL => Topic started by: Mequa on May 14, 2012, 07:35:47 PM

Title: Try this example out
Post by: Mequa on May 14, 2012, 07:35:47 PM

AMAL always had a certain charm...

Code: [Select]

Cls 0 : Circle 16,16,16 : Paint 16,16 : Get Bob 1,0,0 To 34,34
Cls 0 : Circle 16,16,12 : Paint 16,16 : Get Bob 2,0,0 To 34,34
Cls 0 : Circle 16,16,8 : Paint 16,16 : Get Bob 3,0,0 To 34,34
Cls 0
A$="AU(LR2=XM-16LR3=YM-16IR0<>R2JUIR1<>R3JUX"
A$=A$+"U:LR0=XM-16LR1=YM-16DM)"
A$=A$+"LX=130LY=50A0,(1,4)(2,4)(3,4)(2,4)M:MR0-X,R1-Y,25W"
Sprite 1,100,100,1 : Amal 1,A$ : Amal On : Wait Key
I can't think of another language remotely like the above!

Title: Re: Try this example out
Post by: Lonewolf10 on June 05, 2012, 09:08:39 PM

Yeah, it certainly is very powerful. Unfortunately I never mastered it, but I may try again someday.
Your example is cool and, as it is AMAL, it works even in direct mode too! :)


Regards,
Lonewolf10

Title: Re: Try this example out
Post by: Volvo_0ne on May 28, 2016, 07:35:45 PM

I find this easier and faster (unless you like the lag on the "ball")

Amal is/was great for some things :)

Code: [Select]

Cls 0 : Circle 16,16,16 : Paint 16,16 : Get Bob 1,0,0 To 34,34
Cls 0 : Circle 16,16,12 : Paint 16,16 : Get Bob 2,0,0 To 34,34
Cls 0 : Circle 16,16,8 : Paint 16,16 : Get Bob 3,0,0 To 34,34
Cls 0
A$="A0,(1,4)(2,4)(3,4)(2,4)L:LX=XM-16LY=YM-16PJL"
Sprite 1,100,100,1 : Amal 1,A$ : Amal On : Wait Key