What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/Internal_6.ls

Text File | 1998-05-11 | 3.3 KB | 81 lines

on exitFrame
  testOptionsOnList()
  go(the frame)
end

on testScroll2
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, SpriteList, SpriteForFirstOptionInList, reviewsDisplayed, scrollReviews
  set moveInc to 0
  if scrollReviews = 1 then
    if the mouseDown then
      set scrollToPos to the mouseV
      set xpos to the mouseH
      if (scrollToPos > the bottom of sprite 87) and (scrollToPos < the top of sprite 88) then
        if scrollToPos < ScrollPosTop then
          set moveInc to integer(((scrollToPos - ScrollPosTop) / scrollIncrements) - 0.5)
        else
          if scrollToPos > (ScrollPosTop + scrollBarLength) then
            set moveInc to integer(((scrollToPos - (ScrollPosTop + scrollBarLength)) / scrollIncrements) - 0.5)
          end if
        end if
        set pointerToReviewsList to pointerToReviewsList + moveInc
        set ScrollPosTop to ScrollPosTop + (moveInc * scrollIncrements)
        put ScrollPosTop
        if moveInc < 0 then
          scrollUp2()
        else
          if moveInc > 0 then
            scrollDown2()
          end if
        end if
      end if
    end if
  end if
end

on scrollDown2
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, reviewsDisplayed, SpriteList, SpriteForFirstOptionInList
  set NumItems to count(listOfSelectedReviews)
  if (pointerToReviewsList + reviewsDisplayed) <= NumItems then
    set pointerToReviewsList to pointerToReviewsList + 1
    set ScrollPosTop to ScrollPosTop + scrollIncrements
    set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  end if
  repeat with s = 1 to reviewsDisplayed
    set l to s + pointerToReviewsList - 1
    set currentItem to getAt(listOfSelectedReviews, l)
    set the member of sprite (SpriteForFirstOptionInList + s - 1) to member (currentItem && "graphic text")
    updateStage()
  end repeat
end

on scrollUp2
  global ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, listOfSelectedReviews, pointerToReviewsList, SpriteList, SpriteForFirstOptionInList, reviewsDisplayed
  if pointerToReviewsList > 1 then
    set pointerToReviewsList to pointerToReviewsList - 1
    set ScrollPosTop to ScrollPosTop - scrollIncrements
    set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  end if
  repeat with s = 1 to reviewsDisplayed
    set l to s + pointerToReviewsList - 1
    set currentItem to getAt(listOfSelectedReviews, l)
    set the member of sprite (SpriteForFirstOptionInList + s - 1) to member (currentItem && "graphic text")
    updateStage()
  end repeat
end

on testOptionsOnList
  global SpriteList, SpriteForFirstOptionInList, SpriteForFirstDecorativeLineOnList, reviewsDisplayed, numberOfSpritesUsedToCreateList, listOfSelectedReviews
  set firstSprite to SpriteForFirstOptionInList
  set lastSprite to SpriteForFirstOptionInList + reviewsDisplayed - 1
  set quitButtonSprite to SpriteList + numberOfSpritesUsedToCreateList - 1
  repeat with s = firstSprite to lastSprite
    if rollOver(s) then
      set the foreColor of sprite s to 212
      next repeat
    end if
    set the foreColor of sprite s to 195
  end repeat
  updateStage()
end