server phươngdung cải tiến

[SaoPaulo1]

Chưa bik có tính năg gì mới , down cái đã

[wizard]

Như đã nói à, giờ mình đưa cái script của Xuân Thu cho các bạn tham khảo nhét vào server, đây là script tham khảo thôi nhé vì mình đã chỉnh sửa cho hợp server của mình ! Các bạn cho ý kiến nếu được thì mình đưa tiếp !

quanlyphucduyen.lua

Include("\\script\\Global\\FuYuan.lua");
function main(sel)
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£ºQuan ly diem phuc duyen, diem phuc duyen de doi Item hiem£¡<color>",6,"Nhan diem tich luy phuc duyen/FuYuan","Kiem tra diem phuc duyen/chafy","Dung phuc duyen mua vat pham/fybuy","Doi phuc duyen/dhfuyuan","Khong can/no")
end;


function chafy()
fysum = GetTask(161)
Msg2Player("So diem phuc duyen cua ban la£º"..fysum)
logWrite_fuyuan("["..GetName().."]\tCo so diem PD\t["..fysum.."]")
end;

function logWrite_fuyuan(arg)
local fuyuan_Log = "DataFiles/fuyuan_Log.txt"
local fs_log = openfile(fuyuan_Log, "a");
write(fs_log, date("%y-%m-%d_%H:%M:%S").."\t"..arg.."\n");
closefile(fs_log);
end;

function addfuyuan()
fysum = GetTask(161)
fysum2 = fysum+100000
SetTask(161,fysum2)
Msg2Player("Ban tang 100000 diem phuc duyen")
Msg2Player("Phuc duyen gio cua ban la£º"..fysum2)
end;

function fybuy()
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£ºDiem phuc duyen mua nhung vat pham sau£º<color>",8,"Huyen Tinh [Cao Cap]/xuanjingks","Than Bi [Do Pho]/hjtupu","Thuy tinh(6000 diem)/shuijin","Mat Tich That Lac (Ky nang 120)/skillbook120","Nguyen lieu che do HK/hjcailiao","Nguyen lieu chuyen sinh/zsyaocai","Khong can/no")
end;

function no()
end;


function dhfuyuan()
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£º<color>",5,"Dung phuc duyen (Tieu)/xiaofy","Dung phuc duyen Trung (Trung)/zhongfy","Dung phuc duyen£¨Dai£©/dafy","Dung phuc duyen (Cuc Dai)/tedafy","Khong can/no")
end;


function xiaofy()
if (HaveItem("Phuc Duyen Lo (Tieu)") >= 1) then
DelItem(215)
fysum = GetTask(161)
fysum2 = fysum+50
SetTask(161,fysum2)
Msg2Player("Ban da nhan duoc 50 diem phuc duyen")
Msg2Player("Diem phuc duyen hien tai cua ban la£º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tdiem phuc duyen tang\t[50]")
else
Msg2Player("Cac ha khong co binh Phuc Duyen Lo£¨Tieu£©£¡")
end
end;


function zhongfy()
if (HaveItem("Phuc Duyen Lo (Trung)") >= 1) then
DelItem(216)
fysum = GetTask(161)
fysum2 = fysum+100
SetTask(161,fysum2)
Msg2Player("Ban da nhan duoc 100 diem Phuc Duyen")
Msg2Player("Diem phuc duyen hien tai cua ban la£º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tdiem phuc duyen tang\t[100]")
else
Msg2Player("Ban khong co binh Phuc Duyen Lo£¨Trung£©£¡")
end
end;


function dafy()
if (HaveItem("Phuc Duyen Lo (Dai)") >= 1) then
DelItem(217)
fysum = GetTask(161)
fysum2 = fysum+150
SetTask(161,fysum2)
Msg2Player("Ban nhan duoc 150 diem Phuc Duyen")
Msg2Player("Diem phuc duyen hien tai cua ban la£º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tdiem phuc duyen tang\t[150]")
else
Msg2Player("Ban khong co binh Phuc Duyen Lo£¨Dai)")
end
end;

function skillbook120()
fysum = GetTask(161)
if (fysum >= 5000) then fysum2 = fysum-5000
SetTask(161,fysum2)
AddEventItem("Mat Tich Ky Nang 120")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Mat Tich Ky Nang 120]")
else
Msg2Player("Ban khong du 5000 diem phuc duyen")
end
end;

function zsyaocai()
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£ºNguyen lieu chuyen sinh<color>",7,"Duong Quy(1000 diem)/cailiao1","Huyen Tham(1000 diem)/cailiao2","Phong Ky(1000 diem)/cailiao3","Chu Sa(1000 diem)/cailiao4","Ha Thu O(1000 diem)/cailiao5","Linh Chi(1000 diem)/cailiao6","Khong can/no")
end;

function cailiao1()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Duong Quy")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Duong Quy]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;

function cailiao2()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Huyen Sam")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Huyen Sam]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;

function cailiao3()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Phong Ky")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Phong Ky]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;

function cailiao4()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Chu Sa")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Chu Sa]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;

function cailiao5()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Ha Thu O")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Ha Thu O]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;

function cailiao6()
fysum = GetTask(161)
if (fysum >= 1000) then fysum2 = fysum-1000
SetTask(161,fysum-1000)
AddEventItem("Linh Chi")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Linh Chi]")
else
Msg2Player("Ban khong du 1000 diem phuc duyen")
end
end;



function hjcailiao()
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£ºNguyen lieu che do hoang kim 200 diem 1 mon£º<color>",15,"Thu vuong bi/hjcl1","Hong tinh/hjcl2","Hong dong quang/hjcl3","Kien tinh thach(/hjcl4","Kim te(/hjcl5","Bi ngan(/hjcl6","Lang phong doan(/hjcl7","Mong linh thao/hjcl8","Chuc cam/hjcl9","Nam minh/hjcl10","Bang tam to/hjcl11","Vo cuc to/hjcl12","Khong tuoc thach/hjcl13","Huyen thiet khoang/hjcl14","Khong can/no")
end;

function hjcl1()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Thu Vuong Bi")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Thu Vuong Bi]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl2()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Hong Tinh")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Hong Tinh]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl3()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Hong Dong Khoang")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Hong Dong Khoang]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl4()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Kien Tinh Thach")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Kien Tinh Thach]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl5()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Kim Te")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Kim Te]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl6()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Bi Ngan")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Bi Ngan]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl7()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Lang Phong Doan")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Lang Phong Doan]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl8()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Mong Linh Thao")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Mong Linh Thao]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl9()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Chuc Cam")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Chuc Cam]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl10()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Nam Minh")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Nam Minh]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl11()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Bang Tam Ty")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Bang Tam Ti]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl12()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Vo Cuc Ty")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Vo Cuc Ti]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl13()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Khong Tuoc Thach")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Khong Tuoc Thach]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjcl14()
fysum = GetTask(161)
if (fysum >= 200) then fysum2 = fysum-200
SetTask(161,fysum-200)
AddEventItem("Huyen Thiet Khoang")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Huyen Thiet Khoang]")
else
Msg2Player("Ban khong du 200 diem phuc duyen")
end
end;

function hjtupu()
fysum = GetTask(161)
if (fysum >= 50000) then fysum2 = fysum-50000
SetTask(161,fysum-50000)
AddEventItem("Than Bi Do Pho")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
else
Msg2Player("Ban khong du 50.000 diem phuc duyen")
end
end;

function xuanjingks()
Say("<color=yellow>Nguoi Quan Ly Phuc Duyen£ºDoi Huyen Tinh£º<color>",4,"Huyen tinh 8 (2000 diem)/xjks8","Huyen tinh 9 (8000 diem)/xjks9","Huyen tinh 10 (32000 diem)/xjks10","Khong can/no")
end;



function xjks8()
fysum = GetTask(161)
if (fysum >= 2000) then fysum2 = fysum-2000
SetTask(161,fysum-2000)
AddEventItem("Huyen Tinh Cap 8")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Huyen Tinh Cap 8]")
else
Msg2Player("Ban khong du 2000 diem Phuc Duyen")
end
end;

function xjks9()
fysum = GetTask(161)
if (fysum >= 8000) then fysum2 = fysum-8000
SetTask(161,fysum-8000)
AddEventItem("Huyen Tinh Cap 9")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Huyen Tinh Cap 9]")
else
Msg2Player("Ban khong du 8000 diem Phuc Duyen")
end
end;

function xjks10()
fysum = GetTask(161)
if (fysum >= 32000) then fysum2 = fysum-32000
SetTask(161,fysum-32000)
AddEventItem("Huyen Tinh Cap 10")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Huyen Tinh Cap 10]")
else
Msg2Player("Ban khong du 32000 diem phuc duyen")
end
end;



function shuijin()
fysum = GetTask(161)
if (fysum >= 6000) then fysum2 = fysum-6000
SetTask(161,fysum-6000)
AddEventItem("Lam Thuy Tinh")
AddEventItem("Tu Thuy Tinh")
AddEventItem("Luc Thuy Tinh")
Msg2Player("So diem Phuc Duyen con lai cua ban: £º"..fysum2)
logWrite_fuyuan("["..GetName().."]\tDa mua\t[Bo 3 Thuy Tinh]")
else
Msg2Player("Ban khong du 6000 diem Phuc Duyen")
end
end;

FuYuan.lua

function FuYuan()
if (GetLevel() >= 50) then
FYtime = tonumber(hour2kick())
--hour1,mins1 = remainTime()
Msg2Player("Moi 1 tieng lanh nhan 10 diem Phuc Duyen!")
if (FYtime==1) then
fysum = GetTask(161)
newfysum = fysum + 10
SetTask(161,newfysum)
Say("<color=yellow>Diem Phuc Duyen cua cac ha tang them 10 diem<enter><enter>Diem Phuc Duyen cua cac ha la£º"..newfysum.."<color>",0)
end;
else
Msg2Player("Ban chua dat den cap 50!")
end
end;


function remainTime()
times1 = tonumber(date("%d%H%M"))
remainTimes1= times1 - GetTask(159)
hour1 = floor(remainTimes/100)
mins1 = remainTimes-100*hour1
return hour1,mins1
end;

function hour2kick()
initFlag = 32
times1 = tonumber(date("%d%H%M"))
day1 = tonumber(date("%d"))
mins1 = 100
sTime1={}
sKickTime={}
if ( GetTask(160) == nil ) or ( GetTask(160) == 0 ) or ( GetTask(160) ~= day1 ) then
SetTask(160,initFlag)
end;

if ( GetTask(160) == initFlag ) then
SetTask(160,day1)
SetTask(159,times1)
end;
if ( GetTask(160) == day1) then
strKickTime=tostring(GetTask(159)+mins1)
if( strlen(strKickTime) == 6) then
sKickTime[1]=tonumber(strsub(strKickTime,1,2))
sKickTime[2]=tonumber(strsub(strKickTime,3,4))
sKickTime[3]=tonumber(strsub(strKickTime,5,6))
elseif(strlen(strKickTime) == 5) then
sKickTime[1]=tonumber(strsub(strKickTime,1,1))
sKickTime[2]=tonumber(strsub(strKickTime,2,3))
sKickTime[3]=tonumber(strsub(strKickTime,4,5))
end;
if( sKickTime[2] > 23 ) then
sKickTime[1] = sKickTime[1] + 1
sKickTime[2] = sKickTime[2] - 24
end;
if ( strlen(tostring(sKickTime[2]))==1 ) then
s2 = "0"..sKickTime[2]
else
s2 = tostring(sKickTime[2])
end;
if ( strlen(tostring(sKickTime[3]))==1 ) then
s3 = "0"..sKickTime[3]
else
s3= tostring(sKickTime[3])
end;

finalKickTime = tonumber(sKickTime[1]..s2..s3)
if ( finalKickTime <= times1 ) then
SetTask(160,32)
return 1;
else
return 0;
end;
end;
end;

[langtu113]

server có cần cài font china không vậy bạn .

[auto_pro]

web đăng ký đâu bác tải về rùi chẳng biết acc đâu mà vào

[DaDuyTeo]

web đăng ký đâu bác tải về rùi chẳng biết acc đâu mà vào

Ặc đây là Võ lâm offline mà bạn . Chắc bạn là newbie rồi , bạn nên tìm topic hướng dẫn cài VLTK offline để tìm hiểu đi

[ngoaho]

hay quá, cái server của mình tưởng vớ vẩn thế mà được việc phết.....để từ từ phát triển...

[DaDuyTeo]

hay quá, cái server của mình tưởng vớ vẩn thế mà được việc phết.....để từ từ phát triển...

Sever bạn zậy là quá ngon rồi , tiếp tục phát huy đi , anh em member quyết tâm ủng hộ mà .

[ngoaho]

cảm ơn tèo..... 30 charrrrrrrrrrrrrrrrrrrrrrrr

[DirectX]

hình như cái script của thằng xa phu bị lỗi rồi
di chuyển wa map khác không được

[Mr.Rezo™]

có biết ghép script đâu mà chả lỗi mình có tham khảo qua server này thì

thấy các script rất lộn xộn sắp xếp thì ... skill lỗi xa phu lấy của JXPKS thì sao

mà chạy được trong Xuân Thu .