library FloatingText
    
    // created by
    // [XGM.ru] bee
    
    globals
        private constant real period = 1.00 / 40.00
        private constant real rate = 0.001265
        private constant real max = 0.034155
        private constant real min = 0.02277
        private constant real lifetime = 2.00
    endglobals
    
    struct FT
        static FT array data
        static integer count=0
        static timer timer=CreateTimer()
        
        static method tim takes nothing returns nothing
            local FT this
            local integer i=0
            
            loop
                exitwhen i>=.count
                set this=.data[i]
                
                if .b then
                    set .fg=.fg+rate
                    if .fg>max then
                        set .b=false
                    else
                        call SetTextTagText(.tt, .s, .fg)
                    endif
                else
                    set .fg=.fg-rate
                    if .fg<min then
                        call SetTextTagPermanent(.tt, false)
                        call SetTextTagLifespan( .tt, lifetime )
                        call SetTextTagFadepoint( .tt, lifetime-0.1 )
                        
                        call .destroy()
                        set .count=.count-1
                        set .data[i]=.data[.count]
                        set i=i-1
                        
                        if .count==0 then
                            call PauseTimer(.timer)
                        endif
                    else
                        call SetTextTagText(.tt, .s, .fg)
                    endif
                endif
                
                set i=i+1
            endloop
        endmethod
        
        static method add takes texttag tt, string s returns nothing
            set .data[.count]=FT.create()
            set .data[.count].tt=tt
            set .data[.count].fg=min
            set .data[.count].b=true
            set .data[.count].s=s
            
            if .count==0 then
                call TimerStart(.timer,period,true,function FT.tim)
            endif
            
            set .count=.count+1
        endmethod
        
        texttag tt
        real fg
        boolean b
        string s
    endstruct
    
endlibrary