home *** CD-ROM | disk | FTP | other *** search
/ M.I.L.K. with Freshness / MILK1st.iso / DATA / PROFILE.DXR / 00038.ls < prev    next >
Encoding:
Text File  |  2001-11-26  |  560 b   |  37 lines
  1. on mouseEnter
  2.   cursor(280)
  3.   updateStage()
  4. end
  5.  
  6. on mouseLeave
  7.   cursor(0)
  8.   updateStage()
  9. end
  10.  
  11. on mouseDown
  12.   sp = the clickOn
  13.   puppetSound(3, "click")
  14.   repeat while the stillDown
  15.   end repeat
  16.   repeat while soundBusy(3)
  17.     nothing()
  18.   end repeat
  19.   mydir = "C:\MILK\milk1st"
  20.   case sp of
  21.     26:
  22.       go(1, "profile")
  23.     27:
  24.       go(1, mydir & "\album")
  25.     28:
  26.       go(1, "imageclip")
  27.     29:
  28.       go(1, "gallery")
  29.     30:
  30.       go(1, "accessory")
  31.     31:
  32.       go(1, "quit")
  33.     32:
  34.       basetwindowstate(bawinhandle(), "Minimised")
  35.   end case
  36. end
  37.