list targets  = [4,1,2,3]
list pp       = [PRIM_LINK_TARGET, LINK_SET, PRIM_ALPHA_MODE, 3, PRIM_ALPHA_MODE_MASK, 128];
integer n     = llGetListLength(targets)
while (n--)
  pp += [PRIM_LINK_TARGET, n] + [PRIM_ALPHA_MODE, 3, PRIM_ALPHA_MODE_BLEND, 0];

llSetLinkPrimitiveParamsFast(999, pp);