PHP код
:function get_module_name()
             return "NPC_Buff"
end

   --============================================================
   --                <<<<<< 1. Druid Kart >>>>>>
   --============================================================
function hidden_village_buffer()
    local npc_id = get_npc_id()
    if npc_id == 11225 then
    dlg_title("Madosa Kart")
    else
    dlg_title("Druid Kart")
    end
   
    if is_premium() then
        dlg_text("Would you like some buffs?")
        dlg_menu("Can you please buff me?", "druid_kart_select_player()")
        dlg_menu("Can you please buff my creature?", "druid_kart_select_creature()")
        dlg_menu("Goodbye!", "")
        dlg_show()
    else
        is_not_premium_error()
    end
end

function druid_kart_select_player()
    local npc_id = get_npc_id()
    if npc_id == 11225 then
    dlg_title("@105011225")
    else
    dlg_title("Druid Kart")
    end
    if is_premium() then
        dlg_text("Which buff do you want?")
        dlg_menu("Physical Attack - 1,000R", "druid_kart_give_player(1007)")
        dlg_menu("Magical Attack - 1,000R", "druid_kart_give_player(1008)")
        dlg_menu("Physical Defense - 1,000R", "druid_kart_give_player(1009)")
        dlg_menu("Magical Defense - 1,000R", "druid_kart_give_player(1010)")
        dlg_menu("Attack Speed - 1,000R", "druid_kart_give_player(1011)")
        dlg_menu("Cast Speed - 1,000R", "druid_kart_give_player(1012)")
        dlg_menu("Movement Speed - 1,000R", "druid_kart_give_player(1013)")
        dlg_menu("Get All Buffs - 7,000R", "druid_kart_give_player(0)")
        dlg_menu("Nevermind.", "hidden_village_buffer()")
        dlg_menu("Goodbye!", "")
        dlg_show()
    else
        is_not_premium_error()
    end
end

function druid_kart_select_creature()
    local npc_id = get_npc_id()
    if npc_id == 11225 then
    dlg_title("Madosa Kart")
    else
    dlg_title("Druid Kart")
    end
    if is_premium() then
        dlg_text("Which buff do you want?")
        dlg_menu("Physical Attack - 1,000R", "druid_kart_give_creature(1007)")
        dlg_menu("Magical Attack - 1,000R", "druid_kart_give_creature(1008)")
        dlg_menu("Physical Defense - 1,000R", "druid_kart_give_creature(1009)")
        dlg_menu("Magical Defense - 1,000R", "druid_kart_give_creature(1010)")
        dlg_menu("Attack Speed - 1,000R", "druid_kart_give_creature(1011)")
        dlg_menu("Cast Speed - 1,000R", "druid_kart_give_creature(1012)")
        dlg_menu("Movement Speed - 1,000R", "druid_kart_give_creature(1013)")
        dlg_menu("Get All Buffs - 7,000R", "druid_kart_give_creature(0)")
        dlg_menu("Nevermind.", "hidden_village_buffer()")
        dlg_menu("Goodbye!", "")
        dlg_show()
    else
        is_not_premium_error()
    end
end

function druid_kart_give_player(buffcode)
    local npc_id = get_npc_id()

        if npc_id == 11225 then
            dlg_title("Madosa Kart")
        else
            dlg_title("Druid Kart")
        end

    local gold = get_value("gold")
    gold = tonumber(gold)
    if buffcode == 0 then
        if gold >= 7000 then
            sv("gold", gold-7000)
            update_gold_chaos()
            add_state(1007, 6, 900000)
            add_state(1008, 6, 900000)
            add_state(1009, 6, 900000)
            add_state(1010, 6, 900000)
            add_state(1011, 6, 900000)
            add_state(1012, 6, 900000)
            add_state(1013, 6, 900000)
            druid_kart_select_player()
        else
            dlg_text("Sorry, you do not have enough money.")
            dlg_menu("Goodbye!", "")
            dlg_show()
        end
    else
        if gold >= 1000 then
            sv("gold", gold-1000)
            update_gold_chaos()
            add_state("" .. buffcode .. "", 6, 900000)
            druid_kart_select_player()
        else
            dlg_text("Sorry, you do not have enough money.")
            dlg_menu("Goodbye!", "")
            dlg_show()
        end
    end
end

function druid_kart_give_creature(buffcode)
    local npc_id = get_npc_id()
    if npc_id == 11225 then
    dlg_title("Madosa Kart")
    else
    dlg_title("Druid Kart")
    end
    local gold = get_value("gold")
    gold = tonumber(gold)
    if buffcode == 0 then
        if gold >= 7000 then
            sv("gold", gold-7000)
            update_gold_chaos()
            add_cstate(1007, 6, 900000)
            add_cstate(1008, 6, 900000)
            add_cstate(1009, 6, 900000)
            add_cstate(1010, 6, 900000)
            add_cstate(1011, 6, 900000)
            add_cstate(1012, 6, 900000)
            add_cstate(1013, 6, 900000)
            druid_kart_select_creature()
        else
            dlg_text("Sorry, you do not have enough money.")
            dlg_menu("Goodbye!", "")
            dlg_show()
        end
    else
        if gold >= 1000 then
            sv("gold", gold-1000)
            update_gold_chaos()
            add_cstate("" .. buffcode .. "", 6, 900000)
            druid_kart_select_creature()
        else
            dlg_text("Sorry, you do not have enough money.")
            dlg_menu("Goodbye!", "")
            dlg_show()
        end
    end
end
В нижней части "etc_script_function.lua" добавляем следующее:

PHP код:function is_premium()
    local hvbuff = get_state_level("9004")
    if hvbuff >= 1 then
        return true
    else
        return false
    end
end

function is_not_premium_error()
    dlg_text("I'm sorry, but we only provide services to those with a Hidden Village pass.")
    dlg_menu("Goodbye!", "")
    dlg_show()
end
Запускаем следующий запрос в MS SQL Server Management Studio:

PHP код:USE
Arcadia
GO

UPDATE [dbo].[NPCResource] SET contact_script='hidden_village_buffer()' WHERE id='7025' OR id='11225'
UPDATE [dbo].[NPCResource] SET local_flag='0' WHERE id='11225'
UPDATE [dbo].[NPCResource] SET x='221311',  y='20575' WHERE id='11225'
UPDATE [dbo].[NPCResource] SET x='222541', y='20331' WHERE id='7025'