home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1997 August / macgaichiban199708.bin / MOVIES / TRUE.Dxr / 00082.ls < prev    next >
Encoding:
Text File  |  1997-06-06  |  812 b   |  32 lines
  1. global gframelabel
  2.  
  3. on button
  4.   set cname to item 1 of the name of cast the castNum of sprite clickOn()
  5.   set the castNum of sprite clickOn() to the number of member (cname & ",on")
  6.   updateStage()
  7.   repeat while the stillDown
  8.     if rollOver(clickOn()) then
  9.       set the castNum of sprite clickOn() to the number of member (cname & ",on")
  10.       updateStage()
  11.       next repeat
  12.     end if
  13.     set the castNum of sprite clickOn() to the number of member (cname & ",off")
  14.     updateStage()
  15.   end repeat
  16.   set the castNum of sprite clickOn() to the number of member (cname & ",off")
  17.   updateStage()
  18. end
  19.  
  20. on back
  21.   if key() = RETURN then
  22.     set the keyDownScript to EMPTY
  23.     cursor(-1)
  24.     go(gframelabel)
  25.   end if
  26. end
  27.  
  28. on yubicursor
  29.   set yubino to the number of member "YUBI"
  30.   cursor([yubino, yubino + 1])
  31. end
  32.