home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / arcextra / extras.cst / 00063.ls < prev    next >
Encoding:
Text File  |  1998-06-23  |  395 b   |  19 lines
  1. on makecomment
  2.   global commentlist,mancomment
  3.   
  4.   if soundbusy(1) = false then
  5.     --set the volume of sound 3 = 70
  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
  19.