DoColor

//By Serious07
//ColorText
//l[5] - long of str
function DoColor takes string str returns string

    local string answ
    local string array tipe
    local string array color
    local integer i
    local integer j
    local integer k
    local integer array l
    local boolean f

    set tipe[0] = "QWERTYUIOPASDFGHJKLZXCVBNM"
    set tipe[1] = "qwertyuiopasdfghjklzxcvbnm"
    set tipe[2] = "0123456789"
    set tipe[3] = ".,!@#$%^&*-+=/"

    set color[0] = "|cFF00C000"
    set color[1] = "|cFFFF0000"
    set color[2] = "|cFFFFFFFF"
    set color[3] = "|cFFFF8000"

    set l[0] = StringLength(tipe[0])
    set l[1] = StringLength(tipe[1])
    set l[2] = StringLength(tipe[2])
    set l[3] = StringLength(tipe[3])
    set l[5] = StringLength(str)

    set i = 0

    set answ = ""
    loop
        set f = false
        set k = 0
        loop
            set j = 0
            loop
                if(SubString(str,i,i+1) == SubString(tipe[k],j,j+1)) then
                    set f = true
                    set answ = answ + color[k] + SubString(str,i,i+1) + "|r"
                endif
                exitwhen j == l[k]-1
                exitwhen f == true
                set j = j + 1
            endloop
            exitwhen f == true
            set k = k + 1
        endloop
        set i = i + 1
        exitwhen i == l[5]
    endloop

    return answ
endfunction