thachlong78
23-03-09, 06:44 PM
Spit ủy thác rời mạng:
function main(sel)
Say("<color=green>Uy Thac<color> co the doi mang, hoac o tren mang van nhan duoc <color=yellow>Thoi Gian Tich Luy Uy Thac.",5,"1.Bat dau Uy Thac/bdut","2.Dung Uy Thac/dut","3.Kiem tra thoi gian tich luy Uy Thac/kttgtlut","4.Doi kinh nghiem, diem uy thac/dkndut","Ta chi ghe tham thoi/no")
end
end;
function bdut()
x = {
{1,{0}},
{2,{0,31}},
{3,{0,31,29}},
{4,{0,31,29,31}},
{5,{0,31,29,31,30}},
{6,{0,31,29,31,30,31}},
{7,{0,31,29,31,30,31,30}},
{8,{0,31,29,31,30,31,30,31}},
{9,{0,31,29,31,30,31,30,31,31}},
{10,{0,31,29,31,30,31,30,31,31,30}},
{11,{0,31,29,31,30,31,30,31,31,30,31}},
{12,{0,31,29,31,30,31,30,31,31,30,31,30}},
}
if (GetTask(60) == 0) then
SetTask(60,100000)
ngay = tonumber(date("%d"))
thang = tonumber(date("%m"))
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
y = 0
for i=1,thang do
y =(x[thang][2][i] * 24 * 60) + y
end
batdau = phut + (gio * 60) + (ngay * 24 * 60) + y
SetTask(61,batdau)
Msg2Player("Ban da bat dau thoi gian Uy Thac")
else
Talk(1,"","Ban dang trong trang thai <color=red>Uy Thac<color>, khong the lua chon bat dau uy thac")
end
end;
function dut()
x = {
{1,{0}},
{2,{0,31}},
{3,{0,31,29}},
{4,{0,31,29,31}},
{5,{0,31,29,31,30}},
{6,{0,31,29,31,30,31}},
{7,{0,31,29,31,30,31,30}},
{8,{0,31,29,31,30,31,30,31}},
{9,{0,31,29,31,30,31,30,31,31}},
{10,{0,31,29,31,30,31,30,31,31,30}},
{11,{0,31,29,31,30,31,30,31,31,30,31}},
{12,{0,31,29,31,30,31,30,31,31,30,31,30}},
}
if (GetTask(60) == 100000) then
SetTask(60,0)
ngay = tonumber(date("%d"))
thang = tonumber(date("%m"))
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
y = 0
for i=1,thang do
y = (x[thang][2][i] * 24 * 60) + y
end
batdau = GetTask(61)
ketthuc = phut + (gio * 60) + (ngay * 24 * 60) + y
tgtlut = ketthuc - batdau
SetTask(62,GetTask(62)+tgtlut)
SetTask(61,0)
Msg2Player("Ban da ket thuc thoi gian Uy Thac")
else
Talk(1,"","Ban khong o trong trang thai <color=red>Uy Thac<color>, khong the chon dung Uy Thac")
end
end;
function no()
end;
function kttgtlut()
tgtlut = GetTask(62)
Msg2Player("Thoi gian Uy Thac tich luy Uy Thac cua ban hien gio la "..tgtlut.." phut")
end;
function dkndut()
Say("De doi kinh nghiem, diem tu thoi gian <color=green>Tich Luy Uy Thac<color> ban can co <color= yellow>Lenh Bai Uy Thac<color>, tuy lenh bai se nhan duoc kinh nghiem, diem khac nhau",3,"Lenh Bai Uy Thac Thuong/lbutt","Lenh Bai Uy Thac Sieu Cap/lbutsc","Ta chi ghe tham thoi/no")
end;
function lbutsc()
Say("<color=green>Lenh Bai Uy Thac Sieu Cap<color> ban <color=yellow>Intem",1,"Ta biet roi/no")
end;
function lbutt()
Say("Su dung moi <color=green>Lenh Bai Uy Thac Thuong<color>, ban co the doi duoc 8 gio tich luy uy thac ra diem, kinh nghiem, nguoi <color=yellow>Mua Intem cua sever<color> se nhan duoc kinh nghiem, diem gap 1,5 lan",2,"Su dung lenh bai/sdlb1","Ta chi ghe tham thoi/no")
end;
function sdlb1()
lvknnd = {
{60,300000},
{80,600000},
{100,800000},
{120,1000000},
{150,2400000},
{160,3600000},
{180,4500000},
{200,6000000},
}
if (GetLevel() >= 50) then
if (GetTask(62) >= 480) then
if (HaveItem(235) == 1) then
if (GetTask(237) == 100000) then
utit = 3/2
else
utit = 1
end
if (GetLevel() <= lvknnd[1][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[1][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[2][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[2][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[3][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[3][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[4][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[4][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[5][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[5][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[6][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[6][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[7][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[7][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[8][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[8][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
end
else
Talk(1,"","Ban khong co <color=red>Lenh Bai Uy Thac Thuong<color>")
end
else
Talk(1,"","Ban khong du <color=red>8 gio Tich Luy Uy Thac<color>")
end
else
Talk(1,"","Ban khong du <color=red>dang cap 50<color>")
end
end;
Mấy cái vật phẩm Lệnh Bài các bạn add ra là được, cho vào 1 con NPC bán lệnh bài luôn.
Mình viết cái này chỉ ủy thác trong năm thôi còn nếu thích ủy thác qua năm khác thì viết thêm năm nữa là ok thôi (cái này nếu để NV ủy thác qua gia thừa là lỗi ngay đó)
function main(sel)
Say("<color=green>Uy Thac<color> co the doi mang, hoac o tren mang van nhan duoc <color=yellow>Thoi Gian Tich Luy Uy Thac.",5,"1.Bat dau Uy Thac/bdut","2.Dung Uy Thac/dut","3.Kiem tra thoi gian tich luy Uy Thac/kttgtlut","4.Doi kinh nghiem, diem uy thac/dkndut","Ta chi ghe tham thoi/no")
end
end;
function bdut()
x = {
{1,{0}},
{2,{0,31}},
{3,{0,31,29}},
{4,{0,31,29,31}},
{5,{0,31,29,31,30}},
{6,{0,31,29,31,30,31}},
{7,{0,31,29,31,30,31,30}},
{8,{0,31,29,31,30,31,30,31}},
{9,{0,31,29,31,30,31,30,31,31}},
{10,{0,31,29,31,30,31,30,31,31,30}},
{11,{0,31,29,31,30,31,30,31,31,30,31}},
{12,{0,31,29,31,30,31,30,31,31,30,31,30}},
}
if (GetTask(60) == 0) then
SetTask(60,100000)
ngay = tonumber(date("%d"))
thang = tonumber(date("%m"))
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
y = 0
for i=1,thang do
y =(x[thang][2][i] * 24 * 60) + y
end
batdau = phut + (gio * 60) + (ngay * 24 * 60) + y
SetTask(61,batdau)
Msg2Player("Ban da bat dau thoi gian Uy Thac")
else
Talk(1,"","Ban dang trong trang thai <color=red>Uy Thac<color>, khong the lua chon bat dau uy thac")
end
end;
function dut()
x = {
{1,{0}},
{2,{0,31}},
{3,{0,31,29}},
{4,{0,31,29,31}},
{5,{0,31,29,31,30}},
{6,{0,31,29,31,30,31}},
{7,{0,31,29,31,30,31,30}},
{8,{0,31,29,31,30,31,30,31}},
{9,{0,31,29,31,30,31,30,31,31}},
{10,{0,31,29,31,30,31,30,31,31,30}},
{11,{0,31,29,31,30,31,30,31,31,30,31}},
{12,{0,31,29,31,30,31,30,31,31,30,31,30}},
}
if (GetTask(60) == 100000) then
SetTask(60,0)
ngay = tonumber(date("%d"))
thang = tonumber(date("%m"))
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
y = 0
for i=1,thang do
y = (x[thang][2][i] * 24 * 60) + y
end
batdau = GetTask(61)
ketthuc = phut + (gio * 60) + (ngay * 24 * 60) + y
tgtlut = ketthuc - batdau
SetTask(62,GetTask(62)+tgtlut)
SetTask(61,0)
Msg2Player("Ban da ket thuc thoi gian Uy Thac")
else
Talk(1,"","Ban khong o trong trang thai <color=red>Uy Thac<color>, khong the chon dung Uy Thac")
end
end;
function no()
end;
function kttgtlut()
tgtlut = GetTask(62)
Msg2Player("Thoi gian Uy Thac tich luy Uy Thac cua ban hien gio la "..tgtlut.." phut")
end;
function dkndut()
Say("De doi kinh nghiem, diem tu thoi gian <color=green>Tich Luy Uy Thac<color> ban can co <color= yellow>Lenh Bai Uy Thac<color>, tuy lenh bai se nhan duoc kinh nghiem, diem khac nhau",3,"Lenh Bai Uy Thac Thuong/lbutt","Lenh Bai Uy Thac Sieu Cap/lbutsc","Ta chi ghe tham thoi/no")
end;
function lbutsc()
Say("<color=green>Lenh Bai Uy Thac Sieu Cap<color> ban <color=yellow>Intem",1,"Ta biet roi/no")
end;
function lbutt()
Say("Su dung moi <color=green>Lenh Bai Uy Thac Thuong<color>, ban co the doi duoc 8 gio tich luy uy thac ra diem, kinh nghiem, nguoi <color=yellow>Mua Intem cua sever<color> se nhan duoc kinh nghiem, diem gap 1,5 lan",2,"Su dung lenh bai/sdlb1","Ta chi ghe tham thoi/no")
end;
function sdlb1()
lvknnd = {
{60,300000},
{80,600000},
{100,800000},
{120,1000000},
{150,2400000},
{160,3600000},
{180,4500000},
{200,6000000},
}
if (GetLevel() >= 50) then
if (GetTask(62) >= 480) then
if (HaveItem(235) == 1) then
if (GetTask(237) == 100000) then
utit = 3/2
else
utit = 1
end
if (GetLevel() <= lvknnd[1][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[1][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[2][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[2][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[3][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[3][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[4][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[4][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[5][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[5][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[6][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[6][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[7][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[7][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
elseif (GetLevel() <= lvknnd[8][1]) then
SetTask(62,GetTask(62) - 480)
DelItem(235)
knyt = lvknnd[8][2] * utit
for i=1,480 do
AddOwnExp(knyt)
end
end
else
Talk(1,"","Ban khong co <color=red>Lenh Bai Uy Thac Thuong<color>")
end
else
Talk(1,"","Ban khong du <color=red>8 gio Tich Luy Uy Thac<color>")
end
else
Talk(1,"","Ban khong du <color=red>dang cap 50<color>")
end
end;
Mấy cái vật phẩm Lệnh Bài các bạn add ra là được, cho vào 1 con NPC bán lệnh bài luôn.
Mình viết cái này chỉ ủy thác trong năm thôi còn nếu thích ủy thác qua năm khác thì viết thêm năm nữa là ok thôi (cái này nếu để NV ủy thác qua gia thừa là lỗi ngay đó)