Script ủy thác rời mạng.

[hoangbachma]

Ghi như vậy hả bạn hay sao mình vẫn chưa hiểu:

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()
if (GetTask(60) == 0) then 
SetTask(60,100000)
t1 = time(1970)
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()
if (GetTask(60) == 100000) then
SetTask(60,0)
Khoang_tg=difftime(time(),t1)

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;

Phải Ghi vậy không ????

[Čħīċķėň]

chỉnh lại như vậy chạy kô đc đâu do thiếu nhìu thứ

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