home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / RVXPCW09.DXR / 00015_RVXCheckBox.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  1.2 KB  |  42 lines
  1. on RVXCheckBox
  2.   global RVXHardList
  3.   if (the mouseH > 393) and (the mouseH < 407) and (the mouseV > 83) and (the mouseV < 98) then
  4.     if the mouseDown then
  5.       set val to getAt(RVXHardList, 1)
  6.       case val of
  7.         0:
  8.           set the member of sprite 35 to member "RVXCross"
  9.           set the loc of sprite 35 to point(400, 91)
  10.           set the ink of sprite 35 to 0
  11.           updateStage()
  12.           setAt(RVXHardList, 1, 1)
  13.         1:
  14.           set the locH of sprite 35 to 2000
  15.           updateStage()
  16.           setAt(RVXHardList, 1, 0)
  17.       end case
  18.       repeat while the mouseDown
  19.       end repeat
  20.     end if
  21.   end if
  22.   if (the mouseH > 393) and (the mouseH < 407) and (the mouseV > 56) and (the mouseV < 71) then
  23.     if the mouseDown then
  24.       set val to getAt(RVXHardList, 2)
  25.       case val of
  26.         0:
  27.           set the member of sprite 34 to member "RVXCross"
  28.           set the loc of sprite 34 to point(400, 64)
  29.           set the ink of sprite 34 to 0
  30.           updateStage()
  31.           setAt(RVXHardList, 2, 1)
  32.         1:
  33.           set the locH of sprite 34 to 2000
  34.           updateStage()
  35.           setAt(RVXHardList, 2, 0)
  36.       end case
  37.       repeat while the mouseDown
  38.       end repeat
  39.     end if
  40.   end if
  41. end
  42.