home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 14 / cd.iso / pc / menu.dir / 00002.ls < prev    next >
Encoding:
Text File  |  2000-05-29  |  490 b   |  24 lines
  1. on exitFrame
  2.   global son
  3.   sprite(13).visible = 0
  4.   repeat with n = 3 to 9
  5.     if rollOver(n) then
  6.       puppetSprite(n, 1)
  7.       set the castNum of sprite n to n + 10
  8.       next repeat
  9.     end if
  10.     puppetSprite(n, 0)
  11.   end repeat
  12.   repeat with c = 22 to 27
  13.     if rollOver(c) then
  14.       puppetSprite(c, 1)
  15.       son = 28 - c
  16.       set the soundLevel to son
  17.       set the castNum of sprite c to c + 20
  18.       next repeat
  19.     end if
  20.     puppetSprite(c, 0)
  21.   end repeat
  22.   go(the frame)
  23. end
  24.