home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00546.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  770 b   |  29 lines
  1. on manageBtns theVal
  2.   global filterStatus
  3.   set me to the clickOn
  4.   set x to the castNum of sprite me
  5.   set theCastName to the name of cast the castNum of sprite me
  6.   set the immediate of sprite me to 1
  7.   set the visible of sprite me to 1
  8.   set the ink of sprite me to 32
  9.   if theCastName = "Y" then
  10.     set the castNum of sprite me to x + 3
  11.   else
  12.     set the castNum of sprite me to x + 1
  13.   end if
  14.   repeat while the mouseDown
  15.     updateStage()
  16.   end repeat
  17.   if rollOver(me) then
  18.     if theCastName = "Y" then
  19.       set the castNum of sprite me to x + 1
  20.       put 0 into char theVal of filterStatus
  21.     else
  22.       set the castNum of sprite me to x - 1
  23.       put 1 into char theVal of filterStatus
  24.     end if
  25.   else
  26.     set the castNum of sprite me to x
  27.   end if
  28. end
  29.