function I6600821_Use(MapID, InstanceID, TypeID, RoleID)

	local shenglingSkill = role.IsLearnedSkill(RoleID, 91011) 
	if shenglingSkill == nil then
		
		role.AddSkill(RoleID, 9101101)
	end
end
aux.RegisterItemEvent(6600821, 1, "I6600821_Use")

function I6600822_Use(MapID, InstanceID, TypeID, RoleID)

	local shenglingSkill = role.IsLearnedSkill(RoleID, 91012) 
	if shenglingSkill == nil then
		
		role.AddSkill(RoleID, 9101201)
	end
end
aux.RegisterItemEvent(6600822, 1, "I6600822_Use")

function I6600823_Use(MapID, InstanceID, TypeID, RoleID)

	local shenglingSkill = role.IsLearnedSkill(RoleID, 91013) 
	if shenglingSkill == nil then
		
		role.AddSkill(RoleID, 9101301)
	end
end
aux.RegisterItemEvent(6600823, 1, "I6600823_Use")

function I6600824_Use(MapID, InstanceID, TypeID, RoleID)

	local shenglingSkill = role.IsLearnedSkill(RoleID, 91014) 
	if shenglingSkill == nil then
		
		role.AddSkill(RoleID, 9101401)
	end
end
aux.RegisterItemEvent(6600824, 1, "I6600824_Use")


function I6600820_Use(MapID, InstanceID, TypeID, RoleID)

	role.AddRoleItem(MapID, InstanceID, RoleID, 6600819, 3, -1, 8, 420)
end
aux.RegisterItemEvent(6600820, 1, "I6600820_Use")

function sulta_cast(MapID, InstanceID, SkillID, OwnerID, TargetID)
	role.RemoveFromRole(MapID, InstanceID, OwnerID, 6600819, 1, 101)
end
aux.RegisterSkillEvent(9101401, 1, "sulta_cast")
aux.RegisterSkillEvent(9101301, 1, "sulta_cast")
aux.RegisterSkillEvent(9101201, 1, "sulta_cast")
aux.RegisterSkillEvent(9101101, 1, "sulta_cast")

function sulta_canuse(MapID, InstanceID, SkillID, OwnerID, TargetID)
	local b = role.GetRoleItemNum(OwnerID,6600819)
	
	if b <= 0 then
		return 79, false
	end
	return 0,false
end
aux.RegisterSkillEvent(9101401, 0, "sulta_canuse")
aux.RegisterSkillEvent(9101301, 0, "sulta_canuse")
aux.RegisterSkillEvent(9101201, 0, "sulta_canuse")
aux.RegisterSkillEvent(9101101, 0, "sulta_canuse")