home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00030_CDXTurnPage.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.9 KB  |  54 lines
  1. on CDXTurnPage
  2.   global WhichINXResFieldsList, CDXWhichIndex, 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(WhichINXResFieldsList)
  7.         set the castNum of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to the number of member "CDDot"
  8.         set the locH of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to 2000
  9.       end repeat
  10.       if CDpageselect = 1 then
  11.         set the locH of sprite 31 to 2000
  12.         set the loc of sprite 32 to point(95, 413)
  13.       else
  14.         put the castNum of sprite 32, "the castNum of sprite 32"
  15.         put the castNum of sprite 31, "the castNum of sprite 31"
  16.         set the loc of sprite 31 to point(83, 428)
  17.         set the loc of sprite 32 to point(95, 413)
  18.       end if
  19.       updateStage()
  20.       case CDXWhichIndex of
  21.         1:
  22.           CDXFieldResults()
  23.           CDXdisplay()
  24.         2:
  25.           PRODFieldResults()
  26.           PRODdisplay()
  27.       end case
  28.     end if
  29.     if rollOver(32) and the mouseDown and (CDpageselect < (integer(CDrecordsfound / 18) + 1)) then
  30.       set CDpageselect to CDpageselect + 1
  31.       repeat with t = 1 to count(WhichINXResFieldsList)
  32.         set the castNum of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to the number of member "CDDot"
  33.         set the locH of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to 2000
  34.       end repeat
  35.       if CDpageselect = (integer(CDrecordsfound / 18) + 1) then
  36.         set the locH of sprite 32 to 2000
  37.         set the loc of sprite 31 to point(83, 428)
  38.       else
  39.         set the loc of sprite 32 to point(95, 413)
  40.         set the loc of sprite 31 to point(83, 428)
  41.       end if
  42.       updateStage()
  43.       case CDXWhichIndex of
  44.         1:
  45.           CDXFieldResults()
  46.           CDXdisplay()
  47.         2:
  48.           PRODFieldResults()
  49.           PRODdisplay()
  50.       end case
  51.     end if
  52.   end if
  53. end
  54.