home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #4 / Blender_3_4.iso / BLENDER / FILES / frequent.cst / 00010.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  1.5 KB  |  64 lines
  1. -- hilites the page number on rollOver
  2. on pageRollOver first, last
  3.   repeat with n = first to last
  4.     if rollover(n) then
  5.       puppetSprite n, TRUE
  6.       set the ink of sprite (n) to 4
  7.     else
  8.       puppetSprite n, FALSE
  9.     end if
  10.   end repeat
  11. end whichPage
  12.  
  13. -------------------------**************************---------------------------
  14.  
  15. on hyperLinks sp, inc
  16.   --  sp = the sprite containing the first hyperlink
  17.   --  inc = the number of hyperlinks
  18.   -- i.e.
  19.   -- sprites  6->10 contain the hyperlink text
  20.   -- sprites 11->15 contain the hyperlink icon
  21.   -- sprites 16->20 contain the hyperlink images
  22.   --  SHAREBUTTON [11, 12, 13, 14, 15]
  23.   repeat with n = sp to (sp+inc-1)
  24.     set the visible of sprite (n+inc) to rollover(n)
  25.   end repeat
  26.   set TEST = 0
  27.   repeat with n = (sp+(inc*2)) to (sp+(inc*2)+inc-1)
  28.     set TEST = TEST + the visible of sprite n
  29.   end repeat
  30.   if TEST then
  31.     repeat with n = (sp+inc) to (sp+(inc*2)-1)
  32.       set the visible of sprite n to FALSE
  33.     end repeat
  34.   end if
  35.   set list = []
  36.   repeat with i = inc to 2*inc-1
  37.     append list, sp+i
  38.   end repeat
  39.   SHAREBUTTON list
  40. end hyperLinks
  41.  
  42.  
  43. on randomizePicts sum
  44.   set tempList = []
  45.   set myList = []
  46.   repeat with i = 1 to sum
  47.     append tempList, i
  48.   end repeat
  49.   set the randomSeed to the ticks
  50.   repeat with i = 1 to sum
  51.     set a = random(count(tempList))
  52.     set x = getAt(tempList, a)
  53.     deleteAt tempList, a
  54.     append myList, x
  55.   end repeat
  56.   return(myList)
  57. end randomizePicts
  58.  
  59. on getItem mylist
  60.   set x = getAt(myList, 1)
  61.   deleteAt myList, 1
  62.   return(x)
  63. end getItem
  64.