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

[namcold]

[QUOTE=yeumayluon;883877]Chuyển sinh có vòng sáng

function chuyensinhv()
Say("<color=water>CÊp chuyÓn sinh: 200 \n<color=wood>TiÒn cÇn chuyÓn sinh: 500 V¹n.",3,
"ChuyÔn Sinh Nh©n VËt/chuyensinh",
"Tho¸t./Exit")
end
function chuyensinh()
local b = 6 -- gioi han chuyen sinh
local a = GetTask(TASK_CHUYENSINH) -- so lan chuyen sinh
local c = 351 + a -- cai nay la ID cua ExpandRank.txt
local nTTK = GetNumber2(GetTask(TASK_TAYTUYKINH),1)
local nVLMT = GetNumber2(GetTask(TASK_TAYTUYKINH),2)
if GetTask(TASK_CHUYENSINH) >= b then
	Say("<color=water>Giíi h¹n chuyÓn sinh: "..b.." LÇn \n<color=wood>B¹n ®· ®¹t møc giíi h¹n chuyÓn sinh.",3,
	"Quay lai/main",
		"Tho¸t./no")
elseif GetTask(TASK_CHUYENSINH) < b and GetLevel() >= 200 and GetCash() >= 5000000 then
SetTask(TASK_CHUYENSINH,GetTask(TASK_CHUYENSINH)+1 )
if GetTask(TASK_CHUYENSINH) == a + 1 then
Pay(5000000) -- tru 500v
SetRankEx(c,1) -- vong sang
ResetProp()-- reset tiem nang
ResetMagicPoint() -- reset ky nang
SetLevel(10) -- ve lv 10
AddMagicPoint(-GetMagicPoint()+9 + nVLMT + a*2) --xoa ky nang + 9 ky nang(lv10) + so lan an VLMT + 2 ky nang/lan chuyen sinh
AddProp(-GetProp() + 45+ nTTK*5 + a*20) -- xoa tiem nang + 45 tiem nang(lv10) + an TTK*5 + 20 tiem nang/chuyen sinh
Msg2Player("B¹n §· ChuyÓn Sinh Thµnh C«ng")
KickOutSelf()
Msg2Player("B¹n §· ChuyÓn Sinh Thµnh C«ng")
else
Msg2Player("B¹n Kh«ng §ñ CÊp 200 HoÆc Kh«ng Cã 500 V¹n L­îng")
end
else
Msg2Player("B¹n Kh«ng §ñ CÊp 200 HoÆc Kh«ng Cã 500 V¹n L­îng")
end
end

[Only registered and activated users can see links. ]

mấy pro cho mình hỏi sao m chuyển sinh ko có vòng sáng nhỉ,với có ai ad đựoc đồ hs phái chưa vậy..tkkk

[emnhochi]

Thay dong nay bac namcold
local c = 351 + a -- cai nay la ID cua ExpandRank.txt
vd: local c = 75 + a

[danghai1993]

Alo, cho hỏi nếu mình thêm settings/droprate và thêm trong npcs.txt thì npc có nhận ko ?

[namcold]

Thay dong nay bac namcold
local c = 351 + a -- cai nay la ID cua ExpandRank.txt
vd: local c = 75 + a

vậy hả bạn id xem bên đó à bạn,mà b có biết cái phần mềm nào dịch được chữ trong đó ko chữ trong đó khó đọc quá bạn...tk bạn nhiều nhé...
local b = 6 -- gioi han chuyen sinh à quên mình có thể sửa hơn 6 lần chuyển sinh được ko vậy..

[thinkiemv2]

Không có ai biết hàm XÓA ĐIỂM ÂM kinh nghiệm à

[yeumayluon]

Không có ai biết hàm XÓA ĐIỂM ÂM kinh nghiệm à

trong sever có mà bạn

function useitem(nItemIndex)
	local nGetExp = GetExp();
	if(nGetExp == nil) then
	return end;
	if(nGetExp >= 0) then
		Msg2Player("B¹n kh«ng cã ®iÓm ©m kinh nghiÖm!")
	return end;
    AddOwnExp(0-nGetExp)
    RemoveItem(nItemIndex,1)
end;

vậy hả bạn id xem bên đó à bạn,mà b có biết cái phần mềm nào dịch được chữ trong đó ko chữ trong đó khó đọc quá bạn...tk bạn nhiều nhé...
local b = 6 -- gioi han chuyen sinh à quên mình có thể sửa hơn 6 lần chuyển sinh được ko vậy..
local b = 6 -- mình để thế này để có thể thay đổi tùy ý mà nhưng vì lên tới 7 nó lại quay về ngôi sao xanh lên mình mới để giới hạn 6
còn vòng sáng tương ứng 6 lần chuyển sinh thì bạn coppy xuống dòng dưới cùng và xóa tên mấy danh hiệu đó đi thì nhìn nó đẹp hơn

[yeumayluon]

Alo, cho hỏi nếu mình thêm settings/droprate và thêm trong npcs.txt thì npc có nhận ko ?

sever này thêm drop không cần sửa setting mà chỉ cần viết script là được,khi tạo NPC bạn đã quy định luôn file drop của nó rồi. bạn thử ngâm cái này xem:

ITEMLIST = {5,2,13,0,1,3,1,13,1,1}

function DropRate(NpcIndex)
local ser = GetNpcSer(NpcIndex);
local pluck = GetLucky(); --may man cua nguoi choi
local maxlev = random(7,10);
if(RANDOM(200) <= pluck) then
maxlev = 10
end
----------------Boss tieu hoang kim-----------------------------------------------------------
local nSel = 0;
local bluedetail,blueparti,dropnum;
dropnum = 12; --so' luong. cuc. do` roi
for i=1,dropnum do
	nSel = RANDOM(350);
	if(nSel == 299) then
		DropNpcItem(NpcIndex, 0, 4,RANDOM(3,30),0,0,5,0,0) --bikip
	--elseif(nSel == 298) then
		--DropNpcItem(NpcIndex, 2, 0,RANDOM(158,166),0,0,0,150,0) --an bang dinh quoc
	elseif(nSel == 199) then
		DropNpcItem(NpcIndex, 0, 2,13,0,0,5,0,0) --volammattich
	elseif(nSel == 99) then
		DropNpcItem(NpcIndex, 0, 2,14,0,0,5,0,0) --taytuykinh
	elseif(nSel == 98) then
		DropNpcItem(NpcIndex, 2, 0,RANDOM(185,192),0,0,0,150,0) --hiep cot nhu tinh
	elseif(nSel == 97) then
		DropNpcItem(NpcIndex, 0, 2,RANDOM(54,55),0,0,5,0,0);--linhtinh
	elseif(nSel == 96) then
	    DropNpcItem(NpcIndex, ITEM_NORMAL, nguyenlieu,RANDOM(13,15),0,0,5,0,0) --thuy tinh
	elseif(nSel == 95) then	
        DropNpcItem(NpcIndex, ITEM_NORMAL, nguyenlieu,20,0,0,5,0,0) --tinh hong bao thach
	else
		--lseif (nKindSpecial == 2) then
		bluedetail = RANDOM(9);
		blueparti = RANDOM(ITEMLIST[bluedetail+1]);
		DropNpcItem(NpcIndex, 0, 0,bluedetail,blueparti,RANDOM(9,10),ser,pluck,
		RANDOM(5,maxlev),RANDOM(5,maxlev),RANDOM(3,maxlev),RANDOM(maxlev),RANDOM(maxlev),RANDOM(maxlev));
	end
end
end;

[yeumayluon]

server này cập nhật điểm tài phú binh giáp vào thời gian nào z
không đeo dc phi phong

Hàm này chắc ít người biết nếu để ý nó giúp ích cho bạn rất nhiều như: kiểm tra trang bị, xóa item, khóa item, add điểm binh giáp theo ý muốn, tùy bạn sử dụng vào mục đích gì.
mình viết 1 đoạn srcipt về add điểm binh giáp

 function nangtp()
 	PutItem("N©ng cÊp ®iÓm tµi phó cÇn tiªu phÝ <color=red> 5 Kim Nguyªn B¶o <color>,chØ cã trang bÞ hoµng kim ngo¹i trõ Ên, Phi phong, trang søc, mÆt n¹, thó c­ìi. Ng­¬i cã ch¾c ch¾n n©ng cÊp kh«ng","y/nangtp1","n/no")
end
function nangtp1()
	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;
	local nKNB = GetItemCount(17,3) -- kim nguyen bao
	local nBG = GetTask(TASK_BINHGIAP)-- diem binh giap can add co the thay bang so
	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,"","H·y ®Æt tõng mãn ®Ó n©ng cÊp")
	return end
	if(nIndex <= 0) then
		Talk(1,"","H·y ®Æt ®óng lo¹i trang bÞ ®Ó ta tiÕn hµnh n©ng cÊp")
	return end
	if count == 1 and nKNB < 5 then
		Talk(1,"","Ng­¬i kh«ng cã 5 KNB, tÝnh ®Þnh lõa ta ah!")
	return end
	if count == 1 and nKNB >= 5 then
	DelItem(17,3,5)-- tru 5 KNB
	SetItemRich(nIndex,nBG)-- set diem binh giap
	LockItem(nIndex)-- khoa bao hiem
	AddItemID(nIndex)--Add item
	-- muon xoa item thi dung cai nay 		RemoveItem(nIndex,1)
end
end

[Long.MR]

Đơn giản gọn nhẹ là lấy res có sãn trong sever add lên là được

Ôi , ở tân thế giới trong kho báu OP có ghi điều này chăng.

[yeumayluon]

Ôi , ở tân thế giới trong kho báu OP có ghi điều này chăng.

cũng như hình minh họa, là có thể lấy res của đồ minh phượng add lên res của đồ khác đâu nhất thiết là phải đi tạo 1 res mới( quá khó cho những người chưa biết gì đúng không)
Cũng như bộ res của phi phong,hay skill của vòng sáng hay mặt nạ ở sever này nó đã làm đơn giản hóa đi. VD như làm 1 cái mặt nạ chỉ cần đường dẫn icon và ID của NPC và mấy lời chú thích là có ngay 1 cái mặt nạ theo ý mình( có phải quá dễ cho 1 NB không)


Mình muốn cùngyeumayluon.........XXX............

XXX cụm từ quá khó để diễn giải = lời phải không ?