PC go! 1996 July/Image.iso/mrmore/tonline/51btx.dir/00031.ls

Text File | 1996-02-19 | 1.6 KB | 50 lines

on CheckTeleTime
  global gbTeleAuto, gbNoBreak, gnTeleAutoFrame, gnLastAutoTime, glTeleAutoFrames, glTeleAutoDirs, glTeleAutoSounds, gbAnimFinished, gnLastRollTime, gnLastMouseH, gsThisFrame
  if gbTeleAuto then
    put gbTeleAuto
    if the mouseDown then
      EndAutoSequence()
      exit
    end if
    if (the timer > (gnLastAutoTime + (60 * 2))) and gbAnimFinished then
      set nFrames to count(glTeleAutoSounds)
      set nNextSound to gnTeleAutoFrame + 1
      if nNextSound > nFrames then
        set nNextSound to nFrames
      end if
      set sSound to getAt(glTeleAutoSounds, nNextSound)
      if not soundBusy(1) or (sSound = EMPTY) then
        cursor(4)
        set gnTeleAutoFrame to gnTeleAutoFrame + 1
        if gnTeleAutoFrame > count(glTeleAutoFrames) then
          set gbNoBreak to 0
          EndAutoSequence()
          exit
        end if
        set sFrame to getAt(glTeleAutoFrames, gnTeleAutoFrame)
        set sMovie to getAt(glTeleAutoDirs, gnTeleAutoFrame)
        set sSound to getAt(glTeleAutoSounds, gnTeleAutoFrame)
        go(sFrame, sMovie)
        updateStage()
        set gnLastAutoTime to the timer
        set gbAnimFinished to 0
        if sSound <> EMPTY then
          SafeSound(1, sSound)
        end if
        cursor(0)
      end if
    end if
  else
    if the mouseH <> gnLastMouseH then
      set gnLastMouseH to the mouseH
      set gnLastRollTime to the timer
    else
      if the timer > (gnLastRollTime + (60 * 60)) then
        set gbNoBreak to 0
        set gbTeleAuto to 1
        go(1, "haupt.dir")
      end if
    end if
  end if
end