A La Kale: Hidden Village Buffer (Release)

[RoflcopterGoesSoiSoiSoi]

Features -

• Druid Kart has invited a friend named Madosa Kart to join him in his buffing adventures! You can find a duplicate buff NPC near the Lak trader in Hidden Village.
• Both players and creatures may receive buffs that last for 2.5 hours.
• A handy "Get All Buffs" menu option has been added.

Installation -
1. Replace your "NPC_buff.lua" with the following contents.

 Spoiler

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

2. Add the following code to the bottom of your "etc_script_function.lua" file

 Spoiler

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

3. Run the following query inside SQL Server Management Studio

 Spoiler

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'

Enjoy!

(Note: The functions in etc_script_function were created before nCarbon released their own HV fix. Mine works by checking the HV buff state level, and if it is level 1 or higher, grants access to the NPC (and on my server, access to other NPCs and teleporters, et cetera). You can modify this script to your liking to facilitate any other configuration you have.)


Please report any bugs, issues or oddities you encounter.


Release 1.1
- Updated SQL to fix an issue with NPC locations.

[Vertexx]

Good job!

[medmedmed]

yeah really nice so helpful

[mfredic]

thanks , nice work

[evonvenom]

cool,Nice work ^^

[RoflcopterGoesSoiSoiSoi]

Thanks!

[Hollyweird]

Awesome Bud, added to server

[RoflcopterGoesSoiSoiSoi]

..Bump..my precious work Q_Q

[nightguy13]

Lurv it. <3

[rph2]

thank's..but
can you remove the old one??

[Nameless 118]

thanx rofl *-*

[longiness]

I followed your instrution but it doesn't work. It said "...attempt to call npc global." when I click on NPC buffers in HV.

[Ayumilove]

Hello,

Really, really nice release bro : ) Thanks for your contributions

I have the same problem as longiness

I followed your instrution but it doesn't work. It said "...attempt to call npc global." when I click on NPC buffers in HV.

I will update the post with the exact error when you double click the NPC.

Also there is something weird because the new NPC spawned at the same location as

Druid Kart.

[RoflcopterGoesSoiSoiSoi]

The new NPC should spawn on a small ledge overlooking the Lak trader (behind the building the grocery merchant sits in front of).

The error your are encountering means you haven't properly installed the LUA file or ran the SQL query.

[longiness]

Originally Posted by RoflcopterGoesSoiSoiSoi

The new NPC should spawn on a small ledge overlooking the Lak trader (behind the building the grocery merchant sits in front of).

The error your are encountering means you haven't properly installed the LUA file or ran the SQL query.

Thank for your quick reply but...
For the direction, I couldn't see any NPC spawn where you said. For the installation, I followed your intrusction step by step ( replace and run SQL query) but I found the duplicated NPC Medosa Kart is still in error.