client/proc/map_text(T)
    var/list/words=explode(T)
    var
        X=0;Y=0
    for(word in words)
        if(X+length(word)>max_chars_on_screen)
            X=1
            Y+=1
        for(character in word)
            place_character(character)

proc/explode(T)
    var/list/L[0]
    for(word in T)
        L+=word
    return L

proc
    text2list(t)
        var/list/l[0]
        for(var/i=1 to length(t))
            l+=copytext(t,i,i+1)
        return l
    textlist2wordlist(list/t)
        var
            list/g[0]
            string
        for(var/a in t)
            if(a==" ")
                g+=string
                string=null
                continue
            string+=a
        g+=string
        return g
proc
    showtext(mob/m,t)
        var/client/c=m.client
        if(!ismob(m)||!c)return
        var
            list
                l=text2list(t)
                g=textlist2wordlist(l)
        for(var/obj/a in c.screen)
            if(a.tag=="TextHUD")del(a)
        var
            sx=1
            sy=21
            k=1
        for(var/a in l)
            if(a==" ")k++
            var/obj/h=new()
            h.tag="TextHUD"
            h.text="<font color=red bgcolor=#000001>[a]"
            h.screen_loc="[sx],[sy]"
            h.layer=TURF_LAYER**MOB_LAYER
            c.screen+=h
            sx++
            if(sx+length(g[k])>21){sy--;sx=1}