home *** CD-ROM | disk | FTP | other *** search
/ Hiper 2 / HIPERCD_2.iso / hipercd.exe / hipercd.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1997-07-25  |  2.3 KB  |  90 lines
  1. on exitFrame
  2.   global rola
  3.   if rollOver(4) then
  4.     if rola <> 4 then
  5.       puppetSound(0)
  6.     end if
  7.     set rola to 4
  8.     puppetSprite(4, 1)
  9.     set the member of sprite 4 to member 51 of castLib 1
  10.     updateStage()
  11.     puppetSprite(4, 0)
  12.     go(the frame)
  13.   else
  14.     if rollOver(2) then
  15.       if rola <> 2 then
  16.         puppetSound(0)
  17.       end if
  18.       set rola to 2
  19.       puppetSprite(2, 1)
  20.       set the member of sprite 2 to member 13 of castLib 1
  21.       updateStage()
  22.       puppetSprite(2, 0)
  23.       go(the frame)
  24.     else
  25.       if rollOver(3) then
  26.         if rola <> 3 then
  27.           puppetSound(0)
  28.         end if
  29.         set rola to 3
  30.         puppetSprite(3, 1)
  31.         set the member of sprite 3 to member 12 of castLib 1
  32.         updateStage()
  33.         puppetSprite(3, 0)
  34.         go(the frame)
  35.       else
  36.         if rollOver(5) then
  37.           if rola <> 5 then
  38.             puppetSound(0)
  39.           end if
  40.           set rola to 5
  41.           puppetSprite(5, 1)
  42.           set the member of sprite 5 to member 11 of castLib 1
  43.           updateStage()
  44.           puppetSprite(5, 0)
  45.           go(the frame)
  46.         else
  47.           if rollOver(6) then
  48.             if rola <> 6 then
  49.               puppetSound(0)
  50.             end if
  51.             set rola to 6
  52.             puppetSprite(6, 1)
  53.             set the member of sprite 6 to member 10 of castLib 1
  54.             updateStage()
  55.             puppetSprite(6, 0)
  56.             go(the frame)
  57.           else
  58.             if rollOver(9) then
  59.               if rola <> 9 then
  60.                 puppetSound(0)
  61.               end if
  62.               set rola to 9
  63.               puppetSprite(9, 1)
  64.               set the member of sprite 9 to member 20 of castLib 1
  65.               updateStage()
  66.               puppetSprite(9, 0)
  67.               go(the frame)
  68.             else
  69.               if rollOver(10) then
  70.                 if rola <> 10 then
  71.                   puppetSound(0)
  72.                 end if
  73.                 set rola to 10
  74.                 puppetSprite(10, 1)
  75.                 set the member of sprite 10 to member 255 of castLib 1
  76.                 updateStage()
  77.                 puppetSprite(10, 0)
  78.                 go(the frame)
  79.               else
  80.                 set rola to 0
  81.                 go(the frame)
  82.               end if
  83.             end if
  84.           end if
  85.         end if
  86.       end if
  87.     end if
  88.   end if
  89. end
  90.