Sorry your browser is not supported!

`Color Value Changer
`By Nick Aldwin aka NinJA99
spar$="("
epar$=")"
r=0
g=0
b=0
pc=rgb(255,255,255)
sync on : sync rate 30
do
wait 100
cls rgb(r,g,b)
print "Press W&S, E&D, and R&F to change the color values by 10's."
print "Press T&G, Y&H, and U&J to change the color values by 1's"
print "Press enter to copy current value to clipboard."
ink pc,rgb(r,g,b)
print "rgb", spar$ , r, ",", g, ",", b, epar$
sync
select scancode()
   case 17 : r=r+10 : endcase
   case 31 : r=r-10 : endcase
   case 18 : g=g+10 : endcase
   case 32 : g=g-10 : endcase
   case 19 : b=b+10 : endcase
   case 33 : b=b-10 : endcase
   case 20 : r=r+1 : endcase
   case 34 : r=r-1 : endcase
   case 21 : g=g+1 : endcase
   case 35 : g=g-1 : endcase
   case 22 : b=b+1 : endcase
   case 36 : b=b-1 : endcase
   case 28 : goto eofl : endcase
   case default : goto esel : endcase
endselect
esel:
if r>255 then r=r-265
if g>255 then g=g-265
if b>255 then b=b-265
if r<0 then r=r+265
if g<0 then g=g+265
if b<0 then b=b+265
if r>=200
   if g>=200
      pc=0
   else
      if b>=200 then pc=0
   endif
endif
if g>=200
   if b>=200
      pc=0
   endif
endif
if r<200
   if g<200
      pc=rgb(255,255,255)
   else
      if b<200 then pc=rgb(255,255,255)
   endif
endif
if g<200
   if b<200
      pc=rgb(255,255,255)
   endif
endif
loop
eofl:
cls rgb(r,g,b)
thingy$="rgb"+spar$+str$(r)+","+str$(g)+","+str$(b)+epar$
print thingy$
print "Copying to clipboard..."
write to clipboard thingy$
print thingy$, " copied."
print "Press any key to exit."
suspend for key
end