PDA

View Full Version : help pass của chicken


monsterlee
01-10-10, 10:28 PM
Pro nào cho em hỏi cách add pass rương vào Tống Kim Và Đảo tẩy tủy với
tiện thể chỉ em cách add pass rương vào nhân vật NPC chức năng GM với
thaihoa91
01-10-10, 10:37 PM
Mình nghĩ bạn nên down Ebook Giangleloi để học cách add npc thì bạn sẽ bít nên gán code vào đâu à --> <b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
monsterlee
01-10-10, 10:51 PM
ko fai vay anh, em kiếm không ra NPC trong map TK va TT bằng tool NPC
thaihoa91
01-10-10, 11:22 PM
ko fai vay anh, em kiếm không ra NPC trong map TK va TT bằng tool NPC

Do Server dc add bằng hàm bạn à ! Khi bạn Talk thằng Fản Tăng thì lệnh add mới thực thi ! Bạn cần tìm .lua có đoạn code add NPC mà bạn cần tìm !

Điều này bạn cần fải học hàm và viết code thì mới hỉu mà tìm dc đường dẫn .lua mà bạn cần dc !
monsterlee
02-10-10, 12:05 AM
anh thaihoa cho em hỏi lần cuối nha giờ em muốn đổi pass rương mặc định không phải là 6 số 0 nữa thì làm sao
script nè anh ^^ chỉ dùm em lần cuối
-------------------------------------------------------------------------------
------------------ MAKE by chicken --------------------------------------------
-------------------- 29/8/2010 ------------------------------------------------
Include("\\script\\ruong\\list.lua");

idtaskruong = 133 ----- ID task ma ruong
idtasktempp = 157 ----- ID task luu ma ruong tam thoi
idtasktempp1 = 158 ---- ID Task so tang(floor)
idtasktempp2 = 159 ---- ID dieu kien lap mat khau va doi mat khau
tiendoipass = 50000 --- money change pass
function main()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
Say("<color=cyan>Ruong Chua Do:<color> Xin chao lu khach xin hoi nguoi muon gi ?",3,"Mo ruong chua do./morp","Doi mat khau[50v]./tgdmkp","Thoat./no");
end
function no()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
end;
function morp()
SetTaskTemp(idtasktempp2,0)
SetTaskTemp(idtasktempp1,GetTaskTemp(idtasktempp1) +1)
Say("<color=cyan>Ruong Chua Do:<color> Neu lu khach chua lap ma ruong, pass mac dinh se la : <color=green>000000<color>.\nBan hay nhap so thu : <color=blue>"..GetTaskTemp(idtasktempp1).."<color>",11,"0/luupass","1/luupass","2/luupass","3/luupass","4/luupass","5/luupass","6/luupass","7/luupass","8/luupass","9/luupass","Thoat./no");
end
function tgdmkp()
if GetCash() >= tiendoipass then
Pay(tiendoipass)
dmkp()
else
Talk(1,"no","Nguoi ko mang theo du tien ta can.")
end
end
function dmkp()
SetTaskTemp(idtasktempp2,1)
SetTaskTemp(idtasktempp1,GetTaskTemp(idtasktempp1) +1)
Say("<color=cyan>Ruong Chua Do:<color> Neu lu khach chua lap ma ruong, pass mac dinh se la : <color=green>000000<color>.\nMa ruong cu, ban hay nhap so thu : <color=blue>"..GetTaskTemp(idtasktempp1).."<color>",11,"0/luupass","1/luupass","2/luupass","3/luupass","4/luupass","5/luupass","6/luupass","7/luupass","8/luupass","9/luupass","Thoat./no");
end
function morp1()
local a,b,c,d,e,f = phantichpas(GetTask(idtaskruong))
local a1,b1,c1,d1,e1,f1 = phantichpas(GetTaskTemp(idtasktempp))
local tring1 = a..b..c..d..e..f -- chuoi ma ruong
local tring2 = a1..b1..c1..d1..e1..f1 -- chuoi ma ruong moi nhap(tuc thoi)
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
if tring1 == tring2 then
OpenBox()
Msg2Player("Kiem tra ma ruong chinh xac.")
else
Talk(1,"no","Ban da nhap sai ma ruong.\nNeu quen thi ban co the lien he GM de lay lai.");
end
end
function dmkp1()
local a,b,c,d,e,f = phantichpas(GetTask(idtaskruong))
local a1,b1,c1,d1,e1,f1 = phantichpas(GetTaskTemp(idtasktempp))
local tring1 = a..b..c..d..e..f -- chuoi ma ruong
local tring2 = a1..b1..c1..d1..e1..f1 -- chuoi ma ruong moi nhap(tuc thoi)
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
if tring1 == tring2 then
dmkp2()
else
Talk(1,"no","Ban da nhap sai ma ruong.\nNeu quen thi ban co the lien he GM de lay lai.");
end
end
function dmkp2()
SetTaskTemp(idtasktempp2,2)
SetTaskTemp(idtasktempp1,GetTaskTemp(idtasktempp1) +1)
Say("<color=cyan>Ruong Chua Do:<color> Ma ruong moi.\nBan hay nhap ma ruong thu : <color=blue>"..GetTaskTemp(idtasktempp1).."<color>",11,"0/luupass","1/luupass","2/luupass","3/luupass","4/luupass","5/luupass","6/luupass","7/luupass","8/luupass","9/luupass","Thoat./no");
end
function dmkp3()
local a1,b1,c1,d1,e1,f1 = phantichpas(GetTaskTemp(idtasktempp))
local tring2 = a1..b1..c1..d1..e1..f1 -- chuoi ma ruong moi nhap(tuc thoi)
SetTask(idtaskruong,tonumber(tring2))
hoanthanh()
end
function luupass(sel)
local tang = GetTaskTemp(idtasktempp1)
if GetTaskTemp(idtasktempp2) == 0 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
morp()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
morp()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
morp()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
morp()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
morp()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
morp1()
else
no()
end
elseif GetTaskTemp(idtasktempp2) == 1 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
dmkp()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
dmkp()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
dmkp()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
dmkp()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
dmkp()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
dmkp1()
else
no()
end
elseif GetTaskTemp(idtasktempp2) == 2 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
dmkp2()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
dmkp2()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
dmkp2()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
dmkp2()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
dmkp2()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
dmkp3()
else
no()
end
end
end
function hoanthanh()
local a,b,c,d,e,f = phantichpas(GetTask(idtaskruong))
danh_sach_ma[getn(danh_sach_ma)+1] = {GetName(),a..b..c..d..e..f} --Name,MaRuong
local danhsachma = TaoBang(danh_sach_ma,"danh_sach_ma","")
SaveData("script/ruong/list.lua",danhsachma)
Talk(1,"no","Ma Ruong Thiet Lap: "..a..b..c..d..e..f.." thanh cong")
end
function phantichpas(task) --- ham by chicken
--local x,len,a,b,c,d,e,f = GetTask(task),0,0,0,0,0,0,0
local x,len = task,0
local a,b,c,d,e,f = 0,0,0,0,0,0
x = tostring(x)
len = strlen(x)
if len < 6 then
for i=1,(6-len) do
x = "0"..x
end
end
a = tonumber(strsub(x,1,1))
b = tonumber(strsub(x,2,2))
c = tonumber(strsub(x,3,3))
d = tonumber(strsub(x,4,4))
e = tonumber(strsub(x,5,5))
f = tonumber(strsub(x,6,6))
return a,b,c,d,e,f
end;
function TaoBang(tTable, sTableName, sTab) --include cua manh tuyen
sTab = sTab or "";
sTmp = ""
sTmp = sTmp..sTab..sTableName.."={"

local tStart = 0
for key, value in tTable do

if tStart == 1 then
sTmp = sTmp..",\r\n"

else
sTmp = sTmp.."\r\n"
tStart = 1
end
local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);
if(type(value) == "table") then
sTmp = sTmp..TaoBang(value, sKey, sTab.."\t");
else
local sValue = (type(value) == "string") and format("%q",value) or tostring(value);
sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
end

end
sTmp = sTmp.."\r\n"..sTab.."}"
return sTmp

end
function SaveData(file, string) ---Tuy ngan nhung wan trong nhat >''<
file_op = openfile( file, "w+" ) --- a+ la vit them hem xoa file dau -- w+ -- la che do doc ghi xoa file dau
write(file_op,string)
closefile(file_op)
end
kinkina2009
02-10-10, 04:27 PM
Đổi Mật Khẩu --> 000000 --> 6 số mới
thienhavodich
02-10-10, 07:00 PM
sẵn cho hỏi luôn với
làm sao để add script này vào rương , chứ add vào NPC bình thường thì chạy lại rương mở cũng mở dc mà
thaihoa91
02-10-10, 07:01 PM
sẵn cho hỏi luôn với
làm sao để add script này vào rương , chứ add vào NPC bình thường thì chạy lại rương mở cũng mở dc mà

<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
jxvietnam
02-10-10, 08:46 PM
sẵn cho hỏi luôn với
làm sao để add script này vào rương , chứ add vào NPC bình thường thì chạy lại rương mở cũng mở dc mà
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
monsterlee
03-10-10, 12:41 PM
ý của em muốn hỏi là add pass vào NPC giống NPC con chuột chít ở Ba Lăng Huyện của sv mướp đó muốn vào chức năng admin thì phải có pass
Zin Kull
03-10-10, 01:44 PM
Thứ nhất, mấy con NPC Rương chứa đồ ở BLH + TỐNG KIM + ĐẢO TẨY TỦY là add sẵn vào server.
Thứ 2, bạn đến Obj của BLH + TK + ĐTT để sửa lại. View từng file, thấy file nào có OpenBox thì bôi đen xong copy toàn bộ ở script passruong của anh Chickennood vào :| (chép đè)
monsterlee
04-10-10, 04:19 PM
cám ơn anh nhưng em muốn add pass vào NPC chức năng GM để khỏi ai vào sử dụng chức năng đó
tjnakung
01-11-10, 09:18 AM
cám ơn anh nhưng em muốn add pass vào NPC chức năng GM để khỏi ai vào sử dụng chức năng đó

cái này sript GM có qui định sẳn là set tên vào mới sử dụng được cần gi pass set tên của ông vào rôi mình ông xài chứ thèn nào xài được add giửa bl đi thèn nào xài được chết liền ngoài cài tên được set cần gi pass biết mắc công