home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1996 June / PCOnline_06_1996.iso / mrmore / mrmore.dir / 00024_Script_24 < prev    next >
Text File  |  1996-04-11  |  936b  |  36 lines
  1. on enterFrame
  2.   set the visible of sprite 21 = false   -- fⁿr Internet-Button
  3. end
  4.  
  5. -- Einlesen der Seite
  6.  
  7. on exitFrame
  8.   global gnFirstSprite, gnLastSprite, gnHilite, glSoundList, gbSpeaker, gsThisFrame, gnMusicSprite
  9.   global gbPlayTheMusic
  10.   
  11.   set gnLastSprite = gnFirstSprite
  12.   repeat while the Castnum of sprite gnLastSprite <> 0
  13.     set gnLastSprite = gnLastSprite + 1
  14.   end repeat
  15.   set gnLastSprite = gnLastSprite - 1
  16.   
  17.   repeat with i = gnFirstSprite to gnLastSprite
  18.     set the puppet of sprite i = true
  19.   end repeat
  20.   
  21.   set the puppet of sprite gnHilite = true
  22.   
  23.   unload
  24.   
  25.   if gbSpeaker = true then 
  26.     StopSound(1)
  27.     set gbSpeaker = false
  28.   end if
  29.   set n = count(glSoundList)
  30.   repeat with i = 1 to n
  31.     if GetAt(glSoundList, i) = gsThisFrame then exit
  32.   end repeat
  33.   set gbSpeaker = true
  34.   append glSoundList, gsThisFrame
  35.   SafeSound(1, "mod\" & char 1 to 8 of gsThisFrame)
  36. end