home *** CD-ROM | disk | FTP | other *** search
/ Hiper 2 / HIPERCD_2.iso / hipercd3.exe / hipercd3.dxr / 00130.ls < prev    next >
Encoding:
Text File  |  1997-07-25  |  896 b   |  42 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(5) then
  15.       if rola <> 5 then
  16.         puppetSound(0)
  17.       end if
  18.       set rola to 5
  19.       puppetSprite(5, 1)
  20.       set the member of sprite 5 to member 126 of castLib 1
  21.       updateStage()
  22.       puppetSprite(5, 0)
  23.       go(the frame)
  24.     else
  25.       if rollOver(6) then
  26.         if rola <> 6 then
  27.           puppetSound(0)
  28.         end if
  29.         set rola to 6
  30.         puppetSprite(6, 1)
  31.         set the member of sprite 6 to member 123 of castLib 1
  32.         updateStage()
  33.         puppetSprite(6, 0)
  34.         go(the frame)
  35.       else
  36.         set rola to 0
  37.         go(the frame)
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.