What PC? 1997 February/WPCFEB97.ISO/dxrs/inxwfeb.dxr/00030_CDXTurnPage.ls

Text File | 1996-12-09 | 1.7 KB | 51 lines

on CDXTurnPage
  global WhichINXResFieldsList, CDXWhichIndex, CDpageselect, CDrecordsfound
  if CDpageselect > 0 then
    if rollOver(31) and the mouseDown and (CDpageselect > 1) then
      set CDpageselect to CDpageselect - 1
      put "CDpageselect2", CDpageselect
      repeat with t = 1 to count(WhichINXResFieldsList)
        set the castNum of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to the number of member "CDDot"
        set the locH of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to 2000
      end repeat
      if CDpageselect = 1 then
        set the locH of sprite 31 to 2000
      else
        set the loc of sprite 31 to point(83, 428)
        set the loc of sprite 32 to point(95, 413)
      end if
      updateStage()
      case CDXWhichIndex of
        1:
          CDXFieldResults()
          CDXdisplay()
        2:
          PRODFieldResults()
          PRODdisplay()
      end case
    end if
    if rollOver(32) and the mouseDown and (CDpageselect < (integer(CDrecordsfound / 18) + 1)) then
      set CDpageselect to CDpageselect + 1
      repeat with t = 1 to count(WhichINXResFieldsList)
        set the castNum of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to the number of member "CDDot"
        set the locH of sprite getAt(getAt(WhichINXResFieldsList, t), 1) to 2000
      end repeat
      if CDpageselect = (integer(CDrecordsfound / 18) + 1) then
        set the locH of sprite 32 to 2000
      else
        set the loc of sprite 32 to point(95, 413)
        set the loc of sprite 31 to point(83, 428)
      end if
      updateStage()
      case CDXWhichIndex of
        1:
          CDXFieldResults()
          CDXdisplay()
        2:
          PRODFieldResults()
          PRODdisplay()
      end case
    end if
  end if
end