home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00006.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  396 b   |  18 lines
  1. on makecomment
  2.   global commentlist,mancomment
  3.   
  4.   if soundbusy(1) = false then
  5.     --set the volume of sound 3 = 100
  6.     if the moviename <> "trivia.dir" then
  7.       set usedlist = commentlist
  8.     else
  9.       set usedlist = mancomment
  10.     end if
  11.     set x = count(usedlist)
  12.     set sayingnum = random(x)
  13.     set saying = getat(usedlist,sayingnum)
  14.     
  15.     puppetsound 2, saying
  16.     
  17.   end if
  18. end