home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / arcextra / extras.cst / 00088.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  335 b   |  18 lines
  1. on exitFrame
  2.   global lastflip,prev_vol
  3.   
  4.   set lastflip = the timer
  5.   
  6.   if voidp(prev_vol) or prev_vol > 0 then
  7.     set prev_vol = the volume of sound 3
  8.   end if
  9.   
  10.   set the volume of sound 3 = 255
  11.   sound close 2
  12.   sound playfile 3, "yellow.aif"
  13.   updatestage
  14.   
  15.   repeat with i in [1,3,4]
  16.     puppetsprite i,true
  17.   end repeat
  18. end