Script ban nhân vật

[HoangThaoBe]

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,ten,nex,can)
end;

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

function next2()
Say(wel,11,fir20,sec20,thr20,fou20,fif20,six20,sev20,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]

Xưa nay chưa thấy script ban nhân vật bao giờ
Chắc không có đâu bạn

[HoangThaoBe]

cái đoạn ban nhân vật đó bạn chứ cái gì ==

[Edward_Newgate]

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]

mình nhớ ban nv khi log vào nv đó "Sever gián đoạn mà" mơ gì

[Edward_Newgate]

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

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]

up ai giúp mình vs .

[01676598479]

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]

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 nào thì VPS - SQL v..v.

[notfile]

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 !