PDA

View Full Version : [JX] Script ban nhân vật


HoangThaoBe
23-04-12, 04:57 PM
Include("\\Script\\source\\sourcejx49.lua")
Include("\\script\\ohishu\\NPC\\monphai\\manguon.lua")
Include("\\Script\\global\\ban.lua")

wel="Lua Chon ID Nhan Vat"
wel1="Lua Chon ID Nhan Vat"
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="Giam v祇 t?/giamlong"
it="Th?T?/nogiamlong"
mov="Di chuy觧 v?BLH/move"
kic="Kick nh﹏ v藅./kick"
exppp="Th猰 c蕄./exp"
bufftp="Buff th﹏ ph竝./thoigian"
buffskills="Buff Donate./buffskillsgm"
inv="Th玭g Tin Nh﹏ V藅./invest"
nex="Next/next"
nex2="Next/next2"
cscs="Them Chuyen Sinh/chuyensinh"
-----------------------------------------------


function system()
Say("Admin Anh Muon Gi A?:",8,"Xem Thong Tin Toan Nhan Vat/Show",
"Xem Thong Tin Gamer (1~100)/Show100",
"Xem Thong Tin Gamer (101~200)/Show200",
"Xem Thong Tin Gamer (201~300)/Show300",
"Kick ra chong Rollback/kickall",
"Quan Ly Gamer/chaozuo",
"Quan Ly Exp/quanlyexpsv",
--"Gia Tang Chuyen Sinh/adminnnn",
"Thoat./no")

end;

function adminnnn()
SayEx({"<color=cyan>Xa Phu:<color> Xin Hay Chon Muc Do Quan Ly ?",
"Gioi Han Chuyen Sinh 20/tangchuyensinhsv",
"Gioi Han Chuyen Sinh 40/tangchuyensinhsv",
"Gioi Han Chuyen Sinh 60/tangchuyensinhsv",
"Gioi Han Chuyen Sinh 80/tangchuyensinhsv",
"Gioi Han Chuyen Sinh 100/tangchuyensinhsv",
"Gia Tang CS Them 10/tangchuyensinhsv",
"Thoat/Exit"})
end

function tangchuyensinhsv(sel)
id = sel + 1
if id == 1 then
SetGlbMissionV(50,20)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
elseif id == 2 then
SetGlbMissionV(50,40)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
elseif id == 3 then
SetGlbMissionV(50,60)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
elseif id == 4 then
SetGlbMissionV(50,80)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
elseif id == 5 then
SetGlbMissionV(50,100)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
elseif id == 6 then
SetGlbMissionV(50,GetGlbMissionV(50)+10)
AddGlobalCountNews("Gioi Han Chuyen Sinh Server Hien Tai La "..GetGlbMissionV(50).." !",3)
end
end

function quanlyexpsv()
SayEx({"<color=cyan>Xa Phu:<color> Xin Hay Chon Muc Do Quan Ly ?",
"x2 Exp Server/x2expsv",
"x3 Exp Server/x3expsv",
"x4 Exp Server/x4expsv",
"x5 Exp Server/x5expsv",
"Exp Tro Lai Nhu Cu/x1expsv",
"Thoat/Exit"})
end

function x2expsv()
SetGlbMissionV(27,2)
AddGlobalCountNews("Server X2 Exp Trong Qua Trinh Tu Luyen !",3)
end

function x1expsv()
SetGlbMissionV(27,1)
AddGlobalCountNews("Server X1 Exp Trong Qua Trinh Tu Luyen !",3)
end

function x3expsv()
SetGlbMissionV(27,3)
AddGlobalCountNews("Server X3 Exp Trong Qua Trinh Tu Luyen !",3)
end

function x4expsv()
SetGlbMissionV(27,4)
AddGlobalCountNews("Server X4 Exp Trong Qua Trinh Tu Luyen !",3)
end

function x5expsv()
SetGlbMissionV(27,5)
AddGlobalCountNews("Server X5 Exp Trong Qua Trinh Tu Luyen !",3)
end


function Show()
for i=1,GetPlayerCount() do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID "..i.." Ten "..TarName.."");
end
end;

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

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

function Show300()
for i=201,300 do
gmidx=PlayerIndex
PlayerIndex=i
TarName=GetName()
PlayerIndex=gmidx
Msg2Player("ID "..i.." Ten "..TarName.."");
end
end;
------------------------------------------------------------------------------------------------------------------------------------------

function chaozuo()
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(331,0)
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function one()
n=GetTaskTemp(331)
if ((n*10+1)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+1)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "Mr.Dragon" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "0" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;

function two()
n=GetTaskTemp(331)
if ((n*10+2)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+2)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "Mr.Dragon" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "0" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;

function three()
n=GetTaskTemp(331)
if ((n*10+3)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+3)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;

function four()
n=GetTaskTemp(331)
if ((n*10+4)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+4)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;

function five()
n=GetTaskTemp(331)
if ((n*10+5)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+5)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;

function six()
n=GetTaskTemp(331)
if ((n*10+6)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+6)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;


function seven()
n=GetTaskTemp(331)
if ((n*10+7)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+7)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;


function eight()
n=GetTaskTemp(331)
if ((n*10+8)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+8)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;


function nine()
n=GetTaskTemp(331)
if ((n*10+9)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+9)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;


function zero()
n=GetTaskTemp(331)
if ((n*10+10)>GetPlayerCount()) then
Msg2Player("Khong co nhan vat nay xin kiem tra lai!");
else
SetTaskTemp(331,n*10+10)
gmName=GetName()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ObjName=GetName()
PlayerIndex=gmidx
Msg2Player("Ten Player "..ObjName.."");
if GetName() == "a" then
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
elseif GetName() == "a2" then
Say(wel1, 7, it, sk, mov, kic, bufftp, inv, can);
else
Say(wel1, 10, it, sk, mov, kic, inv, bufftp, exppp, buffskills, cscs, can);
end
end
end;




function exp()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
PlayerIndex=gmidx
Say("Lua Chon", 7,"1 Cap/tishen1","5 Cap/tishen5","10 Cap/tishen10","20 Cap/tishen20","50 Cap/tishen50","100 Cap/tishen100","Chuyen Sinh./chuyensinh",can);
end;

function tishen1()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
AddOwnExp(999999999)
Msg2Player("GM Admin Tang cho ban 1 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 1 Cap!");
end;

function tishen5()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,5 do AddOwnExp(999999999) end;
Msg2Player("GM Admin Tang cho ban 5 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 5 Cap!");
end;

function tishen10()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,10 do AddOwnExp(999999999) end;
Msg2Player("GM Admin Tang cho ban 10 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 10 Cap!");
end;

function tishen20()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,20 do AddOwnExp(999999999) end;
Msg2Player("GM Admin Tang cho ban 20 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 20 Cap!");
end;

function tishen50()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,50 do AddOwnExp(999999999) end;
Msg2Player("GM Admin Tang cho ban 50 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 50 Cap!");
end;

function tishen100()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,100 do AddOwnExp(999999999) end;
Msg2Player("GM Admin Tang cho ban 100 Cap!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tang 100 Cap!");
end;
------------------------

function chuyensinh()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
PlayerIndex=gmidx
Say("Lua chon",5,"+1./taohua","+5./taohua2","+10./taohua3","+20./taohua4",can)
end;


function taohua()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
SetTask(197,GetTask(197)+1)
Msg2Player("GM Admin Tang so lan Chuyen Sinh cho ban!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." duoc tang 1 lan Chuyen Sinh!");
end;
------------------------
------------------------
function taohua2()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
SetTask(197,GetTask(197)+5)
Msg2Player("GM Admin Tang so lan Chuyen Sinh cho ban!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." duoc tang 5 lan Chuyen Sinh!");
end;
------------------------
function taohua3()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
SetTask(197,GetTask(197)+10)
Msg2Player("GM Admin Tang so lan Chuyen Sinh cho ban!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." duoc tang 10 lan Chuyen Sinh!");
end;
------------------------
function taohua4()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
SetTask(197,GetTask(197)+20)
Msg2Player("GM Admin Tang so lan Chuyen Sinh cho ban!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." duoc tang 20 lan Chuyen Sinh!");
end;
------------------------
------------------------

------------------------
------------------------

function money()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
PlayerIndex=gmidx
Say("Nhan vat", 3, "1 Trieu/jinbi1", "10 Trieu/jinbi10", can);
end;

function jinbi1()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
Earn(100000000)
Msg2Player("GM Admin tang 1 trieu luong bac!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." nhan duoc 1 trieu luong bac !");
end;

function jinbi10()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
Earn(1000000000)
Msg2Player("GM Admin tang 10 trieu luong bac!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." nhan duoc 10 trieu luong bac !");
end;

function item()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
PlayerIndex=gmidx
SayEx({"Lua chon lay trang bi","Tam thoi tat roi./no"})
end;


function skill()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
LearnSkillFaction()
LearnSkill()
Msg2Player("GM Admin phuc hoi lai tat ca ky nang!");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." lay lai cac ky nang!");
end;

function ban()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,300 do
DelItem(i)
end;
AddExp(-9999999999)
ResetBaseAttrib(0,-10000);
ResetBaseAttrib(1,-10000);
ResetBaseAttrib(2,-10000);
ResetBaseAttrib(3,-10000);
SetFightState(0);
NewWorld(208, 1652, 3190);
SetRevPos(208,73)
MsgEx(">>>>Killing You<<<<<")
MsgEx(".You are Knock Out.")
KickOutSelf()
Msg2Player("Nhan vat Nhan vat Nhan vat Nhan vat !Nhan vat Nhan vat ");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat Nhan vat !");
end;

function clear()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for k=1,500 do DelMagic(k) end;
KickOutSelf()
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat !");
end;

function move()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
w,x,y=GetWorldPos()
if (w~=53) then
SetFightState(0)
NewWorld(53,200*8,200*16)
else
SetPos(1630, 3255)
end
Msg2Player("GM Admin Tat Ca Ve BLH !");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.." Tat Ca Ve BLH !");
end

function kick()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
--Msg2Player("GM Admin Nhan vat Nhan vat ??!");
KickOutSelf()
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat !");
end;


function kickall()
for i=1,GetPlayerCount() do
gmidx=PlayerIndex
PlayerIndex=i
KickOutSelf()
PlayerIndex=gmidx
end
end;


function kill()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
for i=1,300 do
DelItem(i)
end;
AddExp(-9999999999)
ResetBaseAttrib(0,-10000);
ResetBaseAttrib(1,-10000);
ResetBaseAttrib(2,-10000);
ResetBaseAttrib(3,-10000);
SetFightState(0);
NewWorld(208, 1652, 3190);
SetRevPos(208,73)
MsgEx(">>>>Killing You<<<<<")
MsgEx(".You are Knock Out.")
KickOutSelf()
Msg2Player("Nhan vat Nhan vat Nhan vat Nhan vat !Nhan vat Nhan vat ");
PlayerIndex=gmidx
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat Nhan vat !");
end;

function invest()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
lev=GetLevel()
xp=GetExp()
cam=GetCamp()
fac=GetFaction()
cash=GetCash()
lif=GetLife()
man=GetMana()
apo=GetRestAP()
spo=GetRestSP()
cr=GetColdR()
pr=GetPoisonR()
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 Dí", 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 Dí", 4, "Nhan vat Nhan vat /invest1", "Nhan vat Nhan vat /invest2", "Nhan vat IPNhan vat /ipxinx", can);

end;

function invest1()
Talk(2,"","<color=pink>"..ObjName.."<color>,<color=Red>"..lev.."<color>??,Nhan vat <color=Red>"..xp.."<color>,Nhan vat <color=Red>"..lif.."<color>,Nhan vat <color=Red>"..man.."<color>,Nhan vat <color=Red>"..cash.."<color>,Nhan vat <color=Red>"..cam.."<color>,<color=Red>"..fac.."<color>","Nhan vat <color=Red>"..w.."<color>,<color=Red>"..x.."<color>,<color=Red>"..y.."<color>")
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat !");
end

function invest2()
Talk(2,"","Nhan vat μ?<color=Red>"..spo.."<color>,Nhan vat μ?<color=Red>"..apo.."<color>,Nhan vat <color=Red>"..pr.."<color>,Nhan vat <color=Red>"..cr.."<color>,Nhan vat <color=Red>"..fr.."<color>,Nhan vat <color=Red>"..lr.."<color>,Nhan vat <color=Red>"..phr.."<color>","Nhan vat <color=Red>"..strg.."<color>,Nhan vat <color=Red>"..dex.."<color>,Nhan vat <color=Red>"..vit.."<color>,Nhan vat <color=Red>"..eng.."<color>")
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat Nhan vat !");
end

function ipxinx()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
xinxi = GetInfo()
PlayerIndex=gmidx
Msg2Player("Nhan vat "..xinxi)
--Msg2Player("Nhan vat "..ObjName.."Nhan vat IPNhan vat !");
end;

function jinyan()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
Wanjia = GetName()
Msg2Player("GM Admin Nhan vat Nhan vat Nhan vat !");
PlayerIndex=gmidx
SetRoleChatFlag(Wanjia,1)
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat !");
end;

function jiejin()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
Wanjia = GetName()
Msg2Player("GM Admin Nhan vat Nhan vat Nhan vat Nhan vat Nhan vat ??!");
PlayerIndex=gmidx
SetRoleChatFlag("Wanjia",0)
Msg2Player("Nhan vat "..ObjName.."Nhan vat Nhan vat !");
end;

function no()
end;

function nhandoi()
SayEx({"Lua chon","Nhan 2./sxsx","Nhan 3./sxsx","Nhan 4./sxsx","Dung lai./sxsx","Thoat./Exit"})
end;

function sxsx(nsel)
id = nsel+2
if id == 5 then
SetGlbMissionV(45,0)
AddLocalNews("Server ket thuc nhan doi Kinh Nghiem.",1)
else
SetGlbMissionV(45,id)
AddLocalNews("Server Nhan "..GetGlbMissionV(45).." Diem Kinh Nghiem",1)
end
end;

function giamlong()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
if GetName() ~= "a" then
NewWorld(44,1584,3280) -- 198,205
SetChatFlag(1)
Msg2Player("GM Admin Da Tong Ban Vao Dao Hoang !");
SetRevPos(44,1584,3280)
end
PlayerIndex=gmidx
Msg2Player("Nhan Vat Da Bi Tong Vao Dao Hoang !");
end;

function thoigian()
sm = GetStrg()
tp = GetDeX
sl = GetVit()
nl = GetEng()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ResetBaseAttrib(1,10000)
ResetBaseAttrib(2,10000)
ResetBaseAttrib(3,10000)
ResetBaseAttrib(4,10000)
PlayerIndex=gmidx
Msg2Player("Da Buff than phap cho nhan vat");
end

function buffskillsgm()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
ResetBaseAttrib(1,9999)
SetTimer(12*18,15)
Msg2Player("Ban Da Duoc Buff Skills GM");
PlayerIndex=gmidx
Msg2Player("Da Buff Skills GM Cho Nhat Vat");
end

function nogiamlong()
gmidx=PlayerIndex
PlayerIndex=GetTaskTemp(331)
w,x,y = GetWorldPos()
if GetName() ~= "a" then
if w == 44 then
cash = GetCash()
Pay(cash)
MsgEx("<color=red>Admin<color>: <color=yellow>Ban Da Duoc Giai Phong<color>.\nHay Co Gang Cai Thien Ban Tinh.\nNeu Khong Se Bi Tiep Tuc Vao Nha Lao.",1)
NewWorld(53,200*8,200*16)
SetChatFlag(0)
SetRevPos(19)
SetFightState(0)
end
end
PlayerIndex=gmidx
Msg2Player("Nhan vat da duoc phong thich !");
end
ai giúp mình thêm đoạn script ban nhân vật mới mình đã lấy của sv khác cho vào mà k đc !! cám ơn .
Edward_Newgate
23-04-12, 05:03 PM
Xưa nay chưa thấy script ban nhân vật bao giờ :-s
Chắc không có đâu bạn
HoangThaoBe
23-04-12, 05:10 PM
cái đoạn ban nhân vật đó bạn chứ cái gì ==
Edward_Newgate
23-04-12, 05:22 PM
cái đoạn ban nhân vật đó bạn chứ cái gì ==

Đấy hình như chỉ là move lên đảo hoang
Chứ bạn đòi ban NV mà không vào đc game á
Chắc mơ
HoangThaoBe
23-04-12, 05:28 PM
mình nhớ ban nv khi log vào nv đó "Sever gián đoạn mà" mơ gì :|
Edward_Newgate
23-04-12, 05:43 PM
mình nhớ ban nv khi log vào nv đó "Sever gián đoạn mà" mơ gì :|

Thế thì mình k biết 8-}

p/s: Nếu được như vậy thì tui đoán là move đến map kẹt hoặc người làm ra pro lắm =.=!
HoangThaoBe
23-04-12, 06:23 PM
up ai giúp mình vs .
01676598479
23-04-12, 10:35 PM
Chỉ cần đưa nhân vậy muốn ban đến 1 map nào đó chưa mở là ok,xem trong thu muc map/worldset.ini
ngheolavaydo
23-04-12, 11:12 PM
mình nhớ ban nv khi log vào nv đó "Sever gián đoạn mà" mơ gì :|

ban nick ngay lập tức thì tôi chưa quan tâm đến bao giờ , nên ko biết ( nếu đã mở sv online thì ko cần thiết vấn đề này lắm , có thể dùng nhiều biên pháp khác del ac luôn hoặc đổi pass của nhân vật cần ban nick chẳng hạn ..v...v rất nhiều cách )
+ Làm thủ công đi ( đứa nhân vật đó lên map đảo hoang chẳng hạn ) rồi vào WorldSet xóa id map đảo hoang đi khi vào sẽ bị gián đoạn ngay thôi mà
ông này mở sv kiến thức và exp chưa được nhiều về sv online - tốt nhất học cho đàng hoàng đi rồi hãy mở sv ( còn nhiều lắm nhất là nạn hack dupe - mở chơi thì dc ,chứ mở thu phí kiếm vài đồng tiêu vặt , sv ko tổn thọ không quá 15 đến 20 ngày tuổi đâu ! thấy ông này viết bải vào mục hỏi đáp quá trời =P~ nào thì VPS - SQL v..v.=P~
notfile
23-04-12, 11:20 PM
nếu là server nguồn AWJX thì thêm script này vào trong file gmscript.lua

If GetName() == "123456" then
KickOutSelf()



như này cứ nhân vật 123456 vào game là bị kich . không bao giờ vào đc !
HoangThaoBe
24-04-12, 09:34 AM
^
ok cám ơn mod

ban nick ngay lập tức thì tôi chưa quan tâm đến bao giờ , nên ko biết ( nếu đã mở sv online thì ko cần thiết vấn đề này lắm , có thể dùng nhiều biên pháp khác del ac luôn hoặc đổi pass của nhân vật cần ban nick chẳng hạn ..v...v rất nhiều cách )
+ Làm thủ công đi ( đứa nhân vật đó lên map đảo hoang chẳng hạn ) rồi vào WorldSet xóa id map đảo hoang đi khi vào sẽ bị gián đoạn ngay thôi mà
ông này mở sv kiến thức và exp chưa được nhiều về sv online - tốt nhất học cho đàng hoàng đi rồi hãy mở sv ( còn nhiều lắm nhất là nạn hack dupe - mở chơi thì dc ,chứ mở thu phí kiếm vài đồng tiêu vặt , sv ko tổn thọ không quá 15 đến 20 ngày tuổi đâu ! thấy ông này viết bải vào mục hỏi đáp quá trời =P~ nào thì VPS - SQL v..v.=P~
còn bạn thì sao :-j bạn nào pm mình hỏi chung thế :"> k đc cay cú à "=p~" để thể hiện cái sự cay nhé =))
cuonghaha
28-05-12, 11:53 PM
nếu là server nguồn AWJX thì thêm script này vào trong file gmscript.lua

If GetName() == "123456" then
KickOutSelf()



như này cứ nhân vật 123456 vào game là bị kich . không bao giờ vào đc !

Bạn ơi có thể hướng dẩn cụ thể tí không chẳng hạn bạn viết rõ ràng 1 đoạn cho mình xem thử để mình biết cách làm thank trước nha
nhocken2030
29-05-12, 07:40 PM
Vào file GM hoặc manager chỗ nào dùng để quản lý đc sever mở lên
Kéo xuống dòng cuối thêm dòng
If GetName() == "123456" then
KickOutSelf()
vào là 0k
Với ''123456'' là tên nhân vật cần kích ra ^^
Phong_JxOnline
29-05-12, 08:25 PM
trước mình đả test cái band nít rùi band xog nó vào thì sv gián đoạn
ohishu
11-06-12, 07:39 PM
Cần Gì Cực Khổ Vậy Bạn ! Vào MSSQL 2K TABLE Account_Habitus Mở Lên Dùng Hàm Set Trường dEndDate Về 2000 Rồi Vào UI Mở File Settings.ini Sữa Hàng Xin Nạp Tài Khoản Rồi Mới Vào Game Thành Tài Khoản Đã Bị Band !
1 Cách Lô Gít Rất Đẹp Lại Không Hao Tài Nguyên Load GS !

:x

@Phonglinhjx: Mãnh Long Tranh Bá New Version Là Thế Nào Huh ?
neverbestboy
11-06-12, 07:46 PM
Cần Gì Cực Khổ Vậy Bạn ! Vào MSSQL 2K TABLE Account_Habitus Mở Lên Dùng Hàm Set Trường dEndDate Về 2000 Rồi Vào UI Mở File Settings.ini Sữa Hàng Xin Nạp Tài Khoản Rồi Mới Vào Game Thành Tài Khoản Đã Bị Band !
1 Cách Lô Gít Rất Đẹp Lại Không Hao Tài Nguyên Load GS !

:x

@Phonglinhjx: Mãnh Long Tranh Bá New Version Là Thế Nào Huh ?

Cái công ngồi nhìn bishop để tìm ra tài khoản nhân vật cần ban cũng quá khổ !
Sao chủ pic không dùng cách move nhân vật đến 1 maps chưa mở là khỏi vô nhỉ ?
ohishu
14-06-12, 09:23 AM
Hi ! Đâu Nhất Thiết Fải Lệ Thuộc Vào BiShop Viết 1 Tools Truy Xuất Từ GameServer Khi Ta Nhập Tên Nhân Vật Là Được Mà ^^ !