Share Server Võ Lâm Ngạo Tuyết (Dev Offline)

[bincute1]

Cu thể là file nào mới dc bạn hướng dẫn mình kỹ hơn dc ko?

mỗi server tên sẽ khác nhau. kho chỉ quá. bạn để lại yahoo mình chỉ cho

[yeumayluon]

Mới làm cái giao dịch tiền đồng trên đấu giá ( giống Kiếm Thế). Nhờ các bạn test thử xem có bug chỗ nào để mình hoàn thiện thêm.
Chức năng của nó là treo giá bán và mua tiền đồng trên hệ thống. Hệ thống đấu giá sẽ tự thực hiện các giao dịch, bạn chỉ việc vào nhận tiền đồng hoặc tiền vạn.
Nếu không bị lỗi gì mình sẽ thêm phần triết khấu % giao dịch và thời gian treo giá.

Include("\\script\\library\\worldlibrary.lua");
Include("\\script\\header\\taskid.lua");
Include("\\dulieu\\giaodich.lua");
KETTHUC ="Tho¸t/no"
function main()
dofile("script/global/npcchucnang/bachthulam.lua")
	Say2("<color=yellow>B¹ch Thu L©m:<color> Hoan nghªnh <color=pink>"..GetName().." <color>®Õn víi thÕ giíi kiÕm hiÖp, hµnh tÈu giang hå cã nhiÒu gian nan nh­ng còng kh«ng Ýt niÒm vui",7,1,"",
	"Sù kiÖn tÕt nguyªn ®¸n/nguyendan",
	"§Êu gi¸. /daugia",
	"NhËn th­ëng ho¹t ®éng/thuonghd",
	KETTHUC)
end
------------------He thong dau gia by Han May Luon -------------------
function daugia()
if CheckName(1) >= 1 then
local a = MaxMin(0,1000,3,1) -- gia ban nho nhat
local b = MaxMin(a,1000,3,1) -- gia ban nho thu hai
local c = MaxMin(0,1000,6,2) -- gia mua lon nhat
local d = MaxMin(0,c,6,2) -- gia mua lon thu hai
Say2("Gi¸ B¸n tiÒn ®ång:<enter>"..a.." V     "..CheckNum(a,1,2).." T§  <enter>"..b.." V      "..CheckNum(b,1,2).." T§ <enter>Gi¸ Mua tiÒn ®ång: <enter>"..c.." V     "..CheckNum(c,2,2).." T§ <enter>"..d.." V     "..CheckNum(d,2,2).." T§ ",7,1,"",
	"B¸n ®ång./giaodich",
	"Mua ®ång./giaodich",
	"ChuyÓn tiÒn (v¹n l­îng) lªn ®¸u gi¸./giaodich",
	"ChuyÓn tiÒn ®ång lªn ®¸u gi¸./giaodich",
--	"Lµm míi ®¸u gi¸./lammoi",
	"KiÓm tra th«ng tin c¸ nh©n./dulieu",
	"Kh«ng./no")
else
Say2("§Ó tham gia ®Êu gi¸ cµn ®¨ng ký, phÝ kÝch ho¹t lµ 100 v¹n l­îng.<enter> §¨ng ký 1 lÇn sÏ sö dông m·i m·i. ",2,1,"",
"§¨ng ký. /yes",
"Kh«ng./no")
end
end
function dulieu()
Say2("<color=green>"..GetName().." <color> cã "..CheckName(4).." v¹n - "..CheckName(7).." tiÒn ®ång trªn ®Êu gi¸.<enter>§ang Mua "..CheckName(5).." T§ gi¸ "..CheckName(6).." v¹n.<enter>§ang b¸n "..CheckName(2).." T§ gi¸ "..CheckName(3).." v¹n. ",3,1,"",
	"Rót tiÒn ®ång./laytien",
	"Rót tiÒn v¹n./laytien",
	"Tho¸t/no")
end
function laytien(nsel)
local nGD = CheckName(3) + CheckName(6)
if nGD == 0 then
	if nsel == 0 then
		Say2("HiÖn t¹i b¹n cã <color=green>"..CheckName(7).." <color>tiÒn ®ång trªn ®Êu gi¸",2,1,"",
			"NhËp sè l­¬ng. /rutTD",
			"§Ó ta suy nghÜ l¹i. /no")
			end
	if nsel == 1 then
		Say2("HiÖn t¹i b¹n cã <color=green>"..CheckName(4).." <color>v¹n l­îng trªn ®Êu gi¸.<enter><color=pink>Khi rót tiÒn ®Ó tr¸nh bÞ mÊt tiÒn h·y cÊt hÕt tiÒn trong hµnh trang. ",2,1,"",
			"NhËp sè l­¬ng. /rutTV",
			"§Ó ta suy nghÜ l¹i. /no")
			end
else
Say2("§ang giao dÞch trªn ®Êu gi¸ <enter>Gi¸ b¸n:<color=red> "..CheckName(3).."<color><enter>Gi¸ mua: <color=yellow>"..CheckName(6).." <color>v. <enter>Ng­¬i cã muèn thay ®æi giao dÞch kh«ng",2,1,"",
	"Hñy giao dÞch/huygd",
	"Kh«ng/no")
end
end
function rutTD()
Input("SoTD");
end
function SoTD(num)
local nTD = CheckName(7)
local nTT = CheckName(1)
if (num == 0 or num > nTD) then
Msg2Player("ch­a nhËp sè tiÒn ®ång hoÆc tiÒn ®ång kh«ng ®ñ. ")
end
if (num > 0 and num <= nTD) then
GIAO_DICH[nTT][7] = GIAO_DICH[nTT][7] - num
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)
NhanTD(num)
end
end
function rutTV()
local nTien = GetCash()
if nTien > 0 then
Msg2Player("H·y cÊt hÕt tiÒn trong hµnh nang míi cã thÓ tiÕn hµnh rót tiÒn. ")
else
Input("SoTV");
end
end
function SoTV(num)
local nTV = CheckName(4)
local nTT = CheckName(1)
if (num == 0 or num > nTV) then
Msg2Player("ch­a nhËp sè tiÒn ®ång hoÆc tiÒn kh«ng ®ñ. ")
end
if (num > 0 and num <= nTV) then
	if num > 200000 then
Msg2Player("Mçi lÇn rót tiÒn kh«ng v­ît qu¸ 200.000 v¹n l­îng")
elseif num <= 200000 then
Earn(num*10000)
GIAO_DICH[nTT][4] = GIAO_DICH[nTT][4] - num
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)
Msg2Player("B¹n võa nhËn <color=yellow>"..num.." <color>v¹n trªn hÖ thèng ®Êu gi¸.")
end
end
end

function giaodich(nsel)
local a = MaxMin(0,1000,3,1) -- gia ban nho nhat
local b = CheckNum(a,1,2) -- so luong ban theo gia nho nhat
local c = MaxMin(0,1000,6,2) -- gia mua lon nhat
local d = CheckNum(c,2,2) -- so luong mua theo gia lon nhat
local nGD = CheckName(3) + CheckName(6)
if nGD == 0 then
	if nsel == 0 then
		Say2("Gi¸ mua ®ång trªn ®Êu gi¸:<enter><color=yellow>"..c.."<color> v¹n - <color=red>"..d.." <color>T§ ",3,1,"",
			"NhËp gi¸ b¸n./nhapban",
			"Tho¸t/no")
		end
	if nsel == 1 then
		Say2("Gi¸ b¸n ®ång trªn ®Êu gi¸:<enter><color=yellow>"..a.."<color> v¹n - <color=red>"..b.." <color>T§ ",3,1,"",
			"NhËp gi¸ mua./nhapmua",
			"Tho¸t/no")
		end
	if nsel == 2 then
	Input("chuyentienvan");
	end
	if nsel == 3 then
	Input("chuyentiendong");
	end
else
Say2("§ang giao dÞch trªn ®Êu gi¸ <enter>Gi¸ b¸n:<color=red> "..CheckName(3).."<color><enter>Gi¸ mua: <color=yellow>"..CheckName(6).." <color>v. <enter>Ng­¬i cã muèn thay ®æi giao dÞch kh«ng",2,1,"",
	"Hñy giao dÞch/huygd",
	"Kh«ng/no")
end
end
function huygd()
local nTT = CheckName(1)
GIAO_DICH[nTT][2] =0
GIAO_DICH[nTT][3] =0
GIAO_DICH[nTT][5] =0
GIAO_DICH[nTT][6] =0
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)
Msg2Player("Hñy bá giao dÞch trªn ®Êu gi¸ thµnh c«ng. Cã thÓ giao dÞch l¹i.")
end

function chuyentienvan(num)
local nTien = GetCash()
local nSL = floor(nTien/10000)
if ( num == 0 or num > nSL) then
Msg2Player("ch­a nhËp sè tiÒn hoÆc tiÒn trong tói kh«ng ®ñ. ")
end
if ( num > 0 and num <=  nSL) then
local nTT = CheckName(1)
GIAO_DICH[nTT][4] = GIAO_DICH[nTT][4] + nSL
Pay(nSL*10000)
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)		
Msg2Player("B¹n võa chuyÓn thµnh c«ng <color=yellow>"..num.."<color> v¹n l­îng lªn hÖ thèng ®Êu gi¸. ")
end
end
function chuyentiendong(num)
local nSL = GetItemCount(21,3)
if ( num == 0 or num > nSL) then
Msg2Player("ch­a nhËp sè tiÒn ®ång hoÆc tiÒn ®ång trong tói kh«ng ®ñ. ")
end
if ( num > 0 and num <=  nSL) then
for i =1,num do	
DelItem(21,3)
end
local nTT = CheckName(1)
GIAO_DICH[nTT][7] = GIAO_DICH[nTT][7] + num
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)	
Msg2Player("B¹n võa chuyÓn thµnh c«ng <color=yellow>"..num.."<color> tiÒn ®ång lªn hÖ thèng ®Êu gi¸. ")
end
end
-- ban tien dong
function nhapban()
Input("giaban");
end
function giaban(num)
if (num == 0 or num > 999)then
Msg2Player("Gi¸ giao dÞch tõ 1 ®Õn 999 v¹n. ")
end
if(num > 0 and num <= 999)then
local nTD = CheckName(7)
local nTB = nTD*num
	SetTask(TASK_GIAODICH,num)
Say2("HÖ thèng : Gi¸ b¸n ®ång cña b¹n lµ "..num.." v¹n. <enter>Sè tiÒn ®«ng trªn ®Êu gi¸ cña b¹n "..nTD..". <enter>B¸n hªt ®­îc "..nTB.." v¹n l­îng",2,1,"",
	"NhËp Sè TiÒn ®ång/soban",
	"Thoat/no")
end
end
function soban()
	Input("giaodichban");
end
function giaodichban(num)
if (num == 0 ) then
SetTask(TASK_GIAODICH,0)
Msg2Player("Ch­a nhËp sè l­îng TiÒn ®ång ")
end
if (num > 0 )then
local k = CheckName(1)
local a = GetTask(TASK_GIAODICH)
local nSL = GIAO_DICH[k][7]
	if num > nSL then
		Msg2Player("Sè l­îng tiÒn ®ång kh«ng ®ñ")
	end
	if num <= nSL then
		GIAO_DICH[k][2] = num
		GIAO_DICH[k][3] = a
		giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
		SaveData("dulieu/giaodich.lua",giaodich)
Msg2Player("B¹n võa b¸n "..num.." tiÒn ®ång gi¸ "..a.." v¹n l­îng vµo §Êu gi¸.")
for n =1,getn(GIAO_DICH) do
Reset_Daugia()
	end
end
end
end
-- mua tien dong
function nhapmua()
Input("giamua");
end
function giamua(num)
if( num == 0 or num > 999) then
Msg2Player("Gi¸ giao dÞch tõ 1 ®Õn 999 v¹n. ")
end
if (num > 0 and num <= 999) then
local nTV = CheckName(4)
local nTM = floor(nTV/num)
SetTask(TASK_GIAODICH,num)
Say2("HÖ thèng : Gi¸ mua ®ång cña b¹n lµ "..num.." v¹n. <enter>B¹n cã "..nTV.." v¹n l­îng trªn ®Êu gi¸. <enter>Cã thÓ mua tèi ®a "..nTM.." tiÒn ®ång.",2,1,"",
	"NhËp Sè TiÒn ®ång/somua",
	"Thoat/no")
end
end
function somua()
Input("giaodichmua");
end
function giaodichmua(num)
local a = GetTask(TASK_GIAODICH) -- gia mua 
local nTien = CheckName(4)
local nMua = a*num
	if nTien < nMua  then
		Msg2Player("Sè l­îng tiÒn kh«ng ®ñ")
	end
	if nTien >= nMua then
		local i = CheckName(1)
		GIAO_DICH[i][6] = a
		GIAO_DICH[i][5] = num
		giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
		SaveData("dulieu/giaodich.lua",giaodich)		
Msg2Player("B¹n võa mua "..num.." tiÒn ®ång gi¸ "..a.." v¹n l­îng trªn §Êu gi¸.")	
for n =1,getn(GIAO_DICH) do
Reset_Daugia()
	end
end
end


--------------------------------------

-- dang ky
function yes()
if GetCash() >= 1000000 then
GIAO_DICH[getn(GIAO_DICH)+1] = {GetName(),0,0,0,0,0,0} 
----{GetName() ,0,        0,         0,         0,		0,			0} 
--- ( Name -   TD ban - Gia ban TD -Tien DG - TD mua -Gia mua TD - TDong GD)
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)
Pay(1000000)
Msg2Player("§¨ng ký ®Êu gi¸ thµnh c«ng")
else
Msg2Player("PhÝ ®¨ng ký lµ 100 v¹n. B¹n kh«ng cã ®ñ tiÒn. ")
end
end
------------------------------------
-- Cac cong thuc tinh trong GD --
			----------
function Reset_Daugia() -- ham reset dau gia( thuc hien cac giao dich tren dau gia)
local a = MaxMin(0,1000,3,1) -- gia ban nho nhat 3
local b = MaxMin(0,1000,6,2) -- gia mua lon nhat 6
local c = CheckNum(a,1,3)
local d = CheckNum(b,2,3)
if b >= a then -- khi gia mua lon hon gia ban thuc hien giao dich theo gia ban nho nhat
local SoBan = GIAO_DICH[c][2] -- so tien dong ban
local SoMua = GIAO_DICH[d][5] -- so tien dong mua
	if SoBan > SoMua then
	----- thang mua
		GIAO_DICH[d][4] = GIAO_DICH[d][4] - a*SoMua
		GIAO_DICH[d][7] = GIAO_DICH[d][7] + SoMua
		GIAO_DICH[d][5] = 0
		GIAO_DICH[d][6] = 0
	----- thang ban	
		GIAO_DICH[c][4] = GIAO_DICH[c][4] + a*SoMua
		GIAO_DICH[c][7] = GIAO_DICH[c][7] - SoMua
		GIAO_DICH[c][2] = GIAO_DICH[c][2] - SoMua
	end
	if SoBan < SoMua then
	----- thang mua
		GIAO_DICH[d][4] = GIAO_DICH[d][4] - a*SoBan
		GIAO_DICH[d][7] = GIAO_DICH[d][7] + SoBan
		GIAO_DICH[d][5] = GIAO_DICH[d][5] - SoBan
	----- thang ban	
		GIAO_DICH[c][4] = GIAO_DICH[c][4] + a*SoBan
		GIAO_DICH[c][7] = GIAO_DICH[c][7] - SoBan
		GIAO_DICH[c][2] = 0
		GIAO_DICH[c][3] = 0
	end
	if SoBan == SoMua then
	----- thang mua
		GIAO_DICH[d][4] = GIAO_DICH[d][4] - a*SoBan
		GIAO_DICH[d][7] = GIAO_DICH[d][7] + SoBan
		GIAO_DICH[d][5] = 0
		GIAO_DICH[d][6] = 0
	----- thang ban	
		GIAO_DICH[c][4] = GIAO_DICH[c][4] + a*SoBan
		GIAO_DICH[c][7] = GIAO_DICH[c][7] - SoBan
		GIAO_DICH[c][2] = 0
		GIAO_DICH[c][3] = 0
	end
giaodich = TaoBang(GIAO_DICH,"GIAO_DICH","")
SaveData("dulieu/giaodich.lua",giaodich)			
end
if b < a then -- gia mua nho hon gia ban giu nguyen giao dich
end
end
function CheckName(number)
local b = 0
for i = 1,getn(GIAO_DICH) do
if GIAO_DICH[i][1] == GetName() then
a = GIAO_DICH[i][number]
b = i
end
end
if number == 1 then
return b -- thu tu cua thang A trong bang GD
end
if number > 1 then
return a -- Chi so cac cot cua thang A
end
end

function MaxMin(nMin,nMax,a,b)
--local nMax = 1000
--local nMin = 0
-- gia ban tu 1 den 999
-- a =3 gia ban, a = 6 gia mua
-- b = 1 nho nhat b = 2 lon nhat
if b == 1 then -- gia nho nhat trong khoang nMin, nMax
	for i = 1,getn(GIAO_DICH) do
		if GIAO_DICH[i][a] > nMin and GIAO_DICH[i][a] < nMax then	
			nMax = GIAO_DICH[i][a]
		end
	end
if nMax == 1000 then 
return 0 -- khong co GD nao tren dau gia
else
return nMax -- gia nho nhat
end
end
if b == 2 then -- gia lon nhat trong khoang nMin, nMax
	for i = 1,getn(GIAO_DICH) do
		if GIAO_DICH[i][a] > nMin and GIAO_DICH[i][a] < nMax then	
			nMin = GIAO_DICH[i][a]
		end
	end
return nMin -- gia lon nhat ( neu = 0 la ko co GD nao
end
end
function CheckGD(a,b)
local nTT = 0
for i =1,getn(GIAO_DICH) do
	if a == GIAO_DICH[i][b] then
		nTT = i
	end
return nTT
end
end
		
function CheckNum(a,b,c)
-- a: gia TD mua( b = 1) hoac ban ( b = 2)
-- c: So TD tuong ung cua a ( c=1) hoac tong so TD voi gia a ( c =2) hoac thu tu cua a trong bang ( c=3)
local nMua = 0
local nTong = 0
local d = b*3
for i =1,getn(GIAO_DICH) do
if a == GIAO_DICH[i][d] then
	nMua = GIAO_DICH[i][d-1]
	nTong = nTong +GIAO_DICH[i][d-1]
	nTab = i
	end
end
if c == 1 then
return nMua
end
if c == 2 then
return nTong
end
if c == 3 then
return nTab
end
end
function NhanTD(a)
	if a <= 50 then
	AddItem(0,3,21,0,0,5,a,0)
		end
	if a > 50 then
		local nSoLan = floor(a/50)
		local nSoLe = a - nSoLan*50
		if nSoLe == 0 then
		for i =1,nSoLan do
			AddItem(0,3,21,0,0,5,50,0)
			end
		end
		if nSoLe > 0 then
		for i =1,nSoLan do
			AddItem(0,3,21,0,0,5,50,0)
			end
		AddItem(0,3,21,0,0,5,nSoLe,0)
			end
		end
Msg2Player("B¹n nhËn tõ hÖ thèng ®Êu gi¸ <color=yellow>"..a.." <color>tiÒn ®ång. ")		
end
----------------------------------

-------------- su kien tet ---------------------------
function no()
end

file Include("\\dulieu\\giaodich.lua");

GIAO_DICH={}

file Include("\\script\\library\\worldlibrary.lua"); thêm

function TaoBang(tTable, sTableName, sTab)
    sTab = sTab or "";  
    sTmp = ""  
    sTmp = sTmp..sTab..sTableName.."={"  
 
    local tStart = 0  
    for key, value in tTable do  
  
        if tStart == 1 then  
            sTmp = sTmp..",\r\n"  
 
        else  
            sTmp = sTmp.."\r\n"  
            tStart = 1  
        end  
        local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key);  
        if(type(value) == "table") then  
            sTmp = sTmp..TaoBang(value, sKey, sTab.."\t");  
        else  
            local sValue = (type(value) == "string") and format("%q",value) or tostring(value);  
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue 
        end  
 
    end 
    sTmp = sTmp.."\r\n"..sTab.."}"  
    return sTmp
  
end  

function SaveData(file, string)   ---Tuy ngan nhung wan trong nhat >''<
file_op = openfile( file, "w+" )  --- a+ la vit them hem xoa file dau -- w+ -- la che do doc ghi xoa file dau  
    write(file_op,string) 
    closefile(file_op)  
end 

function LuuBang(file, string)
local f,e = openfile( file, "w+" )
if f then
    write(f,string)
    closefile(f)
    return 1
else
    local _,_,path = strfind(file, "(.+[/_\\]).+$") 
    if path ~= nil then execute("mkdir ".."\""..gsub(path, "/", "\\").."\"") end
    f,e = openfile( file, "w+" )
    if f then
        write(f,string) 
        closefile(f)
        return 2
    else
        return 0
        end
    end
end

[xomnhalalop12]

Mới làm cái giao dịch tiền đồng trên đấu giá ( giống Kiếm Thế). Nhờ các bạn test thử xem có bug chỗ nào để mình hoàn thiện thêm.
Chức năng của nó là treo giá bán và mua tiền đồng trên hệ thống. Hệ thống đấu giá sẽ tự thực hiện các giao dịch, bạn chỉ việc vào nhận tiền đồng hoặc tiền vạn.
Nếu không bị lỗi gì mình sẽ thêm phần triết khấu % giao dịch và thời gian treo giá.

Gán cái code trên cùng vào đâu

[meoemnd1]

Sao cộng điểm tiềm năng khó vậy nhỉ, auto click lâu khiếp luôn

cho tro giup tan thu co chuc nang tang nhanh diem tiem nang ma`

[xomnhalalop12]

có cái VPS định online cho mấy đứa Pk tết ai online dùm dc ko hihi

[bincute1]

có cái VPS định online cho mấy đứa Pk tết ai online dùm dc ko hihi

để lại yahoo help cho. không pm yahoo tui. chỗ dưới tên nick forum ý

[xomnhalalop12]

để lại yahoo help cho. không pm yahoo tui. chỗ dưới tên nick forum ý

songbangtinhcam_development nhé pm giup với !

[baconca]

để lại yahoo help cho. không pm yahoo tui. chỗ dưới tên nick forum ý

yahoo minh là hoacovt1988 khi nào bạn rảnh pm yahoo minh nha

[william_8x]

Ai làm mấy cái quest nhiệm vụ môn phái đi ...thích làm nv môn phái xong mí lấy được skills...

[baconca]

Các Pro cho mình hỏi chỉnh EXP Map ở đâu mọi người
ví dụ Map Mạc Cao Quật đánh quái dc 50000 kinh nghiệm mình muốn chỉnh đánh quái dc 100000 kinh nghiệm thì làm sao hả mọi người