home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / tonline / 21.dir / 00060.ls < prev    next >
Encoding:
Text File  |  1996-02-20  |  512 b   |  21 lines
  1. on exitFrame
  2.   global glTeleSoundList, gsThisFrame, gbTeleAuto
  3.   repeat with i = 1 to 48
  4.     set the puppet of sprite i to 0
  5.   end repeat
  6.   updateStage()
  7.   unLoad()
  8.   set n to count(glTeleSoundList)
  9.   repeat with i = 1 to n
  10.     if gbTeleAuto then
  11.       exit repeat
  12.     end if
  13.     if getAt(glTeleSoundList, i) = gsThisFrame then
  14.       exit
  15.     end if
  16.   end repeat
  17.   set gbSpeaker to 1
  18.   append(glTeleSoundList, gsThisFrame)
  19.   SafeSound(1, char 1 to 7 of gsThisFrame & char length(gsThisFrame) of gsThisFrame)
  20. end
  21.