home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 256 / DR_BRAIN.BIN / BUGS / ACT7 / 00024_Field_24.txt < prev    next >
Text File  |  1996-06-14  |  372b  |  18 lines
  1. on invertbutton inflag
  2.   set myclick = the clickon
  3.   set whocast = the castnum of sprite myclick
  4.   set the castnum of sprite myclick = whocast + 1
  5.   
  6.   if voidp(inflag) then
  7.     puppetsound "switch to"
  8.   end if
  9.   
  10.   repeat while the mousedown
  11.     updatestage
  12.   end repeat
  13.   set the castnum of sprite myclick = whocast
  14.   
  15.   puppetsound 0
  16.   updatestage
  17. end
  18.