Script Ủy Thác Rời Mạng

[Mr.Rezo™]

Đây là Script Ủy Thác gốc của Mướp ... nhưng sài khó khăn mình fix lại dùm anh em

+ Ủy thác tối đa 1 tiếng sau đó nhận kinh nghiệm
+ Phí nhận kinh nghiệm tích lũy ủy thác : 50.000 vạn lượng
+ ủy thác có thể rời mạng . tích lũy điểm thoải mái sau đó đem đổi.
+ kinh nghiệm ủy thác nhận được phân theo đẳng cấp.
+ Nếu đã đăng ký VIP thì điểm exp nhận được gấp đôi.

★- Dùng tốt cho Server của Rezo
★- Chép vào 1 NPC bật kỳ để sử dụng


[SP]
Include("\\Script\\global\\sourcejx49.lua");
function main()
uythac()
end;

function uythac()
SayEx({"<color=yellow>Uy Thac:<color> Uy Thac co the doi mang, hoac o tren mang van nhan duoc thoi gian tich luy uy thac.",
"Bat dau Uy Thac./bdut",
"Dung Uy Thac./dut",
"Nhan kinh nghiem uy thac./dkndut",
"Kiem tra thoi gian tich luy Uy Thac./kttgtlut",
"Thoat./no"})
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)
MsgEx("Ban da bat dau thoi gian Uy Thac.")
else
MsgEx("Ban dang trong trang thai <color=yellow>Uy Thac<color>, khong the lua chon bat dau uy thac.",1)
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)
MsgEx("Ban da ket thuc thoi gian Uy Thac.")
else
MsgEx("Ban khong o trong trang thai <color=yellow>Uy Thac<color>, khong the chon dung Uy Thac.",1)
end
end;

function no()
end;

function kttgtlut()
tgtlut = GetTask(62)
MsgEx("Thoi gian Uy Thac tich luy Uy Thac cua ban hien gio la "..tgtlut.." phut")
end;

function dkndut()
SayEx({"De doi kinh nghiem, diem tu thoi gian <color=yellow>Tich Luy Uy Thac<color> ban can co <Green=yellow>50.000 van luong<color>.",
"Dong Y./lbutt",
"Thoat./no"})
end;

function lbutt()
if (GetLevel() >= 50) then
if (GetTask(62) >= 60) then
if (GetCash() >= 50000000) then
SetTask(62,GetTask(62) - 60)
Pay(50000000)
exp = ExpUyThac()/100*GetVipUT()
for i=1,exp do
AddOwnExp(100)
end
SetTask(62,GetTask(62)-60)
MsgEx("Ban da nhan duoc diem kinh nghiem uy thac.")
else
MsgEx("Ban khong mang theo <color=yellow>50.000 van luong<color>.",1)
end
else
MsgEx("phai co it nhat <color=blue>1 gio Tich Luy Uy Thac<color> moi co the doi.",1)
end
else
MsgEx("Dang cap cua ban chua dat den <color=red>50<color>.",1)
end
end

function ExpUyThac()
if (GetLevel() > 50) and (GetLevel() <= 60) then
return 300000
elseif (GetLevel() > 60) and (GetLevel() <= 80) then
return 600000
elseif (GetLevel() > 80) and (GetLevel() <= 100) then
return 800000
elseif (GetLevel() > 100) and (GetLevel() <= 120) then
return 1000000
elseif (GetLevel() > 120) and (GetLevel() <= 150) then
return 2400000
elseif (GetLevel() > 150) and (GetLevel() <= 160) then
return 3600000
elseif (GetLevel() > 160) and (GetLevel() <= 180) then
return 4500000
elseif (GetLevel() > 180) and (GetLevel() <= 200) then
return 6000000
end
end

function GetVipUT()
if GetTask(TaskVIP) == nil then
return 1
elseif GetTask(TaskVIP) >= 1 then
return 2
elseif GetTask(TaskVIP) == 0 then
return 1
end
end;
[/SP]

[tungpro102]

póc tem mà cái này hình như có rồi mà

[Mr.Rezo™]

tất nhiên ngay câu đầu đã nói gốc Mướp nhưng không dành cho người không biết sài

script này fix lại rất nhiều ... thềm luôn 2 chức năng :

+ exp ủy thác nhận phân theo cấp .

+ đăng ký VIP thì exp nhận được gấp đôi.

Thêm nữa của Mướp là đủ 8h ủy thác mới đ.c ra rút exp .

Script này fix xuống còn 1h là nhận được ... còn lại thừa giờ thì bù thêm vào lần sau.

[kinkina2009]

tui có code theo của Mướp cái sCript như VNG . Ủy Thác + Kỹ Năng và EXP

[Mr.Rezo™]

ờ thế làm được cái Chuyển sinh xong nó tự động xếp TOP người đứng đầu rồi thông báo không ?

[notfile]

tốt đây dù ta rất ghét ngươi nhưng cũng thanks ngươi !!!!!

[kinkina2009]

ờ thế làm được cái Chuyển sinh xong nó tự động xếp TOP người đứng đầu rồi thông báo không ?

nó khó lắm à
P.S: Tài mi đừng có quá tự cao nữa, ta nói thật lòng đó

[thaihoa91]

Lần sau nhớ post đúng chỗ nha @@

[Mr.Rezo™]

xin lỗi chẳng phải tự cao mà đẳng cấp của tôi nó khác cậu . hiểu chứ kinkina ?

nghe GM nói Server Online cậu hay bị tự don't send gameserver nhỉ

[notfile]

xin lỗi chẳng phải tự cao mà đẳng cấp của tôi nó khác cậu . hiểu chứ kinkina ?

nghe GM nói Server Online cậu hay bị tự don't send gameserver nhỉ

Tên Rezo này quá tự cao !!! chết sớm thôi em àh