function MoveName takes nothing returns nothing   
    local integer i = 1   
    loop   
     exitwhen i > 12   
     if udg_tt[i] != null then   
      call SetTextTagPosUnit(udg_tt[i],udg_u[i],0)   
     endif   
     set i = i + 1   
    endloop   
    set i = 0   
endfunction   
function CreateName takes nothing returns nothing   
    local integer pid = GetPlayerId(GetTriggerPlayer()) + 1   
    if udg_name[pid] == "" then   
     if GetEventPlayerChatString() != "" then   
      set udg_name[pid] = GetEventPlayerChatString()   
      set udg_tt[pid] = CreateTextTag()   
      call SetTextTagText(udg_tt[pid],"|c00FF0000"+udg_name[pid]+"|r",10 * 0.023 / 10)   
      call SetTextTagPosUnit(udg_tt[pid],udg_u[pid],0)   
      call DisplayTextToPlayer(GetTriggerPlayer(),1,1,"|c0000FF00Имя принято|r")   
     else   
       call DisplayTextToPlayer(GetTriggerPlayer(),1,1,"|c00FF0000Имя не должно быть пустым|r")   
     endif   
    else   
     call SetTextTagText(udg_tt[pid],"|c00FF0000"+udg_name[pid]+"|r: "+GetEventPlayerChatString(),10 * 0.023/10)   
     call TriggerSleepAction(10)   
     call SetTextTagText(udg_tt[pid],"|c00FF0000"+udg_name[pid]+"|r",10 * 0.023 / 10)   
    endif   
    set pid = 0   
endfunction   
function InitTT takes nothing returns nothing   
    local timer t = CreateTimer()   
    call TimerStart(t,0.01,true,function MoveName)   
    set t = null   
endfunction   
function InitNameForPlayer takes integer id returns nothing   
    local trigger t = CreateTrigger()   
    local player p = Player(id-1)   
    call DisplayTextToPlayer(p,1,1,"|c00FF8000Введите имя|r")   
    call TriggerRegisterPlayerChatEvent( t, p, "", true )   
    call TriggerAddAction(t,function CreateName)   
    set t = null   
endfunction

call InitTT ()

call InitNameForPlayer(id)