Script nâng cấp Rương và lễ quan

[banynavy]

xin chia sẻ 1 vài script đơn giản:
Include("\\script\\Global\\sourcejx49.lua");
--Tac gia: bannynavy
-- tính nang tham do y kien nguoi choi đê phat trien tinh nang cho sever
function main(sel)
if GetTask(Taskykien) == 1 then
Talk(1,"","<color=Yellow>LE QUAN<color><pic=16>:Ban da co y kien luc truoc khong the co y kien 2 lan! Thong cam.")
elseif (GetLevel() <= 5) then
Talk(1,"","<color=Yellow>LE QUAN<color><pic=16>uoi cap <color=Yellow>5<color> ban khong the co y kien voi bang dieu hanh game! Thong cam.")
else
SayEx({"<color=Yellow>LE QUAN<color><pic=16>: Ban Quan Tri muon tham do y kien ve viec mo them maps thon lang :",
"Nen mo them/co",
"Khong nen mo./Khong",
"Y kien khac./ykienkhac",
"Thoat./no"})
end
end;
function co()
local IPData = openfile("player_log/Yes.txt", "a");
write(IPData, date("[%y-%m-%d_%H:%M:%S]\n"))
write(IPData,"\tTen: "..GetName().."\n")
MsgEx("Cam on ban rat nhieu");
SetTask(Taskykien,1)
end
function Khong()
local IPData = openfile("player_log/No.txt", "a");
write(IPData, date("[%y-%m-%d_%H:%M:%S]\n"))
write(IPData,"\tTen: "..GetName().."\n")
MsgEx("Cam on ban rat nhieu");
SetTask(Taskykien,1)
end
function ykienkhac()
local IPData = openfile("player_log/none.txt", "a");
write(IPData, date("[%y-%m-%d_%H:%M:%S]\n"))
write(IPData,"\tTen: "..GetName().."\n")
MsgEx("Cam on ban rat nhieu");
SetTask(Taskykien,1)
end
---------------------------------------------------------------------------------
Hiện tại mình đả sử dụng được các questkey như bản nhược và TTK,ThietLahan... bằng cách lick chuột phải nhưng chưa chèn script vào được

[dongahchu]

không hướng dẫn à bạn ơi
newbie chả biết gì ...

[banynavy]

Tiếp theo là script pass rương đơn giản phát triển trên file password của DNT bảo đảm hiệu quả
---------------------------------------------------------------------------------
---------------------------------------------------------
----Author: DNTmaster
----Edit:banynavy
---------------------------------------------------------
Include("\\Script\\global\\sourcejx49.lua");
Include("\\Script\\global\\huyentinh\\nganhang.lua");
Include("\\Data\\danhsachtrungsinh.lua")
KNBTOSETPASS = 1 --So KNB can dung de dat pass ruong
can="Thoat./Exit1"
function main()
if GetTask(76) == 1 then
SayEx({"<color="..colorS()..">Bao Ruong<color> : Ban muon lam gi ?","Ta muon nhap pass./opbox","Ta muon mo ruong./openRuong","Ta khoa ruong./logbox","Ta muon xoa mat khau ruong./xoamaruong",can})
else
SayEx({"<color="..colorS()..">Bao Ruong<color> : Ban muon lam gi ?\nTai day ta cung cap dich vu lap mat ma ruong de tranh trom cap...","Ta muon lap ma ruong./lapmaruong","Ta muon gui tien./nganhang",can})
end;
end
function lapmaruong()
if GetTask(TaskPassRuong) > 1 then
Msg2Player("Ban da co ma ruong roi khong the lap duoc. Hay xoa ma ruong de co the lap lai ma moi...")
else
SayEx({"<color="..colorS()..">Bao Ruong<color> : muon lap duoc ma ruong ban can co <color="..colorS(1)..">1 kim nguyen bao<color>.\nKhi mat ma ruong ban co the lien he voi Admin de lay lai.\nMat ma bao gom co <color=red>4<color> so.Ban co muon lap ma ruong ?","Vang ta muon lap ma ruong./lapmaruong1","Quay lai./main",can})
end
end;
x = random(2,4)
function lapmaruong1()
w,x,y=GetWorldPos()
if GetItemCount(7) >= KNBTOSETPASS then
DelItem(7)
SetTask(76,1)
SetTask(TaskNNN,x+y+w*x)
Say("<color=red>He Thong<color>:Ban nhan duoc mat khau ngau nhien <color=red>"..GetTask(TaskNNN).."<color>",0)
else
Talk(1,"","<color="..colorS()..">Bao Ruong<color> : Nguoi khong dem theo <color="..colorS(1)..">1 kim nguyen bao<color>.Hay quay ve lay di")
end
end;
function opbox()
SayEx({"<color="..colorS()..">Bao Ruong<color> : dien mat ma.","1/number","2/number","3/number","4/number","5/number","6/number","7/number","8/number","9/number","10/number",can})
end;
--* NHAP SO VAO DE KIEM TRA PASS
--BUOC 1
function number(nsel)
if GetTaskTemp(TaskPassRuong) <= 4 then
SetTaskTemp(TaskPassRuong,GetTaskTemp(TaskPassRuon g) + 1)
callnumber(nsel + 1)
elseif GetTaskTemp(TaskPassRuong) > 4 then
Msg2Player("Thoat nhan vat de co the lap lai mat ma...")
end
end;
--BUOC2
function callnumber(id)
if GetTaskTemp(TaskPassRuong) == 1 then
SetTask(TaskPassRuong,1000*id)
Talk(1,"conti","<color="..colorS()..">Bao Ruong<color> : Ban da chon so "..id.." vao bo nho.")
elseif GetTaskTemp(TaskPassRuong) == 2 then
SetTask(TaskPassRuong,GetTask(TaskPassRuong) + (100*id))
Talk(1,"conti","<color="..colorS()..">Bao Ruong<color> : Ban da chon so "..id.." vao bo nho.")
elseif GetTaskTemp(TaskPassRuong) == 3 then
SetTask(TaskPassRuong,GetTask(TaskPassRuong) + (10*id))
Talk(1,"conti","<color="..colorS()..">Bao Ruong<color> : Ban da chon so "..id.." vao bo nho.")
elseif GetTaskTemp(TaskPassRuong) == 4 then
SetTask(TaskPassRuong,GetTask(TaskPassRuong) + id)
Talk(2,"Exit1","<color="..colorS()..">Bao Ruong<color> : Ban da chon so "..id.." vao bo nho.","<color="..colorS()..">Bao Ruong<color> : Mat ma ruong cua ban la "..GetTask(TaskPassRuong)..".")
end
end;
function conti()
SayEx({"<color="..colorS()..">Bao Ruong<color>Buoc 1 : dien mat ma.","1/number","2/number","3/number","4/number","5/number","6/number","7/number","8/number","9/number","10/number",can})
end;
function moruong()
OpenBox();
end;
--TINH NANG CHUA AP DUNG
function checkTaskPassRuong()-- KIEM DUYET PASS RUONG
if GetTask(TaskPassRuong) == GetTask(TaskNNN)then
moruong()
Exit1()
Msg2Player("He thong tu dong luu mat khau ruong vao bo nho.")
else
Talk(1,"Exit1","<color="..colorS()..">Bao Ruong<color> : Ban da dien sai mat ma.Xin hay nhap lai chinh xac...")
end
end;
function openRuong()-- MO RUONG KIEM TRA XEM RUONG DANG TRONG TINH TRANG KHOA HAY KHONG KHOA
checkTaskPassRuong()
end
function Exit1() -- DUA DU LIEU SO LUC NHAP PASS VE 0
SetTaskTemp(TaskPassRuong,0)
end;
function logbox()-- KHOA RUONG LAI
SetTask(TaskPassRuong,0)
Say("<color=red>He Thong<color>:Khoa ruong:<color=green>Success<color>",0)
end;
function xoamaruong()--HO TRO XOA PASS RUONG
if GetTask(TaskPassRuong) > 1 then
Say("<color=red>He Thong<color>:Ban muon xoa pass ruong vui long lien he tai trang chu:<color=green>Website<color>",0)
else
Msg2Player("Ban chua lap ma ruong nen khong the xoa ma ruong...")
end
end;
--------------------------------------------------------------------------------
file hổ trợ script
--------------------Cong Cu-------------------------------
Taskykien=75 ---Y kien cua nguoi choi
Taskbox= 76-- ap dung cho nhung acc Co dan ky passruong
Taskboxs=77-- so lan tra loi sai pass
TaskNNN=78 -- Pass
TaskLogbox=79
-------------------------------------------------------
chép vào trong tasklist

[notfile]

không hướng dẫn à bạn ơi
newbie chả biết gì ...

phải biết script thì mới add dc !!!
nên đọc ebook của giangleloi đi !!!

[banynavy]

mình đã viết được script tu dong kick và lock nick bằng cách chèn 1 đoạn script vào thằng xa phu .những kẻ phá hoại sever khi đi qua xa phu sever sẽ tự kiểm tra số liệu nhân vật đó và lưu dữ liệu khi nc NPC hay đi xa phu

[zonjkut3]

cái script pass rương này dùng cho sv online đây

[banynavy]

2 cái này dùng cho ol tốt đấy

[banynavy]

w,x,y=GetWorldPos()
if GetItemCount(7) >= KNBTOSETPASS then
DelItem(7)
SetTask(76,1)
SetTask(TaskNNN,x+y+w*x)
--------------------------------------------------------------------------------
mình đả dùng hàm random(1000,10999) nhưng khi tét nó chỉ ra 1số nên ko thể dùng được nên đành lấy tọa độ người chơi đang đứng nhân chia công trử đại hơi cùi tí

[kinkina2009]

Hiện tại mình đả sử dụng được các questkey như bản nhược và TTK,ThietLahan... bằng cách lick chuột phải nhưng chưa chèn script vào được

Cái này liên quan CoreClient.dll . Cái của darkmoon là có rồi bạn à nhưng script thì không nhận thôi

[dongahchu]

đã ai làm đc cái kick chuột phải để dùng vật phẩm ko nhỉ