PC go! 1996 July/Image.iso/mrmore/tonline/haupt.dir/00029.ls

Text File | 1996-04-29 | 1.6 KB | 50 lines

on CheckTeleTime
  global gbTeleAuto, gbNoBreak, gnLastRollTime, gnLastMouseH, gsThisFrame, gnTeleAutoFrame, gnLastAutoTime, glTeleAutoFrames, glTeleAutoDirs, glTeleAutoSounds, gbAnimFinished
  if gbTeleAuto then
    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 + (20 * 60)) then
        set gbNoBreak to 0
        set gbTeleAuto to 1
        set gnLastRollTime to the timer
        go(1, "haupt.dir")
      end if
    end if
  end if
end