home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / support.dir / 00026.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  746 b   |  29 lines
  1. global gpressed, gserviceList, lastSprite
  2.  
  3. on exitFrame
  4.   go(the frame)
  5. end
  6.  
  7. on idle
  8.   repeat with n = 2 to 12
  9.     if rollOver(n) then
  10.       if (n <> lastSprite) and (the mouseCast = the castNum of sprite n) then
  11.         set lastSprite to n
  12.         set whichtitle to getAt(gserviceList, n - 1) && "title"
  13.         set the castNum of sprite 17 to the number of cast whichtitle
  14.         if n <> gpressed then
  15.           puppetSprite(n, 1)
  16.           set the castNum of sprite n to the number of cast ("Button " & string(n - 1) && "lit")
  17.         end if
  18.       end if
  19.       exit repeat
  20.     end if
  21.   end repeat
  22.   repeat with n = 2 to 12
  23.     if (n <> gpressed) and (n <> lastSprite) then
  24.       puppetSprite(n, 0)
  25.     end if
  26.   end repeat
  27.   updateStage()
  28. end
  29.