--ID- -R- -G-  -B-    -TrueCode-
0---- 255 -3   -3    |c00FF0303|r
1---- 0   -66  -255  |c000042FF|r
2---- 28  -230 -185  |c001CE6B9|r
3---- 84  -0   -129  |c00540081|r
4---- 255 -252 -1    |c00FFFC01|r
5---- 254 -138 -14   |c00FE8A0E|r
6---- 32  -192 -0    |c0020C000|r
7---- 229 -91  -176  |c00E55BB0|r
8---- 149 -150 -151  |c00959697|r
9---- 126 -191 -241  |c007EBFF1|r
10--- 16  -98  -70   |c00106246|r
11--- 78  -42  -4    |c004E2A04|r
12-15 40  -40  -40   |c00282828|r

function ColoredNameDB takes player P returns string
    local integer D = GetPlayerId(P)
    if (D <= 5) then
        return "|c" + SubString("00FF0303000042FF001CE6B90054008100FFFC0100FE8A0E" ,D*8, D*8+8) + GetPlayerName(P) + "|r"
    else
        set D=D-6
        return "|c" + SubString("0020C00000E55BB000959697007EBFF100106246004E2A04" ,D*8, D*8+8) + GetPlayerName(P) + "|r"
    endif
    set D = 0
    set P = null
    return null
endfunction

function SetColoredName takes nothing returns nothing
    local integer LOOP = 0
    loop
        exitwhen LOOP > 11
        call SetPlayerName(Player(LOOP),ColoredNameDB(Player(LOOP)))
        set LOOP = LOOP + 1
    endloop
    set LOOP=0
endfunction

function InitPlayerColorStrings takes nothing returns nothing
   set udg_PlayerColors[0] = "|c00FF0303"
   //.....
   set udg_PlayerColors[15] = "|c00282828"
endfunction

function GetPlayerColorString takes player p returns string
   return udg_PlayerColors[GetPlayerId(p)]
endfunction

function GetColorPrefix integer i returns string
    return SubString("|c00FF0303 ........... |c00282828", i*10, 10)
endfunction