function get_module_name()
	return "NPC_ReincarnationGoddess"
end

-- Generic functions;
-- ################################################################################## --
function removeTokens(amount)
	delete_item(get_item_handle(1500), amount)
	cprint("You've given <b>x" ..amount.. " [Reincarnation Tokens]</b> to the Reincarnation Goddess.")
end
function validateTokens(amount)
	local tokCnt = find_item(1500)	
	if tokCnt >= amount then
		return true
	else
		return false
	end
end
function amountTokens()
	return find_item(1500)
end
function rbChar(resetMC)
	
	-- Increment total reinc count;
	set_flag("reinc", get_flag("reinc")+1)
	
	if resetMC == 0 then
		-- Give random wings;
		notice("Reincarnation Goddess has performed an incomplete reincarnation on "..gv("name").."! He now has a total of "..tostring(get_flag("reinc")).." reincarnations ("..gv("lv").."/150)!")
	else
		dlg_title("Reincarnation Goddess")
		dlg_text("Complete reincarnation? Kudos. The more time use the reincarnation the higher are the rewards!!!")
		dlg_menu( "@90010002", " " )
		do	
		end
		notice("Reincarnation Goddess has performed a complete reincarnation on "..gv("name").."! He now has a total of "..tostring(get_flag("reinc")).." reincarnations ("..gv("lv").."/150)!")
	end
	
	if resetMC == 1 then
		-- Reset skills back to stock;
		reset_skill(0)		
		-- Set job back to stock;
		reset_job(0)
		---Clear items
		clear_wear()
	end
	
	-- Give CM and tokens;
	local cmPrize = (gv("lv") - 150) * 15
	local tokPrize = (gv("lv") - 150) * 50
	if tokPrize == 0 then
		tokPrize = 150
	end
	if resetMC == 0 then
		tokPrize = tokPrize * 2
		cmPrize = cmPrize * 3 
	end
	
	if cmPrize > 0 and tokPrize > 150 then
		cprint("You earned <b>x"..tostring(cmPrize).." [Challenge Marks]</b> and <b>x"..tostring(tokPrize).." [Reincarnation Tokens]</b> with this reincarnation.")
	elseif cmPrize == 0 and tokPrize > 150 then
		cprint("You earned <b>x150 (+"..tostring(tokPrize-150)..") [Reincarnation Tokens]</b> with this reincarnation.")
	elseif cmPrize > 0 and tokPrize == 150 then
		cprint("You earned <b>x"..tostring(cmPrize).." [Challenge Marks]</b> and <b>x"..tostring(tokPrize).." [Reincarnation Tokens]</b> with this reincarnation.")
	elseif cmPrize == 0 and tokPrize == 150 then
		cprint("You earned <b>"..tostring(tokPrize).." [Reincarnation Tokens]</b> with this reincarnation.")
	end
	
	if cmPrize > 0 then
		insert_item(2021300, cmPrize, 0, 1, 2)
	end
	insert_item(1500, tokPrize, 0, 1, 2)
	
	-- Reset level, tp and jp;
	sv("lv", 19)
	if resetMC == 1 then
		sv("jp", 20000)
		sv("tp", 0)
		clear_wear()
	end
	
	
end


-- ################################################################################## --

function ReincGod_Initiate()

	-- Fetch char level;
	local lv = gv("lv")
	
	
	-- See if user has reincarnation entry;
	if get_flag("reinc") == "" then
		set_flag("reinc","0")
	end
	
	dlg_title("Reincarnation Goddess")
	dlg_text("If only you've lived as long as I have..")
	dlg_menu("<#e74c3c>[ Reincarnate ]", "ReincGod_doReinc(0)")
	dlg_menu("<#ffd700>[ Token store ]", "ReincGod_tokenStore()")
	dlg_menu("<#ffd700>[ Trade tokens for CM ]", "ReincGod_tradeTokensForCM()")
	dlg_menu("<#ffd700>[ My reincarnations ]", "ReincGod_ask(2)")
	dlg_menu("<#ffd700>[ Questions ]", "ReincGod_ask(1)")
	dlg_menu("[ Close ]", "")
	dlg_show()

end

function ReincGod_tokenStore()

	dlg_title("Reincarnation Goddess")
	dlg_text("I can offer you plenty of items for those tokens.")
	
	dlg_menu("<#ffd700>[ Function ]", "ReincGod_listStore(1)")
	dlg_menu("<#ffd700>[ Decorative outfits ]", "ReincGod_listStore(3)")
	dlg_menu("<#ffd700>[ Consumables ]", "ReincGod_listStore(2)")
	
	dlg_menu("<#ffd700>[ Go back ]", "ReincGod_Initiate()")
	dlg_menu("<#ffd700>[ Close ]", "")
	dlg_show()

end

function ReincGod_listStore(qCode)

	dlg_title("Reincarnation Goddess")
	
	if qCode == 1 then
		dlg_text("Yes, I do provide those Items, but they require a certain amount of reincarnations.")
		dlg_menu("<#ffd700>[ Boss Loot Pets ]", "ReincGod_listStore(100)")
		dlg_menu("<#ffd700>[ Decorative Capes ]", "ReincGod_listStore(200)")
		-----dlg_menu("<#ffd700>[ New Pieces ]", "ReincGod_listStore(300)")-----
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore()")
	elseif qCode == 100 then
		if get_flag("reinc") >= 0 then
			dlg_text("Yes, I can trade you these.")
			dlg_menu("<#ffd700>[ Oforia Pet (200 Tokens) ]", "ReincGod_buyStore(200,690543,1)")
			dlg_menu("<#ffd700>[ Abhuva Pet (200 Tokens) ]", "ReincGod_buyStore(200,690544,1)")
			dlg_menu("<#ffd700>[ Primal Scream Pet (200 Tokens) ]", "ReincGod_buyStore(200,690545,1)")
			dlg_menu("<#ffd700>[ Taranida Pet (200 Tokens) ]", "ReincGod_buyStore(200,690546,1)")
			dlg_menu("<#ffd700>[ Crustalino Pet (200 Tokens) ]", "ReincGod_buyStore(200,690547,1)")
			dlg_menu("<#ffd700>[ Likirus Pet (200 Tokens) ]", "ReincGod_buyStore(200,690548,1)")
			dlg_menu("<#ffd700>[ Soul Seeker Pet (200 Tokens) ]", "ReincGod_buyStore(200,690549,1)")
			dlg_menu("<#ffd700>[ Takin Pet (200 Tokens) ]", "ReincGod_buyStore(200,690550,1)")
			dlg_menu("<#ffd700>[ Betrayal Pet (200 Tokens) ]", "ReincGod_buyStore(200,690551,1)")
			dlg_menu("<#ffd700>[ Ashmaw Pet (200 Tokens) ]", "ReincGod_buyStore(200,690552,1)")
			dlg_menu("<#ffd700>[ Sand Lord Kynish Pet (200 Tokens) ]", "ReincGod_buyStore(200,690553,1)")
			dlg_menu("<#ffd700>[ Bear Mother Pet (200 Tokens) ]", "ReincGod_buyStore(200,690554,1)")
			dlg_menu("<#ffd700>[ Silex Pet (200 Tokens) ]", "ReincGod_buyStore(200,690555,1)")
			dlg_menu("<#ffd700>[ Aurumis Pet (200 Tokens) ]", "ReincGod_buyStore(200,690556,1)")
			dlg_menu("<#ffd700>[ Draka Pet (200 Tokens) ]", "ReincGod_buyStore(200,690557,1)")
			dlg_menu("<#ffd700>[ Obsidikar Pet (200 Tokens) ]", "ReincGod_buyStore(200,690558,1)")
			dlg_menu("<#ffd700>[ Butkadah Pet (200 Tokens) ]", "ReincGod_buyStore(200,690559,1)")
			dlg_menu("<#ffd700>[ Neo Red Paper Pet (200 Tokens) ]", "ReincGod_buyStore(200,690560,1)")
			dlg_menu("<#ffd700>[ Neo Blue Paper Pet (200 Tokens) ]", "ReincGod_buyStore(200,690561,1)")
		else
			dlg_text("You would have to reincarnate once to be able to trade for these items.")
		end
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_listStore(1)")
	elseif qCode == 200 then
		if get_flag("reinc") >= 0 then
			dlg_text("Yes, I can trade you these.")
			dlg_menu("<#ffd700>[ Jolly Roger Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2011280,1)")
			dlg_menu("<#ffd700>[ Yin-Yang Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2012942,1)")
			dlg_menu("<#ffd700>[ Cloak of Kindness (300 Tokens) ]", "ReincGod_buyStore(300,2012225,1)")
			dlg_menu("<#ffd700>[ Korean Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2011004,1)")
			dlg_menu("<#ffd700>[ China Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010996,1)")
			dlg_menu("<#ffd700>[ Canada Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010992,1)")
			dlg_menu("<#ffd700>[ Brazil Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010988,1)")
			dlg_menu("<#ffd700>[ Australia Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010984,1)")
			dlg_menu("<#ffd700>[ Spain Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010937,1)")
			dlg_menu("<#ffd700>[ Poland Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010933,1)")
			dlg_menu("<#ffd700>[ Netherlands Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010929,1)")
			dlg_menu("<#ffd700>[ Italy Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010925,1)")
			dlg_menu("<#ffd700>[ Germany Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010913,1)")
			dlg_menu("<#ffd700>[ USA Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010895,1)")
			dlg_menu("<#ffd700>[ UK Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010891,1)")
			dlg_menu("<#ffd700>[ Turkey Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010887,1)")
			dlg_menu("<#ffd700>[ Singapore Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010883,1)")
			dlg_menu("<#ffd700>[ Malaysia Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2010879,1)")
			dlg_menu("<#ffd700>[ Honduras Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2011272,1)")
			dlg_menu("<#ffd700>[ Belarus Cloak (300 Tokens) ]", "ReincGod_buyStore(300,2011276,1)")
		else
			dlg_text("You would have to reincarnate twice to be able to trade for these items.")
		end
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_listStore(1)")
	elseif qCode == 300 then
		if get_flag("reinc") >= 0 then
			dlg_text("Yes, I can trade you these.")
			dlg_menu("<#ffd700>[ Stasis Cowl (500 Tokens) ]", "ReincGod_buyStore(500,302741,1)")
			dlg_menu("<#ffd700>[ Sandspike Helm (500 Tokens) ]", "ReincGod_buyStore(500,302733,1)")
			dlg_menu("<#ffd700>[ Aurelian Helm (500 Tokens) ]", "ReincGod_buyStore(500,37,1)")
			dlg_menu("<#ffd700>[ Amberscale Veil (500 Tokens) ]", "ReincGod_buyStore(500,302745,1)")
		else
			dlg_text("You would have to reincarnate at least three times to be able to trade for these items.")
		end
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_listStore(1)")
	elseif qCode == 2 then
		dlg_text("<#ffd700>I do have some of these and some of those lying here if you're particulary interested..")
		dlg_menu("<#ffd700>[ x1 Expert's Bag (150 Tokens) ]", "ReincGod_buyStore(150,3800101,1)")
		dlg_menu("<#ffd700>[ x1 Ancient Chaos Stone (55 Tokens) ]", "ReincGod_buyStore(55,3620137,1)")
		dlg_menu("<#ffd700>[ x1 Emblem-Magic (55 Tokens) ]", "ReincGod_buyStore(55,603105,1)")
		dlg_menu("<#ffd700>[ x1 Gender Change Potion (55 Tokens) ]", "ReincGod_buyStore(55,960123,1)")
		dlg_menu("<#ffd700>[ x50 Creature Spellbook (100 Tokens) ]", "ReincGod_buyStore(100,920001,50)")
		dlg_menu("<#ffd700>[ x200 Rebirth Scroll (200 Tokens) ]", "ReincGod_buyStore(200,920008,1)")
		dlg_menu("<#ffd700>[ x400 Homonculus Heart (400 Tokens) ]", "ReincGod_buyStore(400,601100284,1)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore()")
	elseif qCode == 3 then
		dlg_text("Decorative? Phhh.. Real warriors look fierce and tought.")
		dlg_menu("<#ffd700>[ Decorative: Darkcaster ]", "ReincGod_listStore(400)")
		dlg_menu("<#ffd700>[ Decorative: Tribal ]", "ReincGod_listStore(500)")
		dlg_menu("<#ffd700>[ Decorative: Gladiator ]", "ReincGod_listStore(600)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore()")
	elseif qCode == 400 then
		dlg_text("Yeah.. Go ahead.")
		dlg_menu("<#ffd700>[ Darkcaster Suit Helmet (75 Tokens) ]", "ReincGod_buyStore(75,1400,1)")
		dlg_menu("<#ffd700>[ Darkcaster Suit Boots (75 Tokens) ]", "ReincGod_buyStore(75,1401,1)")
		dlg_menu("<#ffd700>[ Darkcaster Suit Gloves (75 Tokens) ]", "ReincGod_buyStore(75,1402,1)")
		dlg_menu("<#ffd700>[ Darkcaster Suit Armor (125 Tokens) ]", "ReincGod_buyStore(125,1403,1)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore(3)")
	elseif qCode == 500 then
		dlg_text("Yeah.. Go ahead.")
		dlg_menu("<#ffd700>[ Tribal Helmet (75 Tokens) ]", "ReincGod_buyStore(75,1404,1)")
		dlg_menu("<#ffd700>[ Tribal Boots (75 Tokens) ]", "ReincGod_buyStore(75,1405,1)")
		dlg_menu("<#ffd700>[ Tribal Gloves (75 Tokens) ]", "ReincGod_buyStore(75,1406,1)")
		dlg_menu("<#ffd700>[ Tribal Costume (125 Tokens) ]", "ReincGod_buyStore(125,1407,1)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore(3)")
	elseif qCode == 600 then
		dlg_text("Yeah.. Go ahead.")
		dlg_menu("<#ffd700>[ Gladiator Helmet (75 Tokens) ]", "ReincGod_buyStore(75,1408,1)")
		dlg_menu("<#ffd700>[ Gladiator Boots (75 Tokens) ]", "ReincGod_buyStore(75,1409,1)")
		dlg_menu("<#ffd700>[ Gladiator Gloves (75 Tokens) ]", "ReincGod_buyStore(75,1410,1)")
		dlg_menu("<#ffd700>[ Gladiator Armor (125 Tokens) ]", "ReincGod_buyStore(125,1411,1)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_tokenStore(3)")
	end
	
	dlg_menu("<#ffd700>[ Close ]", "")
	dlg_show()
	
end

function ReincGod_buyStore(tokens,id,count)

	if validateTokens(tokens) == false then
		cprint("<b>You do not have enough [Reincarnation Tokens] to purchase that.")
		return
	end
	
	removeTokens(tokens)
	insert_item(id, count)
	cprint("You have bought x"..tostring(count).." <b>"..get_item_name_by_code(id).."</b>.")

end

function ReincGod_tradeTokensForCM()

	dlg_title("Reincarnation Goddess")
	dlg_text("Reincarnation is a challenge, correct? I can trade you x3 [ Reincarnation Tokens] for x1 [ Challenge Marks ].")
	for i = 30, 300, 30
	do
		if validateTokens(i) == true then
			dlg_menu("<#ffd700>[ Trade x"..tostring(i).." Tokens ]", "ReincGod_commenceTokensForCM("..i..")")
		end
	end
	
	dlg_menu("<#ffd700>[ Go back ]", "ReincGod_Initiate()")
	dlg_menu("<#ffd700>[ Close ]", "")
	dlg_show()

end

function ReincGod_commenceTokensForCM(amount)
	
	removeTokens(amount)
	insert_item(2021300, amount/3, 0, 1, 2)
	cprint("Reincarnation Goddess has given you x"..tostring(amount/3).." <b>[Challenge Marks]</b> in return.")
	
end


function ReincGod_confirmSwap(id,handle_1,handle_2,tokens)

	dlg_title("Reincarnation Goddess")
	dlg_text("Are you sure you want to trade your <b>"..get_item_name_by_code(get_item_code(handle_1)).."</b><#38261a> for <b>"..get_item_name_by_code(id).."</b><#38261a>?")
	dlg_menu("<#ffd700>[ Yes (x"..tostring(tokens).." tokens) ]", "ReincGod_wingSwap("..id..","..handle_1..","..handle_2..","..tokens..")")
	dlg_menu("<#ffd700>[ Trade something else ]", "ReincGod_wingTrade()")
	dlg_menu("<#ffd700>[ Close ]", "")
	dlg_show()
	
end

function ReincGod_wingSwap(id,handle_1,handle_2,tokens)
	
	-- Message,
	cprint("You have traded your <b>"..get_item_name_by_code(get_item_code(handle_1)).."</b><#fdddb0> for <b>"..get_item_name_by_code(id).."</b><#fdddb0>.")

	-- Remove 2 previous wings;
	delete_item(handle_1,1)
	delete_item(handle_2,1)
	insert_item(id, 1, 0, 1, 2)
	removeTokens(tokens)

end


function ReincGod_ask(qCode)

	dlg_title("Reincarnation Goddess")
	if qCode == 1 then
		dlg_text("Yes, what is it? What is it that you want to know about?")
		dlg_menu("<#ffd700>[ Reincarnation effects ]", "ReincGod_ask(4)")
		dlg_menu("<#ffd700>[ Overleveling ]", "ReincGod_ask(6)")
	elseif qCode == 2 then		
		dlg_text("You currently have "..tostring(get_flag("reinc")).." reincarnations in this life.")	
	elseif qCode == 4 then
		dlg_text("Reincarnation resets your class, skills, sets your level to 20 and provides you with 20k job points. Reincarnation is permanent and can not be undone.")
	elseif qCode == 6 then
		dlg_text("You can reincarnate at level 150 and receive 150 [Reincarnation tokens] for it, but for every level over 150 you will gain bonus x15 [Challenge Marks] and x50 [Reincarnation tokens].")
	end	
	
	if qCode == 1 or qCode == 2 then
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_Initiate()")
	else
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_ask(1)")
	end
	dlg_menu("<#ffd700>[ Close ]", "")
	dlg_show()
	
end

function ReincGod_doReinc(cCode)

	local lv = gv("lv")
	
	dlg_title("Reincarnation Goddess")
	if gv("job_depth") ~= 2 then
		dlg_text("Weakling.. Return to me when you have changed your class.")
		dlg_menu("[ Close ]", "")
	dlg_show()
		return
	end
	
	if cCode == 0 then	
		dlg_text("Which reincarnation option would you like to do?")
		dlg_menu("<#ffd700>[ Complete reincarnation ]", "ReincGod_doReinc(1)")
		dlg_menu("<#ffd700>[ Incomplete reincarnation ]", "ReincGod_doReinc(2)")
		dlg_menu("<#ffd700>[ Go back ]", "ReincGod_Initiate()")
	elseif cCode == 1 then
		dlg_text("Complete reincarnation resets your level back to 20 and rebirths you. Are you sure you want to reincarnate?")
		dlg_menu("<#ffd700>[ Yes, do it! ]", "ReincGod_doReinc(3)")
		dlg_menu("<#ffd700>[ Level 20? No thanks. ]", "ReincGod_Initiate()")
	elseif cCode == 2 then
		dlg_text("Incomplete reincarnation resets your level back to 20, but keeps your skills and class. Are you sure you want to reincarnate?")
		dlg_menu("<#ffd700>[ Yes, do it! ]", "ReincGod_doReinc(4)")
		dlg_menu("<#ffd700>[ Level 20? No thanks. ]", "ReincGod_Initiate()")
	elseif cCode == 3 then
		dlg_text("Are you prepared for a <b>complete</b> reincarnation?")
		dlg_menu("<#ffd700>[ Just do it! ]", "rbChar(1)")
		dlg_menu("<#ffd700>[ No.. ]", "ReincGod_Initiate()")
	elseif cCode == 4 then
		dlg_text("Are you prepared for an <b>incomplete</b> reincarnation?")
		dlg_menu("<#ffd700>[ Just do it! ]", "rbChar(0)")
		dlg_menu("<#ffd700>[ No.. ]", "ReincGod_Initiate()")
	end
	
	dlg_show()

end




-----When you reincarnate, call following function:----

function clear_wear()
 for i=0,19 do
if get_wear_item_handle(i) ~= 0 then
putoff_item(get_wear_item_handle(i))
end
end
end