home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / SHOWEINF.DXR / 00014.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  345 b   |  18 lines
  1. on mouseDown
  2.   global mysprite
  3.   set mysprite to the clickOn
  4.   puppetSprite(mysprite, 1)
  5.   set the memberNum of sprite mysprite to the memberNum of sprite mysprite + 1
  6.   updateStage()
  7. end
  8.  
  9. on mouseUp
  10.   global mysprite
  11.   if mysprite > 39 then
  12.     puppetSprite(mysprite, 0)
  13.     go(the frame + 1)
  14.   end if
  15.   set mysprite to 0
  16.   dontPassEvent()
  17. end
  18.