home *** CD-ROM | disk | FTP | other *** search
/ Best of Blender / bestofblender.iso / pc / blender / files / beastvr / beastvrm.dir / 00155_Script_155 < prev    next >
Text File  |  1996-04-25  |  2KB  |  71 lines
  1. on SHAREBUTTON n
  2.   global i
  3.   set j = i mod 4
  4.   set k = i mod 2
  5.   if rollover(n) then
  6.     puppetSprite n, TRUE
  7.     set x = the castNum of sprite n
  8.     
  9.     --BACK ARROW
  10.     if (x <= 753) and (750 <= x) then
  11.       set the castNum of sprite n to the number of cast (750 + j)
  12.       
  13.       --INFO BUTTON
  14.     else if (x <= 757) and (754 <= x) then
  15.       set the castNum of sprite n to the number of cast (754 + j)
  16.       
  17.       --FORWARD ARROW
  18.     else if (x <= 761) and (758 <= x) then
  19.       set the castNum of sprite n to the number of cast (758 + j)
  20.       
  21.       --PRINT
  22.     else if (x <= 765) and (762 <= x) then
  23.       set the castNum of sprite n to the number of cast (762 + j)
  24.       
  25.       --SOUND CONTROLS
  26.       
  27.     else if (x <= 773) and (767 <= x) then
  28.       set the castNum of sprite n to the number of cast (x + 50)
  29.       
  30.     else if (x <= 823) and (817 <= x) then
  31.       set the castNum of sprite n to the number of cast (x - 50)
  32.       
  33.       --EXIT BUTTON
  34.     else if (x <= 775) and (774 <= x) then
  35.       set the castNum of sprite n to the number of cast (774 + k)
  36.       
  37.       --PANIC
  38.     else if (x <= 777) and (776 <= x) then
  39.       set the castNum of sprite n to the number of cast (776 + k)
  40.       
  41.       --MAP BUTTON
  42.     else if (x <= 779) and (778 <= x) then
  43.       set the castNum of sprite n to the number of cast (778 + k)
  44.       
  45.       --VIDEO ON
  46.     else if (x <= 781) and (780 <= x) then
  47.       set the castNum of sprite n to the number of cast (780 + k)
  48.       
  49.       --VIDEO OFF
  50.     else if (x <= 783) and (782 <= x) then
  51.       set the castNum of sprite n to the number of cast (782 + k)
  52.       
  53.       --HYPERLINKS
  54.     else if (x <= 808) and (807 <= x) then
  55.       set the castNum of sprite n to the number of cast (807 + k)
  56.       
  57.       --HELP
  58.     else if (x <= 811) and (810 <= x) then
  59.       set the castNum of sprite n to the number of cast (810 + k)
  60.       
  61.       --TARGET
  62.     else if (x <= 816) and (813 <= x) then
  63.       set the castNum of sprite n to the number of cast (813 + j)
  64.     end if
  65.     
  66.   else
  67.     --TURN OFF CONTROLS
  68.     puppetSprite n, FALSE
  69.   end if
  70.   
  71. end SHAREBUTTON