home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / arcextra / extras.cst / 00081.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  348 b   |  19 lines
  1.  on exitFrame
  2.   global lastflip,prev_vol
  3.   
  4.   set lastflip = the timer
  5.   cursor -1
  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, "homerang.aif"
  13.   updatestage
  14.   
  15.   repeat with i in [1,3,4]
  16.     puppetsprite i,true
  17.   end repeat
  18. end
  19.