home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_78_picker script 32bit.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  4.4 KB  |  120 lines
  1. property pMySprite, pColorField
  2. global gCast, gCurrentColor, gFirstColor, gSecondColor, gWvBgColor, gWvBgShadow, gWvVcolor, gWvVShadow, gWvHcolor, gWvHShadow
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseEnter me
  9.   put "Click and drag to adjust the " & pColorField.word[2] & " level." into field "status"
  10. end
  11.  
  12. on mouseDown me
  13.   slidecolor(me)
  14. end
  15.  
  16. on mouseLeave me
  17.   put EMPTY into field "status"
  18. end
  19.  
  20. on resetcolorslider
  21.   put 0 into field "RGB Red status"
  22.   put 0 into field "RGB Green status"
  23.   put 0 into field "RGB Blue status"
  24.   sprite(181).locH = sprite(180).left
  25.   sprite(183).locH = sprite(180).left
  26.   sprite(185).locH = sprite(180).left
  27. end
  28.  
  29. on slidecolor newloch
  30.   repeat while the mouseDown
  31.     newloch = the mouseH
  32.     if newloch < sprite(180).left then
  33.       newloch = sprite(180).left
  34.     end if
  35.     if newloch > sprite(180).right then
  36.       newloch = sprite(180).right
  37.     end if
  38.     pMySprite.locH = newloch
  39.     put integer((newloch - sprite(180).left) / 100.0 * 255) into field pColorField
  40.     gCurrentColor = rgb(integer(the text of field "RGB Red status"), integer(the text of field "RGB Green status"), integer(the text of field "RGB Blue status"))
  41.     updateStage()
  42.     updatecolors()
  43.   end repeat
  44. end
  45.  
  46. on adjustcolor newloch
  47.   if newloch < sprite(180).left then
  48.     newloch = sprite(180).left
  49.   end if
  50.   if newloch > sprite(180).right then
  51.     newloch = sprite(180).right
  52.   end if
  53.   pMySprite.locH = newloch
  54.   gCurrentColor = rgb(integer(the text of field "RGB Red status"), integer(the text of field "RGB Green status"), integer(the text of field "RGB Blue status"))
  55.   updateStage()
  56.   updatecolors()
  57. end
  58.  
  59. on updatecolors
  60.   if sprite(47).rect = rect(598, 13, 622, 37) then
  61.     gFirstColor = gCurrentColor
  62.     member("1st Color", gCast).image.fill(member("1st Color", gCast).rect, gFirstColor)
  63.   else
  64.     if sprite(47).rect = rect(598, 43, 622, 67) then
  65.       gSecondColor = gCurrentColor
  66.       member("2nd Color", gCast).image.fill(member("2nd Color", gCast).rect, gSecondColor)
  67.     else
  68.       if sprite(47).rect = rect(48, 518, 67, 537) then
  69.         gWvBgColor = gCurrentColor
  70.         member("weave - bg color", gCast).image.fill(member("weave - bg color", gCast).rect, gWvBgColor)
  71.       else
  72.         if sprite(47).rect = rect(68, 518, 87, 537) then
  73.           gWvBgShadow = gCurrentColor
  74.           member("weave - bg shadow", gCast).image.fill(member("weave - bg shadow", gCast).rect, gWvBgShadow)
  75.         else
  76.           if sprite(47).rect = rect(48, 543, 67, 562) then
  77.             gWvVcolor = gCurrentColor
  78.             member("weave - V color", gCast).image.fill(member("weave - V color", gCast).rect, gWvVcolor)
  79.           else
  80.             if sprite(47).rect = rect(68, 543, 87, 562) then
  81.               gWvVShadow = gCurrentColor
  82.               member("weave - V shadow", gCast).image.fill(member("weave - V shadow", gCast).rect, gWvVShadow)
  83.             else
  84.               if sprite(47).rect = rect(48, 568, 67, 587) then
  85.                 gWvHcolor = gCurrentColor
  86.                 member("weave - H color", gCast).image.fill(member("weave - H color", gCast).rect, gWvHcolor)
  87.               else
  88.                 if sprite(47).rect = rect(68, 568, 87, 587) then
  89.                   gWvHShadow = gCurrentColor
  90.                   member("weave - H shadow", gCast).image.fill(member("weave - H shadow", gCast).rect, gWvHShadow)
  91.                 end if
  92.               end if
  93.             end if
  94.           end if
  95.         end if
  96.       end if
  97.     end if
  98.   end if
  99.   sprite(181).locH = sprite(180).left + integer(gCurrentColor.red / 255.0 * 100)
  100.   sprite(183).locH = sprite(180).left + integer(gCurrentColor.green / 255.0 * 100)
  101.   sprite(185).locH = sprite(180).left + integer(gCurrentColor.blue / 255.0 * 100)
  102.   updateStage()
  103.   put gCurrentColor.red into field "RGB Red status"
  104.   put gCurrentColor.green into field "RGB Green status"
  105.   put gCurrentColor.blue into field "RGB Blue status"
  106.   repeat with X = 0 to 99
  107.     member("red gradient").image.fill(X, 0, X + 1, 4, rgb(integer(X / 99.0 * 255), gCurrentColor.green, gCurrentColor.blue))
  108.     member("green gradient").image.fill(X, 0, X + 1, 4, rgb(gCurrentColor.red, integer(X / 99.0 * 255), gCurrentColor.blue))
  109.     member("blue gradient").image.fill(X, 0, X + 1, 4, rgb(gCurrentColor.red, gCurrentColor.green, integer(X / 99.0 * 255)))
  110.   end repeat
  111.   updateStage()
  112.   gCurrentColor = VOID
  113. end
  114.  
  115. on getPropertyDescriptionList me
  116.   list = [:]
  117.   addProp(list, #pColorField, [#comment: "Field Member Name.", #format: #string, #default: "RGB Red status"])
  118.   return list
  119. end
  120.