on beginsprite me
pzoomsteps=200
plargerect=(0,0,400,300)
psmallrect=(0,0,200,150)
end
on startgrow me
pzoomcounter=0
tiemout("growimage").new(40,#growimage,me)
end
on growimage me
pzoomcounter=pzoomcounter+1
temprect=(plargerect-psmallrect)
temppercent=float(pzoomcounter)/float(pzoomsteps)
temprect=(temprect*temppercent)+psmallrect
if pzoomcounter>=pzoomsteps then
timeout("growimage").forger()
end if
end
on startshrink me
pzoomcounter=pzoomsteps
timeout("shrinkimage").new(40,#shrinkimage,me)
end
on shrinkimage me
pzoomcounter=pzoomcounter-1
temprect=(plargerect-psmallrect)
temppercent=float(pzoomcouner)/float(pzoomsteps)
temprect=(temprect*temppercent)+psmallrect
sprite（me.spritenum）.rect=temprect
if pzoomcounter<=0 then
timeout("shrinkimage").forger()
end if
end
这是用距离控制声音的一个程序，有哪位高人能指点一下啊！
谢谢！！1