[Help Thread] Please post your questions here.

dlg_menu("Up your pet to 1 level", "Up_pet(1)") --up de 1 level

function Up_pet( level )
	local npc_id = get_npc_id()

	if npc_id == 7001 then --I gave it to the HV Breeder, so that's what this is for
		if is_premium() == false then
			return false
		end

		dlg_title("@90700100")
	end
	dlg_text_without_quest_menu("I will up you pet to 1 level")
	for i = 0, 5 do


		local handle = 0
		handle = get_creature_handle( i )

		if handle ~= 0 and handle ~= nil then

			local petlvl = get_creature_value( handle, "level" )
			local petJp=get_creature_value( handle, "jp" )

			text = sconv("@90010009", "#@creature_name@#",tostring(get_creature_value( handle, "name" )) ,"#@creature_level@#",tostring(petlvl))

			command = 'Creature_Buy_level( ' .. handle .. ',' .. level ..' )'

			dlg_menu( text, command )

		end
	end
	dlg_menu( Exit, "" )

end

function Creature_Buy_level( handle ,level)

local players_ruppy = get_value( "gold" )
local petJp= get_creature_value( handle, "jp" )
local petlvl= get_creature_value( handle, "level" )
	if players_ruppy >=20000000 then --check if have 20m ruppy ,conditions 1 
	if petlvl < 50 and petlvl > 60 and petlvl < 100 and petlvl > 115 Then -- conditions 2
		set_creature_value(handle, "level", petlvl+level) --add 1 level
		set_creature_value(handle, "jp", petJp+level) --add 1 jp
		set_value( "gold", gold - 20000000 ) --remove 20m ruppy
                update_gold_chaos()
	
	else
		dlg_title("@90700100")
		dlg_text("Error on conditions 2 ")
		dlg_menu("Exit", "")
        dlg_show()
	end
	if petlvl >= 50 and petlvl <= 60 and petlvl >= 100 and petlvl <= 115 Then -- conditions 3
			set_creature_value(handle, "level", petlvl+level) --add 1 level
		set_creature_value(handle, "jp", petJp+level+1) --add 2 jp
		set_value( "gold", gold - 20000000 ) --remove 20m ruppy
                update_gold_chaos()
	
	else
		dlg_title("@90700100")
		dlg_text("Error on conditions 3 ")
		dlg_menu("Exit", "")
        dlg_show()
	end
	else
		dlg_title("@90700100")
		dlg_text("Your creature gain 1 level")
		dlg_menu("Exit", "")
        dlg_show()
	end
end