PDA

View Full Version : Hot Hot Hot Even Bánh Kem Mới Ra Lò



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

gachbayvaomat
20-05-10, 03:30 PM
Có bị sai lầm không thế, event hay even. Event thì sự kiện, even có thể dịch là ngay cả=)). Mầy script kiểu này toàn edit đi edit lại nhĩ:-w
Dù sao cũng thank vì có công post bài. Chúc bác đắt hàng=))

kinkina2009
20-05-10, 05:21 PM
script này sẽ có lỗi >-) 30 charrr

notfile
21-05-10, 10:27 AM
Thông báo chính thức war với jxnood
Bạn này vừa PM yahoo mình ăn nói với những lời lẽ xúc phạm
khi đầy đủ bằng chứng mình sẽ chụp vài pic khi chat cho mọi người cùng xem
!!!

ohishu
21-05-10, 12:25 PM
Góp Ý Cho Chủ Thớt Đây:
Thứ 1: (HaveItem == 1) Nếu Cậu Để Vậy Thì Lỡ Ng Ta Có 2 cái 3 cái ... 60 cái thì không sữ dụng đc à ?
Thứ 2: for i=117,120 do DelItem(i) :)) Nên Xem Lại

:(|):-h:-h:-h

zonjkut3
21-05-10, 12:29 PM
Thông báo chính thức war với jxnood
Bạn này vừa PM yahoo mình ăn nói với những lời lẽ xúc phạm
khi đầy đủ bằng chứng mình sẽ chụp vài pic khi chat cho mọi người cùng xem
!!!

haizzzz,cùng forum mà sao cứ chành chọe nhau thế :-"

aichangbiet
21-05-10, 01:24 PM
Góp Ý Cho Chủ Thớt Đây:
Thứ 1: (HaveItem == 1) Nếu Cậu Để Vậy Thì Lỡ Ng Ta Có 2 cái 3 cái ... 60 cái thì không sữ dụng đc à ?
Thứ 2: for i=117,120 do DelItem(i) :)) Nên Xem Lại

:(|):-h:-h:-h

for i=117,120 do DelItem(i) là đúng rồi còn gì nữa! Người ta del id "i" mà i từ 117 đến 120 mà ^^!

jxnoob
21-05-10, 01:30 PM
Thông báo chính thức war với jxnood
Bạn này vừa PM yahoo mình ăn nói với những lời lẽ xúc phạm
khi đầy đủ bằng chứng mình sẽ chụp vài pic khi chat cho mọi người cùng xem
!!!

thưa bạn notfile bạn bảo tôi nói những lời xúc phạm bạn bạn nên đọc nick nam và yahoo thời gian tôi nói với bạn và bạn phải đọc yahoo của ban cho tôi xem nick của tôi có nick bạn không.nếu bạn nhầm cũng không sao cả tôi chả làm gì nên tôi không phải sợ (:|

thachlong78
21-05-10, 02:57 PM
HaveItem(id) chỉ có giả trị 1 hoặc 0, 1 có nghĩa là tồn tại Iteam, 0 có nghĩa không tồn tại. Nhìn qua thấy che1() lỗi chỗ - tiền thiếu, và cái TaskXu có vẻ năm ăn năm thua quá. Chà.

sangpronhat
21-05-10, 08:22 PM
Ùm chừng nèo GetItemCount(ID) mới lè kiểm số lượng item ^^ !

kinkina2009
21-05-10, 08:27 PM
function no()
end;
;)) 30 charrr

jxnoob
21-05-10, 09:43 PM
sorry bổ sung thêm phần script
function out()
end;
thiếu thông cảm nếu script thiếu các dấu { ( . , thì các bạn sửa hộ nha mình hay quên mấy cái đấy lắm :|

notfile
22-05-10, 09:17 AM
sorry bổ sung thêm phần script
function out()
end;
thiếu thông cảm nếu script thiếu các dấu { ( . , thì các bạn sửa hộ nha mình hay quên mấy cái đấy lắm :|

Thế thì script sao được hả bạn
những dấu đó cũng rất quan trọng đó
chỉ cần thiếu là GameServer.exe sẽ không hiểu được và sẽ báo lỗi là không thể đọc được ngay !!

kinkina2009
23-05-10, 12:49 PM
mà đây đâu phải nơi post Script