PC go! 1996 July/Image.iso/mrmore/mrmore.dir/00024.ls

Text File | 1996-04-11 | 839 b | 31 lines

on enterFrame
  set the visible of sprite 21 to 0
end

on exitFrame
  global gnFirstSprite, gnLastSprite, gnHilite, glSoundList, gbSpeaker, gsThisFrame, gnMusicSprite, gbPlayTheMusic
  set gnLastSprite to gnFirstSprite
  repeat while the castNum of sprite gnLastSprite <> 0
    set gnLastSprite to gnLastSprite + 1
  end repeat
  set gnLastSprite to gnLastSprite - 1
  repeat with i = gnFirstSprite to gnLastSprite
    set the puppet of sprite i to 1
  end repeat
  set the puppet of sprite gnHilite to 1
  unLoad()
  if gbSpeaker = 1 then
    StopSound(1)
    set gbSpeaker to 0
  end if
  set n to count(glSoundList)
  repeat with i = 1 to n
    if getAt(glSoundList, i) = gsThisFrame then
      exit
    end if
  end repeat
  set gbSpeaker to 1
  append(glSoundList, gsThisFrame)
  SafeSound(1, "mod\" & char 1 to 8 of gsThisFrame)
end