[KT] Hướng dẫn lập Bang Hội
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 1 của 3 1 2 3 CuốiCuối
Kết quả 1 đến 10 của 23
  1. #1
    Thành Viên Tâm Huyết Lãng Tử Sầu's Avatar
    Ngày tham gia
    Jun 2008
    Bài viết
    552
    Thanks
    200
    Thanked 473 Times in 134 Posts

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

    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ẻ !
    Học Hỏi, Giao Lưu, Phát Triển Đôi Bên Cùng Có Lợi.
    Bla, Bla, Blo Blo....

  2. The Following 24 Users Say Thank You to Lãng Tử Sầu For This Useful Post:

    Azkan (09-02-12), †ShiNiChi† (09-02-12), bongbay (11-05-12), boyganz (11-04-12), chandoi1203 (10-07-12), cuibapjx (09-02-12), daikimvuong1 (09-02-12), DoanHuynh (23-10-12), duccom0123 (23-12-15), free4itvn (10-02-12), gioseptrum (09-02-12), jxvietnam (11-02-12), khoa135789 (14-08-12), namvincen (24-10-15), quancoi000 (10-02-12), satthulauhyh (09-02-12), satthupro95 (27-11-12), sharkvnn (15-01-19), soklovn (10-02-12), thaihoa91 (09-02-12), thanhdongsl (09-02-12), tuanbik1416 (09-02-12), vipprolc (14-05-12), vominhtan2008 (09-02-12)

  3. #2
    Thành Viên duytungk87's Avatar
    Ngày tham gia
    Apr 2008
    Đang ở
    Hà Nam
    Bài viết
    268
    Thanks
    74
    Thanked 34 Times in 24 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    Cho mình hỏi
    if bConfirm ~
    là gì được không và tại sao lại sửa như vậy
    Khách viếng thăm hãy cùng duytungk87 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #3
    Thành Viên Tâm Huyết Lãng Tử Sầu's Avatar
    Ngày tham gia
    Jun 2008
    Bài viết
    552
    Thanks
    200
    Thanked 473 Times in 134 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    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 ạ

    Học Hỏi, Giao Lưu, Phát Triển Đôi Bên Cùng Có Lợi.
    Bla, Bla, Blo Blo....

  5. #4
    Thành Viên
    Ngày tham gia
    Apr 2010
    Bài viết
    31
    Thanks
    21
    Thanked 22 Times in 2 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    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
    Khách viếng thăm hãy cùng tuanbik1416 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #5
    Thành Viên
    Ngày tham gia
    Nov 2011
    Bài viết
    52
    Thanks
    64
    Thanked 3 Times in 3 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    Trích dẫn Gửi bởi Lãng Tử Sầu [Only registered and activated users can see links. ]
    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
    Khách viếng thăm hãy cùng thanhdongsl xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #6
    Thành Viên
    Ngày tham gia
    Mar 2010
    Bài viết
    529
    Thanks
    279
    Thanked 242 Times in 51 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    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
    Khách viếng thăm hãy cùng daikimvuong1 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #7
    Thành Viên
    Ngày tham gia
    Jan 2012
    Bài viết
    22
    Thanks
    11
    Thanked 2 Times in 2 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    của tớ ko load đc toàn báo lỗi scip @@ bạn có thể up luôn file đó đc ko
    Khách viếng thăm hãy cùng cumay1102 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #8
    Thành Viên
    Ngày tham gia
    Jan 2009
    Đang ở
    Bamboo
    Bài viết
    249
    Thanks
    107
    Thanked 35 Times in 23 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    Trích dẫn Gửi bởi cumay1102 [Only registered and activated users can see links. ]
    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:
    Code:
    -------------------------------------------------------------------
    --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
    Khách viếng thăm hãy cùng mr_panda1308 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. Các thành viên gởi lời cảm ơn đến mr_panda1308 vì bài viết này !

    phanducduy1992 (28-07-12)

  11. #9
    Thành Viên
    Ngày tham gia
    Jan 2012
    Bài viết
    22
    Thanks
    11
    Thanked 2 Times in 2 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    Trích dẫn Gửi bởi mr_panda1308 [Only registered and activated users can see links. ]
    em nó đây bạn:
    Code:
    -------------------------------------------------------------------
    --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 @@@
    Khách viếng thăm hãy cùng cumay1102 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  12. #10
    Thành Viên
    Ngày tham gia
    Jan 2009
    Đang ở
    Bamboo
    Bài viết
    249
    Thanks
    107
    Thanked 35 Times in 23 Posts

    Ðề: Hướng dẫn lập Bang Hội!

    Trích dẫn Gửi bởi cumay1102 [Only registered and activated users can see links. ]
    bạn gửi file cho mình đc hem nó cứ báo lỗi scrip @@@
    của bạn đây
    Code:
    [Only registered and activated users can see links. ]
    Khách viếng thăm hãy cùng mr_panda1308 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  13. The Following 5 Users Say Thank You to mr_panda1308 For This Useful Post:

    cumay1102 (09-02-12), dhbachkhoa (12-04-12), dongnguyen0510 (13-04-12), kakashiktvn (30-05-12), nhocnho90 (22-03-12)

 

 
Trang 1 của 3 1 2 3 CuốiCuối

Các Chủ đề tương tự

  1. [KT] Bác nào chỉ em cách lập Tộc và lập Bang chỉ cần 1 người với :(
    Bởi seohyun309 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 21-07-12, 07:54 PM
  2. [KT] Các pro cho e hỏi chút về bang hội và gia tộc
    Bởi hieu0071990 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 11-07-12, 11:07 AM
  3. HELP Đưa Hi Viện và Bang Hội về 1 Kênh
    Bởi dkn2911 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 07-07-12, 03:48 PM
  4. [KT] Help bang hội và gia tộc
    Bởi hoàng hạc lâu trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 20-05-12, 07:25 PM
  5. Cần Người Hợp Tác Viết Lại Bang Hội Hoàn Toàn Mới
    Bởi ThanhVipLn trong diễn đàn Võ Lâm Truyền Kỳ (Jx Server)
    Trả lời: 20
    Bài viết cuối: 28-10-10, 09:42 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 06:03 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.