home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00070_Script_70 < prev    next >
Text File  |  1997-10-14  |  336b  |  18 lines
  1. on toglipopein
  2.   global dove
  3.   set var to string(the windowlist)
  4.   if offset ("popein",var) then
  5.     close window "popein"
  6.     forget window "popein"  
  7.     
  8.     if objectp (attore) then forget attore
  9.     set dove to 0
  10.   end if
  11.   updatestage
  12.   IF THE MOVIENAME="JUKEBOX.DIR" THEN
  13.     VITT 34,36
  14.     VIT 44
  15.   END IF
  16. end
  17.  
  18.