home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 June / PCPRO_696.ISO / bonus / blender / shared.dir / 00842.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  2.6 KB  |  67 lines
  1. on SHAREBUTTON n
  2.   global i
  3.   set j to i mod 4
  4.   set k to i mod 2
  5.   if rollOver(n) then
  6.     puppetSprite(n, 1)
  7.     set x to the castNum of sprite n
  8.     if (x <= 753) and (750 <= x) then
  9.       set the castNum of sprite n to the number of cast (750 + j)
  10.     else
  11.       if (x <= 757) and (754 <= x) then
  12.         set the castNum of sprite n to the number of cast (754 + j)
  13.       else
  14.         if (x <= 761) and (758 <= x) then
  15.           set the castNum of sprite n to the number of cast (758 + j)
  16.         else
  17.           if (x <= 765) and (762 <= x) then
  18.             set the castNum of sprite n to the number of cast (762 + j)
  19.           else
  20.             if (x <= 773) and (767 <= x) then
  21.               set the castNum of sprite n to the number of cast (x + 50)
  22.             else
  23.               if (x <= 823) and (817 <= x) then
  24.                 set the castNum of sprite n to the number of cast (x - 50)
  25.               else
  26.                 if (x <= 775) and (774 <= x) then
  27.                   set the castNum of sprite n to the number of cast (774 + k)
  28.                 else
  29.                   if (x <= 777) and (776 <= x) then
  30.                     set the castNum of sprite n to the number of cast (776 + k)
  31.                   else
  32.                     if (x <= 779) and (778 <= x) then
  33.                       set the castNum of sprite n to the number of cast (778 + k)
  34.                     else
  35.                       if (x <= 781) and (780 <= x) then
  36.                         set the castNum of sprite n to the number of cast (780 + k)
  37.                       else
  38.                         if (x <= 783) and (782 <= x) then
  39.                           set the castNum of sprite n to the number of cast (782 + k)
  40.                         else
  41.                           if (x <= 808) and (807 <= x) then
  42.                             set the castNum of sprite n to the number of cast (807 + k)
  43.                           else
  44.                             if (x <= 811) and (810 <= x) then
  45.                               set the castNum of sprite n to the number of cast (810 + k)
  46.                             else
  47.                               if (x <= 816) and (813 <= x) then
  48.                                 set the castNum of sprite n to the number of cast (813 + j)
  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.       end if
  62.     end if
  63.   else
  64.     puppetSprite(n, 0)
  65.   end if
  66. end
  67.