is there a way I could use #000000 instead of 000,000,000 ..... for colors

Is there a way I could use HTML color codes (example: #000000 is black) instead of using Color 0,0,0 it would be really useful and less long to figure out the colors........

Yes, write a function.

Clr(#000000)

Can you use a function in a function?

How would I go about to do this function I'm clueless :|

I think that #000000

Should be

$000000

in blitz.

This will work:

Color $FF,$FF,$FF

or this:

color 0,0,rgb

You should be able to make a function that does this. You should just have to pass in the code ( the #000000 thingy ) and use Left/Mid/Right to pull out the R G and B parts in the code. The you just convert them to decimal system using some of those functions, and your done!

-Rich05

So far I got this...

Function MGUI_clr( clr$)

clr_red   = "$" + Left$(clr$,3)
clr_green = "$" + Mid$(clr$,-1) + Mid$(clr$,1)
clr_blue  = "$" + Right(clr$,-2)

End Function

But I got no idea how to get this function to return thoses for the "Color 0,0,0" in my other function... *thinking*

MGUI_clr(FFFFFF)

Function MGUI_clr( clr$)

clr_red   = "$" + Left$(clr$,3)
clr_green = "$" + Mid$(clr$,-1) + Mid$(clr$,1)
clr_blue  = "$" + Right(clr$,-2)

End Function

Wheres my error?

You can only return one variable from a function.
Why don't you just set the color from within the function?

Plus, your string functions are wrong. Did you read the documentation?

Like:
Mid$ (string$, offset, characters)

string$ = any valid string
offset = location within the string to start reading
characters = how many characters to read frm the offset point

So, to get the green value, something like Mid$(clr, 3, 2)...

Then when you're done, "Color(clr_red, clr_green, clr_blue)"

the only problem with html color codes is that they are in hexadecimal, i can't see a way to convert an hexadecimal string to a decimal value without anoter function that handle hexadecimal conversion...

the a=$ff return 255
but a="$ff" don't work

so i had to include hexadecimal conversion in the function

; usage : setcolor("rrggbb")
; setcolor("ff0000") for red
; setcolor("00ff00") for green
; setcolor("0000ff") for blue
Function setcolor$(mycolor$) 
	Hexa$="0123456789abcdef"
	red=((Instr(hexa$,Mid$(mycolor$,1,1),1)-1)*16)+((Instr(hexa$,Mid$(mycolor$,2,1),1)-1))
	green=((Instr(hexa$,Mid$(mycolor$,3,1),1)-1)*16)+((Instr(hexa$,Mid$(mycolor$,4,1),1)-1))
	blue=((Instr(hexa$,Mid$(mycolor$,5,1),1)-1)*16)+((Instr(hexa$,Mid$(mycolor$,6,1),1)-1))
	Color red,green,blue
End Function

future enhancement!

Eventually you want something more luxury, like:

color red,green,blue,brightness#

brightness# is a float between 0 (all black), 1 (normal) and 2++ (bright(er))

Handy for drawing 3d tiles (buttons etc.) .. you only need to adjust the brightness and all stuff is rgb customizable while the light/shadow remains!

Na, tis easier than that..

Global fore1 = $5f5f5f
Global fore1r = fore1 Shr 16 And $FF
Global fore1g = fore1 Shr 8 And $FF
Global fore1b = fore1 And $FF

As rims said you can use a little trick:

color 0,0,$FFFFFF
or
color 0,0,$58A2FF

or whatever rgb color. this is the easiest way.
save bytes, save plutonium.

there is code for this in the code archives already. It includes functions for putting RGB values into an integer, as well as extracting RG&B components from the integer.

maybe my code below can be of help somehow .. dunno

Function print_debug_info()
	totalDrivers%=CountGfxDrivers() 
	r_dec%=0 : g_dec%=0 : b_dec%=0
	r_hex$=0 : g_hex$=0 : b_hex$=0	
	r_dec=ColorRed() : g_dec=ColorGreen() : b_dec=ColorBlue()
	r_hex=Hex$(r_dec) : g_Hex=Hex$(g_dec) : b_Hex=Hex$(b_dec)

	Cls
	Print "Date                          : " + CurrentDate()
	Print "Time                          : " + CurrentTime()
	Print "PlayField Width               : " + GraphicsWidth()
	Print "PlayField Height              : " + GraphicsHeight()
	Print "PlayField Depth               : " + GraphicsDepth()
	Print "PlayField Memory              : " + GraphicsBuffer()
	Print "PlayField Drawing Color (DEC) : " + r_dec + " " + g_dec + " " + b_dec
	Print "PlayField Drawing Color (HEX) : " + Right$(r_hex,2) + " " + Right$(g_hex,2) + " " + Right$(b_Hex,2)
	Select JoyType() 
	Case 0 
	Print "Joystick                      : None" 
	Case 1 
	Print "Joystick                      : Digital" 
	Case 2 
	Print "Joystick                      : Analog"  
	End Select 
	For t = 1 To totalDrivers 
	Print "Installed GFX driver(s)       : " + GfxDriverName$(t) 
	Next
	Print "Total GFX memory on card      : " + TotalVidMem() + " " + "(Bytes)" + " " + (TotalVidMem() / 1024) + " " + "(Mb)"
	Print "Avail GFX memory              : " + AvailVidMem() + " " + "(Bytes)" + " " + (AvailVidMem() / 1024) + " " + "(Mb)"
	Print "Operating system installed    : " + SystemProperty("OS")
	Print "CPU installed                 : " + SystemProperty("CPU")
End Function