home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03042_Script_3042 < prev    next >
Text File  |  1997-09-15  |  1KB  |  38 lines
  1. on chiamapopart
  2.   global attore,cisei,anim_loco
  3.   set cisei to true
  4.   curfinleva
  5.   if objectP (attore) then   forget attore
  6.   global canale_audio,audio_barrato
  7.   set the castnum of sprite canale_audio to audio_barrato
  8.   if marker (0)  - marker (-1) = 1 then
  9.     sound close 2 
  10.     go to marker (-1)
  11.   else
  12.     if anim_loco then
  13.       sound close 2
  14.       if marker(0)=marker("articolo") or marker(0)=marker("principio") or marker(0)=marker("video") then
  15.         global anim_loco
  16.         set anim_loco to false
  17.       else
  18.         global anim_loco
  19.         set anim_loco to false
  20.         go to "viaggio"
  21.       end if
  22.       
  23.     end if
  24.   end if
  25.   set attore to window ("popup")
  26.   if the machinetype < 255 then
  27.     set the filename of attore to ("invenzioni:invenzio:popart.dir")
  28.   else
  29.     set a to char 1 of the moviepath
  30.     set the filename of attore to (a & ":\invenzio\popart.dir")
  31.   end if
  32.   set s to rect (the stageLeft+68,the stageTop +295,the stageLeft+356,the stageTop + 423)
  33.   set the rect of window "popup" to s
  34.   set the windowType of  window "popup" to 3      
  35.   open attore
  36.   moveToFront window "popup"
  37. end 
  38.