Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nct02050.geo/00074_roll.ls

Text File | 1997-03-19 | 1.5 KB | 88 lines

on initRoll
  UpdateCursors(get_CursorRollSprite(), 3)
  set_CurrMArk(0)
  set_TempMark(0)
end

on initHiliteSpriteList
  global HiliteSpriteList
  set HiliteSpriteList to list(16, 17, 18, 19)
end

on countHiliteList
  global HiliteSpriteList
  return count(HiliteSpriteList)
end

on getPosInList spriteNum
  global HiliteSpriteList
  return getPos(HiliteSpriteList, spriteNum)
end

on getSprite pos
  global HiliteSpriteList
  return getAt(HiliteSpriteList, pos)
end

on checkRollLogic
  checkScreenStatus()
  set times to countHiliteList()
  repeat with i = 1 to times
    if rollOver(getSprite(i)) and (i <> get_CurrMArk()) then
      if i <> get_TempMark() then
        set_TempMark(i)
        startTimer()
        next repeat
      end if
      if the timer > get_HiliteDelay() then
        goToMArker(i)
      end if
    end if
  end repeat
end

on goToMArker markerNum
  go("hilite" & markerNum)
  set_CurrMArk(markerNum)
end

on set_CurrMArk int
  global CurrMArk
  set CurrMArk to int
end

on get_CurrMArk
  global CurrMArk
  return CurrMArk
end

on set_CursorRollSprite int
  global CursorRollSprite
  set CursorRollSprite to int
end

on get_CursorRollSprite
  global CursorRollSprite
  return CursorRollSprite
end

on set_HiliteDelay int
  global HiliteDelay
  set HiliteDelay to int
end

on get_HiliteDelay
  global HiliteDelay
  return HiliteDelay
end

on set_TempMark int
  global TempMark
  set TempMark to int
end

on get_TempMark
  global TempMark
  return TempMark
end