home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00010_CDXTurnPage.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  2.2 KB  |  58 lines
  1. on CDXTurnPage
  2.   global CDXResFieldsList, CDXpageselect, CDXrecordsfound
  3.   if CDXpageselect > 0 then
  4.     if rollOver(31) and (CDXpageselect > 1) then
  5.       set the member of sprite 31 to member "CDXPreviousRedOne"
  6.       updateStage()
  7.       repeat while rollOver(31)
  8.         if the mouseDown then
  9.           set the member of sprite 31 to member "CDXPreviousRedTwo"
  10.           updateStage()
  11.           set CDXpageselect to CDXpageselect - 1
  12.           repeat with t = 1 to count(CDXResFieldsList)
  13.             set the member of sprite getAt(getAt(CDXResFieldsList, t), 1) to member "CDDot"
  14.             set the locH of sprite getAt(getAt(CDXResFieldsList, t), 1) to 2000
  15.           end repeat
  16.           if CDXpageselect = 1 then
  17.             set the locH of sprite 31 to 2000
  18.           else
  19.             set the loc of sprite 31 to point(42, 420)
  20.             set the loc of sprite 32 to point(95, 420)
  21.           end if
  22.           CDXFieldResults()
  23.           CDXShowResults()
  24.           exit repeat
  25.         end if
  26.       end repeat
  27.       set the member of sprite 31 to member "CDXPrevious"
  28.       updateStage()
  29.     end if
  30.     if rollOver(32) and (CDXpageselect < (integer(CDXrecordsfound / 18) + 1)) then
  31.       set the member of sprite 32 to member "CDXNextRedOne"
  32.       updateStage()
  33.       repeat while rollOver(32)
  34.         if the mouseDown and (CDXpageselect < (integer(CDXrecordsfound / 18) + 1)) then
  35.           set the member of sprite 32 to member "CDXNextRedTwo"
  36.           updateStage()
  37.           set CDXpageselect to CDXpageselect + 1
  38.           repeat with t = 1 to count(CDXResFieldsList)
  39.             set the castNum of sprite getAt(getAt(CDXResFieldsList, t), 1) to the number of member "CDDot"
  40.             set the locH of sprite getAt(getAt(CDXResFieldsList, t), 1) to 2000
  41.           end repeat
  42.           if CDXpageselect = (integer(CDXrecordsfound / 18) + 1) then
  43.             set the locH of sprite 32 to 2000
  44.             set the loc of sprite 31 to point(42, 420)
  45.           else
  46.             set the loc of sprite 32 to point(95, 420)
  47.             set the loc of sprite 31 to point(42, 420)
  48.           end if
  49.           CDXFieldResults()
  50.           CDXShowResults()
  51.           exit repeat
  52.         end if
  53.       end repeat
  54.       set the member of sprite 32 to member "CDXNext"
  55.     end if
  56.   end if
  57. end
  58.