[JX] [Linux]Script túi đựng tiền
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
 
Trang 1 của 2 1 2 CuốiCuối
Kết quả 1 đến 10 của 13
  1. #1
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    [Linux]Script túi đựng tiền

    Lượng tiền lưu trữ tối đa tầm 400 nghìn vạn. 200k trong rương và 200 nghìn trên người lưu hơn thì nó sẽ ko lưu được nữa và cũng không nhặt được tiền nữa nếu trên người nhiều tiền quá vậy nên em viết cái bọc tiền này để lưu tiền vào. Có thể lưu hơn 200k vạn và gần như không có giới hạn tối đa lưu vào cái túi này.
    Function DocSoTien để làm đẹp cho cái thông báo có bao nhiêu tiền trong túi chứ không nó hiện 20000000000 nhìn hoa mắt đếch biết đó là bao nhiêu tiền )

    Trên máy em là em Include đến 1 cái file mở rộng hàm có hàm DocSoTien cho nên cái function DESC ý em phải viết dài dòng vì nó load trên client. Copy code lên đây cho các bác em chèn cả cái function DocSoTien vào cùng 1 file.

    Chép cả vào client lẫn server cùng đường dẫn để hiện thị item DESC
    Code:
    function main(nItemIndex)
    dofile("script/ff/tuinganluong.lua")
    	local nCount = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1);
    	local nSoLan200k = GetItemParam(nItemIndex, 2);
    	if nSoLan200k == nil then
    		nSoLan200k = 0
    		SetSpecItemParam(nItemIndex, 2, 0)
    		SyncItem(nItemIndex)
    	end
    	local tb = {
    	"CÊt tiÒn/#CatTien("..nCount..","..GetCash()..","..nItemIndex..")",
    	"Rót tiÒn/#RutTien("..nCount..","..nItemIndex..")",
    	"Tho¸t/Quit",
    	}
    	Say("",getn(tb),tb)
    	--SetSpecItemParam(nItemIndex, 2, 1)
    	--	SetSpecItemParam(nItemIndex, 1, 500000000)
    	--	SyncItem(nItemIndex)
    	--
    	--Msg2Player(GetItemParam(nItemIndex, 2))
    	--Msg2Player(GetItemParam(nItemIndex, 1))
    	return 1
    end
    function CatTien(nCount,nCash,nItemIndex)
    	--nCount : Sè tiÒn hiÖn ®ang cã trong tói
    	--nCash : Sè tiÒn cã trªn ng­êi.
    	local nCountStore = nCount + nCash --Sè l­îng trong tói b»ng sè hiÖn cã céng víi sè cã trªn ng­êi
    	--if nCountStore >= 2000000000 then
    		local nSoLan200k = floor(nCountStore/2000000000)
    		local nSoTienLe = nCountStore - nSoLan200k*2000000000 --SÏ l­u sè tiÒn nµy vµo param1,param2 sÏ lµ sè lÇn 200k
    		SetSpecItemParam(nItemIndex, 2, nSoLan200k)
    		SetSpecItemParam(nItemIndex, 1, nSoTienLe)
    		SyncItem(nItemIndex)
    		Pay(nCash)
    		--local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1);
    		Msg2Player("§· cÊt "..DocSoTien(nCash).." vµo trong tói. Trong tói cã "..DocSoTien((GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1)))..".")
    	--else --NÕu tæng céng mµ kh«ng lín h¬n 200k v¹n th×
    	--	SetSpecItemParam(nItemIndex, 1, nCountStore)
    	--	SyncItem(nItemIndex)
    	--	Pay(nCash)
    	--	local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1);
    	--	Msg2Player("§· cÊt "..DocSoTien(nCash).." vµo trong tói. Trong tói cã "..DocSoTien(nTotalMoneyInBag)..".")
    	--end
    end
    function RutTien(nCount,nItemIndex)
    	if nCount == 0 then --Sè tiÒn cã trong tói.
    		Say("Bªn trong tói trèng rçng kh«ng cã ng©n l­îng.", 0) 
    	return 0 
    	end
    	local	tb = {
    	"Rót 10.000 v¹n/#RutTien_Select(1,"..nCount..","..nItemIndex..")",
    	"Rót 20.000 v¹n/#RutTien_Select(2,"..nCount..","..nItemIndex..")",
    	"Rót 50.000 v¹n/#RutTien_Select(5,"..nCount..","..nItemIndex..")",
    	"Rót 100.000 v¹n/#RutTien_Select(10,"..nCount..","..nItemIndex..")",
    	"NhËp sè l­îng/#RutTien_Select(99,"..nCount..","..nItemIndex..")",
    	"Tho¸t./Quit",
    	}
    	Say("Xin chó ý nÕu muèn nhËp sè l­îng cÇn rót lµ 10.000 v¹n th× chØ cÇn nhËp 10.000.",getn(tb),tb)
    	 
    end
    function RutTien_Select(nSelect,nSoTienTrongTui,nItemIndex)
    	if nSelect == 99 then
    		SetTaskTemp(114, nItemIndex)
    		AskClientForNumber("RutTien_StepNext", 0,200000,"NhËp sè l­îng xu muèn rót.")
    	else
    		SoTienRut = nSelect * 100000000
    		if SoTienRut > nSoTienTrongTui then --C¸i biÕn nSoTienTrongTui ®· ®­îc tÝnh b»ng c¶ param1+param2
    			Msg2Player("Sè tiÒn trong tói kh«ng ®ñ "..DocSoTien(SoTienRut)..". Kh«ng thÓ rót.")
    			return
    		end
    		local MoneyCalc = SoTienRut + GetCash()
    		if MoneyCalc <= 2000000000 then
    			Earn(SoTienRut)
    			local SoTienConLaiSauKhiRut = nSoTienTrongTui - SoTienRut
    			if SoTienConLaiSauKhiRut >= 2000000000 then
    				nParam2 = floor(SoTienConLaiSauKhiRut/2000000000)
    				nParam1 = SoTienConLaiSauKhiRut - nParam2*2000000000
    				SetSpecItemParam(nItemIndex, 2, nParam2)
    				SetSpecItemParam(nItemIndex, 1, nParam1)
    				SyncItem(nItemIndex)
    			else
    				SetSpecItemParam(nItemIndex, 2, 0)
    				SetSpecItemParam(nItemIndex, 1, SoTienConLaiSauKhiRut)
    				SyncItem(nItemIndex)
    			end
    			--local nMoneyInBag = GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1);  --Sè tiÒn ®ang cã trong tói
    			Msg2Player("Rót thµnh c«ng "..DocSoTien(SoTienRut).." v¹n. Trong tói cßn l¹i "..DocSoTien((GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1)))..".")
    		else
    			Msg2Player("Sè tiÒn cã trªn ng­êi vµ sè tiÒn muèn rót v­ît qu¸ giíi h¹n. Xin h·y cÈn thËn")
    		end
    	end
    end
    function RutTien_StepNext(nMoneyAskClient)
    	local nPickup = nMoneyAskClient * 10000
    	local nItemIndex = GetTaskTemp(114)
    	local nMoneyInBag = GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1);  --Sè tiÒn ®ang cã trong tói
    	if nPickup <= 0 then 
    		return 
    	end
    	if (nPickup + GetCash()) > 2000000000 then
    		Msg2Player("Sè tiÒn cã trªn ng­êi vµ sè tiÒn muèn rót v­ît qu¸ giíi h¹n. Xin h·y cÈn thËn")
    		return
    	end
    	if nPickup > nMoneyInBag then
    		nPickup = nMoneyInBag
    	end
    	nMoneyInBag_ConLai = nMoneyInBag - nPickup --Sè cßn l¹i b»ng Sè ban ®Çu trõ ®i sè ®· rót
    	Earn(nPickup)
    	if nMoneyInBag_ConLai >= 2000000000 then
    		nParam2 = floor(nMoneyInBag_ConLai/2000000000)
    		nParam1 = nMoneyInBag_ConLai - nParam2*2000000000
    		SetSpecItemParam(nItemIndex, 2, nParam2)
    		SetSpecItemParam(nItemIndex, 1, nParam1)
    		SyncItem(nItemIndex)
    	else
    		SetSpecItemParam(nItemIndex, 2, 0)
    		SetSpecItemParam(nItemIndex, 1, nMoneyInBag_ConLai)
    		SyncItem(nItemIndex)
    	end
    	local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1);
    	Msg2Player("Rót thµnh c«ng "..DocSoTien(nPickup)..". Trong tói cßn l¹i "..DocSoTien(nTotalMoneyInBag)..".")
    end
    function DocSoTien(nMoney)
    	local Sotien = tostring(nMoney)
    	local DoDai = strlen(Sotien)
    	--aaa = RightTrimString(Sotien,1)
    	--bbb = strsub(tostring(nMoney),1,3)
    	--ccc = strfind(Sotien,"1")
    	--Msg2Player(ccc)
    	--Msg2Player(bbb)
    	if DoDai <= 4 then
    		return "<color=yellow>"..Sotien.."<color> l­îng"
    	elseif DoDai > 4 and DoDai <= 8 then--Tõ 1.0000(4 sè) ®Õn 9999.9999(8 sè) v¹n
    		--Msg2Player("a")
    		local nX = strsub(tostring(nMoney),1,DoDai - 4)
    		local nY = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "<color=yellow>"..nX.."<color> v¹n <color=yellow>"..nY.."<color> l­îng"
    	elseif DoDai > 8 and DoDai <=10 then  --Tõ 10.000.0000(9 sè) ®Õn 999.999.9999(10 sè) v¹n
    		local nX = strsub(tostring(nMoney),1,DoDai - 7)
    		local nY = strsub(tostring(nMoney),DoDai - 6,DoDai - 4)
    		local nZ = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "<color=yellow>"..nX.."<color> ngh×n <color=yellow>"..nY.."<color> v¹n <color=yellow>"..nZ.."<color> l­îng"
    	elseif DoDai > 10 and DoDai <= 13 then--Tõ 1.000.000.0000(11 sè) v¹n 999.999.999.9999(13 sè) v¹n
    		local nX = strsub(tostring(nMoney),1,DoDai - 10)
    		local nY = strsub(tostring(nMoney),DoDai - 9,DoDai - 7)
    		local nZ = strsub(tostring(nMoney),DoDai - 6,DoDai - 4)
    		local nJ = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "<color=yellow>"..nX.."<color> triÖu <color=yellow>"..nY.."<color> ngh×n <color=yellow>"..nZ.."<color> v¹n <color=yellow>"..nJ.."<color> l­îng"
    	end
    	--§Õn ®©y lµ hµm nµy cã thÓ ®äc ®­îc 1 sè tiÒn lªn ®Õn 999 triÖu v¹n.
    end
    
    function GetDesc(nItemIndex) 
    	--local nMoney= GetItemParam(nItemIndex, 1);
    	local nMoney= GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1);
    	local Sotien = tostring(nMoney)
    	local DoDai = strlen(Sotien)
    	if DoDai <= 4 then
    		return "Sè tiÒn trong tói<enter><color=yellow>"..Sotien.."<color> l­îng"
    	elseif DoDai > 4 and DoDai <= 8 then--Tõ 1.0000 ®Õn 9999.9999 v¹n
    		--Msg2Player("a")
    		local nX = strsub(tostring(nMoney),1,DoDai - 4)
    		local nY = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> v¹n <color=yellow>"..nY.."<color> l­îng"
    	elseif DoDai > 8 and DoDai <=10 then  --Tõ 10.000.0000 ®Õn 999.999.9999 v¹n
    		local nX = strsub(tostring(nMoney),1,DoDai - 7)
    		local nY = strsub(tostring(nMoney),DoDai - 6,DoDai - 4)
    		local nZ = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> ngh×n <color=yellow>"..nY.."<color> v¹n <color=yellow>"..nZ.."<color> l­îng"
    	elseif DoDai > 10 and DoDai <= 13 then--Tõ 1.000.000.0000 v¹n 999.999.999.9999 v¹n
    		local nX = strsub(tostring(nMoney),1,DoDai - 10)
    		local nY = strsub(tostring(nMoney),DoDai - 9,DoDai - 7)
    		local nZ = strsub(tostring(nMoney),DoDai - 6,DoDai - 4)
    		local nJ = strsub(tostring(nMoney),DoDai - 3,DoDai)
    		return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> triÖu <color=yellow>"..nY.."<color> ngh×n <color=yellow>"..nZ.."<color> v¹n <color=yellow>"..nJ.."<color> l­îng"
    	end


    [Only registered and activated users can see links. ]
    [Only registered and activated users can see links. ]
    [Only registered and activated users can see links. ]
    [Only registered and activated users can see links. ]
    [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 f-fantasy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. The Following 6 Users Say Thank You to f-fantasy For This Useful Post:

    chien2705 (29-08-20), MrHarryPotter (11-09-15), satthupro95 (13-09-15), tului (03-08-22), vta10306 (11-10-20), vuduymanh (11-09-15)

  3. #2
    Thành Viên vuduymanh's Avatar
    Ngày tham gia
    Sep 2014
    Đang ở
    Lâm An
    Bài viết
    957
    Thanks
    490
    Thanked 427 Times in 231 Posts

    Ðề: [Linux]Script túi đựng tiền

    Bác ơi sao em coppy nguyên file anh share mà dùng nó báo
    Lỗi dòng 153 và dòng cuối 174 anh xem giúp em mới
    Khách viếng thăm hãy cùng vuduymanh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #3
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    Ðề: [Linux]Script túi đựng tiền

    Trích dẫn Gửi bởi vuduymanh [Only registered and activated users can see links. ]
    Bác ơi sao em coppy nguyên file anh share mà dùng nó báo
    Lỗi dòng 153 và dòng cuối 174 anh xem giúp em mới
    Đắng quá bác ơi em trả máy thằng bạn mất rồi, giờ không có gì check cả. 2 dòng đó là 2 dòng nào bác post lên đây được không?
    Khách viếng thăm hãy cùng f-fantasy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #4
    Thành Viên vuduymanh's Avatar
    Ngày tham gia
    Sep 2014
    Đang ở
    Lâm An
    Bài viết
    957
    Thanks
    490
    Thanked 427 Times in 231 Posts

    Ðề: [Linux]Script túi đựng tiền

    Trích dẫn Gửi bởi f-fantasy [Only registered and activated users can see links. ]
    Đắng quá bác ơi em trả máy thằng bạn mất rồi, giờ không có gì check cả. 2 dòng đó là 2 dòng nào bác post lên đây được không?


    function main(nItemIndex)
    dofile("script/ff/tuinganluong.lua") local nCount = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1); local nSoLan200k = GetItemParam(nItemIndex, 2); if nSoLan200k == nil then nSoLan200k = 0 SetSpecItemParam(nItemIndex, 2, 0) SyncItem(nItemIndex) end local tb = { "CÊt tiÒn/#CatTien("..nCount..","..GetCash()..","..nItemInde x..")", "Rót tiÒn/#RutTien("..nCount..","..nItemIndex..")", "Tho¸t/Quit", } Say("",getn(tb),tb) --SetSpecItemParam(nItemIndex, 2, 1) -- SetSpecItemParam(nItemIndex, 1, 500000000) -- SyncItem(nItemIndex) -- --Msg2Player(GetItemParam(nItemIndex, 2)) --Msg2Player(GetItemParam(nItemIndex, 1)) return 1endfunction CatTien(nCount,nCash,nItemIndex) --nCount : Sè tiÒn hiÖn ®ang cã trong tói --nCash : Sè tiÒn cã trªn ng­êi. local nCountStore = nCount + nCash --Sè l­îng trong tói b»ng sè hiÖn cã céng víi sè cã trªn ng­êi --if nCountStore >= 2000000000 then local nSoLan200k = floor(nCountStore/2000000000) local nSoTienLe = nCountStore - nSoLan200k*2000000000 --SÏ l­u sè tiÒn nµy vµo param1,param2 sÏ lµ sè lÇn 200k SetSpecItemParam(nItemIndex, 2, nSoLan200k) SetSpecItemParam(nItemIndex, 1, nSoTienLe) SyncItem(nItemIndex) Pay(nCash) --local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1); Msg2Player("§· cÊt "..DocSoTien(nCash).." vµo trong tói. Trong tói cã "..DocSoTien((GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1)))..".") --else --NÕu tæng céng mµ kh«ng lín h¬n 200k v¹n th× -- SetSpecItemParam(nItemIndex, 1, nCountStore) -- SyncItem(nItemIndex) -- Pay(nCash) -- local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1); -- Msg2Player("§· cÊt "..DocSoTien(nCash).." vµo trong tói. Trong tói cã "..DocSoTien(nTotalMoneyInBag)..".") --endendfunction RutTien(nCount,nItemIndex) if nCount == 0 then --Sè tiÒn cã trong tói. Say("Bªn trong tói trèng rçng kh«ng cã ng©n l­îng.", 0) return 0 end local tb = { "Rót 10.000 v¹n/#RutTien_Select(1,"..nCount..","..nItemIndex..")", "Rót 20.000 v¹n/#RutTien_Select(2,"..nCount..","..nItemIndex..")", "Rót 50.000 v¹n/#RutTien_Select(5,"..nCount..","..nItemIndex..")", "Rót 100.000 v¹n/#RutTien_Select(10,"..nCount..","..nItemIndex..")" , "NhËp sè l­îng/#RutTien_Select(99,"..nCount..","..nItemIndex..")" , "Tho¸t./Quit", } Say("Xin chó ý nÕu muèn nhËp sè l­îng cÇn rót lµ 10.000 v¹n th× chØ cÇn nhËp 10.000.",getn(tb),tb) endfunction RutTien_Select(nSelect,nSoTienTrongTui,nItemIndex) if nSelect == 99 then SetTaskTemp(114, nItemIndex) AskClientForNumber("RutTien_StepNext", 0,200000,"NhËp sè l­îng xu muèn rót.") else SoTienRut = nSelect * 100000000 if SoTienRut > nSoTienTrongTui then --C¸i biÕn nSoTienTrongTui ®· ®­îc tÝnh b»ng c¶ param1+param2 Msg2Player("Sè tiÒn trong tói kh«ng ®ñ "..DocSoTien(SoTienRut)..". Kh«ng thÓ rót.") return end local MoneyCalc = SoTienRut + GetCash() if MoneyCalc <= 2000000000 then Earn(SoTienRut) local SoTienConLaiSauKhiRut = nSoTienTrongTui - SoTienRut if SoTienConLaiSauKhiRut >= 2000000000 then nParam2 = floor(SoTienConLaiSauKhiRut/2000000000) nParam1 = SoTienConLaiSauKhiRut - nParam2*2000000000 SetSpecItemParam(nItemIndex, 2, nParam2) SetSpecItemParam(nItemIndex, 1, nParam1) SyncItem(nItemIndex) else SetSpecItemParam(nItemIndex, 2, 0) SetSpecItemParam(nItemIndex, 1, SoTienConLaiSauKhiRut) SyncItem(nItemIndex) end --local nMoneyInBag = GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1); --Sè tiÒn ®ang cã trong tói Msg2Player("Rót thµnh c«ng "..DocSoTien(SoTienRut).." v¹n. Trong tói cßn l¹i "..DocSoTien((GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1)))..".") else Msg2Player("Sè tiÒn cã trªn ng­êi vµ sè tiÒn muèn rót v­ît qu¸ giíi h¹n. Xin h·y cÈn thËn") end endendfunction RutTien_StepNext(nMoneyAskClient) local nPickup = nMoneyAskClient * 10000 local nItemIndex = GetTaskTemp(114) local nMoneyInBag = GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1); --Sè tiÒn ®ang cã trong tói if nPickup <= 0 then return end if (nPickup + GetCash()) > 2000000000 then Msg2Player("Sè tiÒn cã trªn ng­êi vµ sè tiÒn muèn rót v­ît qu¸ giíi h¹n. Xin h·y cÈn thËn") return end if nPickup > nMoneyInBag then nPickup = nMoneyInBag end nMoneyInBag_ConLai = nMoneyInBag - nPickup --Sè cßn l¹i b»ng Sè ban ®Çu trõ ®i sè ®· rót Earn(nPickup) if nMoneyInBag_ConLai >= 2000000000 then nParam2 = floor(nMoneyInBag_ConLai/2000000000) nParam1 = nMoneyInBag_ConLai - nParam2*2000000000 SetSpecItemParam(nItemIndex, 2, nParam2) SetSpecItemParam(nItemIndex, 1, nParam1) SyncItem(nItemIndex) else SetSpecItemParam(nItemIndex, 2, 0) SetSpecItemParam(nItemIndex, 1, nMoneyInBag_ConLai) SyncItem(nItemIndex) end local nTotalMoneyInBag = GetItemParam(nItemIndex, 2)*2000000000 + GetItemParam(nItemIndex, 1); Msg2Player("Rót thµnh c«ng "..DocSoTien(nPickup)..". Trong tói cßn l¹i "..DocSoTien(nTotalMoneyInBag)..".")endfunctio n DocSoTien(nMoney) local Sotien = tostring(nMoney) local DoDai = strlen(Sotien) --aaa = RightTrimString(Sotien,1) --bbb = strsub(tostring(nMoney),1,3) --ccc = strfind(Sotien,"1") --Msg2Player(ccc) --Msg2Player(bbb) if DoDai <= 4 then return "<color=yellow>"..Sotien.."<color> l­îng" elseif DoDai > 4 and DoDai <= 8 then--Tõ 1.0000(4 sè) ®Õn 9999.9999(8 sè) v¹n --Msg2Player("a") local nX = strsub(tostring(nMoney),1,DoDai - 4) local nY = strsub(tostring(nMoney),DoDai - 3,DoDai) return "<color=yellow>"..nX.."<color> v¹n <color=yellow>"..nY.."<color> l­îng" elseif DoDai > 8 and DoDai <=10 then --Tõ 10.000.0000(9 sè) ®Õn 999.999.9999(10 sè) v¹n local nX = strsub(tostring(nMoney),1,DoDai - 7) local nY = strsub(tostring(nMoney),DoDai - 6,DoDai - 4) local nZ = strsub(tostring(nMoney),DoDai - 3,DoDai) return "<color=yellow>"..nX.."<color> ngh×n <color=yellow>"..nY.."<color> v¹n <color=yellow>"..nZ.."<color> l­îng" elseif DoDai > 10 and DoDai <= 13 then--Tõ 1.000.000.0000(11 sè) v¹n 999.999.999.9999(13 sè) v¹n local nX = strsub(tostring(nMoney),1,DoDai - 10) local nY = strsub(tostring(nMoney),DoDai - 9,DoDai - 7) local nZ = strsub(tostring(nMoney),DoDai - 6,DoDai - 4) local nJ = strsub(tostring(nMoney),DoDai - 3,DoDai) return "<color=yellow>"..nX.."<color> triÖu <color=yellow>"..nY.."<color> ngh×n <color=yellow>"..nZ.."<color> v¹n <color=yellow>"..nJ.."<color> l­îng" end --§Õn ®©y lµ hµm nµy cã thÓ ®äc ®­îc 1 sè tiÒn lªn ®Õn 999 triÖu v¹n.endfunction GetDesc(nItemIndex) --và dòng này nữa --local nMoney= GetItemParam(nItemIndex, 1); local nMoney= GetItemParam(nItemIndex,2)*2000000000 + GetItemParam(nItemIndex,1); local Sotien = tostring(nMoney) local DoDai = strlen(Sotien) if DoDai <= 4 then return "Sè tiÒn trong tói<enter><color=yellow>"..Sotien.."<color> l­îng" elseif DoDai > 4 and DoDai <= 8 then--Tõ 1.0000 ®Õn 9999.9999 v¹n --Msg2Player("a") local nX = strsub(tostring(nMoney),1,DoDai - 4) local nY = strsub(tostring(nMoney),DoDai - 3,DoDai) return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> v¹n <color=yellow>"..nY.."<color> l­îng" elseif DoDai > 8 and DoDai <=10 then --Tõ 10.000.0000 ®Õn 999.999.9999 v¹n local nX = strsub(tostring(nMoney),1,DoDai - 7) local nY = strsub(tostring(nMoney),DoDai - 6,DoDai - 4) local nZ = strsub(tostring(nMoney),DoDai - 3,DoDai) return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> ngh×n <color=yellow>"..nY.."<color> v¹n <color=yellow>"..nZ.."<color> l­îng" elseif DoDai > 10 and DoDai <= 13 then--Tõ 1.000.000.0000 v¹n 999.999.999.9999 v¹n local nX = strsub(tostring(nMoney),1,DoDai - 10) local nY = strsub(tostring(nMoney),DoDai - 9,DoDai - 7) local nZ = strsub(tostring(nMoney),DoDai - 6,DoDai - 4) local nJ = strsub(tostring(nMoney),DoDai - 3,DoDai) return "Sè tiÒn trong tói<enter><color=yellow>"..nX.."<color> triÖu <color=yellow>"..nY.."<color> ngh×n <color=yellow>"..nZ.."<color> v¹n <color=yellow>"..nJ.."<color> l­îng" end -- dòng này bác ơi






    2 dòng em tô màu đỏ đó anh
    function GetDesc(nItemIndex) -- dòng 153
    end --- dòng này bác ơi dòng cuối cùng 176
    Lần sửa cuối bởi vuduymanh, ngày 13-09-15 lúc 02:28 PM.
    Khách viếng thăm hãy cùng vuduymanh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #5
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    Ðề: [Linux]Script túi đựng tiền

    Nó thông báo lỗi j ở server bạn. Báo nil value hay sao? Lỗi này ko lo vì nó chỉ là cái hiển thị khi di chuột qua item thôi.
    Khách viếng thăm hãy cùng f-fantasy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #6
    Thành Viên vuduymanh's Avatar
    Ngày tham gia
    Sep 2014
    Đang ở
    Lâm An
    Bài viết
    957
    Thanks
    490
    Thanked 427 Times in 231 Posts

    Ðề: [Linux]Script túi đựng tiền

    Trích dẫn Gửi bởi f-fantasy [Only registered and activated users can see links. ]
    Nó thông báo lỗi j ở server bạn. Báo nil value hay sao? Lỗi này ko lo vì nó chỉ là cái hiển thị khi di chuột qua item thôi.
    đúng rồi nhưng đang chạy server nó đã báo rồi chưa vào game

    à bác có facebook cho em xin đc ko bác
    facebookcom/vuduymanhhp là của em
    Khách viếng thăm hãy cùng vuduymanh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #7
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    Ðề: [Linux]Script túi đựng tiền

    Cái file mà bạn chép vào server bạn xoa nguyên từ chỗ function GetDesc đến hết. File nào chép vào client thì xóa hết chỉ giữ lại function GetDesc.
    Khách viếng thăm hãy cùng f-fantasy xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

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

    vuduymanh (13-09-15)

  10. #8
    Thành Viên vuduymanh's Avatar
    Ngày tham gia
    Sep 2014
    Đang ở
    Lâm An
    Bài viết
    957
    Thanks
    490
    Thanked 427 Times in 231 Posts

    Ðề: [Linux]Script túi đựng tiền

    bác có nhiều cái srip hay vậy khi nào có cái j mới share anh em dùng mới nha
    Khách viếng thăm hãy cùng vuduymanh xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  11. #9
    Thành Viên
    Ngày tham gia
    Jun 2006
    Đang ở
    Funabashi, Chiba, Japan
    Bài viết
    543
    Thanks
    407
    Thanked 300 Times in 82 Posts

    Ðề: [Linux]Script túi đựng tiền

    Cũng còn nhiều ý tưởng linh tinh lắm nhưng hqua bạn nó lấy máy nên phải tạm dừng cả lại rồi
    Khách viếng thăm hãy cùng f-fantasy 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 f-fantasy vì bài viết này !

    vuduymanh (13-09-15)

  13. #10
    Thành Viên vuduymanh's Avatar
    Ngày tham gia
    Sep 2014
    Đang ở
    Lâm An
    Bài viết
    957
    Thanks
    490
    Thanked 427 Times in 231 Posts

    Ðề: [Linux]Script túi đựng tiền

    Trích dẫn Gửi bởi f-fantasy [Only registered and activated users can see links. ]
    Cũng còn nhiều ý tưởng linh tinh lắm nhưng hqua bạn nó lấy máy nên phải tạm dừng cả lại rồi

    à bác cho em hỏi chút sao em chơi vr3 + gataway mà chép vào rồi mà dùng trang bị hoa sơn bị tàn hình nhỉ mình up clien mới nhất rồi
    và cả cái bán hàng chữ đen xì mình có chỉnh sửa về 16 bit và 2d rồi mà vẫn vậy
    Khách viếng thăm hãy cùng vuduymanh 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. [JX] gửi tặng các bạn yêu jx bộ script đã việt hóa linux
    Bởi linuxserver trong diễn đàn Scripts
    Trả lời: 3
    Bài viết cuối: 24-07-16, 11:00 AM
  2. [JX] Xin Giúp Đỡ Về Script Jx Linux Có Báo Lỗi Hoàn Chỉnh
    Bởi Slayer trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 28-02-15, 09:07 AM
  3. [JX] script sv linux
    Bởi niconut trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 29-01-15, 05:52 PM
  4. [KT] Hổ trợ về viết Script hay vật phẩm cường hóa +16 Linux
    Bởi lamhoa1989 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 05-01-15, 09:19 PM
  5. [JX] Xin cách hiệu chỉnh script các NPC Jx Linux
    Bởi OsinLove trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 13-08-14, 02:45 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à 12:56 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ệ.