home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #3 / BLENDER.iso / pc / files / main.dxr / 00121.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  749 b   |  29 lines
  1. on mouseUp
  2.   global gPathName, gBookmark
  3.   if voidp(gBookmark) then
  4.     set gBookmark to "2chord"
  5.   end if
  6.   put the mouseV && the mouseH
  7.   set later to rect(137, 161, 206, 179)
  8.   set now to rect(262, 161, 380, 179)
  9.   set myh to the mouseH
  10.   set myv to the mouseV
  11.   set myloc to point(myh, myv)
  12.   if inside(myloc, later) then
  13.     set the locV of sprite the clickOn to -200
  14.     puppetSound(1, "button2")
  15.     updateStage()
  16.     turnUpRadio()
  17.     puppetSprite(the clickOn, 0)
  18.   else
  19.     if inside(myloc, now) then
  20.       set the locV of sprite the clickOn to -200
  21.       puppetSound(1, "button2")
  22.       updateStage()
  23.       puppetSprite(the clickOn, 0)
  24.       stopAllSound()
  25.       open(gPathName & gBookmark, gPathName & "netscape")
  26.     end if
  27.   end if
  28. end
  29.