home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Spazio / SHAREDS.CST / 03039_Script_3039 < prev    next >
Text File  |  1997-09-15  |  706b  |  21 lines
  1. on chiamapopinv
  2.   global attore,cisei
  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.   set attore to window ("popup")
  9.   if the machinetype < 255 then
  10.     set the filename of attore to ("invenzioni:invenzio:popinv.dir")
  11.   else
  12.     set a to char 1 of the moviepath
  13.     set the filename of attore to (a & ":\invenzio\popinv.dir")
  14.   end if
  15.   set s to rect (the stageLeft+68,the stageTop +117,the stageLeft+356,the stageTop + 430)
  16.   set the rect of window "popup" to s
  17.   set the windowType of  window "popup" to 3      
  18.   open attore
  19.   moveToFront window "popup"
  20. end 
  21.