ShowMessage("һһű $Rev: 213 $")

function _SMain(...)

	while true do

		local sCbt1 = DataPool:UserBag_CountItemByName("رͼ")
		local bStop = true

		AI:SetAI("һ")
		AI:SetParameter("ʼ") 
		AI:SetParameter("","ͼ")
		AI:Start()
		AI:SetParameter("в" , "" , 1 )
		local ExpTime = System:GetTickCount()
		while true do
			local Exp = Player:GetData("EXP")
			if AI:IsStop() == true  then
				break 
			end

			System:Sleep(1000)
		end

		local sCbt2 = DataPool:UserBag_CountItemByName("رͼ") 
		if sCbt1 ~= sCbt2 then
			bStop = false 
		end

		AI:SetAI("һ")
		AI:SetParameter("ʼ") 
		AI:SetParameter("","Զͼ")
		AI:Start()
		AI:SetParameter("в" , "" , 1 )
		while true do
			if AI:IsStop() == true  then
				break 
			end
			System:Sleep(1000)
		end

		local sCbt3 = DataPool:UserBag_CountItemByName("رͼ") 
		if sCbt3 ~= sCbt2 then
			bStop = false 
		end

		if bStop == true then
			break 
		end
	end

end

_SMain()