PDA

View Full Version : [JX] Script quản lý người chơi cơ bản cho Jx Linux - Dựa trên Script BFF


bthhhz
10-10-15, 05:28 PM
Không dài dòng đi thẳng vấn đề.
Các bạn nhìn là sẽ hiểu . Tùy biến nhé các bạn đây chỉ là script đơn giản
------------------------------------- Quan Ly Nguoi Choi --------------------------------

wel="Lùa chän PlayIndex cÇn chän - Script By bthhh1995"
wel1="Lùa chän PlayIndex cÇn chän - Script By bthhh1995"
fir="1-10/first"
sec="11-20/second"
thr="21-30/third"
fou="31-40/forth"
fif="41-50/fifth"
six1="51-60/sixth"
sev="61-70/seventh"
eig="71-80/eighth"
nin="81-90/ninth"
ten="91-100/tenth"
------------------
fir10="101-110/first10"
sec10="111-120/second10"
thr10="121-130/third10"
fou10="131-140/forth10"
fif10="141-150/fifth10"
six10="151-160/sixth10"
sev10="161-170/seventh10"
eig10="171-180/eighth10"
nin10="181-190/ninth10"
ten10="191-200/tenth10"
------------------
fir20="201-210/first20"
sec20="211-220/second20"
thr20="221-230/third20"
fou20="231-240/forth20"
fif20="241-250/fifth20"
six20="251-260/sixth20"
sev20="261-270/seventh20"
eig20="271-280/eighth20"
nin20="281-290/ninth20"
ten20="291-300/tenth20"
------------------
can="Thoat/no"
on="1/one"
tw="2/two"
th="3/three"
fo="4/four"
fi="5/five"
si="6/six"
se="7/seven"
ei="8/eight"
ni="9/nine"
ze="0/zero"
sk="Thªm 5 cÊp./tangcap"
it="Thªm 100 tiÒn ®ång./buffskillsgm"
mov="Di chuyÓn vÒ Ba L¨ng HuyÖn/move"
kic="Kick nh©n vËt./kick"
exppp="CÊm ch¸t./camchat"
bufftp="Më ch¸t./mochat"
buffskills="Buff ®iªm tù chän./buffpoint"
inv="Th«ng tin nh©n vËt./invest"
nex="Next/next"
nex2="Next/next2"
cscs="Thªm 1000 v¹n/themtienvan"

function system()

local tbSay = {}
tinsert(tbSay,"Th«ng tin ID nh©n vËt/Show")
tinsert(tbSay,"Lùa chän ID nh©n vËt/luachonid")
tinsert(tbSay,"KÕt thóc ®èi tho¹i/Quit")
Say("<color=red>Script Qu¶n Lý Ng­êi Ch¬i By <bclr=green> bthhh1995<bclr><color>", getn(tbSay), tbSay)
end

function Show()
local tbSay = {}
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (1~100)/Show100")
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (101~200)/Show200")
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (201~300)/Show300")
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (301~400)/Show400")
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (401~500)/Show500")
tinsert(tbSay,"Th«ng tin ng­êi ch¬i (501~600)/Show600")
tinsert(tbSay,"Trë vÒ Menu/system")
Say("<color=red>Script Qu¶n Lý Ng­êi Ch¬i By <bclr=green>bthhh1995<bclr><color>", getn(tbSay), tbSay)
end

function Show100()
for i=1,100 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end
end;

function Show200()
for i=101,200 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end
end;

function Show300()
for i=201,300 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end

end;function Show400()
for i=301,400 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end
end;

function Show500()
for i=401,500 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end
end;
function Show600()
for i=501,600 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID: "..i.." Tªn: "..TarName.."");
end
end;

function luachonid()
Say(wel,12,fir,sec,thr,fou,fif,six1,sev,eig,nin,te n,nex,can)
end;

function next()
Say(wel,12,fir10,sec10,thr10,fou10,fif10,six10,sev 10,eig10,nin10,ten10,nex2,can)
end;

function next2()
Say(wel,11,fir20,sec20,thr20,fou20,fif20,six20,sev 20,eig20,nin20,ten20,can)
end;
------------------------------------------------------------------------------------------------------------------------------------------

function first()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,0)
end;

function second()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,1)
end;

function third()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,2)
end;

function forth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,3)
end;

function fifth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,4)
end;

function sixth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,5)
end;

function seventh()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,6)
end;

function eighth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,7)
end;

function ninth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,8)
end;

function tenth()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,9)
end;

function first10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,10)
end;

function second10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,11)
end;

function third10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,12)
end;

function forth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,13)
end;

function fifth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,14)
end;

function sixth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,15)
end;

function seventh10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,16)
end;

function eighth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,17)
end;

function ninth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,18)
end;

function tenth10()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,19)
end;

function first20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,20)
end;

function second20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,21)
end;

function third20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,22)
end;

function forth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,23)
end;

function fifth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,24)
end;

function sixth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,25)
end;

function seventh20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,26)
end;

function eighth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,27)
end;

function ninth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,28)
end;

function tenth20()
Say(wel, 11, on, tw, th, fo, fi, si, se, ei, ni, ze, can);
SetTaskTemp(200,29)
end;

function one()
n=GetTaskTemp(200)
if ((n*10+1)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+1)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function two()
n=GetTaskTemp(200)
if ((n*10+3)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+2)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function three()
n=GetTaskTemp(200)
if ((n*10+2)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+3)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function four()
n=GetTaskTemp(200)
if ((n*10+4)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+4)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function five()
n=GetTaskTemp(200)
if ((n*10+5)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+5)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function six()
n=GetTaskTemp(200)
if ((n*10+6)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+6)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");

Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;


function seven()
n=GetTaskTemp(200)
if ((n*10+7)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+7)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;


function eight()
n=GetTaskTemp(200)
if ((n*10+8)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+8)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;


function nine()
n=GetTaskTemp(200)
if ((n*10+9)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+9)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;


function zero()
n=GetTaskTemp(200)
if ((n*10+10)>GetPlayerCount()) then
Msg2Player("Kh«ng cã nh©n vËt víi ID ®­îc chän !!");
else
SetTaskTemp(200,n*10+10)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end;

function themtienvan()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· thªm tiÒn v¹n cho b¹n !");
Earn(10000000)
PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n thªm tiÒn v¹n thµnh c«ng");
end;

function buffskillsgm()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· chuyÓn tiÒn ®ång cho b¹n !");
AddStackItem(100,4,417,1,1,0,0,0)
PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n t¨ng tiÒn ®ång thµnh c«ng");
end;

function buffpoint()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· t¨ng ®iÓm theo yªu cÇu!");

PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n t¨ng ®iÓm theo yªu cÇu thµnh c«ng");
end;

function tangcap()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· t¨ng cÊp ®é cho b¹n !");
for i=1,5 do
AddOwnExp(999999999999)
end
PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n t¨ng cÊp ®é thµnh c«ng");
end;

function move()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
w,x,y=GetWorldPos()
if (w~=53) then
SetFightState(0)
NewWorld(53,200*8,200*16)
else
SetPos(1630, 3255)
end
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· di chuyÓn b¹n vÒ Ba L¨ng HuyÖn");
PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n di chuyÓn vÒ Ba LÆng HuyÖn thµnh c«ng");
end

function invest()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
lev=GetLevel()
xp=GetExp()
cam=GetCamp()
fac=GetFaction()
cash=GetCash()
lif=GetExtPoint(1)
man=GetMana()
apo=GetEnergy()
spo=GetRestSP()
cr=GetColdR()
pr=GetTask(747)
phr=GetPhyR()
fr=GetFireR()
lr=GetLightR()
eng=GetEng()
dex=GetDex()
strg=GetStrg()
vit=GetVit()
w,x,y=GetWorldPos()
PlayerIndex=gmidx
--Say("Nhan vat Nhan vat Nhan vat ÐÝ", 6,"Nhan vat Nhan vat /jinyan", "Nhan vat /jiejin", "Nhan vat Nhan vat /invest1", "Nhan vat Nhan vat /invest2", "Nhan vat IPNhan vat /ipxinx", can);
Say("Nhan vat Nhan vat Nhan vat ÐÝ", 4, "Th«ng tin ng­êi ch¬i /invest1", "C¸c lo¹i ®iÓm ng­êi ch¬i/invest2", "§Þa chØ IP nh©n vËt/ipxinx", can);

end;

function invest1()
Talk(2,"","<color=pink>"..ObjName.."<color> - §¼ng cÊp <color=Red>"..lev.."<color> - §iÓm kinh nghiÖm hiÖn t¹i <color=Red>"..xp.."<color> - Tæng tiÒn v¹n trªn hµnh trang <color=Red>"..cash.."<color> Täa §é <color=Red>"..w.."<color>,<color=Red>"..x.."<color>,<color=Red>"..y.."<color>")
Msg2Player("Nhan vat "..ObjName.." ®ang ®­îc b¹n kiÓm tra th«ng tin !");
end

function invest2()
Talk(2,"","<color=pink>"..ObjName.."<color>§iÓm tinh lùc <color=Red>"..apo.."<color> - §iÓm tèng kim <color=Red>"..pr.."<color> - TiÒn §«ng TiÒn Trang <color=Red>"..lif.."<color>")
Msg2Player("Nhan vat "..ObjName.." ®ang ®­îc b¹n kiÓm tra th«ng tin !");
end

function ipxinx()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
xinxi = GetInfo()
PlayerIndex=gmidx
Msg2Player("Ng­êi ch¬i "..xinxi)
end;

function kick()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
Msg2Player("Qu¶n lý <color=green>"..gmName.."<color> ®· kick kÑt tµi kho¶n cho b¹n");
KickOutSelf()
PlayerIndex=gmidx
Msg2Player("Nh©n vËt <color=green>"..ObjName.."<color> ®­îc b¹n kick kÑt tµi kho¶n thµnh c«ng");
end;

function camchat()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
SetChatFlag(1)
Msg2Player("B¹n bÞ khãa Ch¸t trªn mäi tÇn sè !")
PlayerIndex=gmidx
AddGlobalCountNews("Nh©n VËt: --> "..ObjName.." <-- §· BÞ CÊm Chat Trªn Mäi TÇn Sè !",1)
end

function mochat()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(200)
SetChatFlag(0)
Msg2Player("B¹n ®­îc më khãa Ch¸t trªn mäi tÇn sè !")
PlayerIndex=gmidx
AddGlobalCountNews("Nh©n VËt: --> "..ObjName.." <-- §­îc Më Chat Trªn Mäi TÇn Sè !",1)
end
minhkhanh109
25-10-15, 01:15 AM
cái này bỏ vào đâu vậy bạn!
mình mem mới xin chỉ giúp với
cảm ơn
bthhhz
25-10-15, 05:57 AM
cái này bỏ vào đâu vậy bạn!
mình mem mới xin chỉ giúp với
cảm ơn

đã là script rồi mà còn bỏ ở đâu nữa bạn. bỏ ở script . còn bạn muốn bỏ ở item hay npc thì do bạn quyết định chứ
minhgacon90
25-10-15, 08:03 AM
bạn giới thiệu thêm về tính năng này cho mọi người, nhất là new bie như mình với, cái này là thay cho tool gm hả bạn?
Romeo8x
28-10-15, 05:32 PM
bạn giới thiệu thêm về tính năng này cho mọi người, nhất là new bie như mình với, cái này là thay cho tool gm hả bạn?

Rằng thì là mà cái này giống với gm_tool. Có vài chức năng khá đơn giản thôi:

sk="Thêm 5 cấp./tangcap"
it="Thêm 100 tiền đồng./buffskillsgm"
mov="Di chuyển về Ba Lăng Huyện/move"
kic="Kick nhân vật./kick"
exppp="Cấm chát./camchat"
bufftp="Mở chát./mochat"
buffskills="Buff điêm tự chọn./buffpoint"
inv="Thông tin nhân vật./invest"
nex="Next/next"
nex2="Next/next2"
cscs="Thêm 1000 vạn/themtienvan"

Bạn nhìn là hiểu rồi chứ. Trên cơ sở là quản lý người chơi theo id (tức là số thứ tự khi đang online).
Ngoài ra thêm 1 số tính năng nữa bạn cứ dọc code là biết mà.
ngocht
28-10-15, 08:52 PM
Cám ơn chủ thớt nhé. Cho mình hỏi chút. Cái này là chỉ có nhân vật GM mới được sử dụng phải không vậy. Mình chỉ việc add vào lệnh bài của GM là được phải không bác :D !!!