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

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

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

Lỗi phát sinh do việc thiếu ID của monster 151 phần Type
Cách giải quyết add ID bị thiếu vào MonsterAttrExTable.txt trong /Public/Config
(có thể lấy từ client sohu để add)

Cái này là script nó bị lỗi nên mình đã xóa nó trong Sence ở đại lý. Cái này mình patch vào thỉnh thoảng cũng bị thế => giải nén lại từ đầu là đc patch bình thường

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

P/s: Ai không thích mà tốt nhất nên xóa mấy file *.lua tiếng việt đi vì script trong đó toàn báo lỗi ko load dc => tự viết cho nhanh

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

Có ai biết cấu trúc của cái hàm này ko

AddNumText( sceneId, x002095_g_ScriptId, "Nâng level t× 149 lên 150",6,3333 )

Chỉ hỏi cái số 6 nghĩa là gì vậy ??????

**less433** · 01-07-13, 07:05 AM

có mấy file việt hóa r lm j nữa ,bác nào hướng dẫn dùm vs

**emyeusss7** · 01-07-13, 07:44 AM

@HaHoang: up cho mình xin cái file Fonts của bạn đang VH đc ko ?
Còn cái daili_monster.ini thì thấy info là 158, nhưng trong tổng bộ chỉ có 150, nó báo lỗi, mình sữa 158 thành 150 là đc
Còn 2 cái bị lỗi là 56, 141, mình ko biết cách sữa = cách add id gì đó, nên mình dùng id của hàm ko lỗi, chép đè lên, thế là đc
Tạm thời là thế, rồi xem lại cách viết hàm của Mod huuduyen, sau đó sẽ thêm hàm sau ^_^

Mình cũng mê viết code lắm, nhưng dạo này mắc ôn thi, nên cũng ko có nhiều thời gian đc

..... Cám ơn !

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

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

@HaHoang: up cho mình xin cái file Fonts của bạn đang VH đc ko ?
Còn cái daili_monster.ini thì thấy info là 158, nhưng trong tổng bộ chỉ có 150, nó báo lỗi, mình sữa 158 thành 150 là đc
Còn 2 cái bị lỗi là 56, 141, mình ko biết cách sữa = cách add id gì đó, nên mình dùng id của hàm ko lỗi, chép đè lên, thế là đc
Tạm thời là thế, rồi xem lại cách viết hàm của Mod huuduyen, sau đó sẽ thêm hàm sau ^_^

Mình cũng mê viết code lắm, nhưng dạo này mắc ôn thi, nên cũng ko có nhiều thời gian đc

..... Cám ơn !

Việt hóa thì dùng Unikey với mã VISCII. Trong Notepad++ mở Encoding/Character Sets/Western European/Windows-1252
Cứ vậy thôi việt hóa cái gì thì change sang tàu khựa xong lại chuyển về cái win-1252 kia

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

Khổ quá viết đc cái hàm thì vào nó ko run chắc do lỗi. Khổ thế chả biết lỗi ở đâu ko có cái gì chạy thử có chúa mới biết @@

Code:

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

x002097_g_scriptID = 002097

--Kh·i ðµng
function x002097_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, x002097_g_ScriptId, "Lên level",6,1 )
        AddNumText( sceneId, x002097_g_ScriptId, "Nh§n 99999999 kinh nghi®m",1,2 )
        AddNumText( sceneId, x002097_g_ScriptId, "Nh§n Kim t®",1,3 )
        AddNumText( sceneId, x002097_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 x002097_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
--	if key == 1 then --Lên Level
	
--		BeginEvent( sceneId )
--			AddText(sceneId,"Hãy ch÷n m¯c Level")
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 10",6,10 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 30",6,30 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 49",6,49 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 59",6,59 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 69",6,69 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 79",6,79 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 89",6,89 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 99",6,99 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 109",6,109 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 119",6,119 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 129",6,129 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 139",6,139 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 150",6,150 )
--		EndEvent( sceneId )
		
--		DispatchEventList(sceneId,selfId,targetId)
		--Ch÷n m¯c level
--		if key == 10 then
--			x002097_Setlv( sceneId, selfId, targetId, 10 )
--		end
		
--		if key == 30 then	
--			x002097_Setlv( sceneId, selfId, targetId, 30 )
--		end
		
--		if key == 49 then
--			x002097_Setlv( sceneId, selfId, targetId, 49 )
--		end 
		
--		if key == 59 then
--			x002097_Setlv( sceneId, selfId, targetId, 59 )
--		end 
		
--		if key == 69 then
--			x002097_Setlv( sceneId, selfId, targetId, 69 )
--		end 
		
--		if key == 79 then
--			x002097_Setlv( sceneId, selfId, targetId, 79 )
--		end 
		
--		if key == 89 then
--			x002097_Setlv( sceneId, selfId, targetId, 89 )
--		end 
		
--		if key == 99 then
--		x002097_Setlv( sceneId, selfId, targetId, 99 )
--		end 
		
--		if key == 109 then
--			x002097_Setlv( sceneId, selfId, targetId, 109 )
--		end 
		
--		if key == 119 then
--			x002097_Setlv( sceneId, selfId, targetId, 119 )				
--		end 
		
--		if key == 129 then
--			x002097_Setlv( sceneId, selfId, targetId, 129 )
--		end 
		
--		if key == 139 then
--			x002097_Setlv( sceneId, selfId, targetId, 139 )
--		end 
		
--		if key == 150 then
--			x002097_Setlv( sceneId, selfId, targetId, 150 )
--		end
--	end
	
	if key == 2 then --Nh§n 99999999 kinh nghi®m
		x002097_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, x002097_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 3, 5 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 3, 6 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n 10000 Vàng", 3, 7 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 5 then
			x002097_KNB( sceneId, selfId, targetId )
		end
		
		if key == 6 then
			x002097_DT( sceneId, selfId, targetId )
		end
		
		if key == 7 then
			x002097_Gold( sceneId, selfId, targetId )
		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, x002097_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 3, 8 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 3, 9 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n Trùng Lâu Liên", 3, 11 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 8 then
			x002097_TLG( sceneId, selfId, targetId )
		end
		
		if key == 9 then
			x002097_TLN( sceneId, selfId, targetId )
		end
		
		if key == 11 then
			x002097_TLL( sceneId, selfId, targetId )
		end
		
	end
	
end
	
--Hàm lên Level
--function x002097_Setlv( sceneId, selfId, targetId, lv )
--local keya = GetNumText()	

--	BeginEvent( sceneId )
--		AddText(sceneId,"Xác nh§n hay hüy bö")
--		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
--		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
--	EndEvent( sceneId )
	
--	if keya == 2222 then
--		DispatchEventList( sceneId, selfId, targetId )
--		return -1
--	end
	
--	SetLevel( sceneId, selfId, lv )
	
--	BeginEvent( sceneId )
--		AddNumText( sceneId, "Lên level "..lv.." thành công !",5 )
--	EndEvent( sceneId )
	
--	DispatchEventList( sceneId, selfId, targetId )
	
--end

--Hàm nh§n KNB
function x002097_KNB( sceneId, selfId, targetId )
local keyb = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyb == 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 )
	
end

--Hàm nh§n Ði¬m t£ng
function x002097_DT( sceneId, selfId, targetId )
local keyc = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyc == 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 )
	
end

--Hàm nh§n Vàng
function x002097_Gold( sceneId, selfId, targetId )
local keyd = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyd == 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 )
	
end

--Trùng Lâu Gi¾i
function x002097_TLG( sceneId, selfId, targetId )
local keye = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keye == 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 )
	
end

--Trùng Lâu Ng÷c
function x002097_TLN( sceneId, selfId, targetId )
local keyf = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyf == 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 )
	
end

--Trùng Lâu Liên
function x002097_TLL( sceneId, selfId, targetId )
local keyg = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyg == 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 )
	
end

--Thêm kinh nghi®m
function x002097_EXP( sceneId, selfId, targetId )
local keyh = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 2, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 2, 2222 )
	EndEvent( sceneId )
		
	if keyh == 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 )
	
end

Một số chỗ nghi lỗi đã del rồi mà vẫn cứ lỗi ko rõ chỗ nào. Cao thủ nào chỉ giáo hềm. Tks nhiệt tình

**emyeusss7** · 01-07-13, 08:57 AM

end hay end if nhỉ ?
............................

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

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

end hay end if nhỉ ?
............................

Không rõ nữa vì trước giờ mình học mấy ngôn ngữ C++ pascal đều xài dấu ; để kết thúc lệnh mà cái này nó lại ko có @@. Cấu trúc thì đương nhiên if then end rồi dễ hiểu thôi mà. Hết lệnh thì nó lại chạy xuống lệnh dưới @. Cái đó chắc không sai chỉ sợ sai cái tai hại là nó ko cho sử dụng chương trình con khác function x002097_KNB( sceneId, selfId, targetId ). Ẻm này chẳng hạn. Mình nghĩ nó có cho sử dụng CT con nên mới nghĩ ra cái trò đặt tên thế chứ đọc mấy cái code mẫu nhìn nó máy móc quá đọc khó hiểu

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

P/s bạn nào load file việt hóa của mình về mà bị lỗi ko run đc sv thì làm như sau
Mở tlbb/Public/Sence/dali_monster.ini edit bằng notepad++ chuyển sang win-1252 hẳn hoi nhé.
Ngay đầu trang có cái dòng
monstercount=158 thì sửa cái 158 thành 151 là đc. Lúc trc mình thêm NPC vào quên chưa xóa

**emyeusss7** · 01-07-13, 09:40 AM

@HaHoang: Có cần thêm fonts vào trong client ko ?

Mình thấy bạn code

if ... then
........
end <========== chổ này này (theo mình nghỉ phải là end if hoặc endif mới đúng chứ ?

Mình có học c++, visual basic, autoit, chưa thấy ngôn ngử nào xài end để kết thúc hàm if cả ???

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

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

@HaHoang: Có cần thêm fonts vào trong client ko ?

Mình thấy bạn code

if ... then
........
end <========== chổ này này (theo mình nghỉ phải là end if hoặc endif mới đúng chứ ?

Mình có học c++, visual basic, autoit, chưa thấy ngôn ngử nào xài end để kết thúc hàm if cả ???

C++ thì ko có then còn Pascal thì nó có then và có end đẻ kết thúc. Ảo thật... Trong code mẫu cũng có mấy chỗ có cái này

Font thì cho vào interface trong client ấy. Cẩn thận lỗi.

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

Một đoạn code của NPC Tiêu Phong SV có mộ dung kia

Code:

if key  == 6666 then  --nh 餴琺 tg
    YuanBao(sceneId,selfId,targetId,1,300000)

		BeginEvent(sceneId)
		AddText(sceneId,"Nh th鄋h c鬾g 300 000 Kim Nguy阯 B鋙. Khi n鄌 s?d鴑g h猼 h銀 皙n g ta 瓞 l頽h nh ti猵 #1")
		EndEvent(sceneId)
		DispatchEventList(sceneId,selfId,targetId)
end
if key  == 11 then --nh knb
	YuanBao(sceneId,selfId,targetId,1,300000)

		BeginEvent(sceneId)
		AddText(sceneId,"Nh th鄋h c鬾g 300 000 KNB. Khi n鄌 s?d鴑g h猼 h銀 皙n g ta 瓞 l頽h nh ti猵 #1")
		EndEvent(sceneId)
		DispatchEventList(sceneId,selfId,targetId)
end

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

Code:

function x002095_NotifyTip( sceneId, selfId, msg )

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

end

có khi nào mình quên cái hàm này ko nhỉ. Thấy cái code nào cũng có. Đừng nói đây là hàm kết thúc

. Mà ko phải hình như cái Tip là cái thanh chữ chạy chạy trên đầu cơ mà nhỉ. Vậy sao nó cứ báo lỗi nhỉ. Chả ai giúp à @@

**vuhuy99v** · 01-07-13, 09:55 AM

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

Việt hóa thì dùng Unikey với mã VISCII. Trong Notepad++ mở Encoding/Character Sets/Western European/Windows-1252
Cứ vậy thôi việt hóa cái gì thì change sang tàu khựa xong lại chuyển về cái win-1252 kia

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

Khổ quá viết đc cái hàm thì vào nó ko run chắc do lỗi. Khổ thế chả biết lỗi ở đâu ko có cái gì chạy thử có chúa mới biết @@

Code:

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

x002097_g_scriptID = 002097

--Kh·i ðµng
function x002097_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, x002097_g_ScriptId, "Lên level",6,1 )
        AddNumText( sceneId, x002097_g_ScriptId, "Nh§n 99999999 kinh nghi®m",1,2 )
        AddNumText( sceneId, x002097_g_ScriptId, "Nh§n Kim t®",1,3 )
        AddNumText( sceneId, x002097_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 x002097_OnEventRequest( sceneId, selfId, targetId, eventId )
local	key	= GetNumText()
	
--	if key == 1 then --Lên Level
	
--		BeginEvent( sceneId )
--			AddText(sceneId,"Hãy ch÷n m¯c Level")
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 10",6,10 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 30",6,30 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 49",6,49 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 59",6,59 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 69",6,69 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 79",6,79 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 89",6,89 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 99",6,99 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 109",6,109 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 119",6,119 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 129",6,129 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 139",6,139 )
--			AddNumText( sceneId, x002097_g_ScriptId, "Lên level 150",6,150 )
--		EndEvent( sceneId )
		
--		DispatchEventList(sceneId,selfId,targetId)
		--Ch÷n m¯c level
--		if key == 10 then
--			x002097_Setlv( sceneId, selfId, targetId, 10 )
--		end
		
--		if key == 30 then	
--			x002097_Setlv( sceneId, selfId, targetId, 30 )
--		end
		
--		if key == 49 then
--			x002097_Setlv( sceneId, selfId, targetId, 49 )
--		end 
		
--		if key == 59 then
--			x002097_Setlv( sceneId, selfId, targetId, 59 )
--		end 
		
--		if key == 69 then
--			x002097_Setlv( sceneId, selfId, targetId, 69 )
--		end 
		
--		if key == 79 then
--			x002097_Setlv( sceneId, selfId, targetId, 79 )
--		end 
		
--		if key == 89 then
--			x002097_Setlv( sceneId, selfId, targetId, 89 )
--		end 
		
--		if key == 99 then
--		x002097_Setlv( sceneId, selfId, targetId, 99 )
--		end 
		
--		if key == 109 then
--			x002097_Setlv( sceneId, selfId, targetId, 109 )
--		end 
		
--		if key == 119 then
--			x002097_Setlv( sceneId, selfId, targetId, 119 )				
--		end 
		
--		if key == 129 then
--			x002097_Setlv( sceneId, selfId, targetId, 129 )
--		end 
		
--		if key == 139 then
--			x002097_Setlv( sceneId, selfId, targetId, 139 )
--		end 
		
--		if key == 150 then
--			x002097_Setlv( sceneId, selfId, targetId, 150 )
--		end
--	end
	
	if key == 2 then --Nh§n 99999999 kinh nghi®m
		x002097_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, x002097_g_scriptID, "Nh§n 100 vÕn Kim Nguyên Bäo", 3, 5 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n 100 vÕn Ði¬m T£ng", 3, 6 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n 10000 Vàng", 3, 7 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 5 then
			x002097_KNB( sceneId, selfId, targetId )
		end
		
		if key == 6 then
			x002097_DT( sceneId, selfId, targetId )
		end
		
		if key == 7 then
			x002097_Gold( sceneId, selfId, targetId )
		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, x002097_g_scriptID, "Nh§n Trùng Lâu Gi¾i", 3, 8 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n Trùng Lâu Ng÷c", 3, 9 )
			AddNumText( sceneId, x002097_g_scriptID, "Nh§n Trùng Lâu Liên", 3, 11 )
		EndEvent( sceneId )
		
		DispatchEventList(sceneId,selfId,targetId)
		
		if key == 8 then
			x002097_TLG( sceneId, selfId, targetId )
		end
		
		if key == 9 then
			x002097_TLN( sceneId, selfId, targetId )
		end
		
		if key == 11 then
			x002097_TLL( sceneId, selfId, targetId )
		end
		
	end
	
end
	
--Hàm lên Level
--function x002097_Setlv( sceneId, selfId, targetId, lv )
--local keya = GetNumText()	

--	BeginEvent( sceneId )
--		AddText(sceneId,"Xác nh§n hay hüy bö")
--		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
--		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
--	EndEvent( sceneId )
	
--	if keya == 2222 then
--		DispatchEventList( sceneId, selfId, targetId )
--		return -1
--	end
	
--	SetLevel( sceneId, selfId, lv )
	
--	BeginEvent( sceneId )
--		AddNumText( sceneId, "Lên level "..lv.." thành công !",5 )
--	EndEvent( sceneId )
	
--	DispatchEventList( sceneId, selfId, targetId )
	
--end

--Hàm nh§n KNB
function x002097_KNB( sceneId, selfId, targetId )
local keyb = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyb == 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 )
	
end

--Hàm nh§n Ði¬m t£ng
function x002097_DT( sceneId, selfId, targetId )
local keyc = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyc == 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 )
	
end

--Hàm nh§n Vàng
function x002097_Gold( sceneId, selfId, targetId )
local keyd = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyd == 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 )
	
end

--Trùng Lâu Gi¾i
function x002097_TLG( sceneId, selfId, targetId )
local keye = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keye == 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 )
	
end

--Trùng Lâu Ng÷c
function x002097_TLN( sceneId, selfId, targetId )
local keyf = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyf == 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 )
	
end

--Trùng Lâu Liên
function x002097_TLL( sceneId, selfId, targetId )
local keyg = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 1, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 1, 2222 )
	EndEvent( sceneId )
	
	if keyg == 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 )
	
end

--Thêm kinh nghi®m
function x002097_EXP( sceneId, selfId, targetId )
local keyh = GetNumText()

	BeginEvent( sceneId )
		AddText(sceneId,"Xác nh§n hay hüy bö")
		AddNumText( sceneId, x002097_g_scriptID, "Xác nh§n", 2, 1111 )
		AddNumText( sceneId, x002097_g_scriptID, "Hüy bö", 2, 2222 )
	EndEvent( sceneId )
		
	if keyh == 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 )
	
end

Một số chỗ nghi lỗi đã del rồi mà vẫn cứ lỗi ko rõ chỗ nào. Cao thủ nào chỉ giáo hềm. Tks nhiệt tình

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

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

Ðề: 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

Ðề: 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

Ðề: 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 !

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