[KT] Hỏi về script đổi trang bị pet
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 2 1 2 CuốiCuối
Kết quả 1 đến 10 của 12
  1. #1
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Hỏi về script đổi trang bị pet

    cả 2 SV share điều có chung cái scipt này nhưng mình tét có lõi sau
    PHP Code:
    function tbLegendKiem:vkdhc2()
        
    local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí
        local tbItemId2 
    = {18,1,325,1,0,0}; -- VSV
        local nCount1 
    me.GetItemCountInBags(18,1,25128,1);
        
    local nCount2 me.GetItemCountInBags(18,1,325,1);
        
    if 
    nCount1 50 and nCount2 2500 then
    Dialog
    :Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
        return 
    0;
            else
        
    Task:DelItem(metbItemId150);
        
    Task:DelItem(metbItemId22500);
        
    me.AddItem(5,19,1,2);
             
    Dialog:Say("<color=wheat>Chức mừng <coloryellow>"  ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
             
    GlobalExcute({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
        
    end
    end 

    -----------nó chỉ check là khi bạn có 2500 vsv là nó đổi cho bạn luôn chứ nó ko đòi điều kiện là 50 linh hồn vũ khí
    Yahoo : Mattroimoi111

  2. #2
    Thành Viên trickster's Avatar
    Ngày tham gia
    Feb 2013
    Bài viết
    218
    Thanks
    43
    Thanked 195 Times in 66 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    Code:
    local tbTrangBiDongHanh = Npc:GetClass("trangbidonghanh");
    local REQUIRE_ITEM = { 
    			[5] = 
    			{
    				{
    					{
    						string.format("%s,%s,%s,%s", 18, 1, 943, 1),
    						string.format("%s,%s,%s,%s", 18, 1, 946, 1),
    						string.format("%s,%s,%s,%s", 18, 1, 949, 1),
    						string.format("%s,%s,%s,%s", 18, 1, 1239, 1),
    						string.format("%s,%s,%s,%s", 18, 1, 1242, 1),
    						
    					}, 
    					5
    				},
    			},
    };
    function tbTrangBiDongHanh:OnDialog()
    	local nState	= me.GetTask(3006, 2);
    	local szButtonColor	= (nState < 20 and "") or "<color=gray>";
    	local tbOpt = 
    	{
    	 {"<color=yellow>Đổi Trang Bị Đồng Hành<color>", self.DoiDo, self},
    	 {"Kết thúc đối thoại"},
    	}
    
    
    
    		Dialog:Say("<color=yellow>Tướng Quân :<color> \nXin chào <color=cyan>" ..me.szName.. "<color> ! ",tbOpt);
    end
    
    function tbTrangBiDongHanh:DoiDo()
    	local szMsg = "<color=wheat>Xin hãy chọn vật phẩm cần đổi:<color>";
    	local tbOpt=
    	{ 
    	    {"<color=yellow>Đổi lấy Đơn Tâm Chiến Y<color>",self.DoiAo,self};
            {"<color=yellow>Đổi lấy Đơn Tâm Hộ Thân Phù<color>",self.DoiPhu,self};
    		{"<color=yellow>Đổi lấy Đơn Tâm Chi Nhẫn<color>",self.DoiVK,self};
    		{"<color=yellow>Đổi lấy Đan Tâm Hộ Uyển<color>",self.DoiHoUyen,self};
    		{"<color=yellow>Đổi lấy Đơn Tâm Giới Chỉ<color>",self.DoiNhan,self};
    	};
    	Dialog:Say(szMsg, tbOpt);
    	end
    function tbTrangBiDongHanh:DoiAo()
    	local nMyMoney	= me.nCashMoney; --GetCash();
    	local tbItemId2	= {18,1,943,1,0,0};
    	local tbItemId3	= {18,1,946,1,0,0};
    	local tbItemId4	= {18,1,949,1,0,0};
    	local tbItemId5	= {18,1,1239,1,0,0};
    	local tbItemId6	= {18,1,1242,1,0,0};
       	local nCount2 = me.GetItemCountInBags(18,1,943,1);
       	local nCount3 = me.GetItemCountInBags(18,1,946,1);
       	local nCount4 = me.GetItemCountInBags(18,1,949,1);
    	local nCount5 = me.GetItemCountInBags(18,1,1239,1);
    	local nCount6 = me.GetItemCountInBags(18,1,1242,1);
    	
    	-- if (nMyMoney < 50000) then
    		-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
    		-- return 0;
    	-- end
    	if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
    		Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
    		return 0;
    	else
    		Task:DelItem(me, tbItemId2, 1);
    		Task:DelItem(me, tbItemId3, 1);
    		Task:DelItem(me, tbItemId4, 1);
    		Task:DelItem(me, tbItemId5, 1);
    		Task:DelItem(me, tbItemId6, 1);
    		me.AddItem(5,20,1,3).Bind(1);
    		GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>"  ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
    	me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
    		 .. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
    	 Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
    		-- me.CostMoney(50000,0);
    	end
    end
    function tbTrangBiDongHanh:DoiPhu()
    	local nMyMoney	= me.nCashMoney; --GetCash();
    	local tbItemId2	= {18,1,943,1,0,0};
    	local tbItemId3	= {18,1,946,1,0,0};
    	local tbItemId4	= {18,1,949,1,0,0};
    	local tbItemId5	= {18,1,1239,1,0,0};
    	local tbItemId6	= {18,1,1242,1,0,0};
       	local nCount2 = me.GetItemCountInBags(18,1,943,1);
       	local nCount3 = me.GetItemCountInBags(18,1,946,1);
       	local nCount4 = me.GetItemCountInBags(18,1,949,1);
    	local nCount5 = me.GetItemCountInBags(18,1,1239,1);
    	local nCount6 = me.GetItemCountInBags(18,1,1242,1);
    	-- if (nMyMoney < 50000) then
    		-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
    		-- return 0;
    	-- end
    	if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
    		Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
    		return 0;
    	else
    		Task:DelItem(me, tbItemId2, 1);
    		Task:DelItem(me, tbItemId3, 1);
    		Task:DelItem(me, tbItemId4, 1);
    		Task:DelItem(me, tbItemId5, 1);
    		Task:DelItem(me, tbItemId6, 1);
    		me.AddItem(5,23,1,3).Bind(1);
    		GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>"  ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !"});
    	me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
    		 .. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !");
    	 Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Hộ Thân Phù xin chúc mừng !<color>", {"Cảm ơn !"});
    		-- me.CostMoney(50000,0);
    	end
    end
    function tbTrangBiDongHanh:DoiVK()
    	local nMyMoney	= me.nCashMoney; --GetCash();
    	local tbItemId2	= {18,1,943,1,0,0};
    	local tbItemId3	= {18,1,946,1,0,0};
    	local tbItemId4	= {18,1,949,1,0,0};
    	local tbItemId5	= {18,1,1239,1,0,0};
    	local tbItemId6	= {18,1,1242,1,0,0};
       	local nCount2 = me.GetItemCountInBags(18,1,943,1);
       	local nCount3 = me.GetItemCountInBags(18,1,946,1);
       	local nCount4 = me.GetItemCountInBags(18,1,949,1);
    	local nCount5 = me.GetItemCountInBags(18,1,1239,1);
    	local nCount6 = me.GetItemCountInBags(18,1,1242,1);
    	
    	-- if (nMyMoney < 50000) then
    		-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
    		-- return 0;
    	-- end
    	if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
    		Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
    		return 0;
    	else
    		Task:DelItem(me, tbItemId2, 1);
    		Task:DelItem(me, tbItemId3, 1);
    		Task:DelItem(me, tbItemId4, 1);
    		Task:DelItem(me, tbItemId5, 1);
    		Task:DelItem(me, tbItemId6, 1);
    		me.AddItem(5,19,1,3).Bind(1);
    		GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>"  ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
    	me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
    		 .. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
    	 Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
    		-- me.CostMoney(50000,0);
    	end
    end
    
    function tbTrangBiDongHanh:DoiHoUyen()
    	local nMyMoney	= me.nCashMoney; --GetCash();
    	local tbItemId2	= {18,1,943,1,0,0};
    	local tbItemId3	= {18,1,946,1,0,0};
    	local tbItemId4	= {18,1,949,1,0,0};
    	local tbItemId5	= {18,1,1239,1,0,0};
    	local tbItemId6	= {18,1,1242,1,0,0};
       	local nCount2 = me.GetItemCountInBags(18,1,943,1);
       	local nCount3 = me.GetItemCountInBags(18,1,946,1);
       	local nCount4 = me.GetItemCountInBags(18,1,949,1);
    	local nCount5 = me.GetItemCountInBags(18,1,1239,1);
    	local nCount6 = me.GetItemCountInBags(18,1,1242,1);
    	
    	-- if (nMyMoney < 50000) then
    		-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
    		-- return 0;
    	-- end
    	if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
    		Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
    		return 0;
    	else
    		Task:DelItem(me, tbItemId2, 1);
    		Task:DelItem(me, tbItemId3, 1);
    		Task:DelItem(me, tbItemId4, 1);
    		Task:DelItem(me, tbItemId5, 1);
    		Task:DelItem(me, tbItemId6, 1);
    		me.AddItem(5,22,1,3).Bind(1);
    		GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>"  ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đam Tâm Giới Chỉ xin chúc mừng !"});
    	me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
    		 .. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
    	 Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
    		-- me.CostMoney(50000,0);
    	end
    end
    function tbTrangBiDongHanh:DoiNhan()
    	local nMyMoney	= me.nCashMoney; --GetCash();
    	local tbItemId2	= {18,1,943,1,0,0};
    	local tbItemId3	= {18,1,946,1,0,0};
    	local tbItemId4	= {18,1,949,1,0,0};
    	local tbItemId5	= {18,1,1239,1,0,0};
    	local tbItemId6	= {18,1,1242,1,0,0};
       	local nCount2 = me.GetItemCountInBags(18,1,943,1);
       	local nCount3 = me.GetItemCountInBags(18,1,946,1);
       	local nCount4 = me.GetItemCountInBags(18,1,949,1);
    	local nCount5 = me.GetItemCountInBags(18,1,1239,1);
    	local nCount6 = me.GetItemCountInBags(18,1,1242,1);
    	
    	-- if (nMyMoney < 50000) then
    		-- Dialog:Say("Không đủ 5 Vạn Lượng, có đủ rồi hãy quay lại.");
    		-- return 0;
    	-- end
    	if nCount2 < 1 or nCount3 < 1 or nCount4 < 1 or nCount5 < 1 or nCount6 < 1 then
    		Dialog:Say("<color=wheat>Trong hành trang của bạn không có đủ vật phẩm ta cần:<color>\n<color=yellow>+Mảnh Đơn Tâm Chi Nhẫn\n+Mảnh Đơn Tâm Hộ Thân Phù\n+Mảnh Đơn Tâm Chiến Y\n+ MảnhĐan Tâm Giới Chỉ\n+Mảnh Đan Tâm Hộ Uyển<color><color>");
    		return 0;
    	else
    		Task:DelItem(me, tbItemId2, 1);
    		Task:DelItem(me, tbItemId3, 1);
    		Task:DelItem(me, tbItemId4, 1);
    		Task:DelItem(me, tbItemId5, 1);
    		Task:DelItem(me, tbItemId6, 1);
    		me.AddItem(5,21,1,3).Bind(1);
    		GlobalExcute({"Dialog:GlobalNewsMsg_GS", "Người chơi <color=cyan>"  ..me.szName.. "<color> đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng !"});
    	me.SendMsgToFriend("Hảo hữu của bạn <color=cyan>" .. me.szName 
    		 .. "<color>] đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng");
    	 Dialog:Say("<color=wheat>Chúc mừng ngươi đã đổi thành công 5 Mảnh Đơn Tâm Lấy Đơn Tâm Chiến Y xin chúc mừng<color>", {"Cảm ơn !"});
    		-- me.CostMoney(50000,0);
    	end
    end

    tham khảo
    Khách viếng thăm hãy cùng trickster xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    lyvanbethao (18-05-13)

  4. #3
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,843 Times in 881 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    PHP Code:
    function tbLegendKiem:vkdhc2() 
        
    local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí 
        local tbItemId2 
    = {18,1,325,1,0,0}; -- VSV 
        local nCount1 
    me.GetItemCountInBags(18,1,25128,1); 
        
    local nCount2 me.GetItemCountInBags(18,1,325,1); 
         
    if 
    nCount1 50 and nCount2 2500 then 
    Dialog
    :Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta ."
        return 
    0
            else 
        
    Task:DelItem(metbItemId150); 
        
    Task:DelItem(metbItemId22500); 
        
    me.AddItem(5,19,1,2); 
             
    Dialog:Say("<color=wheat>Chức mừng <coloryellow>"  ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."}); 
             
    GlobalExcute({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"}); 
        
    end 
    end 
    ----------
    Sửa lại thử kiểu này :
    PHP Code:
    function tbLegendKiem:vkdhc2() 
        
    local tbItemId1 = {18,1,25128,1,0,0}; -- Linh Hồn Vũ Khí 
        local tbItemId2 
    = {18,1,325,1,0,0}; -- VSV 
        local nCount1 
    me.GetItemCountInBags(18,1,25128,1); 
        
    local nCount2 me.GetItemCountInBags(18,1,325,1); 
         
    if 
    nCount1 50 or nCount2 2500 then 
    Dialog
    :Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .\nSố Linh Hồn Vũ Khí Hiện Có "..nCount1.."\nSố Vỏ Sò Vàng hiện có : "..nCount2..""
    return; 
    end
    Task
    :DelItem(metbItemId150); -- Xóa 50 LH Vũ Khí
    Task
    :DelItem(metbItemId22500); -- Xóa 2500 Vỏ Sò Vàng
    me
    .AddItem(5,19,1,2); -- Ad vật phẩm vào
    Dialog
    :Say("<color=wheat>Chức mừng <coloryellow>"  ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>"); 
    GlobalExcute({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp<color=red>2<color>"}); 
    end 
    Lần sửa cuối bởi satthupro95, ngày 18-05-13 lúc 09:15 PM.
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    lyvanbethao (18-05-13)

  6. #4
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    cái script này đổi 5 món khác nhau(mõi thứ 1 cái ) thành 1 món mình muốn tham khão script đổi 3 món khác nhau (mõi thứ nhiều cái vd như 500 vsv , 1000NAT) lấy thành 1 món bạn @@

    --- Chế độ gộp bài viết ---

    Trích dẫn Gửi bởi satthupro95 [Only registered and activated users can see links. ]
    Sửa
    if nCount1 < 50 and nCount2 < 2500 then
    Dialog:Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
    return 0;
    else

    Thành
    if nCount1 < 50 or nCount2 < 2500 then
    Dialog:Say("Khi nào đủ 50 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
    return;
    end

    Thử xem được không bạn
    cám ơn THÁNH nhờ cái này mà có thể tùy biến ra thêm mấy cái khác thanks nhé
    Yahoo : Mattroimoi111

  7. #5
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,843 Times in 881 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    Trích dẫn Gửi bởi lyvanbethao [Only registered and activated users can see links. ]
    cái script này đổi 5 món khác nhau(mõi thứ 1 cái ) thành 1 món mình muốn tham khão script đổi 3 món khác nhau (mõi thứ nhiều cái vd như 500 vsv , 1000NAT) lấy thành 1 món bạn @@

    --- Chế độ gộp bài viết ---



    cám ơn THÁNH nhờ cái này mà có thể tùy biến ra thêm mấy cái khác thanks nhé
    Code chúng ta yếu cứ chơi loại đơn giản mà táng
    Mấy code của trickter kiểu dạng phức tạp không cần làm theo cũng được
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    lyvanbethao (18-05-13)

  9. #6
    Thành Viên trickster's Avatar
    Ngày tham gia
    Feb 2013
    Bài viết
    218
    Thanks
    43
    Thanked 195 Times in 66 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    Trích dẫn Gửi bởi satthupro95 [Only registered and activated users can see links. ]
    Code chúng ta yếu cứ chơi loại đơn giản mà táng
    Mấy code của trickter kiểu dạng phức tạp không cần làm theo cũng được
    Cái này không nhớ ai send ra , chứ viết được thế chắc mọc cánh thành thánh rồi cũng nên
    Khách viếng thăm hãy cùng trickster xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #7
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    test thêm cái đoạn này sài ok nhưng có 1 lõi
    PHP Code:
    function tbLegendKiem:vkdhc2()
        
    local tbItemId1 = {18,1,295,4,0,0}; -- Linh Hồn Vũ Khí
        local tbItemId2 
    = {18,1,325,1,0,0}; -- VSV
        local tbItemId3 
    = {5,19,1,1,0,0}; -- VK 1
        local nCount1 
    me.GetItemCountInBags(18,1,295,4);
        
    local nCount2 me.GetItemCountInBags(18,1,325,1);
        
    local nCount3 me.GetItemCountInBags(5,19,1,1);
        
    if 
    nCount1 100 or nCount2 2500 or nCount3 1 then
    Dialog
    :Say("Khi nào đủ 1 Vũ khí LV1 + 100 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
        return 
    0;
            else
        
    Task:DelItem(metbItemId1100);
        
    Task:DelItem(metbItemId22500);
        
    Task:DelItem(metbItemId31);
        
    me.AddItem(5,19,1,2);
             
    Dialog:Say("<color=wheat>Chức mừng <coloryellow>"  ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
             
    GlobalExcute({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
        
    end
    end 
    khi để {5,19,1,1,0,0}; -- VK 1 bên túi phụ ấy nó ko delete cái vk 1 này mà nó vẫn nhận dc VK 2 @@ giúp với
    Yahoo : Mattroimoi111

  11. #8
    Thành Viên Tâm Huyết satthupro95's Avatar
    Ngày tham gia
    Jan 2012
    Bài viết
    2,415
    Thanks
    2,567
    Thanked 1,843 Times in 881 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    Trích dẫn Gửi bởi lyvanbethao [Only registered and activated users can see links. ]
    test thêm cái đoạn này sài ok nhưng có 1 lõi
    PHP Code:
    function tbLegendKiem:vkdhc2()
        
    local tbItemId1 = {18,1,295,4,0,0}; -- Linh Hồn Vũ Khí
        local tbItemId2 
    = {18,1,325,1,0,0}; -- VSV
        local tbItemId3 
    = {5,19,1,1,0,0}; -- VK 1
        local nCount1 
    me.GetItemCountInBags(18,1,295,4);
        
    local nCount2 me.GetItemCountInBags(18,1,325,1);
        
    local nCount3 me.GetItemCountInBags(5,19,1,1);
        
    if 
    nCount1 100 or nCount2 2500 or nCount3 1 then
    Dialog
    :Say("Khi nào đủ 1 Vũ khí LV1 + 100 Linh Hồn Vũ Khí và 2500 Vỏ Sò Vàng hãy đến tìm ta .")
        return 
    0;
            else
        
    Task:DelItem(metbItemId1100);
        
    Task:DelItem(metbItemId22500);
        
    Task:DelItem(metbItemId31);
        
    me.AddItem(5,19,1,2);
             
    Dialog:Say("<color=wheat>Chức mừng <coloryellow>"  ..me.szName.. "<color> Nhận được Vũ Khí Đồng Hành Cấp <color=red>2<color>", {"..."});
             
    GlobalExcute({"Dialog:GlobalNewsMsg_GS""Người chơi <color=cyan>"  ..me.szName.. "<color> đã chế tạo thành công Vũ Khí Đồng Hành Cấp <color=red>2<color>"});
        
    end
    end 
    khi để {5,19,1,1,0,0}; -- VK 1 bên túi phụ ấy nó ko delete cái vk 1 này mà nó vẫn nhận dc VK 2 @@ giúp với
    Hàm del này nó del cả item trong kho nữa nhé ^^
    Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    lyvanbethao (18-05-13)

  13. #9
    Thành Viên lyvanbethao's Avatar
    Ngày tham gia
    Jul 2012
    Bài viết
    582
    Thanks
    215
    Thanked 17 Times in 16 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    Trích dẫn Gửi bởi satthupro95 [Only registered and activated users can see links. ]
    Hàm del này nó del cả item trong kho nữa nhé ^^
    ra là thế @@ thanks you very much
    Yahoo : Mattroimoi111

  14. #10
    Thành Viên Tâm Huyết __Jie__'s Avatar
    Ngày tham gia
    Sep 2008
    Bài viết
    1,320
    Thanks
    256
    Thanked 740 Times in 559 Posts

    Ðề: hoi về script luyện hóa trang bị pet

    sao không viết OpenGift cho đơn giản .

    Bỏ Item vào và xóa item đi .

    Ngay trong Client VNG nó đã share rồi còn gì
    Code:
    function tbLiGuan:ChangeSignt()
        Dialog:OpenGift("Hãy đặt vào <color=yellow>100 Mảnh Lôi Đình Ấn<color>, ta sẽ đổi cho ngươi 1 <color=yellow>Lôi Đình Ấn<color> hoàn chỉnh.", nil ,{self.OnOpenGiftOk, self});
    end
    
    
    function tbLiGuan:OnOpenGiftOk(tbItemObj)
        local nCount = 0;
        for _, pItem in pairs(tbItemObj) do
            local szItem        = string.format("%s,%s,%s,%s",pItem[1].nGenre, pItem[1].nDetail, pItem[1].nParticular, pItem[1].nLevel);
            if "18,1,741,1" ~= szItem then
                Dialog:Say("Vật phẩm đặt vào không đúng, hãy đặt Mảnh Lôi Đình Ấn.");
                return 0;
            end;
            nCount = nCount + pItem[1].nCount;
        end    
        if nCount ~= 100  then
            Dialog:Say("Số lượng đặt vào không đúng, hãy đặt 100 Mảnh Lôi Đình Ấn.");
            return 0;
        end
        for _, pItem in pairs(tbItemObj) do
            if me.DelItem(pItem[1]) ~= 1 then
                return 0;
            end
        end
        me.AddItem(1,16,14,2);
        Dbg:WriteLog("Người chơi ["..me.szName.."] đổi được Lôi Đình Ấn.");
        return 1;
    end
    Khách viếng thăm hãy cùng __Jie__ xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

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

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

  1. [MU] Share trang chủ và trang download mu-thanchet vừa mới rip đc
    Bởi ikyssu trong diễn đàn SQL Server & Website
    Trả lời: 7
    Bài viết cuối: 19-05-13, 10:53 AM
  2. [KT] Share Script đổi Trang Bị Pet
    Bởi sitachi trong diễn đàn Scripts
    Trả lời: 35
    Bài viết cuối: 17-04-13, 09:37 AM
  3. [JX] Hỏi Về Cách Viết Script đổi Trang Bị.
    Bởi keo_ngot1418 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 8
    Bài viết cuối: 01-04-13, 03:47 AM
  4. [KT] Script ngoại trang
    Bởi protoman trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 22-01-13, 08:21 PM
  5. xin trang download file main trang cua webzen
    Bởi mrgacon trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 13-06-11, 04:37 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à 09:21 PM.
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ệ.