home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03043_Script_3043 < prev    next >
Text File  |  1997-10-14  |  1KB  |  39 lines
  1. on chiamapopart
  2.   global attore,cisei,anim_loco,anim_pro,tav
  3.  
  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 and not anim_pro then
  13.       set anim_pro to false
  14.       sound close 2
  15.       if marker(0)=marker("articolo") or marker(0)=marker("principio") or marker(0)=marker("video") then
  16.         global anim_loco
  17.         set anim_loco to false
  18.       else
  19.         global anim_loco
  20.         set anim_loco to false
  21.         go to "viaggio"
  22.       end if
  23.       
  24.     end if
  25.   end if
  26.   set attore to window ("popup")
  27.   if the machinetype < 255 then
  28.     set the filename of attore to ("invenzioni:invenzio:popart.dir")
  29.   else
  30.     set a to char 1 of the moviepath
  31.     set the filename of attore to (a & ":\invenzio\popart.dir")
  32.   end if
  33.   set s to rect (the stageLeft+68,the stageTop +295,the stageLeft+356,the stageTop + 423)
  34.   set the rect of window "popup" to s
  35.   set the windowType of  window "popup" to 3      
  36.   open attore
  37.   moveToFront window "popup"
  38. end 
  39.