//#############################
//## Code by Toadcop[BuranX] ##
//#############################

globals
    string array SData
    integer SDataMax=0
    boolean array IsColorTag
endglobals

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

constant function s2i takes string S returns integer
return S
return 0
endfunction

function InitColorTagsDB takes nothing returns nothing
    set IsColorTag[s2i("0")]=true
    set IsColorTag[s2i("1")]=true
    set IsColorTag[s2i("2")]=true
    set IsColorTag[s2i("3")]=true
    set IsColorTag[s2i("4")]=true
    set IsColorTag[s2i("5")]=true
    set IsColorTag[s2i("6")]=true
    set IsColorTag[s2i("7")]=true
    set IsColorTag[s2i("8")]=true
    set IsColorTag[s2i("9")]=true
    set IsColorTag[s2i("a")]=true
    set IsColorTag[s2i("b")]=true
    set IsColorTag[s2i("c")]=true
    set IsColorTag[s2i("d")]=true
    set IsColorTag[s2i("e")]=true
    set IsColorTag[s2i("f")]=true
    set IsColorTag[s2i("A")]=true
    set IsColorTag[s2i("B")]=true
    set IsColorTag[s2i("C")]=true
    set IsColorTag[s2i("D")]=true
    set IsColorTag[s2i("E")]=true
    set IsColorTag[s2i("F")]=true
endfunction

function IsColorTagMember takes string s returns boolean
     return IsColorTag[s2i(s)]
endfunction

function GetCutsBX takes string s,integer i,integer segl returns integer
     local integer i2=0
     local integer i3=0
     local integer lng=StringLength(s)
     local string token=null
     local string stmp=null
     local integer lastspc=0
     local integer cnt=0
 loop
     set token=SubString(s,i,i+1)
   exitwhen cnt>segl
  if token=="|" then
     set stmp=SubString(s,i+1,i+2) 
    if stmp=="c" or stmp=="C" then
     set i3=1
     loop
       set stmp=SubString(s,i+i3,i+i3+1)
       exitwhen i3>9 or IsColorTagMember(stmp)==false
       set i3=i3+1
     endloop
     if i3>9 then
       set i=i+i3-1
     else
       set cnt=cnt+1
     endif
    elseif stmp=="r" or stmp=="R" then
     set i=i+1
    elseif stmp=="n" or stmp=="N" then
     return cnt
    else
     set cnt=cnt+1     
    endif 
  else
    set cnt=cnt+1
   if token==" " then
    set lastspc=cnt
   endif
   if cnt>=segl or token=="" then
    if token=="" then
      return cnt      
    else
     if lastspc>0 then
      return lastspc
     else
      return segl
     endif
    endif
   endif
  endif   
   set i=i+1
 endloop
     return cnt
endfunction

function ParseString takes string s,integer segl returns nothing
     local integer i=0
     local integer i2=0
     local integer i3=0
     local integer lng=StringLength(s)
     local string array tags
     local integer tagsmax=0
     local string token=null
     local string stmp=null
     local string curcut=null
     local integer lastspc=GetCutsBX(s,0,segl)
     local integer cnt=0
     local integer begin=0
     set SDataMax=0
 loop
     set token=SubString(s,i,i+1)
   exitwhen i>lng
  if token=="|" then
     set stmp=SubString(s,i+1,i+2) 
    if stmp=="c" or stmp=="C" then
     set i3=1
     loop
       set stmp=SubString(s,i+i3,i+i3+1)
       exitwhen i3>9 or IsColorTagMember(stmp)==false
       set i3=i3+1
     endloop
     if i3>9 then
       set i=i+i3-1
       set tagsmax=tagsmax+1
       set tags[tagsmax]=SubString(s,i-i3+1,i+1)
     else
       set cnt=cnt+1
   if cnt>=lastspc then
     set SDataMax=SDataMax+1
     set SData[SDataMax]=curcut+SubString(s,begin,i+1)
   if tagsmax>0 then
     set curcut=tags[tagsmax]
   else
     set curcut=null
   endif
     set cnt=0
     set begin=i+1
   if i<=lng then
     set lastspc=GetCutsBX(s,i+1,segl)
   endif
   endif
     endif
    elseif stmp=="r" or stmp=="R" then
     set tagsmax=tagsmax-1
    if tagsmax<0 then
     set tagsmax=0
    elseif tagsmax>0 then
     set curcut=curcut+SubString(s,begin,i)+tags[tagsmax]
     set begin=i+2
    endif
     set i=i+1
    elseif stmp=="n" or stmp=="N" then
     set begin=i+2
   if i<=lng then
     set lastspc=GetCutsBX(s,i+1,segl)
   endif
    else
     set cnt=cnt+1  
   if cnt>=lastspc then
     set SDataMax=SDataMax+1
     set SData[SDataMax]=curcut+SubString(s,begin,i+1)
   if tagsmax>0 then
     set curcut=tags[tagsmax]
   else
     set curcut=null
   endif
     set cnt=0
     set begin=i+1
   if i<=lng then
     set lastspc=GetCutsBX(s,i+1,segl)
   endif
   endif
    endif 
  else
    set cnt=cnt+1
   if cnt>=lastspc then
     set SDataMax=SDataMax+1
     set SData[SDataMax]=curcut+SubString(s,begin,i+1)
   if tagsmax>0 then
     set curcut=tags[tagsmax]
   else
     set curcut=null
   endif
     set cnt=0
     set begin=i+1
   if i<=lng then
     set lastspc=GetCutsBX(s,i+1,segl)
   endif
   endif
  endif   
   set i=i+1
 endloop
endfunction

function StrParseShowRes takes nothing returns nothing
    local integer i=1
  loop
   exitwhen i>SDataMax
    call echo(SData[i])
   set i=i+1
  endloop
endfunction

//===========================================================================
function InitTrig_Code takes nothing returns nothing
   call ExecuteFunc("InitColorTagsDB")
endfunction

set udg_PartStr[Index] = "|c" + stack[stackIndex] + SubString(Str, blockBegin, lastSpace) + "|r"

elseif stmp=="r" or stmp=="R" then

elseif stmp=="r" then

call StringCase(ss,false) 

      if ss=="s" or ss=="S" then    // - эта проверку будет чуть быстрей выполнятьса чем Case
      endif

if s == "|c" or s == "|C"