globals
    trigger TMS = CreateTrigger()
endglobals

library TMS initializer Initialization

globals
    private code tms_function
    private timer tms_timer = CreateTimer()
    private integer count = 0
    private constant string cursor = "_"
    private tms array ms
endglobals

struct tms
    private player p
    private string s
    private real x
    private real y
    private real d
    private real v
    private integer i
    private integer n
    private integer k

    static method CreateText takes player id, real x, real y, real duration, real period, string message returns nothing
        local tms this = tms.create()
        set .p = id
        set .s = message
        set .x = x
        set .y = y
        set .d = duration
        set .v = period
        set .n = 1
        set .k = StringLength(.s)
        call .AddObject()
    endmethod

    method PrintText takes nothing returns nothing
        if (.n < .k) then
            if (.p == GetLocalPlayer()) then
                call ClearTextMessages()
            endif
            call DisplayTimedTextToPlayer(.p, .x, .y, .d, SubString(.s, 0, .n + 1) + cursor)
            set .n = .n + 1
        else
            call .DeleteObject()
            call .destroy()
        endif
    endmethod

    private method AddObject takes nothing returns nothing
        if (count == 0) then
            call TimerStart(tms_timer, .v, true, tms_function)
        endif
        set ms[count] = this
        set .i = count
        set count = count + 1
    endmethod

    private method DeleteObject takes nothing returns nothing
        set count = count - 1
        set ms[.i] = ms[count]
        set ms[.i].i = .i
        if (count == 0) then
            call PauseTimer(tms_timer)
        endif
    endmethod

endstruct

private function Timer takes nothing returns nothing
    local integer i = count - 1
    loop
        call ms[i].PrintText()
        exitwhen i == 0
        set i = i - 1
    endloop
endfunction

private function Initialization takes nothing returns nothing
    set tms_function = function Timer
endfunction

function DisplayPrintTextForPlayer takes player id, real x, real y, real duration, real period, string message returns nothing
    call tms.CreateText(id, x, y, duration, period, message)
endfunction

endlibrary

method PrintText takes nothing returns nothing
        if (.n <= .k) then
            if (.p == GetLocalPlayer()) then
                call ClearTextMessages()
            endif
            call DisplayTimedTextToPlayer(.p, .x, .y, .d, SubString(.s, 0, .n) + cursor)
            set .n = .n + 1
        else
            call .DeleteObject()
            call .destroy()
        endif
    endmethod

globals
    trigger TMS = CreateTrigger()
endglobals

library TMS initializer Initialization

struct Text
    static constant integer maxlengthstring = 256
    string array PartStr[.maxlengthstring]
    integer Length

    static method CreateText takes string message returns Text
        local Text this
        local integer i
        local integer len = StringLength(message)
        if (len > .maxlengthstring) then
            return 0
        endif
        set this = Text.create()
        set .Length = len
        set i = len
        loop
            set .PartStr[i - 1] = SubString(message, 0, i)
            exitwhen i  == 1
            set i  = i  - 1
        endloop
        return this
    endmethod
endstruct


globals
    private code tms_function
    private timer tms_timer = CreateTimer()
    private integer count = 0
    private constant real periodtimer = 0.1
    private constant string cursor = "_"
    private PrintText array alltps
endglobals

struct PrintText
    private player p
    private real x
    private real y
    private real d
    private integer i
    private integer n
    private Text tex

    private method AddObject takes nothing returns nothing
        if (count == 0) then
            call TimerStart(tms_timer, periodtimer, true, tms_function)
        endif
        set alltps[count] = this
        set .i = count
        set count = count + 1
    endmethod

    private method DeleteObject takes nothing returns nothing
        set count = count - 1
        set alltps[.i] = alltps[count]
        set alltps[.i].i = .i
        if (count == 0) then
            call PauseTimer(tms_timer)
        endif
    endmethod
    
    method Print_Timer takes nothing returns nothing
        if (.n < .tex.Length) then
            if (.p == GetLocalPlayer()) then
                call ClearTextMessages()
            endif
            call DisplayTimedTextToPlayer(.p, .x, .y, .d, .tex.PartStr[.n] + cursor)
            set .n = .n + 1
        else
            call .DeleteObject()
            call .destroy()
        endif
    endmethod
    
    static method Print takes player id, real x, real y, real duration, Text tex returns nothing
        local PrintText this = PrintText.create()
        set .p = id
        set .x = x
        set .y = y
        set .d = duration
        set .n = 1
        set .tex = tex
        call .AddObject()
    endmethod

endstruct

private function Timer takes nothing returns nothing
    local integer i = count - 1
    loop
        call alltps[i].Print_Timer()
        exitwhen i == 0
        set i = i - 1
    endloop
endfunction

private function Initialization takes nothing returns nothing
    set tms_function = function Timer
endfunction

endlibrary