Developing a language detection library

// Language Detection WIP
library Language initializer Init

    globals
        constant integer LANGUAGE_OTHER   = 0
        constant integer LANGUAGE_ENGLISH = 1
        constant integer LANGUAGE_GERMAN  = 2
        //...

        private integer lang
    endglobals

    function GetLanguage takes nothing returns integer
        return lang //so far, it's asynchronous, so you can only use it for stuff like local strings
    endfunction

    private function Init takes nothing returns nothing
        local string s = GetObjectName( 'hfoo' )

        if s=="Footman" then
            set lang = LANGUAGE_ENGLISH
        elseif s=="Soldat" then
            set lang = LANGUAGE_GERMAN
        //...
        else
            set lang = LANGUAGE_OTHER
        endif
    endfunction

endlibrary

// Language Detection WIP
library Language initializer Init

    globals
        constant integer LANGUAGE_OTHER   = 0
        constant integer LANGUAGE_ENGLISH = 1
        constant integer LANGUAGE_GERMAN  = 2
        //...

        private integer array lang
    endglobals
    
    function GetPlayerLanguage takes player p returns integer
        return lang[GetPlayerId(p)]
    endfunction

    function GetLanguage takes nothing returns integer
        return lang[GetPlayerId(GetLocalPlayer())] //so far, it's asynchronous, so you can only use it for stuff like local strings
    endfunction

    private function Init takes nothing returns nothing
    local string s = GetObjectName( 'hfoo' )
    local integer i=0
    local gamecache gc
        call FlushGameCache(InitGameCache("language.gc"))
        set gc=InitGameCache("language.gc")
        
        if s=="Footman" then
            call StoreInteger(gc, "this", I2S(GetPlayerId(GetLocalPlayer())), LANGUAGE_ENGLISH)
        elseif s=="Soldat" then
            call StoreInteger(gc, "this", I2S(GetPlayerId(GetLocalPlayer())), LANGUAGE_GERMAN)
        //...
        else
            call StoreInteger(gc, "this", I2S(GetPlayerId(GetLocalPlayer())), LANGUAGE_OTHER)
        endif
        
        call TriggerSyncStart()
        
        call SyncStoredInteger(gc, "this", I2S(GetPlayerId(GetLocalPlayer()))) // sync the values for all players
        
        call TriggerSyncReady() // wait a bit, syncing takes time
        
        loop
            exitwhen i>=12
            set lang[i]=GetStoredInteger(gc, "this", I2S(i))
            set i=i+1
        endloop
        
        call FlushGameCache(gc)
        set gc=null
    endfunction
    
endlibrary