home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / tonline / 50.dir / 00009_Script_9 < prev    next >
Text File  |  1996-02-19  |  596b  |  28 lines
  1. -- Einlesen der Seite
  2.  
  3. on exitFrame
  4.   global glTeleSoundList, gsThisFrame, gbTeleAuto
  5.   
  6.   repeat with i = 1 to 48
  7.     set the puppet of sprite i = false
  8.   end repeat
  9.   updateStage
  10.   
  11.   unload
  12.   
  13.    if gbTeleAuto then exit
  14.   
  15.   set n = count(glTeleSoundList)
  16.   -- repeat with i = 1 to n
  17.   -- if GetAt(glTeleSoundList, i) = gsThisFrame then exit
  18.   -- end repeat
  19.   set gbSpeaker = true
  20.   append glTeleSoundList, gsThisFrame
  21.   
  22.   if soundBusy(1) then
  23.     nothing
  24.   else
  25.     SafeSound(1, char 1 to 7 of gsThisFrame & char length(gsThisFrame) of gsThisFrame)
  26.   end if
  27.   
  28. end