with expression

delete $*
myball = sphere radius:10 name:"ball000"
mydum = point pos:[0,0,10] box:on
addModifier myball (XForm())
select myball
$.modifiers[#XForm].Gizmo.controller.Scale.controller = Scale_Expression ()

myball.pos = [-45,45,0]
for i1 in 0 to 9 do
(
for i2 in 0 to 9 do
(
mycopy = copy myball
mycopy.wirecolor = [ 120,120,255]
move mycopy [i2*10,i1*-10,0]
select mycopy
mymod = $.modifiers[#XForm].Gizmo.controller.Scale.controller
mymod.AddVectorTarget "myPos" mycopy.pos.controller
mymod.AddVectorTarget "dumPos" mydum.pos.controller
mymod.SetExpression"[ 1-min(length(dumPos-myPos)/40,0.9),
1-min(length(dumPos-myPos)/40,0.9),
1-min(length(dumPos-myPos)/40,0.9) ]"
)
)
delete myball
select mydum