home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 June / PCPRO_696.ISO / bonus / blender / shared.dir / 00834.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  3.0 KB  |  83 lines
  1. on enterFrame
  2.   global move, BLENDER, ROLLNUMBER, i, HELPTRUE
  3.   set i to (i + 1) mod 8
  4.   set j to i mod 4
  5.   set k to i mod 2
  6.   if not j then
  7.     set BLENDER to [790 + not (not i), 792]
  8.     set the cursor of sprite 48 to BLENDER
  9.   end if
  10.   repeat with n = 47 down to 41
  11.     if rollOver(n) then
  12.       puppetSprite(n, 1)
  13.       set x to the castNum of sprite n
  14.       if (x <= 753) and (750 <= x) then
  15.         set the castNum of sprite n to the number of cast (750 + j)
  16.       else
  17.         if (x <= 757) and (754 <= x) then
  18.           set the castNum of sprite n to the number of cast (754 + j)
  19.         else
  20.           if (x <= 761) and (758 <= x) then
  21.             set the castNum of sprite n to the number of cast (758 + j)
  22.           else
  23.             if (x <= 765) and (762 <= x) then
  24.               set the castNum of sprite n to the number of cast (762 + j)
  25.             else
  26.               if (x <= 773) and (767 <= x) then
  27.                 set the castNum of sprite n to the number of cast (x + 50)
  28.               else
  29.                 if (x <= 823) and (817 <= x) then
  30.                   set the castNum of sprite n to the number of cast (x - 50)
  31.                 else
  32.                   if (x <= 775) and (774 <= x) then
  33.                     set the castNum of sprite n to the number of cast (774 + k)
  34.                   else
  35.                     if (x <= 777) and (776 <= x) then
  36.                       set the castNum of sprite n to the number of cast (776 + k)
  37.                     else
  38.                       if (x <= 779) and (778 <= x) then
  39.                         set the castNum of sprite n to the number of cast (778 + k)
  40.                       else
  41.                         if (x <= 781) and (780 <= x) then
  42.                           set the castNum of sprite n to the number of cast (780 + k)
  43.                         else
  44.                           if (x <= 783) and (782 <= x) then
  45.                             set the castNum of sprite n to the number of cast (782 + k)
  46.                           else
  47.                             if (x <= 808) and (807 <= x) then
  48.                               set the castNum of sprite n to the number of cast (807 + k)
  49.                             else
  50.                               if (x <= 811) and (810 <= x) then
  51.                                 set the castNum of sprite n to the number of cast (810 + k)
  52.                               else
  53.                                 if (x <= 816) and (813 <= x) then
  54.                                   set the castNum of sprite n to the number of cast (813 + j)
  55.                                 end if
  56.                               end if
  57.                             end if
  58.                           end if
  59.                         end if
  60.                       end if
  61.                     end if
  62.                   end if
  63.                 end if
  64.               end if
  65.             end if
  66.           end if
  67.         end if
  68.       end if
  69.       next repeat
  70.     end if
  71.     puppetSprite(n, 0)
  72.   end repeat
  73.   if HELPTRUE <> 0 then
  74.     tell the stage
  75.       ROLLTEST()
  76.     end tell
  77.     tell window "CONTROLS"
  78.       ROLLTEST()
  79.     end tell
  80.   end if
  81.   updateStage()
  82. end
  83.