home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / elementl / source / fun.dir / 00026.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.3 KB  |  55 lines

  1. on enterFrame
  2.   global gIsDropper, gIsSucked
  3.   if (gIsDropper = 0) and (gIsSucked = 0) then
  4.     if rollOver(11) then
  5.       cursor([1])
  6.     else
  7.       if rollOver(12) then
  8.         cursor([1])
  9.       else
  10.         if rollOver(13) then
  11.           cursor([1])
  12.         else
  13.           if rollOver(14) then
  14.             cursor([1])
  15.           else
  16.             if rollOver(15) then
  17.               cursor([1])
  18.             else
  19.               if rollOver(16) then
  20.                 cursor([1])
  21.               else
  22.                 if rollOver(17) then
  23.                   cursor([1])
  24.                 else
  25.                   if rollOver(18) then
  26.                     cursor([1])
  27.                   else
  28.                     if rollOver(19) then
  29.                       cursor([1])
  30.                     else
  31.                       if rollOver(20) then
  32.                         cursor([1])
  33.                       else
  34.                         if rollOver(21) then
  35.                           cursor([1])
  36.                         else
  37.                           cursor(-1)
  38.                         end if
  39.                       end if
  40.                     end if
  41.                   end if
  42.                 end if
  43.               end if
  44.             end if
  45.           end if
  46.         end if
  47.       end if
  48.     end if
  49.   end if
  50. end
  51.  
  52. on exitFrame
  53.   go(the frame)
  54. end
  55.