@program llink.muf
1 1000 d
i 
$include $lib/alynna
lvar param

: main
var src
var tgt
command @ "@llink" smatch if
dup param ! "=" split tgt ! src !
src @ match dup int 0 < if pop { "Source not found." }tell exit then src !
tgt @ match dup int 0 < if pop { "Target not found." }tell exit then tgt !
me @ src @ controls me @ tgt @ controls and not if
 { "You must control, the source and target." }tell exit
then
 src @ #-1 setlink src @ prog setlink
 src @ "_/llink" tgt @ setprop
 { src @ ansi_unparseobj " metalinked to the location of " tgt @ ansi_unparseobj "." }tell
else
 pop me @ trig "_/llink" getprop location moveto
then
;
.
c
q