--把以下语句加入你的startmovie（）事件处理过程中 set the timeoutlength to 60 * 60 * 5 --这行意思是：一秒分为60个滴答，60个滴答×60＝1分钟，1分钟×5＝5分钟。（也就是启动屏保时间为5分钟） when timeout then screensaver()
--把以下的语句加入电影脚本中 on screensaver put the frame into gnlastframe put the mouseloc into gllastmouseloc go "loopframe" end screensaver
global gofilewindow, gswindowname, gafilewindowrect, gswindowpath, gssizeofwindow
on startmovie setupwindowspecs() launchmiaw() end startmovie
on stopmovie purgemiaw() unload end stopmovie
on setupwindowspecs -- inits dimensions and origins for miaw object over splash screen -- plug in your own names below -- note you do not have to specify ".dxr" or ".dir" for the path to the external file -- this can really be any name you want; it』s an internal reference set gswindowname to "intro"
-- this is the actual miaw file you want opened by the stub set gswindowpath to ( the pathname & "intro" )
put ( the stageright / 2 ) into nhorizontalcenterofmonitor put ( the stagebottom / 2 ) into nverticalcenterofmonitor
-- set dims for location of window relative to screen size set nwindowwidth = nhorizontalcenterofmonitor + 320 set nwindowheight = nverticalcenterofmonitor + 240 set nhorizorigin = nwindowwidth - 640 set nvertorigin = nwindowheight - 480
set gafilewindowrect = rect ( nhorizorigin, nvertorigin, nwindowwidth, nwindowheight )
end setupwindowspecs
on launchmiaw if objectp ( gofilewindow ) then forget gofilewindow set gofilewindow to window gswindowname set the rect of gofilewindow to gafilewindowrect set the filename of gofilewindow to gswindowpath set the title of window "intro" = "my presentation" set the titlevisible of gofilewindow to true
-- windowtype 5 is draggable on macs; might need tweaking on pcs. experiment. -- take care not to allow the pc version to have a close box in its bar or you might -- run into beaucoup problems later set the windowtype of
