Topic: Try this example out (Read 4746 times)

Mequa · « **on:** May 14, 2012, 07:35:47 PM »

AMAL always had a certain charm...

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!

Lonewolf10 · « **Reply #1 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

Volvo_0ne · « **Reply #2 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

Author Topic: Try this example out (Read 4746 times)

Mequa

Try this example out

Lonewolf10

Re: Try this example out

Volvo_0ne

Re: Try this example out