[TLBB] Script Dùng EXP đổi thành KNB
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 1 của 1
  1. #1
    Moderator Sadlove123's Avatar
    Ngày tham gia
    Jun 2015
    Đang ở
    Cung cấp soucre TLBB chuẩn
    Bài viết
    563
    Thanks
    76
    Thanked 380 Times in 174 Posts

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

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


    Code:
    --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
    Khách viếng thăm hãy cùng Sadlove123 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. Các thành viên gởi lời cảm ơn đến Sadlove123 vì bài viết này !

    dinhdtd (08-02-21)

 

 

Các Chủ đề tương tự

  1. [TLBB] xin scrip đổi exp thành điểm tặng ( knb )
    Bởi saodzi trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 14-03-19, 08:36 PM
  2. [TLBB] Xin Script đổi vàng sang KNB và đổi KNB sang vàng
    Bởi maxtest trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 09-06-18, 10:28 PM
  3. Sở Hán Vương free 5.000.000 KNB, làm even nhận thêm 2.000.000 KNB ...
    Bởi chettiet trong diễn đàn CÁC SERVER GAME PRIVATE ONLINE
    Trả lời: 0
    Bài viết cuối: 01-01-16, 10:47 PM
  4. Share shop 1 KNB dùng để TEST và hướng dẫn chỉnh giá shop KNB !!!
    Bởi Sói Đẹp Trai trong diễn đàn Releases
    Trả lời: 27
    Bài viết cuối: 11-08-13, 05:00 PM
  5. Cách sửa lỗi không chuyển KNB từ phiếu KNB dc
    Bởi shizuoka trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 29-04-11, 05:50 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 01:05 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.