home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1997 May / macgaichiban199705.bin / MOVIES / ADULT.Dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-03-12  |  824 b   |  32 lines
  1. global gspritenum, gvolnum
  2.  
  3. on startMovie
  4.   set gvolnum to 1
  5. end
  6.  
  7. on yubicursor
  8.   set yubino to the number of member "YUBI"
  9.   cursor([yubino, yubino + 1])
  10. end
  11.  
  12. on button
  13.   set cname to item 1 of the name of cast the castNum of sprite clickOn()
  14.   set the castNum of sprite clickOn() to the number of member (cname & ",on")
  15.   updateStage()
  16.   set t to the timer
  17.   repeat while the timer > (t + 5)
  18.     nothing()
  19.   end repeat
  20.   repeat while the stillDown
  21.     if rollOver(clickOn()) then
  22.       set the castNum of sprite clickOn() to the number of member (cname & ",on")
  23.       updateStage()
  24.       next repeat
  25.     end if
  26.     set the castNum of sprite clickOn() to the number of member (cname & ",off")
  27.     updateStage()
  28.   end repeat
  29.   set the castNum of sprite clickOn() to the number of member (cname & ",off")
  30.   updateStage()
  31. end
  32.