home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWEINF.DXR / 00026.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  520 b   |  24 lines
  1. on hibutton
  2.   repeat with i = 40 to 45
  3.     if not (rollOver() = i) then
  4.       set the visible of sprite i to 0
  5.     end if
  6.   end repeat
  7.   if rollOver() < 40 then
  8.     set the visible of sprite (rollOver() + 6) to 1
  9.     puppetSprite(4, 1)
  10.     set the member of sprite 4 to member (rollOver() + 34)
  11.   end if
  12.   updateStage()
  13. end
  14.  
  15. on unhibutton
  16.   if not (the frameLabel contains ";") then
  17.     repeat with i = 40 to 45
  18.       set the visible of sprite i to 0
  19.     end repeat
  20.     puppetSprite(4, 0)
  21.     updateStage()
  22.   end if
  23. end
  24.