home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00030_CDXTurnPage.ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  1.5 KB  |  39 lines
  1. on CDXTurnPage
  2.   global CDXResFieldsList, CDpageselect, CDrecordsfound
  3.   if CDpageselect > 0 then
  4.     if rollOver(31) and the mouseDown and (CDpageselect > 1) then
  5.       set CDpageselect to CDpageselect - 1
  6.       repeat with t = 1 to count(CDXResFieldsList)
  7.         set the castNum of sprite getAt(getAt(CDXResFieldsList, t), 1) to the number of member "CDDot"
  8.         set the locH of sprite getAt(getAt(CDXResFieldsList, t), 1) to 2000
  9.       end repeat
  10.       if CDpageselect = 1 then
  11.         set the locH of sprite 31 to 2000
  12.       else
  13.         set the loc of sprite 31 to point(83, 428)
  14.         set the loc of sprite 32 to point(95, 413)
  15.       end if
  16.       updateStage()
  17.       CDXFieldResults()
  18.       CDXdisplay()
  19.     end if
  20.     if rollOver(32) and the mouseDown and (CDpageselect < (integer(CDrecordsfound / 18) + 1)) then
  21.       set CDpageselect to CDpageselect + 1
  22.       repeat with t = 1 to count(CDXResFieldsList)
  23.         set the castNum of sprite getAt(getAt(CDXResFieldsList, t), 1) to the number of member "CDDot"
  24.         set the locH of sprite getAt(getAt(CDXResFieldsList, t), 1) to 2000
  25.       end repeat
  26.       if CDpageselect = (integer(CDrecordsfound / 18) + 1) then
  27.         set the locH of sprite 32 to 2000
  28.         set the loc of sprite 31 to point(83, 428)
  29.       else
  30.         set the loc of sprite 32 to point(95, 413)
  31.         set the loc of sprite 31 to point(83, 428)
  32.       end if
  33.       updateStage()
  34.       CDXFieldResults()
  35.       CDXdisplay()
  36.     end if
  37.   end if
  38. end
  39.