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

[HoangTVT]

đâu có, e chỉ mở cho 100 đứa bạn cùng xóm chơi thôi mà, có online hút máu đâu a

[jxoff]

mấy bạn chỉ mình cái này với mở map xong rồi GS load map rồi muốn qua map đó thì mình di chuyển qua như thế nào ?
VD: mình mở Map Hoa Sơn Phái là 333 xong rồi giờ mình muốn qua map 333 thì mình dùng hàm:

function hoasonphai()
	if(NewWorld(333,x,y) == 1) then
		SetFightState(0)
	end
end;

Cái Toạ Độ X,Y để qua map 333 thi xem ở đâu vậy! Cám ơn Vì chưa qua được Map làm sao xem được toạ độ!

[hackervnk]

sao thiếu res vậy mọi người giúp mình với


[Only registered and activated users can see links. ]

[killer20099]

đâu có, e chỉ mở cho 100 đứa bạn cùng xóm chơi thôi mà, có online hút máu đâu a

ôi tấm thân nhỏ bé của đại gia đình hút máu

[lzlsky301]

Các thím tối ngày cứ hút máu. Có phải muỗi đâu .

[yeumayluon]

Kho báu của các bạn đây:
[Only registered and activated users can see links. ]
khobau.lua

Include("\\script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\bang.lua");
Include("\\script\\header\\hammo.lua");
--------------
---------------------------------------------------------
function main(NpcIndex)
dofile("script/npckhac/khobau.lua")
local nPlay = GetPlayerNpcIdx()
local nPlay1 = GetNpcValue(NpcIndex)
local nKhobau = GetNumber(GetTask(TASK_VINHLACTRAN),7) 
if nPlay ~= nPlay1 then
Msg2Player("§Ó tháa m·n trÝ tß mß <color=green>"..GetName().."<color> loay hoay mét vßng kh«ng ph¸t hiÖn ra g×.")
return end
if nPlay == nPlay1 then
	if nKhobau == 1 then-- khong dung
	return end
	if nKhobau > 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
		if CheckRoom(3,3) == 1 then
			Msg2Player("<color=green>"..GetName().."<color> më R­¬ng nhËn ®uéc nh÷ng vËt phÈm gi¸ trÞ.")
			for k = 1,nKhobau do
			local nItem = RANDOM(nKhobau, 2*nKhobau + 10)
			AddItem(ITEM[nItem][1],ITEM[nItem][2],ITEM[nItem][3],ITEM[nItem][4],ITEM[nItem][5],ITEM[nItem][6],ITEM[nItem][7],ITEM[nItem][8])
			SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,0)) -- loai
			DelNpc(NpcIndex)
			end
			end
		end
	end
end

ITEM={ ------- loai item nhan random khi dao kho bau
------------ 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
}

tool0088.lua

Include("\\script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\script\\header\\bang.lua");
Include("\\dulieu\\item.lua");
--------------
TIME_HAM = 60*1080
TIME_RUONG = 5*1080
---------------------------------------------------------
function useitem(nItemIdx)
dofile("script/item/tools/tool0088.lua")
local m = GetTask(TASK_TOADOX)
local n = GetTask(TASK_TOADOY)
local map = GetTask(TASK_MAP)
local d = m + n + map
if d > 0 then
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 nPlay = GetPlayerNpcIdx()
if checkTD(m,n,map) == BANDO[1] then
		local w,x,y = GetWorldPos()
		SetTask(TASK_TOADOX,0)
		SetTask(TASK_TOADOY,0)
		SetTask(TASK_MAP,0)
			local i = RANDOM(1,3)
			SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,BAUVAT[i][1])) -- loai
			Msg2Player("T×m ®­îc<color=green>"..BAUVAT[i][2].." <color> .")
			NpcIndex=AddNpc(844,1,SubWorldID2Idx(w),x,y)
			SetNpcScript(NpcIndex,"\\script\\npckhac\\khobau.lua")
			SetNpcName(NpcIndex,""..BAUVAT[i][2].." cña "..GetName().."")
			SetNpcValue(NpcIndex,nPlay)
			SetNpcLifeTime(NpcIndex,TIME_RUONG)
		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
------------------------- Kho bau----------------------------

BANDO={ --- dinh huong ban do
"§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 ®å"
}
BAUVAT = { --- so item nhan dc khi dao kho bau tuong ung Ruong
{3,"R­¬ng nhá"},
{5,"R­¬ng lín"},
{9,"R­¬ng b¶o vËt"}
}
---------------------------------------------

npcnhiemvu.lua

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

---------Kho Bau ---------
function khobau()
local nSLan = GetNumber(GetTask(TASK_VINHLACTRAN),6)
local Lan = 3 - nSLan
	Say2("Sè nhiÖm vô trong ngµy: <color=red>"..Lan.."<color>. ",6,1,"",
		"Giao B¸u vËt hÇm mé./khobau1",
		"Truy tim kho b¸u./khobau1",
		"Hñy nhiÖm vô./khobau1",
		"T×m hiÓu/khobau1",
		KETTHUC)
end
function reset_khobau()
--	SetTask(TASK_TIME_DT,0)
	SetTask(TASK_TOADOX,0)
	SetTask(TASK_TOADOY,0)
	SetTask(TASK_MAP,0)
	SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),7,0)) -- loai ruong
--	SetTask(TASK_VINHLACTRAN,SetNumber(GetTask(TASK_VINHLACTRAN),5,0)) -- loai bao vat
end		
function khobau1(nsel)
--local nTL = GetNumber3(GetTask(TASK_TLUC),3)
local nSLan = GetNumber(GetTask(TASK_VINHLACTRAN),6)
if nsel == 0 then
--doibauvat()
return end
if nsel == 3 then
--timhieu_khobau()
return end
if nsel == 2 then
reset_khobau()
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 nTL < 50 then
	--	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>CÇn 50 ®iÓm thÓ lùc míi cã thÓ nhËn nhiÖm vô.")
		--return end	
	if GetLevel() >= 60 and nSLan < 3  then
	local m = GetTask(TASK_TOADOX)
	local n = GetTask(TASK_TOADOY)
	local map = GetTask(TASK_MAP)
	local d = m + n + map
	if d > 0 then
	Talk(1,"","<color=metal>KiÕm Kh¸ch: <color>Kho b¸u ng­¬i vÉn ch­a t×m ra, giê l¹i muèn t×m c¸i kh¸c sao")
	return end
	if d == 0 then
		AddItem(0,2,88,0,0,5,0,0)-- ban do kho bau
	local i = RANDOM(1,getn(KHOBAU))
	--SetTask(TASK_TLUC,SetNumber3(GetTask(TASK_TLUC),3,GetNumber3(GetTask(TASK_TLUC),3) -50)) -- moi lan nhan nhiem vu - 50 diem the luc
	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.")
	return end
	end
end
end
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"},
-----
}

taskid.lua

TASK_VINHLACTRAN = 205 -- 
TASK_TIME_DT = 206
TASK_TOADOX = 207
TASK_TOADOY = 208
TASK_MAP = 209

không biết còn thiếu gì không nữa

[yeumayluon]

mấy bạn chỉ mình cái này với mở map xong rồi GS load map rồi muốn qua map đó thì mình di chuyển qua như thế nào ?
VD: mình mở Map Hoa Sơn Phái là 333 xong rồi giờ mình muốn qua map 333 thì mình dùng hàm:

function hoasonphai()
local x= random(100,300)
local y = random(100,300)

	if(NewWorld(333,x*8,y*16) == 1) then
		SetFightState(0)
	end
end;

Cái Toạ Độ X,Y để qua map 333 thi xem ở đâu vậy! Cám ơn Vì chưa qua được Map làm sao xem được toạ độ!

không biết thì thử theo kiểu random xem sao

[thesky1992]

ai tốt bụng cho mình xin cái sript tống kim với vượt ải đi..đã từng làm theo rất nhiều hướng dẫn của mọi ng ở mấy trang trước .nhưng ko vào chơi tống kim đc.chơi offline mà ko có tống kim + vượt ải ...đánh đúng chán

[Kingth]

vậy là căm trên vps như may game ol ạ

[niconut]

ai tốt bụng cho mình xin cái sript tống kim với vượt ải đi..đã từng làm theo rất nhiều hướng dẫn của mọi ng ở mấy trang trước .nhưng ko vào chơi tống kim đc.chơi offline mà ko có tống kim + vượt ải ...đánh đúng chán

theo mình thấy thì tk vẫn ok lắm mà