home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 March / PCPRO0396.ISO / march / blender / shared.dir / 00834.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  6.5 KB  |  128 lines
  1. on enterFrame
  2.   global move, BLENDER, i, j, k, n, HELPTRUE
  3.   set i to (i + 1) mod 8
  4.   set j to i mod 4
  5.   set k to i mod 2
  6.   set BLENDER to [790 + k, 792]
  7.   set the cursor of sprite 48 to BLENDER
  8.   repeat with n = 47 down to 41
  9.     if rollOver(n) then
  10.       puppetSprite(n, 1)
  11.       if (750 <= the castNum of sprite n) and (the castNum of sprite n <= 753) then
  12.         set the castNum of sprite n to the number of cast (750 + j)
  13.       else
  14.         if (754 <= the castNum of sprite n) and (the castNum of sprite n <= 757) then
  15.           set the castNum of sprite n to the number of cast (754 + j)
  16.         else
  17.           if (758 <= the castNum of sprite n) and (the castNum of sprite n <= 761) then
  18.             set the castNum of sprite n to the number of cast (758 + j)
  19.           else
  20.             if (762 <= the castNum of sprite n) and (the castNum of sprite n <= 765) then
  21.               set the castNum of sprite n to the number of cast (762 + j)
  22.             else
  23.               if the castNum of sprite n = 767 then
  24.                 set the castNum of sprite n to 817
  25.               else
  26.                 if the castNum of sprite n = 817 then
  27.                   set the castNum of sprite n to 767
  28.                 else
  29.                   if the castNum of sprite n = 768 then
  30.                     set the castNum of sprite n to 818
  31.                   else
  32.                     if the castNum of sprite n = 818 then
  33.                       set the castNum of sprite n to 768
  34.                     else
  35.                       if the castNum of sprite n = 769 then
  36.                         set the castNum of sprite n to 819
  37.                       else
  38.                         if the castNum of sprite n = 819 then
  39.                           set the castNum of sprite n to 769
  40.                         else
  41.                           if the castNum of sprite n = 770 then
  42.                             set the castNum of sprite n to 820
  43.                           else
  44.                             if the castNum of sprite n = 820 then
  45.                               set the castNum of sprite n to 770
  46.                             else
  47.                               if the castNum of sprite n = 771 then
  48.                                 set the castNum of sprite n to 821
  49.                               else
  50.                                 if the castNum of sprite n = 821 then
  51.                                   set the castNum of sprite n to 771
  52.                                 else
  53.                                   if the castNum of sprite n = 772 then
  54.                                     set the castNum of sprite n to 822
  55.                                   else
  56.                                     if the castNum of sprite n = 822 then
  57.                                       set the castNum of sprite n to 772
  58.                                     else
  59.                                       if the castNum of sprite n = 773 then
  60.                                         set the castNum of sprite n to 823
  61.                                       else
  62.                                         if the castNum of sprite n = 823 then
  63.                                           set the castNum of sprite n to 773
  64.                                         else
  65.                                           if (774 <= the castNum of sprite n) and (the castNum of sprite n <= 775) then
  66.                                             set the castNum of sprite n to the number of cast (774 + k)
  67.                                           else
  68.                                             if (776 <= the castNum of sprite n) and (the castNum of sprite n <= 777) then
  69.                                               set the castNum of sprite n to the number of cast (776 + k)
  70.                                             else
  71.                                               if (778 <= the castNum of sprite n) and (the castNum of sprite n <= 779) then
  72.                                                 set the castNum of sprite n to the number of cast (778 + k)
  73.                                               else
  74.                                                 if (780 <= the castNum of sprite n) and (the castNum of sprite n <= 781) then
  75.                                                   set the castNum of sprite n to the number of cast (780 + k)
  76.                                                 else
  77.                                                   if (782 <= the castNum of sprite n) and (the castNum of sprite n <= 783) then
  78.                                                     set the castNum of sprite n to the number of cast (782 + k)
  79.                                                   else
  80.                                                     if (807 <= the castNum of sprite n) and (the castNum of sprite n <= 808) then
  81.                                                       set the castNum of sprite n to the number of cast (807 + k)
  82.                                                     else
  83.                                                       if (810 <= the castNum of sprite n) and (the castNum of sprite n <= 811) then
  84.                                                         set the castNum of sprite n to the number of cast (810 + k)
  85.                                                       else
  86.                                                         if (813 <= the castNum of sprite n) and (the castNum of sprite n <= 816) then
  87.                                                           set the castNum of sprite n to the number of cast (813 + j)
  88.                                                         end if
  89.                                                       end if
  90.                                                     end if
  91.                                                   end if
  92.                                                 end if
  93.                                               end if
  94.                                             end if
  95.                                           end if
  96.                                         end if
  97.                                       end if
  98.                                     end if
  99.                                   end if
  100.                                 end if
  101.                               end if
  102.                             end if
  103.                           end if
  104.                         end if
  105.                       end if
  106.                     end if
  107.                   end if
  108.                 end if
  109.               end if
  110.             end if
  111.           end if
  112.         end if
  113.       end if
  114.       next repeat
  115.     end if
  116.     puppetSprite(n, 0)
  117.   end repeat
  118.   if HELPTRUE <> 0 then
  119.     tell the stage
  120.       ROLLTEST()
  121.     end tell
  122.     tell window "CONTROLS"
  123.       ROLLTEST()
  124.     end tell
  125.   end if
  126.   updateStage()
  127. end
  128.