Fórum MixMods

Código: Selecionar tudo

function imgui.OnDrawFrame()
    imgui.Begin(Texts[0], nil, imgui.WindowFlags.AlwaysAutoResize)
    
    imgui.Text(Texts[1])
    for i,v in ipairs(List_Mods) do  -- Disable mod
        imgui.Text(split(v, ".lua")[1])
        imgui.SameLine()
        print(Ignore_Mods)
        if imgui.Button(Texts[2]) then
            table.remove(List_Mods, v)
            table.insert(Ignore_Mods, split(v, getGameDirectory())[1])
            table.insert(Ignore_Mods_Directory, v)
            Read_And_Write_Settings("Settings", "Ignore_Mods", Ignore_Mods)
            Read_And_Write_Settings("Settings", "Ignore_Mods_Directory", Ignore_Mods_Directory)
            reloadScripts()
            Open_And_Close_Menu()
            Open_And_Close_Menu()
        end
    end
    for i,v in ipairs(Ignore_Mods) do -- Enable mod
        imgui.Text(split(v, ".lua")[1])
        imgui.SameLine()
        if imgui.Button(Texts[3]) then
            script.load(Ignore_Mods_Directory[i])
            table.insert(List_Mods,Ignore_Mods_Directory[i])
            Ignore_Mods[i] = nil
            Ignore_Mods_Directory[i] = nil
            Read_And_Write_Settings("Settings", "Ignore_Mods", Ignore_Mods)
            Read_And_Write_Settings("Settings", "Ignore_Mods_Directory", Ignore_Mods_Directory)
            Open_And_Close_Menu()
            Open_And_Close_Menu()
        end
    end
    imgui.End()
end

Código: Selecionar tudo

[Settings]
Ignore_Mods_Directory=table: 0x093748f8
Ignore_Mods=table: 0x093748f8

Código: Selecionar tudo

reloadScripts()

Código: Selecionar tudo

function main()
    while true do 
        wait(80);        
        printStringNow('script ~y~teste.lua ~w~rodando',100);
    end
end

Código: Selecionar tudo

local terminate_this = 'teste.lua';

function main()
    repeat 
        if testCheat('T65') then
            local lua_list = script.list();
            for i,s in ipairs(lua_list) do
                if terminate_this == s.name then 
                    s:unload();
                end
            end
            printHelpString(terminate_this..' terminado!')
        end
        wait(40);
    until false
end

Código: Selecionar tudo

script_name("Load scripts from modloader")
script_author("Andriel9, Um_Geek")
script_version_number(0.1)

local imgui = require("imgui")
local vkey = require("vkeys")
local inicfg = require("inicfg")
local crc32 = require("lib.crc32ffi")

-- Boolean
local Load_Mods = imgui.ImBool(false)
local Open_Menu = imgui.ImBool(false)
local Disable_Mods = imgui.ImBool(false)

-- Buffer
local Json = imgui.ImBuffer(256)

-- Dict
local Ignore_Mods = {}
local Ignore_Mods_Directory = {}
local List_Mods = {}
local Files = {}
local Settings = {}

-- Nil/Null
local PrevJsonName = nil

-- String
local Texts = {
    [ 0] = "Mod Manager LUA (Andriel9)",
    [ 1] = "List of mods installed.",
    [ 2] = "Disable",
    [ 3] = "Enable",
    [ 4] = "Disabled",
    [ 5] = "Enabled",
    [ 6] = "Mod disabled successfully!",
    [ 7] = "Mod enabled successfully!",
    [ 8] = "Exit"
}

function imgui.OnDrawFrame()
    imgui.SetNextWindowSize(imgui.ImVec2(360, 540), imgui.Cond.FirstUseEver);
    imgui.Begin(Texts[0], nil, imgui.WindowFlags.AlwaysAutoResize) -- Title
    
    imgui.Text(Texts[1])
    
    for i,v in ipairs(List_Mods) do -- Disable mod
        if v ~= nil then
            imgui.Text(v)
            imgui.SameLine()
            if imgui.Button(Texts[2]) then
                table.remove(List_Mods, i)
                table.insert(Ignore_Mods, split(v, ".lua")[1])
                table.insert(Ignore_Mods_Directory, v)
                --Read_And_Write_Settings("Settings", "Ignore_Mods", Ignore_Mods)
                --Read_And_Write_Settings("Settings", "Ignore_Mods_Directory", Ignore_Mods_Directory)
                --reloadScripts()
                for i,s in ipairs(script.list()) do
                    if string.find(split(v, ".lua")[1], s.name) then
                        wait(0)
                        s:unload() -- Unload mod
                        printHelpString(s.name.." "..Texts[4].."!")
                    end
                end
                Open_And_Close_Menu()
                Open_And_Close_Menu()
            end
        end
    end
    
    for i,v in ipairs(Ignore_Mods) do -- Enable mod
        if v ~= nil then
            imgui.Text(v)
            imgui.SameLine()
            if imgui.Button(Texts[3]) then
                for k,s in ipairs(script.list()) do
                    if string.find(split(v, ".lua")[1], s.name) then
                        wait(0)
                        script.load(Ignore_Mods_Directory[i]) -- Load mod
                        printHelpString(s.name.." "..Texts[5].."!")
                    end
                end
                table.insert(List_Mods, Ignore_Mods_Directory[i])
                table.remove(Ignore_Mods, i)
                table.remove(Ignore_Mods_Directory, i)
                --Read_And_Write_Settings("Settings", "Ignore_Mods", Ignore_Mods)
                --Read_And_Write_Settings("Settings", "Ignore_Mods_Directory", Ignore_Mods_Directory)
                Open_And_Close_Menu()
                Open_And_Close_Menu()
            end
        end
    end
    
    if imgui.Button(Texts[8]) then
        Open_And_Close_Menu()
    end
    imgui.End()
end

function main()
    List_Mods = {}
    Ignore_Mods = {}
    Ignore_Mods_Directory = {}
    Load_Settings()
    if not Load_Mods.v then
        local handle = io.popen('dir "'..getGameDirectory()..'\\modloader\\*.lua" /b /s /A-D')
        while true do
            local mod = handle:read()
            if mod == nil then break end
            for i,v in ipairs(Ignore_Mods_Directory) do
                if not string.find(v, mod) then
                    table.insert(List_Mods, mod)
                end
            end
        end
        handle:close()
        for i,v in ipairs(List_Mods) do
            wait(0)
            script.load(v)
        end
        Load_Mods.v = true
    end
    repeat
        if isPlayerControlOn(PLAYER_HANDLE) then
            if isKeyJustPressed(vkey.VK_ADD) then
                Open_And_Close_Menu()
            end
        end
        wait(4)
    until false
end

function Open_And_Close_Menu()
    if Open_Menu.v then
        Open_Menu.v = false
    else
        Open_Menu.v = true
    end
    imgui.Process = Open_Menu.v
end

function Load_Settings()
    -- Load .ini --
    local file = getGameDirectory().."\\moonloader\\config\\Load_scripts_from_modloader.ini"
    local hFile, err = io.open(file,"r") -- Open file
    local i=0
    if hFile and not err then
        while true do
            local line = hFile:read() -- Read file content
            if line==nil then break end
            Settings[i] = line
            i = i + 1
        end
        io.close(hFile) -- Close file
    else
        print(err)
    end
    
    -- Get settings --
    local Value = nil
    
    -- Mods to ignore
    Value = Read_And_Write_Settings("Settings", "Ignore_Mods", nil)
    for i,v in ipairs(split(Value, ";")) do
        if v == nil then break end
        if v ~= nil then
            table.insert(Ignore_Mods, v..".lua")
        end    
    end
    
    -- Directory of mods to ignore
    Value = Read_And_Write_Settings("Settings", "Ignore_Mods_Directory", nil)
    for i,v in ipairs(split(Value, ";")) do
        if v == nil then break end
        if v ~= nil then
            table.insert(Ignore_Mods_Directory, v)
        end    
    end
end

function Read_And_Write_Settings(Main, Key, Val)
    local file = getGameDirectory().."\\moonloader\\config\\Load_scripts_from_modloader.ini"
    if doesFileExist(file) then
        if Val == nil then
            local Table = inicfg.load(nil,file)
            if Table[Main]~=nil then
                local str = Table[Main][Key]
                if str ~= nil then return str end
            end
        else
            local Table = inicfg.load(nil,file)
            Table[Main][Key] = Val
            if inicfg.save(Table, file) then return Val end    
        end
    end
    return nil
end

--- Functions
function split(text, delimiter)
    result = {};
    for match in (text..delimiter):gmatch("(.-)"..delimiter) do
        table.insert(result, match);
    end
    return result;
end