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

[thinkiemv2]

Bạn Có thể Hướng Dẫn Code đó chép vào file nào không ? mình chép hoài không được !

Bạn chỉ mình cách add với, mình không rành về code của game này.

hướng dẫn nè :

file : tool0088.lua cop phía dưới dzô

Include("\\script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\bang.lua");

function useitem(nItemIdx)
dofile("script/item/tools/tool0088.lua")
local nKB = GetNumber(GetTask(TASK_VINHLACTRAN),7)
local m = GetTask(TASK_TOADOX)
local n = GetTask(TASK_TOADOY)
local map = GetTask(TASK_MAP)
if nKB == 1 then-- da nhan nhiem vu
Say(""..checkTD(m,n,map).."",2,
	"§µo kho b¸u/daokhobau",
	"KÕt thóc/no")
return end
Msg2Player("VËt phÈm sö dông t×m kho b¸u.")
end
function no()
end
function daokhobau()
local m = GetTask(TASK_TOADOX)
local n = GetTask(TASK_TOADOY)
local map = GetTask(TASK_MAP)
local i = RANDOM(1,3)
if checkTD(m,n,map) == BANDO[1] then
	if CheckRoom(3,3) == 0 then
		Talk(1,"","Hµnh trang cÇn ®Ó trèng 3x3 míi cã thÓ nhËn phÇn th­ëng")
		return end
		SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,BAUVAT[i][1]))-- 
		nKB = GetNumber(GetTask(TASK_VINHLACTRAN),7)-- 
			for k = 1,nKB do
			h = RANDOM(nKB,10+nKB+nKB)
			AddItem(ITEM[h][1],ITEM[h][2],ITEM[h][3],ITEM[h][4],ITEM[h][5],ITEM[h][6],ITEM[h][7],ITEM[h][8])
			end
			Msg2Player("T×m ®­îc<color=green>"..BAUVAT[i][2].." <color> .")
		return end
Msg2Player("§µo m·i kh«ng thÊy g×.")
end
function checkTD(m,n,map)--- tinh khoang cach den toa do can tim 
w,x,y = GetWorldPos()
local a = floor(x/32/8)
local b = floor(y/32/16)
local a1 = floor(m/32/8)
local b1 = floor(n/32/16)
local nX = m-x
local nY = n-y
local nH = floor(sqrt((a1-a)^2+(b1-b)^2))-- sqrt la can bac 2
if w ~= map then
return BANDO[10]
end
if w == map then
if nH < 1 or( nX == 0 and nY == 0)then
return BANDO[1]
end
if nH>= 1 then
if nX< 0 then 
	if nY< 0 then 
	return ""..BANDO[2].." "..nH.." tr­îng"
	end
	if nY> 0 then 
	return ""..BANDO[3].." "..nH.." tr­îng"
	end
	if nY == 0 then
	return ""..BANDO[4].." "..nH.." tr­îng"
	end
	end
if nX> 0 then 
	if nY< 0 then 
	return ""..BANDO[5].." "..nH.." tr­îng"
	end
	if nY> 0 then 
	return ""..BANDO[6].." "..nH.." tr­îng"
	end
	if nY == 0 then
	return ""..BANDO[7].." "..nH.." tr­îng"
	end
end
if nX== 0 then 
	if nY< 0 then 
	return ""..BANDO[8].." "..nH.." tr­îng"
	end
	if nY> 0 then 
	return ""..BANDO[9].." "..nH.." tr­îng"
	end
	end
end
end
end

file : bang.lua

BANDO={
"§ang ®øng trªn kho b¸u",
"H­íng T©y Nam c¸ch",
"H­íng §«ng Nam c¸ch",
"H­íng Nam c¸ch",
"H­íng T©y B¾c c¸ch",
"H­íng §«ng B¾c c¸ch",
"H­íng B¾c c¸ch",
"H­íng T©y c¸ch",
"H­íng §«ng c¸ch",
"Kho b¸u kh«ng n»m trªn b¶n ®å"
}
KHOBAU={
----Vinh lac tran ---
{48729,116581,99},
{46407,112103,99},
{46547,106833,99},
{49017,107307,99},
{53014,109140,99},
{58321,110841,99},
{55333,112270,99},
{53416,115262,99},
{51497,112333,99},
{45408,112564,99},
----- them cac map khac tuy thich
}
BAUVAT = {------cai nay tuong ung so vat pham nhan dc
{3,"R­¬ng nhá"},
{5,"R­¬ng lín"},
{9,"R­¬ng b¶o vËt"}
}
ITEM={------- cai nay la item nhan duoc co the thay doi tuy y
------------ khong dung ----
{0,0,0,0,0,0,0,0}, -- 
{0,0,0,0,0,0,0,0}, -- 
--------------------------------------- loai 3
{0,5,29,0,0,5,0,0}, -- the dat cuoc
{0,3,43,0,0,5,0,0}, -- 1 da cuong hoa 1
--------------------------------------------- loai 5
{0,2,0,0,0,5,0,0}, -- phuc duyen tieu 
{0,3,21,0,0,5,0,0}, -- 1 tien dong
{0,3,43,0,0,5,0,0}, -- 1 da cuong hoa 1
{0,3,44,0,0,5,0,0}, -- 1 da cuong hoa 2
------------------------------------------------------ loai 9
{0,5,29,0,0,5,0,0}, -- the dat cuoc
{0,2,45,0,0,5,0,0}, -- tien thao lo
{0,2,1,0,0,5,0,0}, -- phuc duyen trung 
{0,2,54,0,0,5,0,0}, -- thiet la han
{0,2,55,0,0,5,0,0}, -- ban nhuoc tam kinh
{0,2,2,0,0,5,0,0}, -- phuc duyen trung 
{0,3,21,0,0,5,0,0}, -- 1 tien dong
{0,5,30,0,0,5,0,0}, -- hat thien tue
--------------------------------------- loai 3
{0,3,13,0,0,5,0,0}, -- lam thuy tinh
{0,2,2,0,0,5,0,0}, -- phuc duyen dai 
{0,3,44,0,0,5,0,0}, -- 1 da cuong hoa 2
{0,2,2,0,0,5,0,0}, -- phuc duyen trung 
--------------------------------------------- loai 5
{0,3,14,0,0,5,0,0}, -- tu thuy tinh
{0,3,15,0,0,5,0,0}, -- luc thuy tinh
{0,2,13,0,0,5,0,0}, -- VLMT
{0,2,14,0,0,5,0,0}, -- TTK
{0,2,49,0,0,5,0,0}, -- Tien thao lo DB
{0,3,45,0,0,5,0,0}, -- 1 da cuong hoa 3
{0,3,21,0,0,5,5,0}, -- 5 tien dong
{0,3,46,0,0,5,0,0}, -- 1 da cuong hoa 4
------------------------------------------------------ loai 9
}

file : npc.lua

Include("\\script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\bang.lua");

MAIN_NV ={
"NhËn b¶n ®å.",
"Truy t×m kho b¸u.",
"Hñy nhiÖm vô.",
"t×m hiÓu."}
KETTHUC = "KÕt thóc ®èi tho¹i/no"
function main()
local nSLan = GetNumber(GetTask(TASK_VINHLACTRAN),4)
local Lan = 3 - nSLan
	local count = 1;
	local StrTab = {};	
	for i=1,getn(MAIN_NV) do
		StrTab[count] = MAIN_NV[i].."/khobau1";
		count = count + 1;
	end	
	if(count == 1) then
	return end	
	StrTab[count] = KETTHUC;
	Say2("Sè nhiÖm vô trong ngµy: <color=red>"..Lan.."<color>.",count,1,"",StrTab)
end;
function khobau1(nsel)
local nSLan = GetNumber(GetTask(TASK_VINHLACTRAN),4)

if nsel == 0 then
	AddItem(0,2,88,0,0,5,0,0) -- cai nay la item ban do
return end
if nsel == 3 then
Say2("ViÕt néi dung vµo ®©y",2,1,"",
	KETTHUC)
return end
if nsel == 2 then
SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,0))
	SetTask(TASK_TOADOX,0)
	SetTask(TASK_TOADOY,0)
	SetTask(TASK_MAP,0)
return end
if nsel == 1 then
if GetLevel() < 60 then
	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>§¼ng cÊp 60 trë lªn míi cã thÓ tiÕp nhËn nhiÖm vô")
	return end
if nSLan >= 3 then
	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>Mçi ngµy chØ cã thÓ nhËn nhiÖm vô 3 lÇn")
	return end
if GetLevel() >= 60 and nSLan < 3 then
	local i = RANDOM(1,getn(KHOBAU))
	SetTask(TASK_TOADOX,KHOBAU[i][1])
	SetTask(TASK_TOADOY,KHOBAU[i][2])
	SetTask(TASK_MAP,KHOBAU[i][3])
	SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),4,GetNumber(GetTask(TASK_VINHLACTRAN),6) +1)) -- so lan trong ngay
	SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,1))-- da nhan nhiem vu
	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>Ng­¬i h·y ®Õn VÜnh L¹c TrÊn t×m <color=yellow>B¸u vËt<color> vÒ cho ta.")
	return end
end
end

vào setting/item/tools.txt

thêm :

test 3	2	88	\spr\item\medecine\obj-potion13.spr	311	1	1	Mçi nöa gi©y sinh lùc håi phôc: 500 ®iÓm <enter>Mçi nöa gi©y Néi lùc håi phôc: 500 ®iÓm	0	1	0	0	1

mở map 99 ( Vĩnh Lạc Trấn)

động bộ xì tin rồi chạy game :

[thinkiemv2]

kho báu ko nằm trên bản đồ có nghĩa là ID map của bạn không giống của mình

KHOBAU={ --- toa do x,y,w cua kho bau
----Vinh lac tran ---
---x-----y----w-------Ten map---------
{48729,116581,99,"VÜnh L¹c TrÊn"},
{46407,112103,99,"VÜnh L¹c TrÊn"},
{46547,106833,99,"VÜnh L¹c TrÊn"},
{49017,107307,99,"VÜnh L¹c TrÊn"},
{53014,109140,99,"VÜnh L¹c TrÊn"},
{58321,110841,99,"VÜnh L¹c TrÊn"},
{55333,112270,99,"VÜnh L¹c TrÊn"},
{53416,115262,99,"VÜnh L¹c TrÊn"},
{51497,112333,99,"VÜnh L¹c TrÊn"},
{45408,112564,99,"VÜnh L¹c TrÊn"},
-----
}

khi nhận nhiệm vụ sẽ là

	local i = RANDOM(1,getn(KHOBAU))
	SetTask(TASK_TOADOX,KHOBAU[i][1])
	SetTask(TASK_TOADOY,KHOBAU[i][2])
	SetTask(TASK_MAP,KHOBAU[i][3])
	SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),6,GetNumber(GetTask(TASK_VINHLACTRAN),6) +1)) -- so lan trong ngay
	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>Ng­¬i h·y ®Õn <color=red> "..KHOBAU[i][4].."<color> t×m <color=yellow>B¸u vËt<color> vÒ cho ta.")

Ví dụ i = 1 ta có {48729,116581,99,"VÜnh L¹c TrÊn"},
GetTask(TASK_TOADOX) = 48729
GetTask(TASK_TOADOY) = 116581
GetTask(TASK_MAP) = 99-- bạn quên cái này hoặc khác với cái của mình
khi sử dụng checkTD(m,n,map) nếu bạn đứng ở map có ID khác GetTask(TASK_MAP) = 99 nó sẽ cho kết quả như vậy
bạn có thể thay thế các tọa độ đó theo ý bạn dùng cái này để làm cho tiện

function toado()
w,x,y = GetWorldPos()
local a = floor(x/32)
local b = floor(y/32)
Say2(" "..x.." - "..y.."<color=blue> "..w.." <enter><color=yellow> "..a.." <color=red>"..b.."  ",2,1,"",
	"Quay lai/toado",
	"Ket Thuc/no")
	end

kaka thành công rồi thanks bạn nhé :[Only registered and activated users can see links. ]

[haclongden]

Làm cách nào ẩn ông NPC nhận Exp và Xu vậy bạn . Cảm ơn bạn trước

[haclongden]

Cho mình hỏi có hàm nào bấmchuo65t5 phải vào món đồ nó tự đưa vào nhân vật của mình không

[hamandat]

hướng dẫn nè :

file : tool0088.lua cop phía dưới dzô

cho mình hỏi các file trên nằm ở đâu vậy bạn.

[emnhochi]

[Only registered and activated users can see links. ]

function useitem(nItemIndex)    if(GetLevel() < 150) then
            Msg2Player("§¼ng cÊp cña b¹n ch­a ®ñ ®Ó lÜnh héi tuyÖt kü!")
    return end
    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)
            AddMagic(1113,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)
            AddMagic(1114,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

Đây là code sách bí kíp 150 của mình, nhờ các bác chỉ mình thêm điều kiện những nhân vật nào đã có kill 150 rồi thì không cho học nữa .

[vuila9]

sever này add được cái xu khóa hay gê , bạn nào có cái db có cột xu khóa hoq share minh với 

sv thiên hạ gì đó

[niconut]

sao mình gán script tìm kho báu vào .nhận nhiệm vụ ok hết nhưng khi dùng cái bản đồ để tìm chỗ kho báu thì k được? file bang.lua k dùng được.bạn nào chỉ mình với.với lại cho mình hỏi là làm sao để cho 1 nhân vật nhận được vật phẩm gì đó thì chỉ nhận được 1 lần thôi.với lại giới hạn môn phái .có gì pm [Only registered and activated users can see links. ] hoặc support cho mình trên topic này luôn nha.thanks

[z0nkazu04]

Chìu tối hoặc mai rảnh mình sẽ update lại sv tới sự hổ trợ gần 80 trang hé

[niconut]

Chìu tối hoặc mai rảnh mình sẽ update lại sv tới sự hổ trợ gần 80 trang hé

nhanh đi chú phủi đường ngồi hóng