A Virtual Reality Guide to Texas/CD.iso/texdata/arcextra/extras.cst/00064.ls

Text File | 1998-06-23 | 1.0 KB | 48 lines

on idle

  if the moviename = "TDOC.dir" then
    set curMark = marker(0)
    if curmark < label("sing") or  (curmark >= label("help")) then
      if the volume of sound 3 < 255 then
        if soundbusy(1) = false then
          set the volume of sound 3 = 255
        end if
      end if
      playback
    end if
  else
    if the moviename = "tbits.dir" then
      playback
    else if the frame < label("sing") then
      playback
    end if
  end if
end



on playback
  global backsong,movieplaying

  if movieplaying <> true then
    if soundbusy(3) = false then
      if voidp(backsong) then
        set backsong = random(3)
      end if
      if backsong < 1 then
        set backsong = backsong * -1
        set nextsong = backsong
        repeat while nextsong = backsong
          set nextsong = random(3)
        end repeat

        sound playfile 3,"bacsong" & string(nextsong)
        set backsong = nextsong
      else
        set backsong = backsong * -1
        sound playfile 3,"ambient.aif"
      end if
    end if
  end if
end