Script event quả huy hoàng

[Mr.Rezo™]

Đây là script ăn quả huy hoàng đơ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ê .

[SP]

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;

[/SP]

Tiếp đó bạn download file questkey và droprate này của mình về

http://www.mediafire.com/download.php?m2gyjrn2onm

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

[jxdevbro]

Script này vẫn còn bug, chứng tỏ trong server anhtai mình vẫn ăn thoải mái quả huy hoàng ( thoát game.exe rồi vào lại là xài thoải mái) fixx nhá anhtai

[nhoc1994]

Add Script đó vào NPC rủi download file về coppy vào settings của server và client ak ????

[Mr.Rezo™]

Add Script đó vào NPC rủi download file về coppy vào settings của server và client ak ????

Script này vẫn còn bug, chứng tỏ trong server anhtai mình vẫn ăn thoải mái quả huy hoàng ( thoát game.exe rồi vào lại là xài thoải mái) fixx nhá anhtai

@nhoc1994 : copy questkey vào thư mục item - copy droprate.ini vào thư mục

item nếu dùng sv JXPKS của akari hoặc của anh còn xài xuân thu đổi tên cái file

đó thành jiben.ini rồi copy vào thư mục droprate .

@jxdevbro : Thông cảm vì trình độ dev của tui không giống cái nick của bạn

[thachlong78]

Chà spit này viết đơn giản thôi, bạn làm vậy làm gì cho phức tạp, mà lai dễ lỗi.

[Mr.Rezo™]

Tụt quần lạy anh anh Mướp ơi script này viết ra cho newbie xài với ai thích

vứt vào script họ thì vứt chứ có gì mà lỗi với lủng ...

[thachlong78]

Thì hình như spit lỗi đây, thử kiểm tra lại xem.

[Mr.Rezo™]

Chả có lỗi gì ngoài cái thoát ra vào lại vẫn ăn đ.c quả huy hoàng cái này thì

bó tay vì chắc là có professional nào đó sẽ fix được còn tui thì ko

[thachlong78]

Cái hạn chế 30tr/ngày không viết như vậy được đâu, lỗi nhiều chỗ đó, may là bạn dùng task tạm thời nên uot ra vào lại cái chỗ lệnh hạn chế cũ không có tác dụng, chứ nếu không thì khối trò vui xảy ra. Giờ bạn thử fix cái 30 tr/ngày xem (ở spit này nó không giúp ích được mà còn có thể lỗi trong trường hợp nhất định). Trờ chút viết tặng bạn 1 đoạn spit quả hoàng kim thôi nhé.

[thachlong78]

Spit đây:

function main()
Say("Nguoi muon su dung qua Hoang Kim seo ?",2,"Ta muon su dung/sdqhk","Qua do ta chen mai roi, chan lam cho khong lay/no")
end;

function no()
end;

function sdqhk()

ngay = tonumber(date("%M%D"))
if (ngay ~= GetTask(50)) then
SetTask(50,ngay)
SetTask(51,0)
if ( HaveItem(226) == 1) then
DelItem(226)
AddOwnExp(20000000)
local str1 = "Chuc mung: "..GetName().." chen thanh cong qua Hoang Kim nhan duoc 20 chai Ex";
AddGlobalCountNews(str1, 1);
SetTask(51,GetTask(51)+20000000)
else
Talk(1,"","Cai thang nay, khong co qua Hoang Kim dinh den day lam gi, ra cho khac khong tau da cho nhat gio.")
end
else

if (GetTask(51) <= 10000000) then

if ( HaveItem(226) == 1) then
DelItem(226)
AddOwnExp(20000000)
local str1 = "Chuc mung: "..GetName().." chen thanh cong qua Hoang Kim nhan duoc 20 chai Ex";
AddGlobalCountNews(str1, 1);
SetTask(51,GetTask(51)+20000000)
Talk(1,"","Cai thang nay, khong co qua Hoang Kim dinh den day lam gi, ra cho khac khong tau da cho nhat gio.")
end
else
Talk(1,"","Mot ngay chi chen duoc toi da 30 chai thoai, chen qua la rung rang do cung.")
end
end

end;

Chưa thử gì đâu thử ném vào sever xem.