#32002/7/16 12:23:07
注:摘自《Director疑难解析百例》
控制flash的函数:
on stopgo tsprite --停止播放
sprite(tsprite).stop()
end stopgo
on gohead tsprite --停在起始帧
sprite(tsprite).gotoframe(1)
sprite(tsprite).stop()
end gohead
on gobottom tsprite --停在最后一帧
sprite(tsprite).gotoframe(sprite(tsprite).member.framecount)
sprite(tsprite).stop()
end gobottom
on goahead tSprite --正常播放
tframe = sprite(tsprite).frame
if tframe+1 sprite(tsprite).gotoframe(tframe +1)
else
gobottom(tsprite)
end if
end goahead
on goback tSprite --到带播放
tframe = sprite(tsprite).frame
if tframe-1<1 then
gohead(tsprite)
else
sprite(tsprite).gotoframe(tframe -1)
end if
end goback
on goaheadfast tsprite --快进播放
tstep =3
tframe = sprite(tsprite).frame
if tframe+tstep sprite(tsprite).gotoframe(tframe +tstep)
else
gobottom(tsprite)
end if
end goaheadfast tsprite
on gobackfast tsprite --快速倒退
tStep = 3
tframe = sprite(tsprite).frame
if tframe-tstep< 1 then
gohead(tsprite)
else
sprite(tsprite).gotoframe(tframe -tstep)
end if
end gobackfast