The DB Classic Programming Challenge Thread

Author

Message

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 30th Sep 2007 22:56

Link

i didn't realise we only had a week for this one

and I used floats because I'm using pythagoras at one point but it should probably work anyway... I don't know. I've only got a couple of floats in the programme anyway...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Game pro

22

Years of Service

User Offline

Joined: 21st Mar 2004

Location: Usa

Posted: 30th Sep 2007 23:04

Link

Cool, Im gonna try out for this next time.

I have nothing to say to the likes of you.

Back to top

Profile PM Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 1st Oct 2007 23:23 Edited at: 1st Oct 2007 23:26

Link

Final entry I think... not really time to update any more... not very happy with the filled circles though

cls rgb(255,200,200)
sync on
sync rate 0
set text font "verdana"
set text size 10
set display mode 800,600,16
cls rgb(255,200,200) : sync

colourval=0
ink colourval,rgb(255,255,255)

`bitmap 2 = image
create bitmap 2,660,570
cls rgb(255,255,255)
`bitmap 3 = alterations
create bitmap 3,660,570
set current bitmap 0

gosub toolbar
gosub newpage
dmethod = 5
airbrushrad=10

do

if mouseclick()=1
	if mousex()<660 and mousey()<570
		if dmethod = 0
			set current bitmap 2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,mousex(),mousey()
			x#=mousex()
			y#=mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 1
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,mousex(),mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 2
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 
				x#=mousex()
				y#=mousey()
			endif
			xcenter=(x#+mousex())/2
			ycenter=(y#+mousey())/2
			xrad=ABS(xcenter-mousex())
			yrad=ABS(ycenter-mousey())
			ellipse xcenter,ycenter,xrad,yrad
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 3
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 
				x#=mousex()
				y#=mousey()
			endif
			xcenter=(x#+mousex())/2
			ycenter=(y#+mousey())/2
			rad=(ABS(xcenter-mousex())+ABS(ycenter-mousey()))/2
			for t=0 to rad
				circle xcenter,ycenter,t
			next t
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 4
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,x#,mousey()
			line x#,y#,mousex(),y#
			line mousex(),y#,mousex(),mousey()
			line x#,mousey(),mousex(),mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 5
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			if mousex()>x# and mousey()>y# then box x#,y#,mousex(),mousey()
			if mousex()<x# and mousey()>y# then box mousex(),y#,x#,mousey()
			if mousex()>x# and mousey()<y# then box x#,mousey(),mousex(),y#
			if mousex()<x# and mousey()<y# then box mousex(),mousey(),x#,y#
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 6
			set current bitmap 2
			for x=mousex()-airbrushrad to mousex()+airbrushrad
				for y=mousey()-airbrushrad to mousey()+airbrushrad
					if SQRT((x-mousex())^2+(y-mousey())^2)<airbrushrad
						airbrushvar=rnd(4)
						if airbrushvar=4 then dot x,y
					endif
				next y
			next x
			set current bitmap 0
			copy bitmap 2,0
		endif
	endif
	if mousex()>690 and mousex()<770 and mousey()>100 and mousey()<400
		colourval=point(mousex(),mousey())
		ink colourval,rgb(255,255,255)
		box 701,411,759,414
	endif
	if mousex()>700 and mousex()<760 and mousey()>20 and mousey()<80 then gosub newpage
	for t=0 to 3
		for q=0 to 1
			if mousey()>(425+40*t) and mousey()<(425+40*(t+1)) and mousex()>(690+40*q) and mousex()<(690+40*(q+1))
				dmethod=(t*2)+q
			endif
		next q
	next t
else
	sStarted = 0
	copy bitmap 2,0
	copy bitmap 2,3
endif

sync
loop

newpage:
ink 0,rgb(255,255,255)
cls
copy bitmap 1,0,0,139,599,0,660,0,799,599

return

toolbar:
create bitmap 1,140,600
ink rgb(155,155,155),0
box 0,0,139,599
ink 0,rgb(255,255,255)
box 40,20,100,80
ink rgb(255,255,255),0
box 41,21,99,79
ink 0,rgb(255,255,255)
line 83,30,83,70
line 57,40,57,70
line 67,30,83,30
line 57,70,83,70
line 57,40,67,30
line 57,40,67,40
line 67,30,67,40

`colour chart
for t=30 to 110 step 20
	line t,100,t,400
next t
for t=100 to 400 step 20
	line 30,t,110,t
next t

`grayscale
for t=0 to 14
	ink rgb(t*17,t*17,t*17),0 : box 31,101+(t*20),49,119+(t*20)
next t

`red-yellow-green
for t=0 to 4
	ink rgb(t*51,0,0),0 : box 51,101+(t*20),69,119+(t*20)
next t
for t=0 to 4
	ink rgb(255,t*51,0),0 : box 51,201+(t*20),69,219+(t*20)
next t
for t=0 to 4
	ink rgb(255-(t*51),255,0),0 : box 51,301+(t*20),69,319+(t*20)
next t

`green-cyan-blue
for t=0 to 4
	ink rgb(0,t*51,0),0 : box 71,101+(t*20),89,119+(t*20)
next t
for t=0 to 4
	ink rgb(0,255,t*51),0 : box 71,201+(t*20),89,219+(t*20)
next t
for t=0 to 4
	ink rgb(0,255-(t*51),255),0 : box 71,301+(t*20),89,319+(t*20)
next t

`blue-purple-red
for t=0 to 4
	ink rgb(0,0,t*51),0 : box 91,101+(t*20),109,119+(t*20)
next t
for t=0 to 4
	ink rgb(t*51,0,255),0 : box 91,201+(t*20),109,219+(t*20)
next t
for t=0 to 4
	ink rgb(255,0,255-(t*51)),0 : box 91,301+(t*20),109,319+(t*20)
next t

ink 0,0
colourval=0
box 40,410,100,415

`tools
for t=30 to 110 step 40
	line t,425,t,585
next t
for t=425 to 585 step 40
	line 30,t,110,t
next t

`pencil tool - 0
ink 0,0
line 35,455,65,435 : line 33,453,63,433 : line 37,457,67,437 : line 33,453,37,457 : line 67,437,63,433 : line 67,437,67,433 : line 67,433,63,433 : dot 66,434

`line tool - 1
ink 0,0
line 75,455,105,435

`ellipse/circle tool - 2
ellipse 50,485,9,6

`filled circle - 3
for t=0 to 8
	circle 90,485,t
next t

`box - 4
line 40,516,60,516
line 40,535,60,535
line 40,516,40,535
line 60,516,60,535

`filled box - 5
box 80,516,100,535

`Airbrush - 6
for x=31 to 69
	for y=546 to 584
		if SQRT((x-50)^2+(y-565)^2)<15
			airbrushvar=rnd(4)
			if airbrushvar=4 then dot x,y
		endif
	next y
next x

`Fill With Colour - 7
box 70,545,110,585

set current bitmap 0
return

+ Code Snippet

cls rgb(255,200,200)
sync on
sync rate 0
set text font "verdana"
set text size 10
set display mode 800,600,16
cls rgb(255,200,200) : sync

colourval=0
ink colourval,rgb(255,255,255)

`bitmap 2 = image
create bitmap 2,660,570
cls rgb(255,255,255)
`bitmap 3 = alterations
create bitmap 3,660,570
set current bitmap 0

gosub toolbar
gosub newpage
dmethod = 5
airbrushrad=10


do



if mouseclick()=1
	if mousex()<660 and mousey()<570
		if dmethod = 0
			set current bitmap 2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,mousex(),mousey()
			x#=mousex()
			y#=mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 1
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,mousex(),mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 2
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 
				x#=mousex()
				y#=mousey()
			endif
			xcenter=(x#+mousex())/2
			ycenter=(y#+mousey())/2
			xrad=ABS(xcenter-mousex())
			yrad=ABS(ycenter-mousey())
			ellipse xcenter,ycenter,xrad,yrad
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 3
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 
				x#=mousex()
				y#=mousey()
			endif
			xcenter=(x#+mousex())/2
			ycenter=(y#+mousey())/2
			rad=(ABS(xcenter-mousex())+ABS(ycenter-mousey()))/2
			for t=0 to rad
				circle xcenter,ycenter,t
			next t
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 4
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			line x#,y#,x#,mousey()
			line x#,y#,mousex(),y#
			line mousex(),y#,mousex(),mousey()
			line x#,mousey(),mousex(),mousey()
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 5
			set current bitmap 2
			copy bitmap 3,2
			if sStarted=0 then x#=mousex() : y#=mousey()
			if mousex()>x# and mousey()>y# then box x#,y#,mousex(),mousey()
			if mousex()<x# and mousey()>y# then box mousex(),y#,x#,mousey()
			if mousex()>x# and mousey()<y# then box x#,mousey(),mousex(),y#
			if mousex()<x# and mousey()<y# then box mousex(),mousey(),x#,y#
			sStarted = 1
			set current bitmap 0
			copy bitmap 2,0
		endif
		if dmethod = 6
			set current bitmap 2
			for x=mousex()-airbrushrad to mousex()+airbrushrad
				for y=mousey()-airbrushrad to mousey()+airbrushrad
					if SQRT((x-mousex())^2+(y-mousey())^2)<airbrushrad
						airbrushvar=rnd(4)
						if airbrushvar=4 then dot x,y
					endif
				next y
			next x
			set current bitmap 0
			copy bitmap 2,0
		endif
	endif
	if mousex()>690 and mousex()<770 and mousey()>100 and mousey()<400
		colourval=point(mousex(),mousey())
		ink colourval,rgb(255,255,255)
		box 701,411,759,414
	endif
	if mousex()>700 and mousex()<760 and mousey()>20 and mousey()<80 then gosub newpage
	for t=0 to 3
		for q=0 to 1
			if mousey()>(425+40*t) and mousey()<(425+40*(t+1)) and mousex()>(690+40*q) and mousex()<(690+40*(q+1))
				dmethod=(t*2)+q
			endif
		next q
	next t
else
	sStarted = 0
	copy bitmap 2,0
	copy bitmap 2,3
endif



sync
loop

newpage:
ink 0,rgb(255,255,255)
cls
copy bitmap 1,0,0,139,599,0,660,0,799,599

return




toolbar:
create bitmap 1,140,600
ink rgb(155,155,155),0
box 0,0,139,599
ink 0,rgb(255,255,255)
box 40,20,100,80
ink rgb(255,255,255),0
box 41,21,99,79
ink 0,rgb(255,255,255)
line 83,30,83,70
line 57,40,57,70
line 67,30,83,30
line 57,70,83,70
line 57,40,67,30
line 57,40,67,40
line 67,30,67,40

`colour chart
for t=30 to 110 step 20
	line t,100,t,400
next t
for t=100 to 400 step 20
	line 30,t,110,t
next t

`grayscale
for t=0 to 14
	ink rgb(t*17,t*17,t*17),0 : box 31,101+(t*20),49,119+(t*20)
next t

`red-yellow-green
for t=0 to 4
	ink rgb(t*51,0,0),0 : box 51,101+(t*20),69,119+(t*20)
next t
for t=0 to 4
	ink rgb(255,t*51,0),0 : box 51,201+(t*20),69,219+(t*20)
next t
for t=0 to 4
	ink rgb(255-(t*51),255,0),0 : box 51,301+(t*20),69,319+(t*20)
next t

`green-cyan-blue
for t=0 to 4
	ink rgb(0,t*51,0),0 : box 71,101+(t*20),89,119+(t*20)
next t
for t=0 to 4
	ink rgb(0,255,t*51),0 : box 71,201+(t*20),89,219+(t*20)
next t
for t=0 to 4
	ink rgb(0,255-(t*51),255),0 : box 71,301+(t*20),89,319+(t*20)
next t

`blue-purple-red
for t=0 to 4
	ink rgb(0,0,t*51),0 : box 91,101+(t*20),109,119+(t*20)
next t
for t=0 to 4
	ink rgb(t*51,0,255),0 : box 91,201+(t*20),109,219+(t*20)
next t
for t=0 to 4
	ink rgb(255,0,255-(t*51)),0 : box 91,301+(t*20),109,319+(t*20)
next t

ink 0,0
colourval=0
box 40,410,100,415



`tools
for t=30 to 110 step 40
	line t,425,t,585
next t
for t=425 to 585 step 40
	line 30,t,110,t
next t

`pencil tool - 0
ink 0,0
line 35,455,65,435 : line 33,453,63,433 : line 37,457,67,437 : line 33,453,37,457 : line 67,437,63,433 : line 67,437,67,433 : line 67,433,63,433 : dot 66,434


`line tool - 1
ink 0,0
line 75,455,105,435

`ellipse/circle tool - 2
ellipse 50,485,9,6

`filled circle - 3
for t=0 to 8
	circle 90,485,t
next t

`box - 4
line 40,516,60,516
line 40,535,60,535
line 40,516,40,535
line 60,516,60,535

`filled box - 5
box 80,516,100,535

`Airbrush - 6
for x=31 to 69
	for y=546 to 584
		if SQRT((x-50)^2+(y-565)^2)<15
			airbrushvar=rnd(4)
			if airbrushvar=4 then dot x,y
		endif
	next y
next x

`Fill With Colour - 7
box 70,545,110,585


set current bitmap 0
return

EDIT: Also, stuff I didn't get round to

*Flood Fill - no idea how to do this tbh...
*More flexibility for tools (knew how to do the airbrush, but hadn't figured out the others yet really)
*Saving & Loading files - pretty simple, just ran out of time

Can't think of owt else which I was going to include...

EDIT 2: Is it just me or are the forum banners getting funnier...

Quote: "Programming: The process of converting caffeine into error messages"

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Not_Maindric

18

Years of Service

User Offline

Joined: 10th Jul 2007

Location: Omaha, NE

Posted: 2nd Oct 2007 04:07

Link

@Demons breath:
Your new file button, or the clear button, does not work fully. Thought that I should let you know.

http://www.freewebs.com/maindric/

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 2nd Oct 2007 04:13

Link

Oky doky, this competition is over. There were only a couple of entries. Hopefully this will pick up. I don't think everyone realizes how much can be learned by participating in the challenges. In one way or another, one can use many of the methods and ideas to include in designing and building their own apps and games. But enough lecturing:

Entries:

TDK:
quick draw
This was most likely meant as an example but it hit one or two of the criteria for the challenge (and the method is only about 10 lines long inside the main loop.

). This is where one can get started and add bells and whistles from there. Good Example!

Demons Breath:
full paint prog
Lot's of good ideas, nice and clean interface, easy to use. Had several tools. Met all of the basic criteria except for saving/loading , non breaking drawing line and your first version could clear the screen - but your last version wouldn't. All and all, a nice program. I'm sure if you had more time you would have added those things you wanted and tuned it up a bit. Nice job.

OBese87:
Mirror
Very nice and smooth - good effect. Would make a nice tool for a paint program. Met some of the basic criteria, didn't have sav/load, color select, or eraser. Still fun to mess around with.

Color Selector
The beginnings of another paint tool. Not really meeting the challenge criteria.

Variation on demons breath's
A variation of demon breath's program with a custom line function. A pretty close copy of demons first entry - again, another good display of a tool that could be added to a paint program (the custom line function).

First of all, nice work to those that entered!

Runner Up:

+ Code Snippet

OBese87  Mirror drawing program.

And the Winner is...

+ Code Snippet

demons breath 2d paint program.  You may now set the next challenge!

Enjoy your day.

Back to top

Profile PM

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Oct 2007 04:41

Link

well done demon

i got stuck trying to figure out how to do a fill

anyone do this?

In programming, nothing exists

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Oct 2007 04:42

Link

ah crap, guys ive been noob slapped so I might take a while to respond

In programming, nothing exists

Back to top

Profile PM Email

luke810

19

Years of Service

User Offline

Joined: 4th Sep 2006

Location: United States

Posted: 2nd Oct 2007 05:07

Link

I didn't have the time to finish mine.

It wasn't very good anyway...

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 2nd Oct 2007 06:24

Link

OBese87

What have you been up to now?!...

More work for me now you pest!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 2nd Oct 2007 06:28

Link

same thing as luke said... lol

how do you make a sig?

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 2nd Oct 2007 09:37 Edited at: 2nd Oct 2007 11:25

Link

WOOO! I didn't lose!

I'll set a challenge when I get home, but I really should be getting ready for college now... plus that will give me a day to actually think of something...

EDIT: Also, the newpage gosub should have had this in:

+ Code Snippet

set current bitmap 2
cls
set current bitmap 3
cls
set current bitmap 0

I just forgot to add it when I added the other bitmaps 'cos they copy to each other and the screen... was kinda foolish of me...

EDIT 2: I couldn't find Obese's mirror function on here... maybe i'm just being a bit special... I liked the colour selector idea though.

I can't figure out why TDK's line worked and mine didn't...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 2nd Oct 2007 18:37

Link

OK, new challenge (I'll change it if enough people complain though):

basic Pokemon clone : Deadline: Midnight GMT Tuesday 17th October

-Moving around
-when in certain areas, battles can be spawned
-turn-based battle engine

bonus points:
-items
-type weaknesses
-anything else you can think of

It doesn't have to be pokemon obviously, I just thought that was the best example of the sort of thing I'm thinking of. Anything with movement and turn-based battles.

I've said 2 weeks 'cos this one might take longer to work on as there are 2 basic modes as opposed to some of the challenges, and I thought the 1 week deadline was a bit tight as a lot of people on here have school/college/work taking up a lot of their time.

I thought it would be useful for the movement code and because the battle engine could be tailored towards RPG battle engines for any of you who are still working on their MMORPGs

I don't know how complicated this challenge will be though... it'll probably mostly be done in 2D (I'll be impressed if anyone manages a 3D version) and use lots of arrays and random variables and basic mathematical calculations, but thats about it.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Oct 2007 20:30

Link

Here's an apartment block for my game

any ideas on how I draw this within the code?

In programming, nothing exists

Back to top

Profile PM Email

Pixelator

18

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 3rd Oct 2007 00:06

Link

I object !!!!!!!!!!!!!!!!!!!!!!!!

We have agree that there can be no challenges that require you to make a full game!!!! Sorry demons breath but the challenge needs to change.

Maryville Game Developers
Visit our website at http://www.freewebs.com/maryville-game-developers/index.htm

Back to top

Profile PM Email

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 3rd Oct 2007 00:13

Link

@ OBese - shouldn't be too hard... just lines and boxes mostly... I'm not good with graphical stuff though

@Pixelator: Sorry I didn't know about that... I didn't mean an entire game but just basic engines for one of the parts... but I'll leave it open then... I have no ideas with people like Latch and TDK entering (was never actually expecting to win one so I didn't think it'd be an issue)

Anyone got any ideas? (the only other idea I had was a frogger-style thing, but that's also a full game... looks like I'm stumped then)

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Pixelator

18

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 3rd Oct 2007 00:22

Link

@ Demons Breath
Its fine!! i just wanted to let you know before anyone got too far into it.

try a challenge that involves the user to type in a command to make the computer do something. Also i would put in a minimum of like 3 commands and have extra points start at like 5 commands and up.

Maryville Game Developers
Visit our website at http://www.freewebs.com/maryville-game-developers/index.htm

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 3rd Oct 2007 01:38

Link

The apartment block was gonna be one of my locations for my game

I think it would be good to do this challenge as it requires good planning to get it done in two weeks and not suffer from feature creep

It doesn't have to be an in-depth thing. Maybe you should change the specifications so people dont HAVE to make a game.

In programming, nothing exists

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 3rd Oct 2007 02:14

Link

Quote: "I have no ideas with people like Latch and TDK entering (was never actually expecting to win one so I didn't think it'd be an issue)"

I enter mainly so others can get some ideas as how to approach some of the problems in the challenges. My goal really isn't to win. If my entries are preventing others from even trying out the challenges, I won't enter any more.

Enjoy your day.

Back to top

Profile PM

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 3rd Oct 2007 02:27

Link

@Latch
NO, it's good when you guys enter. It makes it better I think.
Maybe we should try that rookie thing that someone mentioned.

In programming, nothing exists

Back to top

Profile PM Email

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 3rd Oct 2007 05:26

Link

My friend has a PokeMon game so I know what it looks like. Although I don't play that game, I actually think it would be a great idea!

how do you make a sig?

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 3rd Oct 2007 08:43 Edited at: 3rd Oct 2007 08:49

Link

We discussed this before and basically decided that having a full game wasn't a good idea because:

* Not everyone (including me) has time to devote that much time to a challenge
* The difficulty level is too high and may discourage newcomers from joining in
* You don't really learn that much as the project is too big
* The lack of decent graphics makes it a waste of time

What A Challenge Should Be:

Ideally, a challenge should be based on a single aspect of programming. That may be something you would like to know more about for a game you are writing.

Challenges should not require fancy graphics. Little or none at all is preferred and those that are used should be created with DB's drawing commands or 3D objects.

Full games are OK if they are kept extremely simple with little or no graphics (text only games). No retro games or clones!

A good challenge is open-ended allowing the complete novice to complete it but the average and more experienced programmer to expand or add to it. That way, the novice may not win, but has learned and achieved something in the process.

Don't worry if a challenge is too easy - leave it to the competitors to figure out a way to give their programs a little extra so you choose them as the winner.

Just be sure to clearly state in the challenge description the aspects that you want to see in the finished program and which parts they can use their imagination with.

Here's a few ideas for challenges:

Cannon Challenge:

Create a 3D program which places a cube on a matrix at a random position. You then point the camera at the cube, enter an angle and a velocity and fire a sphere 'cannonball'. You have 5 attempts to hit the cube. Lots of room for the experienced coders to get the judges attention there right?

Screensaver Challenge:

Create the best 2D or 3D screensaver you can.

Building Challenge:

Using the supplied code which generates textures, (which I can supply if anyone wants to use this challenge) use DB's primitive objects to create a model of a **** (insert your own building type here).

Wacky Alarm Clock Challenge:

Write an alarm clock program. It must display the correct time and allow the user to set the time for an alarm to go off. The alarm must be visual as no external audio can be used. Can be 2D or 3D and the 'wackier' the clock is the more points will be awarded.

ASCII Art Challenge:

Create a full screen piece of art procedurally using only the Text command. The 'picture' can be randomly generated, created using formulas to create an abstract image or programmed to draw something recognisable. Points are awarded for the 'ooh that looks nice' factor.

Typing Tutor Challenge:

Note: The following is only a guide. Feel free to modify the scoring and/or number of lives gained/lost to improve game playability and fun aspect.

Make a game where random keyboard letters are chosen and fall down from the top of the screen (slowly at first).

The player starts with 5 lives.

When the user types a falling letter on the keyboard it disappears and they get 10 points plus a bonus based on how quickly they typed it. An extra life is awarded every 5000 points.

If they type a letter not on the screen they lose 10 points. For every 100 points they lose in this way they lose one of their 5 lives.

At the end of each round, the number of letters falling simultaneously increases and they drop more quickly. A life is lost for every 5 letters that reach the bottom of the screen in any one round. The 'off the bottom' counter is reset at the end of each round.

The game ends when the player has zero lives left.

Text Message Challenge:

Create a program which allows you to type a string message in then clears the screen and displays that message in a novel way. In fact, any way other than using the Print or Text commands on their own.

You can use those commands, but you must not see the results on the screen - you must generate the on-screen message procedurally. Just grabbing and pasting the text as an image on screen 0 is not acceptable.

Obviously you can expand on or modify what I have outlined in the above challenges such as specifying what can be added to get extra points or adding rules you think should be there.

Also, feel free to make up your own variations if the challenges above give you any ideas of your own.

Remember, keep them fairly simple, interesting, open for everyone to use their imagination with and above all, fun to do but educational.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 3rd Oct 2007 16:00

Link

oh can we do the clock cos i think i have an awesome and crazy idea

In programming, nothing exists

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 3rd Oct 2007 22:22

Link

what's the challenge going to be then?

In programming, nothing exists

Back to top

Profile PM Email

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 4th Oct 2007 02:10

Link

I actually made a computer alarm clock program for general use..although it's not very wacky

how do you make a sig?

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 01:21 Edited at: 5th Oct 2007 01:22

Link

the wacky alarm clock sounds like the most popular idea.

sorry about the whole bad challenge thing

Wacky alarm clock
Deadline = Thursday 11th October, 11:59 GMT

Quote: "Write an alarm clock program. It must display the correct time and allow the user to set the time for an alarm to go off. The alarm must be visual as no external audio can be used. Can be 2D or 3D and the 'wackier' the clock is the more points will be awarded."

Thanks TDK I didn't have any ideas at all.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 5th Oct 2007 03:30

Link

i would like to see some mechanical clocks this time round

must be damn difficult though

In programming, nothing exists

Back to top

Profile PM Email

Binary Coder

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location: Queensland, Australia

Posted: 5th Oct 2007 07:57 Edited at: 5th Oct 2007 08:02

Link

Yay Im first!

I've learnt something from this already! (I had no idea how to get the create bitmap command work without stuffing up)

Ok, my program hardly works. For some reason the do-loop is not infinite. I think it has something to do with the refreshing of the bitmap for the new time. The program just ends. Any ideas?

Here it is:

sync on

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

do

` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

Print time$
cls

`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds

Delete bitmap 1
Delete bitmap 2
Delete bitmap 3

turn object left 1,5
turn object left 2,5
turn object left 3,5
 
sync
loop

`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

set current bitmap 0
Texture object 1,1

Minutes:

create bitmap 2,25,25
cls rgb(10,255,50)
set text size 10
text 5,5,minutes$
flip bitmap 2
mirror bitmap 2

get image 2,0,0,20,25

set current bitmap 0

Texture object 2,2

Seconds:

create bitmap 3,25,25
cls rgb(50,30,10)
set text size 10
text 5,5,seconds$
flip bitmap 3
mirror bitmap 3

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

+ Code Snippet

sync on

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

do

   ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

Print time$
cls

`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds

Delete bitmap 1
Delete bitmap 2
Delete bitmap 3


turn object left 1,5
turn object left 2,5
turn object left 3,5
 
sync
loop


`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

set current bitmap 0
Texture object 1,1



Minutes:

create bitmap 2,25,25
cls rgb(10,255,50)
set text size 10
text 5,5,minutes$
flip bitmap 2
mirror bitmap 2

get image 2,0,0,20,25

set current bitmap 0

Texture object 2,2


Seconds:

create bitmap 3,25,25
cls rgb(50,30,10)
set text size 10
text 5,5,seconds$
flip bitmap 3
mirror bitmap 3

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

Also i borrowed and edited this code from Sven B on the first page:

+ Code Snippet

 ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

Thanks Sven B for that!

Back to top

Profile PM Email

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 10:47 Edited at: 5th Oct 2007 10:51

Link

that looks like a cool programme... i'd like to see a bit more added to make it function as an alarm clock instead of just a clock but it's a good start to the challenge.

Your problem lies in your gosubs

a gosub has
{the name of your gosub}:
{the code you want to include}
return

it's that return you're missing. The program gets sent to the first gosub but because it doesn't get told to return at any point it runs through the code right until it gets to the end of the programme, and then it ends

Also, you have

+ Code Snippet

Delete bitmap 1
Delete bitmap 2
Delete bitmap 3

in the middle of your code; I would personally have put them in the gosubs they were related to, or better still not have included them at all... simply create the bitmaps before the loop starts and don't delete them, as unnecessary creation and deletion slows FPS, and whereas that isn't necessarily hugely important in a clock it is probably a better practise to get into.

oh, and Latch,

Quote: "Quote: "I have no ideas with people like Latch and TDK entering (was never actually expecting to win one so I didn't think it'd be an issue)"

I enter mainly so others can get some ideas as how to approach some of the problems in the challenges. My goal really isn't to win. If my entries are preventing others from even trying out the challenges, I won't enter any more."

I didn't mean that, I was just complimenting you on your ability, and I think it's a lot more fun when people like you enter, and a lot more helpful for us when we see your code and rip it off in our next project

j/k but it is interesting to see how you approach things and does help me personally at least to start to try thinking outside the box a little.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Binary Coder

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location: Queensland, Australia

Posted: 5th Oct 2007 13:32

Link

Thanks Demons Breath! I make alot of stupid mistakes these days.

Ok, i'm happy with it for now. On the first screen you can specify the time wanted (must be in 24 hour time and in hrs:mins:secs)

sync on

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to off at?>", alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4

get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)

`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif

Print time$
cls

`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds

turn object left 1,5
turn object left 2,5
turn object left 3,5
 
sync
loop

`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

set current bitmap 0
Texture object 1,1
Return

Minutes:

create bitmap 2,25,25
cls rgb(10,255,50)
set text size 10
text 5,5,minutes$
flip bitmap 2
mirror bitmap 2

get image 2,0,0,20,25

set current bitmap 0

Texture object 2,2
Return

Seconds:

create bitmap 3,25,25
cls rgb(50,30,10)
set text size 10
text 5,5,seconds$
flip bitmap 3
mirror bitmap 3

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3
Return

+ Code Snippet

sync on

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to off at?>", alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4


get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)


`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

   ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif

Print time$
cls

`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds




turn object left 1,5
turn object left 2,5
turn object left 3,5
 
sync
loop


`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

set current bitmap 0
Texture object 1,1
Return


Minutes:

create bitmap 2,25,25
cls rgb(10,255,50)
set text size 10
text 5,5,minutes$
flip bitmap 2
mirror bitmap 2

get image 2,0,0,20,25

set current bitmap 0

Texture object 2,2
Return

Seconds:

create bitmap 3,25,25
cls rgb(50,30,10)
set text size 10
text 5,5,seconds$
flip bitmap 3
mirror bitmap 3

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3
Return

Hmmm... Does anyone else's screen flash when viewing this?

Back to top

Profile PM Email

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 13:52

Link

my screen will for the input, because I'm one of those people who has to put cls at the start of every program because of some annoying glitch -try that and see if it helps.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 14:05

Link

Just another suggestion:

If you run this

+ Code Snippet

cls
sync on

do
time$=get Time$()
cls
print time$
sync
loop

you will see that time comes out as hh:mm:ss

you could change your input line to

+ Code Snippet

Input "What time would you like me to go off at? (hh:mm:ss)>", alarmtime$

Then you should include something to check if the time value is input correctly (I'm not going to tell you how to do this obviously, the point of the challenge is to figure out how to do these things yourself) but as it is now, were someone to type the input as, for example, "Archibald" the counter would keep going on forever. Which could get a bit dull eventually.

I know it's not hugely likely that someone will do that, but they could, for example, put full stops instead of colons, or accidentally key in the wrong number, leaving them with a number that is impossible to get.

To keep your code with the input variable at the beginning as it is now, I would check that the first digit is a number 0-2, the second, fifth and last all numbers 0-9, the 4th and 7th numbers 0-5 and the third and 6th are colons.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Binary Coder

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location: Queensland, Australia

Posted: 5th Oct 2007 14:13

Link

Thanks mate, I'll give it a go tomorrow.

So what i would do to get each number is something like this:

+ Code Snippet

   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

And then do that again to each?

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 5th Oct 2007 14:33

Link

@demons breath
I didn't think you meant anything negative and I didn't take it that way but it made me think a little.

I do believe that sometimes beginners may be frustrated if there are entries from more experienced programmers. Though there has been discussion about it in the past, I think it still holds true.

@Binary Coder
Try getting rid of that CLS in the middle of your loop. Also, since you are clearing your bitmaps anyway with their respective colors, why not just use one bitmap to do all of the drawing on?

Enjoy your day.

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 14:34

Link

you could, but what if someone missed a colon or something?

if they put 1535:00 instead of 15:35:00, a code like that would come out with hours=15, minutes=5:,seconds=00

I would advise going through in a similar fashion to get each digit on it's own, and then comparing it's ASCII value with what you're expecting.

you can find the ASCII values of each value with:

+ Code Snippet

cls
blah$=":"
print blah$
bloo=ASC(blah$)
print bloo

then I would just check each one like so

+ Code Snippet

repeat
proceed=0
Input "What time would you like me to off at?>", alarmtime$
thr1$=left$(alarmtime$, 1)
thr2$=right$(left$(alarmtime$, 2),1)
cln1$=right$(left$(alarmtime$, 3),1)
tmn1$=right$(left$(alarmtime$, 4),1)

....and so on and so forth


if ASC(tmn2$) is more than or equal to the asc value of 0 and
ASC(tmn2$) is less than or equal to the asc value of 9
then proceed=proceed+1

while proceed<the value proceed would be if every variable was right

obviously quite a lot of that isn't the exact commands (unfortunately due to some foolish oversight TGC omitted commands like "the value proceed would be if every variable was right") but I've left you with some work to do, just trying to head you onto the right track you know. There are other ways to get around it as well, but this is probably the simplest.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 5th Oct 2007 15:07

Link

the timing of my post is weird, my last message is about 3 mesages behind!

Enjoy your day.

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 5th Oct 2007 15:52

Link

@Latch: but it won't be fun without anything much to aspire to; we need you to push us to try harder.

@Binary Coder:

Like Latch says, remove the CLS. I'd also remove the print time$ command - that flashes on and off on the top left corner

I really like the alarm effect though; it made me smile

It's so happy and yellow and red.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 5th Oct 2007 18:42 Edited at: 6th Oct 2007 04:41

Link

I have this vision of conveyor belts and gears carrying ball bearings around and dropping them into columns to display the time.
is that as hard to do as it sounds?

here is the start of my first entry, a 3D digital clock
I've got the spacing right but I'm stuck for how to position the segments correctly. Every 7 segments makes up a number display; so segs 1 to 7 are the first hour digit, 8 to 14 are the second hour digit and so on.
any tips? Think I just need some sort of clever for loop but I can't figure it out

Entry: Cellular Clock

+ Code Snippet

`OBese87's Cellular Clock

remstart
* 7 segment display *
  1
2   3
  4
5   6
  7
remend

sync on

for seg = 1 to 42
   offsetX = (seg>7)*6 + (seg>14)*9 + (seg>21)*6 + (seg>28)*9 + (seg>35)*6
   make object cylinder seg,1
   scale object seg,20,100,5
`   ghost object on seg

   position object seg,offsetx,0,0
next seg

position camera 18,0,-40
point camera 18,0,0
sync

In programming, nothing exists

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 6th Oct 2007 02:35

Link

@OBese87

Take a look at my first entry at the beginning of the DBC challenges - "Bouncing Clock". Although I create a digital display in 2d, it uses a similar principal to what it looks like you are trying to do.

It probably could have been done much simpler than how I did it.

The premise is, you have 7 positions just like you displayed. Each position has an offset. 1 of three segments can be put in any of the positions: 0=empty ,1=horizontal, 2=vertical.

create data statements that are the layout for each number:

+ Code Snippet

rem 7 positions make up the graphic for a number 3 top 3 mid 1 bottom
rem 1=horizontal section
rem 2=vertical section
rem 0=empty space (ex number 2 would be 0,1,2,2,1,0,1)

   data 2,1,2,2,0,2,1
   data 0,0,2,0,0,2,0
   data 0,1,2,2,1,0,1
   data 0,1,2,0,1,2,1
   data 2,0,2,0,1,2,0
   data 2,1,0,0,1,2,1
   data 2,1,0,2,1,2,1
   data 0,1,2,0,0,2,0
   data 2,1,2,2,1,2,1
   data 2,1,2,0,1,2,1

when you read back the data, you read it in sequences of 7 throughout a loop of 10 (0-9) and apply the appropriate segment based on the position offset.

If you are doing it in 3d, add your segments as limbs to a master object. Then make mesh from the WHOLE object with limbs. Then MAKE OBJECT num,mesh,texture from your new number mesh. That way you can delete all the individual objects that make up the segments and be left with 10 objects that are your numbers.

Enjoy your day.

Back to top

Profile PM

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Oct 2007 03:53 Edited at: 6th Oct 2007 03:54

Link

thanks Latch,
how do i get every 7th number from 1 to 42?
it would be handy for positioning the segments and turning them on/off.

+ Code Snippet

  A
B   C
  D
E   F
  G

A: 01,08,15,22,29,36
B: 02,09,16,23,30,37
C: 03,10,17,24,31,38
D: 04,11,18,25,32,39
E: 05,12,19,26,33,40
F: 06,13,20,27,34,41
G: 07,14,21,28,35,42

It's pretty simple but my mind is just blank!

All I can think up is n/7 which doesn't work, or having loads of checks ie

+ Code Snippet

offsetX = (seg>7)*6 + (seg>14)*9 + (seg>21)*6 + (seg>28)*9 + (seg>35)*6

I could hard code the state of each segment for numbers 0-9 into an array and then get the "pointer" digit from GET TIME$()

@All
has anyone ever made a mechanical clock, one that looks like it REALLY works.

In programming, nothing exists

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th Oct 2007 04:18 Edited at: 6th Oct 2007 04:23

Link

Challenge website updated to current challenge. I've noticed some people posting tons of code snippets, but not all are challenge entries. It would greatly help me out (and the judge) if you could possibly put entry in your post of your code is an official entry. It doesn't have to be a final entry, but it makes it a little easier for us to find the code we need.

I'm going to add a new section to the website where anyone can submit a challenge idea. So next time somebody can't think of a good one, we'll have a nice list to choose from.

I'm gonna have a bit of free time this weekend to possibly have a chance to do some coding of my own. I've been working 6 days a week and some late hours while our banks merge. Now thats over with, I have my weekends free again. And I know I'll be stuck inside because I pulled my back yesterday. I had to get someone to tie my shoes this morning cause I couldn't bend low enough to reach them. This sucks!

Back to top

Profile PM Email Website

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Oct 2007 04:35

Link

@Phaelax
I like the new colour scheme

the idea board is a great idea you should also include when each challenge idea was last used (if at all)

how hard is it to do that reflected efffect? it looks awesome
you need to update your sig

In programming, nothing exists

Back to top

Profile PM Email

Binary Coder

19

Years of Service

User Offline

Joined: 26th Feb 2007

Location: Queensland, Australia

Posted: 6th Oct 2007 06:24

Link

Ok, thanks guys. This is not my entry, im just posting it to see if anyone gets the same problem.

I did what Latch said and the program now uses only 1 bitmap for each block. It is much faster after that. I also removed the CLS and PRINT command siting in the loop. The alarm system isn't work for some odd reason. I don't remember changing it.

sync on

repeat
Print "The current time is ",get time$()
Print "Press the spacebar to continue "
sync
cls
until spacekey()=1

cls

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4

get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)

`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif

`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds

turn object left 1,3
turn object left 2,7
turn object left 3,10
 
sync
loop

`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

Texture object 1,1
Return

Minutes:

cls rgb(10,255,50)
set text size 10
text 5,5,minutes$

flip bitmap 1
mirror bitmap 1

get image 2,0,0,20,25

Texture object 2,2
Return

Seconds:

cls rgb(50,30,10)
set text size 10
text 5,5,seconds$

flip bitmap 1
mirror bitmap 1

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

+ Code Snippet

sync on

repeat
Print "The current time is ",get time$()
Print "Press the spacebar to continue "
sync
cls
until spacekey()=1 

cls

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4


get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)


`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

   ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif


`prepare texture for the hours block
  Gosub Hours

`prepare texture for the minutes block
  Gosub Minutes

`prepare texture for the seconds block
  Gosub Seconds




turn object left 1,3
turn object left 2,7
turn object left 3,10
 
sync
loop


`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

Texture object 1,1
Return


Minutes:


cls rgb(10,255,50)
set text size 10
text 5,5,minutes$

flip bitmap 1
mirror bitmap 1

get image 2,0,0,20,25



Texture object 2,2
Return

Seconds:

cls rgb(50,30,10)
set text size 10
text 5,5,seconds$

flip bitmap 1
mirror bitmap 1

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

Its probably some super obvious thing that i missed!

Anyway, you guys are great! Thanks so much for the help. I didn't believe how much you can learn from this thing!

Back to top

Profile PM Email

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 6th Oct 2007 21:15 Edited at: 6th Oct 2007 21:59

Link

@Phaelax: I like the site. Very cool. One thing though... could you include the challenge specification things?

@BC: I'll have a look at that now...

EDIT: Your seconds code is missing the return again... was that the problem or was that just a problem copying it onto the forum and is it something else?

EDIT 2: Is anyone apart from Binary Coder entering by the way?

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 6th Oct 2007 22:57

Link

As the judge, I can't enter, but I thought I'd give this a bash anyway:

cls
sync on
sync rate 30

rem make time bars --------------------------------------
create bitmap 1,100,20
ink rgb(0,0,150),0
box 2,2,98,18
get image 1,0,0,100,20
delete bitmap 1

create bitmap 2,50,20
ink rgb(0,150,150),0
box 2,2,48,18
get image 2,0,0,50,20
delete bitmap 2

create bitmap 3,50,20
ink rgb(0,250,250),0
box 2,2,48,18
get image 3,0,0,50,20
delete bitmap 3

create bitmap 4,50,20
ink rgb(150,150,0),0
box 2,2,48,18
get image 4,0,0,50,20
delete bitmap 4

create bitmap 5,50,20
ink rgb(250,250,0),0
box 2,2,48,18
get image 5,0,0,50,20
delete bitmap 5

rem AM/PM
create bitmap 6,61,40
ink rgb(250,0,0),0
Set text font "Verdana"
Set text to bold
Set text size 40
center text 30,0,"AM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 6,0,5,61,36
delete bitmap 6

create bitmap 7,61,40
ink rgb(50,50,50),0
center text 30,0,"AM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 7,0,5,61,36
delete bitmap 7

create bitmap 8,61,40
ink rgb(250,0,0),0
center text 30,0,"PM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 8,0,5,61,36
delete bitmap 8

create bitmap 9,61,40
ink rgb(50,50,50),0
center text 30,0,"PM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 9,0,5,61,36
delete bitmap 9

ink rgb(255,255,255),0
do
hms$=get time$()
h$=left$(hms$,2)
tm$=right$(left$(hms$,4),1)
om$=right$(left$(hms$,5),1)
ts$=left$(right$(hms$,2),1)
os$=right$(hms$,1)

cls
set text font "comic sans MS"
set text size 30
center text 160,100,"hours"
center text 320,100,"minutes"
center text 480,100,"seconds"
gosub timeblocks

if VAL(H$)<12
	paste image 6,30,220
	paste image 9,549,220
else
	paste image 7,30,220
	paste image 8,549,220
endif

gosub setalarm
gosub checkalarm
sync
loop

timeblocks:

if VAL(h$)>12
	h#=VAL(H$)-12
	AM=0
else
	h#=VAL(H$)
	AM=1
endif
for t=0 to 11
	if h#>t
		paste image 1,110,t*20+135
	endif
next t

for t=0 to 9
	if VAL(tm$)>t
		paste image 2,270,t*20+135
	endif
next t

for t=0 to 9
	if VAL(om$)>t
		paste image 3,320,t*20+135
	endif
next t

for t=0 to 9
	if VAL(ts$)>t
		paste image 4,430,t*20+135
	endif
next t

for t=0 to 9
	if VAL(os$)>t
		paste image 5,480,t*20+135
	endif
next t

return

setalarm:
if run=0
	dim alrm$(2)
	alrm$(0)="00"
	alrm$(1)="00"
	run=1
endif

ink rgb(255,255,255),0
box 220,20,420,80
ink 0,0
set text font "comic sans MS"
set text size 50
center text 270,25,alrm$(0)
center text 370,25,alrm$(1)
set text size 15
center text 320,45,"set alarm"
ink rgb(255,0,0),0
box 268,22,272,38
box 262,28,278,32
box 368,22,372,38
box 362,28,378,32
box 262,72,278,76
box 362,72,378,76
if mouseclick()=1
	if mousex()>262 and mousex()<278 and mousey()>22 and mousey()<38
		if VAL(alrm$(0))<23 then alrm$(0)=STR$(VAL(alrm$(0))+1)
	endif
	if mousex()>362 and mousex()<378 and mousey()>22 and mousey()<38
		if VAL(alrm$(1))<59 then alrm$(1)=STR$(VAL(alrm$(1))+1)
	endif
	if mousex()>262 and mousex()<278 and mousey()>72 and mousey()<76
		if VAL(alrm$(0))>0 then alrm$(0)=STR$(VAL(alrm$(0))-1)
	endif
	if mousex()>362 and mousex()<378 and mousey()>72 and mousey()<76
		if VAL(alrm$(1))>0 then alrm$(1)=STR$(VAL(alrm$(1))-1)
	endif
endif
for t=0 to 1
	if len(alrm$(t))=1 then alrm$(t)="0"+STR$(VAL(alrm$(t)))
next t
return

checkalarm:
alrmchckmins$=tm$+om$
if VAL(h$)=VAL(alrm$(0))
	if VAL(alrmchckmins$)=VAL(alrm$(1))
		cls rgb(rnd(255),rnd(255),rnd(255))
		ink 0,0
		set text size 90
		center text 320,200,"WOOT WOOT"
	endif
endif
return

+ Code Snippet

cls
sync on
sync rate 30


rem make time bars --------------------------------------
create bitmap 1,100,20
ink rgb(0,0,150),0
box 2,2,98,18
get image 1,0,0,100,20
delete bitmap 1

create bitmap 2,50,20
ink rgb(0,150,150),0
box 2,2,48,18
get image 2,0,0,50,20
delete bitmap 2

create bitmap 3,50,20
ink rgb(0,250,250),0
box 2,2,48,18
get image 3,0,0,50,20
delete bitmap 3

create bitmap 4,50,20
ink rgb(150,150,0),0
box 2,2,48,18
get image 4,0,0,50,20
delete bitmap 4

create bitmap 5,50,20
ink rgb(250,250,0),0
box 2,2,48,18
get image 5,0,0,50,20
delete bitmap 5


rem AM/PM
create bitmap 6,61,40
ink rgb(250,0,0),0
Set text font "Verdana"
Set text to bold
Set text size 40
center text 30,0,"AM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 6,0,5,61,36
delete bitmap 6

create bitmap 7,61,40
ink rgb(50,50,50),0
center text 30,0,"AM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 7,0,5,61,36
delete bitmap 7

create bitmap 8,61,40
ink rgb(250,0,0),0
center text 30,0,"PM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 8,0,5,61,36
delete bitmap 8

create bitmap 9,61,40
ink rgb(50,50,50),0
center text 30,0,"PM"
line 0,5,60,5
line 0,35,60,35
line 0,5,0,35
line 60,5,60,35
get image 9,0,5,61,36
delete bitmap 9




ink rgb(255,255,255),0
do
hms$=get time$()
h$=left$(hms$,2)
tm$=right$(left$(hms$,4),1)
om$=right$(left$(hms$,5),1)
ts$=left$(right$(hms$,2),1)
os$=right$(hms$,1)

cls
set text font "comic sans MS"
set text size 30
center text 160,100,"hours"
center text 320,100,"minutes"
center text 480,100,"seconds"
gosub timeblocks

if VAL(H$)<12
	paste image 6,30,220
	paste image 9,549,220
else
	paste image 7,30,220
	paste image 8,549,220
endif

gosub setalarm
gosub checkalarm
sync
loop




timeblocks:

if VAL(h$)>12
	h#=VAL(H$)-12
	AM=0
else
	h#=VAL(H$)
	AM=1
endif
for t=0 to 11
	if h#>t
		paste image 1,110,t*20+135
	endif
next t

for t=0 to 9
	if VAL(tm$)>t
		paste image 2,270,t*20+135
	endif
next t

for t=0 to 9
	if VAL(om$)>t
		paste image 3,320,t*20+135
	endif
next t

for t=0 to 9
	if VAL(ts$)>t
		paste image 4,430,t*20+135
	endif
next t

for t=0 to 9
	if VAL(os$)>t
		paste image 5,480,t*20+135
	endif
next t

return


setalarm:
if run=0
	dim alrm$(2)
	alrm$(0)="00"
	alrm$(1)="00"
	run=1
endif

ink rgb(255,255,255),0
box 220,20,420,80
ink 0,0
set text font "comic sans MS"
set text size 50
center text 270,25,alrm$(0)
center text 370,25,alrm$(1)
set text size 15
center text 320,45,"set alarm"
ink rgb(255,0,0),0
box 268,22,272,38
box 262,28,278,32
box 368,22,372,38
box 362,28,378,32
box 262,72,278,76
box 362,72,378,76
if mouseclick()=1
	if mousex()>262 and mousex()<278 and mousey()>22 and mousey()<38
		if VAL(alrm$(0))<23 then alrm$(0)=STR$(VAL(alrm$(0))+1)
	endif
	if mousex()>362 and mousex()<378 and mousey()>22 and mousey()<38
		if VAL(alrm$(1))<59 then alrm$(1)=STR$(VAL(alrm$(1))+1)
	endif
	if mousex()>262 and mousex()<278 and mousey()>72 and mousey()<76
		if VAL(alrm$(0))>0 then alrm$(0)=STR$(VAL(alrm$(0))-1)
	endif
	if mousex()>362 and mousex()<378 and mousey()>72 and mousey()<76
		if VAL(alrm$(1))>0 then alrm$(1)=STR$(VAL(alrm$(1))-1)
	endif
endif
for t=0 to 1
	if len(alrm$(t))=1 then alrm$(t)="0"+STR$(VAL(alrm$(t)))
next t
return


checkalarm:
alrmchckmins$=tm$+om$
if VAL(h$)=VAL(alrm$(0))
	if VAL(alrmchckmins$)=VAL(alrm$(1))
		cls rgb(rnd(255),rnd(255),rnd(255))
		ink 0,0
		set text size 90
		center text 320,200,"WOOT WOOT"
	endif
endif
return

anyone got any comments?

don't run it if you have like epilepsy or anything 'cos the alarm's a bit brightly coloured

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Insert Name Here

19

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 6th Oct 2007 22:57

Link

Here's a question: You nkow external media is unallowed... can we access media already on the user's computer, i.e the windows folder?

Quote: "Everyone's entitled to an opinion...but your opinions are wrong."

Back to top

Profile PM

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 6th Oct 2007 22:59

Link

hmm... I wouldn't have thought so... anyway different versions of windows have different media, and what about people who don't run windows? Plus some people have different directories for their files...

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 6th Oct 2007 23:28 Edited at: 6th Oct 2007 23:29

Link

Quote: "Here's a question: You nkow external media is unallowed... can we access media already on the user's computer, i.e the windows folder?"

No.

I thought of that for Alarm.wav but different versions of Windows have this (and other) files in different locations.

demons breath:

Can you still not see the Edit Own post button yet? Doh!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th Oct 2007 23:33

Link

Quote: "could you include the challenge specification things?"

I can add it in, but I'll be unlikely to update the previous challenges which each of their specifications, just the newer ones as they're added.

Back to top

Profile PM Email Website

demons breath

22

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 7th Oct 2007 00:06

Link

@TDK: well there's a little clue in my previous post

Quote: "EDIT: Your seconds code is missing the return again... was that the problem or was that just a problem copying it onto the forum and is it something else?

EDIT 2: Is anyone apart from Binary Coder entering by the way?"

but I was finding editing the same post again and again slightly tiresome.

@Phaelax: Thanks. That'd be cool.

http://jamesmason01.googlepages.com/index.htm

Back to top

Profile PM Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th Oct 2007 01:11

Link

NOT AN ENTRY

@Binary Coder
I think you may be over gosubbing.

You don't necessarily have to gosub to to hours, then minutes, then seconds. I would put one Return at then end of Seconds: and have one Gosub Hours - eliminating the Gosub Minutes and Gosub seconds. This means the update of time occurs all in one pass then returns to your loop. Here's your code with those changes:

sync on

repeat
Print "The current time is ",get time$()
Print "Press the spacebar to continue "
sync
cls
until spacekey()=1

cls

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4

get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)

`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif

`prepare texture for the hours block
  Gosub Hours

rem Suggestion by Latch - get rid of these extra gosubs and only Gosub Hours
`prepare texture for the minutes block
`  Gosub Minutes

`prepare texture for the seconds block
`  Gosub Seconds

turn object left 1,3
turn object left 2,7
turn object left 3,10

sync
loop

`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

Texture object 1,1
`Return

Minutes:

cls rgb(10,255,50)
set text size 10
text 5,5,minutes$

flip bitmap 1
mirror bitmap 1

get image 2,0,0,20,25

Texture object 2,2
`Return

Seconds:

cls rgb(50,30,10)
set text size 10
text 5,5,seconds$

flip bitmap 1
mirror bitmap 1

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

rem just one retrun at the end of the Hours ,minutes seconds should suffice
rem because they all update at once so you don't have to keep
rem jumping back and forth

Return

+ Code Snippet

sync on

repeat
Print "The current time is ",get time$()
Print "Press the spacebar to continue "
sync
cls
until spacekey()=1

cls

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4


get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)


`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

   ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif


`prepare texture for the hours block
  Gosub Hours

rem Suggestion by Latch - get rid of these extra gosubs and only Gosub Hours
`prepare texture for the minutes block
`  Gosub Minutes

`prepare texture for the seconds block
`  Gosub Seconds




turn object left 1,3
turn object left 2,7
turn object left 3,10

sync
loop


`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

Texture object 1,1
`Return


Minutes:


cls rgb(10,255,50)
set text size 10
text 5,5,minutes$

flip bitmap 1
mirror bitmap 1

get image 2,0,0,20,25



Texture object 2,2
`Return

Seconds:

cls rgb(50,30,10)
set text size 10
text 5,5,seconds$

flip bitmap 1
mirror bitmap 1

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

rem just one retrun at the end of the Hours ,minutes seconds should suffice
rem because they all update at once so you don't have to keep
rem jumping back and forth

Return

@demons breath
That's clever! The mouse alarm setting is a bit sensitive. The numbers went up and down so fast I had trouble setting the alarm exactly how I wanted.

Enjoy your day.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread