ShowMessage("һǧһԸ $Rev: 213 $")

--[[
[author]
descript="ÿԸ1"
]]--
script_name="һǧһԸ"


local g_szMission = "һǧһԸ"
local g_nIndex = -1
local g_idMission = 0
local g_idScript = 0
local g_nParam = {}

local g_Pos = { 
	[0] = {szNpcName="ʿ", fX = 282 , fY = 275 , nSceneID=1 } ,
	[1] = {szNpcName="" , fX = 157 , fY = 185 , nSceneID=4}
}



function _SMain(...)

	local bget_quest = false

	while true do

		g_nIndex, g_idMission, g_idScript = DataPool:GetPlayerMission(g_szMission)	-- жǷѽ
		
		-- жԸȪ
		local nCount = DataPool:UserBag_CountItemByName("ԸȪ")

		if g_nIndex ~= -1 then
		
			-- ѽ
	
			for i=0,2 do
				g_nParam[i] = DataPool:GetPlayerMission_Variable(g_nIndex, i)
				DbgPrintf("[%d]%d", i, g_nParam[i])
			end
		
			-- жǷ
			if DataPool:IsMissionCanCommit(g_idMission) then
				MoveToNPC( g_Pos[0].fX , g_Pos[0].fY , g_Pos[0].nSceneID , g_Pos[0].szNpcName ) 
				QuestFrameOptionClicked(g_szMission, CMP_PART_MATCH)	-- ѡѡ
				QuestFrameMissionContinue()	-- 
				QuestFrameMissionComplete()	-- 
				QuestFrameMissionClose()
				bget_quest = false
			else
				if nCount < 1 then
					ShowMessage("ԸȪ㣬ű")
					break
				end
				MoveTo(g_Pos[1].fX, g_Pos[1].fY, g_Pos[1].nSceneID, "", 1)
				Dismount()
				UseItem("ԸȪ")
			end
		else
			-- δ
			if GetQuestTimesInfo("һǧһԸ") == 0 and bget_quest == false then
				ShowMessage("ԸѾ!")
				break
			end

			bget_quest = true
			DbgPrintf("ԸȪ %d" , tonumber(nCount))
			-- ǰݽȥ
			MoveToNPC( g_Pos[0].fX , g_Pos[0].fY , g_Pos[0].nSceneID , g_Pos[0].szNpcName ) 
			QuestFrameOptionClicked(g_szMission, CMP_PART_MATCH)	-- ѡѡ
				
			local strType,_,_,_,szText = DataPool:GetNPCEventList_Item(0);

			if strType == "text" then
				if string.find(szText, "Ѿμӹ˻") then
					ShowMessage("ԸѾ")
					break	-- ˳ѭű
				end
			end

			if nCount < 5 then
				ShowMessage("ԸȪ㣬ű")
				break
			end
	
			QuestFrameAcceptClicked()
			QuestFrameMissionClose()
		end

		System:Sleep(1000)
	end
end

_SMain()