home *** CD-ROM | disk | FTP | other *** search
/ Best of Blender / bestofblender.iso / pc / blender / files / beastvr / beastvrm.dir / 00157_Script_157 < prev   
Text File  |  1996-04-25  |  3KB  |  94 lines
  1. on ROLLTEST
  2.   global STAGEROLL, LASTROLL, ROLLNUMBER, CONTROLWINDOW2
  3.   
  4.   repeat with n = 47 down to 41
  5.     if rollover(n) then
  6.       set STAGEROLL = the castnum of Sprite n
  7.       --TEST IF ALREADY IN THAT HELP SCREEN
  8.       if (750 <= STAGEROLL) and  (STAGEROLL <= 753) then
  9.         set ROLLNUMBER = 1
  10.       else if (754 <= STAGEROLL) and  (STAGEROLL <= 757) then
  11.         set ROLLNUMBER = 2
  12.       else if (758 <= STAGEROLL) and  (STAGEROLL <= 761) then
  13.         set ROLLNUMBER = 3
  14.       else if (762 <= STAGEROLL) and  (STAGEROLL <= 765) then
  15.         set ROLLNUMBER = 4
  16.       else if (766 <= STAGEROLL) and  (STAGEROLL <= 773) then
  17.         set ROLLNUMBER = 5
  18.       else if (817 <= STAGEROLL) and  (STAGEROLL <= 823) then
  19.         set ROLLNUMBER = 5
  20.       else if (774 <= STAGEROLL) and  (STAGEROLL <= 775) then
  21.         set ROLLNUMBER = 6
  22.       else if (776 <= STAGEROLL) and  (STAGEROLL <= 777) then
  23.         set ROLLNUMBER = 7
  24.       else if (778 <= STAGEROLL) and  (STAGEROLL <= 779) then
  25.         set ROLLNUMBER = 8
  26.       else if (780 <= STAGEROLL) and  (STAGEROLL <= 781) then
  27.         set ROLLNUMBER = 9
  28.       else if (782 <= STAGEROLL) and  (STAGEROLL <= 783) then
  29.         set ROLLNUMBER = 9
  30.       else if (807 <= STAGEROLL) and  (STAGEROLL <= 808) then
  31.         set ROLLNUMBER = 10
  32.       else if (810 <= STAGEROLL) and  (STAGEROLL <= 811) then
  33.         set ROLLNUMBER = 11
  34.       else if (813 <= STAGEROLL) and  (STAGEROLL <= 816) then
  35.         set ROLLNUMBER = 12
  36.       end if
  37.       exit repeat
  38.     end if
  39.   end repeat
  40.   if ROLLNUMBER <> LASTROLL then
  41.     tell window "HELP" 
  42.       --BACK ARROW
  43.       if ROLLNUMBER = 1 then
  44.         puppetTransition 7, 2, 8, 0
  45.         go to frame "BACK"
  46.         --INFO BUTTON
  47.       else if ROLLNUMBER = 2 then
  48.         puppetTransition 7, 2, 8, 0
  49.         go to frame "INFO"
  50.         --FORWARD ARROW
  51.       else if ROLLNUMBER = 3 then
  52.         puppetTransition 7, 2, 8, 0
  53.         go to frame "FORWARD"
  54.         --PRINT
  55.       else if ROLLNUMBER = 4 then
  56.         puppetTransition 7, 2, 8, 0
  57.         go to frame "PRINT"
  58.         --SOUND CONTROLS
  59.       else if ROLLNUMBER = 5 then
  60.         puppetTransition 7, 2, 8, 0
  61.         go to frame "SOUND"
  62.         --EXIT BUTTON
  63.       else if ROLLNUMBER = 6 then
  64.         puppetTransition 7, 2, 8, 0
  65.         go to frame "EXIT"
  66.         --PANIC
  67.       else if ROLLNUMBER = 7 then
  68.         puppetTransition 7, 2, 8, 0
  69.         go to frame "PANIC"
  70.         --CONTENTS BUTTON
  71.       else if ROLLNUMBER = 8 then
  72.         puppetTransition 7, 2, 8, 0
  73.         go to frame "CONTENTS"
  74.         --VIDEO OFF / ON
  75.       else if ROLLNUMBER = 9 then
  76.         puppetTransition 7, 2, 8, 0
  77.         go to frame "VIDEO"
  78.         --HYPERTEXT
  79.       else if ROLLNUMBER = 10 then
  80.         puppetTransition 7, 2, 8, 0
  81.         go to frame "HYPER"
  82.         --HELP
  83.       else if ROLLNUMBER = 11 then
  84.         puppetTransition 7, 2, 8, 0
  85.         go to frame "OPEN"
  86.         --TARGET
  87.       else if ROLLNUMBER = 12 then
  88.         puppetTransition 7, 2, 8, 0
  89.         go to frame "TRAPDOOR"
  90.       end if
  91.       set LASTROLL = ROLLNUMBER
  92.     end tell
  93.   end if
  94. end ROLLTEST