Script Dùng EXP đổi thành KNB

[Sadlove123]

- Mình chỉ sưu tầm rồi share lại thôi !

--NPC Tong Hop Chuc Nang
x000163_g_ScriptId = 000163
--So Script 000163

--**********************************
--By Sadlove123 TLBB J2TEam
--**********************************
function x000163_OnDefaultEvent( sceneId, selfId,targetId )
     local 	nam	= LuaFnGetName( sceneId, selfId )
	local msgStr = format ( "#e0e8de5#c00ffffChào m×ng "..nam.." đªn v¾i Tiên Kiªm KÏ Hi®p")
	BeginEvent(sceneId)
		AddText(sceneId,msgStr)
		--AddNumText( sceneId, x000163_g_ScriptId, "Nh§n lƠi skill c½ bän", 6, 1000 )		
		--AddNumText( sceneId, x000163_g_ScriptId, "#GNh§n #{_EXCHG10000000} Đón Xuân 1 ngày/L¥n", 5, 1010 )		
		AddNumText( sceneId, x000163_g_ScriptId, "M¤t #{_EXCHG500000} đ¬ đ±i 1000 KNB", 6, 100 )
		AddNumText( sceneId, x000163_g_ScriptId, "#GM¤t #{_EXCHG5000000} đ¬ đ±i 10000 KNB", 6, 300 )
		AddNumText( sceneId, x000163_g_ScriptId, "M¤t #{_MONEY1000000} đ¬ đ±i 2500 KNB", 6, 200 )
		AddNumText( sceneId, x000163_g_ScriptId, "#GNh§n Ám khí Phi hoàn thƠch", 6, 4444 )

		AddNumText( sceneId, x000163_g_ScriptId, "Đ¡t v§y! Ta không c¥n...", 8, 4 )
	EndEvent(sceneId)
	DispatchEventList(sceneId,selfId,targetId)
end
--**********************************
--Thuc thien chuc nang
--**********************************
function x000163_OnEventRequest( sceneId, selfId, targetId, eventId)

--Nhan lai skill co ban
	if GetNumText() == 1000 then 
		x000163_g_skillList = { 
				{id=241,name=" NgoƠi công hµ th¬"},
				{id=242,name=" D¯c sÑc t¤n công"},
				{id=243,name=" Công kích yªu đi¬m"},
				{id=244,name=" Công kích b¢ng ngoƠi ḱnh"},
				{id=245,name=" Tr¸ li®u s½ c¤p"},
				{id=246,name=" Nµi công hµ th¬"},
				{id=247,name=" Công kích vào n½i s½ h·"},
				{id=248,name=" †n đµn s½ c¤p"},
				{id=249,name=" CƠm bçy thêu đ¯t"}};
		BeginEvent( sceneId )
			AddText( sceneId, "#YKhi b¸ m¤t các kÛ nång c½ bän. Các hƠ có th¬ quay lƠi đây đ¬ lînh nh§n lƠi!" )
		EndEvent( sceneId )
		DispatchEventList( sceneId, selfId, targetId )
			
	end
--nhan vat pham
	if GetNumText()  == 4444 then 
		BeginAddItem(sceneId)
			AddItem( sceneId,10155001,1)
		EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       x000163_NotifyFailBox( sceneId, selfId, targetId, "Các hƠ đă nh§n thành công Ám khí." )

	end
 -- Nhan vang don xuan	
	if GetNumText() == 1010 then
        local day = GetDayTime();
        local lastDay = GetMissionData(sceneId, selfId, AddMoneyJZ );
            if lastDay == day then
			BeginEvent( sceneId )
			AddText( sceneId, "#gffff00Chào bƠn, hôm nay bƠn đă sØ døng chÑc nång này. M²i ngày chï đß₫c dùng chÑc nång này mµt l¥n. #rHăy quay lƠi vào hôm sau." )
			EndEvent( sceneId )
			DispatchEventList( sceneId, selfId, targetId )
			return
            end
			AddMoneyJZ( sceneId, selfId, 10000000 )
            local	nam	= LuaFnGetName( sceneId, selfId )
            BroadMsgByChatPipe( sceneId, selfId, "#HChúc m×ng #cFF0000"..nam.." #Hđă nh§n Vàng đón xuân thành công!", 4 )
			SetMissionData(sceneId, selfId, AddMoneyJZ, day);

		BeginEvent(sceneId)
        local	nam	= LuaFnGetName( sceneId, selfId )
			AddText(sceneId,"#HChúc m×ng #cFF0000"..nam.." #Hđă nh§n thành công #G#{_EXCHG10000000}#H. Cám ½n đă üng hµ #e0e8de5#c00ffffTiên Kiªm KÏ Hi®p. #HChúc bƠn nåm m¾i #PAn Khang Th¸nh Vß₫ng.")
		EndEvent(sceneId)
		DispatchEventList(sceneId,selfId,targetId)
	end
-- doi 50 vang lay 1000 diem tang
	if GetNumText() == 100 then
		BeginEvent( sceneId )
					AddText( sceneId, "Ь nh§n KNB c¥n phäi t¯n #G#{_EXCHG500000}#W. Ngß½i xác nh§n chuy¬n d±i chång?" )
			AddNumText( sceneId, x000163_g_scriptId, "Đ°ng ư", -1, 101)
			AddNumText( sceneId, x000163_g_scriptId, "Ta hi®n gi¶ chßa c¥n KNB", -1, 4)
		EndEvent( sceneId )
				DispatchEventList( sceneId, selfId, targetId )
	elseif GetNumText() == 101 then
		local nMoneyJZ = GetMoneyJZ ( sceneId, selfId )
		local nMoney = GetMoney ( sceneId, selfId )
		if (nMoneyJZ + nMoney <500000) then
			--x000163_NotifyFailTips( sceneId, selfId, "#G#{_EXCHG500000}#W mà cûng ko có sao?" )
			x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có Đü #G#{_EXCHG500000}#W mà đ̣i KNB à? Khôn thª?" )
			return
		end
		local reply = LuaFnCostMoneyWithPriority(sceneId,selfId,500000)
		if reply == -1 then
			x000163_NotifyFailTips( sceneId, selfId, "#G#{_EXCHG500000}#W  mà cûng ko có sao? nghèo quá, đi kiªm đi r°i quay vê đây v¾i ta." )
			x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có Đü #G#{_EXCHG500000}#W mà đ̣i KNB à? Khôn thª?" )
			return
		else
			local result =	YuanBao(sceneId,selfId,targetId,1,1000)
			local str = "#PXin chúc m×ng, các hƠ đă nh§n đß₫c #G1000 KNB #Pvà m¤t #G#{_EXCHG500000}#W."
			x000163_NotifyFailTips( sceneId, selfId, str )
			x000163_NotifyFailBox( sceneId, selfId, targetId, str )
		end
		end
-- doi 100 vang lay 2500 diem tang		
	if GetNumText() == 200 then
		BeginEvent( sceneId )
					AddText( sceneId, "Ь nh§n KNB c¥n phäi t¯n #G#{_MONEY1000000}#W. Ngß½i xác nh§n chuy¬n d±i chång?" )
			AddNumText( sceneId, x000163_g_scriptId, "Đ°ng ư", -1, 201)
			AddNumText( sceneId, x000163_g_scriptId, "Ta hi®n gi¶ chßa c¥n KNB", -1, 4)
		EndEvent( sceneId )
				DispatchEventList( sceneId, selfId, targetId )
	elseif GetNumText() == 201 then
		local	SelfMoney = GetMoney(sceneId, selfId)
		if SelfMoney<1000000 then
			--x000163_NotifyFailTips( sceneId, selfId,  "#G#{_MONEY1000000}#W mà cûng ko có sao?" )
			x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có Đü 100 Vàng  mà đ̣i KNB à? Khôn thª?" )
			return
		end
		local reply = CostMoney(sceneId,selfId,1000000)
		if reply == -1 then
			x000163_NotifyFailTips( sceneId, selfId, "#G#{_MONEY1000000}#W  mà cûng ko có sao? nghèo quá ,đi kiªm đi r°i quay vê đây v¾i ta." )
			x000163_NotifyFailBox( sceneId, selfId, targetId, "Không có Đü #G#{_MONEY1000000}#W mà đ̣i KNB à? Khôn thª?" )
			return
		else
			local result =	YuanBao(sceneId,selfId,targetId,1,2500)
			local str = "#PXin chúc m×ng, các hƠ đă nh§n đß₫c #G2500 KNB #Pvà m¤t #G#{_MONEY1000000}#W."
			x000163_NotifyFailTips( sceneId, selfId, str )
			x000163_NotifyFailBox( sceneId, selfId, targetId, str )
		end
				end
				
-- doi 500 vang lay 10000 diem tang
	if GetNumText() == 300 then
		BeginEvent( sceneId )
					AddText( sceneId, "Ь nh§n KNB c¥n phäi t¯n #G#{_EXCHG5000000}#W. Ngß½i xác nh§n chuy¬n d±i chång?" )
			AddNumText( sceneId, x000163_g_scriptId, "Đ°ng ư", -1, 301)
			AddNumText( sceneId, x000163_g_scriptId, "Ta hi®n gi¶ chßa c¥n KNB", -1, 4)
		EndEvent( sceneId )
				DispatchEventList( sceneId, selfId, targetId )
	elseif GetNumText() == 301 then
		local nMoneyJZ = GetMoneyJZ ( sceneId, selfId )
		local nMoney = GetMoney ( sceneId, selfId )
		if (nMoneyJZ + nMoney <5000000) then
			--x000163_NotifyFailTips( sceneId, selfId,"#G#{_MONEY3000000}#W mà cûng ko có sao?" )
			x000163_NotifyFailBox( sceneId, selfId, targetId,  "Không có Đü #G#{_EXCHG5000000}#W  mà đ̣i KNB à? Khôn thª?" )
			return
		end
		local reply = LuaFnCostMoneyWithPriority(sceneId,selfId,5000000)
		if reply == -1 then
			x000163_NotifyFailTips( sceneId, selfId, "#G#{_EXCHG5000000}#W  mà cûng ko có sao? nghèo quá đi kiªm đi r°i quay vê đây v¾i ta." )
			x000163_NotifyFailBox( sceneId, selfId, targetId,"Không có Đü #G#{_EXCHG5000000}#W mà đ̣i KNB à? Khôn thª?" )
			return
		else
			local result =	YuanBao(sceneId,selfId,targetId,1,10000)
			local str = "#PXin chúc m×ng, các hƠ đă nh§n đß₫c #G10000 KNB #Pvà m¤t #G#{_EXCHG5000000}#W."
			x000163_NotifyFailTips( sceneId, selfId, str )
			x000163_NotifyFailBox( sceneId, selfId, targetId, str )
		end
		end
	if GetNumText() == 4 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
			EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 1000 )
		return
	end
end
--**********************************
-- ¶Ô»°´°¿ÚĐÅÏ¢̀áʾ
--**********************************
function x000163_NotifyFailBox( sceneId, selfId, targetId, msg )
	BeginEvent( sceneId )
		AddText( sceneId, msg )
	EndEvent( sceneId )
	DispatchEventList( sceneId, selfId, targetId )
end

--**********************************
-- ÆÁÄ»ÖĐ¼äĐÅÏ¢̀áʾ
--**********************************
function x000163_NotifyFailTips( sceneId, selfId, Tip )
	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
end