Hướng dẫn lập Bang Hội

[Lãng Tử Sầu]

Lập Bang hội thì ai cũng biết điều kiện của nó là gì rồi Nhưng một số Bạn thích nóng hổi để, 2 Accout có 2 bang đem đi đâm chém test tủng cái Tranh đoạt lãnh thổ. Vậy mình hướng dẫn các Bạn cách Lập bang hội, bỏ qua mấy cái thứ kia.

Đầu tiên các Bạn vào: gameserver\script\tong\tongnpc.lua


Tìm:

if not anPlayerId or not nPlayerNum or nPlayerNum < 3 then
Dialog:Say("Cần phải có trên 3 Tộc Trưởng Gia Tộc tổ đội, mới có thể đến gặp ta báo danh thành lập bang hội!")
return 0
end

Sửa thành:

if not anPlayerId or not nPlayerNum or nPlayerNum < 1 then
Dialog:Say("Cần phải có trên 3 Tộc Trưởng Gia Tộc tổ đội, mới có thể đến gặp ta báo danh thành lập bang hội!")
return 0
end

Tìm:

if bConfirm ~= 0

Sửa thành:

if bConfirm ~= 1

Chúc các Bạn vui vẻ !

[duytungk87]

Cho mình hỏi
if bConfirm ~
là gì được không và tại sao lại sửa như vậy

[Lãng Tử Sầu]

Cái ban đầu là bỏ điều kiện cần 3 người pt.
Cái if bConfirm ~= 1 nó bỏ tiếp các điều kiện tiếp theo Bạn ạ

[tuanbik1416]

Lãng tử sầu ơi share cho mình cái thư mục Tong của sv cậu được không tớ làm theo mà ko đc lại còn bị lỗi font nữa :-S

[thanhdongsl]

Cái ban đầu là bỏ điều kiện cần 3 người pt.
Cái if bConfirm ~= 1 nó bỏ tiếp các điều kiện tiếp theo Bạn ạ

Thanks Lãng Tử Sầu nhiều nhé. Bạn rất ngon zai đấy

[daikimvuong1]

game kiếm thế này mình chưa có chơi qua online nữa . ngồi cài offline vào vọc phá bậy bạ thôi chứ chẳng biết hết các chức năng cao như thế này

[cumay1102]

của tớ ko load đc toàn báo lỗi scip @@ bạn có thể up luôn file đó đc ko

[mr_panda1308]

của tớ ko load đc toàn báo lỗi scip @@ bạn có thể up luôn file đó đc ko

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

[cumay1102]

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ạn gửi file cho mình đc hem nó cứ báo lỗi scrip @@@

[mr_panda1308]

bạn gửi file cho mình đc hem nó cứ báo lỗi scrip @@@

của bạn đây

[Only registered and activated users can see links. ]