[JX] Pro giúp e cái này với, e tks nhiều!
Hello & Welcome to our community. Is this your first visit? Đăng Ký
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 6 của 6
  1. #1
    Thành Viên ketom77's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    25
    Thanks
    16
    Thanked 2 Times in 2 Posts

    Icon3 Pro giúp e cái này với, e tks nhiều!

    Tình hình là e củng tập tành vọc Jx củng biết sơ tí
    Nay e muốn nâng cao bản năng newbie lên 1 tí nửa

    Nội dung:
    E muốn đỗi item thành 1 vật phẩm nào đó
    Ví dụ:
    1 hành hiệp lệnh+20 xu+ 20 vạn = 1 rương Hkmp
    Nhưng làm sao để đặt nó vào ô bằng hàm Give gì đó e k rành nửa

    Bác nào pro làm ơn cho e xin mẫu code e tự dựa vào rồi làm theo được không ạ
    E cám ơn nhiều!
    Khách viếng thăm hãy cùng ketom77 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    zacktt1 (08-12-18)

  3. #2
    Thành Viên killer20099's Avatar
    Ngày tham gia
    Apr 2012
    Đang ở
    Binh Duong Province
    Bài viết
    548
    Thanks
    188
    Thanked 178 Times in 126 Posts

    Ðề: Pro giúp e cái này với, e tks nhiều!

    Trích dẫn Gửi bởi ketom77 [Only registered and activated users can see links. ]
    Tình hình là e củng tập tành vọc Jx củng biết sơ tí
    Nay e muốn nâng cao bản năng newbie lên 1 tí nửa

    Nội dung:
    E muốn đỗi item thành 1 vật phẩm nào đó
    Ví dụ:
    1 hành hiệp lệnh+20 xu+ 20 vạn = 1 rương Hkmp
    Nhưng làm sao để đặt nó vào ô bằng hàm Give gì đó e k rành nửa

    Bác nào pro làm ơn cho e xin mẫu code e tự dựa vào rồi làm theo được không ạ
    E cám ơn nhiều!
    30 cha ca bo vien.,.............
    function GhepEvent1(num)
    EVENT = {
    {59,"KÑo chiƠc gËy"},
    {58,"Qu¶ t¸o ®á"},
    {61,"Hép Quµ Êm ¸p"}}
    KiemTraNL1 = GetItemCount(EVENT[1][1],5);KiemTraNL2 = GetItemCount(EVENT[2][1],5)
    KeoYC = num*4;TaoYC = num*3
    TienYC = num*30000
    if (num < 1 or num > 50) then Talk(1,"","Mçi lÇn ®æi chØ ®­îc <color=yelow>50 vËt phÈm<color> mµ th«i.") return end
    if (KiemTraNL1 < KeoYC) then Talk(1,"","Kh«ng ®ñ nguyªn liÖu, b¹n ®ang că <color=red>"..KiemTraNL1.."/"..KeoYC.."<color> <color=pink>"..EVENT[1][2].."<color>, vui lßng kiÓm tra l¹i.") return end
    if (KiemTraNL2 < TaoYC) then Talk(1,"","Kh«ng ®ñ nguyªn liÖu, b¹n ®ang că <color=red>"..KiemTraNL2.."/"..TaoYC.."<color> <color=pink>"..EVENT[2][2].."<color>, vui lßng kiÓm tra l¹i.") return end
    if (GetCash() < TienYC) then Talk(1,"","B¹n kh«ng ®ñ <color=red>"..TienYC.." l­îng<color>, vui lßng kiÓm tra l¹i.") return end
    if(CheckRoom(1,1) == 0) then Talk(1,"","Vui lßng chơa Ưt nhÊt 1 « trèng.") return end
    local Item = ItemSetAdd(0,5,EVENT[3][1],0,0,5,num,0);
    SetItemDate(Item,ENAM,ETHANG,ENGAY,0,0);
    AddItemID(Item);
    Pay(TienYC)
    DelItem(EVENT[1][1],5,KeoYC)
    DelItem(EVENT[2][1],5,TaoYC)
    local nCurTime = GetTimeMin();
    SetTask(TASK_THOIGIAN5,nCurTime);
    Msg2Player("B¹n ®æi thµnh c«ng "..num.." <color=yellow>"..EVENT[3][2].."<color>.")
    end
    Khách viếng thăm hãy cùng killer20099 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #3
    Thành Viên ketom77's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    25
    Thanks
    16
    Thanked 2 Times in 2 Posts

    Ðề: Pro giúp e cái này với, e tks nhiều!

    Trích dẫn Gửi bởi killer20099 [Only registered and activated users can see links. ]
    30 cha ca bo vien.,.............
    cái này linux xài đc k bác ơi e k rành
    Khách viếng thăm hãy cùng ketom77 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên saodzi's Avatar
    Ngày tham gia
    Jun 2012
    Bài viết
    205
    Thanks
    42
    Thanked 30 Times in 30 Posts

    Ðề: Pro giúp e cái này với, e tks nhiều!

    Trích dẫn Gửi bởi ketom77 [Only registered and activated users can see links. ]
    Tình hình là e củng tập tành vọc Jx củng biết sơ tí
    Nay e muốn nâng cao bản năng newbie lên 1 tí nửa

    Nội dung:
    E muốn đỗi item thành 1 vật phẩm nào đó
    Ví dụ:
    1 hành hiệp lệnh+20 xu+ 20 vạn = 1 rương Hkmp
    Nhưng làm sao để đặt nó vào ô bằng hàm Give gì đó e k rành nửa

    Bác nào pro làm ơn cho e xin mẫu code e tự dựa vào rồi làm theo được không ạ
    E cám ơn nhiều!
    Của Bạn Đây
    Code:
    EVENT_FF_UP = 
    {
    	{szName = "R­¬ng Hoµng Kim M«n Ph¸i",	tbProp = {6,1,IDItemRuonghoangKim,1,1,0,0},	tbMaterial_Index = {1,2},	tbAmount = {20,20},	nCash = 50000,	nCashValue = 20},
    }
    
    Nang_cap_phi_phong	= 
    {
    	{szName = "Hµnh HiÖp LÖnh",tbProp = {6,1,2566,1,1,0,0}}, --------so 1
    	{szName = "TiÒn §ång",tbProp = {4,417,1,1,0,0,0}}, --------so 2
    }
    
    function tao_nguoi_tuyet()
    	local tbOpt = {};
    		tinsert(tbOpt,"<dec><npc>C¸c h¹ muèn R­¬ng Hoµng Kim M«n Ph¸i Sao ?");
    		for k=1,getn(EVENT_FF_UP) do 
    			tinsert(tbOpt,format("T¹o %s/#nang_cap_ff(%d)",EVENT_FF_UP[k].szName,k));
    		end
    	tinsert(tbOpt,"L¸t n÷a chÕ t¹o sau/no");
    	CreateTaskSay(tbOpt);
    end
    function no()
    end
    function nang_cap_ff(nType)
    	local szUiphiphong = format("ChÕ t¹o %s",EVENT_FF_UP[nType].szName);
    	SetTaskTemp(100,nType);
    	local szNote = "Nh÷ng nguyªn liÖu cÇn cã:\n";
    	local tb = EVENT_FF_UP[nType];
    	for k=1,getn(tb.tbMaterial_Index) do 
    		szNote = szNote..format("<+> %d %s\n",tb.tbAmount[k],Nang_cap_phi_phong[tb.tbMaterial_Index[k]].szName);
    	end
    
    	if tb.nCash > 0 then 
    		szNote = szNote..format("<+> %d v¹n",EVENT_FF_UP[nType].nCashValue);
    	end
    
    	GiveItemUI(szUiphiphong,szNote,"NguyenLieuNangCap_FF");
    end
    
    function NguyenLieuNangCap_FF(nItemCount)
    	local CpIdx = GetTaskTemp(100);
    	SetTaskTemp(100,0);
    	local tbCompound = {};
    	local item = EVENT_FF_UP[CpIdx].tbMaterial_Index;
    	local item1 =  EVENT_FF_UP[CpIdx].tbAmount;
    	local material = Nang_cap_phi_phong;
    	local count_material_compound = 0 ;
    	local count = getn(item);
    
    	for k=1,nItemCount do 
    		local IsMaterialReq = 0;
    		local idxtab = 0;
    		local itemidx = GetGiveItemUnit(k);
    		local szItemName = GetItemName(itemidx);
    		local nPar,nType,nID = GetItemProp(itemidx);
    		local nCountStack = GetItemStackCount(itemidx) or 1;
    		for n=1,getn(item) do 
    			if material[item[n]].tbProp[1] == nPar and material[item[n]].tbProp[2] == nType and material[item[n]].tbProp[3] == nID then 
    				IsMaterialReq = 1;
    				idxtab = n;
    				break;
    			end
    		end
    		
    		if IsMaterialReq == 1 then 
    			if not tbCompound[nID] then 
    				tbCompound[nID] = {tbProp = {},nStackCount = 0,nReqAmount = 0,nAmountCompound = 0,nItemIdx = {}}
    			end
    			
    			if tbCompound[nID].nStackCount == 0 then 
    				tbCompound[nID].tbProp = {nPar,nType,nID,1,1,0,0};
    				tbCompound[nID].nStackCount = nCountStack;
    				tbCompound[nID].nReqAmount = item1[idxtab];
    				tinsert(tbCompound[nID].nItemIdx,{itemidx,nCountStack});
    			else
    				tbCompound[nID].nStackCount = tbCompound[nID].nStackCount + nCountStack;
    				tinsert(tbCompound[nID].nItemIdx,{itemidx,nCountStack});
    			end
    		else --wrong material.
    			Say("VÞ thiÕu hiÖp ¾t h¼n cã sù nhÇm lÉn, xin h·y kiÓm tra l¹i vËt phÈm ®Æt vµo.",0)
    			return
    		end
    	end
    
    	--check material
    	for k=1,getn(item) do 
    		local ItemID = material[item[k]].tbProp[3];
    		if not tbCompound[ItemID] then 
    			local tb = EVENT_FF_UP[CpIdx];	
    			local szNote = format("<color=green>Nh÷ng nguyªn liÖu cÇn ®Ó lµm %s<color>:<enter><enter>",tb.szName);	
    			for k=1,getn(tb.tbMaterial_Index) do 
    				szNote = szNote..format("<+> <color=fire>%d<color> <color=yellow>%s<color>\n",tb.tbAmount[k],Nang_cap_phi_phong[tb.tbMaterial_Index[k]].szName);
    			end
    			if tb.nCash > 0 then 
    				szNote = szNote..format("<+> <color=fire>%d<color> <color=yellow>v¹n",EVENT_FF_UP[CpIdx].nCashValue);
    			end
    			Say(szNote,0);
    			return
    		end
    	end
    
    	--ktra sè l­îng cã thÓ Ðp
    	local tbSort = {}
    	for k=1,getn(item)  do 
    		local ItemID = material[item[k]].tbProp[3];
    		local tbItem = tbCompound[ItemID];
    		if tbItem.nStackCount < tbItem.nReqAmount then 
    			Say(format("B¹n cÇn ph¶i cã Ýt nhÊt: %d %s",tbItem.nReqAmount,Nang_cap_phi_phong[item[k]].szName),0);
    			return 
    		else
    			tbItem.nAmountCompound = floor(tbItem.nStackCount/tbItem.nReqAmount);
    		end
    		tinsert(tbSort,tbItem.nAmountCompound);
    	end
    
    	sort(tbSort,sort_list)
    	local CompleteCompound = tbSort[1];
    	local ftab = {};
    	
    	if CalcFreeItemCellCount() <= 30 then
    		Talk(1,"","Hµnh trang kh«ng ®ñ 30 « trèng.");
    		return
    	end
    	
    	if EVENT_FF_UP[CpIdx].nCash > 0 then 
    		if GetCash() < EVENT_FF_UP[CpIdx].nCash*CompleteCompound then 
    			Say("B¹n cÇn ph¶i cã <color=fire>"..(EVENT_FF_UP[CpIdx].nCashValue*CompleteCompound).." v¹n<color> ®Ó thùc hiÖn Ðp <color=red>"..CompleteCompound.." c¸i b¸nh<color>",0);
    			return 
    		end
    		Pay(EVENT_FF_UP[CpIdx].nCash*CompleteCompound)
    	end
    	
    	for k,v in tbCompound do 
    		local t = tbCompound[k];
    		local _totalcompound = CompleteCompound * t.nReqAmount; --100
    		local count_1 = getn(t.nItemIdx);
    
    		if count_1 >= 2 then  
    			for d =1,count_1 do 
    				_ITEMIDX = t.nItemIdx[d][1];
    				_ITEMCOUNT = t.nItemIdx[d][2];
    				nLeft = _totalcompound - _ITEMCOUNT;
    	
    				if _totalcompound > 0 then 	
    					if nLeft < 0 then 
    						nLeft = nLeft * (-1);
    						SetItemStackCount(_ITEMIDX ,nLeft);
    						_totalcompound = 0;
    					elseif nLeft == 0 then 
    						SetItemStackCount(_ITEMIDX ,0);
    						_totalcompound = 0;
    					else
    						SetItemStackCount(_ITEMIDX ,0);
    						_totalcompound = nLeft
    					end
    				end
    			end			
    		else
    			_ITEMIDX = t.nItemIdx[1][1];
    			_ITEMCOUNT = t.nItemIdx[1][2];
    			nLeft = _ITEMCOUNT - _totalcompound ;
    			SetItemStackCount(_ITEMIDX ,nLeft);
    		end
    	end
    		
    	for i=1,CompleteCompound do AddItem(unpack(EVENT_FF_UP[CpIdx].tbProp)); 
    	end
    	Msg2Player("B¹n ®· ChÕ T¹o thµnh c«ng <color=green>"..CompleteCompound.." "..EVENT_FF_UP[CpIdx].szName.." ");
    end
    
    function sort_list(value1,value2)
    	return value1 < value2;
    end
    Lần sửa cuối bởi saodzi, ngày 27-11-18 lúc 03:49 PM.
    Khách viếng thăm hãy cùng saodzi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    ketom77 (29-11-18)

  7. #5
    Thành Viên ketom77's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    25
    Thanks
    16
    Thanked 2 Times in 2 Posts

    Ðề: Pro giúp e cái này với, e tks nhiều!

    Bác ơi bác co bán script không, nếu có thì cho e xin link fb nhé
    Khách viếng thăm hãy cùng ketom77 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #6
    Thành Viên saodzi's Avatar
    Ngày tham gia
    Jun 2012
    Bài viết
    205
    Thanks
    42
    Thanked 30 Times in 30 Posts

    Ðề: Pro giúp e cái này với, e tks nhiều!

    Trích dẫn Gửi bởi ketom77 [Only registered and activated users can see links. ]
    Bác ơi bác co bán script không, nếu có thì cho e xin link fb nhé
    Mình Ko sài FB mình sài Skype Và zalo Nhé
    Skype :+84 163 791 7310
    Zalo : 0946 541 141
    FB : thì có page thôi , Vì Face mình đang bị Người Khác Report
    FB.com/volamtinhhong
    Lần sửa cuối bởi saodzi, ngày 29-11-18 lúc 09:47 AM.
    Khách viếng thăm hãy cùng saodzi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [JX] Chuyên Mục đi ăn xin ạ..... cần xin db của bộ web này.... tks nhiều
    Bởi kemcpr trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 16-07-17, 11:36 AM
  2. [JX] Cần giúp đở ạ tks các anh em nhiều
    Bởi lctung2015 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 03-03-17, 09:35 AM
  3. [MU] Pro nào có winmode Mu ss1 cho mình xin với tks rất là nhiều luôn !
    Bởi hunglol trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 24-04-14, 07:41 PM
  4. [Gunny] Giúp mình sửa lỗi "Mất kết nối, hãy đăng nhập lại" của Gunny II với! Tks nhiều!
    Bởi vuongngocs trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 19-07-13, 05:39 PM
  5. [MU] Ai có item này share cho em với ạ em tks nhiều
    Bởi bibiblog trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 11-10-12, 05:10 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à 01:48 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ệ.