WM007 - Red Green Blue

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|612\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> WM007 - Red Green Blue
Wed, 19 Mar 2008, 04:14
Jayenkai	Workshop Monthly #007 : Red Green Blue Time until Deadline Month : 19 March 2008 to 23 April 2008 The Reason : We'll keep this month's simple.. The Challenge : Create a game which only uses Red Green and Blue.. (And black where needed!) That's 4 colors.. And if you really need to, you can add half-bright RGB, too, to make it up to 7 total. Extra Info 0,0,0 128,0,0 255,0,0 0,128,0 0,255,0 0,0,128 0,0,255 No white! Standard Rules The rules are pretty much the same as a standard workshop, except you have a bit longer! This workshop closes on April 23rd, 00:00 GMT. (That's so that we can start a fresh one on a Wednesday!) Entries should be posted as Showcases, then noted in the forum below. Last Time.. On "Monthly Workshop" Nuffin! -=-=- ''Load, Next List!''
Wed, 26 Mar 2008, 13:12
Yo! Wazzup?	...no white??? Ouch.
Wed, 26 Mar 2008, 13:34
HoboBen	Dithering works great: No white or yellow at all Kinda cheating, though! -=-=- blog \| work \| code \| more code
Wed, 26 Mar 2008, 15:49
Jayenkai	So long as it IS dithered, yeah.. sure it's a cheat, but it's an allowable cheat, since it's still only red green and blue. And no.. No white.. Thought I'd makes things that little bit trickier! -=-=- ''Load, Next List!''
Thu, 27 Mar 2008, 20:08
Yo! Wazzup?	K, I edited my drawing program and made it qualify. I know it sucks, but what the heck. And by the way, I already wrote the code, so sorry if it's against the rules to write it before the contest starts. (use old code for the contest) Graphics 800,600,16,2 Global w Global x=255 Global y Const KEY_1 = 2 Const KEY_2 = 3 Const KEY_3 = 4 Const KEY_4 = 5 Const KEY_5 = 6 Const KEY_6 = 7 Const KEY_7 = 8 Const KEY_BKSPCE = 14 AppTitle "Drawing" DrawHUD() While Not KeyDown(1) While MouseDown(1) And MouseY()<490 CheckKeys() Draw() Wend CheckKeys() Wend End Function Draw() Color w,y,x Oval MouseX(),MouseY(),10,10,1 End Function Function CheckKeys() If KeyHit(KEY_1) Then x=255 w=0 y=0 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_2) Then x=0 w=255 y=0 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_3) Then x=0 w=0 y=255 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_4) Then x=128 w=0 y=0 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_5) Then x=0 w=128 y=0 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_6) Then x=255 w=0 y=255 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_7) Then x=0 w=0 y=0 Color w,y,x Rect 615,535,50,50,1 EndIf If KeyHit(KEY_BKSPCE) Then DrawHUD() EndIf End Function Function DrawHUD() Cls Color 0,255,0 Line 1,500,800,500 Color 0,0,255 Rect 1,520,50,50,1 Text 20,580, "1" Color 255,0,0 Rect 61,520,50,50,1 Text 80,580, "2" Color 0,255,0 Rect 121,520,50,50,1 Text 140,580, "3" Color 0,0,128 Rect 181,520,50,50,1 Text 200,580, "4" Color 128,0,0 Rect 241,520,50,50,1 Text 260,580, "5" Color 0,128,0 Rect 301,520,50,50,1 Text 320,580, "6" Color 0,255,0 Text 350,580, " 7 - Eraser" Color 0,255,0 Text 441,520, "BSP-Clear Screen" Text 441,532, "ESC-Quit" Text 595,510, "Current Color:" Color 0,255,0 Rect 610,530,60,60,1 Color 0,0,0 Rect 614,534,52,52,1 Color w,y,x Rect 615,535,50,50,1 End Function --v BTW it's for BlitzBasic/BlitzPlus/Blitz3D. NOT FOR BLITZMAX. Good bye. -=-=- Hi everyone! I'm new to Blitz and only 10 years old so all things coding is gush to me