Paint program - GameCreators Forum

Author

Message

BaZko

19

Years of Service

User Offline

Joined: 24th Sep 2004

Location:

Posted: 6th Dec 2004 06:03 Edited at: 6th Dec 2004 06:27

Link

+ Code Snippet

do
if spacekey()=1
if mouseclick()=1 then circle mousex(),mousey(),5
endif
if returnkey()=1
if mouseclick()=1 then dot mousex(),mousey()
endif
if controlkey()=1
if mouseclick()=1 then line mousex(),mousey(),mousex()+10,mousey()-10
endif
if shiftkey()=1
ink rgb(rnd(255),rnd(255),rnd(255)),0
endif
loop

This is a very simple paint program
Hold space to draw circles with your mouse.
Hold enter to draw dots with your mouse.
Hold control to draw lines with your mouse.
Press shift to change the color.

Please post comments(this is one of my first programs)

Back to top

Profile PM Email

Saikoro

20

Years of Service

User Offline

Joined: 6th Oct 2003

Location: California

Posted: 6th Dec 2004 18:13

Link

Pretty nice, it's been done before but if you add more things to it, it should come out to be very good

Check out g33knation ^^

Back to top

Profile PM Email Website

BaZko

19

Years of Service

User Offline

Joined: 24th Sep 2004

Location:

Posted: 7th Dec 2004 07:29 Edited at: 7th Dec 2004 08:45

Link

Thanks,im glad you like it,Ill try to add more things.

EDIT:I cant of anything to add,any ideas?
How do you make it so you can save/load images?

Back to top

Profile PM Email

BaZko

19

Years of Service

User Offline

Joined: 24th Sep 2004

Location:

Posted: 7th Dec 2004 08:48 Edited at: 7th Dec 2004 08:55

Link

UPDATE

+ Code Snippet

print "Display text?" : print "[1]Yes" : print "[2]No" : input ">",d
if d=1 : print "Enter text" : input "",t : text 300,300,str$(t) : endif
if d=2 then goto begin
begin:
do
if spacekey()=1
if mouseclick()=1 then circle mousex(),mousey(),5
endif
if returnkey()=1
if mouseclick()=1 then dot mousex(),mousey()
endif
if controlkey()=1
if mouseclick()=1 then line mousex(),mousey(),mousex()+10,mousey()-10
endif
if shiftkey()=1
ink rgb(rnd(255),rnd(255),rnd(255)),0
endif
loop

You can add text now

Back to top

Profile PM Email

Cookyzue

20

Years of Service

User Offline

Joined: 12th Oct 2003

Location: Who Cares?!

Posted: 7th Dec 2004 13:53

Link

if you want to save you can use the get image command and then save image.

Back to top

Profile PM Email Website

BaZko

19

Years of Service

User Offline

Joined: 24th Sep 2004

Location:

Posted: 9th Dec 2004 11:54 Edited at: 9th Dec 2004 11:58

Link

Any more comments??

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / Paint program