home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / ink&imag / source / inkmbar.dir / 00003.ls next >
Encoding:
Text File  |  1996-05-10  |  792 b   |  32 lines
  1. on exitFrame
  2.   global whichOver
  3.   if voidp(whichOver) then
  4.     set whichOver to 0
  5.   end if
  6.   set noOver to 1
  7.   repeat with each = 2 to 12
  8.     if rollOver(each) then
  9.       if whichOver = each then
  10.         exit
  11.       end if
  12.       puppetSprite(each + 12, 1)
  13.       set the visible of sprite (each + 12) to 1
  14.       puppetSprite(each + 12, 0)
  15.       set thisCast to the castNum of sprite each
  16.       set the text of cast "Display" to the name of cast thisCast
  17.       puppetSound("over")
  18.       set whichOver to each
  19.       set noOver to 0
  20.       next repeat
  21.     end if
  22.     puppetSprite(each + 12, 1)
  23.     set the visible of sprite (each + 12) to 0
  24.     puppetSprite(each + 12, 0)
  25.   end repeat
  26.   if noOver then
  27.     set the text of cast "Display" to EMPTY
  28.     set whichOver to 0
  29.   end if
  30.   updateStage()
  31. end
  32.