--#------------------------------------------------------------------
--# Functions for Print-Log by Artos
--#------------------------------------------------------------------
--# конвертер вывода строки лога
function fFormatToString(fmt,...)
    --# локальная функция: перевод аргумента в стринг
    local to_str = function(val,typ)
        if typ == 'string' then
            return val
        elseif typ == 'number' then
            return tostring(val)
        elseif typ == 'boolean' then
            return tostring(val)
        elseif typ == 'table' or typ == 'userdata' then
            if tonumber(val.x) and tonumber(val.y) and tonumber(val.z) then
                if typ == 'table' then
                    return string.format('tbl{x=%.3f:y=%.3f:z=%.3f}',val.x,val.y,val.z)
                end
                return string.format('vec(x=%.3f:y=%.3f:z=%.3f)',val.x,val.y,val.z)
            end
        end
        return "<"..typ..">"
    end
    --# основное тело функции: парсинг исходной строки
    if type(fmt) == 'string' then
        if fmt:match('%\%[s|d]') then --# есть патерн(ы)
            if next({...}) then --# есть аргумент(ы)?
                local arg,val,typ,i = {...},nil,nil,nil
                for i=1,#arg do
                    val = arg[i] --# значение текущего аргумента
                    typ = type(val) --# тип текущего аргумента
                    if typ == 'string' then
                        fmt = fmt:gsub('%\%s',val,1)
                    elseif typ == 'number' then
                        if fmt:match('%\%d') then
                            fmt = fmt:gsub('%\%d',val,1)
                        else
                            fmt = fmt:gsub('%\%s',val,1)
                        end
                    else
                        fmt = fmt:gsub('%\%s',to_str(val,typ),1)
                    end
                end
            end
            fmt = fmt:gsub('%\%[s|d]',"<NOT_arg!>") --# заглушка от отсутствия аргументов
        end
    else
        fmt = to_str(fmt,type(fmt))
    end
    --# с заменой обычных пробелов (sym_space='\032') на печатные ('\160')
    return fmt:gsub('%s','\160')
end
--#------------------------------------------------------------------
--# printf (функция вывода информации в лог игры)
--#------------------------------------------------------------------
local console = get_console()

function printf(fmt, ...)
    if not console then console = get_console() end
    console:execute("*INFO:"..string.sub(fFormatToString(fmt,...),1,250)) --# +префикс строки лога (STCS|SCoP: "load ~:")
    --# console:execute("flush") --# команда записи буфера лога в файл (в игре можно закомментиировать!)
end
--#------------------------------------------------------------------
--# Abort (функция принудительного прерывания игры)
--#------------------------------------------------------------------
function abort(fmt, ...)
    printf("ВНИМАНИЕ! Ошибка! Информация по ошибке в строках ниже !")
    printf(string.gsub("ERROR!: "..string.sub(fFormatToString(fmt,...),1,250),'%s','\160'))
    assert(false,"ВНИМАНИЕ! Игра прервана! Информация в строках выше.") --# прерываем с выводом строки на консоль
    exit() --# прерываем игру при фатальных ошибках
end
--#------------------------------------------------------------------