home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / RESOURCES.Dxr / 00022.ls < prev    next >
Encoding:
Text File  |  1996-11-22  |  594 b   |  22 lines
  1. on exitFrame
  2.   global bluesprites, bluedelta, modality
  3.   if modality <> 1 then
  4.     if not listp(bluesprites) then
  5.       set bluesprites to getspritelist("h_")
  6.       set bluedelta to castsprite("l_About Shareware") - getAt(bluesprites, 1)
  7.     end if
  8.     repeat with spritenum in bluesprites
  9.       set the visible of sprite spritenum to rollOver(spritenum + bluedelta)
  10.     end repeat
  11.     updateStage()
  12.   end if
  13.   go(the frame)
  14. end
  15.  
  16. on keyDown
  17.   set soundvol to min(max(value(the key) * 255 / 7, 0), 255)
  18.   repeat with index = 1 to 4
  19.     set the volume of sound index to soundvol
  20.   end repeat
  21. end
  22.