even better paint program!!!! - GameCreators Forum

Author

Message

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 23rd Apr 2006 07:45 Edited at: 25th Apr 2006 04:48

Link

I started new with my vision of a paint program. Cool features include drop-down menus, different colors, and stamps all in 18 lines!

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif
if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green"
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:endif:loop

+ Code Snippet

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif
if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green"
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:endif:loop

[Edit] I found out that there are complications when more than one drop-down menus are executed. It still works though

Mysteries Surround You

Back to top

Profile PM

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 27th Apr 2006 03:03

Link

any comments

Mysteries Surround You

Back to top

Profile PM

Medieval Coder

18

Years of Service

User Offline

Joined: 31st Dec 2005

Location:

Posted: 27th Apr 2006 05:09 Edited at: 27th Apr 2006 05:10

Link

Nice!
I fixed it....it had a bug!

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif
if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green":
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil":text 150,78,"TONTRTA"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif
If mousex()>150 and mousex()<250 and mousey()>78 and mousey()<91 and mouseclick()=1:special=4:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:If special=4:text mousex(),mousey(),"The One Noob To Rule Them All":endif:endif:loop

+ Code Snippet

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif
if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green":
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil":text 150,78,"TONTRTA"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif
If mousex()>150 and mousex()<250 and mousey()>78 and mousey()<91 and mouseclick()=1:special=4:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:If special=4:text mousex(),mousey(),"The One Noob To Rule Them All":endif:endif:loop

There ya go!

Back to top

Profile PM Email

Medieval Coder

18

Years of Service

User Offline

Joined: 31st Dec 2005

Location:

Posted: 27th Apr 2006 05:25

Link

Well its at 20 lines cause I added two more colors....
WHO CREATES A PAINT PROGRAM WITHOUT BLACK???

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green":text 69,61 ,"Black":text 69,76,"Brown"
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:
if mousex()>69 and mousex()<169 and mousey()>63 and mousey()<79 and mouseclick()=1:c1=0:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>79 and mousey()<95 and mouseclick()=1:c1=180:c2=113:c3=66:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil":text 150,78,"TONTRTA"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif
If mousex()>150 and mousex()<250 and mousey()>78 and mousey()<91 and mouseclick()=1:special=4:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:If special=4:text mousex(),mousey(),"The One Noob To Rule Them All":endif:endif:loop

+ Code Snippet

do:if exe=0:ink RGB(255,255,255),0:Box 0,0,screen width(),screen height():exe=1:endif:ink RGB(192,192,192),0:box 0,0,screen width(),15:ink RGB(0,0,0),0:set cursor 0,0:Print "File     Color     Stamps"
if mousex()>0 and mousex()<33 and mousey()<15 and mouseclick()=1:menu=1:endif:if mousex()>69 and mousex()<112 and mousey()<15 and mouseclick()=1:menu=2:endif if mousex()>150 and mousex()<202 and mousey()<15 and mouseclick()=1:menu=3:endif
if menu=1:ink RGB(192,192,192),0:box 0,15,100,100:ink 0,0:text 0,16,"New":text 0,31,"Exit"
if mousex()<100 and mousey()>15 and mousey()<30 and mouseclick()=1:exe=0:endif
if mousex()<100 and mousey()>31 and mousey()<46 and mouseclick()=1:exit:end:endif:endif
if menu=2:ink RGB(192,192,192),0:box 69,15,169,100:ink 0,0:text 69,16,"Red":text 69,31,"Blue":text 69,46,"Green":text 69,61 ,"Black":text 69,76,"Brown"
if mousex()>69 and mousex()<169 and mousey()>15 and mousey()<30 and mouseclick()=1:c1=255:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>31 and mousey()<46 and mouseclick()=1:c1=0:c2=0:c3=255:endif
if mousex()>69 and mousex()<169 and mousey()>47 and mousey()<62 and mouseclick()=1:c1=0:c2=255:c3=0:endif:
if mousex()>69 and mousex()<169 and mousey()>63 and mousey()<79 and mouseclick()=1:c1=0:c2=0:c3=0:endif
if mousex()>69 and mousex()<169 and mousey()>79 and mousey()<95 and mouseclick()=1:c1=180:c2=113:c3=66:endif:endif
if menu=3:ink RGB(192,192,192),0:box 150,15,250,100:ink 0,0:text 150,16,"Circle":text 150,31,"Box":text 150,46,"Hello":text 150,61,"Pencil":text 150,78,"TONTRTA"
if mousex()>150 and mousex()<250 and mousey()>15 and mousey()<30 and mouseclick()=1:special=1:endif
if mousex()>150 and mousex()<250 and mousey()>31 and mousey()<46 and mouseclick()=1:special=2:endif
if mousex()>150 and mousex()<250 and mousey()>47 and mousey()<62 and mouseclick()=1:special=3:endif
if mousex()>150 and mousex()<250 and mousey()>63 and mousey()<78 and mouseclick()=1:special=0:endif
If mousex()>150 and mousex()<250 and mousey()>78 and mousey()<91 and mouseclick()=1:special=4:endif:endif
if mousey()>101 and mouseclick()=1:menu=0:ink RGB(255,255,255),0:box 0,15,screen width(),100:endif
if menu=0 and mouseclick()=1:ink RGB(c1,c2,c3),0:If special=0:dot mousex(),mousey():endif:if special=1:circle mousex(),mousey(),5:endif
if special=2:box mousex()-3,mousey()-3,mousex()+3,mousey()+3:endif:if special=3:text mousex(),mousey(),"HELLO":endif:If special=4:text mousex(),mousey(),"The One Noob To Rule Them All":endif:endif:loop

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 28th Apr 2006 04:33

Link

thanks alot! I'm not sure I want the TONTRTA in it though

Mysteries Surround You

Back to top

Profile PM

Medieval Coder

18

Years of Service

User Offline

Joined: 31st Dec 2005

Location:

Posted: 29th Apr 2006 01:09 Edited at: 29th Apr 2006 01:09

Link

Thats interesting....I saved the code as a .dba...
and now I get this...

; **** Dark BASIC Professional Project File ****
version=DBP1.00
project name=

; **** source file information ****
main=C:Program FilesThe Game CreatorsDark Basic Professional OnlineProjectsImagegetter.dba
; The compiler only needs to read the final source from this entry - the editor
; handles include files, concatenation, etc.
final source=_Temp.dbsource

; The editor will replace any references to %temp in the EXE path/filename
executable=C:Program FilesThe Game CreatorsDark Basic Professional OnlineProjectsImagegetter.exe

; **** Executable Information  ***
; build types: exe, media, installer,alone
build type=exe

; ** Media file compression **
compression=NO
; ** Media file encryption **
encryption=NO
; ** Display the card options screen window? **
card options window=NO

; **** debugger information ****
; If the editor sets this to yes, it is running in debug mode
CLI=NO

; **** display mode information ****
app title=DarkBASIC Pro Project
; graphics mode options: fullscreen, window, desktop,fulldesktop, hidden
graphics mode=fulldesktop
fullscreen resolution=640x480x16
; arbitrary sizes are valid for windowed mode
window resolution=640x480

; **** External Files Information ****
; **** Media ****
media root path=
; example entries: media1=graphics*.jpg

; **** Icons ****

; **** Cursors ****

; **** Version Info ****
VerComments=
VerCompany=
VerFileDesc=
VerFileNumber=v1.0
VerInternal=
VerCopyright=
VerTrademark=
VerFilename=
VerProduct=
VerProductNumber=v1.0

+ Code Snippet

; **** Dark BASIC Professional Project File ****
version=DBP1.00
project name=



; **** source file information ****
main=C:Program FilesThe Game CreatorsDark Basic Professional OnlineProjectsImagegetter.dba
; The compiler only needs to read the final source from this entry - the editor
; handles include files, concatenation, etc.
final source=_Temp.dbsource

; The editor will replace any references to %temp in the EXE path/filename
executable=C:Program FilesThe Game CreatorsDark Basic Professional OnlineProjectsImagegetter.exe

; **** Executable Information  ***
; build types: exe, media, installer,alone
build type=exe

; ** Media file compression **
compression=NO
; ** Media file encryption **
encryption=NO
; ** Display the card options screen window? **
card options window=NO

; **** debugger information ****
; If the editor sets this to yes, it is running in debug mode
CLI=NO

; **** display mode information ****
app title=DarkBASIC Pro Project
; graphics mode options: fullscreen, window, desktop,fulldesktop, hidden
graphics mode=fulldesktop
fullscreen resolution=640x480x16
; arbitrary sizes are valid for windowed mode
window resolution=640x480

; **** External Files Information ****
; **** Media ****
media root path=
; example entries: media1=graphics*.jpg

; **** Icons ****

; **** Cursors ****

; **** Version Info ****
VerComments=
VerCompany=
VerFileDesc=
VerFileNumber=v1.0
VerInternal=
VerCopyright=
VerTrademark=
VerFilename=
VerProduct=
VerProductNumber=v1.0

Any ideas?

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 29th Apr 2006 04:17

Link

thats weird

Mysteries Surround You

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / even better paint program!!!!