Share Event Tết giống VLTK Free

[nghiamt]

Đầu tiên là file Script

--Event Tet
--NghiaMT 
-------------------------------------------


function main(sel)
	Say("Dot phao di nao Dot Phao di nao",5,"Mo Tui Loc Mung Xuan/molixi","Ghep Phao/ghepphao","Doi phao lay Phong Phao/eventphao","Dung Phong Phao/dungphao","Khong can gi ca/OnCancel")
end;

function OnCancel()
end;
---------------------------------Mo lixi---------------------------------------------------
function molixi()
	for i=1,60 do
	if ( HaveItem("Tui Loc Mung Xuan") == 1) then
	l = random(202,204)
	AddEventItem(l)
	DelItem("Tui Loc Mung Xuan")
	if (l == 202) then
	Msg2Player("Ban nhan duoc Qua Phao Tieu")
	elseif (l == 203) then
	Msg2Player("Ban nhan duoc Qua Phao Trung")
	elseif (l == 204) then
	Msg2Player("Ban nhan duoc Qua Phao Dai")
end
end	
end	
end;

-----------------------------------Ghep Phao--------------------
function ghepphao()
	Say("Khach quan muon ghep Phao gi?:",3,"Ghep phao Tieu thanh phao Trung/tieutrung","Ghep phao Trung thanh phao Dai/trungdai","Khong ghep/OnCancel")
end;
function tieutrung()
	Say("Ghep phao Tieu thanh phao Trung can co <color=yellow>3 qua phao Tieu<color>",2,"Ok ghep/tieutrung1","Khong ghep/OnCancel")
end;
function trungdai()
	Say("Ghep phao Trung thanh phao Dai can co <color=yellow>3 qua phao Trung<color>",2,"Ok ghep/trungdai1","Khong ghep/OnCancel")
end;
function tieutrung1()
	if (GetItemCount("Qua Phao Tieu") < 3) then
	Say("Nguoi ko co du <color=yellow>3 Qua Phao Tieu<color>",0)
	else
	for i=1,60 do
	if (GetItemCount("Qua Phao Tieu") >= 3) then
	DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu")
	AddEventItem("Qua Phao Trung")
	Say("Chuc mung ban da ghep thanh cong <color=yellow>Qua Phao Trung<color>")
	end
end	
end
end;
function trungdai1()
	if (GetItemCount("Qua Phao Trung") < 3) then
	Say("Nguoi ko co du <color=yellow>3 Qua Phao Trung<color>",0)
	else
	for i=1,60 do
	if (GetItemCount("Qua Phao Trung") >= 3) then
	DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung")
	AddEventItem("Qua Phao Dai")
	Say("Chuc mung ban da ghep thanh cong <color=yellow>Qua Phao Dai<color>")
	end
	end
	end
end;
--------------------------------------------------------------Doi phao lay phong phao-------------------------------------
function eventphao()
	Say("Khach quan muon doi Phong Phao gi?:",4,"Phong Phao Tieu/ptieu","Phong Phao Trung/ptrung","Phong Phao Dai/pdai","Khong can/OnCancel")
end
-----------------------------------------------------------

function ptieu()
Say("Phong Phao Tieu can <color=yellow>10 Qua Phao Tieu<color>,<color=yellow>2 Qua Phao Trung<color> va <color=yellow>10V Luong<color>",2,"Ok Doi/pptieu","Khong can/OnCancel")
end;
function ptrung()
Say("Phong Phao Trung can <color=yellow>10 Qua Phao Trung<color>,<color=yellow>2 Qua Phao Dai<color> va <color=yellow>30V Luong<color>",2,"Ok Doi/pptrung","Khong can/OnCancel")
end;
function pdai()
Say("Phong Phao Dai can <color=yellow>20 Qua Phao Dai<color> va <color=yellow>50V Luong<color>",2,"Ok Doi/ppdai","Khong can/OnCancel")
end;
---------------------------------------------------
function pptieu()
	if (GetItemCount("Qua Phao Tieu") < 10) and (GetItemCount("Qua Phao Trung") < 2) and (GetCash() < 100000) then
	Say("Nguoi ko co du nguyen lieu lam Phong Phao Tieu",0)
	if (GetItemCount("Qua Phao Tieu") >= 10) and (GetItemCount("Qua Phao Trung") >= 2) then
	DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu")
	DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu") DelItem("Qua Phao Tieu")
	DelItem("Qua Phao Trung") DelItem("Qua Phao Trung")
	AddEventItem("Phong Phao Tieu")
	Say("Chuc mung ban nhan duoc Phong Phao Tieu",0)
		end;
	end;
end;

function pptrung()
	if (GetItemCount("Qua Phao Trung") < 10) and (GetItemCount("Qua Phao Dai") < 2) and (GetCash() < 300000) then
	Say("Nguoi ko co du nguyen lieu lam Phong Phao Trung",0)
	if (GetItemCount("Qua Phao Trung") >= 10) and (GetItemCount("Qua Phao Dai") >= 2) then
	DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung")
	DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung") DelItem("Qua Phao Trung")
	DelItem("Qua Phao Dai") DelItem("Qua Phao Dai")
	AddEventItem("Phong Phao Trung")
	Say("Chuc mung ban nhan duoc Phong Phao Trung",0)
		end;
	end;
end;

function ppdai()
	if (GetItemCount("Qua Phao Dai") < 20) and (GetCash() < 500000) then
	Say("Nguoi ko co du nguyen lieu lam Phong Phao Dai",0)
	if (GetItemCount("Qua Phao Dai") >= 20) then
	DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai")
	DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai")
	DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai")
	DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai") DelItem("Qua Phao Dai")
	AddEventItem("Phong Phao Dai")
	Say("Chuc mung ban nhan duoc Phong Phao Dai",0)
		end;
	end;
end;
------------------------------------dung phao-------------
function dungphao()
	Say("Hiep Khach muon su dung loai Phong Phao nao?:",4,"Phong Phao Tieu/stieu","Phong Phao Trung/strung","Phong Phao Dai/sdai","Khong can/OnCancel")
end
function stieu()
		if (GetItemCount("Phong Phao Tieu") < 1) then
		Say("Khong co phao ma den gap ta lam gi ha...Lao that",0)
		if ( HaveItem("Phong Phao Tieu") == 1) then
		for i=1,8000 do AddOwnExp(100) end
		DelItem("Phong Phao Tieu")
		Msg2Player("Chuc mung! Ban nhan duoc 800.000 diem Kinh Nghiem")
		end
	end
end;
function strung()
		if (GetItemCount("Phong Phao Trung") < 1) then
		Say("Khong co phao ma den gap ta lam gi ha...Lao that",0)
		if ( HaveItem("Phong Phao Trung") == 1) then
		for i=1,80000 do AddOwnExp(100) end
		DelItem("Phong Phao Trung")
		Msg2Player("Chuc mung! Ban nhan duoc 8.000.000 diem Kinh Nghiem")
		end
	end
end;
function sdai()
		if (GetItemCount("Phong Phao Dai") < 1) then
		Say("Khong co phao ma den gap ta lam gi ha...Lao that",0)
		if ( HaveItem("Phong Phao Dai") == 1) then
		for i=1,160000 do AddOwnExp(100) end
		DelItem("Phong Phao Dai")
		Msg2Player("Chuc mung! Ban nhan duoc 16.000.000 diem Kinh Nghiem")
		n = random(1,4)
		AddEventItem(n)
		end
	end
end;

Bạn add vô 1 NPC nào đó cũng đc nhé

Tiếp là file Ảnh của Pháo và Phong Pháo đây

http://www.mediafire.com/?q4n2l2zmczr

Nhét vô Client nhé

Công việc còn lại là Add vô QuestKey nhé...

[Alvin]

wow hay đó thanks nhiều nhé pro^^

[hunggh]

paste cái script này vào notepad à pa, tớ chưa làm cái nì bao h nên chả biết gì, hì, bạn chịu khó nói luôn 1 tý.
Thanks for share

[DirectX]

hướng dẫn cách Add vào Questkey luôn di

[nghiamt]

Đợi lúc nào rảnh share cả server luôn....chứ cái này chỉ dành cho các bạn am hiểu 1 ít về JX thui

[TranDoanDuc]

Cái này giống file caydao.lua trong patch sever xuân thu của ffatasy thôi chứ có gì mới đâu , chỉ đổi lại ID item thôi ...

[huntersun]

Đúng roài ! Share cả SV hết lun cho lành chứ mấy Newbie lấy gì mà biết

[nghiamt]

Cái này giống file caydao.lua trong patch sever xuân thu của ffatasy thôi chứ có gì mới đâu , chỉ đổi lại ID item thôi ...

Ko có j mới vs bạn ... nhưng lại mới vs nhiều người

[DirectX]

chỉ cách Add Questkey luôn đi
tui mò bữa giờ mà ko dc

[thaihoa91]

chỉ cách Add Questkey luôn đi
tui mò bữa giờ mà ko dc

Hàm add QuestKey là AddEventItem(ID)