home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / PAINT.DXR / 00043_pencilpoint.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  381 b   |  16 lines
  1. on mouseUp
  2.   global x1, x2, y1, y2, pensize, clrsprite
  3.   if pensize = 0 then
  4.     puppetSprite(44, 1)
  5.     stageToCast()
  6.     set the trails of sprite 44 to 1
  7.     spriteBox(44, x1, y1, x2, y2)
  8.     set the visible of sprite 44 to 1
  9.     updateStage()
  10.   end if
  11.   set the width of sprite clrsprite to 2
  12.   set the height of sprite clrsprite to 2
  13.   set pensize to 1
  14.   updateindicator()
  15. end
  16.