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

[yeumayluon]

thì đại khái là check trang bị khóa -> nếu nó khóa thì out - còn ko khóa thì tiếp tục ( giống như check adm ) nôm na vậy đi

Check sao để biết nó khóa hay không?
mình thấy chỉ có LockItem(index) và LockItem(index,0)

[thesky1992]

Thánh nào share ra cho anh em bộ sript đã Dev thêm vài tính năng với ,em là newbie nên ko bik gì về code sript : Tống kim ,Liên đấu ,Công thành ,Vượt ải ,Nhiệm vụ Dã tẩu ,Nhiệm vụ Hoàng kim
sau cùng là cảm ơn lòng hảo tâm trước

[yeumayluon]

Thánh nào share ra cho anh em bộ sript đã Dev thêm vài tính năng với ,em là newbie nên ko bik gì về code sript : Tống kim ,Liên đấu ,Công thành ,Vượt ải ,Nhiệm vụ Dã tẩu ,Nhiệm vụ Hoàng kim
sau cùng là cảm ơn lòng hảo tâm trước

Mình thấy mấy cái đó có sẵn rồi mà

[niconut]

a Thái a cho e hỏi là cái questkey lb admin có hàm
Include("\\script\\global\\npcchucnang\\trogiup.lu a");


function main()
dofile("script/global/npcchucnang/trogiup.lua")
chucnangadm()
end


function useitem(nItemIdx)
chucnangadm()
end;

function no()
end;
như vậy khi e sửa bên file trogiup.lua thì nó phải save lại cho e ,tại sao e sữa nhưng k save được e phải tắt mở sv lại thì mới save ,e dùng dofile vậy đúng chưa hay e còn thiếu file gì nữa??
với lại cho e hỏi là muốn dropate cho vat phẩm event rớt ra thì vào file dropate thêm như tnào?
đây là hàm của quái 10x

function DropRate(NpcIndex)
local btype = GetBossType(NpcIndex);
local ser = GetNpcSer(NpcIndex);
local pluck = GetLucky(); --may man cua nguoi choi
local maxlev = 5;
local nSel = random(0,10);
local nItemIdx = 0;
if(RANDOM(750) <= pluck) then
maxlev = 10
end
----------------For blue boss-----------------------------------------------------------
if(btype == 1) then--boss xanh
local bluedetail,blueparti,dropnum;
dropnum = 8; --so' luong. cuc. do` roi
for i=1,dropnum do
nSel = random(0,10);
if(nSel < 5) then
DropNpcMoney(NpcIndex,MONEY)
elseif(nSel == 9) then
nItemIdx = ItemSetAdd(0, 2,12,0,0,5,0,0);
SetItemPickDel(nItemIdx,1)
DropNpcItemID(NpcIndex, nItemIdx);
else
nSel = RANDOM(1000);
if (nSel==999) then
DropNpcItem(NpcIndex, 0, 2,7,0,0,5,0,0);--phi phong
elseif(nSel == 899) then
DropNpcItem(NpcIndex, 0, 4,15,0,0,5,0,0) --bikip cui`
elseif(nSel == 799) then
DropNpcItem(NpcIndex, 0, 4,25,0,0,5,0,0) --bikip cui`
elseif(nSel == 699) then
DropNpcItem(NpcIndex, 0, 4,30,0,0,5,0,0) --bikip cui`
else
bluedetail = RANDOM(9);
blueparti = RANDOM(ITEMLIST[bluedetail+1]);
DropNpcItem(NpcIndex, 0, 0,bluedetail,blueparti,RANDOM(8,10),ser,pluck,
RANDOM(1,maxlev),RANDOM(maxlev),RANDOM(maxlev),RAN DOM(maxlev),RANDOM(maxlev),RANDOM(maxlev));
end;
end
end
return end
-----------------------------------------------------------------------------------------
if(nSel > 5) then --khong rot
return end
----------------------------------------------------------------------------------------
local minluck = 0;
local detail = RANDOM(9);
local parti = RANDOM(ITEMLIST[detail+1]);
if(nSel < 2) then
DropNpcMoney(NpcIndex,MONEY)
elseif(nSel == 5) then
nItemIdx = ItemSetAdd(0, 2,4,0,0,5,0,0);
SetItemPickDel(nItemIdx,1)
DropNpcItemID(NpcIndex, nItemIdx);
else
if(RANDOM(pluck) > 0) then
minluck = 1;
end
DropNpcItem(NpcIndex, 0, 0,detail,parti,RANDOM(6,10),ser,pluck,
RANDOM(minluck,maxlev),RANDOM(maxlev),RANDOM(maxle v),RANDOM(maxlev),RANDOM(maxlev),RANDOM(maxlev))
end
--event----------------
dropevent(NpcIndex);
-------------------------------------------------------------------------------
end

a xem cái phần event e làm đúng k? nhưng sao đánh k rớt ra vật phẩm?

[emnhochi]

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")endfunction 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

Đây là scrip của bác Yeumayluon giờ mình muốn dùng nó để xóa item đã khóa vĩnh viễn như ngựa, thần hành phù thì làm thế nào mọi người.

[killer20099]

a Thái a cho e hỏi là cái questkey lb admin có hàm
Include("\\script\\global\\npcchucnang\\trogiup.lu a");


function main()
dofile("script/global/npcchucnang/trogiup.lua")
chucnangadm()
end


function useitem(nItemIdx)
chucnangadm()
end;

function no()
end;
như vậy khi e sửa bên file trogiup.lua thì nó phải save lại cho e ,tại sao e sữa nhưng k save được e phải tắt mở sv lại thì mới save ,e dùng dofile vậy đúng chưa hay e còn thiếu file gì nữa??
với lại cho e hỏi là muốn dropate cho vat phẩm event rớt ra thì vào file dropate thêm như tnào?
đây là hàm của quái 10x

khi nào rãnh onl yh a pm cho nha !

[huycnt]

Show bộ fifong a e coi chơi

[Only registered and activated users can see links. ]

[Only registered and activated users can see links. ]

sao mình bị lỗi giao diện game với không click đc vào đồ trong hành trang nhỉ? mình đã sửa lại file page.ini rồi mà ko đc. mình xài client miễn phí của vng

[yeumayluon]

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")endfunction 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

Đây là scrip của bác Yeumayluon giờ mình muốn dùng nó để xóa item đã khóa vĩnh viễn như ngựa, thần hành phù thì làm thế nào mọi người.

xóa item của bạn đây, xóa từng món một

QUANHIEU = "§Æt vµo qu¸ nhiÒu"
KHACLOAI = "Kh«ng ®óng lo¹i hoÆc kh«ng cã g×"

 function nopitem()
PutItem("H·y ®Æt trang bÞ hoÆc vËt phÈm cÇn xãa, ®Æt tõng mãn mét","y/xoaitem","n/no")
end
function xoaitem()
	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;
	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;
				nIndex,kind,genre,detail,parti,level,series,row = nTempIndex,Tkind,Tgenre,Tdetail,Tparti,Tlevel,Tseries,Trow;
			end
		end
	end
	if(count < 1) then
		Talk(1,"",KHACLOAI)
	return end
	if(count > 1) then
		Talk(1,"",QUANHIEU)
	return end
	if count == 1 then
RemoveItem(nIndex,1)
	Msg2Player("Xãa vËt phÈm thµnh c«ng")
end
end

[emnhochi]

Thank bác nhiều nha. Đang cần cái này...

[niconut]

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