Share Cho AE Script Trùng Sinh 200 lần [-X [-X [-X pro đừng ném đá em

[tonyus]

--================================================== ========--
local CauHinh = Npc:GetClass("CaiLaoHoangDong"); --Trùng Sinh
--================================================== ========--
CauHinh.TaskGroup_CS = 5018; -- Chuyển Sinh
CauHinh.TaskId_Count_CS = 1; --Task
CauHinh.Status = 1; --(0=chưa mở, 1=đang mở, 2=bảo trì)
CauHinh.JBCoin_CS = 10000; -- 100v đồng
CauHinh.LevelOnCS = 135; -- Về Cấp 120
CauHinh.TSK_LevelRS = 200; -- Check Cấp Trùng Sinh
CauHinh.TSK_SoLanCS = 200; -- Số lan Trùng Sinh
CauHinh.RS_nLeve = 0; -- Trùng Sinh giảm số cấp
--================================================== ========--

--================================================== ========--
function CauHinh:OnDialog()
DoScript("\\script\\CauHinh\\NangCap_CH\\CaiLaoHoa ngDong.lua");
local szMsg = "<color=cyan>Ta sẽ giúp Bạn Trùng Sinh nhân vật,\nBạn cần chuẩn bị như sau để tiến hành:<color>\n"..
"<color=cyan>+ <color=gold>100<color> vạn đồng<color>\n"..
"<color=cyan>+ <color=gold>5<color> Trùng Sinh Lệnh<color>\n"..
"<color=cyan>+ <color=gold>5<color> Trường Sinh Thuật<color>"
--================================================== ====-
if me.CountFreeBagCell() < 5 then
Dialog:Say("Vui Lòng Chừa 10 Ô Trống Trong Túi Hành Trang");
return 0;
end
--================================================== ====-
local tbOpt = {
-- {"<color=yellow>Nhận Thưởng Trùng Sinh<color>", self.nhanthuongTS, self},
{"<color=red>Ta Muốn Trùng Sinh<color>", self.ChuyenSinh, self},
{"{Kết thúc đối thoại}"},
}
Dialog:Say(szMsg, tbOpt);
end;
--================================================== ========--
function CauHinh:ChuyenSinh(nCapdoCS, nLanCS)
--================================================== ====-
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS) or 0;
local nCoin = me.GetJbCoin(); --
local nCapdoCS = math.floor(nLanCS/50.1,1)+1;
--================================================== ====--
local ManhGhep1 = 5; --Check Số Lượng Trùng Sinh Lệnh
local ManhGhep2 = 5; --Check Số Lượng Trùng Sinh Thuật
--================================================== ====-
local szMsg2 = string.format("<color=cyan>Trùng Sinh lần<color=pink> %s <color>sẽ được cộng 30<color=gold> %s<color> \nđiểm tiềm năng .\n <color=red>Sau khi Trùng Sinh xong về lại <color=gold>cấp 135<color>.<color>",nLanCS+1,100-(nCapdoCS-1));
local tbOpt2 = {
{"<color=gold>OK, Tiến Hành<color>",self.cailaohoandongNhanVat, self, me, nCapdoCS, nLanCS},
}
local szMsg3 = string.format("<color=gold>Trùng Sinh lần thứ <color=red>(%s)<color> yêu cầu <color=red>(Cấp %s)<color>,\n"..
" hãy về tu luyện thêm rồi quay lại sau.!<color><pic=5>", nLanCS+1, (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS);
--================================================== ====-
if (self.Status == 1) then
if nLanCS == self.TSK_SoLanCS then
Dialog:Say(szMsg1, tbOpt1);
else
if (nCoin >= self.JBCoin_CS or nCount1 < 1 or nCount2 < 1) then
if (me.nLevel >= (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS ) then
Dialog:Say(szMsg2, tbOpt2);
else
Dialog:Say(szMsg3, "{Kết thúc đối thoại}");
end
else
Dialog:Say("\n <color=cyan>Ngươi không mang đủ <color=gold>100 VẠN ĐỒNG<color>", "{Kết thúc đối thoại}");
end
--================================================== ====-
if nCount1 < ManhGhep1 then
Dialog:Say("Ngươi chưa có<color=red> "..ManhGhep1.."<color> <color=gold>Trường Sinh Thuật<color>", "{Kết thúc đối thoại}");
return 0;
end
if nCount2 < ManhGhep2 then
Dialog:Say("Ngươi chưa có<color=red> "..ManhGhep2.."<color> <color=gold>Trùng Sinh Lệnh<color>", "{Kết thúc đối thoại}");
return 0;
end
--================================================== ====-
local COST_DONG = 1000000; --100v đồng --Không x2
if nCoin < COST_DONG then
Dialog:Say(string.format("\n<color=cyan>Bạn chưa bị đủ<color=red> ["..COST_DONG.."]<color> đồng thường,\nBạn đã Trùng Sinh lần thứ<color=red> ["..nLanCS.."]<color><color=cyan> rồi.<color>"));
return 0;
end
end
elseif (self.Status == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function CauHinh:WriteFileHisory() --ghi số lần chuyển sinh
local szSoLan = me.GetTask(5018,1);
local szTime = os.date("%Y-%m-%d %H:%M:%S", GetTime());
local szOutFile = "\\tonghop\\ChuyenSinh\\ChuyenSinh_" ..szSoLan.. "_Lan.txt";
local szContext = "Account\tRoleName\tSex\tLevel\tFaction\tRoute\tKi n\tTong\tSoLan\tThoiGian\n";
local tbFile = Lib:LoadTabFile("\\tonghop\\ChuyenSinh\\ChuyenSinh _" ..szSoLan.. "_Lan.txt");

if tbFile then
local szName = me.szName;
local szName = me.szName;
local tbInfo = GetPlayerInfoForLadderGC(szName);
local szKin = tbInfo.szKinName;
local szTong = tbInfo.szTongName;
local szSex = tbInfo.nSex == 1 and "Nữ" or "Nam";

if not tbInfo.szKinName or (string.len(tbInfo.szKinName) <= 0) then
szKin = "Không gia tộc";
end
if not tbInfo.szTongName or (string.len(tbInfo.szTongName) <= 0) then
szTong = "Không bang hội";
end
local szOut = string.format("%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\ t%s\n",
tbInfo.szAccount or "",
szName or "",
szSex or "",
tbInfo.nLevel or 0,
Player:GetFactionRouteName(tbInfo.nFaction) or "",
Player:GetFactionRouteName(tbInfo.nFaction, tbInfo.nRoute) or "",
szKin or "",
szTong or "",
szSoLan,
szTime);
szContext = szContext .. szOut;
KFile.AppendFile(szOutFile, szOut);
else
KFile.WriteFile(szOutFile, szContext);
self:WriteFileHisory();
end
end
--================================================== ====-
function CauHinh:cailaohoandongNhanVat(pPlayer, nCapdoCS, nLanCS)
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS);
local INPUT_FILE_PATH = "\\script\\TopTrungSinh\\Gift.txt";
local OUPUT_FILE_PATH = "\\script\\TopTrungSinh\\SoLanTS.txt";
--==========================
--========================
DoScript("\\script\\CauHinh\\NangCap_CH\\CaiLaoHoa ngDong.lua");
local nCoin = me.GetJbCoin(); --
-- local COST_DONG = 2000000 * nLanCS; --200v đồng --Trừ Đồng X2/Lần
local COST_DONG = 1000000; --100v đồng --Không x2
if nCoin < COST_DONG then
Dialog:Say(string.format("Bạn chưa bị đủ ["..COST_DONG.."] đồng thường"));
return 0;
end
local szFriendMsg = string.format("Chúc mừng bạn Trùng Sinh thành công lần thứ %s !",nLanCS+1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS","<color=go ld>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>"});
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT,"<color=gold>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>");
KDialog.MsgToGlobal("<color=gold>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>");
--================================================== ====-
local nAddLevel = (self.LevelOnCS - pPlayer.nLevel);
me.ConsumeItemInBags(5, 18,1,2581,1); --Trùng Sinh Lệnh
me.ConsumeItemInBags(5, 18,1,2709,1); --Trùng Sinh Thuật
pPlayer.AddJbCoin(COST_DONG * -1); --Trừ Đồng X2/Lần
pPlayer.ResetFightSkillPoint(); -- Tẩy điểm kỹ năng
pPlayer.UnAssignPotential(); -- Tẩy điểm tiềm năng
pPlayer.AddLevel(nAddLevel); -- Add Level theo mốc đã chỉnh
pPlayer.AddPotential(50); -- Cộng Điểm Tiềm Năng
--pPlayer.AddFightSkillPoint(2); -- Cộng Điểm Kỷ Năng
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, nLanCS+1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Trùng Sinh lần "..(nLanCS+1)..".");
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
me.AddTitle(25, 1, 3, 3);-- DANH HIỆU - Đấu Sĩ Võ Lâm
--pPlayer.AddTitle(15,10,nCapdoCS,nCapdoCS); -- Add Danh Hiệu

--if nLanCS > 2 then
-- pPlayer.AddItem(unpack(self.DataItemCS[nLanCS+1])).Bind(1); -- Khóa Item Thưởng
--end
pPlayer.KickOut(); -- Diss Games
self:WriteFileHisory();
return 0;

end
--[[=============================]]--
--Admin1168: zalo 0974001512
--[[=============================]]--

[yehem3000]

--================================================== ========--
local CauHinh = Npc:GetClass("CaiLaoHoangDong"); --Trùng Sinh
--================================================== ========--
CauHinh.TaskGroup_CS = 5018; -- Chuyển Sinh
CauHinh.TaskId_Count_CS = 1; --Task
CauHinh.Status = 1; --(0=chưa mở, 1=đang mở, 2=bảo trì)
CauHinh.JBCoin_CS = 10000; -- 100v đồng
CauHinh.LevelOnCS = 135; -- Về Cấp 120
CauHinh.TSK_LevelRS = 200; -- Check Cấp Trùng Sinh
CauHinh.TSK_SoLanCS = 200; -- Số lan Trùng Sinh
CauHinh.RS_nLeve = 0; -- Trùng Sinh giảm số cấp
--================================================== ========--

--================================================== ========--
function CauHinh:OnDialog()
DoScript("\\script\\CauHinh\\NangCap_CH\\CaiLaoHoa ngDong.lua");
local szMsg = "<color=cyan>Ta sẽ giúp Bạn Trùng Sinh nhân vật,\nBạn cần chuẩn bị như sau để tiến hành:<color>\n"..
"<color=cyan>+ <color=gold>100<color> vạn đồng<color>\n"..
"<color=cyan>+ <color=gold>5<color> Trùng Sinh Lệnh<color>\n"..
"<color=cyan>+ <color=gold>5<color> Trường Sinh Thuật<color>"
--================================================== ====-
if me.CountFreeBagCell() < 5 then
Dialog:Say("Vui Lòng Chừa 10 Ô Trống Trong Túi Hành Trang");
return 0;
end
--================================================== ====-
local tbOpt = {
-- {"<color=yellow>Nhận Thưởng Trùng Sinh<color>", self.nhanthuongTS, self},
{"<color=red>Ta Muốn Trùng Sinh<color>", self.ChuyenSinh, self},
{"{Kết thúc đối thoại}"},
}
Dialog:Say(szMsg, tbOpt);
end;
--================================================== ========--
function CauHinh:ChuyenSinh(nCapdoCS, nLanCS)
--================================================== ====-
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS) or 0;
local nCoin = me.GetJbCoin(); --
local nCapdoCS = math.floor(nLanCS/50.1,1)+1;
--================================================== ====--
local ManhGhep1 = 5; --Check Số Lượng Trùng Sinh Lệnh
local ManhGhep2 = 5; --Check Số Lượng Trùng Sinh Thuật
--================================================== ====-
local szMsg2 = string.format("<color=cyan>Trùng Sinh lần<color=pink> %s <color>sẽ được cộng 30<color=gold> %s<color> \nđiểm tiềm năng .\n <color=red>Sau khi Trùng Sinh xong về lại <color=gold>cấp 135<color>.<color>",nLanCS+1,100-(nCapdoCS-1));
local tbOpt2 = {
{"<color=gold>OK, Tiến Hành<color>",self.cailaohoandongNhanVat, self, me, nCapdoCS, nLanCS},
}
local szMsg3 = string.format("<color=gold>Trùng Sinh lần thứ <color=red>(%s)<color> yêu cầu <color=red>(Cấp %s)<color>,\n"..
" hãy về tu luyện thêm rồi quay lại sau.!<color><pic=5>", nLanCS+1, (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS);
--================================================== ====-
if (self.Status == 1) then
if nLanCS == self.TSK_SoLanCS then
Dialog:Say(szMsg1, tbOpt1);
else
if (nCoin >= self.JBCoin_CS or nCount1 < 1 or nCount2 < 1) then
if (me.nLevel >= (self.TSK_LevelRS)+self.RS_nLeve*nCapdoCS ) then
Dialog:Say(szMsg2, tbOpt2);
else
Dialog:Say(szMsg3, "{Kết thúc đối thoại}");
end
else
Dialog:Say("\n <color=cyan>Ngươi không mang đủ <color=gold>100 VẠN ĐỒNG<color>", "{Kết thúc đối thoại}");
end
--================================================== ====-
if nCount1 < ManhGhep1 then
Dialog:Say("Ngươi chưa có<color=red> "..ManhGhep1.."<color> <color=gold>Trường Sinh Thuật<color>", "{Kết thúc đối thoại}");
return 0;
end
if nCount2 < ManhGhep2 then
Dialog:Say("Ngươi chưa có<color=red> "..ManhGhep2.."<color> <color=gold>Trùng Sinh Lệnh<color>", "{Kết thúc đối thoại}");
return 0;
end
--================================================== ====-
local COST_DONG = 1000000; --100v đồng --Không x2
if nCoin < COST_DONG then
Dialog:Say(string.format("\n<color=cyan>Bạn chưa bị đủ<color=red> ["..COST_DONG.."]<color> đồng thường,\nBạn đã Trùng Sinh lần thứ<color=red> ["..nLanCS.."]<color><color=cyan> rồi.<color>"));
return 0;
end
end
elseif (self.Status == 2) then
Dialog:Say("Hệ Thống Đang Bảo Trì Nâng Cấp!", "Đóng");
elseif (self.Status == 0) then
Dialog:Say("Hệ Thống Chưa Mở", "Ta chỉ đi ngang qua!");
end
end;
function CauHinh:WriteFileHisory() --ghi số lần chuyển sinh
local szSoLan = me.GetTask(5018,1);
local szTime = os.date("%Y-%m-%d %H:%M:%S", GetTime());
local szOutFile = "\\tonghop\\ChuyenSinh\\ChuyenSinh_" ..szSoLan.. "_Lan.txt";
local szContext = "Account\tRoleName\tSex\tLevel\tFaction\tRoute\tKi n\tTong\tSoLan\tThoiGian\n";
local tbFile = Lib:LoadTabFile("\\tonghop\\ChuyenSinh\\ChuyenSinh _" ..szSoLan.. "_Lan.txt");

if tbFile then
local szName = me.szName;
local szName = me.szName;
local tbInfo = GetPlayerInfoForLadderGC(szName);
local szKin = tbInfo.szKinName;
local szTong = tbInfo.szTongName;
local szSex = tbInfo.nSex == 1 and "Nữ" or "Nam";

if not tbInfo.szKinName or (string.len(tbInfo.szKinName) <= 0) then
szKin = "Không gia tộc";
end
if not tbInfo.szTongName or (string.len(tbInfo.szTongName) <= 0) then
szTong = "Không bang hội";
end
local szOut = string.format("%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t%s\ t%s\n",
tbInfo.szAccount or "",
szName or "",
szSex or "",
tbInfo.nLevel or 0,
Player:GetFactionRouteName(tbInfo.nFaction) or "",
Player:GetFactionRouteName(tbInfo.nFaction, tbInfo.nRoute) or "",
szKin or "",
szTong or "",
szSoLan,
szTime);
szContext = szContext .. szOut;
KFile.AppendFile(szOutFile, szOut);
else
KFile.WriteFile(szOutFile, szContext);
self:WriteFileHisory();
end
end
--================================================== ====-
function CauHinh:cailaohoandongNhanVat(pPlayer, nCapdoCS, nLanCS)
local nLanCS = me.GetTask(self.TaskGroup_CS, self.TaskId_Count_CS);
local INPUT_FILE_PATH = "\\script\\TopTrungSinh\\Gift.txt";
local OUPUT_FILE_PATH = "\\script\\TopTrungSinh\\SoLanTS.txt";
--==========================
--========================
DoScript("\\script\\CauHinh\\NangCap_CH\\CaiLaoHoa ngDong.lua");
local nCoin = me.GetJbCoin(); --
-- local COST_DONG = 2000000 * nLanCS; --200v đồng --Trừ Đồng X2/Lần
local COST_DONG = 1000000; --100v đồng --Không x2
if nCoin < COST_DONG then
Dialog:Say(string.format("Bạn chưa bị đủ ["..COST_DONG.."] đồng thường"));
return 0;
end
local szFriendMsg = string.format("Chúc mừng bạn Trùng Sinh thành công lần thứ %s !",nLanCS+1);
GlobalExcute({"Dialog:GlobalNewsMsg_GS","<color=go ld>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>"});
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT,"<color=gold>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>");
KDialog.MsgToGlobal("<color=gold>Người chơi <color=cyan>["..me.szName.."]<color> <color=gold>Đã Trùng Sinh <color> <color=cyan>Lần "..(nLanCS+1).."<color>");
--================================================== ====-
local nAddLevel = (self.LevelOnCS - pPlayer.nLevel);
me.ConsumeItemInBags(5, 18,1,2581,1); --Trùng Sinh Lệnh
me.ConsumeItemInBags(5, 18,1,2709,1); --Trùng Sinh Thuật
pPlayer.AddJbCoin(COST_DONG * -1); --Trừ Đồng X2/Lần
pPlayer.ResetFightSkillPoint(); -- Tẩy điểm kỹ năng
pPlayer.UnAssignPotential(); -- Tẩy điểm tiềm năng
pPlayer.AddLevel(nAddLevel); -- Add Level theo mốc đã chỉnh
pPlayer.AddPotential(50); -- Cộng Điểm Tiềm Năng
--pPlayer.AddFightSkillPoint(2); -- Cộng Điểm Kỷ Năng
pPlayer.SetTask(self.TaskGroup_CS, self.TaskId_Count_CS, nLanCS+1);
pPlayer.SendMsgToFriend("Hảo hữu của bạn ["..pPlayer.szName.."] Trùng Sinh lần "..(nLanCS+1)..".");
Player:SendMsgToKinOrTong(pPlayer, " ,"..szFriendMsg..".", 1);
me.AddTitle(25, 1, 3, 3);-- DANH HIỆU - Đấu Sĩ Võ Lâm
--pPlayer.AddTitle(15,10,nCapdoCS,nCapdoCS); -- Add Danh Hiệu

--if nLanCS > 2 then
-- pPlayer.AddItem(unpack(self.DataItemCS[nLanCS+1])).Bind(1); -- Khóa Item Thưởng
--end
pPlayer.KickOut(); -- Diss Games
self:WriteFileHisory();
return 0;

end
--[[=============================]]--
--Admin1168: zalo 0974001512
--[[=============================]]--

cho xin seve luôn được ko.....................

[tonyus]

cho xin seve luôn được ko.....................

[Only registered and activated users can see links. ] đã có rất nhiều bài share sv