home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / pc / file / isigla.dir / 00008_Script_8 < prev    next >
Text File  |  1997-10-06  |  467b  |  18 lines
  1. on startMovie
  2.   global cddrive,HD_MAC
  3.   SET HD_MAC TO "INVENZIONI"
  4.   
  5.   
  6.   IF THE MACHINETYPE = 256 THEN
  7.     repeat with x = 99 to 122
  8.       mci ("open"&&numtochar(x)&":\invenzio\musiche\base.wav alias suono")
  9.       if offset ("error",the result) or offset ("errour",the result) then
  10.       else
  11.         set cddrive to numtochar(x) 
  12.         mci ("close suono")  
  13.         exit repeat
  14.       end if
  15.       mci ("close suono")  
  16.     end repeat
  17.   END IF
  18. END