home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 September / macgaichiban199609.bin / MOVIES / COMPUTER / 00271.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  732 b   |  28 lines
  1. global ccname, num
  2.  
  3. on startMovie
  4.   set num to 1
  5. end
  6.  
  7. on button
  8.   set cname to item 1 of the name of cast the castNum of sprite clickOn()
  9.   set the castNum of sprite clickOn() to the number of cast (cname & ",on")
  10.   updateStage()
  11.   repeat while the stillDown
  12.     if rollOver(clickOn()) then
  13.       set the castNum of sprite clickOn() to the number of cast (cname & ",on")
  14.       updateStage()
  15.       next repeat
  16.     end if
  17.     set the castNum of sprite clickOn() to the number of cast (cname & ",off")
  18.     updateStage()
  19.   end repeat
  20.   set the castNum of sprite clickOn() to the number of cast (cname & ",off")
  21.   updateStage()
  22. end
  23.  
  24. on gobutton
  25.   set ccname to item 1 of the name of cast the castNum of sprite clickOn()
  26.   go(ccname)
  27. end
  28.