home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00400.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  452 b   |  19 lines
  1. on mouseDown
  2.   global ItemDel
  3.   set the itemDelimiter to ItemDel
  4.   set drive to item 1 of the pathName
  5.   set the itemDelimiter to ","
  6.   set x to the mouseH
  7.   set y to the mouseV
  8.   if inside(point(x, y), rect(570, 457, 596, 476)) then
  9.     SetCast(26)
  10.     GoQuit()
  11.   else
  12.     if inside(point(x, y), rect(570, 429, 596, 448)) then
  13.     else
  14.       SetCast()
  15.       GoMovie(drive & ItemDel & "MAKERS" & ItemDel & "SEARCH.DIR", "fade")
  16.     end if
  17.   end if
  18. end
  19.