home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00394.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  672 b   |  24 lines
  1. on clickResponse theSpriteNum, a, b, c
  2.   stopSound(1, 10)
  3.   if the castNum of sprite theSpriteNum = c then
  4.     if the mouseH > the locH of sprite theSpriteNum then
  5.       set the castNum of sprite theSpriteNum to b
  6.     else
  7.       set the castNum of sprite theSpriteNum to a
  8.     end if
  9.   else
  10.     if the castNum of sprite theSpriteNum = b then
  11.       if the mouseH > the locH of sprite theSpriteNum then
  12.         set the castNum of sprite theSpriteNum to c
  13.       else
  14.         set the castNum of sprite theSpriteNum to a
  15.       end if
  16.     else
  17.       set the castNum of sprite theSpriteNum to c
  18.     end if
  19.   end if
  20.   repeat while the mouseDown
  21.     updateStage()
  22.   end repeat
  23. end
  24.