home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / shared.dir / 05287.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  489 b   |  20 lines
  1. on exitFrame
  2.   global gpressed
  3.   repeat with n = 2 to 12
  4.     if rollOver(n) then
  5.       if n <> gpressed then
  6.         set caster to the name of cast the castNum of sprite n
  7.         put "lit" into word 3 of caster
  8.         set the puppet of sprite n to 1
  9.         set the castNum of sprite n to the number of cast caster
  10.         updateStage()
  11.       end if
  12.       next repeat
  13.     end if
  14.     if n <> gpressed then
  15.       set the puppet of sprite n to 0
  16.     end if
  17.   end repeat
  18.   go(the frame)
  19. end
  20.