pet Pet Full EXP Fruit

[DangThao 81]

Iteminfo Line:

7934	Pet Exp Stone	n1502	bluestone01	0	0	0	0	0	0	31	0	0	0	0	0	1	1	1	1	19999	1	10	-1,-2,-2,-2	0	-1,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,-2	0	0	-1,-2,-2,-2,-2,-2,-2,-2,-2,-2	-1,-2,-2,-2,-2,-2,-2,-2,-2,-2	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0,0	0	0,0	0,0	0	0	0	0	0	0	0	0	0	addexp_elf	0	0	0	0,0	0,0	0,0	Double Click 2 Time To Make Your Pet Exp Full Please Put Your Pet in number 2 Slot Of Inventory	0

ItemEffect.lua Line

function addexp_elf (role,Item)
        local Equipment        = GetChaItem(role, 2, 1)
        local EquipmentName    = GetItemName(GetItemID(Equipment))
        local EquipmentType    = GetItemType2(GetItemID(Equipment))
	local Item_ID        = GetItemID(Item)
		
	if(Equipment == nil)then
		SystemNotice(role,"Nothing inserted on 2st Inventory Slot.") --check item there or no
		UseItemFailed ( role )
		return
        end
	if Item_ID == 7934 then --Exp Pet
		if(EquipmentType == 59 )then

			local ItemAttr    = GetItemAttr(Equipment, ITEMATTR_ENERGY)
			local Bonus    = 6480
			local FinalAttr = ItemAttr + Bonus
			local Limit    = 6480
			
			if (ItemAttr >= Limit) then
				SystemNotice(role,"The Pet Is Max Exp!")
				UseItemFailed ( role )
				return
			end

			if (FinalAttr >= Limit) then
				SetItemAttr(Equipment, ITEMATTR_ENERGY, Limit)
			else
				SetItemAttr(Equipment, ITEMATTR_ENERGY, FinalAttr)
			end

			SystemNotice(role,"Successfully added Full Exp To Your Pet!")
			RefreshCha(role)
		else

			SystemNotice(role,"Only Pets Can Be Used With Exp Elf Stone , Make Sure Your Pet In 2st Slot Of Inventory!")
			UseItemFailed ( role )
			return
		end
	end	

end

Credit: G-PKo FIlesss from archive.
Hopefully this helps some developer out there. Have fun.