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

[louishuynh]

cám ơn ạ ! Anh chỉ thi chỉ cho chót ạ gọi bos như thế nào và anh cho em hỏi muốn cho skill 15x vào thằng NPC môn phái để nhận như nhận skill 9x thế nào ạ em thêm vào mà toàn báo lỗi GS ạ!
cho em xin cái ID đồ hắc thần vơi em add vào toàn ra cái gi ko à .
Với em muôn tăng level theo ý muôn như 100,110.v.v thi dung hàm nào và cái thêm điểm tiềm năng,kĩ năng nữa lúc trước em thấy có nhân dc ma giô ko nhận dc ạ tks nhiều nhiều ạ

còn không thì bạn add vào con hỗ trợ cũng đc nè bạn, phái nào có skill phái đó, nhanh hơn add vào npc môn phái, tiện nữa
Thêm dòng:
"NhËn Skill 150/skill15x",

rồi gọi ra thôi, nhanh lắm:

function skill15x()
mp = GetFaction()
if mp == "ThiÕu L©m Ph¸i" then
AddMagic(1055,20)
AddMagic(1056,20)
AddMagic(1057,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Thiªn V­¬ng Bang" then
AddMagic(1058,20)
AddMagic(1059,20)
AddMagic(1060,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "§­êng M«n" then
AddMagic(1069,20)
AddMagic(1070,20)
AddMagic(1071,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Ngò §éc Gi¸o" then
AddMagic(1066,20)
AddMagic(1067,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Nga My Ph¸i" then
AddMagic(1061,20)
AddMagic(1062,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Thóy Yªn M«n" then
AddMagic(1063,20)
AddMagic(1065,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "C¸i Bang" then
AddMagic(1073,20)
AddMagic(1074,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Thiªn NhÉn Gi¸o" then
AddMagic(1075,20)
AddMagic(1076,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "Vâ §ang Ph¸i" then
AddMagic(1078,20)
AddMagic(1079,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
elseif mp == "C«n L«n Ph¸i" then
AddMagic(1080,20)
AddMagic(1081,20)
RemoveItem(nItemIndex,1)
Talk(1,"","Chóc mõng b¹n ®· häc ®­îc tuyÖt kü 150 cña "..mp)
end
end

[carotyeuchuot]

Ai gúp em vơi cái SV này em cứ vào tơi tạo Nv rồi vào trò chơi là nó báo kết nối máy chủ thất bại kiểm tra lại đưing truyền ! giúp em vơi

Chụp cái ảnh GS của bạn lên xem nào !

1, Nếu GS báo PlayerDBLoading Failed là do lỗi font < có thể máy tính bạn đang ở chế độ cái font chinese PRC> SV này no font nhé

2,Chỉnh IP file severlist.ini trong client chưa

3,Map vào game đã load hết chưa có thể lúc giãi nén lỗi map bạn chọn nv để vào ko có thi sao vào được!

4,Nếu gateway báo successful hết 5 dòng mà nó ko có load map là do giãi nén lỗi !

Xem lại 4 cách đó chắc chắn sẽ vào được

[HoangTVT]

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;

đoạn này if(nTongc == 0 or nKimc == 0) then -- nghĩa là bên Tống hoặc bên Kim không có ng thì chạy lệnh thỏa đk
sửa lại thành if(nTongc == 0 and nKimc == 0) then -- nghĩa là nếu cả 2 bên đều không có ng thì sẽ thực hiện tiếp lệnh, có nghĩa là chỉ cần 1 trong 2 bên có ng sẽ chạy tống kim

[louishuynh]

vậy cho minh hỏi mình không muốn lấy đồ ra nó khoá hay ném ra ngoài được thì dùng hàm nao vậy ? Với muốn nó tự out ra rôi zo lại khi nhận đồ skill hay môn phái thi dùng hàm nào mò hoài ko ra . Còn cái phần thưởng cấp mình bỏ cái dấu -- ra thì nhận lúc được lúc ko nhận nó ra tùm lụm hết không đúng như trong script ai chỉ vơi !Với thêm cái công điểm nhanh vào NPC bất ki thi báo lỗi ko công dc

2 câu trên bạn hỏi đọc k hiểu ^^!, còn cái công điểm tiềm năng thì bạn add chỗ nào cũng đc nè, lấy từ con phantang trên đảo cop qua, ví dụ của mình nha, add ở con hỗ trợ, tẩy điểm ở đó luôn, khoẻ

function main()
Say2(15277,9,1,"",
"T¨ng Level 10/lv10",
"NhËn hç trî t©n thñ/hotronew",
"Chøc n¨ng Admin/chucnangadm",
"NhËn trang bÞ xanh/xanhtest",
"NhËn VËt PhÈm Kh¸c/vatphamkhac",
"TÈy ®iÓm kü n¨ng/taykynang",
"TÈy ®iÓm tiÒm n¨ng/taytiemnang",
"Céng TiÒm N¨ng/congtiemnang",
"KÕt thóc ®èi tho¹i/no")
end

thêm 3 dòng tẩy kĩ năng, tiềm năng, cộng điểm ở con hỗ trợ, rồi dùng hàm gọi ra nha:

function congtiemnang()
Say("Ng­¬i muèn t¨ng ®iÓm lo¹i nµo?",5,"Søc m¹nh/sucmanh","Th©n ph¸p/thanphap","Sinh khÝ /sinhkhi","Néi c«ng/noicong","Tho¸t/no")
end;

function sucmanh()
local count = 1;
local StrTab = {};

for i=1,getn(TIEMNAMG_ARRAY) do
StrTab[count] = TIEMNAMG_ARRAY[i].." ®iÓm".. "/selsucmanh";
count = count + 1;
end

if(count == 1) then
return end

StrTab[count] = "Quay l¹i/cong";
Say("Ng­¬i muèn céng thªm søc m¹nh bao nhiªu?",count,StrTab)
end;

function selsucmanh(sel)
local nSel = sel +1;
local n = GetRestAP()
if n == 0 then Talk(1,"",ALL_POINT_NO_LONGER); return end
if n < TIEMNAMG_ARRAY[nSel] then
IncPoint(1,n); cong();
return end
IncPoint(1,TIEMNAMG_ARRAY[nSel]); cong();
end;

function thanphap()
local count = 1;
local StrTab = {};

for i=1,getn(TIEMNAMG_ARRAY) do
StrTab[count] = TIEMNAMG_ARRAY[i].." ®iÓm".. "/selthanphap";
count = count + 1;
end

if(count == 1) then
return end

StrTab[count] = "Quay l¹i/cong";
Say("Ng­¬i muèn céng thªm th©n ph¸p bao nhiªu?",count,StrTab)
end;

function selthanphap(sel)
local nSel = sel +1;
local n = GetRestAP()
if n == 0 then Talk(1,"",ALL_POINT_NO_LONGER); return end
if n < TIEMNAMG_ARRAY[nSel] then
IncPoint(2,n); cong();
return end
IncPoint(2,TIEMNAMG_ARRAY[nSel]); cong();
end;

function sinhkhi()
local count = 1;
local StrTab = {};

for i=1,getn(TIEMNAMG_ARRAY) do
StrTab[count] = TIEMNAMG_ARRAY[i].." ®iÓm".. "/selsinhkhi";
count = count + 1;
end

if(count == 1) then
return end

StrTab[count] = "Quay l¹i/cong";
Say("Ng­¬i muèn céng thªm sinh khÝ bao nhiªu?",count,StrTab)
end;

function selsinhkhi(sel)
local nSel = sel +1;
local n = GetRestAP()
if n == 0 then Talk(1,"",ALL_POINT_NO_LONGER); return end
if n < TIEMNAMG_ARRAY[nSel] then
IncPoint(3,n); cong();
return end
IncPoint(3,TIEMNAMG_ARRAY[nSel]); cong();
end;

function noicong()
local count = 1;
local StrTab = {};

for i=1,getn(TIEMNAMG_ARRAY) do
StrTab[count] = TIEMNAMG_ARRAY[i].." ®iÓm".. "/selnoicong";
count = count + 1;
end

if(count == 1) then
return end

StrTab[count] = "Quay l¹i/cong";
Say("Ng­¬i muèn céng thªm néi c«ng bao nhiªu?",count,StrTab)
end;

function selnoicong(sel)
local nSel = sel +1;
local n = GetRestAP()
if n == 0 then Talk(1,"",ALL_POINT_NO_LONGER); return end
if n < TIEMNAMG_ARRAY[nSel] then
IncPoint(4,n); cong();
return end
IncPoint(4,TIEMNAMG_ARRAY[nSel]); cong();
end;


Còn tẩy kĩ năng và tiềm năng nè:

function taykynang()
ResetMagicPoint(0)
Talk(1,"kickout",10061)
end

function kickout()
KickOutSelf()
end

function taytiemnang()
ResetProp()
end

[carotyeuchuot]

vậy cho minh hỏi mình không muốn lấy đồ ra nó khoá hay ném ra ngoài được thì dùng hàm nao vậy ? Với muốn nó tự out ra rôi zo lại khi nhận đồ skill hay môn phái thi dùng hàm nào mò hoài ko ra . Còn cái phần thưởng cấp mình bỏ cái dấu -- ra thì nhận lúc được lúc ko nhận nó ra tùm lụm hết không đúng như trong script ai chỉ vơi !Với thêm cái công điểm nhanh vào NPC bất ki thi báo lỗi ko công dc

1, Xem lại mấy trang trước có hướng dẫn nhé liên quan tơi LockItem(id);

2,Nhận phái hay skill nó tự out rôi đăng nhập lại thì thêm KickOutSelf()

3,Cái phần thưởng mình mơi thử do script viết lỗi !<bạn thêm 2 dòng trống vào là nhận bt nhé tạm thơi như vậy đi >

function nhanthuongcap()
	Say2(15277,9,1,"",
	"Vỗ Mông Thần Chưởng/selthuong",
	"Bóp Dú Long Trão Thủ/selthuong",
	"Th­ëng cÊp 30/selthuong",
	"Th­ëng cÊp 50/selthuong",
	"Th­ëng cÊp 70/selthuong",
	"NhËn th­ëng cÊp 90/thuongvkhk",
	"NhËn Th­ëng §ua Top/duatop",
	"KÕt thóc ®èi tho¹i/no")
end

Như này là ỗn

4, Muốn thêm đoạn script vào NPC bất kì nào bạn phải trỏ tơi đương dẫn file đó < VD :bạn thêm công điểm vào npc thì phải trỏ tới
Include("\\script\\global\\npcchucnang\\phantang.l ua");--cong tiem nang>

Vậy thôi!

[jxoff]

Được rôi thanks ạ ! vậy muốn thêm đoạn code nào vào npc thi phải chỏ tới file chứa script đó hả anh?
Có cách nào lúc minh chỉnh sữa script xong ko cần tắt load lại gameserver.exe ko vậy nó load lại map lâu quá

[tukhom]

vào scrip/header/monphaiheader.lua thêm cái này vào

SKILL150_ARRAY={
[1]={
	{"§¹i Lùc Kim Cang Ch­ëng",1055,20},
	{"Vi §µ HiÕn Xö",1056,20},
	{"Tam Giíi Quy ThiÒn",1057,20}
},
[2]={
	{"Hµo Hïng Tr¶m",1058,20},
	{"Tung Hoµnh B¸t Hoang",1059,20},
	{"B¸ V­¬ng T¹m Kim",1060,20}
},
[3]={
	{"V« ¶nh Xuyªn",1069,20},
	{"ThiÕt Liªn Tø S¸t",1070,20},
	{"Cµn Kh«n NhÊt TrÞch",1071,20}
},
[4]={
	{"H×nh Tiªu Cèt LËp",1066,20},
	{"U Hån PhÖ ¶nh",1067,20}
},
[5]={
	{"KiÕm Hoa V·n Tinh",1061,20},
	{"B¨ng Vò L¹c Tinh",1062,20}
},
[6]={
	{"B¨ng T­íc Ho¹t Kú",1063,20},
	{"Thñy Anh Man Tó",1065,20}
},
[7]={
	{"Thêi ThÆng Lôc Long",1073,20},
	{"Bæng Huýnh L­îc §Þa",1074,20}
},
[8]={
	{"Giang H¶i Né Lan",1075,20},
	{"TËt Háa LiÖu Nguyªn",1076,20}
},
[9]={
	{"T¹o Hãa Th¸i Thanh",1078,20},
	{"KiÕm Thïy Tinh Hµ",1079,20}
},
[10]={
	{"Cöu Thiªn C­¬ng Phong",1080,20},
	{"Thiªn L«i ChÊn Nh¹c",1081,20}
},
[11]={
	{"§éc C« Cöu KiÕm",1368,20},
	{"Ph¸ch Th¹ch Ph¸ Ngäc",1382,20},
}	
};


function show_kynang150(nNo)
	if(GetNumber(GetTask(TASK_TANTHU),2) > 1) then
		Talk(1,"",14747)
	return end
	local nskillcount = getn(SKILL150_ARRAY[nNo])
	if(GetLevel() < 150) then
		Talk(1,"",14576)
	return end
	local skilltab = {};
	local count = 1;
	for i=1,nskillcount do
		skilltab[count] = SKILL150_ARRAY[nNo][i][1].."/selskill1";
		count = count + 1;
	end
	if(count == 1) then
	return end
	skilltab[count] = "§ãng/no";
	SetTaskTemp(SELSKILLNO, nNo);
	Say("Ng­¬i muèn häc kü n¨ng nµo:",count,skilltab);
	
end;

ngoài ra cũng trong file đó kéo xuống chỗ COMMON_XUATSU chèn dòng :
WANNA_150 = "Häc kü n¨ng cÊp 150/kynang150"
vào dưới dòng
WANNA_90 = "Häc kü n¨ng cÊp 90/kynang90"

xong phần 1

Phần 2 :
vào script\npcthon\npcmonphai.lua
Ở đây có 10 phái mình làm ví dụ 1 phái, các phái khác tương tự nha
ví dụ TVB:
kéo xuống function xulymonphai(nCamp)
thêm dòng : WANNA_150,
vào sau WANNA_90,

thêm
function kynang150()
show_kynang150(4)
end;

===>> xong
thế là lên 150 về NPC môn phái mà nhận skill 150 thôi

[thesky1992]

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;

đoạn này if(nTongc == 0 or nKimc == 0) then -- nghĩa là bên Tống hoặc bên Kim không có ng thì chạy lệnh thỏa đk
sửa lại thành if(nTongc == 0 and nKimc == 0) then -- nghĩa là nếu cả 2 bên đều không có ng thì sẽ thực hiện tiếp lệnh, có nghĩa là chỉ cần 1 trong 2 bên có ng sẽ chạy tống kim

haiz ,đã làm theo hướng dẫn nhưng vẫn ko đc bác ơi?.ai đã vào chơi đc tống kim show vài tấm ..kích thích tinh thần vượt khó để mài mò đê.......

[Only registered and activated users can see links. ]

mà cho em hỏi ở đoạn code này có thiếu xót gì ko?sao cái con NPC Tống kim mộ quân luôn trả lời vầy nè :

--Tong kim Mo binh quan
--Author: Ken Nguyen 2013
--DMEM TEAM
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\time.lua");
Include("\\script\\header\\tongkim.lua");
Include("\\script\\library\\worldlibrary.lua");
END_TALK="KÕt thóc ®èi tho¹i/no"
NEEDMONEY = 3000
NEEDLEVEL = 60
function main(NpcIndex)

local nSubWorldId = SubWorldID2Idx(380)
if nSubWorldId < 0 then --chua mo map, ngung ham`
return end
SubWorld = nSubWorldId;--thang nay dang dung o map 325 (khac 380), nen phai dat bien toan` cau` SubWorld khac cho no' de su dung mission cua 380

if(IsMission(1) == 0) then
Say(10635,1, --dai chien chua bat dau, ngung ham`
END_TALK)
return
end
local bTong = GetNpcValue(NpcIndex)
if(bTong == nil) then
return end

--Yr,Mth,Dy,Hr,Mn,Se = GetTime();
--local bOnTime = 0;
--for i=1,getn(TONGKIM_TIMER) do
-- if(Hr == TONGKIM_TIMER[i][1] and (Mn >= TONGKIM_TIMER[i][2] + 1)) then
-- if (Mn < TONGKIM_TIMER[i][2] + 15) then
-- bOnTime = 1;
-- else
-- bOnTime = 2;
-- end
-- end
--end

local nPlayerDataIdx, nGroup, nTongMem, nKimMem = 0,0,0,0;
if(bTong > 0) then --------------------------------------------------ben Tong
nPlayerDataIdx = PIdx2MSDIdx(1,PlayerIndex);
if(nPlayerDataIdx > 0) then --neu da gia nhap roi
nGroup = GetMSIdxGroup(1, nPlayerDataIdx)
if(nGroup == 1) then --nhom 1 da gia nhap phe Kim roi, ngung ham`
Talk(1,"",10645)
return end
----da gia nhap phe tong, cho vao` trong
Say(10646,2,
"Gia nhËp Tèng qu©n/gianhaptong",
"Rêi khái/out")
return end
if (GetMSRestTime(1,2) < 5400) then
Say(10641,1, --ngung gia nhap
END_TALK)
return
end
nTongMem = GetMSGroupCount(1,0);
nKimMem = GetMSGroupCount(1,1);
if((nTongMem > nKimMem + 5) or nTongMem > 100) then --so luong da du~
Talk(1,"",10648)
return end
Say(10646,2,
"Gia nhËp Tèng qu©n/gianhaptong",
"Rêi khái/out")
return end-------------------------------------------------


nPlayerDataIdx = PIdx2MSDIdx(1,PlayerIndex);
if(nPlayerDataIdx > 0) then --neu da gia nhap roi
nGroup = GetMSIdxGroup(1, nPlayerDataIdx)
if(nGroup == 0) then --nhom 0 da gia nhap phe Tong roi
Talk(1,"",10636)
return end
----da gia nhap phe kim, cho vao` trong
Say(10637,2,
"Gia nhËp Kim qu©n/gianhapkim",
"Rêi khái/out")
return end
if (GetMSRestTime(1,2) < 5400) then
Say(10641,1, --ngung gia nhap
END_TALK)
return
end
nTongMem = GetMSGroupCount(1,0);
nKimMem = GetMSGroupCount(1,1);
if((nKimMem > nTongMem + 5) or nKimMem > 100) then --so luong da du~
Talk(1,"",10639)
return end
Say(10637,2,
"Gia nhËp Kim qu©n/gianhapkim",
"Rêi khái/out")
-------------------------------------------------
end;

[carotyeuchuot]

Được rôi thanks ạ ! vậy muốn thêm đoạn code nào vào npc thi phải chỏ tới file chứa script đó hả anh?
Có cách nào lúc minh chỉnh sữa script xong ko cần tắt load lại gameserver.exe ko vậy nó load lại map lâu quá

1,Đúng rồi bạn

2, Có!

Trong Lua Có hàm dùng để Reload Đó Là dofile(" Include ")

VD: bạn muốn Server load đoạn script bạn vừa viết mà không cần tắt GS thì bạn làm như sau :

dofile("script/đường dẫn file chưa script")

Chẵng hạn file trogiup.lua,

function main()
	dofile("script/global/npcchucnang/trogiup.lua")
	activeGMCard()
	KickOutSelf()

tương tự với các file khác

[jxoff]

chân thành cám ơn các bác ợ chĩ dẫn tận tình quá

tks,tks,tks



Vĩ lãnh tụ nào vĩ đại và là bậc nhất của Việt Nam ? (gợi ý câu trả lời: Ho Chi Minh)