Use the mouse button to draw. Rest of directions are in the painter.
I made this cause I was bored, hope its cool.
Heres the code:
mode=1
circsize=3
sync on
do
if scancode()=2 then circsize=1:if scancode()=3 then circsize=2:if scancode()=4 then circsize=3
if scancode()=5 then circsize=4:if scancode()=6 then circsize=5:if scancode()=7 then circsize=6
if inkey$()="r" then ink rgb(255,0,0),0
if inkey$()="g" then ink rgb(0,255,0),0
if inkey$()="b" then ink rgb(0,0,255),0
if mouseclick()>0 and mode=1 then dot mousex(),mousey()
if mouseclick()>0 and mode=2 then circle mousex(),mousey(),circsize
if spacekey()>0 and mode=1 then mode=2
if shiftkey()>0 and mode=2 then mode=1
if scancode()=2 then circsize=1:if scancode()=3 then circsize=2:if scancode()=4 then circsize=3
if scancode()=5 then circsize=4:if scancode()=6 then circsize=5:if scancode()=7 then circsize=6
text 10,20,"Press Space to change to a circle, and the number keys"
text 10,33,"to change the circle's size value. Press r,g, or b to"
text 10,45,"change colors to red blue or green. Press shift to go"
text 10,58,"back to dot mode. Thanks for trying this out!"
sync
loop
