Bắm điêu văn bị dis cao nhân nào giúp với

[TS2GVN]

[Only registered and activated users can see links. ]

Hiện tại mình có dev 1 source 2.9 nhưng mình tích hợp điêu văn từ bản kia sang khi bắm vào mọi thứ ok nhưng đến khi bắm xác nhận là nó ngắt kết nói ai rành về điêu văn chỉ với

File code điêu văn

---NPC Tính nång Ðiêu  Vån
--Author: tinhkiem.us
--Date: 13/12/2012

x000551_g_ScriptId = 000551
AllowEquipPoint = {0,1,2,3,4,5,6,12,14,15} --Các loÕi item có th¬ ÐV. 14 ho uyen, 0 VK

ItemHopThanh ={
		 	{dt = 30120001,dv = 30110001},{dt = 30120002,dv = 30110011},{dt = 30120003,dv = 30110021},--Trang suc c߶ng,nµi,thân 
			{dt = 30120008,dv = 30110071},{dt = 30120009,dv = 30110081},--Hai tu th¬,trí
			{dt = 30120010,dv = 30110091},{dt = 30120011,dv = 30110101},-- Yeu dai th¬ trí
			{dt = 30120012,dv = 30110111},{dt = 30120013,dv = 30110121},--Vu Khi c߶ng nµi
			{dt = 30120022,dv = 30110211},{dt = 30120023,dv = 30110221},--Mao trí thân
			{dt = 30120028,dv = 30110271},{dt = 30120029,dv = 30110281},{dt = 30120030,dv = 30110291},--Y phøc th¬ trí thân
			{dt = 30120031,dv = 30110301},{dt = 30120032,dv = 30110311},{dt = 30120041,dv = 30110401},--Thü hµ trí thân th¬
			{dt = 30120033,dv = 30110321},{dt = 30120034,dv = 30110331},--Hµ uy¬n c߶ng nµi
			{dt = 30120039,dv = 30110381},{dt = 30120040,dv = 30110391},{dt = 30120042,dv = 30110411},--Hµ kiên trí thân th¬
			{dt = 30120014,dv = 30110131},{dt = 30120015,dv = 30110141},{dt = 30120016,dv = 30110151},{dt = 30120017,dv = 30110161},--vu khi thuoc tinh Bang hoa huyen doc
			{dt = 30120018,dv = 30110171},{dt = 30120019,dv = 30110181},{dt = 30120020,dv = 30110191},{dt = 30120021,dv = 30110201},--vu khi giam khang Bang hoa huyen doc
			{dt = 30120035,dv = 30110341},{dt = 30120036,dv = 30110351},{dt = 30120037,dv = 30110361},{dt = 30120038,dv = 30110371},--Ho Uyen thuoc tinh Bang Hoa Huyen Doc
			{dt = 30120024,dv = 30110231},{dt = 30120025,dv = 30110241},{dt = 30120026,dv = 30110251},{dt = 30120027,dv = 30110261},--Mao khang thuoc tinh
		}

DWEquipPoint = {}
DWEquipPoint[0] = {fir1 = 30110111,end1 =30110210}
DWEquipPoint[1] = {fir1 = 30110211,end1 =30110270}
DWEquipPoint[2] = {fir1 = 30110271,end1 =30110300}
DWEquipPoint[3] = {fir1 = 30110301,end1 =30110320,fir2=30110401,end2=30110410}
DWEquipPoint[4] = {fir1 = 30110071,end1 =30110090}
DWEquipPoint[5] = {fir1 = 30110091,end1 =30110110}
DWEquipPoint[6] = {fir1 = 30110001,end1 =30110030}
DWEquipPoint[12] = {fir1 = 30110001,end1 =30110030}
DWEquipPoint[14] = {fir1 = 30110321,end1 =30110380}
DWEquipPoint[15] = {fir1 = 30110381,end1 =30110400,fir2 = 30110411,end2=30110420}

DWMaterialType = {}
DWMaterialType[0] = {
			{[20]=30110001,     [0]=30110111,     [14]=30110321},
			{[20]=30110002,     [0]=30110112,     [14]=30110322},
			{[20]=30110003,     [0]=30110113,     [14]=30110323},
			{[20]=30110004,     [0]=30110114,     [14]=30110324},
			{[20]=30110005,     [0]=30110115,     [14]=30110325},
			{[20]=30110006,     [0]=30110116,     [14]=30110326},
			{[20]=30110007,     [0]=30110117,     [14]=30110327},
			{[20]=30110008,     [0]=30110118,     [14]=30110328},
			{[20]=30110009,     [0]=30110119,     [14]=30110329},
			{[20]=30110010,     [0]=30110120,     [14]=30110330}
			}
DWMaterialType[1] = {
			{[20]=30110011,     [0]=30110121,     [14]=30110331},
			{[20]=30110012,     [0]=30110122,     [14]=30110332},
			{[20]=30110013,     [0]=30110123,     [14]=30110333},
			{[20]=30110014,     [0]=30110124,     [14]=30110334},
			{[20]=30110015,     [0]=30110125,     [14]=30110335},
			{[20]=30110016,     [0]=30110126,     [14]=30110336},
			{[20]=30110017,     [0]=30110127,     [14]=30110337},
			{[20]=30110018,     [0]=30110128,     [14]=30110338},
			{[20]=30110019,     [0]=30110129,     [14]=30110339},
			{[20]=30110020,     [0]=30110130,     [14]=30110340}
			}
DWMaterialType[2] = {
			{[4]=30110071,     [5]=30110091,     [2]=30110271,     [3]=30110401,     [15]=30110411},
			{[4]=30110072,     [5]=30110092,     [2]=30110272,     [3]=30110402,     [15]=30110412},
			{[4]=30110073,     [5]=30110093,     [2]=30110273,     [3]=30110403,     [15]=30110413},
			{[4]=30110074,     [5]=30110094,     [2]=30110274,     [3]=30110404,     [15]=30110414},
			{[4]=30110075,     [5]=30110095,     [2]=30110275,     [3]=30110405,     [15]=30110415},
			{[4]=30110076,     [5]=30110096,     [2]=30110276,     [3]=30110406,     [15]=30110416},
			{[4]=30110077,     [5]=30110097,     [2]=30110277,     [3]=30110407,     [15]=30110417},
			{[4]=30110078,     [5]=30110098,     [2]=30110278,     [3]=30110408,     [15]=30110418},
			{[4]=30110079,     [5]=30110099,     [2]=30110279,     [3]=30110409,     [15]=30110419},
			{[4]=30110080,     [5]=30110100,     [2]=30110280,     [3]=30110410,     [15]=30110420}
			}
DWMaterialType[3] = {
			{[4]=30110081,     [5]=30110101,     [1]=30110211,     [2]=30110281,     [3]=30110301,     [15]=30110381},
			{[4]=30110082,     [5]=30110102,     [1]=30110212,     [2]=30110282,     [3]=30110302,     [15]=30110382},
			{[4]=30110083,     [5]=30110103,     [1]=30110213,     [2]=30110283,     [3]=30110303,     [15]=30110383},
			{[4]=30110084,     [5]=30110104,     [1]=30110214,     [2]=30110284,     [3]=30110304,     [15]=30110384},
			{[4]=30110085,     [5]=30110105,     [1]=30110215,     [2]=30110285,     [3]=30110305,     [15]=30110385},
			{[4]=30110086,     [5]=30110106,     [1]=30110216,     [2]=30110286,     [3]=30110306,     [15]=30110386},
			{[4]=30110087,     [5]=30110107,     [1]=30110217,     [2]=30110287,     [3]=30110307,     [15]=30110387},
			{[4]=30110088,     [5]=30110108,     [1]=30110218,     [2]=30110288,     [3]=30110308,     [15]=30110388},
			{[4]=30110089,     [5]=30110109,     [1]=30110219,     [2]=30110289,     [3]=30110309,     [15]=30110389},
			{[4]=30110090,     [5]=30110110,     [1]=30110220,     [2]=30110290,     [3]=30110310,     [15]=30110390}
			}
DWMaterialType[4] = {
			{[20]=30110021,     [1]=30110221,     [2]=30110291,     [3]=30110311,     [15]=30110391},
			{[20]=30110022,     [1]=30110222,     [2]=30110292,     [3]=30110312,     [15]=30110392},
			{[20]=30110023,     [1]=30110223,     [2]=30110293,     [3]=30110313,     [15]=30110393},
			{[20]=30110024,     [1]=30110224,     [2]=30110294,     [3]=30110314,     [15]=30110394},
			{[20]=30110025,     [1]=30110225,     [2]=30110295,     [3]=30110315,     [15]=30110395},
			{[20]=30110026,     [1]=30110226,     [2]=30110296,     [3]=30110316,     [15]=30110396},
			{[20]=30110027,     [1]=30110227,     [2]=30110297,     [3]=30110317,     [15]=30110397},
			{[20]=30110028,     [1]=30110228,     [2]=30110298,     [3]=30110318,     [15]=30110398},
			{[20]=30110029,     [1]=30110229,     [2]=30110299,     [3]=30110319,     [15]=30110399},
			{[20]=30110030,     [1]=30110230,     [2]=30110300,     [3]=30110320,     [15]=30110400}
			}
--5:Bang, 6:Hoa, 7Huyen,8 DOc
--Bang: Vu khi, Ho Uyen
DWMaterialType[5] = {
			{[0]=30110131,      [14]=30110341},
			{[0]=30110132,      [14]=30110342},
			{[0]=30110133,      [14]=30110343},
			{[0]=30110134,      [14]=30110344},
			{[0]=30110135,      [14]=30110345},
			{[0]=30110136,      [14]=30110346},
			{[0]=30110137,      [14]=30110347},
			{[0]=30110138,      [14]=30110348},
			{[0]=30110139,      [14]=30110349},
			{[0]=30110140,      [14]=30110350}
			}
--Hoa
DWMaterialType[6] = {
			{[0]=30110141,      [14]=30110351},
			{[0]=30110142,      [14]=30110352},
			{[0]=30110143,      [14]=30110353},
			{[0]=30110144,      [14]=30110354},
			{[0]=30110145,      [14]=30110355},
			{[0]=30110146,      [14]=30110356},
			{[0]=30110147,      [14]=30110357},
			{[0]=30110148,      [14]=30110358},
			{[0]=30110149,      [14]=30110359},
			{[0]=30110150,      [14]=30110360}
			}
--Huyen
DWMaterialType[7] = {
			{[0]=30110151,      [14]=30110361},
			{[0]=30110152,      [14]=30110362},
			{[0]=30110153,      [14]=30110363},
			{[0]=30110154,      [14]=30110364},
			{[0]=30110155,      [14]=30110365},
			{[0]=30110156,      [14]=30110366},
			{[0]=30110157,      [14]=30110367},
			{[0]=30110158,      [14]=30110368},
			{[0]=30110159,      [14]=30110369},
			{[0]=30110160,      [14]=30110370}
			}
--Doc
DWMaterialType[8] = {
			{[0]=30110161,      [14]=30110371},
			{[0]=30110162,      [14]=30110372},
			{[0]=30110163,      [14]=30110373},
			{[0]=30110164,      [14]=30110374},
			{[0]=30110165,      [14]=30110375},
			{[0]=30110166,      [14]=30110376},
			{[0]=30110167,      [14]=30110377},
			{[0]=30110168,      [14]=30110378},
			{[0]=30110169,      [14]=30110379},
			{[0]=30110170,      [14]=30110380}
			}
--9 GK Bang, 10 GK Hoa, 11 GK Huyen, 12 Gk Doc. 13 KB, 14 KH, 15 KHuyen, 16 KD
DWMaterialType[9] = {
			{[0]=30110171},
			{[0]=30110172},
			{[0]=30110173},
			{[0]=30110174},
			{[0]=30110175},
			{[0]=30110176},
			{[0]=30110177},
			{[0]=30110178},
			{[0]=30110179},
			{[0]=30110180}
			}
DWMaterialType[10] = {
			{[0]=30110181},
			{[0]=30110182},
			{[0]=30110183},
			{[0]=30110184},
			{[0]=30110185},
			{[0]=30110186},
			{[0]=30110187},
			{[0]=30110188},
			{[0]=30110189},
			{[0]=30110190}
			}
DWMaterialType[11] = {
			{[0]=30110191},
			{[0]=30110192},
			{[0]=30110193},
			{[0]=30110194},
			{[0]=30110195},
			{[0]=30110196},
			{[0]=30110197},
			{[0]=30110198},
			{[0]=30110199},
			{[0]=30110200}
			}
DWMaterialType[12] = {
			{[0]=30110201},
			{[0]=30110202},
			{[0]=30110203},
			{[0]=30110204},
			{[0]=30110205},
			{[0]=30110206},
			{[0]=30110207},
			{[0]=30110208},
			{[0]=30110209},
			{[0]=30110210}
			}
--Khang
DWMaterialType[13] = {
			{[1]=30110231},
			{[1]=30110232},
			{[1]=30110233},
			{[1]=30110234},
			{[1]=30110235},
			{[1]=30110236},
			{[1]=30110237},
			{[1]=30110238},
			{[1]=30110239},
			{[1]=30110240}
			}
DWMaterialType[14] = {
			{[1]=30110241},
			{[1]=30110242},
			{[1]=30110243},
			{[1]=30110244},
			{[1]=30110245},
			{[1]=30110246},
			{[1]=30110247},
			{[1]=30110248},
			{[1]=30110249},
			{[1]=30110250}
			}
DWMaterialType[15] = {
			{[1]=30110251},
			{[1]=30110252},
			{[1]=30110253},
			{[1]=30110254},
			{[1]=30110255},
			{[1]=30110256},
			{[1]=30110257},
			{[1]=30110258},
			{[1]=30110259},
			{[1]=30110260}
			}
DWMaterialType[16] = {
			{[1]=30110261},
			{[1]=30110262},
			{[1]=30110263},
			{[1]=30110264},
			{[1]=30110265},
			{[1]=30110266},
			{[1]=30110267},
			{[1]=30110268},
			{[1]=30110269},
			{[1]=30110270}
			}
NumberMaterial = {2,9,50,87,165,284,811,2088,3570}

function x000551_OnDefaultEvent( sceneId, selfId,targetId )


--LuaFnSetItemCreator( sceneId, selfId, 0, "*00010*" )
--local _, name = LuaFnGetItemCreator(sceneId, selfId, 0)
	BeginEvent(sceneId)
		AddText(sceneId,"#{ZBDW_091105_1}")
		AddNumText( sceneId, x000551_g_ScriptId, "#{ZBDW_XML_1}",6 ,1000  )
		AddNumText( sceneId, x000551_g_ScriptId, "#{ZBDW_XML_2}",6 ,2000  )
		AddNumText( sceneId, x000551_g_ScriptId, "#{ZBDW_XML_3}",6 ,3000  )
		AddNumText( sceneId, x000551_g_ScriptId, "#{ZBDW_XML_4}",6 ,4000  )
		AddNumText( sceneId, x000551_g_ScriptId, "#{ZBDW_XML_6}",11 ,5000  )
		--AddNumText( sceneId, x000551_g_ScriptId, "Reset diem",11 ,6000  )
	EndEvent(sceneId)
	DispatchEventList(sceneId,selfId,targetId)
end


function x000551_OnEventRequest( sceneId, selfId, targetId, eventId )
	local key = GetNumText()

	if key == 1000 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 1000156 )
	end
	if key == 2000 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 2000156 )
	end
	if key == 3000 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 3000156 )
	end
	if key == 4000 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 4000156 )
	end
	if key == 5000 then
		BeginEvent(sceneId)
			AddText(sceneId,"#{ZBDW_091105_21}")
		EndEvent(sceneId)
		DispatchEventList(sceneId,selfId,targetId)
	end
	if key == 6000 then
		SetMissionData(sceneId,selfId,Impact_K[5].MD,0)
		SetMissionData(sceneId,selfId,Impact_K[6].MD,0)
		SetMissionData(sceneId,selfId,Impact_K[7].MD,0)
		SetMissionData(sceneId,selfId,Impact_K[8].MD,0)
	end
end


function x000551_DoDiaowenAction(sceneId, selfId, nType, idBagPos1, idBagPos2 , idBagPos3)
	if idBagPos1 == -1 then
		return
	end
	if nType == 1 then -- Khac DV
		local EquipPoint = LuaFnGetBagEquipType( sceneId, selfId, idBagPos1 )
		local IDMaterial = LuaFnGetItemTableIndexByIndex( sceneId, selfId, idBagPos2 )
		local IDDW = LuaFnGetItemTableIndexByIndex( sceneId, selfId, idBagPos3 )
		local NotDW = 1
		for i,Epoint in AllowEquipPoint do
			if EquipPoint == Epoint then
				NotDW = 0
			end
		end
		if NotDW  == 1 then
			x000551_NotifyTip(sceneId,selfId, "Trang b¸ này không h² trþ kh¡c")
			return
		end
		if IDMaterial ~= 30503149 then
			x000551_NotifyTip(sceneId,selfId, "#{ZBDW_091105_6}")
			return
		end
		local notshike = 0
		--x000551_NotifyTip(sceneId,selfId, "12131---oooo"..EquipPoint)
		if (EquipPoint~= 3 and EquipPoint ~= 15) then
			if (IDDW >= DWEquipPoint[EquipPoint].fir1 and IDDW <= DWEquipPoint[EquipPoint].end1) then
				notshike = 1
			end
		else
			if (IDDW >= DWEquipPoint[EquipPoint].fir1 and IDDW <= DWEquipPoint[EquipPoint].end1) or (IDDW >= DWEquipPoint[EquipPoint].fir2 and IDDW <= DWEquipPoint[EquipPoint].end2) then
				notshike = 1
			end
		end
		if notshike == 0 then
			x000551_NotifyTip(sceneId,selfId, "#{ZBDW_091105_23}")
			return
		end
		if LuaFnIsItemAvailable( sceneId, selfId, idBagPos1 ) ~= 1 then
			x000551_NotifyTip(sceneId,selfId, "#{ResultText_158}")
			return
		end
		if LuaFnIsItemAvailable( sceneId, selfId, idBagPos2 ) ~= 1 then
			x000551_NotifyTip(sceneId,selfId, "#{ResultText_158}")
			return
		end
		if LuaFnIsItemAvailable( sceneId, selfId, idBagPos3 ) ~= 1 then
			x000551_NotifyTip(sceneId,selfId, "#{ResultText_158}")
			return
		end
		
		local ItemType = -1
		local ItemLevel = 0
		for i = 0, getn(DWMaterialType) do
			local Type = DWMaterialType[i]
			for j = 1,getn(Type) do
				local Level = Type[j]
				for k = 0,getn(Level) do
					if  IDDW == Level[k] then
						ItemType = i
						ItemLevel = j
						break
					end
				end
			end
		end
		if ItemType == -1 and ItemLevel == 0 then
			x000551_NotifyTip( sceneId, selfId, "Sai sót v§t ph¦m" )
			return
		end
		
		local _, name = LuaFnGetItemCreator(sceneId, selfId, idBagPos1)
		if x000551_CheckCreatorDW(name)~=0 then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ này ðã kh¡c ðiêu vån r°i." )
			return
		end
		
		local ret = LuaFnCostMoneyWithPriority( sceneId, selfId, 50000 )
		if ret < 0 then
			x000551_NotifyTip( sceneId, selfId, "Không ðü ngân lßþng." )
			return
		end
		--x000551_NotifyTip( sceneId, selfId, "ItemType : " ..ItemType)
		--x000551_NotifyTip( sceneId, selfId, "ItemLevel : " ..ItemLevel)
		--local author = x000551_Creator2Author(name)
		--x000551_NotifyTip( sceneId, selfId, "author : " ..author)
		
		
		LuaFnEraseItem( sceneId, selfId, idBagPos2 )
		LuaFnEraseItem( sceneId, selfId, idBagPos3 )
		--SetDW(sceneId,selfId,ItemType,ItemLevel,idBagPos1)
		local ketqua = x000551_SetDW(sceneId,selfId,ItemType,ItemLevel,idBagPos1)
		local ret = LuaFnLockCheck( sceneId, selfId, idBagPos1, 0 )
		if ret == 0 then LuaFnEquipLock( sceneId, selfId, idBagPos1 ) end
		--x000551_NotifyTip( sceneId, selfId, "ketqua : " ..ketqua)
		LuaFnSendSpecificImpactToUnit( sceneId, selfId, selfId, selfId, 18, 0 )
		x000551_NotifyTip( sceneId, selfId, "Ðiêu Vån trang b¸ thành công." )
		BeginUICommand( sceneId )
			--UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 8000156 )
		return
	end
	if nType == 2 then -- Cuong Hoa dv
		local _, name = LuaFnGetItemCreator(sceneId, selfId, idBagPos1)
		local NumMaterial = LuaFnGetAvailableItemCount( sceneId, selfId, 20310166 )
		
		if NumMaterial < idBagPos2 then
			x000551_NotifyTip( sceneId, selfId, "S¯ Kim T¢m Ty nh§p vào l¾n h½n s¯ lßþng mang trên ng߶i" )
			return
		end
		if name == nil or name =="" then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ chßa kh¡c Ðiêu Vån, không th¬ c߶ng hóa" )
			return
		end
		--x000551_NotifyTip( sceneId, selfId, "name : " ..name)
		local check = x000551_CheckCreatorDW(name)
		--if check == nil then x000551_NotifyTip( sceneId, selfId, "check nil ") end
		local n,Dtype,Dvalue = x000551_Creator2Data(name)
		
		
		--x000551_NotifyTip( sceneId, selfId, "Dtype : " ..Dtype)
		--x000551_NotifyTip( sceneId, selfId, "Dvalue : " ..Dvalue)
		
		if Dvalue == 0 then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ chßa kh¡c Ðiêu Vån, không th¬ c߶ng hóa" )
			return
		end
		
		local Dlevel = 0
		Dtype = tonumber(Dtype)
		Dlevel = CallScriptFunction( 551, "GetDWLevel",sceneId,Dvalue,Dtype  )
		if Dlevel == 0 then 
			x000551_NotifyTip( sceneId, selfId, "V§t ph¦m sai sót :")
			return
		end
		if Dlevel == 7 then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ ðã ðÕt c¤p Ðiêu Vån cao nh¤t" )
			return
		end
		
		--x000551_NotifyTip( sceneId, selfId, "Dtype : " ..Dtype)
		--x000551_NotifyTip( sceneId, selfId, "Dlevel : " ..Dlevel+1)
		--local npoint = x000551_strformat(x000551_GetDWPoint(Dlevel+1,Dtype))
		--x000551_NotifyTip( sceneId, selfId, "npoint : " ..npoint)
		if (idBagPos2 < NumberMaterial[Dlevel]) then
			x000551_NotifyTip( sceneId, selfId, "S¯ lßþng Kim T¢m Ty nh§p vào không ðü ð¬ thång c¤p" )
			return
		end
		if (NumMaterial < NumberMaterial[Dlevel]) then
			x000551_NotifyTip( sceneId, selfId, "Không ðü "..NumberMaterial[Dlevel].." Kim T¢m Ty ho£c có v§t ph¦m b¸ khóa" )
			return
		end

		LuaFnDelAvailableItem(sceneId,selfId, 20310166, NumberMaterial[Dlevel])
		x000551_SetDW(sceneId,selfId,Dtype,Dlevel+1,idBagPos1)
		LuaFnSendSpecificImpactToUnit( sceneId, selfId, selfId, selfId, 18, 0 )
		x000551_NotifyTip( sceneId, selfId, "C߶ng Hóa Ðiêu Vån thành công." )
		return
	end
	if nType == 3 then --thao dv
		local EquipPoint = LuaFnGetBagEquipType( sceneId, selfId, idBagPos1 )
		local _, name = LuaFnGetItemCreator(sceneId, selfId, idBagPos1)
		local IDMaterial = LuaFnGetItemTableIndexByIndex( sceneId, selfId, idBagPos2 )
		local Dlevel = 0
		
		--x000551_NotifyTip( sceneId, selfId, "name : " ..name)
		--local author = x000551_Creator2Author(name)
		--x000551_NotifyTip( sceneId, selfId, "author : " ..author)
		
		--hd add 21/11 --check unlock pass truoc khi thuc hien - anti hack
		if LuaFnIsPasswordSetup( sceneId, selfId, 0 ) == 1 then
			--LuaFnSendOpResult( sceneId, selfId, OR_NEED_SETMINORPASSWORD )
			if LuaFnIsPasswordUnlocked( sceneId, selfId, 0 ) ~= 1 then
				LuaFnSendOpResult( sceneId, selfId, OR_NEED_UNLOCKMINORPASSWORD )
				return
			end
			
		end
		--end hd add 21/11

		if name == nil or name =="" then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ chßa kh¡c Ðiêu Vån, không th¬ tháo" )
			return
		end
		local n,Dtype,Dvalue = x000551_Creator2Data(name)
		--x000551_NotifyTip( sceneId, selfId, "Dvalue : " ..Dvalue)
		
		if Dvalue == 0 then
			x000551_NotifyTip( sceneId, selfId, "Trang b¸ chßa kh¡c Ðiêu Vån, không th¬ tháo" )
			return
		end
		Dlevel = CallScriptFunction( 551, "GetDWLevel",sceneId,Dvalue,Dtype  )
		--x000551_NotifyTip(sceneId,selfId, "131234aaa"..Dlevel)
		if LuaFnIsItemAvailable( sceneId, selfId, idBagPos2 ) ~= 1 then
			x000551_NotifyTip(sceneId,selfId, "#{ZBDW_091105_3}")
			return
		end
		if IDMaterial ~= 30503150 then
			x000551_NotifyTip(sceneId,selfId, "#{ZBDW_091105_20}")
			return
		end
		
		local DWEquipType = DWMaterialType[Dtype]
		local DWEquipLevel = DWEquipType[Dlevel]
		local IDDW = 0
		if EquipPoint == 6 or EquipPoint == 12 then
			EquipPoint =20
		end
		for i=0,getn(DWEquipLevel) do
			if i == EquipPoint then
				IDDW = DWEquipLevel[i]
				break
			end
		end
		if IDDW == 0 then
			x000551_NotifyTip( sceneId, selfId, "Không tìm th¤y Ðiêu Vån tß½ng Ñng" )
			return
		end
		local ret = LuaFnCostMoneyWithPriority( sceneId, selfId, 50000 )
		if ret < 0 then
			x000551_NotifyTip( sceneId, selfId, "Không ðü ngân lßþng." )
			return
		end
		--x000551_NotifyTip( sceneId, selfId, "IDDW:  "..IDDW )
		local ketqua =x000551_SetDW(sceneId,selfId,Dtype,0,idBagPos1)
		--x000551_NotifyTip( sceneId, selfId, "ketqua:  "..ketqua )
		LuaFnEraseItem( sceneId, selfId, idBagPos2 )
		--local ret = LuaFnUnLockCheck( sceneId, selfId, idBagPos1, 0 )
		--if ret == 0 then LuaFnEquipUnLock( sceneId, selfId, idBagPos1 ) end
		local bagpos = TryRecieveItem( sceneId, selfId, IDDW, 1 )
		local	bindidx	=	LuaFnItemBind( sceneId, selfId, bagpos ) --co dinh vat pham
		if bindidx ~= 1 then
			x000551_NotifyTip( sceneId, selfId, targetId, "C¯ ð¸nh th¤t bÕi !" )
		end		
		LuaFnSendSpecificImpactToUnit( sceneId, selfId, selfId, selfId, 18, 0 )
		x000551_NotifyTip( sceneId, selfId, "Tháo Ðiêu Vån thành công" )
		BeginUICommand( sceneId )
			--UICommand_AddInt( sceneId, targetId )
		EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 8000156 )
		return
	end
	if nType == 4 then  -- Hþp thành dv
		local IDVH = LuaFnGetItemTableIndexByIndex( sceneId, selfId, idBagPos1 )
		local ItemClass = 0
		for i=1,getn(ItemHopThanh) do
			if IDVH == ItemHopThanh[i].dt then
				ItemClass = i
				break
			end
		end
		if ItemClass == 0 then
			x000551_NotifyTip(sceneId,selfId, "#{ZBDW_091105_2}")
			return
		end
		if ( LuaFnGetAvailableItemCount( sceneId, selfId, 20310169 )< 20) then
			x000551_NotifyTip( sceneId, selfId, "Không ðü 20 Ðan Thanh ho£c có v§t ph¦m b¸ khóa")
			return
		end
		if LuaFnIsItemAvailable( sceneId, selfId, idBagPos1 ) ~= 1 then
			x000551_NotifyTip(sceneId,selfId, "#{WH_090729_07}")
			return
		end
		local ret = LuaFnCostMoneyWithPriority( sceneId, selfId, 50000 )
		if ret < 0 then
			x000551_NotifyTip( sceneId, selfId, "Không ðü ngân lßþng." )
			return
		end
		LuaFnEraseItem( sceneId, selfId, idBagPos1 )
		LuaFnDelAvailableItem(sceneId,selfId, 20310169, 20)
		TryRecieveItem( sceneId, selfId, ItemHopThanh[ItemClass].dv, 1 )
		LuaFnSendSpecificImpactToUnit( sceneId, selfId, selfId, selfId, 18, 0 )
		x000551_NotifyTip( sceneId, selfId, "Hþp thành Ðiêu Vån thành công." )
		return
	end
end

function x000551_NotifyTip( sceneId, selfId, Msg )

	BeginEvent( sceneId )
		AddText( sceneId, Msg )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )

end

--ham lay gia tri thuoc tinh cua creator
function x000551_Creator2Data(str)
	str = tostring(str)
	if type(str) == "string" then
		local check = x000551_CheckCreatorDW(str)
		local len = strlen(check)
		--return 0,len,0;
		if check ~= 0 and len == 5 then
			--creator la item dw
			local temp, ntype, npoint
			temp =  tonumber(strsub(check,1,1))
			ntype = tonumber(strsub(check,1,2))
			npoint = tonumber(strsub(check,3,len))
			return temp, ntype, npoint
		end
		--khong la creator dw
	end
	return 0,0,0;
end


function x000551_SetDW(sceneId,selfId,DWType,DWLevel,iPos)
	--tra ve gia tri 
	--0 : that bai
	--1 : go khac ; 
	--2 : khac trang bi ko co creator
	--3 : khac trang bi co creator, chua co dw
	--4 : khac trang bi co creator, co dw
	--go khac dw
	if DWLevel == 0 then
		local _, name = LuaFnGetItemCreator(sceneId, selfId, iPos)
		local check = x000551_CheckCreatorDW(name)
		if check ~= 0 then
			local newname = x000551_Creator2Author(name)
			LuaFnSetItemCreator( sceneId, selfId, iPos,  newname)
			return 1
		end
	end
	-- khac dw
	if DWLevel > 0 then
		local _, name = LuaFnGetItemCreator(sceneId, selfId, iPos)
		local dwstring =""
		if name == nil or name =="" then --fix stack pop khi item ko dc che tao
			local npoint = x000551_strformat(x000551_GetDWPoint(DWLevel,DWType))
			if DWType<10 then
				dwstring = "*0"..DWType..npoint.."*"
			else
				dwstring = "*"..DWType..npoint.."*"	
			end
				LuaFnSetItemCreator( sceneId, selfId, iPos,  dwstring)
			return 2
		
		elseif name ~= nil then --item dc che tao
			local check = x000551_CheckCreatorDW(name)
			
			if check == 0 then --chua co dw
				local npoint = x000551_strformat(x000551_GetDWPoint(DWLevel,DWType))
				local dwstring = ""
			if DWType<10 then
				dwstring = "*0"..DWType..npoint.."*"..name
			else
				dwstring = "*"..DWType..npoint.."*"..name
			end
			--	local dwstring = "*0"..DWType..npoint.."*"..name
				LuaFnSetItemCreator( sceneId, selfId, iPos,  dwstring)
				return 3
			elseif check ~= 0 then --da dw
				local npoint = x000551_strformat(x000551_GetDWPoint(DWLevel,DWType))
				local author = x000551_Creator2Author(name)
				local dwstring = ""
			if DWType<10 then
				dwstring = "*0"..DWType..npoint.."*"..author
			else
				dwstring = "*"..DWType..npoint.."*"..author
			end
				LuaFnSetItemCreator( sceneId, selfId, iPos,  dwstring)
				return 4
			end
		end	
	end
	return 0
end
--ham kiem tra Creator co phai la creator DW hay khong
function x000551_CheckCreatorDW(str)
	if type(str) == "string" then
		local creatorformat = "%*%d%d%d%d%d%*";
		local i,j = strfind  ( str, creatorformat ); --tìm chu²i dw trong creator
		
		if i~= nil then --tìm th¤y
			local dw = strsub(str,i+1,j-1) --ket qua gia tri xxxxx
			--PushDebugMessage("dw : "..dw) 
			local len = strlen(dw);
			if len ==5 then --ki¬m tra ðµ dài chu²i =5 thì hþp l®
				
				local nlevel, ntype, npoint;
				nlevel =  tonumber(strsub(dw,1,1));
				ntype = tonumber(strsub(dw,1,2));
				npoint = tonumber(strsub(dw,3,len));
				local ok=1 --biªn ki¬m tra hþp l®
				--if tonumber(nlevel)<1 or tonumber(nlevel)<4 then --check nlevel --chßa dùng
					--ok=0
				--end
				if ntype<0 or ntype>16 then --check loÕi dw [0-4]
					ok=0
				end
				if CallScriptFunction( 551, "GetDWLevel",sceneId,npoint,ntype  ) ==0 then --check c¤p dw
					ok=0
				end
				if ok ==1 then
					return tostring(dw)
				end
			end
		end
	end
	--khong la creator dw
	return 0;
end


--tra ve gia tri nguoi tao vu khi tu creator dw
function x000551_Creator2Author(str)
	if type(str) == "string" then
		local check = x000551_CheckCreatorDW(str);
		--local len = strlen(check);
		if check ~= 0 then
			--creator la item dw
			local szAuthor = strsub(str,8);
			return szAuthor;
		end
	end
	return str;
end
--add khuon dang cho point 1 -> 001
function x000551_strformat(npoint)
	npoint = tostring(npoint);
	local len = strlen(npoint)
	if len ==1 then
		npoint = "00"..npoint;
	elseif len ==2 then
		npoint = "0"..npoint;
	end
	return npoint;
end

function x000551_GetDWPoint(nlevel,dtype)
	local DWPoint_K ={4,8,18,36,42,50,60,70,80,90}
	local DWPoint_KP ={10,20,30,60,100,120,140,170,200,240}
	local DWPoint = {10,20,40,70,110,140,170,210,240,280}
	local maxDWlevel = 10;
	
	nlevel = tonumber(nlevel);
	if dtype >8 then
		for i=1,maxDWlevel do
			if nlevel==i then
				return DWPoint_K[i];
			end
		end
	elseif dtype >4 then
		for i=1,maxDWlevel do
			if nlevel==i then
				return DWPoint_KP[i];
			end
		end
	else
		for i=1,maxDWlevel do
			if nlevel==i then
				return DWPoint[i];
			end
		end
	end
	return 0;
end

function x000551_GetDWLevel(sceneId,npoint,ntype)
	local DWLevel = {10,20,40,70,110,140,170,210,240,280}
	local DWLevel_K ={4,8,18,36,42,50,60,70,80,90}
	local DWLevel_KP ={10,20,30,60,100,120,140,170,200,240}
	local maxDWlevel = 10;
	npoint = tonumber(npoint);
	ntype = tonumber(ntype);
	if ntype >8 then
		for i=1,maxDWlevel do
			if npoint==DWLevel_K[i] then
				return i;
			end
		end
	elseif ntype >4 then
		for i=1,maxDWlevel do
			if npoint==DWLevel_KP[i] then
				return i;
			end
		end
	else
		for i=1,maxDWlevel do
			if npoint==DWLevel[i] then
				return i;
			end
		end
	end
	return 0;
end

--Script do all action (Ðiêu vån + Ng÷c th¶i trang)

--***************************************************************************************************************************--
--*  C½ chª g¡n ðiêu vån (Sói):                                                                                             *--
--*    M²i l¥n có sñ thay ð±i ngoÕi cänh hay các thao tác tháo l¡p trang b¸ trên ng߶i, hàm RefreshEquip s¨ ðßþc g÷i ðªn.   *--
--*    Ta chï c¥n b¡t sñ ki®n này và truy«n v« Server báo cáo có sñ làm m¾i trang b¸ trên ng߶i.                            *--
--*    Khi ðó Server s¨ check Creator cüa item theo Pos trên ng߶i ðánh s¯ t× 100 ðªn 118, và add impact                    *--
--*  Thao tác kªt thúc.                                                                                                     *--
--***************************************************************************************************************************--

--******************--
x000550_g_scriptId = 000550
--******************--
x000550_g_DW_Impact={}							--Ðiêu vån (Lv 1, Các Lv tiªp theo Impact = Impact Lv trß¾c + 1)
	x000550_g_DW_Impact[0]	=	11920			--C߶ng lñc (C½ chª m¾i bö)
	x000550_g_DW_Impact[1]	=	11940			--Nµi lñc (C½ chª m¾i bö)
	x000550_g_DW_Impact[2]	=	11930			--Th¬ lñc (C½ chª m¾i bö)
	x000550_g_DW_Impact[3]	=	11950			--Trí lñc (C½ chª m¾i bö)
	x000550_g_DW_Impact[4]	=	11960			--Thân pháp (C½ chª m¾i bö)
	x000550_g_DW_Impact[5]	=	11800			--Bång công
	x000550_g_DW_Impact[6]	=	11810			--Höa công
	x000550_g_DW_Impact[7]	=	11820			--Huy«n công
	x000550_g_DW_Impact[8]	=	11830			--еc công
	x000550_g_DW_Impact[9]	=	11880			--Giäm kháng Bång
	x000550_g_DW_Impact[10]	=	11890			--Giäm kháng Höa
	x000550_g_DW_Impact[11]	=	11900			--Giäm kháng Huy«n
	x000550_g_DW_Impact[12]	=	11910			--Giäm kháng еc
	x000550_g_DW_Impact[13]	=	11840			--Kháng Bång
	x000550_g_DW_Impact[14]	=	11850			--Kháng Höa
	x000550_g_DW_Impact[15]	=	11860			--Kháng Huy«n
	x000550_g_DW_Impact[16]	=	11870			--Kháng еc
--******************--
x000550_g_MaxDWLevel=10							--Level t¯i ða cüa Ðiêu vån
--******************--
x000550_Gem_Impact={}							--Ng÷c th¶i trang		
	x000550_Gem_Impact[50431001]	= 	10529	--Bång Lam Lßu Vân
	x000550_Gem_Impact[50431002]	= 	10530	--TØ Vi Tinh Quang
	x000550_Gem_Impact[50431003]	= 	10531	--Thüy Ng÷c Tinh Tr¥n
	x000550_Gem_Impact[50431004]	= 	10532	--Tranh Änh Nhß Mµng
	x000550_Gem_Impact[50431005]	= 	10533	--Hoa LÕc H°ng Tr¥n
--******************--
x000550_g_LongWen=118							--V¸ trí Long Vån
x000550_g_WuHun=110								--V¸ trí Võ H°n
x000550_g_Dress=116								--V¸ trí Th¶i Trang
--******************--
DWLevel = {10,20,40,70,110,140,170,210,240,280}
DWLevel_K ={4,8,18,36,42,50,60,70,80,90}
DWLevel_KP ={10,20,30,60,100,120,140,170,200,240}
--******************--
x000550_g_ZhongLou	=	{	10422016,	10423024,	10423064,	10420091,	10422155,	10420088,	10423025	}
x000550_g_Impact	=	{	5952,		5953,		5970,		5973,		5969,		5975,		5965		}




--hd add 10/06/2015
function x000550_KiemTraPhienBan (sceneId,selfId)
	
	--******************--
	if GetMissionFlag(sceneId,selfId,MF_CHECKVERSION)==1 or GetHp(sceneId,selfId)<1 then--Sai phiên bän ho£c nhân v§t die
		return 0 -- sai version
	else
		return 1 --dung verison
	end
	--******************--
	
end

function x000550_ActionDW5 (sceneId,selfId)

	--******************--
	return
	--******************--
	
end 
--end hd add 10/06/2015


--******************--

--*********************************--
--*         Do All Action         *--
--*********************************--
function x000550_DoAllAction(sceneId,selfId,Request,Param_1,Param_2,Param_3,Param_4,Param_5)
	
	--******************--
	if GetMissionFlag(sceneId,selfId,MF_CHECKVERSION)==1 or GetHp(sceneId,selfId)<1 then--Sai phiên bän ho£c nhân v§t die
		return
	end
	--******************--
	if Request==0 then																--Có sñ làm m¾i Item trên ng߶i
		SetMissionData(sceneId,selfId,MD_CURRENT_HITPOINT,GetHp(sceneId,selfId))
		SetMissionData(sceneId,selfId,MD_CURRENT_MANAPOINT,GetMp(sceneId,selfId))
		LuaFnWashPoints(sceneId,selfId)												--T¦y t¤t cä ði¬m ti«m nång hi®n có
		local Current=GetPlayerRemainPoints(sceneId,selfId)							--L¤y giá tr¸ ti«m nång cñc ðÕi m¾i
		local x=GetMissionData(sceneId,selfId,MD_FIXBUG)							--L¤y giá tr¸ ti«m nång cñc ðÕi cû
		SetMissionData(sceneId,selfId,MD_FIXBUG,Current)							--Set giá tr¸ ti«m nång cñc ðÕi cû
		SetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT,GetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT)+Current-x)	--So sánh giá tr¸ ti«m nång cñc ðÕi m¾i và cû, nªu có chênh l®ch (Khi ¤n Levelup) thì cµng thêm ðµ l®ch vào giá tr¸ ti«m nång hi®n tÕi.
		SetPlayerRemainPoints(sceneId,selfId,Current+5)								--Set 5 ði¬m ti«m nång giä
	end
	--******************--
	if Request==1 then
		x000550_CancelAllImpact(sceneId,selfId)
		x000550_AddNewImpact(sceneId,selfId)
		
		local XiuLian_LiLiang, XiuLian_LingQi, XiuLian_TiLi, XiuLian_DingLi, XiuLian_ShenFa=x000550_Refresh_Xiulian(sceneId,selfId)	--Tính ði¬m tu luy®n
		local Baby_LiLiang, Baby_LingQi, Baby_TiLi, Baby_DingLi, Baby_ShenFa=x000550_Refresh_Baby(sceneId,selfId)					--Tính ði¬m Baby
		local WH_LiLiang, WH_LingQi, WH_TiLi, WH_DingLi, WH_ShenFa=x000550_Refresh_WuHun(sceneId,selfId)							--Tính ði¬m WH
		LuaFnWashSomePoints(sceneId,selfId,0,-GetMissionData(sceneId,selfId,MD_CURRENT_LILIANG)-XiuLian_LiLiang-Baby_LiLiang-WH_LiLiang)
		LuaFnWashSomePoints(sceneId,selfId,1,-GetMissionData(sceneId,selfId,MD_CURRENT_LINGQI)-XiuLian_LingQi-Baby_LingQi-WH_LingQi)
		LuaFnWashSomePoints(sceneId,selfId,2,-GetMissionData(sceneId,selfId,MD_CURRENT_TILI)-XiuLian_TiLi-Baby_TiLi-WH_TiLi)
		LuaFnWashSomePoints(sceneId,selfId,3,-GetMissionData(sceneId,selfId,MD_CURRENT_DINGLI)-XiuLian_DingLi-Baby_DingLi-WH_DingLi)
		LuaFnWashSomePoints(sceneId,selfId,4,-GetMissionData(sceneId,selfId,MD_CURRENT_SHENFA)-XiuLian_ShenFa-Baby_ShenFa-WH_ShenFa)
		SetPlayerRemainPoints(sceneId,selfId,GetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT))
		
		local nHP=GetMissionData(sceneId,selfId,MD_CURRENT_HITPOINT)
		local nMP=GetMissionData(sceneId,selfId,MD_CURRENT_MANAPOINT)
		SetHp(sceneId,selfId,nHP)
		SetMp(sceneId,selfId,nMP)
		
		--Anti Hack bug Remain points
		x000550_Anti_Hack(sceneId,selfId)
		--End anti hack
		
		x000550_Refresh_ZhongLou(sceneId,selfId)
	end
	--******************--
	if Request==2 then																	--Cµng ði¬m t× nhân v§t
		SetMissionData(sceneId,selfId,MD_CURRENT_LILIANG,GetMissionData(sceneId,selfId,MD_CURRENT_LILIANG)+Param_1)
		SetMissionData(sceneId,selfId,MD_CURRENT_LINGQI,GetMissionData(sceneId,selfId,MD_CURRENT_LINGQI)+Param_2)
		SetMissionData(sceneId,selfId,MD_CURRENT_TILI,GetMissionData(sceneId,selfId,MD_CURRENT_TILI)+Param_3)
		SetMissionData(sceneId,selfId,MD_CURRENT_DINGLI,GetMissionData(sceneId,selfId,MD_CURRENT_DINGLI)+Param_4)
		SetMissionData(sceneId,selfId,MD_CURRENT_SHENFA,GetMissionData(sceneId,selfId,MD_CURRENT_SHENFA)+Param_5)
		LuaFnWashSomePoints(sceneId,selfId,0,-Param_1)
		LuaFnWashSomePoints(sceneId,selfId,1,-Param_2)
		LuaFnWashSomePoints(sceneId,selfId,2,-Param_3)
		LuaFnWashSomePoints(sceneId,selfId,3,-Param_4)
		LuaFnWashSomePoints(sceneId,selfId,4,-Param_5)
		
		local Current=GetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT)												--L¤y MD chï giá tr¸ ti«m nång hi®n tÕi
		SetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT,Current-Param_1-Param_2-Param_3-Param_4-Param_5)			--Sau khi cµng ði¬m thì set lÕi giá tr¸ ti«m nång hi®n tÕi là hi®u cüa các ði¬m cµng vào

		--Anti Hack bug Remain points
		x000550_Anti_Hack(sceneId,selfId)
		--End anti hack
		
		--Truy«n lên Client thao tác cµng ði¬m hoàn thành
		BeginUICommand(sceneId)
		EndUICommand(sceneId)
		DispatchUICommand(sceneId,selfId,11223249)
		--End
	end
	--******************--
	
end
--*********************************--
--*           Anti Hack           *--
--*********************************--
function x000550_Anti_Hack(sceneId,selfId)

	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--Anti Hack bug Remain points
	local LiLiang=GetMissionData(sceneId,selfId,MD_CURRENT_LILIANG)														--L¤y giá tr¸ C߶ng lñc hi®n tÕi
	local LingQi=GetMissionData(sceneId,selfId,MD_CURRENT_LINGQI)														--L¤y giá tr¸ Nµi lñc hi®n tÕi
	local TiLi=GetMissionData(sceneId,selfId,MD_CURRENT_TILI)															--L¤y giá tr¸ Th¬ lñc hi®n tÕi
	local DingLi=GetMissionData(sceneId,selfId,MD_CURRENT_DINGLI)														--L¤y giá tr¸ Trí lñc hi®n tÕi
	local ShenFa=GetMissionData(sceneId,selfId,MD_CURRENT_SHENFA)														--L¤y giá tr¸ Thân pháp hi®n tÕi
	local Remain=GetMissionData(sceneId,selfId,MD_FIXBUG)																--L¤y giá tr¸ Ti«m nång cñc ðÕi
	local Current_Ramain=GetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT)											--L¤y giá tr¸ ti«m nång hi®n tÕi
	if Remain<0 or Current_Ramain<0 or LiLiang<0 or LingQi<0 or TiLi<0 or DingLi<0 or ShenFa<0 then
		x000550_ResetAllData(sceneId,selfId)
		BeginEvent(sceneId)
			AddText(sceneId,"Có sai sót trong thao tác, t¤t cä ði¬m ti«m nång ðã b¸ Reset lÕi!")
		EndEvent(sceneId)
		DispatchMissionTips(sceneId,selfId)
	end
	if LiLiang>Remain or LingQi>Remain or TiLi>Remain or DingLi>Remain or ShenFa>Remain or LiLiang+LingQi+TiLi+DingLi+ShenFa~=Remain-Current_Ramain then	--Ki¬m tra nªu có sai sót (T±ng ði¬m khác ði¬m ti«m nång ðã cµng vào)
		x000550_ResetAllData(sceneId,selfId)
		BeginEvent(sceneId)
			AddText(sceneId,"Có sai sót trong thao tác, t¤t cä ði¬m ti«m nång ðã b¸ Reset lÕi!")
		EndEvent(sceneId)
		DispatchMissionTips(sceneId,selfId)
	end
	--End anti hack
	--******************--
	
end
--*********************************--
--*         Refresh Baby          *--
--*********************************--
function x000550_Refresh_Baby(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return 0,0,0,0,0
	end
	--******************--
	for i=12500,12539 do
		while LuaFnHaveImpactOfSpecificDataIndex(sceneId,selfId,i)>0 do
			LuaFnCancelSpecificImpact(sceneId,selfId,i)
		end
	end
	--******************--
	local Skill_1=GetMissionData(sceneId,selfId,MD_WIZI_SKILL_1)
	local Skill_2=GetMissionData(sceneId,selfId,MD_WIZI_SKILL_1)
	local Skill_3=GetMissionData(sceneId,selfId,MD_WIZI_SKILL_1)
	local Skill_4=GetMissionData(sceneId,selfId,MD_WIZI_SKILL_1)
	--******************--
	if Skill_1>0 then
		LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,12500+Skill_1-1,0)
	end
	--******************--
	if Skill_2>0 then
		LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,12510+Skill_2-1,0)
	end
	--******************--
	if Skill_3>0 then
		LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,12520+Skill_3-1,0)
	end
	--******************--
	if Skill_4>0 then
		LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,12530+Skill_4-1,0)
	end
	--******************--
	local Liliang=GetMissionData(sceneId,selfId,MD_WIZI_LILIANG)+GetMissionData(sceneId,selfId,MD_WIZI_EQUIP_TOTAL)
	local Lingqi=GetMissionData(sceneId,selfId,MD_WIZI_LINGQI)+GetMissionData(sceneId,selfId,MD_WIZI_EQUIP_TOTAL)
	local Tili=GetMissionData(sceneId,selfId,MD_WIZI_TILI)+GetMissionData(sceneId,selfId,MD_WIZI_EQUIP_TOTAL)
	local Dingli=GetMissionData(sceneId,selfId,MD_WIZI_DINGLI)+GetMissionData(sceneId,selfId,MD_WIZI_EQUIP_TOTAL)
	local Shenfa=GetMissionData(sceneId,selfId,MD_WIZI_SHENFA)+GetMissionData(sceneId,selfId,MD_WIZI_EQUIP_TOTAL)
	--******************--
	return Liliang, Lingqi, Tili, Dingli, Shenfa
	--******************--
	
end
--*********************************--
--*        Refresh Wu Hun         *--
--*********************************--
function x000550_Refresh_WuHun(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return 0,0,0,0,0
	end
	--******************--
	local _,str=LuaFnGetItemCreator(sceneId,selfId,x000550_g_WuHun)
	--******************--
	if str==nil then
		return 0,0,0,0,0
	end
	--******************--
	local Liliang=tonumber(strsub(str,16,18))
	local Liliang_Base=tonumber(strsub(str,19,21))
	local Lingqi=tonumber(strsub(str,22,24))
	local Lingqi_Base=tonumber(strsub(str,25,27))
	local Tili=tonumber(strsub(str,28,30))
	local Tili_Base=tonumber(strsub(str,31,33))
	local Dingli=tonumber(strsub(str,34,36))
	local Dingli_Base=tonumber(strsub(str,37,39))
	local Shenfa=tonumber(strsub(str,40,42))
	local Shenfa_Base=tonumber(strsub(str,43,45))
	--******************--
	return Liliang+Liliang_Base, Lingqi+Lingqi_Base, Tili+Tili_Base, Dingli+Dingli_Base, Shenfa+Shenfa_Base
	--******************--
	
end
--*********************************--
--*       Refresh Zhong Lou       *--
--*********************************--
function x000550_Refresh_ZhongLou(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	for i=1,getn(x000550_g_Impact) do
		while LuaFnHaveImpactOfSpecificDataIndex(sceneId,selfId,x000550_g_Impact[i])>0 do
			LuaFnCancelSpecificImpact(sceneId,selfId,x000550_g_Impact[i])
		end
	end
	--******************--
	for i=100,118 do
		local Item_Index=LuaFnGetItemTableIndexByIndex(sceneId,selfId,i)
		for i=1,getn(x000550_g_ZhongLou) do
			if x000550_g_ZhongLou[i]==Item_Index then
				LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,x000550_g_Impact[i],0)
			end
		end
	end
	--******************--
	
end
--*********************************--
--*        Refresh Xiulian        *--
--*********************************--
function x000550_Refresh_Xiulian(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return 0,0,0,0,0
	end
	--******************--
	local Xiu_Lian_Level={0,0,0,0,0}
	Xiu_Lian_Level[1]=mod(GetMissionData(sceneId,selfId,MD_XL1_SKILL1),1000)
	Xiu_Lian_Level[2]=mod(GetMissionData(sceneId,selfId,MD_XL1_SKILL2),1000)
	Xiu_Lian_Level[3]=mod(GetMissionData(sceneId,selfId,MD_XL1_SKILL3),1000)
	Xiu_Lian_Level[4]=mod(GetMissionData(sceneId,selfId,MD_XL1_SKILL4),1000)
	Xiu_Lian_Level[5]=mod(GetMissionData(sceneId,selfId,MD_XL1_SKILL5),1000)
	local Xiu_Lian_Point={0,0,0,0,0}
	for i=1,5 do
		if Xiu_Lian_Level[i]<=30 then
			Xiu_Lian_Point[i]=Xiu_Lian_Level[i]
		elseif Xiu_Lian_Level[i]<=60 then
			Xiu_Lian_Point[i]=30+(Xiu_Lian_Level[i]-30)*2
		elseif Xiu_Lian_Level[i]<=100 then
			if i==3 then
				Xiu_Lian_Point[i]=90+(Xiu_Lian_Level[i]-60)*2
			else
				Xiu_Lian_Point[i]=90+(Xiu_Lian_Level[i]-60)*3
			end
		else
			NewWorld(sceneId,selfId,655,999,888)
		end
	end
	return Xiu_Lian_Point[1], Xiu_Lian_Point[2], Xiu_Lian_Point[3], Xiu_Lian_Point[4], Xiu_Lian_Point[5]
	--******************--
	
end
--*********************************--
--*         Reset All Data        *--
--*********************************--
function x000550_ResetAllData(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	LuaFnWashPoints(sceneId,selfId)
	local Current=GetPlayerRemainPoints(sceneId,selfId)
	SetMissionData(sceneId,selfId,MD_CURRENT_REMAINPOINT,Current)
	SetMissionData(sceneId,selfId,MD_CURRENT_HITPOINT,GetHp(sceneId,selfId))
	SetMissionData(sceneId,selfId,MD_CURRENT_MANAPOINT,GetMp(sceneId,selfId))
	local XiuLian_LiLiang, XiuLian_LingQi, XiuLian_TiLi, XiuLian_DingLi, XiuLian_ShenFa=x000550_Refresh_Xiulian(sceneId,selfId)
	local Baby_LiLiang, Baby_LingQi, Baby_TiLi, Baby_DingLi, Baby_ShenFa=x000550_Refresh_Baby(sceneId,selfId)
	LuaFnWashSomePoints(sceneId,selfId,0,-GetMissionData(sceneId,selfId,MD_CURRENT_LILIANG)-XiuLian_LiLiang-Baby_LiLiang)
	LuaFnWashSomePoints(sceneId,selfId,1,-GetMissionData(sceneId,selfId,MD_CURRENT_LINGQI)-XiuLian_LingQi-Baby_LingQi)
	LuaFnWashSomePoints(sceneId,selfId,2,-GetMissionData(sceneId,selfId,MD_CURRENT_TILI)-XiuLian_TiLi-Baby_TiLi)
	LuaFnWashSomePoints(sceneId,selfId,3,-GetMissionData(sceneId,selfId,MD_CURRENT_DINGLI)-XiuLian_DingLi-Baby_DingLi)
	LuaFnWashSomePoints(sceneId,selfId,4,-GetMissionData(sceneId,selfId,MD_CURRENT_SHENFA)-XiuLian_ShenFa-Baby_ShenFa)
	SetMissionData(sceneId,selfId,MD_CURRENT_LILIANG,0)
	SetMissionData(sceneId,selfId,MD_CURRENT_LINGQI,0)
	SetMissionData(sceneId,selfId,MD_CURRENT_TILI,0)
	SetMissionData(sceneId,selfId,MD_CURRENT_DINGLI,0)
	SetMissionData(sceneId,selfId,MD_CURRENT_SHENFA,0)
	SetMissionData(sceneId,selfId,MD_FIXBUG,Current)
	BeginUICommand(sceneId)
	EndUICommand(sceneId)
	DispatchUICommand(sceneId,selfId,11223249)
	--******************--
	
end
--*********************************--
--*       Cancel All Impact       *--
--*********************************--
function x000550_CancelAllImpact(sceneId,selfId)
	
	--******************--
	for i,impact in x000550_g_DW_Impact do											--Cancel t¤t cä Impact Ðiêu vån hi®n có
		for j=0,x000550_g_MaxDWLevel-1 do
			while LuaFnHaveImpactOfSpecificDataIndex(sceneId,selfId,impact+j)>0 do	
				LuaFnCancelSpecificImpact(sceneId,selfId,impact+j)
			end
		end
	end
	--******************--
	for i,impact in x000550_Gem_Impact do											--Cancel t¤t cä Impact ng÷c th¶i trang hi®n có
		while LuaFnHaveImpactOfSpecificDataIndex(sceneId,selfId,impact)>0 do		
			LuaFnCancelSpecificImpact(sceneId,selfId,impact)
		end
	end
	--******************--
	
end
--*********************************--
--*         Add New Impact        *--
--*********************************--
function x000550_AddNewImpact(sceneId,selfId)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	for i=100,118 do
		if i~=x000550_g_LongWen and i~=x000550_g_WuHun and i~=x000550_g_Dress then	--Các item có th¬ ðiêu vån
			x000550_AddDWImpact(sceneId,selfId,i)									--Ðiêu vån
			x000550_AddPUImpact(sceneId,selfId,i)									--Tinh thông	
		elseif i==x000550_g_Dress then												--Th¶i trang
			x000550_AddDressImpact(sceneId,selfId)
		end
	end
	--******************--
	
end

--/////////////////////////////////////////////////////////////--
--*************************************************************************************************************************--
--*   Cøm thao tác trên Ðiêu vån trang b¸                                                                                 *--
--*************************************************************************************************************************--
--/////////////////////////////////////////////////////////////--

--*********************************--
--*      Add Diao Wen Impact      *--
--*********************************--
function x000550_AddDWImpact(sceneId,selfId,Pos)
	
	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	local _,str=LuaFnGetItemCreator(sceneId,selfId,Pos)
	--******************--
	if str==nil or str=="" then														--Trang b¸ này chßa g¡n ðiêu vån
		return
	else
		if strsub(str,1,1)=="*" then
			str=strsub(str,1,7)
		end
		if x000550_IsDiaoWenEquip(str)==0 then										--Trang b¸ này không phäi trang b¸ Ðiêu vån
			return
		end
	end
	--******************--
	local nLevel=x000550_GetDiaoWenLevel(str)
	local nType=x000550_GetDiaoWenType(str)
	--******************--
	if nType>=0 and nType<=4 then													--Ðiêu vån th߶ng
		LuaFnWashSomePoints(sceneId,selfId,nType,-DWLevel[nLevel])
	else																			--Ðiêu vån thuµc tính
		LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,x000550_g_DW_Impact[nType]+nLevel-1,0)	--Add Impact vào trang b¸ ðiêu vån thuµc tính
	end
	--******************--
	
end
--*********************************--
--*       Is Diao Wen Equip       *--
--*********************************--
function x000550_IsDiaoWenEquip(str)												--Hàm này trä ra giá tr¸ 1 nªu là trang b¸ ðiêu vån và 0 nªu không phäi
	
	--******************--
	if strlen(str)==7 then
		if strsub(str,1,1)=="*" and strsub(str,strlen(str),strlen(str))=="*" then	--Ðây là chu²i mã hóa cho Ðiêu vån
			return 1
		end
	end
	--******************--
	return 0
	--******************--
	
end
--*********************************--
--*       Get Diao Wen Level      *--
--*********************************--
function x000550_GetDiaoWenLevel(str)												--Hàm này trä ra giá tr¸ Level cüa Ðiêu vån trên trang b¸ (Over write of Duyên)
	
	--******************--
	local npoint=x000550_GetDiaoWenPoint(str)										--L¤y s¯ ði¬m cµng cüa ðiêu vån
	local ntype=x000550_GetDiaoWenType(str)											--L¤y loÕi cüa Ðiêu vån
	--******************--
	--Check Level ðiêu vån dña vào ði¬m cµng tß½ng Ñng cüa ðiêu vån trong 3 mäng khai báo bên trên.
	--******************--
	if ntype>8 then
		for i=1,x000550_g_MaxDWLevel do
			if npoint==DWLevel_K[i] then
				return i
			end
		end
	elseif ntype>4 then
		for i=1,x000550_g_MaxDWLevel do
			if npoint==DWLevel_KP[i] then
				return i
			end
		end
	else
		for i=1,x000550_g_MaxDWLevel do
			if npoint==DWLevel[i] then
				return i
			end
		end
	end
	--******************--
	return 0
	--******************--
	
end
--*********************************--
--*       Get Diao Wen Type       *--
--*********************************--
function x000550_GetDiaoWenType(str)												--Hàm này trä ra giá tr¸ Type cüa Ðiêu vån trên trang b¸
	
	--******************--
	return tonumber(strsub(str,2,3))
	--******************--
	
end
--*********************************--
--*       Get Diao Wen Point      *--
--*********************************--
function x000550_GetDiaoWenPoint(str)												--Hàm này trä ra giá tr¸ Point cüa Ðiêu vån trên trang b¸
	
	--******************--
	return tonumber(strsub(str,4,6))
	--******************--
	
end
--/////////////////////////////////////////////////////////////--
--*************************************************************************************************************************--
--*   Cøm thao tác trên Thông tinh trang b¸                                                                               *--
--*************************************************************************************************************************--
--*********************************--
--*      Add Power Up Impact      *--
--*********************************--
function x000550_AddPUImpact(sceneId,selfId,Pos)

	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	local _,str=LuaFnGetItemCreator(sceneId,selfId,Pos)
	--******************--
	if str==nil or str=="" then														--Trang b¸ này chßa g¡n ðiêu vån
		return
	else
		local x="~%d%d%d~"
		local y=strfind(str,x)
		if not y then
			return
		end
	end
	--******************--
	local x="~%d%d%d~"
	local y=strfind(str,x)
	local nLevel=tonumber(strsub(str,y+1,y+3))
	--******************--
	for i=0,4 do
		LuaFnWashSomePoints(sceneId,selfId,i,-nLevel*3)
	end
	--******************--
	
end
--/////////////////////////////////////////////////////////////--
--*************************************************************************************************************************--
--*   Cøm thao tác trên Th¶i trang                                                                                        *--
--*************************************************************************************************************************--
--/////////////////////////////////////////////////////////////--

--*********************************--
--*        Add Dress Impact       *--
--*********************************--
function x000550_AddDressImpact(sceneId,selfId)

	--******************--
	if x000550_KiemTraPhienBan (sceneId,selfId) == 0 then
		return
	end
	--******************--
	if LuaFnGetItemTableIndexByIndex(sceneId,selfId,x000550_g_Dress)<=0 then
		return
	end
	--******************--
	local Gem_Count=GetGemEmbededCount(sceneId,selfId,x000550_g_Dress)				--L¤y t±ng s¯ l² trên trang b¸
	--******************--
	for i=0,Gem_Count-1 do
		local Gem_Index=GetGemEmbededType(sceneId,selfId,x000550_g_Dress,i)			--L¤y ID viên ng÷c hi®n khäm · l² thÑ i trên trang b¸
		if x000550_Gem_Impact[Gem_Index]~=nil then									--Nªu ðây ðúng là ng÷c th¶i trang thì add impact và d×ng luôn
			LuaFnSendSpecificImpactToUnit(sceneId,selfId,selfId,selfId,x000550_Gem_Impact[Gem_Index],0)
			return
		end
	end
	--******************--

end
--/////////////////////////////////////////////////////////////--

[huuduyen_05]

Thêm cái hàm thực hiện đó ở AllowScript... ở Server/Config nhe