Mr.Rezo™
06-07-09, 12:40 PM
Đây là script ăn quả huy hoàng :D đơn giản thôi nhưng có cái là hạn chế số điểm
kinh nghiệm ăn trong 1 ngày . Ở đây tớ hạn chế chỉ ăn được 30 triệu exp . Có thể
dùng cho sv online nào đó nếu ko chê .
msg={ "Moi ngay ban chi duoc an 30 trieu diem kinh nghiem ",
"Ban nhan duoc 1 trieu diem kinh nghiem ",
"Nguoi khong co qua Huy Hoang nen khong the su dung "
}
function sdqhh()
Say("Vo Lam Quan : Kha khen cho nguoi da vat va tim kiem ! Nguoi muon su dung Qua Huy Hoang nao ?", 5,
"1.Qua Huy Hoang Thap (1 trieu)/dhuihuang",
"2.Qua Huy Hoang Trung (2 trieu)/zhuihuang",
"3.Qua Huy Hoang Cao (5 trieu)/ghuihuang",
"4.Qua Hoang Kim (20 trieu)/hjhuihuang",
"Ta chi nghe tham thoi/OnCancel");
end;
function CheckHuyHoang()
ngay = tonumber(date("%M%D"))
a = GetTask(TaskLuuNgay)
b = GetTask(TaskLuuEXP)
if a == 0 then
SetTask(TaskLuuNgay,ngay)
sdqhh()
elseif a == ngay then
if b >= 30000000 then
MsgEx("Ban da su dung du 30 trieu diem kinh nghiem ngay hom nay roi...")
else
sdqhh()
end
elseif a ~= ngay then
SetTask(TaskLuuNgay,ngay)
sdqhh()
end
end;
function dhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("223") == 1) then
DelItem("223")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 1000000)
AddOwnExp(1000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Thap]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function zhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("224") == 1) then
DelItem("224")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 2000000)
AddOwnExp(2000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Trung]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function hjhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("225") == 1) then
DelItem("225")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 5000000)
AddOwnExp(5000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Cao]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function hjhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("226") == 1) then
DelItem("226")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 20000000)
AddOwnExp(20000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Hoang Kim";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
Tiếp đó bạn download file questkey và droprate này của mình về
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Thế là xong rồi !
P/s : Trình độ dev gà nên chỉ có script cùi thôi . Nếu bạn nào xài được thì cảm ơn 1 cái còn không xài thì đừng chửi :-*
kinh nghiệm ăn trong 1 ngày . Ở đây tớ hạn chế chỉ ăn được 30 triệu exp . Có thể
dùng cho sv online nào đó nếu ko chê .
msg={ "Moi ngay ban chi duoc an 30 trieu diem kinh nghiem ",
"Ban nhan duoc 1 trieu diem kinh nghiem ",
"Nguoi khong co qua Huy Hoang nen khong the su dung "
}
function sdqhh()
Say("Vo Lam Quan : Kha khen cho nguoi da vat va tim kiem ! Nguoi muon su dung Qua Huy Hoang nao ?", 5,
"1.Qua Huy Hoang Thap (1 trieu)/dhuihuang",
"2.Qua Huy Hoang Trung (2 trieu)/zhuihuang",
"3.Qua Huy Hoang Cao (5 trieu)/ghuihuang",
"4.Qua Hoang Kim (20 trieu)/hjhuihuang",
"Ta chi nghe tham thoi/OnCancel");
end;
function CheckHuyHoang()
ngay = tonumber(date("%M%D"))
a = GetTask(TaskLuuNgay)
b = GetTask(TaskLuuEXP)
if a == 0 then
SetTask(TaskLuuNgay,ngay)
sdqhh()
elseif a == ngay then
if b >= 30000000 then
MsgEx("Ban da su dung du 30 trieu diem kinh nghiem ngay hom nay roi...")
else
sdqhh()
end
elseif a ~= ngay then
SetTask(TaskLuuNgay,ngay)
sdqhh()
end
end;
function dhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("223") == 1) then
DelItem("223")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 1000000)
AddOwnExp(1000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Thap]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function zhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("224") == 1) then
DelItem("224")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 2000000)
AddOwnExp(2000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Trung]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function hjhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("225") == 1) then
DelItem("225")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 5000000)
AddOwnExp(5000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Huy Hoang [Cao]";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
function hjhuihuang()
exp = GetTask(501)
if( exp > 30000000 ) then
Msg2Player(msg[1])
else
if ( HaveItem("226") == 1) then
DelItem("226")
b = GetTask(TaskLuuEXP)
SetTask(TaskLuuEXP,b + 20000000)
AddOwnExp(20000000)
local str1 = "Chuc mung: "..GetName().." su dung thanh cong qua Hoang Kim";
AddGlobalCountNews(str1, 1);
else
Msg2Player(msg[3])
end
end
end;
Tiếp đó bạn download file questkey và droprate này của mình về
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Thế là xong rồi !
P/s : Trình độ dev gà nên chỉ có script cùi thôi . Nếu bạn nào xài được thì cảm ơn 1 cái còn không xài thì đừng chửi :-*