globals
    string array udg_PartStr
endglobals

function PriceStr takes string Str, integer Amount returns integer
    local integer Index = 0
    local integer blockBegin = 0
    local integer logicBlockSize = 0
    local integer lastSpace = 0
    local integer srcPos = 0
    local integer srcLen
    local boolean tagFlag = false
    local string char
    local string array stack
    local integer stackIndex = -1

    set Str = Str + " " //Добавляя конечный пробел, избавляемся от неправильного разбиения последней части
    set srcLen = StringLength(Str)
    loop
        exitwhen srcPos >= srcLen
        set char = StringCase(SubString(Str, srcPos, srcPos+1), false)
        if char == "|" then
            set tagFlag = true
        elseif char == "c" then
            if tagFlag then
                 set stackIndex = stackIndex + 1 // Впихиваем в стек цвет тега
                 set stack[stackIndex] = SubString(Str, srcPos + 1, srcPos + 7)
                 set srcPos = srcPos + 7
                 if logicBlockSize == 0 then
                     set blockBegin = srcPos
                 endif
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == "r" then 
            if tagFlag then
                 set srcPos = srcPos + 1
                 if stackIndex >= 0 then // Удаляем из стека цвет тега
                     set stack[stackIndex] = ""
                     set stackIndex = stackIndex - 1
                 endif
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == "n" then 
            if tagFlag then
                 set srcPos = srcPos + 1
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == " " then
            if blockBegin == lastSpace + 1 then // Обнаружено слово длиннее нужной части, вываливаемся с ошибкой
                return -1
            endif
            if logicBlockSize > Amount then
                if stackIndex >= 0 then
                    set udg_PartStr[Index] = "|c" + stack[stackIndex] + SubString(Str, blockBegin, lastSpace) + "|r"
                else
                    set udg_PartStr[Index] = SubString(Str, blockBegin, lastSpace)
                endif
                set Index = Index + 1
                set blockBegin = lastSpace + 1
                set logicBlockSize = 0
            endif
            set lastSpace = srcPos
        else
            set logicBlockSize = logicBlockSize + 1
        endif
        set tagFlag = false

        set srcPos = srcPos + 1
    endloop
    if blockBegin < srcLen-1 then // этот кусок закидывает оставшуюся часть строки в массив (если она есть)
        if stackIndex >= 0 then
            set udg_PartStr[Index] = "|c" + stack[stackIndex] + SubString(Str, blockBegin, lastSpace) + "|r"
        else
            set udg_PartStr[Index] = SubString(Str, blockBegin, lastSpace)
        endif
        set Index = Index + 1
    endif
    return Index
endfunction

"|c5500ff00|cffffff00|cffff0000R|nE|nD|rSUXxZ X|cffFEDaaC123N|rEWSHiD|r_Buga|cfF44ddacgaTc|r+dfs3fvserw3s4s sr|cffff0000bnse|rr 3wbr webr bs 34 sn rs |cfffeddacTCX|cff4444ddRules b|nCOOL"

globals
  string array udg_PartStr
  string array udg_Stack                    //Intended as stack, but actually used as FIFO buffer
  integer array udg_StackLength             //Size of the chunk, in symbols
  integer udg_StackIndex=-1
endglobals

function echo takes string message returns nothing
  call DisplayTextToPlayer(GetLocalPlayer(), 0, 0, message)
endfunction

function Push takes string S, integer I returns integer
  set udg_StackIndex=udg_StackIndex+1
  set udg_Stack[udg_StackIndex]=S
  set udg_StackLength[udg_StackIndex]=I
  return udg_StackIndex
endfunction

function PriceStr takes string Str, integer Amount returns integer
local integer i=0
local integer LastSpace=0
local integer Index=-1
local integer Size=0
local string TempStr=Str
local string TempChar
  //Getting all the chunks inside stack
  set TempStr=StringCase(Str, false)+" "  //ukral ideyu :p
  loop
    exitwhen i>StringLength(TempStr)
    set TempChar=SubString(TempStr, i, i+1)
    if TempChar=="|" then 
      if SubString(TempStr, i+1, i+2)=="c" then
        set i=i+9
      elseif SubString(TempStr, i+1, i+2)=="n" then
        call Push(SubString(Str, LastSpace, i), Size)
        set LastSpace=i
        set Size=0
        set i=i+1
      else
        set i=i+1
      endif
    elseif TempChar==" " then
      call Push(SubString(Str, LastSpace, i), Size)
      set LastSpace=i
      set Size=0
    else
      set Size=Size+1
    endif
    set i=i+1
  endloop
  //Making up the logical blocks
  set Size=0
  set TempStr=""
  set i=-1
  loop
    set i=i+1
    exitwhen i>udg_StackIndex
    if udg_StackLength[i]>Amount then 
      call echo("Newbish test detected")
      return -1
    endif
    if (Size>0) then
      set Size=Size+1 //A space before the added part
    endif
    if (Size+udg_StackLength[i]<=Amount) then
      set Size=Size+udg_StackLength[i]
      set TempStr=TempStr+udg_Stack[i]
    else 
      set Index=Index+1
      set udg_PartStr[Index]=TempStr
      set Size=0
      set TempStr=""
      set i=i-1
    endif
  endloop
  if TempStr!="" then
    set Index=Index+1
    set udg_PartStr[Index]=TempStr
  endif
  set udg_StackIndex=-1
  return Index
endfunction

globals
    string array udg_PartStr
endglobals

function PriceStr takes string Str, integer Amount returns integer
    local integer Index = 0
    local integer blockBegin = 0
    local integer logicBlockSize = 0
    local integer lastSpace = 0
    local integer srcPos = 0
    local integer srcLen
    local boolean tagFlag = false
    local string char
    local string array stack
    local integer stackIndex = -1
    local string a = SubString("А",0,1) // !
    local string b = SubString("р",0,1) // !

    set Str = Str + " " //Добавляя конечный пробел, избавляемся от неправильного разбиения последней части
    set srcLen = StringLength(Str)
    loop
        exitwhen srcPos >= srcLen
        set char = StringCase(SubString(Str, srcPos, srcPos+1), false)
        if char == "|" then
            set tagFlag = true
        elseif char == "c" then
            if tagFlag then
                 set stackIndex = stackIndex + 1 // Впихиваем в стек цвет тега
                 set stack[stackIndex] = SubString(Str, srcPos + 1, srcPos + 7)
                 set srcPos = srcPos + 7
                 if logicBlockSize == 0 then
                     set blockBegin = srcPos
                 endif
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == "r" then 
            if tagFlag then
                 set srcPos = srcPos + 1
                 if stackIndex >= 0 then // Удаляем из стека цвет тега
                     set stack[stackIndex] = ""
                     set stackIndex = stackIndex - 1
                 endif
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == "n" then 
            if tagFlag then
                 set srcPos = srcPos + 1
            else
                 set logicBlockSize = logicBlockSize + 1
            endif
        elseif char == " " then
            if blockBegin == lastSpace + 1 then // Обнаружено слово длиннее нужной части, вываливаемся с ошибкой
                return -1
            endif
            if logicBlockSize > Amount then
                if stackIndex >= 0 then
                    set udg_PartStr[Index] = "|c" + stack[stackIndex] + SubString(Str, blockBegin, lastSpace) + "|r"
                else
                    set udg_PartStr[Index] = SubString(Str, blockBegin, lastSpace)
                endif
                set Index = Index + 1
                set blockBegin = lastSpace + 1
                set logicBlockSize = 0
            endif
            set lastSpace = srcPos
        elseif (char == a) or (char == b) then      // ! // этот маленький кусочек кода добовляет поддрежку кирилицы
            set srcPos = srcPos + 1                  // !
            set logicBlockSize = logicBlockSize + 1 // !
        else
            set logicBlockSize = logicBlockSize + 1
        endif
        set tagFlag = false

        set srcPos = srcPos + 1
    endloop
    if blockBegin < srcLen-1 then // этот кусок закидывает оставшуюся часть строки в массив (если она есть)
        if stackIndex >= 0 then
            set udg_PartStr[Index] = "|c" + stack[stackIndex] + SubString(Str, blockBegin, lastSpace) + "|r"
        else
            set udg_PartStr[Index] = SubString(Str, blockBegin, lastSpace)
        endif
        set Index = Index + 1
    endif
    return Index
endfunction