home *** CD-ROM | disk | FTP | other *** search
/ Flight + Action / FlightAction.img / mrmore / tonline / 53inter.dir / 00009_Script_9 < prev    next >
Text File  |  1996-04-11  |  529b  |  22 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.   SafeSound(1, char 1 to 7 of gsThisFrame & char length(gsThisFrame) of gsThisFrame)
  22. end