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