home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / OPEN.DIR / 00008_Script_8 < prev    next >
Text File  |  1997-03-05  |  856b  |  31 lines
  1. on mouseUp  
  2.   
  3.   set the visible of sprite 4=0
  4.   updatestage
  5.   starttimer
  6.   repeat while the timer<20
  7.   end repeat
  8.   set the visible of sprite 4=1
  9.   updatestage
  10.   starttimer
  11.   repeat while the timer<20
  12.   end repeat
  13.   global gProgrmPathOnHD   -- c:\arome\cocktail\
  14.   global gCDPath           -- d:\
  15.   cursor 4
  16.   put the pathName into gProgrmPathOnHD
  17.   openXlib (the pathName&"fileIO.dll")
  18.   put fileIO (mNew, "read", the pathName&"arome.ini") into txtPntr
  19.   put txtPntr (mReadLine) into currLine
  20.   repeat While not (currLine contains "cdpath")
  21.     put txtPntr (mReadLine) into currLine
  22.   end repeat
  23.   set the itemDelimiter to "="
  24.   put the last item of currLine into gCDPath
  25.   set the itemDelimiter to ","
  26.   delete the last Char of gCDPath
  27.   closeXlib (the pathName&"fileIO.dll")
  28.   go to movie (gCDPath&"cocktail.dir")
  29.   
  30. end
  31.