jxnoob
20-05-10, 02:49 PM
Include("\\Script\\Global\\Serverlib.lua");
function main()
Even_main()
end;
function Even_main()
SayEx({"<color=red>LeQuan<color>:Lua Chon:",
"Che Tao Banh./che",
"Su Dung Banh./dung",
"Cach Che Tao./hd",
"Thoat./out",});
end;
function che()
SayEx({"<color=red>LeQuan<color>:Ban Muon Che Tao Banh Nao:",
"Banh Kem[Thuong]./che1",
"Banh Kem[Ngon]./che2",
"Banh Kem[HaoHang]./che3",
"Thoat./out"});
end;
function che1()
if ( GetItemCount(117) >=5)
and ( GetItemCount(118) >=5)
and ( GetItemCount(119) >=5)
and( GetItemCount(120) >=5)
and( GetCash() >= 10000000)
and ( GetTask(TaskXu) >=100) then
SetTask(TaskXu,GetTask(TaskXu) -100)
for i=117,120 do DelItem(i) end
Pay(1000000)
AddEvenItem(122)
Msg2Player("Ban Nhan Duoc Banh Kem [Thuong].")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function che2()
if ( GetItemCount(122) >=3)
and ( GetCash() >=30000000)
and ( GetTask(TaskXu) >=200) then
SetTask(TaskXu,GetTask(TaskXu) -200)
for i=1,3 do DelItem(122) end
Pay(30000000)
AddEvenItem(123)
Msg2Player("Ban Nhan Duoc Banh Kem [Ngon].")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function che3()
if ( GetItemCount(123) >=5)
and ( GetCash() >=50000000)
and ( GetTask(TaskXu) >=300) then
SetTask(TaskXu,GetTask(TaskXu) -300)
for i=1,5 do DelItem(123) end
Pay(50000000)
AddEvenItem(124)
Msg2Player("Ban Nhan duoc Banh Kem [Hao Hang].,")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function dung()
SayEx({"<color=red>LeQuan<color>: Nguoi Muon Dung Banh Nao:",
"Banh Kem [Thuong]./dung1",
"Banh Kem [Ngon]./dung2",
"Banh Kem [Hao Hang]./dung3",
"Thoat./out",})
end;
function dung1()
if (HaveItem(122) ==1) then
DelItem(122)
for a=1,20 do AddOwnExp(2500000) end
Msg2Player("Ban Nhan Duoc 50 Trieu Kinh Nghiem")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Thuong]<color>.")
end
end;
function dung2()
if (HaveItem(123) ==1) then
DelItem(123)
for a=1,20 do AddOwnExp(10000000) end
Msg2Player ("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Ngon]<color>.")
end
end;
function dung3()
if (HaveItem(124) ==1) then
DelItem(124)
for a=1,20 do AddOwnExp(25000000) end
Msg2Player("Ban Nhan Duoc 500 Trieu Kinh Nghiem.")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Hao Hang]<color>.")
end
end;
function hd()
Talk(2,"","<color=red>Cach Tao Banh Kem<color>:Danh Quai Map 12x Den 20x Se Rot Nguyen Lieu Lam Banh<enter>Kinh Nghiem An Banh Nhan Duoc: Banh Kem Thuong [50 Trieu Exp] <enter> Banh Kem Ngon [200 Trieu Exp] <enter> Banh Kem Hao Hang [500 Trieu Exp]",
"Banh Kem Thuong = 5 Sua + 5 Duong + 5 Trung + 5 Bot Mi + 1kv + 100xu <enter> Banh Kem Ngon = 3 Banh Kem Thuong + 3kv + 200xu <enter> Banh Kem Hao Hang = 5 Banh Kem Ngon + 5kv + 300xu",})
end;
function OnDeath()
i = random(1,10)
abcd = random(117,120)
if (i == 5) then
AddEventItem(131)
Msg2Player("Ban nhan duoc 1 Xu.")
elseif (i == 10) then
AddEventItem(abcd)
Msg2Player("Ban Nhan Duoc Nguyen Lieu.")
end
end;
Thank Nghen :D
function main()
Even_main()
end;
function Even_main()
SayEx({"<color=red>LeQuan<color>:Lua Chon:",
"Che Tao Banh./che",
"Su Dung Banh./dung",
"Cach Che Tao./hd",
"Thoat./out",});
end;
function che()
SayEx({"<color=red>LeQuan<color>:Ban Muon Che Tao Banh Nao:",
"Banh Kem[Thuong]./che1",
"Banh Kem[Ngon]./che2",
"Banh Kem[HaoHang]./che3",
"Thoat./out"});
end;
function che1()
if ( GetItemCount(117) >=5)
and ( GetItemCount(118) >=5)
and ( GetItemCount(119) >=5)
and( GetItemCount(120) >=5)
and( GetCash() >= 10000000)
and ( GetTask(TaskXu) >=100) then
SetTask(TaskXu,GetTask(TaskXu) -100)
for i=117,120 do DelItem(i) end
Pay(1000000)
AddEvenItem(122)
Msg2Player("Ban Nhan Duoc Banh Kem [Thuong].")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function che2()
if ( GetItemCount(122) >=3)
and ( GetCash() >=30000000)
and ( GetTask(TaskXu) >=200) then
SetTask(TaskXu,GetTask(TaskXu) -200)
for i=1,3 do DelItem(122) end
Pay(30000000)
AddEvenItem(123)
Msg2Player("Ban Nhan Duoc Banh Kem [Ngon].")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function che3()
if ( GetItemCount(123) >=5)
and ( GetCash() >=50000000)
and ( GetTask(TaskXu) >=300) then
SetTask(TaskXu,GetTask(TaskXu) -300)
for i=1,5 do DelItem(123) end
Pay(50000000)
AddEvenItem(124)
Msg2Player("Ban Nhan duoc Banh Kem [Hao Hang].,")
else
Talk(1,"","Ban Khong Co Du Nguyen Lieu.Xin Doc Lai Cach Che Tao.,")
end
end;
function dung()
SayEx({"<color=red>LeQuan<color>: Nguoi Muon Dung Banh Nao:",
"Banh Kem [Thuong]./dung1",
"Banh Kem [Ngon]./dung2",
"Banh Kem [Hao Hang]./dung3",
"Thoat./out",})
end;
function dung1()
if (HaveItem(122) ==1) then
DelItem(122)
for a=1,20 do AddOwnExp(2500000) end
Msg2Player("Ban Nhan Duoc 50 Trieu Kinh Nghiem")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Thuong]<color>.")
end
end;
function dung2()
if (HaveItem(123) ==1) then
DelItem(123)
for a=1,20 do AddOwnExp(10000000) end
Msg2Player ("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Ngon]<color>.")
end
end;
function dung3()
if (HaveItem(124) ==1) then
DelItem(124)
for a=1,20 do AddOwnExp(25000000) end
Msg2Player("Ban Nhan Duoc 500 Trieu Kinh Nghiem.")
else
Talk(1,"","Ban Khong Dem Theo <color=red>Banh Kem [Hao Hang]<color>.")
end
end;
function hd()
Talk(2,"","<color=red>Cach Tao Banh Kem<color>:Danh Quai Map 12x Den 20x Se Rot Nguyen Lieu Lam Banh<enter>Kinh Nghiem An Banh Nhan Duoc: Banh Kem Thuong [50 Trieu Exp] <enter> Banh Kem Ngon [200 Trieu Exp] <enter> Banh Kem Hao Hang [500 Trieu Exp]",
"Banh Kem Thuong = 5 Sua + 5 Duong + 5 Trung + 5 Bot Mi + 1kv + 100xu <enter> Banh Kem Ngon = 3 Banh Kem Thuong + 3kv + 200xu <enter> Banh Kem Hao Hang = 5 Banh Kem Ngon + 5kv + 300xu",})
end;
function OnDeath()
i = random(1,10)
abcd = random(117,120)
if (i == 5) then
AddEventItem(131)
Msg2Player("Ban nhan duoc 1 Xu.")
elseif (i == 10) then
AddEventItem(abcd)
Msg2Player("Ban Nhan Duoc Nguyen Lieu.")
end
end;
Thank Nghen :D