`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.
boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400
x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print " Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing"
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems."
print " "
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" on the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."
do
if returnkey()=1 then gosub the_program
sync
loop
the_program:
cls
programsbegin:
currentx=320
currenty=240
do
if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1
line 600,400,700,400
line 600,400,600,600
color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
if controlkey()=1
color=point(mousex(),mousey())
r=rgbr(color)
g=rgbg(color)
b=rgbb(color)
endif
if inkey$()="x"
realr=0 : realg=0 : realb=0
disable=1
if mouseclick()=1
if boxsize=1
ink rgb(0,0,0),0
box mousex()-3,mousey()-3,mousex()+3,mousey()+3
endif
if boxsize=2
ink rgb(0,0,0),0
box mousex()-5,mousey()-5,mousex()+5,mousey()+5
ink rgb(255,255,255),0
endif
endif
trigger=1
disable=0
endif
ink rgb(r,g,b),0
if inkey$()="R" and r<255 then r=r+1
if inkey$()="G" and g<255 then g=g+1
if inkey$()="B" and b<255 then b=b+1
if inkey$()="r" and r>0 then r=r-1
if inkey$()="g" and g>0 then g=g-1
if inkey$()="b" and b>0 then b=b-1
if mouseclick()=2 then gosub confirm
` -LINE 2D-
if Style=0
if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
ink rgb(realr,realg,realb),0
line currentx,currenty,mousex(),mousey()
endif
endif
` -|LINE 2D|-
` -LINE 3D-
if Style=1
if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
if currentx<mousex()
ink rgb(realr,realg,realb),0
line currentx-3,currenty-3,mousex()+3,mousey()+3
endif
if currentx>mousex()
ink rgb(realr,realg,realb),0
line currentx+3,currenty+3,mousex()-3,mousey()-3
endif
endif
endif
`-|LINE|-
if mousex()>=480 then gosub overline
currentx=mousex()
currenty=mousey()
ink rgb(255,0,0),0
line 480,0,480,500
set text opaque
ink rgb(255,0,0),0
text 485,20," "
text 485,20,"Red: "+STR$(r)+" "
ink rgb(0,255,0),0
text 485,40," "
text 485,40,"Green: "+STR$(g)+" "
ink rgb(0,0,255),0
text 485,60," "
text 485,60,"Blue: "+STR$(b)+" "
ink rgb(r,g,b),0
box 595,20,620,80
ink rgb(55,55,55),0
line 595,20,595,80
line 595,20,620,20
line 620,20,620,80
line 595,80,620,80
ink rgb(255,255,255),0
text 485,100,"Eraser Size= "+str$(boxsize)+" "
if inkey$()="+" and boxsize<2 then boxsize=2
if inkey$()="-" and boxsize>0 then boxsize=1
if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
ink rgb(255,255,255),0
if Style=0
text 485,120,"Pen Style: 2D"
endif
if Style=1
text 485,120,"Pen Style: 3D"
endif
if inkey$()="3" then Style=1
if inkey$()="2" and Style=1 then Style=0
if inkey$()="d" then disablemove=1
if inkey$()="e" then disablemove=0
if disablemove=1 and mousex()>=480 then position mouse 479,mousey()
trigger=0
realr=r
realg=g
realb=b
if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
sync
loop
confirm:
do
if inkey$()="Y" then cls : return
if inkey$()="n" then return
sync
loop
overline:
do
ink rgb(rnd(200)+150,0,0),0
line 480,0,480,500
if inkey$()="y" then exit
if inkey$()="n" then position mouse 479,mousey() : return
if inkey$()="d" then disablemove=1
if inkey$()="e" then disablemove=0
if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return
sync
loop
do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
ink rgb(255,255,255),0
center text 620,425,"C"
ink rgb(255,255,255),0
show mouse
if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1
`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
ink rgb(255,255,255),0
if itrigger<>1 then x=x+inricatevalue#
if x>=658 and itrigger2=0 then y=y+inricatevalue#
if x>=658 then itrigger=1
if y>=500 then itrigger2=1
line 320,240,x,y
if itrigger2=1 then x=x-inricatevalue#
if x=0 and y>=500 and itrigger2=1 then itrigger3=1
if itrigger3=1 then y=y-inricatevalue#
if itrigger3=1 then itrigger2=0
wait 2
if y=0 and x=0
itrigger=0
itrigger2=0
itrigger3=0
endif
thingy=thingy+1
sync
endwhile
thingy=0
itrigger=0
itrigger2=0
itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif
set text opaque
ink rgb(255,255,255),0
line 480,0,480,500
if inkey$()="R" and r<255 then r=r+1
if inkey$()="G" and g<255 then g=g+1
if inkey$()="B" and b<255 then b=b+1
if inkey$()="r" and r>0 then r=r-1
if inkey$()="g" and g>0 then g=g-1
if inkey$()="b" and b>0 then b=b-1
ink rgb(255,0,0),0
text 485,20," "
text 485,20,"Red: "+STR$(r)+" "
ink rgb(0,255,0),0
text 485,40," "
text 485,40,"Green: "+STR$(g)+" "
ink rgb(0,0,255),0
text 485,60," "
text 485,60,"Blue: "+STR$(b)+" "
ink rgb(r,g,b),0
box 595,20,620,80
ink rgb(55,55,55),0
line 595,20,595,80
line 595,20,620,20
line 620,20,620,80
line 595,80,620,80
if mousex()<480 then return
if mouseclick()=2 then gosub confirm
ink rgb(255,255,255),0
text 485,100,"Eraser Size= "+str$(boxsize)+" "
if inkey$()="+" and boxsize<2 then boxsize=2
if inkey$()="-" and boxsize>0 then boxsize=1
ink rgb(255,255,255),0
if Style=0
text 485,120,"Pen Style: 2D"
endif
if Style=1
text 485,120,"Pen Style: 3D"
endif
if inkey$()="3" then Style=1
if inkey$()="2" and Style=1 then Style=0
if inkey$()="d" then disablemove=1
if inkey$()="e" then disablemove=0
if disablemove=1 and mousex()>=480 then position mouse 479,mousey()
remend
sync
loop
