Sorry your browser is not supported!

Do
cls

for p=1 to 255
color1=rgb(p,0,0)
box 370+p,350-37,371+p,500-37,color1,color1,color1,color1
color2=rgb(0,p,0)
box 370+p,200-37,371+p,350-37,color2,color2,color2,color2
color3=rgb(0,0,p)
box 370+p,50-37,371+p,200-37,color3,color3,color3,color3
next p


Ink inkcolor,0
Text 20,20,"Screen FPS: "+STR$(screen fps())
Text 20,50,"SEE HOW THE TEXT IS CHANGING COLORS?"
Text 20,80,"I CALL THESE SKILLZ!!"
Text 20,110,"The simple color picker-made by Xenocythe."


IF mousex()>370 and mousex()<626 and mousey()>13 and mousey()<463
color=point(mousex(),mousey())
inkcolor=rgb(rgbr(color),rgbg(color),rgbb(color))
ENDIF


Loop

for p=0 to 255 
RColor=rgb(p,0,0)
GColor=rgb(0,p,0)
BColor=rgb(0,0,p)
WColor=rgb(p,p,p)
box 70+p,200-37,326+p,640,BColor,RColor,GColor,WColor
next p
get image 1,70,163,582,640

Do
cls
paste image 1,70,13
color=point(mousex(),mousey())
inkcolor=rgb(rgbr(color),rgbg(color),rgbb(color))
Ink inkcolor,0
Text 10,10,"Screen FPS: "+STR$(screen fps())
sync
Loop