[KT] Xin hàm script Tống Kim, ramdom giết người nhận đồng
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 2 của 2
  1. #1
    Thành Viên visaothe123's Avatar
    Ngày tham gia
    Aug 2014
    Đang ở
    Usa
    Bài viết
    261
    Thanks
    30
    Thanked 84 Times in 55 Posts

    Xin hàm script Tống Kim, ramdom giết người nhận đồng

    hix, thấy có máy sv đi TK, giết người ramdom nhận đồng or tiền du long, mình có dev nhưng k thành công k biết là dùng hàm code gì nữa, bác nào cho xin cái hướng dẫn or file phần thưởng với, tks trước ạ.
    Khách viếng thăm hãy cùng visaothe123 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên
    Ngày tham gia
    Jul 2012
    Bài viết
    48
    Thanks
    9
    Thanked 8 Times in 5 Posts

    Ðề: Xin hàm script Tống Kim, ramdom giết người nhận đồng

    \script\mission\battle\mission.lua

    Bạn có thể thao khảo tại đây. Và dòng này
    Code:
    function tbMSBase:OnDeath(pKillerNpc)
    	-- 不是在比赛时间内不能加分
    	if (2 ~= self.nState) then
    		return 0;
    	end
    	
    	local pPlayer = me;
    	local nGroupId	= self:GetPlayerGroupId(pPlayer);
    	assert(nGroupId > 0);
    	self.tbRule:OnLeave(pPlayer);
    	local tbDeathBattleInfo		= Battle:GetPlayerData(pPlayer);
    
    	self.tbCamps[nGroupId]:OnPlayerDeath(tbDeathBattleInfo);
    	local pKillerPlayer = pKillerNpc.GetPlayer();
    	if (pKillerPlayer) then
    		local nKillerGroupId	= self:GetPlayerGroupId(pKillerPlayer);
    		assert(nKillerGroupId > 0);
    		if (nKillerGroupId == nGroupId) then
    			return;
    		end
    
    		local tbKillerBattleInfo	= Battle:GetPlayerData(pKillerPlayer);
    		
    		if tbDeathBattleInfo.nRank > 1 then
    		
    			if tbDeathBattleInfo.nRank == 2 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) >= 5 then
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - 5); -- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + 10); -- nguoi kill
    				local szMsg	= string.format("%s %s <color=yellow>%s<color> đập bể đầu %s %s <color=yellow>%s<color> cướp được <color=yellow>10 Điểm Phúc Duyên<color>",
    					Battle.NAME_CAMP[nKillerGroupId], Battle.NAME_RANK[tbKillerBattleInfo.nRank], tbKillerBattleInfo.pPlayer.szName,Battle.NAME_CAMP[nGroupId], Battle.NAME_RANK[tbDeathBattleInfo.nRank], tbDeathBattleInfo.pPlayer.szName);							
    					KDialog.MsgToGlobal(szMsg);	
    				elseif tbDeathBattleInfo.nRank == 1 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) > 0 then -- ////
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - tbDeathBattleInfo.pPlayer.GetTask(4002,1));-- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + tbDeathBattleInfo.pPlayer.GetTask(4002,1));		-- nguoi kill		
    					tbKillerBattleInfo.pPlayer.Msg("Lục xoát khắp người "..tbDeathBattleInfo.pPlayer.szName.." tìm được "..tbKillerBattleInfo.pPlayer.GetTask(4002,1).." điểm phúc duyên.");
    
    			elseif tbDeathBattleInfo.nRank == 3 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) >= 20 then
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - 20); -- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + 40); -- nguoi kill
    				local szMsg	= string.format("%s %s <color=yellow>%s<color> đập bể đầu %s %s <color=yellow>%s<color> cướp được <color=yellow>40 Điểm Phúc Duyên<color>",
    					Battle.NAME_CAMP[nKillerGroupId], Battle.NAME_RANK[tbKillerBattleInfo.nRank], tbKillerBattleInfo.pPlayer.szName,Battle.NAME_CAMP[nGroupId], Battle.NAME_RANK[tbDeathBattleInfo.nRank], tbDeathBattleInfo.pPlayer.szName);							
    					KDialog.MsgToGlobal(szMsg);		
    				elseif tbDeathBattleInfo.nRank == 3 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) > 0 then -- ////
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - tbDeathBattleInfo.pPlayer.GetTask(4002,1));-- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + tbDeathBattleInfo.pPlayer.GetTask(4002,1));		-- nguoi kill		
    					tbKillerBattleInfo.pPlayer.Msg("Lục xoát khắp người "..tbDeathBattleInfo.pPlayer.szName.." tìm được "..tbKillerBattleInfo.pPlayer.GetTask(4002,1).." điểm phúc duyên.");
    
    			elseif tbDeathBattleInfo.nRank == 4 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) >= 50 then
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - 50); -- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + 100); -- nguoi kill
    				local szMsg	= string.format("%s %s <color=yellow>%s<color> đập bể đầu %s %s <color=yellow>%s<color> cướp được <color=yellow>100 Điểm Phúc Duyên<color>",
    					Battle.NAME_CAMP[nKillerGroupId], Battle.NAME_RANK[tbKillerBattleInfo.nRank], tbKillerBattleInfo.pPlayer.szName,Battle.NAME_CAMP[nGroupId], Battle.NAME_RANK[tbDeathBattleInfo.nRank], tbDeathBattleInfo.pPlayer.szName);							
    					KDialog.MsgToGlobal(szMsg);	
    			elseif tbDeathBattleInfo.nRank == 4 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) > 0 then -- ////
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - tbDeathBattleInfo.pPlayer.GetTask(4002,1));-- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + tbDeathBattleInfo.pPlayer.GetTask(4002,1));		-- nguoi kill		
    					tbKillerBattleInfo.pPlayer.Msg("Lục xoát khắp người "..tbDeathBattleInfo.pPlayer.szName.." tìm được "..tbKillerBattleInfo.pPlayer.GetTask(4002,1).." điểm phúc duyên.");
    			
    			elseif tbDeathBattleInfo.nRank == 5 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) >= 150 then -- ////
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - 150); -- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + 300); -- nguoi kill
    				local szMsg	= string.format("%s %s <color=yellow>%s<color> đập bể đầu %s %s <color=yellow>%s<color> cướp được <color=yellow>300 Điểm Phúc Duyên<color>",
    					Battle.NAME_CAMP[nKillerGroupId], Battle.NAME_RANK[tbKillerBattleInfo.nRank], tbKillerBattleInfo.pPlayer.szName,Battle.NAME_CAMP[nGroupId], Battle.NAME_RANK[tbDeathBattleInfo.nRank], tbDeathBattleInfo.pPlayer.szName);							
    					KDialog.MsgToGlobal(szMsg);	
    			elseif tbDeathBattleInfo.nRank == 5 and tbDeathBattleInfo.pPlayer.GetTask(4002,1) > 0 then --/////
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - tbDeathBattleInfo.pPlayer.GetTask(4002,1));-- nguoi bi kill
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + tbDeathBattleInfo.pPlayer.GetTask(4002,1));		-- nguoi kill		
    					tbKillerBattleInfo.pPlayer.Msg("Lục xoát khắp người "..tbDeathBattleInfo.pPlayer.szName.." tìm được "..tbKillerBattleInfo.pPlayer.GetTask(4002,1).." điểm phúc duyên.");
    			
    			end								
    	else -- ////
    		local szMsg	= string.format("%s %s <color=yellow>%s<color> đẩy lùi %s %s  <color=yellow>%s<color>",
    			Battle.NAME_CAMP[nKillerGroupId], Battle.NAME_RANK[tbKillerBattleInfo.nRank], tbKillerBattleInfo.pPlayer.szName,
    			Battle.NAME_CAMP[nGroupId], Battle.NAME_RANK[tbDeathBattleInfo.nRank], tbDeathBattleInfo.pPlayer.szName);			
    				if tbDeathBattleInfo.pPlayer.GetTask(4002,1) >= 3 then
    					tbDeathBattleInfo.pPlayer.SetTask(4002,1,tbDeathBattleInfo.pPlayer.GetTask(4002,1) - 3);
    					tbKillerBattleInfo.pPlayer.SetTask(4002,1,tbKillerBattleInfo.pPlayer.GetTask(4002,1) + 5);
    					KDialog.MsgToGlobal(szMsg);	
    				else
    				tbKillerBattleInfo.pPlayer.Msg("Lục xoát khắp người "..tbDeathBattleInfo.pPlayer.szName.." không hề có bình phúc duyên nào.");
    				end					
    			end
    		--[[
    local nNguoiBiGiet = tbDeathBattleInfo.pPlayer.nId;
    	
    			if nNguoiBiGiet == tbKillerBattleInfo.pPlayer.GetTask(4000,1) then -- nguoi thu 1 bi giet
    				tbKillerBattleInfo.pPlayer.SetTask(4001,1,tbKillerBattleInfo.pPlayer.GetTask(4001,1) + 1); -- set so lan giet
    					if math.fmod(tbKillerBattleInfo.pPlayer.GetTask(4001,1),15) == 0 then -- nguoi thu 1 bi giet
    					GM.tbGMRole:ArrestHim(tbKillerBattleInfo.pPlayer.nId);
    						KDialog.MsgToGlobal(string.format("Hệ Thống Phát Hiện %s dùng nhân vật %s để Post điểm liên tục, và hệ thống đưa %s lên đảo 24 giờ !",tbKillerBattleInfo.pPlayer.szName,tbDeathBattleInfo.pPlayer.szName,tbKillerBattleInfo.pPlayer.szName));					
    					end						
    			elseif tbKillerBattleInfo.pPlayer.GetTask(4000,1) ~= nNguoiBiGiet then
    					tbKillerBattleInfo.pPlayer.SetTask(4000,1,nNguoiBiGiet); -- set ten nguoi bi giet
    					tbKillerBattleInfo.pPlayer.SetTask(4001,1,tbKillerBattleInfo.pPlayer.GetTask(4001,1) + 1); -- set so lan giet				
    			end
    ]]--
    		
    		self.tbCamps[nKillerGroupId]:OnKillPlayer(tbKillerBattleInfo, tbDeathBattleInfo);
    		self:DecreaseDamageDefence(tbKillerBattleInfo.pPlayer);
    		self:IncreaseDamageDefence(tbDeathBattleInfo.pPlayer);
    		self:OnTimer_SyncData();
    		tbDeathBattleInfo.nBeenKilledNum = tbDeathBattleInfo.nBeenKilledNum + 1;
    
    		Merchant:TryGiveToken_Songjin_PLayer(pKillerPlayer, pPlayer.nId, tbDeathBattleInfo.nRank);
    	end
    end
    Chúc bạn thành công
    Khách viếng thăm hãy cùng sice1995 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. Trả lời: 14
    Bài viết cuối: 06-07-17, 05:00 PM
  2. [KT] Hỏi phần thưởng ramdom khi giết người ở Tống Kim
    Bởi devsevergame trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 6
    Bài viết cuối: 17-10-15, 09:29 PM
  3. [KT] Xin cách chỉnh ramdom event tết
    Bởi tinhlabui trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 19-09-12, 03:05 PM
  4. Hỏi Về additem và ramdom
    Bởi [M]r[K]id trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 11
    Bài viết cuối: 20-12-10, 03:03 PM

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à 09:02 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ệ.