A La Kale: Hidden Village Buffer (Release)

USE
Arcadia
GO

UPDATE [dbo].[NPCResource] SET x='221311',  y='20575' WHERE id='11225' 
UPDATE [dbo].[NPCResource] SET x='222541', y='20331' WHERE id='7025'

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
end

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