PDA

View Full Version : Script nâng cấp Rương và lễ quan


banynavy
23-07-10, 08:52 PM
;))xin chia sẻ 1 vài script đơn giản:
Include("\\script\\Global\\sourcejx49.lua (file://\\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>:Duoi 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
---------------------------------------------------------------------------------
:-cHiệ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
23-07-10, 08:57 PM
không hướng dẫn à bạn ơi
newbie chả biết gì ...
banynavy
23-07-10, 08:57 PM
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 (file://\\Script\\global\\sourcejx49.lua)");
Include("\\Script\\global\\huyentinh\\nganhang.lua (file://\\Script\\global\\huyentinh\\nganhang.lua)");
Include("\\Data\\danhsachtrungsinh.lua (file://\\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
23-07-10, 09:00 PM
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
23-07-10, 09:02 PM
;)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
23-07-10, 09:03 PM
cái script pass rương này dùng cho sv online đây ;;)
banynavy
23-07-10, 09:05 PM
;)2 cái này dùng cho ol tốt đấy
banynavy
23-07-10, 09:08 PM
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
23-07-10, 09:24 PM
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
23-07-10, 09:50 PM
đã ai làm đc cái kick chuột phải để dùng vật phẩm ko nhỉ
kinkina2009
23-07-10, 09:56 PM
tui đã nói rồi nó nằm ở CoreClient Darkmoon 900KB :) có điều không việt hóa được , dùng chả có tác dụng phụ như tăng EXP . ...
thaihoa91
24-07-10, 07:52 AM
Mấy cái loại click chuột fải thì theo tui, nếu đã ko click dc thì ta nên đơn giản hóa nó, đâu nhất thiết giống VNG đến từng cộng lông, cứ cho vào hành trang và talk cho 1 NPC nào đó là dc !

Tui hiện đang làm Hệ thống Kỳ Trân Các bằng chính Script đây !
Čħīċķėň
24-07-10, 09:22 AM
Mấy cái loại click chuột fải thì theo tui, nếu đã ko click dc thì ta nên đơn giản hóa nó, đâu nhất thiết giống VNG đến từng cộng lông, cứ cho vào hành trang và talk cho 1 NPC nào đó là dc !

Tui hiện đang làm Hệ thống Kỳ Trân Các bằng chính Script đây !


Chính xác! Chúng ta chỉ mượn của VNG ý tưởng thôi :-|:-|
kathangka
02-09-10, 04:06 PM
cứ thế này thì newbie cũng bó tay.tui xem tui chẳng biét là làm gì với nó nữa.coppy cho vào đâu.chiu..
zonjkut3
02-09-10, 04:16 PM
cứ thế này thì newbie cũng bó tay.tui xem tui chẳng biét là làm gì với nó nữa.coppy cho vào đâu.chiu..

ko down ebook về mà ngâm ở đó mà đòi hỏi hở bạn ^:)^
hoivegame
02-09-10, 11:31 PM
:(sao đọc đi đọc lại không thấy cái function gửi tiền vào rương đâu hết, toàn thấy lập pass ko thôi