home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1997 May / macgaichiban199705.bin / MOVIES / INTERNET.Dxr / 00006.ls < prev    next >
Encoding:
Text File  |  1997-03-12  |  650 b   |  20 lines
  1. on button
  2.   set cname to item 1 of the name of cast the castNum of sprite clickOn()
  3.   set the castNum of sprite clickOn() to the number of member (cname & ",on")
  4.   updateStage()
  5.   set t to the timer
  6.   repeat while the timer > (t + 5)
  7.   end repeat
  8.   repeat while the stillDown
  9.     if rollOver(clickOn()) then
  10.       set the castNum of sprite clickOn() to the number of member (cname & ",on")
  11.       updateStage()
  12.       next repeat
  13.     end if
  14.     set the castNum of sprite clickOn() to the number of member (cname & ",off")
  15.     updateStage()
  16.   end repeat
  17.   set the castNum of sprite clickOn() to the number of member (cname & ",off")
  18.   updateStage()
  19. end
  20.