.Top
;Stop
AppTitle"Screen Art V3"
Graphics 1000,700,16,2
Global x=MouseX()
Global y=MouseY()
Global xsize=10
Global ysize=10
Global endinput=False
Global cheat$=""
SeedRnd (MilliSecs) ;Make it TRUE random
Global linedot
Global change=1
Global red = Rnd(0,255)
Global green = Rnd(0,255)
Global blue = Rnd(0,255)
Global bluething = True
Global greenthing = False
Global redthing = True
.Intro
;Intro
;DrawImage mrgreen,0,0
Delay 1000
Text 500,50,"SCREEN ART V3........",True,True
Delay 3000
Text 500,70,"A paint program.",True,True
Delay 2500
Text 500,150,"Created by Frances Konyn.",True,True
Delay 1500
Text 500,170,"Enjoy.",True,True
Delay 1500
Cls
.Instructions
;Instructions
Text 500,50,"R=restore buttons",True,True
Delay 2000
Text 500,100,"C=clear all",True,True
Delay 2000
Text 500,150,"E=use eraser",True,True
Delay 2000
Text 500,250,"Click on the color buttons to change color, the circle buttons to change size............",True,True
Delay 3000
Text 500,265,"and the big red one near the bottom to exit.",True,True
Delay 3500
ClsColor 255,255,255
Cls
Draw_Buttons
Color 0,0,0
.Main_Loop
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	While Not endinput=True

	 ;Cheat
	 Y=MouseY()
	 X=MouseX()

	
			If KeyDown(18) Or KeyDown(1) Or KeyDown(19) Or KeyDown(46)
			
				;Erase
				If KeyDown(18)
				Xsize=50
				Ysize=50
				Color 255,255,255
				EndIf
							
				If KeyDown(1)=True
					endinput=True
				EndIf
				
				If KeyDown(19)
			    	Draw_Buttons
				EndIf
				
				If KeyDown(46)
				ClsColor 255,255,255
				Cls
				Draw_Buttons
				EndIf
				EndIf
				
				If MouseDown(1)=True
				Button_Input
				If Not X>40=False And Y>172=False And X<0=False And Y<55=False
				Oval X,Y,xsize,ysize,1
				EndIf
			EndIf
			
			;If Right$(cheat$,3)="mom" And KeyHit(28)
			;Text 20,100,"To my Mom/Program Tester/Crasy idia sugester."
			;EndIf
				
	
	linedot=Rnd (0,1) ;Is it line or dot?
		Color (Rnd(50,200),Rnd(50,200),Rnd(50,200)) ;What color is it?
			
			Delay(5)	
			If linedot=0
				Line (Rnd(0,500),Rnd(0,500),Rnd(0,500),Rnd(0,500)) ;Draw the line if linedot is 0
			Else
				Oval (50+Rnd(-100,500),Rnd(-100,500),Rnd(10,100),Rnd(10,100)) ;Otherwise draw a dot
			EndIf
		
			If KeyDown(19)=True ;clearing the screen (press r)
				Cls
			EndIf

	Wend
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	
.Ending
ClsColor 0,0,0
Cls
Delay 500
Color 255,255,255
Text 500,300,"GoodBye, thankyou For playing.",True,True
Delay 1500
End

.Draw_Buttons
Function Draw_Buttons()
;Blue button
Color 3,120,255
Rect 0,0,55,20,1
;Black button
Color 0,0,0
Rect 55,0,55,20,1
;Green button
Color 6,241,39
Rect 110,0,55,20,1
;Purple button
Color 172,95,224
Rect 165,0,55,20,1
;Yellow button
Color 249,239,49
Rect 220,0,55,20,1
;Orange button
Color 252,154,46
Rect 275,0,55,20,1
;Red button
Color 252,46,51
Rect 330,0,55,20,1
;Pink button
Color 251,123,197
Rect 385,0,55,20,1
;Light Blue button
Color 125,236,249
Rect 440,0,55,20,1
;Light Green
Color 169,250,135
Rect 495,0,55,20
;Brown button
Color 37,19,5
Rect 550,0,55,20,1
Color 0,0,0
;Exit button
Color 253,23,40
Rect 515,640,110,40
Color 0,0,0
Text 570,660,"EXIT",True,True
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
End Function
.Button_Input
Function Button_Input()
;Blue button
If X=<55 And Y=<20 And X=>0 And Y=>0
Color 3,120,255
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Black button
If X=<110 And Y=<20 And X=>55 And Y=>0
Color 0,0,0
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Green button
If X=<165 And Y=<20 And X=>110 And Y=>0
Color 60,241,39
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Purple button
If X=<220 And Y=<20 And X=>165 And Y=>0
Color 172,95,224
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Yellow button
If X=<275 And Y=<20 And X=>220 And Y=>0
Color 249,239,49
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Orange button
If X=<330 And Y=<20 And X=>275 And Y=>0
Color 252,154,46
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Red button
If X=<385 And Y=<20 And X=>330 And Y=>0
Color 248,1,26
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Pink button
If X=<440 And Y=<20 And X=>385 And Y=>0
Color 254,120,204
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Light Blue button
If X=<495 And Y=<20 And X=>440 And Y=>0
Color 125,236,249
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Light Green button
If X=<550 And Y=<20 And X=>495 And Y=>0
Color 169,250,135
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Broun button
If X=<605 And Y=<20 And X=>550 And Y=>0
Color 37,19,5
;Tiny button
Oval 5,60,2,2,1
;Small button
Oval 5,67,5,5,1
;Normal button
Oval 5,77,10,10,1
;Obove Avarage button
Oval 5,92,15,15,1
;Giant button
Oval 5,112,20,20,1
;Ultra Giant button
Oval 5,137,30,30,1
EndIf
;Tiny button
If X=<7 And Y=<67 And X=>5 And Y=>60
xsize=2
ysize=2
EndIf
;Small button
If X=<10 And Y=<72 And X=>5 And Y=>67
xsize=5
ysize=5
EndIf
;Normal button
If X=<15 And Y=<87 And X=>5 And Y=>77
xsize=10
ysize=10
EndIf
;Obove Avarage button
If X=<20 And Y=<107 And X=>5 And Y=>92
xsize=15
ysize=15
EndIf
;Giant button
If X=<25 And Y=<132 And X=>5 And Y=>112
xsize=20
ysize=20
EndIf
;Ultra Giant button
If X=<35 And Y=<167 And X=>5 And Y=>137
xsize=30
ysize=30
EndIf
;Exit button
If X=<620 And Y=<680 And X=>515 And Y=>640 And MouseHit(1)=True
endinput=True
EndIf
End Function
.Cheat
;Function Cheat()
;If KeyHit(50)=True
;cheat$=cheat$+"m"
;EndIf
;If KeyHit(24)=True
;cheat$=cheat$+"o"
;EndIf
;If KeyHit(32)=True
;cheat$=cheat$+"d"
;EndIf
;If KeyHit(30)=True
;cheat$=cheat$+"a"
;EndIf
;Text 0,0,cheat$
;End Function
Function Load_images()
mrgreen=LoadImage("green_man.bmp")
End Function