PDA

View Full Version : Xin Srcipt Admin Full chức năng cho Server TSBD Hút hít


azng0cnham
09-08-11, 11:06 PM
TTình hình là Sv này hiện gặp khá nhiều lỗi .
với lại mình đem lên Online mà chức năng GM của Sv này ít quá
mình đã làm theo Hướng dẫn của cauam và có đc 1 Script GM tốt hơn Script của Sv rùi nhưng vẫn chưa đầy đủ
hiện mình muốn có 1 cái Script như sau :

- Full tính năng quản lý Gamer
+ Xem thông tin
+ Kíck khi kẹt nv ( ko hiểu saoi mấy bữa nay cứ kẹt lia chia )
+ Tính năng gọi Boss ( nếu có thể )
+ Tính năng đổi tên NV , đổi tài khoản ( nếu có thể )
+ Sửa Pass rương
+ Xem Thông tin tài khoản ( id + pass + tên NV + cấp )
........
Không biết thiếu sót gì khộng . nếu đc xin các bạn bổ sung thêm giùm mình
Và tất tần tật các tính năng cần thiết cho 1 Admin

Yêu cầu mình là hơi quá đáng . nhưng hiện Sv lỗi thì khác nhiều , mà mình thì lại kém tài .

rất mong được sự giúp đở của các bạn để mình có thể Test Sv này tận tình hơn
mọi lỗi gặp đc mình sẽ góp ý lại hết cho các bạn tìm tìu và fix lỗi . như vậy chúng ta sẽ sớm có đc 1 JX hoàn thiệnn hơn

Ý mình là xin
Và cũng có ý giúp

Mong các bạn giúp đỡ
Edward_Newgate
10-08-11, 07:07 AM
Ui cũng nhiều tính năng hay thế này thì bạn chắc là phải hậu tạ chứ ko có xin ko đâu :)
Ai lại rảnh ngồi viết ko cho bạn mấy cái này
azng0cnham
10-08-11, 12:46 PM
mình thấy cái Script của bạn cauam share đã khá ổn rồi
chỉ thiếu cái quản lí id nhân vật thôi
vậy bạn master cho mình hỏi cách bỏ Script pass rương thôi đc ko ?
cauam.tapiu
10-08-11, 06:24 PM
cái đó thì dùng vl_account_manager script không làm dc mấy cái đó đâu :D
Phong_JxOnline
04-07-12, 06:40 PM
TTình hình là Sv này hiện gặp khá nhiều lỗi .
với lại mình đem lên Online mà chức năng GM của Sv này ít quá
mình đã làm theo Hướng dẫn của cauam và có đc 1 Script GM tốt hơn Script của Sv rùi nhưng vẫn chưa đầy đủ
hiện mình muốn có 1 cái Script như sau :

- Full tính năng quản lý Gamer
+ Xem thông tin
+ Kíck khi kẹt nv ( ko hiểu saoi mấy bữa nay cứ kẹt lia chia )
+ Tính năng gọi Boss ( nếu có thể )
+ Tính năng đổi tên NV , đổi tài khoản ( nếu có thể )
+ Sửa Pass rương
+ Xem Thông tin tài khoản ( id + pass + tên NV + cấp )
........
Không biết thiếu sót gì khộng . nếu đc xin các bạn bổ sung thêm giùm mình
Và tất tần tật các tính năng cần thiết cho 1 Admin

Yêu cầu mình là hơi quá đáng . nhưng hiện Sv lỗi thì khác nhiều , mà mình thì lại kém tài .

rất mong được sự giúp đở của các bạn để mình có thể Test Sv này tận tình hơn
mọi lỗi gặp đc mình sẽ góp ý lại hết cho các bạn tìm tìu và fix lỗi . như vậy chúng ta sẽ sớm có đc 1 JX hoàn thiệnn hơn

Ý mình là xin
Và cũng có ý giúp

Mong các bạn giúp đỡ

+Kíck khi kẹt nv . dùng tool nhé bạn

+ Xem Thông tin tài khoản , chức năng Admin lun có
+ Sửa Pass rương , sửa thì có người share rùi bạn cố gắng tìm mò nhé
tongminhkhanh
04-07-12, 09:25 PM
của bạn đây :)) sv huthit TSBD 3.0 nhé, cậu xem tham khảo . có gọi boss và kick nhân vật ở quản lý game đó. GM: GameMaster - 111111



Include("\\script\\global\\Get_NPC.lua")
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\Áẵºỵầứ\\°ÍÁờẽỉ\\npc\\ luyencong.lua")
Include("\\script\\source\\timerserver.lua")
Include("\\dulieu\\quyensohuu.lua")
Include("\\script\\manager.lua")

server = 0
function khoidong()
w,x,y = GetWorldPos()
--if w == 53 then
if server == 0 then
SetGlbMissionV(27,1)
--SetGlbMissionV(50,150)
print("")
print("| Server JX by Jxvietnam develop and edit |")
antihack()
npcallmaps()
server = 1
else
xaphu()
end
--else
--xaphu()
--end
end


function antihack()
curidx = SubWorld
idx = SubWorldID2Idx(1);
if idx == -1 then
Msg2Player("Không Thể Chạy Anti Vì Map Chưa Mở !")
return
end
SubWorld = idx;
OpenMission(1);
StartMissionTimer(1,14,60*18);
end;

listgm={{"GameMaster","Admin"},{"","Admin"},{"","Admin"},{"","Admin"},{"",""}}

function admincheck()
for i=1,getn(listgm) do
if GetName() == listgm[i][1] then
if listgm[i][2] == "Admin" then
return 1
end
end
end
return 2
end


function main()
if admincheck() == 1 then
SayEx({"<color=cyan>Xa Phu:<color> Xin chào ngươi muốn đi đâu nào ?",
"Trở lại điểm cũ/backupdiadiem",
"Khu vực thành thị/thanhthi",
"Khu vực luyện công/luyencong",
"Thay đổi trạng thái/doimau",
"Nhận vật phẩm+ero/theboss",
"Nhận điểm/getpoint",
"KN90/kynang90",
"Đảo tẩy tủy/daott",
"Chức năng Admin/WritePass",
"Thoát/Exit"})
elseif admincheck() == 2 then
SayEx({"<color=cyan>Xa Phu:<color> Xin chào ngươi muốn đi đâu nào ?",
"Trở lại điểm cũ/backupdiadiem",
"Khu vực thành thị/thanhthi",
"Khu vực luyện công/luyencong",
"Thay đổi trạng thái/doimau",
"Đảo tẩy tủy/daott",
"Thoát/Exit"})
end
end

function doimau()
Say("Phí thay đổi là 5000 lượng 1 lần",6,
"Luyện công/doimau1",
"Chính phái/doimau1",
"Tà phái /doimau1",
"Trung lập /doimau1",
"Sát thủ /doimau1",
"Thoát./no")
end

function doimau1(sel)
if GetCash() >= 5000 then
Pay(5000)
SetCamp(sel)
SetCurCamp(sel)
else
Talk(1,"","<color=red>Ngươi không có 5000 lượng !")
end
end

function theboss()
AddEventItem(129)
AddEventItem(137)
AddEventItem(137)
AddEventItem(137)
AddEventItem(137)
AddEventItem(137)
Msg2Player("Bạn nhận được the Boss")
end;

function getpoint()
SayEx({"<color=cyan>Xa phu ",
"Điểm Tiềm Năng/pointtiemnang",
"Thoát/Exit"})
end;

function pointtiemnang()
AddProp(5000)
Msg2Player("Bạn nhận được 5000 điểm tiềm năng ");
KickOutSelf()
end;

function kynang90()
SayEx({"<color="..colorS()..">Hệ thống: ",
"Thiên Vương /tv90",
"Thiếu Lâm /tl90",
"Đường Môn /dm90",
"Ngũ Độc /nd90",
"Nga My /nm90",
"Thuý Yên /ty90",
"Võ Đang /vd90",
"Thiên Nhẫn /tn90",
"Côn Lôn /cl90",
"Cái Bang /cb90",
"Thoát /no"});
end;
--======================
function nd90()
AddMagic(118,20)
AddMagic(120,20)
AddMagic(123,20)
Msg2Player("Bạn đã học được kỹ năng 90 Ngũ Độc ");
end;
--======================
function tv90()
AddMagic(59,20)
AddMagic(57,20)
AddMagic(55,20)
Msg2Player("Bạn đã học được kỹ năng 90 Thiên Vương ");
end;
--======================
function tl90()
AddMagic(20,20)
AddMagic(22,20)
AddMagic(24,20)
Msg2Player("Bạn đã học được kỹ năng 90 Thiếu Lâm ");
end;
--======================
function dm90()
AddMagic(88,20)
AddMagic(91,20)
AddMagic(94,20)
AddMagic(96,20)
Msg2Player("Bạn đã học được kỹ năng 90 Đường Môn ");
end;
--======================
function nm90()
AddMagic(323,20)
AddMagic(149,20)
AddMagic(151,20)
Msg2Player("Bạn đã học được kỹ năng 90 Nga My ")
end;
--======================
function ty90()
AddMagic(169,20)
AddMagic(172,20)
Msg2Player("Bạn đã học được kỹ năng 90 Thuý Yên ")
end;
--======================
function cb90()
AddMagic(325,20)
AddMagic(328,20)
Msg2Player("Bạn đã học được kỹ năng 90 Cái Bang ")
end;
--======================
function tn90()
AddMagic(214,20)
AddMagic(216,20)
AddMagic(218,20)
Msg2Player("Bạn đã học được kỹ năng 90 Thiên Nhẫn ")
end;
--======================
function vd90()
AddMagic(236,20)
AddMagic(239,20)
Msg2Player("Bạn đã học được kỹ năng 90 Võ Đang ")
end;
--======================
function cl90()
AddMagic(269,20)
AddMagic(272,20)
AddMagic(274,20)
Msg2Player("Bạn đã học được kỹ năng 90 Côn Lôn ")
end;

function daott()
if GetLevel() >= 50 then
if GetTask(52) == 0 then
Say("<color=blue>Xa Phu:<color> 1 nhân vật cấp 50 được đến <color=fire>đảo tẩy tủy<color> miễn phí <color=fire>1 lần,<color> ngươi sẽ đi chứ ?", 2,"Đi đảo tu luyện/daottdimp","Thoát/no")
else
Say("<color=blue>Xa Phu:<color> Để tẩy tiềm năng cần 6 THBT<enter>Để tẩy kỹ năng cần 3 loại TT<enter>Để tẩy tiềm năng + kỹ năng cần 3 TT, 6 THBT", 4,"Tẩy kỹ năng/daottdi","Tẩy tiềm năng/daottdi","Tẩy tiềm năng + kỹ năng/daottdi","Thoát/no")
end
else
Talk(1,"","Đẳng cấp thấp hơn 50, ko thể đi đảo tẩy tủy")
end
end

function daottdimp()
SetTask(52,GetTask(52)+1)
MoveNPC(50,201,199,9,8,0,0);
SetTempRevPos(50,200*8*32,199*16*32)
Msg2Player("Bạn đã đến đảo luyện skill .....");
SetFightState(1)
SetRevPos(0)
SetLogoutRV(0)
end;

function daottdi(sel)
n = sel + 1
if n == 1 then
if (GetItemCount(28) >= 1) and (GetItemCount(29) >= 1) and (GetItemCount(30) >= 1) then
DelItem(28)
DelItem(29)
DelItem(30)
SetTask(52,2)
MoveNPC(50,201,199,9,8,0,0);
SetTempRevPos(50,200*8*32,199*16*32)
Msg2Player("Bạn đã đến đảo tẩy tủyl .....");
SetFightState(1)
SetRevPos(0)
SetLogoutRV(0)
else
Talk(1,"no","Các hạ không có đủ <color=red>Tử Thủy Tinh, Lam Thủy Tinh, Lục Thủy Tinh<color>")
end
elseif n == 2 then
if GetItemCount(31) >= 6 then
SetTask(52,3)
for i=1,6 do DelItem(31) end
MoveNPC(50,201,199,9,8,0,0);
SetTempRevPos(50,200*8*32,199*16*32)
Msg2Player("Bạn đã đến đảo tẩy tủyl .....");
SetFightState(1)
SetRevPos(0)
SetLogoutRV(0)
else
Talk(1,"no","Các hạ không có đủ <color=red>6 Tính Hồng Bảo Thạch<color>")
end
elseif n == 3 then
if (GetItemCount(28) >= 1) and (GetItemCount(29) >= 1) and (GetItemCount(30) >= 1) and (GetItemCount(31) >= 6) then
DelItem(28)
DelItem(29)
DelItem(30)
SetTask(52,4)
for i=1,6 do DelItem(31) end
MoveNPC(50,201,199,9,8,0,0);
SetTempRevPos(50,200*8*32,199*16*32)
Msg2Player("Bạn đã đến đảo tẩy tủyl .....");
SetFightState(1)
SetRevPos(0)
SetLogoutRV(0)
else
Talk(1,"no","Các hạ không có đủ <color=red>3 loại thủy tinh và 6 Tính Hồng Bảo Thạch<color>")
end
end
end
function backupdiadiem()
ReturnFromPortal()
end

function thanhthi()
w,x,y = GetWorldPos()
if w == 53 then
SayEx({"<color=cyan>Xa Phu<color>: Ngươi muốn đi đâu ?","Tương Dương/tuongduong","Phượng Tường/phuongtuong","Thành Đô/thanhdo","Thoát/no"})
elseif w == 37 then -- tuong duong
SayEx({"<color=cyan>Xa Phu<color>: Ngươi muốn đi đâu ?","Phượng Tường/phuongtuong","Thành Đô/thanhdo","Ba Lăng Huyện/balang","Thoát/no"})
elseif w == 36 then -- phuong tuong
SayEx({"<color=cyan>Xa Phu<color>: Ngươi muốn đi đâu ?","Tương Dương/tuongduong","Thành Đô/thanhdo","Ba Lăng Huyện/balang","Thoát/no"})
elseif w == 40 then -- thanh do
SayEx({"<color=cyan>Xa Phu<color>: Ngươi muốn đi đâu ?","Tương Dương/tuongduong","Phượng Tường/phuongtuong","Ba Lăng Huyện/balang","Thoát/no"})
else
SayEx({"<color=cyan>Xa Phu<color>: Ngươi muốn đi đâu ?","Tương Dương/tuongduong","Phượng Tường/phuongtuong","Thành Đô/thanhdo","Ba Lăng Huyện/balang","Thoát/no"})
end
end

function tuongduong()
if GetCash() >= 500 then
post = random(0,3)
if post == 0 then
NewWorld(37,1589,3374)
Msg2Player("Ngồi yên ! Đang đi đến Tương Dương...")
SetRevPos(53,200*8,200*16)
elseif post == 1 then
NewWorld(37,1436,3216)
Msg2Player("Ngồi yên ! Đang đi đến Tương Dương...")
SetRevPos(53,200*8,200*16)
elseif post == 2 then
NewWorld(37,1507,3139)
Msg2Player("Ngồi yên ! Đang đi đến Tương Dương...")
SetRevPos(53,200*8,200*16)
elseif post == 3 then
NewWorld(37,1695,3236)
Msg2Player("Ngồi yên ! Đang đi đến Tương Dương...")
SetRevPos(53,200*8,200*16)
end
Earn(500)
else
Talk(1,"","Không có 500 lượng")
end

end
function phuongtuong()
if GetCash() >= 500 then
post = random(0,3)
if post == 0 then
NewWorld(36,1644,3275)
Msg2Player("Ngồi yên ! Đang đi đến Phượng Tường...")
SetRevPos(53,200*8,200*16)
elseif post == 1 then
NewWorld(36,1522,3231)
Msg2Player("Ngồi yên ! Đang đi đến Phượng Tường...")
SetRevPos(53,200*8,200*16)
elseif post == 2 then
NewWorld(36,1560,3113)
Msg2Player("Ngồi yên ! Đang đi đến Phượng Tường...")
SetRevPos(53,200*8,200*16)
elseif post == 3 then
NewWorld(36,1652,3167)
Msg2Player("Ngồi yên ! Đang đi đến Phượng Tường...")
SetRevPos(53,200*8,200*16)
end
Earn(500)
else
Talk(1,"","Không có 500 lượng")
end
end
function duongchau()
post = random(0,3)
if post == 0 then
MoveNPC(39,209,187,0+random(-2,2),3+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Dương Châu...")
SetRevPos(53,200*8,200*16)
elseif post == 1 then
MoveNPC(39,199,200,5+random(-2,2),1+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Dương Châu...")
SetRevPos(53,200*8,200*16)
elseif post == 2 then
MoveNPC(39,215,200,5+random(-2,2),8+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Dương Châu...")
SetRevPos(53,200*8,200*16)
elseif post == 3 then
MoveNPC(39,229,191,3+random(-2,2),2+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Dương Châu...")
SetRevPos(53,200*8,200*16)
end
end
function thanhdo()
if GetCash() >= 500 then
post = random(0,3)
if post == 0 then
NewWorld(40,3194,5193)
Msg2Player("Ngồi yên ! Đang đi đến Thành Đô...")
SetRevPos(53,200*8,200*16)
elseif post == 1 then
NewWorld(40,3013,5097)
Msg2Player("Ngồi yên ! Đang đi đến Thành Đô...")
SetRevPos(53,200*8,200*16)
elseif post == 2 then
NewWorld(40,3024,4959)
Msg2Player("Ngồi yên ! Đang đi đến Thành Đô...")
SetRevPos(53,200*8,200*16)
elseif post == 3 then
NewWorld(40,3270,5001)
Msg2Player("Ngồi yên ! Đang đi đến Thành Đô...")
SetRevPos(53,200*8,200*16)
end
Earn(500)
else
Talk(1,"","Không có 500 lượng")
end
end
function bienkinh()

post = random(0,3)
if post == 0 then
MoveNPC(38,204,199,6+random(-2,2),0+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Biện Kinh...")
SetRevPos(53,200*8,200*16)
elseif post == 1 then
MoveNPC(38,213,201,3+random(-2,2),8+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Biện Kinh...")
SetRevPos(53,200*8,200*16)
elseif post == 2 then
MoveNPC(38,233,182,5+random(-2,2),8+random(-2,2),500,0);
Msg2Player("Ngồi yên ! Đang đi đến Biện Kinh...")
SetRevPos(53,200*8,200*16)
elseif post == 3 then
MoveNPC(38,199,187,7+random(-2,2),6+random(-2,2),500,0);
SetRevPos(53,200*8,200*16)
Msg2Player("Ngồi yên ! Đang đi đến Biện Kinh...")
end;
end
function balang()
MoveNPC(53,197,202,6+random(-2,2),4+random(-2,2),500,0);
SetRevPos(53,200*8,200*16)
Msg2Player("Ngồi yên ! Đang đi đến Ba Lăng Huyện...")
end
function giangtan()
MoveNPC(25,432,382,3+random(-2,2),1+random(-2,2),500,0);
Msg2Player("Ngoi Yen ! Dang di den Giang Tan Thon...")
end
function namnhac()
MoveNPC(26,198,193,4+random(-2,2),8+random(-2,2),500,0);
Msg2Player("Ngoi Yen ! Dang di den Nam Nhac Tran...")
end


------------------------Fan PassWorld ADMIN thay doi tu do----
MATKHAU = {1,1,1,1,1,1}
function WritePass()
if GetTaskTemp(57) == 1 then
manager()
else
SayEx({"<color=red>Hệ thống<color>: Xin mời nhập pass :",
"1./number",
"2./number",
"3./number",
"4./number",
"5./number",
"6./number",
"7,/number",
"8./number",
"9./number",
"0./number",
"Thoát./finish"})
end
end

function number(sel)
id = sel + 1
if id == 10 then
id = 0
end
if GetTaskTemp(55) == 0 then
if (id == MATKHAU[1]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
end
elseif GetTaskTemp(55) == 1 then
if (id == MATKHAU[2]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
end
elseif GetTaskTemp(55) == 2 then
if (id == MATKHAU[3]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
end
elseif GetTaskTemp(55) == 3 then
if (id == MATKHAU[4]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
end
elseif GetTaskTemp(55) == 4 then
if (id == MATKHAU[5]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
WritePass()
Msg2Player("Bạn đã nhập số "..id.."")
end
elseif GetTaskTemp(55) == 5 then
if (id == MATKHAU[6]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
Msg2Player("Bạn đã nhập số "..id.."")
CheckPass()
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,1)
CheckPass()
Msg2Player("Bạn đã nhập số "..id.."")
end

end
end

function finish()
KickOutSelf()
end

function CheckPass()
if GetTaskTemp(56) >= 1 then
Talk(1,"finish","Admin Server:\nBảo vệ tính năng Admin rất quan trọng !")
else
SetTaskTemp(55,0)
SetTaskTemp(57,1)
Msg2Player("Pass chính xác, tính năng đã mở")
manager()
end
end