Share bản server tlbb 3 .30 của tuan565 đã share

**Sói Đẹp Trai** · 01-07-13, 10:04 AM

Gửi bởi vuhuy99v [Only registered and activated users can see links. ]

Hà Hoàng đã thêm cái id của Script đó vào \Public\Data\Script.dat chưa!?

Éc éc quên mất hị hị tks c

. Giờ mới nhớ ra hehe

**Sói Đẹp Trai** · 01-07-13, 10:22 AM

Test đc vào đc nhưng ấn vào chả có hiện tượng gì là sao nhỉ @@

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool

x002098_g_scriptID = 002098

--Kh·i ðµng
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",1,2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",1,3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",1,4 )				
	EndEvent(sceneId)
	
	DispatchEventList(sceneId,selfId,targetId)
	
end

--Thân sñ ki®n
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 99999999 kinh nghi®m
		BeginEvent( sceneId )
			AddText(sceneId,"Xác nh§n hay hüy bö")
			AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 2, 1111 )
			AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 2, 2222 )
		EndEvent( sceneId )
		
		if key == 2222 then
			DispatchEventList( sceneId, selfId, targetId )
			return -1
		end
		
		LuaFnAddExp( sceneId, selfId, 99999999 )
	
		BeginEvent( sceneId )
			AddNumText( sceneId, "Nh§n thành công 99999999 kinh nghi®m",5 )
		EndEvent( sceneId )
	
		DispatchEventList( sceneId, selfId, targetId )
		
		return -1
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 3, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 3, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 3, 7 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 5 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			YuanBao( sceneId, selfId, targetId, 1, 1000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 100 vÕn Kim Nguyên Bäo !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 6 then	
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			ZengDian( sceneId, selfId, targetId, 1, 1000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 100 vÕn Ði¬m t£ng !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 7 then	
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			AddMoney( sceneId, selfId, 100000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 10000 Vàng !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
	end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 3, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 3, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 3, 11 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 8 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10422016, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Gi¾i",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 9 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10423024, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Ng÷c",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 11 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10420088, 1 )
				AddItem( sceneId, 10420090, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Liên",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
	end
	
end

theo mình thấy thì cái Xác Nhận hay Hủy Bỏ nó không hiện lên @@

**vuhuy99v** · 01-07-13, 11:00 AM

Gửi bởi Hà Hoàng [Only registered and activated users can see links. ]

Test đc vào đc nhưng ấn vào chả có hiện tượng gì là sao nhỉ @@

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool

x002098_g_scriptID = 002098

--Kh·i ðµng
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",1,2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",1,3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",1,4 )				
	EndEvent(sceneId)
	
	DispatchEventList(sceneId,selfId,targetId)
	
end

--Thân sñ ki®n
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 99999999 kinh nghi®m
		BeginEvent( sceneId )
			AddText(sceneId,"Xác nh§n hay hüy bö")
			AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 2, 1111 )
			AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 2, 2222 )
		EndEvent( sceneId )
		
		if key == 2222 then
			DispatchEventList( sceneId, selfId, targetId )
			return -1
		end
		
		LuaFnAddExp( sceneId, selfId, 99999999 )
	
		BeginEvent( sceneId )
			AddNumText( sceneId, "Nh§n thành công 99999999 kinh nghi®m",5 )
		EndEvent( sceneId )
	
		DispatchEventList( sceneId, selfId, targetId )
		
		return -1
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 3, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 3, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 3, 7 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 5 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			YuanBao( sceneId, selfId, targetId, 1, 1000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 100 vÕn Kim Nguyên Bäo !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 6 then	
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			ZengDian( sceneId, selfId, targetId, 1, 1000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 100 vÕn Ði¬m t£ng !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 7 then	
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			AddMoney( sceneId, selfId, 100000000 )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n thành công 10000 Vàng !", 5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
	end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 3, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 3, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 3, 11 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 8 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10422016, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Gi¾i",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 9 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10423024, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Ng÷c",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
		if key == 11 then
			BeginEvent( sceneId )
				AddText(sceneId,"Xác nh§n hay hüy bö")
				AddNumText( sceneId, x002098_g_scriptID, "Xác nh§n", 1, 1111 )
				AddNumText( sceneId, x002098_g_scriptID, "Hüy bö", 1, 2222 )
			EndEvent( sceneId )
	
			if key == 2222 then
				DispatchEventList( sceneId, selfId, targetId )
				return -1
			end
	
			BeginAddItem( sceneId )
				AddItem( sceneId, 10420088, 1 )
				AddItem( sceneId, 10420090, 1 )
			EndAddItem( sceneId, selfId )
			AddItemListToHuman( sceneId, selfId )
	
			BeginEvent( sceneId )
				AddNumText( sceneId, "Nh§n ðßþc 1 cái Trùng Lâu Liên",5 )
			EndEvent( sceneId )
	
			DispatchEventList( sceneId, selfId, targetId )
			
			return -1
		end
		
	end
	
end

theo mình thấy thì cái Xác Nhận hay Hủy Bỏ nó không hiện lên @@

Mình ko pro phần này lém but theo mình nghĩ mấy cái if từ mấy cái sau phải sửa thành elseif vì 1 hàm-lệnh ko thế chứa cug một cái if,but còn của tổng cái nhận kn,kim tê.... thì từ cái nhận Nh§n Kim tê đã phải là elseif rùi(ko bik chắc nhe,cứ thử đi)
Cái if trong phần đầu của nhận kn là đúng,but kể từ cái if thứ 2 phải là elseif

**Sói Đẹp Trai** · 01-07-13, 12:06 PM

Gửi bởi vuhuy99v [Only registered and activated users can see links. ]

Mình ko pro phần này lém but theo mình nghĩ mấy cái if từ mấy cái sau phải sửa thành elseif vì 1 hàm-lệnh ko thế chứa cug một cái if,but còn của tổng cái nhận kn,kim tê.... thì từ cái nhận Nh§n Kim tê đã phải là elseif rùi(ko bik chắc nhe,cứ thử đi)
Cái if trong phần đầu của nhận kn là đúng,but kể từ cái if thứ 2 phải là elseif

Quen rồi trước giờ học C++ thì viết thế là nó hiểu đọc từ trên xuống dưới mà. Mình edit lại rồi đây đúng cái code này mà nó ko chạy đc

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool

x002098_g_scriptID = 002098

--Kh·i ðµng
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",6, 2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",6, 3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",6, 4 )				
	EndEvent( sceneId )
	
	DispatchEventList( sceneId, selfId, targetId )
	
end

--Thân sñ ki®n
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 5, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 5, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 5, 7 )
		EndEvent( sceneId )
		
		if key == 5 then --Nh§n KNB
			x002098_KNB( sceneId, selfId, targetId )
		end
		
		if key == 6 then --Nh§n Ði¬m T£ng
			x002098_DT( sceneId, selfID, targetId )
		end
		
		if key == 7 then --Nh§n Ti«n
			x002098_Money( sceneId, selfId, targetId )
		end
		
		DispatchEventList(sceneId,selfId,targetId)
		
	end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		
		if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
			x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
			DispatchEventList(sceneId,selfId,targetId)
			return -1
		end
			
		if key == 8 then --Nh§n Trùng Lâu Gi¾i
			x002098_TLG( sceneId, selfId, targetId )
		end
		
		if key == 9 then --Nh§n Trùng Lâu Ng÷c
			x002098_TLN( sceneId, selfId, targetId )
		end
		
		if key == 11 then --Nh§n Trùng Lâu Liên
			x002098_TLL( sceneId, selfId, targetId )
		end
		
		DispatchEventList(sceneId,selfId,targetId)
		
	end
	
end

--Kinh nghi®m
function x002098_EXP( sceneId, selfId, targetId )
		
	LuaFnAddExp( sceneId, selfId, 9999999 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 9999999 Kinh Nghi®m." )
	
end

--KNB
function x002098_KNB( sceneId, selfId, targetId )

	YuanBao( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Kim Nguyên Bäo." )
	
end

--Ði¬m T£ng
function x002098_DT( sceneId, selfId, targetId )

	ZengDian( sceneId, selfId, targetId, 1, 1000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 100 vÕn Ði¬m T£ng." )
	
end

--Vàng
function x002098_Money( sceneId, selfId, targetId )

	AddMoney( sceneId, selfId, 100000000 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 vÕn Vàng." )
	
end

--Trùng Lâu Gi¾i
function x002098_TLG( sceneId, selfId, targetId )

	BeginAddItem( sceneId )
		AddItem( sceneId, 10422016, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Gi¾i." )
	
end

--Trùng Lâu Ng÷c
function x002098_TLN( sceneId, selfId, targetId)

	BeginAddItem( sceneId )
		AddItem( sceneId, 10423024, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Ng÷c." )
	
end

--Trùng Lâu Liên
function x002098_TLL( sceneId, selfId, targetId )

	BeginAddItem( sceneId )
		AddItem( sceneId, 10420088, 1 )
		AddItem( sceneId, 10420090, 1 )
	EndAddItem( sceneId, selfId )
	AddItemListToHuman( sceneId, selfId )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 1 cái Trùng Lâu Liên." )
	
end

--Ghi lên tip
function x002098_NotifyFailTips( sceneId, selfId, Tip )

	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
	
end

Nó chạy đến cái đoạn Nhận nhận cái gì đó click vào nó chả lên cái ma gì luôn. Ko rõ là viết sai đoạn nào cơ

--- Chế độ gộp bài viết ---

Không cần elseif vì nó chạy qua đúng đoạn này ko bị gì cả

Code:

if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®

**legend1250** · 01-07-13, 12:14 PM

Code sai ko ít, 1 số chổ phải elseif và 1 số chổ nên là else (ví dụ hàm check tui đồ còn trống hay ko; nếu còn thì hiện addnumtext; ko thì addtext) sẽ ngắn gọn và dễ hiểu hơn
P/s: nếu sai cho e sr. Đag onl đt

**Sói Đẹp Trai** · 01-07-13, 12:34 PM

Gửi bởi legend1250 [Only registered and activated users can see links. ]

Code sai ko ít, 1 số chổ phải elseif và 1 số chổ nên là else (ví dụ hàm check tui đồ còn trống hay ko; nếu còn thì hiện addnumtext; ko thì addtext) sẽ ngắn gọn và dễ hiểu hơn
P/s: nếu sai cho e sr. Đag onl đt

Cái túi đồ đó thì để giải quyết sau cũng được. Cái gì cũng có quy luật của nó. Cái này cách viết na ná C++ lại cũng giống giống Pascal mà 2 cái ngôn ngữ này đều xét theo thứ tự tự trên xuống dưới ( ưu tiên chạy lệnh ). Nên cái kia thêm elseif vào thì nó cũng chỉ bằng với lệnh else + if mà để nguyên thì nó cũng cứ theo thứ tự chạy thôi. Đã sửa lại elseif và kết quả vẫn không hề khác... Code sai không ít thì thật sự ko rõ sai chỗ nào. Có chỉ luôn để anh còn sửa...
Cái túi đồ kia nó có cái lệnh return -1 rồi đấy tức là dừng ngay tại đó nếu cái if đấy xảy ra. Thêm else vào chắc cũng chỉ thông báo cho người ta còn thiếu bao nhiêu ô thôi nhỉ. Vì đơn giản đủ ô chứa thì nó đã ko chạy vào lệnh if

**vuhuy99v** · 01-07-13, 01:38 PM

Gửi bởi Hà Hoàng [Only registered and activated users can see links. ]

Cái túi đồ đó thì để giải quyết sau cũng được. Cái gì cũng có quy luật của nó. Cái này cách viết na ná C++ lại cũng giống giống Pascal mà 2 cái ngôn ngữ này đều xét theo thứ tự tự trên xuống dưới ( ưu tiên chạy lệnh ). Nên cái kia thêm elseif vào thì nó cũng chỉ bằng với lệnh else + if mà để nguyên thì nó cũng cứ theo thứ tự chạy thôi. Đã sửa lại elseif và kết quả vẫn không hề khác... Code sai không ít thì thật sự ko rõ sai chỗ nào. Có chỉ luôn để anh còn sửa...
Cái túi đồ kia nó có cái lệnh return -1 rồi đấy tức là dừng ngay tại đó nếu cái if đấy xảy ra. Thêm else vào chắc cũng chỉ thông báo cho người ta còn thiếu bao nhiêu ô thôi nhỉ. Vì đơn giản đủ ô chứa thì nó đã ko chạy vào lệnh if

Mình mới code lại đây,chạy thử đi dzo ko có thời gian test

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool
--FixScript: vuhuy99v

x002098_g_scriptID = 002098

--**********************************
--Khoi Dong
--**********************************
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",6, 2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",6, 3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",6, 4 )				
	EndEvent( sceneId )
	DispatchEventList( sceneId, selfId, targetId )
end

--**********************************
--Dieu Kien
--**********************************
function x002098_OnConditionCheck( sceneId, selfId )

local FreeSpace = LuaFnGetPropertyBagSpace( sceneId, selfId )
	if( FreeSpace < 1 ) then
	        local strNotice = "Túi ðeo thiªu không gian!"
		      x002098_ShowNotice( sceneId, selfId, strNotice)
	        return 0
	end
end

--**********************************
--Thân sñ ki®n
--**********************************
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 5, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 5, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 5, 7 )
		EndEvent( sceneId )
		DispatchEventList( sceneId, selfId, targetId )
		end
		
		if key == 5 then --Nh§n KNB
			YuanBao( sceneId, selfId, targetId, 1, 1000000 )
			BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 1000000 KNB.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
		end
		
		if key == 6 then --Nh§n Ði¬m T£ng
            ZengDian( sceneId, selfId, targetId, 1, 1000000 )
		    BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 1000000 ði¬m t£ng.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
		end
		
		if key == 7 then --Nh§n Ti«n
	        AddMoney( sceneId, selfId, 100000000 )
		    BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 100000000 ti«n.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
         end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		DispatchEventList( sceneId, selfId, targetId )
		
		if key == 8 then --Nh§n Trùng Lâu Gi¾i
			BeginAddItem(sceneId)
			AddItem( sceneId,10422016,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Gi¾i." )
		end
		
		if key == 9 then --Nh§n Trùng Lâu Ng÷c
			BeginAddItem(sceneId)
			AddItem( sceneId,10423024,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Ng÷c." )
		end
		
		if key == 11 then --Nh§n Trùng Lâu Liên
			BeginAddItem(sceneId)
			AddItem( sceneId,10420090,1)
			AddItem( sceneId,10420088,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Liên." )
		end	
    end
end

--Kinh nghi®m
function x002098_EXP( sceneId, selfId, targetId )
		
	LuaFnAddExp( sceneId, selfId, 9999999 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 9999999 Kinh Nghi®m." )
	
end


--Ghi lên tip
function x002098_NotifyFailTips( sceneId, selfId, Tip )

	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
	
end

**legend1250** · 01-07-13, 01:45 PM

Nếu nói vậy a cứ tìm code nào có if hoặc elseif anh cứ sửa ngược lại xem nó có hoạt động hay khôg?
Còn chổ else thì ý em là vầy:

Code:

f key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
			x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
			DispatchEventList(sceneId,selfId,targetId)
			return -1
               else
BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		end

Nếu túi đồ ít hơn 1 thì sẽ xảy ra TH 1, còn 0 thì sẽ hiện TH 2. Em ko học pascal hay c++ nên nghĩ vậy.
Còn khúc sau thì nên là elseif

Code:

if key == 8 then --Nh§n Trùng Lâu Gi¾i
			x002098_TLG( sceneId, selfId, targetId )
		
		
		elseif key == 9 then --Nh§n Trùng Lâu Ng÷c
			x002098_TLN( sceneId, selfId, targetId )
		
		
		elseif key == 11 then --Nh§n Trùng Lâu Liên
			x002098_TLL( sceneId, selfId, targetId )
		end

p/s: cách e chỉ cũng chỉ mang tính tham khảo, có thể ko chính xác.

--- Chế độ gộp bài viết ---

Gửi bởi vuhuy99v [Only registered and activated users can see links. ]

Mình mới code lại đây,chạy thử đi dzo ko có thời gian test

E cũng hay viết theo cách anh vuhuy viết. Thực hiện lệnh ngay cho gọn ^^

**Sói Đẹp Trai** · 01-07-13, 02:12 PM

Gửi bởi legend1250 [Only registered and activated users can see links. ]

Nếu nói vậy a cứ tìm code nào có if hoặc elseif anh cứ sửa ngược lại xem nó có hoạt động hay khôg?
Còn chổ else thì ý em là vầy:

Code:

f key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
			x002098_NotifyFailTips( sceneId, selfId, "Túi ðeo thiªu không gian!" )
			DispatchEventList(sceneId,selfId,targetId)
			return -1
               else
BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		end

Nếu túi đồ ít hơn 1 thì sẽ xảy ra TH 1, còn 0 thì sẽ hiện TH 2. Em ko học pascal hay c++ nên nghĩ vậy.
Còn khúc sau thì nên là elseif

Code:

if key == 8 then --Nh§n Trùng Lâu Gi¾i
			x002098_TLG( sceneId, selfId, targetId )
		
		
		elseif key == 9 then --Nh§n Trùng Lâu Ng÷c
			x002098_TLN( sceneId, selfId, targetId )
		
		
		elseif key == 11 then --Nh§n Trùng Lâu Liên
			x002098_TLL( sceneId, selfId, targetId )
		end

p/s: cách e chỉ cũng chỉ mang tính tham khảo, có thể ko chính xác.

--- Chế độ gộp bài viết ---

E cũng hay viết theo cách anh vuhuy viết. Thực hiện lệnh ngay cho gọn ^^

Vừa làm một cái trưa nay xong

Nó còn ko lên cái bảng nốt

Sửa y như chú mày viết đấy. Lúc trưa anh thử rồi

--- Chế độ gộp bài viết ---

Gửi bởi vuhuy99v [Only registered and activated users can see links. ]

Mình mới code lại đây,chạy thử đi dzo ko có thời gian test

Code:

--ÐÕi Lý NPC
--ID:002098
--Script: Test code by Sói Kool
--FixScript: vuhuy99v

x002098_g_scriptID = 002098

--**********************************
--Khoi Dong
--**********************************
function x002098_OnDefaultEvent( sceneId, selfId,targetId )
local nam = LuaFnGetName( sceneId, selfId )
	
	BeginEvent( sceneId )
		AddText(sceneId,"#GChào m×ng "..nam.." ðªn v¾i Thiên Long Bát Bµ. Script test by Sói Kool...")
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n 99999999 kinh nghi®m",6, 2 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n Kim t®",6, 3 )
        AddNumText( sceneId, x002098_g_ScriptId, "Nh§n trang b¸ Trùng Lâu",6, 4 )				
	EndEvent( sceneId )
	DispatchEventList( sceneId, selfId, targetId )
end

--**********************************
--Dieu Kien
--**********************************
function x002098_OnConditionCheck( sceneId, selfId )

local FreeSpace = LuaFnGetPropertyBagSpace( sceneId, selfId )
	if( FreeSpace < 1 ) then
	        local strNotice = "Túi ðeo thiªu không gian!"
		      x002098_ShowNotice( sceneId, selfId, strNotice)
	        return 0
	end
end

--**********************************
--Thân sñ ki®n
--**********************************
function x002098_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
	if key == 2 then --Nh§n 9999999 kinh nghi®m
		x002098_EXP( sceneId, selfId, targetId )
	end
	
	if key == 3 then --Nh§n Kim T®
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi Kim T®")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 5, 5 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 5, 6 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n 10000 Vàng", 5, 7 )
		EndEvent( sceneId )
		DispatchEventList( sceneId, selfId, targetId )
		end
		
		if key == 5 then --Nh§n KNB
			YuanBao( sceneId, selfId, targetId, 1, 1000000 )
			BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 1000000 KNB.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
		end
		
		if key == 6 then --Nh§n Ði¬m T£ng
            ZengDian( sceneId, selfId, targetId, 1, 1000000 )
		    BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 1000000 ði¬m t£ng.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
		end
		
		if key == 7 then --Nh§n Ti«n
	        AddMoney( sceneId, selfId, 100000000 )
		    BeginEvent(sceneId)
		    AddText(sceneId,"#gffff00Nh§n thành công 100000000 ti«n.")
		    EndEvent(sceneId)
		    DispatchEventList(sceneId,selfId,targetId)
         end
	
	if key == 4 then --Nh§n trang b¸ Trùng Lâu
		
		BeginEvent( sceneId )
			AddText(sceneId,"Hãy ch÷n mµt loÕi trang b¸")
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 5, 8 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 5, 9 )
			AddNumText( sceneId, x002098_g_scriptID, "Nh§n Trùng Lâu Liên", 5, 11 )
		EndEvent( sceneId )
		DispatchEventList( sceneId, selfId, targetId )
		
		if key == 8 then --Nh§n Trùng Lâu Gi¾i
			BeginAddItem(sceneId)
			AddItem( sceneId,10422016,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Gi¾i." )
		end
		
		if key == 9 then --Nh§n Trùng Lâu Ng÷c
			BeginAddItem(sceneId)
			AddItem( sceneId,10423024,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Ng÷c." )
		end
		
		if key == 11 then --Nh§n Trùng Lâu Liên
			BeginAddItem(sceneId)
			AddItem( sceneId,10420090,1)
			AddItem( sceneId,10420088,1)
		       EndAddItem(sceneId,selfId)
		       AddItemListToHuman(sceneId,selfId)
		       AddText(sceneId,"Nh§n ðßþc 1 cái Trùng Lâu Liên." )
		end	
    end
end

--Kinh nghi®m
function x002098_EXP( sceneId, selfId, targetId )
		
	LuaFnAddExp( sceneId, selfId, 9999999 )
	
	x002098_NotifyFailTips( sceneId, selfId, "Nh§n ðßþc 9999999 Kinh Nghi®m." )
	
end


--Ghi lên tip
function x002098_NotifyFailTips( sceneId, selfId, Tip )

	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
	
end

OK thanks đc thì share lên nhé test đây

. Có yh ko pm có gì hỏi cho tiện

**Sói Đẹp Trai** · 01-07-13, 02:29 PM

Cái code kia được thêm cái add KNB Tiền với ĐT. Còn Add item vẫn bó chim là sao @@. Ý tưởng sửa hay đấy để mình fixx thử cái kia xem

Chủ đề: Share bản server tlbb 3 .30 của tuan565 đã share

Công cụ Chủ đề

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

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

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Các thành viên gởi lời cảm ơn đến Sói Đẹp Trai vì bài viết này !

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

The Following 3 Users Say Thank You to vuhuy99v For This Useful Post:

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

The Following 2 Users Say Thank You to legend1250 For This Useful Post:

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

Ðề: Share bản server tlbb 3 .30 của tuan565 đã share

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

[TLBB] Ai share mình server tlbb 3 lỗ .taz

Share Server TLBB Việt Hoá 99%

[TLBB] Share Server TLBB Hoàn Mỹ

Share server tlbb 0.85 hoàn chỉnh!!!!!!

Quyền viết bài