em nó đây bạn:
-------------------------------------------------------------------
--File: tongnpc.lua
--Author: lbh
--Date: 2007-9-19 23:21
--Describe: 帮会相关npc对话逻辑
-------------------------------------------------------------------
if not Tong then --调试需要
Tong = {}
print(GetLocalDate("%Y\\%m\\%d %H:%M:%S").." build ok ..")
end
function Tong:DlgCreateTong(bConfirm, szTong, nCamp)
if me.IsCaptain() ~= 1 then
Dialog:Say("Người không phải đội trưởng, mau tạo nhóm đi.")
return 0
end
local nTeamId = me.nTeamId
local anPlayerId, nPlayerNum = KTeam.GetTeamMemberList(nTeamId)
if not anPlayerId or not nPlayerNum or nPlayerNum < 1 then
Dialog:Say("Cần 3 tộc trường của mỗi tộc lập thành 1 tổ đội。")
return 0
end
if me.dwTongId ~= 0 then
Dialog:Say("Bạn đã có bang hội, không thể tạo thêm.")
return 0
end
local anKinId = {}
local nSelfKinId, nSelfMemberId = me.GetKinMember()
local cSelfKin = KKin.GetKin(nSelfKinId)
if not cSelfKin or cSelfKin.GetCaptain() ~= nSelfMemberId then
me.Msg("Bạn không phải là Tộc trưởng của gia tộc, nên không thể tạo bang hội.")
return 0
end
table.insert(anKinId, nSelfKinId)
local aLocalPlayer, nLocalPlayerNum = me.GetTeamMemberList()
--TODO:判断是否在周围
if nPlayerNum ~= nLocalPlayerNum then
Dialog:Say("Thành viên trong tổ đội phải đứng kế bên nhau mới có thể lập bang")
return 0
end
--创建扣取金钱说明
if bConfirm ~= 1 then
Dialog:Say("Sáng lập bang cần 100 vạn bạc. Đồng thời trong 2 tuần khảo nghiệm , quỹ xây dựng của bang hội >=1000 vạn bạc，nếu không sáng lập thất bại !.<color=yellow>100 vạn bạc đã nộp rồi không thể thu hồi lại.<color> Suy nghĩ kĩ chưa？",
{{"Quyết định rồi, sáng lập bang hội", self.DlgCreateTong, self, 1}, {"Để ta suy nghĩ"}})
return 0
end
if me.nCashMoney < self.CREATE_TONG_MONEY then
Dialog:Say("Bạn không đủ <color=yellow>"..(self.CREATE_TONG_MONEY / 10000).."vạn bạc<color>，Vui lòng mang đủ tiền rồi hãy quay trở lại。")
return 0
end
for i, cPlayer in ipairs(aLocalPlayer) do
if cPlayer.nPlayerIndex ~= me.nPlayerIndex then
if cPlayer.dwTongId ~= 0 then
Dialog:Say("Có thành viên trong nhóm đã có bang hội, không thể sáng lập bang hội.")
return 0
end
local nKinId, nMemberId = cPlayer.GetKinMember()
if Kin:CheckSelfRight(nKinId, nMemberId, 1) ~= 1 then
me.Msg("队伍中所有成员必须为家族族长（且� �被罢免），请让不符合条件的人离队� ��后找齐合适的人之后再过来找我。")
return 0
end
table.insert(anKinId, nKinId)
end
end
if not szTong or szTong == "" then
me.CallClientScript{"Tong:ShowCreateTongDlg"}
return 0
end
local nRet = self:CreateTong_GS1(anKinId, szTong, nCamp, me.nId);
if nRet ~= 1 then
local szMsg = "Sáng lập bang hội thất bại."
if nRet == -1 then
szMsg = szMsg.."Quá Dài (3 ~ 6 kí tự)！"
elseif nRet == -2 then
szMsg = szMsg.."Có thể sử dụng các kí tự này :· 【 】"
elseif nRet == -3 then
szMsg = szMsg.."Xin lỗi, bạn nhập có từ nhạy cảm. Xin thử lại."
elseif nRet == -4 then
szMsg = szMsg.."Tên bang hội đã tồn tại."
elseif nRet == -5 then
szMsg = szMsg.."Có người đã có bang hội trong nhóm！"
end
Dialog:Say(szMsg);
return 0
end
return 1
end
function Tong:DlgChangeCamp(nCamp)
local nTongId = me.dwTongId;
if nTongId == 0 then
Dialog:Say("你没有帮会，不能更改帮会阵营。")
return 0;
end
local nKinId, nMemberId = me.GetKinMember();
if self:CheckSelfRight(nTongId, nKinId, nMemberId, self.POW_CAMP) ~= 1 then
Dialog:Say("Bạn không có quyền thay đổi phe bang hội.");
return 0;
end
if not nCamp then
Dialog:Say("Chuyển đổi phe phái mất "..(Tong.CHANGE_CAMP / 10000).."vạn quỹ bang hội，Xin vui lòng chọn phe bạn muốn đổi:",
{{"Tống", self.DlgChangeCamp, self, 1},
{"Kim", self.DlgChangeCamp, self, 2},
{"Trung Lập", self.DlgChangeCamp, self, 3},
{"Để tôi suy nghĩ"}
});
else
self:ChangeCamp_GS1(nCamp);
end
end
-- 领取分红
function Tong:DlgTakeStock(bConfirm)
local nTongId = me.dwTongId;
local pTong = KTong.GetTong(nTongId)
if not pTong then
Dialog:Say("Bạn không có bang hội, không thê nhận lợi tức")
return 0
end
local nTotalFund = pTong.GetBuildFund();
local nTotalStock = pTong.GetTotalStock();
local nKinId, nMemberId = me.GetKinMember();
local pKin = KKin.GetKin(nKinId);
local pMember = pKin.GetMember(nMemberId);
local nPersonalStock = pMember.GetPersonalStock();
local nCurWeek = tonumber(os.date("%Y%W", GetTime()))
if nTotalFund == 0 or nTotalStock == 0 or nPersonalStock == 0 then
Dialog:Say("Bạn không nhận được lợi tức");
return 0;
end
local nTakePercent = pTong.GetLastTakeStock()
if nTakePercent <= 0 then
Dialog:Say("Bang hội của bạn tuần trước không có chia sẽ lợi nhuận. Tuần này không cho phép nhận lợi tức。");
return 0;
end
local nWeeks = me.GetTask(self.TONG_TASK_GROUP, self.TONG_TAKE_STOCK_WEEKS);
if nWeeks == nCurWeek then
Dialog:Say("Bạn có thể nhận lợi tức trong tuần này.");
return 0;
end
local szMsg = "";
local tbOpt = {};
local nTakeStock = math.floor(nTakePercent * nPersonalStock / 100);
local nTakeMoney = math.floor(nTakeStock * nTotalFund / nTotalStock);
local nMoney = math.floor(nPersonalStock * nTotalFund / nTotalStock);
if pTong.GetBuildFund() < self.MIN_BUILDFUND then
Dialog:Say("Bang hội có quỹ xây dựng ít"..self.MIN_BUILDFUND.."，không thể nhận lời tức。")
return 0;
end
if not bConfirm then
szMsg = string.format([[ Tỷ lệ chia sẽ lợi nhuận tuần này đã dược thiết lập là <color=green>%d%%<color>。Do đó，tuần này bạn nhận được lời tức<color=green>%d<color>。
Bạn có thể chọn nhận lợi tức, tiếp nhận tài sản cá nhấn và tỷ lệ vốn sẽ bị giảm tương ứng。]],
nTakePercent, nTakeMoney);
tbOpt = {
{"Ok, Nhận lợi tức", self.DlgTakeStock, self, 1},
{"Kết thúc cuộc đối thoại。"},
}
else
if bConfirm and bConfirm == 1 then
if me.GetBindMoney() + nTakeMoney > me.GetMaxCarryMoney() then
Dialog:Say("Xin lỗi, bạn thức hiện tối đa cho phép.");
return 0;
end
me.SetTask(self.TONG_TASK_GROUP, self.TONG_TAKE_STOCK_WEEKS, nCurWeek)
return GCExcute{"Tong:TakeStock_GC", nTongId, nKinId, nMemberId};
end
end
Dialog:Say(szMsg,tbOpt);
end
function Tong:DlgGreatBonus()
local pTong = KTong.GetTong(me.dwTongId);
if not pTong then
Dialog:Say("Bạn không có Bang hội");
return 0;
end
Dialog:Say("Phần thưởng cho thành viên ưu tú của bang hội <color=green>"..pTong.GetWeekGreatBonus().."<color>",
{
{"Nhận phần thưởng bang hội.", Tong.ReceiveGreatBonus, Tong},
{"Thiết lập tỉ lệ giải thưởng.", Tong.AdjustGreatBonusPercent, Tong},
{"Hủy bỏ."}
})
end
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>