home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / support.dir / 00027.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  439 b   |  15 lines
  1. on mouseUp
  2.   global gpressed
  3.   set the puppet of sprite the clickOn to 1
  4.   set caster to the name of cast the castNum of sprite the clickOn
  5.   put "down" into word 3 of caster
  6.   set the puppet of sprite the clickOn to 1
  7.   set the castNum of sprite the clickOn to the number of cast caster
  8.   repeat with n = 2 to 12
  9.     if n <> the clickOn then
  10.       set the puppet of sprite n to 0
  11.     end if
  12.   end repeat
  13.   set gpressed to the clickOn
  14. end
  15.