[JX] ai giúp mình script này với
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 10 của 10
  1. #1
    Thành Viên
    Ngày tham gia
    Dec 2011
    Bài viết
    116
    Thanks
    53
    Thanked 14 Times in 9 Posts

    ai giúp mình script này với

    Code:
    TB_Material = {
     --1.ÎïÆ·Ãû	2.ÊýÁ¿
    	
    	["6,1,1221"] =	"GiÊy kiÕng lam (VËt liÖu lµm lång ®Ìn) ",mình muốn tăng số lượng vật phẩm này
    	["6,1,1222"] =	"GiÊy kiÕng vµng (VËt liÖu lµm lång ®Ìn)",
    	
    }
    
    function BaiBaoXiang_Get1(nItemCount)
    if GetCash() < 1000000 then
    Msg2Player("<color=cyan>B¹n kh«ng cã 10.000 V¹n..<color>")
    return
    end;
    -- 0,10,8 lµ phi v©n , 0,10,6 lµ b«n tiªu , 0,10,5 lµ chiÕu d¹ (ngùa 8x)
    
    
    	local tb_enhanceitem_count = {};
    	for szkey, tb_item in TB_Material do
    		tb_enhanceitem_count[szkey] = {};
    		tb_enhanceitem_count[szkey][1] = 0;
    	end
    	--¼ì²âÎïÆ·Æ¥Åä
    	for i = 1, nItemCount do
    		local nCurItemIdx = GetGiveItemUnit(i);
    		local nCurItemName = GetItemName(nCurItemIdx);
    		local nCurItemQuality = GetItemQuality(nCurItemIdx);
    		local tbCurItemProp = pack(GetItemProp(nCurItemIdx));
    		
    		local szItemKey = tbCurItemProp[1]..","..tbCurItemProp[2]..","..tbCurItemProp[3];
    		
    		
    		if (TB_Material[szItemKey] == nil) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
    				return
    		end
    		tb_enhanceitem_count[szItemKey][1] = tb_enhanceitem_count[szItemKey][1] + GetItemStackCount(nCurItemIdx);
    	end
    	
    		for szkey, tb_item in TB_Material do
    				if (tb_enhanceitem_count[szkey][1] ~= 1) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
    				return
    				end
    		end
    		
    		--ɾ²ÄÁÏ
    		for i=1, nItemCount do
    			local nIdx = GetGiveItemUnit(i)
    			if (RemoveItemByIndex(nIdx) ~= 1) then
    				--WriteLog(format("[GuoQing2007_BaiBaoXiang]Date:%s\t Account:%s\t Name:%s\t DelItemFail:%s",GetLocalDate("%Y-%m-%d %H:%M:%S"),GetAccount(),GetName(),GetItemName(GetGiveItemUnit(i)) ));
    				return
    			end
    		end
    		
    
    		Msg2Player("§¹i hiÖp <color=yellow>"..GetName().."<color> n©ng cÊp thµnh c«ng <color=gold>Phi V©n<color>");
    Pay(100000000)
    AddItem(0,10,9,0,0,0)
    		WriteLog(format("[GuoQing2007_BaiBaoXiang]\t Date:%s\t Account:%s\t Name:%s\t Effect:Get BaiBaoXiang",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName()));
    end
    
    function pack(...)
    	return arg
    end
    mình muốn tăng số lượng đưa vào thì chỉnh chỗ nào vậy
    Lần sửa cuối bởi pleichim, ngày 02-12-17 lúc 03:44 PM.
    Khách viếng thăm hãy cùng pleichim xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên
    Ngày tham gia
    Dec 2011
    Bài viết
    116
    Thanks
    53
    Thanked 14 Times in 9 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi pleichim [Only registered and activated users can see links. ]
    Code:
    TB_Material = {
     --1.ÎïÆ·Ãû	2.ÊýÁ¿
    	
    	["6,1,1221"] =	"GiÊy kiÕng lam (VËt liÖu lµm lång ®Ìn) ",mình muốn tăng số lượng vật phẩm này
    	["6,1,1222"] =	"GiÊy kiÕng vµng (VËt liÖu lµm lång ®Ìn)",
    	
    }
    
    function BaiBaoXiang_Get1(nItemCount)
    if GetCash() < 1000000 then
    Msg2Player("<color=cyan>B¹n kh«ng cã 10.000 V¹n..<color>")
    return
    end;
    -- 0,10,8 lµ phi v©n , 0,10,6 lµ b«n tiªu , 0,10,5 lµ chiÕu d¹ (ngùa 8x)
    
    
    	local tb_enhanceitem_count = {};
    	for szkey, tb_item in TB_Material do
    		tb_enhanceitem_count[szkey] = {};
    		tb_enhanceitem_count[szkey][1] = 0;
    	end
    	--¼ì²âÎïÆ·Æ¥Åä
    	for i = 1, nItemCount do
    		local nCurItemIdx = GetGiveItemUnit(i);
    		local nCurItemName = GetItemName(nCurItemIdx);
    		local nCurItemQuality = GetItemQuality(nCurItemIdx);
    		local tbCurItemProp = pack(GetItemProp(nCurItemIdx));
    		
    		local szItemKey = tbCurItemProp[1]..","..tbCurItemProp[2]..","..tbCurItemProp[3];
    		
    		
    		if (TB_Material[szItemKey] == nil) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
    				return
    		end
    		tb_enhanceitem_count[szItemKey][1] = tb_enhanceitem_count[szItemKey][1] + GetItemStackCount(nCurItemIdx);
    	end
    	
    		for szkey, tb_item in TB_Material do
    				if (tb_enhanceitem_count[szkey][1] ~= 1) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
    				return
    				end
    		end
    		
    		--ɾ²ÄÁÏ
    		for i=1, nItemCount do
    			local nIdx = GetGiveItemUnit(i)
    			if (RemoveItemByIndex(nIdx) ~= 1) then
    				--WriteLog(format("[GuoQing2007_BaiBaoXiang]Date:%s\t Account:%s\t Name:%s\t DelItemFail:%s",GetLocalDate("%Y-%m-%d %H:%M:%S"),GetAccount(),GetName(),GetItemName(GetGiveItemUnit(i)) ));
    				return
    			end
    		end
    		
    
    		Msg2Player("§¹i hiÖp <color=yellow>"..GetName().."<color> n©ng cÊp thµnh c«ng <color=gold>Phi V©n<color>");
    Pay(100000000)
    AddItem(0,10,9,0,0,0)
    		WriteLog(format("[GuoQing2007_BaiBaoXiang]\t Date:%s\t Account:%s\t Name:%s\t Effect:Get BaiBaoXiang",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName()));
    end
    
    function pack(...)
    	return arg
    end
    mình muốn tăng số lượng đưa vào thì chỉnh chỗ nào vậy
    Help meeeeeeeeeeeeeeeeeeeeeeeee
    Khách viếng thăm hãy cùng pleichim xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Super Moderator thaihoa91's Avatar
    Ngày tham gia
    Apr 2008
    Bài viết
    12,110
    Thanks
    662
    Thanked 3,168 Times in 1,602 Posts

    Ðề: ai giúp mình script này với

    Mình bỏ code lâu rồi nên chỉ có thể gợi ý cho bạn khả năng nó nằm ở đoạn màu đỏ đậm mà mình đã làm dấu, biến szkey, ở đoạn đó là mảng 2 chiều (nếu bạn có học qua viết code chắc sẽ biết mảng 1 chiều và 2 chiều là gì). Đoạn đó nó check số lượng của item. Mình chỉ có thể hướng dẫn tới đó. Bạn có thể tìm hiểu thêm để edit số lượng theo ý của bạn.


    Code:
    TB_Material = {
     --1.ÎïÆ·Ãû    2.ÊýÁ¿
        
        ["6,1,1221"] =    "GiÊy kiÕng lam (VËt liÖu lµm lång ®Ìn) ",mình muốn tăng số lượng vật phẩm này
        ["6,1,1222"] =    "GiÊy kiÕng vµng (VËt liÖu lµm lång ®Ìn)",
        
    }
    
    function BaiBaoXiang_Get1(nItemCount)
    if GetCash() < 1000000 then
    Msg2Player("<color=cyan>B¹n kh«ng cã 10.000 V¹n..<color>")
    return
    end;
    -- 0,10,8 lµ phi v©n , 0,10,6 lµ b«n tiªu , 0,10,5 lµ chiÕu d¹ (ngùa 8x)
    
    
        local tb_enhanceitem_count = {};
        for szkey, tb_item in TB_Material do
            tb_enhanceitem_count[szkey] = {};
            tb_enhanceitem_count[szkey][1] = 0;
        end
        --¼ì²âÎïÆ·Æ¥Åä
        for i = 1, nItemCount do
            local nCurItemIdx = GetGiveItemUnit(i);
            local nCurItemName = GetItemName(nCurItemIdx);
            local nCurItemQuality = GetItemQuality(nCurItemIdx);
            local tbCurItemProp = pack(GetItemProp(nCurItemIdx));
            
            local szItemKey = tbCurItemProp[1]..","..tbCurItemProp[2]..","..tbCurItemProp[3];
            
            
            if (TB_Material[szItemKey] == nil) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
                    return
            end
            tb_enhanceitem_count[szItemKey][1] = tb_enhanceitem_count[szItemKey][1] + GetItemStackCount(nCurItemIdx);
        end
        
            for szkey, tb_item in TB_Material do
                    if (tb_enhanceitem_count[szkey][1] ~= 1) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
                    return
                    end
            end
            
            --ɾ²ÄÁÏ
            for i=1, nItemCount do
                local nIdx = GetGiveItemUnit(i)
                if (RemoveItemByIndex(nIdx) ~= 1) then
                    --WriteLog(format("[GuoQing2007_BaiBaoXiang]Date:%s\t Account:%s\t Name:%s\t DelItemFail:%s",GetLocalDate("%Y-%m-%d %H:%M:%S"),GetAccount(),GetName(),GetItemName(GetGiveItemUnit(i)) ));
                    return
                end
            end
            
    
            Msg2Player("§¹i hiÖp <color=yellow>"..GetName().."<color> n©ng cÊp thµnh c«ng <color=gold>Phi V©n<color>");
    Pay(100000000)
    AddItem(0,10,9,0,0,0)
            WriteLog(format("[GuoQing2007_BaiBaoXiang]\t Date:%s\t Account:%s\t Name:%s\t Effect:Get BaiBaoXiang",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName()));
    end
    
    function pack(...)
        return arg
    end
    Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    pleichim (02-12-17)

  5. #4
    Thành Viên
    Ngày tham gia
    Dec 2011
    Bài viết
    116
    Thanks
    53
    Thanked 14 Times in 9 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi thaihoa91 [Only registered and activated users can see links. ]
    Mình bỏ code lâu rồi nên chỉ có thể gợi ý cho bạn khả năng nó nằm ở đoạn màu đỏ đậm mà mình đã làm dấu, biến szkey, ở đoạn đó là mảng 2 chiều (nếu bạn có học qua viết code chắc sẽ biết mảng 1 chiều và 2 chiều là gì). Đoạn đó nó check số lượng của item. Mình chỉ có thể hướng dẫn tới đó. Bạn có thể tìm hiểu thêm để edit số lượng theo ý của bạn.


    Code:
    TB_Material = {
     --1.ÎïÆ·Ãû    2.ÊýÁ¿
        
        ["6,1,1221"] =    "GiÊy kiÕng lam (VËt liÖu lµm lång ®Ìn) ",mình muốn tăng số lượng vật phẩm này
        ["6,1,1222"] =    "GiÊy kiÕng vµng (VËt liÖu lµm lång ®Ìn)",
        
    }
    
    function BaiBaoXiang_Get1(nItemCount)
    if GetCash() < 1000000 then
    Msg2Player("<color=cyan>B¹n kh«ng cã 10.000 V¹n..<color>")
    return
    end;
    -- 0,10,8 lµ phi v©n , 0,10,6 lµ b«n tiªu , 0,10,5 lµ chiÕu d¹ (ngùa 8x)
    
    
        local tb_enhanceitem_count = {};
        for szkey, tb_item in TB_Material do
            tb_enhanceitem_count[szkey] = {};
            tb_enhanceitem_count[szkey][1] = 0;
        end
        --¼ì²âÎïÆ·Æ¥Åä
        for i = 1, nItemCount do
            local nCurItemIdx = GetGiveItemUnit(i);
            local nCurItemName = GetItemName(nCurItemIdx);
            local nCurItemQuality = GetItemQuality(nCurItemIdx);
            local tbCurItemProp = pack(GetItemProp(nCurItemIdx));
            
            local szItemKey = tbCurItemProp[1]..","..tbCurItemProp[2]..","..tbCurItemProp[3];
            
            
            if (TB_Material[szItemKey] == nil) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
                    return
            end
            tb_enhanceitem_count[szItemKey][1] = tb_enhanceitem_count[szItemKey][1] + GetItemStackCount(nCurItemIdx);
        end
        
            for szkey, tb_item in TB_Material do
                    if (tb_enhanceitem_count[szkey][1] ~= 1) then
    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
                    return
                    end
            end
            
            --ɾ²ÄÁÏ
            for i=1, nItemCount do
                local nIdx = GetGiveItemUnit(i)
                if (RemoveItemByIndex(nIdx) ~= 1) then
                    --WriteLog(format("[GuoQing2007_BaiBaoXiang]Date:%s\t Account:%s\t Name:%s\t DelItemFail:%s",GetLocalDate("%Y-%m-%d %H:%M:%S"),GetAccount(),GetName(),GetItemName(GetGiveItemUnit(i)) ));
                    return
                end
            end
            
    
            Msg2Player("§¹i hiÖp <color=yellow>"..GetName().."<color> n©ng cÊp thµnh c«ng <color=gold>Phi V©n<color>");
    Pay(100000000)
    AddItem(0,10,9,0,0,0)
            WriteLog(format("[GuoQing2007_BaiBaoXiang]\t Date:%s\t Account:%s\t Name:%s\t Effect:Get BaiBaoXiang",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName()));
    end
    
    function pack(...)
        return arg
    end
    thank bác,em làm như bác thì nó tăng tất cả các item trong TB_Material, cái em muốn là tăng độc lập 1 item thì làm sao hả bác,giúp nốt em di
    Khách viếng thăm hãy cùng pleichim xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #5
    Super Moderator thaihoa91's Avatar
    Ngày tham gia
    Apr 2008
    Bài viết
    12,110
    Thanks
    662
    Thanked 3,168 Times in 1,602 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi pleichim [Only registered and activated users can see links. ]
    thank bác,em làm như bác thì nó tăng tất cả các item trong TB_Material, cái em muốn là tăng độc lập 1 item thì làm sao hả bác,giúp nốt em di
    Đó là mảng 2 chiều, mình chỉ hướng dẫn tới đó thôi, vì là vòng lặp for nếu thay số 1 thành 2 thì sẽ thành điều kiện mỗi item đều phải có số lượng là 2, mảng 2 chiều chạy từ đầu danh sách item đến cuối danh sách item, cái bạn cần là nắm kiến thức mảng 2 chiều để xử lý. Mình đưa cho bạn cần câu và mồi rồi, việc còn lại của bạn là học cách câu cá. Câu được cá hay không là do ở bạn thôi.
    Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    pleichim (02-12-17)

  8. #6
    Thành Viên
    Ngày tham gia
    Dec 2011
    Bài viết
    116
    Thanks
    53
    Thanked 14 Times in 9 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi thaihoa91 [Only registered and activated users can see links. ]
    Đó là mảng 2 chiều, mình chỉ hướng dẫn tới đó thôi, vì là vòng lặp for nếu thay số 1 thành 2 thì sẽ thành điều kiện mỗi item đều phải có số lượng là 2, mảng 2 chiều chạy từ đầu danh sách item đến cuối danh sách item, cái bạn cần là nắm kiến thức mảng 2 chiều để xử lý. Mình đưa cho bạn cần câu và mồi rồi, việc còn lại của bạn là học cách câu cá. Câu được cá hay không là do ở bạn thôi.
    em là newbie nên mấy phần đó k rõ, chỉ bít mấy cái cơ bản, chủ yếu la coppy paste, anh rãnh giứp em tí
    Khách viếng thăm hãy cùng pleichim xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #7
    Super Moderator thaihoa91's Avatar
    Ngày tham gia
    Apr 2008
    Bài viết
    12,110
    Thanks
    662
    Thanked 3,168 Times in 1,602 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi pleichim [Only registered and activated users can see links. ]
    em là newbie nên mấy phần đó k rõ, chỉ bít mấy cái cơ bản, chủ yếu la coppy paste, anh rãnh giứp em tí

    Giáo trình tự học C và C++ bạn có thể tìm kiếm từ google [Only registered and activated users can see links. ][Only registered and activated users can see links. ]
    Khách viếng thăm hãy cùng thaihoa91 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. The Following 3 Users Say Thank You to thaihoa91 For This Useful Post:

    hoanghuan (05-12-17), pleichim (02-12-17), sin1992 (03-12-17)

  11. #8
    Thành Viên
    Ngày tham gia
    Mar 2010
    Bài viết
    430
    Thanks
    30
    Thanked 182 Times in 81 Posts

    Ðề: ai giúp mình script này với

    Code:
    if (tb_enhanceitem_count[szkey][1] ~= 1) then
                    Msg2Player("<color=cyan>Nguyªn liÖu bá vµo kh«ng ®óng..<color>")
    		return
    end
    Đây là chỗ bạn có thể dùng để check số lượng vật phẩm cần (hiện tại số lượng quy định là 1). Còn làm sao thì tự tìm hỉu đi nhé.
    Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  12. #9
    Thành Viên
    Ngày tham gia
    Apr 2014
    Bài viết
    44
    Thanks
    3
    Thanked 12 Times in 11 Posts

    Ðề: ai giúp mình script này với

    Không hiểu ông nào code đoạn này mà tù tội thế. Nhìn code tưởng pro lắm hóa ra là vẽ rắn thêm chân. Sao ko tự code lại cho nhanh. Cả đoạn code trên chắc chỉ gói gọn trong tầm 15-20 dòng code đơn giản nếu tối ưu tốt.
    Khách viếng thăm hãy cùng rcproset xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  13. #10
    Thành Viên Tâm Huyết assaa's Avatar
    Ngày tham gia
    Jul 2009
    Bài viết
    915
    Thanks
    271
    Thanked 416 Times in 236 Posts

    Ðề: ai giúp mình script này với

    Trích dẫn Gửi bởi rcproset [Only registered and activated users can see links. ]
    Không hiểu ông nào code đoạn này mà tù tội thế. Nhìn code tưởng pro lắm hóa ra là vẽ rắn thêm chân. Sao ko tự code lại cho nhanh. Cả đoạn code trên chắc chỉ gói gọn trong tầm 15-20 dòng code đơn giản nếu tối ưu tốt.
    Tự code lại dễ hiểu sau này dễ chỉnh sửa. Cơ mà bỏ jx lâu rồi nhìn vô thấy cũng loạn
    Khách viếng thăm hãy cùng assaa xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [KT] Xin Script gia nhập môn phái hoặc Script của trưởng môn 12 phái
    Bởi giangbanlac trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 15-08-13, 06:30 PM
  2. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  3. Hổ trợ script khi các bạn bị lỗi script của mình(v1)
    Bởi banynavy trong diễn đàn Scripts
    Trả lời: 6
    Bài viết cuối: 30-08-10, 01:51 PM
  4. Ai pro script hướng dẫn cái script chỉ dùm cái này !!!
    Bởi anthonyluu trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 30-07-10, 08:11 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à 08:10 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ệ.