Hướng Dẫn Viết 1 Event Như Event Ngũ Quả

[ThanhVipLn]

Các Hàm Cần Thiết Cho Việc Này, Thật Sự Cũng Không Khó Đâu Các Bạn
Function: Khai Báo hàm
If ...... Then ..... Else....: cái này thì ai củng bik
SayEx({"........."}): Đối Thoại Có Lựa Chọn
Msg2Player("........"): Dòng Màu Đỏ Bên Góc Trái Màn Hình, Báo Cáo Thành Công, Thất Bại
GetItemCount(ID): Kiểm Tra Nguyên Liệu. ID Là Cột C Trong Settings\Queskey.txt
DelItem(ID): Xóa Nguyên Liệu: ID Là Cột C Trong Settings\Queskey.txt
AddEventItem(ID): Thêm Nguyên Liệu: ID Là Cột C Trong Settings\Queskey.txt
AddOwnExp(Exp): Làm Bánh Để Đổi Exp Và Hàm Này Đi Kèm Với DelItem. Exp: Là Số Kinh Nghiệm Nhận Được
Pay(Money): Số Tiền Phải Trả

Chừng Này Hàm Là Các Bạn Có Thể Tự Làm 1 Cái Event Theo Ý Mình Rùi

function VaLenTine_Main() -- Hàm Khỏi Đầu Khi Nhấn Vào NPC
SayEx({"<color="..colorS()..">ThanhVipLN<color>: Nam Nay VaLenTine Trung Voi Ngay Tet Nguyen Dan Do. Vi The Tui Lam 2 EVENT 1 Luc De Chao Don Ngay Nay 14/2/2010. HAPPY VALENTINE DAY:",
"Banh SoCola [Thuong]./banh1",
"Banh SoCola [Dac Biet]./banh2",
"Dung banh SoCola [Thuong]./dungbanh1",
"Dung banh SoCola [Dac Biet]./dungbanh2",
"Huong Dan Lam Banh./HuongDanValentine",
"Thoat./Exit"});
end;

function banh1()
if ( GetItemCount(216) >= 1)
and ( GetItemCount(217) >= 1)
and ( GetItemCount(218) >= 1)
and ( GetItemCount(219) >= 1)
and ( GetItemCount(220) >= 1)
and ( GetItemCount(221) >= 1)
and ( GetItemCount(222) >= 1)
and ( GetItemCount(223) >= 1)
and ( GetCash() >= 50000000)
and ( GetTask(TaskTienDong) >= 10) then
SetTask(TaskTienDong,GetTask(TaskTienDong) - 10)
for i=216,223 do DelItem(i) end
Pay(50000000)
AddEventItem(225)
MsgEx("Quan khach nhan duoc banh SoCola [Thuong].")
else
Talk(1,"","Ban khong mang theo du nguyen lieu. Hay doc lai Huong Dan.");
end
end;

function banh2()
if ( GetItemCount(225) >= 3)
and ( GetCash() >= 100000000)
and ( GetTask(TaskTienDong) >= 10) then
SetTask(TaskTienDong,GetTask(TaskTienDong) - 10)
for i=1,3 do DelItem(225) end
Pay(100000000)
AddEventItem(226)
MsgEx("Quan khach nhan duoc banh SoCola [Dac Biet].")
else
Talk(1,"","Ban khong mang theo du nguyen lieu. Hay doc lai Huong Dan.");
end
end;


function dungbanh1()
if (HaveItem(225) == 1)then
DelItem(225)
for a=1,20 do AddOwnExp(25000000) end
Msg2Player("Nhan duoc 500 trieu kinh nghiem.")
else
Talk(1,"","Ban khong dem theo <color=Fire>banh SoCola [Thuong]<color>.");
end
end;

function dungbanh2()
if (HaveItem(226) == 1)then
DelItem(226)
for a=1,20 do AddOwnExp(100000000) end
Msg2Player("Nhan duoc 2 ty kinh nghiem.")
else
Talk(1,"","Ban khong dem theo <color=Fire>banh SoCola [Dac Biet]<color>.");
end
end;

function HuongDanValentine()
Talk(2,"","<color=red>Huong Dan Lam Banh:<color>Danh Quai Map 15x Den 20x Moi Rot Nguyen Lieu Lam Banh <enter> Kinh Nghiem Nhan Dc: Banh Thuong [500 trieu] Banh Dac Biet [2 Ty]",
"Banh SoCoLa Thuong = 5 Loai Banh SoCoLa + Tui Duong + Tao Do + Nhan SoCoLa + 10000 van + 10 Xu <enter> Banh SoCoLa Dac Biet = 3 Banh SoCoLa THuong + 10000 van + 10 Xu");
end;

function Exit()
end;

Các Bạn Tự Ngâm Cứu Nhé. Giải Thjx Không BIk Sao Nữa . Có Gí Không Hiểu Ở Khúc Nào Các Bạn Post Lên Đây Nhé


Thường Thì Event Tui Không Cho Rớt. Event Tui Sẻ Cho Nó Rớt Vào Trong Hành Trang
\\script\\Global\\monter\\exp_monter\\quai_10.lua
Ví dụ 1 cái nhé

function OnDeath()
i = random(1,10) ---- Đây Là Xác Xuất.
if i == 5 then -- Đây Là 1/10
AddEventItem(6) -- ID Tiền Đồng
Msg2Player("Ban nhan duoc 1 Tien Dong.")
elseif i == 10 then --- 1/10
AddEventItem(193) -- Id Hộp Quà
Msg2Player("Ban Nhan Duoc 1 Hop Qua Nam Moi")
end
end;

Và sẽ có 20% xác xuất đánh wai 1x rớt đồ. Tương tự tùy bạn chọn

elseif i == 10 then
AddEventItem(193)

Bạn Có Thể Chuyển Thành

ab = random(168,172) -- ID 5 Loại Quả Trong QuesKey
elseif i == 10 then
AddEventItem(ab)

Tùy Cách Mình Cho Nó Hoạt Động Thui

Còn Về Phần DropRate Thì Sẽ Có 2 File Quy Định
\\Script\\droprate.lua
va` \\Settings\\droprate\\npcdroprate.ini
Hình Như Có Bài Post Hướng Dẫn Kỹ Về Phần Này, Các Bạn Tự Kiếm Nhé

[Only registered and activated users can see links. ]

Nguồn: Clbgamesvn

[sinhclb12]

Mừng cho Box JX có thêm 1 thành viên tích cực

[gachbayvaomat]

Bạn này sẽ kéo JX chúng ta lên 1 tầm cao mới Tích cực ghê

[thaihoa91]

Ko lẽ bị ảnh hưởng của tui dữ vậy sao

[mankuki]

ThanhVipLN ban cho mình nick chat đc không mình cần bạn giup mình vài thứ

[rockbuon]

Cái quan trọng như chỉnh tỉ lệ rớt vật phẩm ở đâu và thêm vật phẩm event thì bạn chưa cóa nói hihi

[ThanhVipLn]

Rùi Đó bạn . Tỉ Lệ Rơi EVENt

[rockbuon]

function OnDeath()
i = random(1,10) ---- Đây Là Xác Xuất.
if i == 5 then -- Đây Là 1/10
AddEventItem(6) -- ID Tiền Đồng
Msg2Player("Ban nhan duoc 1 Tien Dong.")
elseif i == 10 then --- 1/10
AddEventItem(193) -- Id Hộp Quà
Msg2Player("Ban Nhan Duoc 1 Hop Qua Nam Moi")
end
end;

tại sao tỉ lệ là 20%? ở trên nếu i= 5 và =10 vậy là 50% chứ nhỉ còn i = 2,3,4.. thì sao? .

Trong jx49 có sử dụng droprate riêng cấu chúc như sau:

function dropnpc()
cap = random(8,10)
i = floor(random(100,1199)/100)
nguhanh = random(0,4)

if i == 1 then --vu khi
a = random(0,5)
AITW(0,0,a,cap,nguhanh,0,random(5,8))
elseif i == 2 then --ao giap
a = random(0,28)
AITW(0,2,a,cap,nguhanh,0,random(5,8))
......................................

elseif i == 11 then --event
a = random(1,10)
if a == 1 then
AITW(4,0,0,0,0,0,0)
elseif a == 2 then
AITW(4,1,0,0,0,0,0)
elseif a == 3 then
AITW(4,2,0,0,0,0,0)
elseif a == 4 then
z = random(86,113)
..................
end
end
end;

cái i = floor(random(100,1199)/100) có nghĩa là sao? và hàm AITW(4,0,0,0,0,0,0) bạn đã sử dụng bao giờ chưa? mình ko muốn nó chạy tọt vào hòm đồ mà muốn nó rớt ra muốn nhặt thì nhặt .

- mới lại cậu có biết lấy ảnh vật phẩm event của vina rồi thêm vào questkey ko ? trong questkey hiện tại chỉ có rất ít vật phẩm mình muốn lấy thêm bên vina để làm cho mới....

[ThanhVipLn]

tại sao tỉ lệ là 20%? ở trên nếu i= 5 và =10 vậy là 50% chứ nhỉ còn i = 2,3,4.. thì sao? .

function OnDeath()
i = random(1,10) ---- Đây Là Xác Xuất.
if i == 5 then -- Đây Là 1/10
AddEventItem(6) -- ID Tiền Đồng
Msg2Player("Ban nhan duoc 1 Tien Dong.")
elseif i == 10 then --- 1/10
AddEventItem(193) -- Id Hộp Quà
Msg2Player("Ban Nhan Duoc 1 Hop Qua Nam Moi")
end
end;

hàm Này có nghĩa là:
Gắn 1 Biến I = 1 đến 10 hên xui, nó chạy theo số nguyên nên 1 số tương ứng là 10%
và ta thjx if i == ? thjx nhiêu cũng được.
5, 10 2 số hok phải là 20% là gì. thjx thêm nhiều thì nhiêu
Muốn tăng phần trăm cho khó lên thì : i = random(1,.....)
điền cái ... cho nhiều lên. hàm này ap dụng trong viết làm tỉ lệ ép trang bị, huyền tinh thành công đó

i = floor(random(100,1199)/100)

Cái này có nghĩa. Gắn i = (100 -> 1199)/100
lúc này nó sẽ ra số lẽ. hàm floor để lấy số nguyên để ta if. theo tui là như thế

[kinkina2009]

tích cực quá đi tích cực quá
@thaihoa91 chắc vậy