home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / demos / keroppiw / kp_main.dir / 00055.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  583 b   |  24 lines
  1. on mouseDown
  2.   set curSpr to the clickOn
  3.   set curCast to the castNum of sprite curSpr
  4.   puppetSprite(curSpr, 1)
  5.   repeat with x = 1 to 2
  6.     set the castNum of sprite curSpr to curCast + x
  7.     updateStage()
  8.   end repeat
  9.   repeat while the mouseDown
  10.     if rollOver(curSpr) then
  11.       set the castNum of sprite curSpr to curCast + 2
  12.     else
  13.       set the castNum of sprite curSpr to curCast
  14.     end if
  15.     updateStage()
  16.   end repeat
  17.   set the castNum of sprite curSpr to curCast
  18.   updateStage()
  19.   if the mouseCast = curCast then
  20.     doPaste()
  21.   end if
  22.   puppetSprite(curSpr, 0)
  23. end
  24.