home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 6 / MacAddict_006_1997_02.iso / media / Main.Dxr / Internal_20.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  1.3 KB  |  35 lines
  1. on exitFrame
  2.   setSoundPos(12, 273, 372)
  3.   set the visible of sprite 12 to 1
  4.   updateStage()
  5.   set the memberNum of sprite 41 to the number of member "blank"
  6.   banner2()
  7.   set the visible of sprite 6 to rollOver(2)
  8.   set the visible of sprite 14 to rollOver(2)
  9.   set the visible of sprite 7 to rollOver(3)
  10.   set the visible of sprite 15 to rollOver(3)
  11.   set the visible of sprite 8 to rollOver(4)
  12.   set the visible of sprite 16 to rollOver(4)
  13.   set the visible of sprite 9 to rollOver(5)
  14.   set the visible of sprite 17 to rollOver(5)
  15.   set the visible of sprite 21 to rollOver(20)
  16.   set the visible of sprite 36 to rollOver(23)
  17.   set the visible of sprite 37 to rollOver(38)
  18.   set the visible of sprite 45 to rollOver(42)
  19.   set the visible of sprite 46 to rollOver(43)
  20.   set the visible of sprite 47 to rollOver(44)
  21.   set the visible of sprite 48 to rollOver(22)
  22.   if soundBusy(2) = 0 then
  23.     soundswitch()
  24.   end if
  25. end
  26.  
  27. on banner2
  28.   global editbanner
  29.   set editbanner to (editbanner mod 4) + 1
  30.   set the memberNum of sprite 41 to the number of member ("editban" & string(editbanner))
  31.   set mylist to ["Ancient Civilizations . . .      The Link to Atlantis", "The most comprehensive collection of productivity tools", "An interstellar math adventure game", "No Need to Hide When It's Dark Outside"]
  32.   put getAt(mylist, editbanner) into field "edittext"
  33.   updateStage()
  34. end
  35.