home *** CD-ROM | disk | FTP | other *** search
/ Imaginemos! 2 / Imaginemos2.iso / PC / PRETEND2.EXE / PAINT.DXR / 00062.ls < prev    next >
Encoding:
Text File  |  1996-09-10  |  1.3 KB  |  44 lines
  1. on updateindicator
  2.   global pensize, mouseUp, lastx, lasty, palobject, rv, gv, bv, lft, rgt, tp, btm, newcolor
  3.   set clrsprite to 45
  4.   puppetSprite(13, 1)
  5.   puppetSprite(clrsprite, 1)
  6.   set the trails of sprite 13 to 1
  7.   set the locH of sprite 13 to -1610
  8.   set the locV of sprite 13 to -1610
  9.   set the foreColor of sprite clrsprite to 0
  10.   updateStage()
  11.   spriteBox(13, 221, 410, 313, 479)
  12.   set the visible of sprite 13 to 1
  13.   set the visible of sprite clrsprite to 0
  14.   set the foreColor of sprite clrsprite to newcolor
  15.   updateStage()
  16.   set x to the left of sprite 13 + 64
  17.   set y to the top of sprite 13 + 31
  18.   if pensize = 0 then
  19.     puppetSprite(13, 1)
  20.     set the trails of sprite 13 to 1
  21.     set the locH of sprite 13 to -1610
  22.     set the locV of sprite 13 to -1610
  23.     updateStage()
  24.     palobject(mSetFillColor, rv, gv, bv)
  25.     palobject(mSetProtectedColor, 0, 0, 0)
  26.     palobject(mFill, x, y)
  27.     put "FILL", x, y
  28.     puppetSprite(13, 1)
  29.     updateStage()
  30.   else
  31.     puppetSprite(clrsprite, 1)
  32.     set the foreColor of sprite clrsprite to newcolor
  33.     set the visible of sprite clrsprite to 1
  34.     set tp to y - pensize
  35.     set lft to x - pensize
  36.     set rgt to x + pensize
  37.     set btm to y + pensize
  38.     set the visible of sprite clrsprite to 1
  39.     spriteBox(clrsprite, lft, tp, rgt, btm)
  40.     set the castNum of sprite clrsprite to 44
  41.     updateStage()
  42.   end if
  43. end
  44.