home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / tonline / 50.dir / 00028_Script_28 < prev    next >
Text File  |  1996-02-19  |  2KB  |  61 lines
  1. -- TimeOut-Checker
  2.  
  3. on CheckTeleTime
  4.   global gbTeleAuto, gbNoBreak
  5.   
  6.   if gbTeleAuto then  --  *******************  ist self-running aktiv?
  7.     global gnTeleAutoFrame, gnLastAutoTime, glTeleAutoFrames, glTeleAutoDirs, glTeleAutoSounds
  8.     global gbAnimFinished
  9.     
  10.    if the mouseDown then  --  Abbruch ??
  11.       EndAutoSequence()
  12.      exit
  13.    end if
  14.     
  15.     if the timer > gnLastAutoTime + 60 * 2 AND gbAnimFinished then -- *********** zum nèchsten   ???
  16.       set nFrames = count(glTeleAutoSounds)
  17.       set nNextSound = gnTeleAutoFrame + 1
  18.       if nNextSound > nFrames then set nNextSound = nFrames
  19.       set sSound = GetAt(glTeleAutoSounds, nNextSound)
  20.       
  21.       if not soundBusy(1) OR sSound = "" then   -- ******   Wenn Ton zu Ende oder nèchste Seite kein Sound
  22.         cursor 4
  23.         set gnTeleAutoFrame = gnTeleAutoFrame + 1
  24.         
  25.         if gnTeleAutoFrame > count(glTeleAutoFrames) then
  26.           set gbNoBreak = false
  27.           EndAutoSequence()
  28.           exit
  29.         end if
  30.         
  31.         set sFrame = GetAt(glTeleAutoFrames, gnTeleAutoFrame)
  32.         set sMovie = GetAt(glTeleAutoDirs, gnTeleAutoFrame)
  33.         set sSound = GetAt(glTeleAutoSounds, gnTeleAutoFrame)
  34.         
  35.         go to frame sFrame of movie sMovie
  36.         updateStage
  37.         set gnLastAutoTime = the timer
  38.         set gbAnimFinished = false
  39.         if sSound <> "" then SafeSound(1, sSound)
  40.         
  41.         cursor 0
  42.       end if
  43.     end if
  44.     
  45.   else  --  ********************************************** Self-Runner nicht aktiv
  46.     global gnLastRollTime, gnLastMouseH, gsThisFrame
  47.     
  48.     if the mouseH <> gnLastMouseH then
  49.       set gnLastMouseH = the mouseH
  50.       set gnLastRollTime = the timer
  51.     else if the timer > (gnLastRollTime + 60*60) then
  52.       set gbNoBreak = false
  53.       set gbTeleAuto = true
  54.       go to movie "haupt.dir"
  55.     end if
  56.   end if
  57.   
  58. end
  59.  
  60.  
  61.