PDA

View Full Version : Script ủy thác rời mạng.



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 đó)

Se7eN747
23-03-09, 06:58 PM
Thanks công post. Để về test thử xem :D

SaoPaulo1
24-03-09, 01:35 AM
lâu ngày , giờ anh em cũng phát triển đến cái này lun, bái phục

thachlong78
24-03-09, 10:53 AM
Thực ra không có gì đâu bạn, tính thời gian bạt đầu ủy thác, và thời gian chọn kết thúc ủy thác thôi, vì thời gian ở máy tính có giờ, phút ,giây, ngày, tháng, năm, để cho đòng nhất thì đổi thời gian ra phút thôi, 1 năm có tầm 12*30*24*60 phút. Thực ra không biết nhiều lệnh phải lươn lẹo cách này.
Cho hỏi có lệnh nào khiến khi mình giết ai đó là tăng điểm gì đó không, giờ chỉ biết spit đơn giản thôi. Biết chỉ mình nhé.

Se7eN747
24-03-09, 11:35 AM
Cái này mình thấy na ná sciprt cắn cháo lạp bát ấy nhỉ :D ( nhưng là rời mạng :D ). Đã test thử :D

hongtu1
24-03-09, 11:38 AM
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}},
}
TL giải thích hộ mình cái hàm này dc ko.Theo như mình hiểu thì nó tương ứng với 12 tháng trong năm.Nhưg về hàm
x={{},{},{}} thì mình ko hiểu lắm

bacnam7287
24-03-09, 05:50 PM
Sau khi mình chọn ủy thác rồi có thể out ra được hả. Hay là phải online mới nhận được điểm kinh nghiệm.

thachlong78
24-03-09, 06:57 PM
Out ra ban à vẫn được còn khác xa spit cắn cháo bạn à.Cắn cháo cơ bản nhất là settimer, còn cái này chỉ là tính toán đơn thuần không có gì phức tạp đâu, có chăng chỉ là ý tưởng thôi bạn à.
Còn :
abcd={{2,3},{4,5}}
Là cách viết tắt chút thôi, cũng có nhiều ưu điểm riêng nữa theo mình hiểu có ngiax là gán cho abcd các giá trị.
abcd[1] tức là chỉ gái trị vị trí 1 ở đây là {2,3}
abcd[2] tức là chỉ gái trị vị trí 1 ở đây là {4,5}
abcd[1][1] tức là giá trị ở vị trí 1 , 1 (có thể hiểu là giá trị ở vị trí 1 của abcd[1]) ở đây là giá trị 2
abcd[1][2] ,abcd[2][1], abcd[2][2] cũng tương tự.
Có thể lồng thêm nhiều ngoặc vào trong nữa, thì các giá trị sẽ là abcd[1][1][x][y].....

Có thể ở trong ngoạc là 1 sâu kí tụ không hẳn cần là số mĩ, nhớ hi trong dấu " ",
ví dụ
abcd ={{"vua meo vua chuot"},{"la ta"}}

manhtuyen
27-03-09, 01:27 PM
ái chà!!!!
very good!!!!!
lâu lâu không vào 4rum.giờ xuất hiện thêm nhiều pro ghê ta:haha:
trình độ viết script tiến bộ vượt bậc rùi đó.
good good!!!

bacnam7287
27-03-09, 04:02 PM
ái chà!!!!
very good!!!!!
lâu lâu không vào 4rum.giờ xuất hiện thêm nhiều pro ghê ta:haha:
trình độ viết script tiến bộ vượt bậc rùi đó.
good good!!!

Đại ka cho em xin yahoo được không, em muốn hỏi cái Liên đấu của đại ka chút.

hongtu1
27-03-09, 04:09 PM
Đại ka cho em xin yahoo được không, em muốn hỏi cái Liên đấu của đại ka chút.
Đung đó Manhtuyen cho xin yahoo đi,mình cũng đang muốn dung cai Bang hôi_CTC của cậu mà vẫn chưa dc,muốn hỏi chút

thachlong78
27-03-09, 08:04 PM
Mấy lệnh spit mình chỉ biết vài lệnh cơ bản thôi ai có lệnh nào hay cho mình với càng nhiều càng tốt. Có mấy lệnh ngoài mấy sever TQ viết càng tốt nhé, hi`.

ngoaho
12-04-09, 10:44 AM
tuyệt vời, các bạn giỏi thật đấy, thế có ai có hứng viết nhiệm vụ thiên môn trận giống võ lâm 2 không

errorxviii
12-04-09, 10:50 AM
Thiên môn trận ở VL 2 cũng tương đương chuỗi nhiệm vụ hoàng kim ở VL 1 rồi còn gì. Muốn làm thì phải đầu tư thời gian tìm hiểu kịch bản tiếp diễn ra sao thôi.

huongphieubat
25-04-09, 04:19 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 đó)

cái lỗi trên có thể khắc phục bằng hàm time và difftime của lua. Chỉ cách sử dụng lun nhé:
ban đầu
function bdut()
if (GetTask(60) == 0) then
SetTask(60,100000)
t1 = time() -- sẽ trả về thời gian hiện tại của hệ thống tính bằng giây so với thời gian gốc ban đầu (hình như là năm 1970)

....
end;
function dut()
if (GetTask(60) == 100000) then
SetTask(60,0)
Khoang_tg=difftime(time(),t1) -- sẽ trả về độ chênh lệch giữa 2 tgian (tính bằng giây)

Test thử xem nhé HPB ko có server để test nên hok bit đúng hay sai :P, cách này sẽ giúp bạn ko cần care là đang ở thời điểm nào, dù qua năm mới đi chăng nữa hay là năm nhuận cũng vẫn bình thường.
Quên mất, cú pháp của 2 hàm trên là
time(year=Y, month=m, day=d, hour=H,min=M, sec=s)
trong đó Y là fullyear ví dụ 2009
m là month từ 01-12
d là day 01-31
H là hour (24) 01-24
M là minute 00-59
s là second 00-59
và isdst là dạng boolean trả về true nếu có daylight saving
difftime(t1, t2)
t1, t2 là 2 thời gian dc đem so sánh, được lấy chủ yếu nhờ hàm time
ví dụ

thachlong78
25-04-09, 04:35 PM
Ok, như vậy sẽ ngắn hơn được 1 đoạn hà. Còn cái lệnh nèo mới hem share nên nèo cho mọi người dùng thử chút (ha` ha` trong dó có ta).

vuthaitrung
28-04-09, 03:04 PM
Cái này phải load 6 link sv mới tính là ủy thác hả mọi người

DaDuyTeo
03-06-09, 04:13 PM
Sao em gắn sciprt này vô NPC rồi nhưng khi vào game click vô NPC đó thì kô có phản ứng gì hết vậy anh . Trong khi em đã khởi động NPC goày :(

Iron_man
15-06-09, 03:34 PM
script này sử dụng sao vậy mấy bạn , tới con NPC thì kiểm tra lúc nào cũng còn 0h ,làm sao nạp giờ để ủy thác :((

dzi1206
15-06-09, 04:39 PM
ai biết cách làm như nào chỉ giúp tôi với . tôi mới chơi chưa biết cách cho vào như nào và sử dụng như nào . xin pr0 chỉ giúp . cám ơn !

hoangbachma
28-01-10, 10:29 AM
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 ????

Čħīċķėň
28-01-10, 06:10 PM
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