home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / OPEN.DIR / 00061_Script_61 < prev    next >
Text File  |  1997-03-05  |  801b  |  26 lines
  1. on mouseDown
  2.   global gProgrmPathOnHD   -- c:\arome\cocktail\
  3.   --global gCDPath           -- d:\
  4.   cursor 4
  5.   --put the pathName into gProgrmPathOnHD
  6.   openXlib (the pathName&"fileIO.dll")
  7.   put fileIO (mNew, "read", gProgrmPathOnHD&"arome.ini") into txtPntr
  8.   put txtPntr (mReadLine) into currLine
  9.   repeat with i=2 to 5
  10.     put txtPntr (mReadLine) into currLine
  11.         
  12.     if i=5 then
  13.       if currLine contains "http" then
  14.         
  15.         set the itemDelimiter to "="
  16.         put the last item of currLine into gInterPath
  17.         set the itemDelimiter to ","
  18.         delete the last Char of gInterPath
  19.         closeXlib (the pathName&"fileIO.dll")
  20.         open gInterPath
  21.       else
  22.         closeXlib (the pathName&"fileIO.dll")
  23.       end if
  24.     end if
  25.   end repeat
  26. end