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

[emnhochi]

mọi người cho mình xin cái hàm del skill với

DelMagic(SkillId) Xóa kỹ năng

Xem một số hàm trong LuaFuns.lua

[niconut]

DelMagic(SkillId) Xóa kỹ năng

Xem một số hàm trong LuaFuns.lua

LuaFuns.lua file này nằm ở đâu vậy bạn? sao mình kiếm trong script k thấy

[emnhochi]

LuaFuns.lua file này nằm ở đâu vậy bạn? sao mình kiếm trong script k thấy

Nằm chỗ cùng với GameServer không phải trong scrip.

[niconut]

Theo mình test võ đang mình thấy nó lâu lâu nó bị (mê) lỗi này có ai fix chưa nhỉ? fix r xin chỉ giáo

[niconut]

Vũ Liệt
[Only registered and activated users can see links. ]

Đồ Đằng Long sai res hết đúng có cái VK
Đồ Xích Lân thì cái Áo TLam bi sai res luôn hack thần cũng thế còn lại thì ỗn
Có cả mấy bộ Chúc Dung, Nữ oa, thân nông, phuc hi, toai nhan.v.v ! Vui phết

cà rốt có thể pm y!h [Only registered and activated users can see links. ] cho mình hỏi cái này k

[niconut]

Có bạn nào bị lỗi res mấy con ngựa mới của vinagame k? lưu tinh,ngự phong ,truy điện ,dương sa,có ai bị lỗi này k?

[william_8x]

client giới hạn chơi dc 3 AC thôi, ai chỉ cách fix client để chơi dc hơn 3 AC dc không

[binhvnpost]

Chuyển sinh có vòng sáng
[CODE]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

Cho mình hỏi: cái code trên thêm vào ở file nào vậy, ai biết làm chỉ mình với.

[niconut]

Cho mình hỏi: cái code trên thêm vào ở file nào vậy, ai biết làm chỉ mình với.

thêm vào npcchucnang nào cung được r set hàm cho nó là được

[yeumayluon]

share cái nhiệm vụ nho nhỏ cho anh em (cái này là tìm kho tàng như trong kiếm thế)
Các mảng trong nhiệm vụ:

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
}

Tiếp theo là NPC nhận nhiệm vụ

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

Tiếp theo là Item ban đồ:

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

Xong rồi DEMO vài tấm
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]