Основы

addon_init.lua

-- Этот кусок кода заставляет перезагрузить модули, когда перезагружается скрипт.
if g_reloadState == nil then
    g_reloadState = {}
    for k,v in pairs( package.loaded ) do
        g_reloadState[k] = v
    end
else
    for k,v in pairs( package.loaded ) do
        if g_reloadState[k] == nil then
            package.loaded[k] = nil
        end
    end
end
 
-- Подключаем util.lua
require( "util" )
-- Подключаем addon_main.lua
require( "addon_main" )
-- Вы можете подключать любые .lua скрипты, которые вы хотите! 

addon_game_mode.lua

--Делаем экземпляр нашего игрового объекта
local gameMode = CustomGameMode:new()
-- Вызываем функцию инициализации игрового мода
gameMode:InitGameMode()

Ядро вашего дополнения

--[[
Custom game mode
]]
-------------------------------------------------------------------------------
-- Объявление класса
-------------------------------------------------------------------------------
if CustomGameMode == nil then
    CustomGameMode = {}
    CustomGameMode.__index = CustomGameMode
end
 
-- Конструктор
function CustomGameMode:new (o)
    o = o or {}
    setmetatable(o, self)
    HANDLE = o
    return o
end
 
-- Используется при вызове скрипта от способностей
function GetCustomGameMode()
    return HANDLE
end
 
--------------------------------------------------------------------------------
-- Глобальные переменные
--------------------------------------------------------------------------------
 
--------------------------------------------------------------------------------
-- Инициализируем CustGameMode
--------------------------------------------------------------------------------
 
function CustomGameMode:InitGameMode()
    
    print( "Initialising mode!" )
        
    -- Начинаем мышление
    local gameBase = Entities:FindAllByClassname('dota_base_game_mode')[1]
    gameBase:SetThink('Think', 'CustomGameMode', 0.25, self)
    
end
 
-------------------------------------------------------------------------------
-- Think (мыслительная) функция
-------------------------------------------------------------------------------
function CustomGameMode:Think()
    -- Возвращаем значение как долго мы ходим ждать для начала другого Think()
    return 0.25
end

Расширенное ядро

События

-- Добавляем слушателя, для прослушивания события "event", и после события запускаем функцию "Handler"
ListenToGameEvent( "event", Dynamic_Wrap( CustomGameMode, "Handler" ), self )

function CustomGameMode:InitGameMode()
    
    print( "Initialising mode!" )
    
    -- Мы добавим Слушателя здесь, его обработчик - функция OnLevelUp
    ListenToGameEvent( "dota_player_gained_level", Dynamic_Wrap( CustomGameMode, "OnLevelUp" ), self )
        
    -- Запускаем мыслителя
    local gameBase = thinkHack( "CustomGameMode", Dynamic_Wrap( CustomGameMode, "Think" ), 0.25, self)
    
end

function CustomGameMode:OnLevelUp( keys )
    
    print( "Somebody leveled up!" )
    
    -- Мы хотим дать золото, если игрок достиг 6 уровня, мы проверяем условие
    local level = PlayerResource:GetLevel( keys.PlayerID )
    
    if level == 6 then
    -- Если полученный уровень равен 6, то изменяем золото на +1000 (т.е. добавляем)
        PlayerResource:SetGold( keys.PlayerID, PlayerResource:GetGold( keys.PlayerID ) + 1000, true)
    end    
end

Команды

Convars:RegisterCommand( "Command1", function(name, parameter)
    -- Дать игроку, который вызвал команду
    local cmdPlayer = Convars:GetCommandClient()
    
    -- Если игрок существует: вызываем обработчик
    if cmdPlayer then  
        return self:Handler( cmdPlayer, parameter )
    end
 end, "A small description", 0 )

Convars:RegisterCommand( "GiveAbilityPoints", function(name, parameter)
     -- Дать игроку, который вызвал команду
    local cmdPlayer = Convars:GetCommandClient()
    
    -- Если игрок существует: вызываем обработчик
    if cmdPlayer then 
        return self:GivePlayerAbilityPoints( cmdPlayer, parameter ) 
    end
 end, "Gives a player some ability points", 0 )

function CustomGameMode:GivePlayerAbilityPonits( player, numPoints )
    
    print( "Giving ability points" )
    
    -- Сперва ищем героя
    local hero = player:GetAssignedHero()
    
    -- Теперь даем герою очки для прокачки, помните: NumPoints является строкой!
    hero:SetAbilityPoints( tonumber(numPoints) )
    
end

Советы и подсказки

Печатаем таблицу в консоль

function PrintTable(t, indent, done)
    --print ( string.format ('PrintTable type %s', type(keys)) )
    if type(t) ~= "table" then return end
 
    done = done or {}
    done[t] = true
    indent = indent or 0
 
    local l = {}
    for k, v in pairs(t) do
        table.insert(l, k)
    end
 
    table.sort(l)
    for k, v in ipairs(l) do
        -- Игнорируем FDesc
        if v ~= 'FDesc' then
            local value = t[v]
 
            if type(value) == "table" and not done[value] then
                done [value] = true
                print(string.rep ("\t", indent)..tostring(v)..":")
                PrintTable (value, indent + 2, done)
            elseif type(value) == "userdata" and not done[value] then
                done [value] = true
                print(string.rep ("\t", indent)..tostring(v)..": "..tostring(value))
                PrintTable ((getmetatable(value) and getmetatable(value).__index) or getmetatable(value), indent + 2, done)
            else
                if t.FDesc and t.FDesc[v] then
                    print(string.rep ("\t", indent)..tostring(t.FDesc[v]))
                else
                    print(string.rep ("\t", indent)..tostring(v)..": "..tostring(value))
                end
            end
        end
    end
end

Получение предмета из инвентаря

    -- Функция, которая находит предмет на юните используя имя
function findItemOnUnit( unit, itemname, searchStash )
    -- Проверяем имеет ли юнит предметы
    if not unit:HashItemInInventory( itemname ) then
        return nil
    end
    
    -- Ставим диапазон поиска в зависимости от того, хотим ли мы чтобы искал в стэше (в тайнике)
    local lastSlot = 5
    if searchStash then
        lastSlot = 11
    end
    
    -- Проходим все слоты, чтобы проверить что предмет существует
    for slot= 0, lastSlot, 1 do
        local item = unit:GetItemInSlot( slot )
        if item:GetAbilityName() == itemname then
            return item
        end
    end
    
    -- Если этот предмет не найден, то возвращаем 0 - nil (происходит если предмет находится в стэша, а вы не ищете в нем)
    return nil
end