home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / RVXPCW09.DXR / 00010_RVXTurnPage.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  2.6 KB  |  68 lines
  1. on RVXTurnPage
  2.   global RVXResFieldsList, RVXpageselect, RVXrecordsfound
  3.   if RVXpageselect > 0 then
  4.     if rollOver(31) and (RVXpageselect > 1) then
  5.       set the member of sprite 31 to member "RVXPreviousRedOne"
  6.       updateStage()
  7.       repeat while rollOver(31)
  8.         if the mouseDown then
  9.           set the member of sprite 31 to member "RVXPreviousRedTwo"
  10.           updateStage()
  11.           set RVXpageselect to RVXpageselect - 1
  12.           repeat with t = 1 to count(RVXResFieldsList)
  13.             set the member of sprite getAt(getAt(RVXResFieldsList, t), 1) to member "CDDot"
  14.             set the locH of sprite getAt(getAt(RVXResFieldsList, t), 1) to 2000
  15.           end repeat
  16.           if RVXpageselect = 1 then
  17.             put "remove previous"
  18.             set the locH of sprite 31 to 2000
  19.           else
  20.             put "place previous"
  21.             set the loc of sprite 31 to point(42, 420)
  22.             set the loc of sprite 32 to point(95, 420)
  23.           end if
  24.           RVXFieldResults()
  25.           RVXShowResults()
  26.           set the member of sprite 31 to member "RVXPrevious"
  27.           updateStage()
  28.           repeat while the mouseDown
  29.           end repeat
  30.           exit repeat
  31.         end if
  32.       end repeat
  33.       set the member of sprite 31 to member "RVXPrevious"
  34.       updateStage()
  35.     end if
  36.     if rollOver(32) and (RVXpageselect < (integer(RVXrecordsfound / 18) + 1)) then
  37.       set the member of sprite 32 to member "RVXNextRedOne"
  38.       updateStage()
  39.       repeat while rollOver(32)
  40.         if the mouseDown and (RVXpageselect < (integer(RVXrecordsfound / 18) + 1)) then
  41.           set the member of sprite 32 to member "RVXNextRedTwo"
  42.           updateStage()
  43.           set RVXpageselect to RVXpageselect + 1
  44.           repeat with t = 1 to count(RVXResFieldsList)
  45.             set the castNum of sprite getAt(getAt(RVXResFieldsList, t), 1) to the number of member "CDDot"
  46.             set the locH of sprite getAt(getAt(RVXResFieldsList, t), 1) to 2000
  47.           end repeat
  48.           if RVXpageselect = (integer(RVXrecordsfound / 18) + 1) then
  49.             set the locH of sprite 32 to 2000
  50.             set the loc of sprite 31 to point(42, 420)
  51.           else
  52.             set the loc of sprite 32 to point(95, 420)
  53.             set the loc of sprite 31 to point(42, 420)
  54.           end if
  55.           RVXFieldResults()
  56.           RVXShowResults()
  57.           set the member of sprite 32 to member "RVXNext"
  58.           updateStage()
  59.           repeat while the mouseDown
  60.           end repeat
  61.           exit repeat
  62.         end if
  63.       end repeat
  64.       set the member of sprite 32 to member "RVXNext"
  65.     end if
  66.   end if
  67. end
  68.