Share Server Võ Lâm Ngạo Tuyết (Dev Offline)

[carotyeuchuot]

Bạn ơi cho hỏi hàm nào để lấy điểm tài phú vậy

SetItemRich(nIndex, nValue) Đặt trị số tài phú binh giáp

[niconut]

function nhacvuongkiem()
AddQuestKey(1)
end
add vào

[carotyeuchuot]

ai giúp em cái này mới trong questkey sao ID nhạc vương kiếm là 2 mà dùng hàm
function vatpham()
AddEventItem(2)
end
vậy mà ra toàn cái j ko biết huhu

ID NVK là 1 muốn lấy ra thi dùng AddQuestKey()

VD: Muốn lấy NVK thì như sau :

function nvk()
AddQuestKey(1)
end

[jxoff]

Anh carot cho em xin mấy cái này được không anh tks trước a
lệnh máu lớn lấy luôn trong lênh bài với mở rộng hành trang ạ hành trang chứ ko phải rương nha
với mấy cái vòng sáng đẹp tks anh trước

[carotyeuchuot]

Anh carot cho em xin mấy cái này được không anh tks trước a
lệnh máu lớn lấy luôn trong lênh bài với mở rộng hành trang ạ hành trang chứ ko phải rương nha
với mấy cái vòng sáng đẹp tks anh trước

Của bạn đây :

1, Máu add luôn vào lệnh bài adm thì bạn xem ID máu trong NPC Hiệu Thuốc !
add luôn vào thì nó như này :

function laymau()
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
AddItem(0,1,3,0,0,10,0,0);--
end

2,Hành Trang thì dùng hàm:

AddEquipExTime()

function hanhtrang()
AddEquipExTime(43200)
end

3, Vòng Sáng thi dùng

SetRankEx()

và xem id trong Server/Settings/ExpandRank.txt

function vongsang()
Say2("ThÇn sø: Mêi b¹n chän <color=red> Danh HiÖu<color>.",20,1,"",
"Hoµi NiÖm §Ö NhÊt Cao Thñ/dnct",
"Hoµi NiÖm §Ö NhÞ Cao Thñ/dnhct",
"Vâ L©m §¹i héi Qu¸n qu©n toµn khu vùc/vldhqq",
"Vâ Häc Kú Tµi/vhkt",
"Vâ L©m Minh Chñ/vlmc",
"Vâ L©m ChÝ T«n/vlct",
"Vâ L©m §Ö NhÊt Bang/vldnb",
"Vang Danh Tø Ph­¬ng/vdtp",
"TiÒm Long NhÊt Héi/tlnh",
"Th©n Thñ BÊt Phµm/ttbp",
"Trang KÕ/trangke3",
"KÕt thóc ®èi tho¹i/no")
end
function trangke3()
Say2("ThÇn sø: Mêi b¹n chän <color=red> Danh HiÖu<color>.",20,1,"",
"Thiªn H¹ V« Song/thvosong",
"Quû Khãc ThÇn SÇu/vovan0",
"B¸ Chñ Vâ l©m/vovan2",
"¤ng Néi Thiªn h¹/vovan3",
"Bãp Dó Liªn §Êu Qu¸n Qu©n/vovan4",
"Mß Cua Qu¸n Qu©n §Ö NhÊt/vovan5",
"Thøc §ªm Thiªn H¹ V« §Þch/vovan6",
"¥ D¬ B¸ §¹o Vâ L©m/vovan",
"Gµo ThÐt Trong T« LÐt/vovan1",
"KÕt thóc ®èi tho¹i/no")
end

function dnct()
SetRankEx(7)
end
function vhkt()
SetRankEx(258)
end
function vldhqq()
SetRankEx(74)
end
function vdtp()
SetRankEx(257)
end
function tlnh()
SetRankEx(135)
end
function vldnb()
SetRankEx(105)
end
function dnhct()
SetRankEx(8)
end
function vlmc()
SetRankEx(188)
end
function ttbp()
SetRankEx(256)
end
function vlct()
SetRankEx(210)
end
function thvosong()
SetRankEx(255)
end
function vovan0()
SetRankEx(212)
end
function vovan2()
SetRankEx(247)
end
function vovan()
SetRankEx(254)
end
function vovan1()
SetRankEx(253)
end
function vovan3()
SetRankEx(232)
end
function vovan4()
SetRankEx(233)
end
function vovan5()
SetRankEx(234)
end
function vovan6()
SetRankEx(235)
end

[jxoff]

tks anh nhiều

Bạn tham gia clbgamesvn để làm gì ? (gợi ý câu trả lời: hoc hoi dev game)

[yeumayluon]

bác yeumayluon ơi? bác dùng đc script tống kim ko vậy?

vì chơi off nên mình chưa test tống kim bao giờ, giờ bạn hỏi thì mình tìm trong script/timertask/task01.lua có đoạn:

function ontime_tongkim(nIndex)
	StopMissionTimer(nIndex,1);--tat hen gio so 1
	local nTongc = GetMSGroupCount(nIndex,0);
	local nKimc = GetMSGroupCount(nIndex,1);
	local nCount = GetMSPlayerCount(nIndex);
	if(nTongc == 0 or nKimc == 0) then
		for i=1,nCount do
		if(GetPMParam(nIndex, i, 0) == 1) then --dang online
			PlayerIndex = MSDIdx2PIdx(nIndex, i);
			SetPKMode(0,0);--phuc hoi pk tu do
			SetFightState(0);--phi chien dau
			SetPunish(0);
			SetDeathScript("")
			SetRankEx(GetTask(TASK_EXPAND_RANK));
			local nCamp = GetCurCamp();
			SetCurCamp(GetCamp());--phuc hoi phe ban dau
			if(nCamp == 1) then --tong
			NewWorld(325,RANDOM(1537,1548), RANDOM(3160,3195));
			SetRevPos(1,325)
			else	--kim
			NewWorld(325,RANDOM(1566,1588), RANDOM(3079,3096));
			SetRevPos(2,325)
			end
			QueryChannel();
		end
		end
		CloseMission(nIndex);
		AddCountNews(13910,5); --1 ben ko co nguoi
	return end
	AddCountNews(10651,5) --chien tran da bat dau
	for i=1,nCount do
		if(GetPMParam(nIndex, i, 0) == 1) then --neu co online thi ep kieu chien dau
			PlayerIndex = MSDIdx2PIdx(nIndex, i);
			SetPKMode(1,1)--ep kieu chien dau
			SetPMParam(nIndex,i,1,1) --set param 1 dang trong thoi gian chien dau
			PutMessage("§Þch qu©n ®· xuÊt hiÖn!");
		end
	end
	release_npctk();
end;

chắc bạn xóa 2 dòng này là vào được 1 người
CloseMission(nIndex);
AddCountNews(13910,5); --1 ben ko co nguoi
vì 1 bên không có người thì CloseMission rồi thì làm sao vào được nữa

[yeuvolam]

Cho mình hỏi muốn xem id đồ HK như Hồng ảnh, HKMP, tử mảng,huyền viên .v.v thì xem ở đâu vậy và dùng hàm gi để lấy ra vậy ?
mình xem trong mấy cái file thì toàn la chữ lằng nhằng ko hĩu gi hết.với hàm lấy điểm tống kim và vinh dự.
Với cho minh xin cái phúc duyên 50 để ép đồ tím với lấy điểm PD rồi mua tại thằng thần bí mệt quá cám ơn

[carotyeuchuot]

Cho mình hỏi muốn xem id đồ HK như Hồng ảnh, HKMP, tử mảng,huyền viên .v.v thì xem ở đâu vậy và dùng hàm gi để lấy ra vậy ?
mình xem trong mấy cái file thì toàn la chữ lằng nhằng ko hĩu gi hết.với hàm lấy điểm tống kim và vinh dự.
Với cho minh xin cái phúc duyên 50 để ép đồ tím với lấy điểm PD rồi mua tại thằng thần bí mệt quá cám ơn

1, Xem ID thì xem trong \Server\Settings\item\GoldEquip.txt bạn dùng EXCEL để mở ra <Trừ ra 2 ID đầu rồi tính tiếp là đúng ID đồ>

Gọi ra thì vi dụ:

function nhancankhon()
for i=3865,3879 do
AddItemGold(i)
end
end

Cái số 3865,3879 là id bạn xem trong GoldEquip.txt

2,Lấy TK,VD thì:

-TK: AddAccum()
-VD: AddHonor()
Ví Dụ:

function tongkim()
AddAccum(100000)
end

function tangvinhdu()
AddHonor(10000)
end

3, Tăng PD thì dùng hàm:

AddBless()

VD:

function tangpd()
AddBless(10000)
end

Còn PD đại <lọ màu vàng> thì lấy item ra thôi:

function phucduyen()
AddItem(0,2,2,0,0,5,50,0)

Cái màu đỏ là số lượng muốn lấy nó xếp chồng nhé

[yeumayluon]

Bạn ơi cho hỏi hàm nào để lấy điểm tài phú vậy

Giờ mình hướng dẫn các bạn cách tạo 1 hệ thống điểm tài phú(binh giáp) và nâng cấp trang bị cho sever thêm thú vị:
ban đầu mở file GoldEquip.txt bằng Excel cột L là cột level của trang bị các bạn sửa từ dòng 906 ( đồ thanh câu) 10 thành 2. Đến dòng 1136( đồ vân lộc ) là 3 và đến đồ minh phượng là 10. Như vậy các bạn đã có hệ thống đồ hoàng kim từ cấp 2 đến cấp 10. sau đó lưu lại và đồng bộ setting của sever và client.
tiếp theo là tạo bảng điểm tài phú cho từng cấp của trang bị, ví dụ của mình là:

BINHGIAP ={
50,
100,
500,
1000,
5000,
10000,
20000,
50000,
100000,
200000,
};

còn hàm để nâng cấp trang bị bao gồm luôn cả điểm tài phú các bạn có thể gắn vào NPC bất kì

function nangcap3()
PutItem("§Æt trang bÞ cÇn n©ng c©p","y/nangcap4","n/no")
end
function nangcap4()
	local nTempIndex,Tkind,Tgenre,Tdetail,Tparti,Tlevel,Tseries,Trow;
	local count = 0;
	local nIndex = 0;
	local kind,genre,detail,parti,level,series,row;
	local i,j;
	for i=0,5 do
		for j=0,3 do
			nTempIndex,Tkind,Tgenre,Tdetail,Tparti,Tlevel,Tseries,Trow = GetItemParam(10,i,j);
			if (nTempIndex > 0) then
				count = count + 1;
				if (Tkind == 2 and Tdetail < 10) then -- Trang bi hoang kim tru ngua+mat na+ an + trang suc
				nIndex,kind,genre,detail,parti,level,series,row = nTempIndex,Tkind,Tgenre,Tdetail,Tparti,Tlevel,Tseries,Trow;
				end
			end
		end
	end
	if(count > 1) then
		Talk(1,"",QUANHIEU)
	return end
	if(nIndex <= 0) then
		Talk(1,"",KHACLOAI)
	return end
	if count == 1 then
		if level > 9  then
			Talk(1,"",LEVEL)
			return end
		if level == 1 then
			Talk(1,"",LEVEL)
			return end
		if level<= 9 and level > 1 then
			local Tien = GetCash();
			local nTien = level*1000000
			local nCap = level +1
				if  Tien < nTien then
					Talk(1,"","kh«ng cã "..nTien.." l­îng ®Ó ta tiÕn hµnh n©ng cÊp")
					return end
				if Tien >= nTien then
					Pay(nTien)
					RemoveItem(nIndex)
					index = ItemSetAdd(2,0,row+228,0,0,0,0)
					SetItemRich(index,BINHGIAP[level+1])
					LockItem(index)
					AddItemID(index)
					Msg2Player("B¹n nhËn ®­îc trang bÞ hoµng kim cÊp "..nCap..". B¹n bÞ trõ "..nTien.." l­îng.")
					return end
		end
	end
end

QUANHIEU = "§Æt vµo qu¸ nhiÒu"
KHACLOAI = "Kh«ng ®óng lo¹i hoÆc kh«ng cã g×"
LEVEL="Trang bÞ kh«ng thÓ n©ng cÊp"

các bạn thử test xem có hay hơn bản gốc không, trang bị đặt vào nâng cấp sẽ tăng thêm 1 cấp vẫn đúng theo môn phái và điểm tài phú cũng được nâng lên. Vì đây chỉ là bản rút gọn của mình để các bạn dễ làm nên mình chưa test mà chỉ sửa script các bạn test nếu có lỗi mình sẽ sửa sau