home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / SHARED.DIR / 00846.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  4.4 KB  |  129 lines
  1. on ROLLTEST
  2.   global STAGEROLL, lastRoll, ROLLNUMBER, CONTROLWINDOW2
  3.   repeat with n = 47 down to 41
  4.     if rollOver(n) then
  5.       set STAGEROLL to the castNum of sprite n
  6.       if (750 <= STAGEROLL) and (STAGEROLL <= 753) then
  7.         set ROLLNUMBER to 1
  8.       else
  9.         if (754 <= STAGEROLL) and (STAGEROLL <= 757) then
  10.           set ROLLNUMBER to 2
  11.         else
  12.           if (758 <= STAGEROLL) and (STAGEROLL <= 761) then
  13.             set ROLLNUMBER to 3
  14.           else
  15.             if (762 <= STAGEROLL) and (STAGEROLL <= 765) then
  16.               set ROLLNUMBER to 4
  17.             else
  18.               if (766 <= STAGEROLL) and (STAGEROLL <= 773) then
  19.                 set ROLLNUMBER to 5
  20.               else
  21.                 if (817 <= STAGEROLL) and (STAGEROLL <= 823) then
  22.                   set ROLLNUMBER to 5
  23.                 else
  24.                   if (774 <= STAGEROLL) and (STAGEROLL <= 775) then
  25.                     set ROLLNUMBER to 6
  26.                   else
  27.                     if (776 <= STAGEROLL) and (STAGEROLL <= 777) then
  28.                       set ROLLNUMBER to 7
  29.                     else
  30.                       if (778 <= STAGEROLL) and (STAGEROLL <= 779) then
  31.                         set ROLLNUMBER to 8
  32.                       else
  33.                         if (780 <= STAGEROLL) and (STAGEROLL <= 781) then
  34.                           set ROLLNUMBER to 9
  35.                         else
  36.                           if (782 <= STAGEROLL) and (STAGEROLL <= 783) then
  37.                             set ROLLNUMBER to 9
  38.                           else
  39.                             if (807 <= STAGEROLL) and (STAGEROLL <= 808) then
  40.                               set ROLLNUMBER to 10
  41.                             else
  42.                               if (810 <= STAGEROLL) and (STAGEROLL <= 811) then
  43.                                 set ROLLNUMBER to 11
  44.                               else
  45.                                 if (813 <= STAGEROLL) and (STAGEROLL <= 816) then
  46.                                   set ROLLNUMBER to 12
  47.                                 end if
  48.                               end if
  49.                             end if
  50.                           end if
  51.                         end if
  52.                       end if
  53.                     end if
  54.                   end if
  55.                 end if
  56.               end if
  57.             end if
  58.           end if
  59.         end if
  60.       end if
  61.       exit repeat
  62.     end if
  63.   end repeat
  64.   if ROLLNUMBER <> lastRoll then
  65.     tell window "HELP"
  66.       if ROLLNUMBER = 1 then
  67.         puppetTransition(7, 2, 8, 0)
  68.         go("BACK")
  69.       else
  70.         if ROLLNUMBER = 2 then
  71.           puppetTransition(7, 2, 8, 0)
  72.           go("INFO")
  73.         else
  74.           if ROLLNUMBER = 3 then
  75.             puppetTransition(7, 2, 8, 0)
  76.             go("FORWARD")
  77.           else
  78.             if ROLLNUMBER = 4 then
  79.               puppetTransition(7, 2, 8, 0)
  80.               go("PRINT")
  81.             else
  82.               if ROLLNUMBER = 5 then
  83.                 puppetTransition(7, 2, 8, 0)
  84.                 go("SOUND")
  85.               else
  86.                 if ROLLNUMBER = 6 then
  87.                   puppetTransition(7, 2, 8, 0)
  88.                   go("EXIT")
  89.                 else
  90.                   if ROLLNUMBER = 7 then
  91.                     puppetTransition(7, 2, 8, 0)
  92.                     go("PANIC")
  93.                   else
  94.                     if ROLLNUMBER = 8 then
  95.                       puppetTransition(7, 2, 8, 0)
  96.                       go("CONTENTS")
  97.                     else
  98.                       if ROLLNUMBER = 9 then
  99.                         puppetTransition(7, 2, 8, 0)
  100.                         go("VIDEO")
  101.                       else
  102.                         if ROLLNUMBER = 10 then
  103.                           puppetTransition(7, 2, 8, 0)
  104.                           go("HYPER")
  105.                         else
  106.                           if ROLLNUMBER = 11 then
  107.                             puppetTransition(7, 2, 8, 0)
  108.                             go("OPEN")
  109.                           else
  110.                             if ROLLNUMBER = 12 then
  111.                               puppetTransition(7, 2, 8, 0)
  112.                               go("TRAPDOOR")
  113.                             end if
  114.                           end if
  115.                         end if
  116.                       end if
  117.                     end if
  118.                   end if
  119.                 end if
  120.               end if
  121.             end if
  122.           end if
  123.         end if
  124.       end if
  125.       set lastRoll to ROLLNUMBER
  126.     end tell
  127.   end if
  128. end
  129.