function PriceStr takes string Str, integer Amount returns integer
    local integer Index = -1
    local integer a = 0
    local integer p = 0
    local integer i = 0
    local integer Length = StringLength(Str)
    local integer Len
    local string  array StrTag
    local integer array LenPart
    local integer AmountTag = 0
    local string Simvol
    local boolean bool
    loop
        exitwhen i > Length
        set bool = (i-p) >= Amount
        if (SubString(Str, i, i+1) == " ") or (i == Length) or bool then
            set Index = Index + 1
            set udg_PartStr[Index] = SubString(Str, p, i)
            set LenPart[Index] = StringLength(udg_PartStr[Index])
            set Len = LenPart[Index]-1
            if AmountTag != 0 then
                set udg_PartStr[Index] = StrTag[AmountTag] + udg_PartStr[Index]
                set a = 10
                set Len = Len + 10
            else
                set a = 0
            endif
            loop
                if a > Len then
                    if AmountTag > 0 then
                        set udg_PartStr[Index] = udg_PartStr[Index] + "|r"
                    endif
                    exitwhen true
                endif
                set Simvol = SubString(udg_PartStr[Index], a, a+2)
                if Simvol == "|c" then
                    set AmountTag = AmountTag + 1
                    set StrTag[AmountTag] = SubString(udg_PartStr[Index], a, a+10)
                    set LenPart[Index] = LenPart[Index] - 10
                elseif Simvol == "|r" and AmountTag > 0 then
                    set AmountTag = AmountTag - 1
                    set LenPart[Index] = LenPart[Index] - 2
                    if AmountTag != 0 then
                        set udg_PartStr[Index] = SubString(udg_PartStr[Index],0,a+2) + StrTag[AmountTag] + SubString(udg_PartStr[Index],a+2, StringLength(udg_PartStr[Index]))
                        set a = a + 10
                        set Len = Len + 10
                    endif
                endif
                set a = a + 1
            endloop
            if bool then
                set p = i
                set i = i - 1
            else
                set p = i+1
            endif
        endif
        set i = i+1
    endloop
    //return Index
    set i = 0
    set a = Index
    set Index = -1
    set Str = ""
    set Length = 0  
    loop
        exitwhen i > a
        if (Length + LenPart[i]) < Amount and (i != a) then
            set Str    =  Str    + udg_PartStr[i] + " "
            set Length =  Length + LenPart[i]     + 1     
        else 
            set Index = Index+1
            if i != a then
                set udg_PartStr[Index] = Str
                set Str    = udg_PartStr[i] + " "
                set Length = LenPart[i]
            elseif (Length + LenPart[i]) < Amount then
                set Str = Str + udg_PartStr[i]
                set udg_PartStr[Index] = Str
            else            
                set udg_PartStr[Index] = Str      
                set Index = Index+1   
                set udg_PartStr[Index] = udg_PartStr[i]            
            endif
        endif      
        set i = i + 1
    endloop
    return Index
endfunction

function PriceStr takes string Str, integer Amount returns integer
    local integer Index = 0
    local integer i = 0
    local integer lst = 0
    local integer lwd = 0
    local integer tags = 0
    local integer min = 0
    local integer inW = 0
    local integer clear = 0
    local string s = ""
    local string word = ""
    local string array color
    local string tag = ""
    local string mark = "" 
    local boolean find = false
    local boolean end = false
    loop
        exitwhen end
        set i = i + 1
        set mark = SubString(Str, i - 1, i)
        if mark == "|" then
            set tag = StringCase(SubString(Str, i, i + 1), false)
            if tag == "c" then
                if word != "" then
                    set inW = inW + 1
                endif
                set word = word + SubString(Str, i - 1, i + 9)
                set tags = tags + 1
                set color[tags] = SubString(Str, i - 1, i + 9)
                set i=i+9
            elseif tag == "r" then
                if word == "" then
                    set s = s + "|r"
                else
                    if inW > 0 then
                        set inW = inW - 1
                    endif
                    set word = word + "|r"
                    set clear = clear + 1
                    if tags > 1 then
                        set word = word + color[tags - clear]
                    endif
                endif
                set i = i + 1
            elseif tag == "n" then
                if s != "" then
                    set word = " " + word
                    set lwd = lwd + 1
                else
                    set word = color[tags] + word
                endif
                if lwd + lst > Amount then
                    set udg_PartStr[Index] = s
                    set Index = Index + 1
                    set udg_PartStr[Index] = color[tags] + word
                    set Index = Index + 1
                else
                    set udg_PartStr[Index] = s + word
                    set Index = Index + 1
                endif
                set s = ""
                set word = ""
                set lwd = 0
                set lst = 0
                set i = i + 1
                set find = false
            endif
        else
            if find and (mark == " " or mark == "") then
                if mark == " " then
                    if lst + 1 + lwd > Amount then
                        if s == "" then
                            if inW > 0 then
                                set udg_PartStr[Index] = color[tags - inW] + word
                                set inW = 0
                            else
                                set udg_PartStr[Index] = color[tags] + word
                            endif
                            set Index = Index + 1
                            set lst = lwd
                        else
                            set udg_PartStr[Index] = s
                            set Index = Index + 1
                            if inW > 0 then
                                set s = color[tags - inW] + word
                                set inW = 0
                            else
                                set s = color[tags] + word
                            endif
                            set lst = lwd
                            endif
                       else
                           set inW = 0
                           if s != "" then
                               set s = s + " " + word
                               set lst = lst + 1 + lwd
                           else
                               set s = color[tags] + word
                               set lst = lwd
                           endif
                    endif
                    set word = ""
                    set lwd = 0
                    set find = false
                else
                    if s != "" then
                        if lst + 1 + lwd > Amount then
                            set udg_PartStr[Index] = s
                            set Index = Index + 1
                            set udg_PartStr[Index] = color[tags] + word
                        else
                            set udg_PartStr[Index] = s + " " + word
                        endif
                    else
                        set udg_PartStr[Index] = color[tags] + word
                    endif
                    set end = true
                endif
                if clear > 0 then
                    set tags = tags - clear
                    set clear = 0
                endif
            else
                if mark == " " then
                    if lst + 1 > Amount then
                        set udg_PartStr[Index] = s
                        set Index = Index + 1
                        set s = ""
                        set lst = 0
                    endif
                    set s = s + " "
                    set lst = lst + 1
                elseif mark == "" then
                   set udg_PartStr[Index] = s
                   set end=true
                else
                   if not find then
                      set find = true
                   endif
                   set word = word + mark
                   set lwd = lwd + 1
                endif
            endif
        endif
    endloop
    return Index
endfunction