Share Event WordCup..!! [Lưu trữ] - CLBGAMESVN MMORPG DEVELOPMENT

kemdenny

30-08-10, 07:42 PM

>:/ Nói chung đây là event đầu tay , có thể còn nhìu sai xót hoặc xàm lai...!! Nhưng là event đâu tay , a.e này thấy hay thì có thể lấy về chỉnh sửa
Code:
====Event WordCup by Kemdenny . Edit từ Event WordCup by GHTK online====

Code script:
function wordcup()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi muon tham gia event WordCup ah ?",
"Doi tui nguyen lieu/doitui",
"Ep bong da/epbongda",
"Ep bong HK/epboghk",
"Ep bong BK/epbogbk",
"Bo Huyen Don/bohuyendon",
"Sung dung bong/xaibong",
"Thoat./Exit"});
end;
function doitui()
if GetItemCount(235) >= 1 then
DelItem(235)
AddEventItem(236)
AddEventItem(237)
Msg2Player("Ban nhan dc nguyen liep ep bong")
else
Msg2Player("Ban ko co tui nguyen lieu")
end
end;
function epbongda()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 then
DelItem(236)
DelItem(237)
AddEventItem(229)
Msg2Player("Ban nhan dc bong da")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function epboghk()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 and GetItemCount(230) >= 1 then
DelItem(236)
DelItem(237)
DelItem(230)
AddEventItem(231)
Msg2Player("Ban nhan dc bong HK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function epbogbk()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 and GetItemCount(232) >= 1 then
DelItem(236)
DelItem(237)
DelItem(232)
AddEventItem(233)
Msg2Player("Ban nhan dc bong BK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function xaibong()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi muon tham gia xai loai bong WordCup nao ?",
"Bong da/xaida",
"Bong HK/xaihk",
"Bong BK/xaibk",
"Thoat./Exit"});
end;
function xaida()
if GetItemCount(229) >= 1 then
DelItem(229)
AddOwnExp(1000000)
Msg2Player("Ban nhan dc 1 chai EXP")
else
Msg2Player("Ban ko co bong da")
end
end;
function xaihk()
if GetItemCount(231) >= 1 then
DelItem(231)
AddOwnExp(5000000)
Msg2Player("Ban nhan dc 5 chai EXP")
else
Msg2Player("Ban ko co bong HK")
end
end;
function xaibk()
if GetItemCount(233) >= 1 then
DelItem(233)
AddOwnExp(10000000)
Msg2Player("Ban nhan dc 10 chai EXP")
else
Msg2Player("Ban ko co bong BK")
end
end;
function bohuyetdon()
if GetItemCount(234) >= 1 then
DelItem(234)
AddOwnExp(25000000)
Msg2Player("Ban nhan dc 25 chai EXP")
else
Msg2Player("Ban ko co bo huyet don")
end
end;

Đó là code , các bạn có thể chỉnh sửa NPC để hợp event và viết thế script tương tác cho hợp lý . Cái đó mình ko cần nói nữa nhé . [-X Bạn có thể add event vào NPC cho nhanh......!!
Đây là queskey chứa nguyên liệu và file pak chứa hình ảnh...!!:
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>
Thấy hay thì thank nhé....!! Có sai sót các pro sửa dùm

zonjkut3

30-08-10, 08:03 PM

lấy đâu ra cái spr hình quả bóng thế ;;)
còn cái spr questkey item nào h0k vứt tui với

kemdenny

30-08-10, 08:24 PM

Un của bác Rockmanfbi sv GHTK online chứ đâu

sako1906

30-08-10, 08:49 PM

Cậu có thể hướng dẫn tớ add vào Đc ko và mấy file pack đc thanks cậu nhìu tớ là newbie và sever của tớ ko có lễ quan nữa có gì giúp tớ nhé thanks cậu

kemdenny

31-08-10, 08:15 AM

Bạn add đại vào file Event hiện tại của sv cậu cũng đc . Rồi thêm mấy dòng tương tác cho hợp lý là đc

sako1906

31-08-10, 08:39 AM

Add thêm vào dòng gì cậu có thể hướng dẫn chi tiết đc ko còn mấy file .pak để làm gì thế

kemdenny

31-08-10, 08:47 AM

Đây là toàn bộ event của tui , bạn tham khảo . Còn mấy file pak bạn chép vô mục data để thấy hình item:
code:

--------Author: ohishu-----
-----date 2010-8-3-----
---Event: Linh Thao, Bao Ruong, MTBD , hoang kim thach , che tao thuyen rong
Include("\\script\\Global\\sourcejx49.lua (file://\\script\\Global\\sourcejx49.lua)");

baodo1 = 21
baodo2 = 22
baodo3 = 23
baodo4 = 24
baodo5 = 25
baodo6 = 26
baodo7 = 27
baodo8 = 28
baodo9 = 29
baodo10 = 30
baodo11 = 31
baodo12 = 32
baodovip = 33
hoason = 11
---=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
baoruong = 83
vip = 151
sat = 217
dong = 218
bac = 219
---=-=-=-=-=-=-=-=-=-
linhthao1 = 220
linhthao2 = 221
linhthao3 = 222
linhthao4 = 223
linhthao5 = 224
linhthao6 = 225
---=-=-=-=-=-=-=-=-=-=-=-=-=-=======-=-=====================-=-=-=-=-=
tuphithuy = 115
lamphithuy = 116
lucphithuy = 117
lamkhoangthach = 118
tukhoangthach = 119
hoangkimthach = 114
---=-=-=-=-=-=-----------------=-=-=-=-=-----====================-------------=========
thuyenrong = 183
thuyenrong1 = 184
thuyenrong2 = 185
thuyenrong3 = 186
thuyenrong4 = 187
thuyenrong5 = 188
thuyenrong6 = 189

function mattangbaodo()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi Muon Tham Gia Event MTBD ?",
"Doi Mat Tang Bao Do/mattang",
"Ghep Mat Tang Bao Do/ghep",
"Su Dung Mat Tang Bao Do V.I.P/sudung",
"Thoat./Exit"});
end;
function mattang()
SayEx({"<color=cyan>Bao Ke<color>: Su Dung MTBD Se Nhan Duoc EXP !",
"MTBD 1/mtbd1",
"MTBD 2/mtbd2",
"MTBD 3/mtbd3",
"MTBD 4/mtbd4",
"MTBD 5/mtbd5",
"MTBD 6/mtbd6",
"MTBD 7/mtbd7",
"MTBD 8/mtbd8",
"MTBD 9/mtbd9",
"MTBD 10/mtbd10",
"MTBD 11/mtbd11",
"MTBD 12/mtbd12",
"Thoat./Exit"});
end;
function ghep()
SayEx({"<color=cyan>Bao Ke<color>: Su Dung 2 Mat Tang Bao Do Cung Loai De Thang Cap Bao Do ! Hoac Su Dung 12 Tam De Ghep V.I.P !",

"MTBD 1-->2/thangcap2",
"MTBD 2-->3/thangcap3",
"MTBD 3-->4/thangcap4",
"MTBD 4-->5/thangcap5",
"MTBD 5-->6/thangcap6",
"MTBD 6-->7/thangcap7",
"MTBD 7-->8/thangcap8",
"MTBD 8-->9/thangcap9",
"MTBD 9-->10/thangcap10",
"MTBD 10-->11/thangcap11",
"MTBD 11-->12/thangcap12",
"Ghep V.I.P /ghepvip",
"Thoat./Exit"});
end;
function sudung()
SayEx({"<color=cyan>Bao Ke<color>: Su Dung MTBT V.I.P Se Nhan Duoc 130 Van KN Va Ngau Nhien Nhan Duoc Hoa Son Tuyet Lien !",
"Su Dung MTBD VIP/mtbdvip",
"Thoat./Exit"});
end;

---================================================== ====================================
---==================================DOI MAT TANG BAO DO===============================
---================================================== ================================================== ====
function mtbd1()
if (GetItemCount(baodo1) >= 1) then
DelItem(baodo1)
for i=1,10 do AddOwnExp(200000) end
Msg2Player("Ban nhan duoc 200K EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd2()
if (GetItemCount(baodo2) >= 1) then
DelItem(baodo2)
for i=1,10 do AddOwnExp(400000) end
Msg2Player("Ban nhan duoc 400K EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd3()
if (GetItemCount(baodo3) >= 1) then
DelItem(baodo3)
for i=1,10 do AddOwnExp(600000) end
Msg2Player("Ban nhan duoc 600K EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd4()
if (GetItemCount(baodo4) >= 1) then
DelItem(baodo4)
for i=1,10 do AddOwnExp(800000) end
Msg2Player("Ban nhan duoc 800K EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd5()
if (GetItemCount(baodo5) >= 1) then
DelItem(baodo5)
for i=1,10 do AddOwnExp(900000) end
Msg2Player("Ban nhan duoc 900K EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd6()
if (GetItemCount(baodo6) >= 1) then
DelItem(baodo6)
for i=1,10 do AddOwnExp(1110000) end
Msg2Player("Ban nhan duoc 1 Trieu 100k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd7()
if (GetItemCount(baodo7) >= 1) then
DelItem(baodo7)
for i=1,10 do AddOwnExp(1300000) end
Msg2Player("Ban nhan duoc 1 Trieu 300k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd8()
if (GetItemCount(baodo8) >= 1) then
DelItem(baodo8)
for i=1,10 do AddOwnExp(1700000) end
Msg2Player("Ban nhan duoc 1 Trieu 700k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd9()
if (GetItemCount(baodo9) >= 1) then
DelItem(baodo9)
for i=1,10 do AddOwnExp(1800000) end
Msg2Player("Ban nhan duoc 1 Trieu 800k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd10()
if (GetItemCount(baodo10) >= 1) then
DelItem(baodo10)
for i=1,10 do AddOwnExp(1900000) end
Msg2Player("Ban nhan duoc 1 Trieu 900k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd11()
if (GetItemCount(baodo11) >= 1) then
DelItem(baodo11)
for i=1,10 do AddOwnExp(2000000) end
Msg2Player("Ban nhan duoc 2 Trieu EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
function mtbd12()
if (GetItemCount(baodo12) >= 1) then
DelItem(baodo12)
for i=1,10 do AddOwnExp(2500000) end
Msg2Player("Ban nhan duoc 2 trieu 500k EXP")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Doi A` Nhox !")
end
end;
---------------------------====================THANG CAP MAT TANG BAO DO================================================ =
---------------------------================================================== =============================================

function thangcap2()
if (GetItemCount(baodo1) >= 2) then
AddEventItem(baodo2)
DelItem(baodo1)
DelItem(baodo1)
Msg2Player("Ban nhan duoc MTBD 2.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap3()
if (GetItemCount(baodo2) >= 2) then
AddEventItem(baodo3)
DelItem(baodo2)
DelItem(baodo2)
Msg2Player("Ban nhan duoc MTBD 3.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap4()
if (GetItemCount(baodo3) >= 2) then
AddEventItem(baodo4)
DelItem(baodo3)
DelItem(baodo3)
Msg2Player("Ban nhan duoc MTBD 4.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap5()
if (GetItemCount(baodo4) >= 2) then
AddEventItem(baodo5)
DelItem(baodo4)
DelItem(baodo4)
Msg2Player("Ban nhan duoc MTBD 5.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap6()
if (GetItemCount(baodo5) >= 2) then
AddEventItem(baodo6)
DelItem(baodo5)
DelItem(baodo5)
Msg2Player("Ban nhan duoc MTBD 6.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap7()
if (GetItemCount(baodo6) >= 2) then
AddEventItem(baodo7)
DelItem(baodo6)
DelItem(baodo6)
Msg2Player("Ban nhan duoc MTBD 7.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap7()
if (GetItemCount(baodo7) >= 2) then
AddEventItem(baodo8)
DelItem(baodo7)
DelItem(baodo7)
Msg2Player("Ban nhan duoc MTBD 8.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap8()
if (GetItemCount(baodo8) >= 2) then
AddEventItem(baodo9)
DelItem(baodo8)
DelItem(baodo8)
Msg2Player("Ban nhan duoc MTBD 9.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap9()
if (GetItemCount(baodo9) >= 2) then
AddEventItem(baodo10)
DelItem(baodo9)
DelItem(baodo9)
Msg2Player("Ban nhan duoc MTBD 10.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap10()
if (GetItemCount(baodo10) >= 2) then
AddEventItem(baodo11)
DelItem(baodo10)
DelItem(baodo10)
Msg2Player("Ban nhan duoc MTBD 11.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function thangcap11()
if (GetItemCount(baodo11) >= 2) then
AddEventItem(baodo12)
DelItem(baodo11)
DelItem(baodo11)
Msg2Player("Ban nhan duoc MTBD 12.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
function ghepvip()
if (GetItemCount(baodo1) >= 1)
and (GetItemCount(baodo2) >= 1)
and (GetItemCount(baodo3) >= 1)
and (GetItemCount(baodo4) >= 1)
and (GetItemCount(baodo5) >= 1)
and (GetItemCount(baodo6) >= 1)
and (GetItemCount(baodo7) >= 1)
and (GetItemCount(baodo8) >= 1)
and (GetItemCount(baodo9) >= 1)
and (GetItemCount(baodo10) >= 1)
and (GetItemCount(baodo11) >= 1)
and (GetItemCount(baodo12) >= 1) then
AddEventItem(baodovip)
DelItem(baodo12)
DelItem(baodo11)
DelItem(baodo10)
DelItem(baodo9)
DelItem(baodo8)
DelItem(baodo7)
DelItem(baodo6)
DelItem(baodo5)
DelItem(baodo4)
DelItem(baodo3)
DelItem(baodo2)
DelItem(baodo1)
Msg2Player("Ban nhan duoc tam MTBT Hoan Chinh.")
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Ghep A` Nhox !")
end
end;
---================================================== ================================================== ===============
---===============================================SU DUNG MAT TANG BAO DO===========================================
---================================================== ================================================== ===============

function mtbdvip()
if (GetItemCount(baodovip) >= 1) then
i = random(1,10)
if i < 8 then
DelItem(baodovip)
for i=1,10 do AddOwnExp(1300000) end
Msg2Player("Ban nhan duoc 13 Trieu EXP.")
else
DelItem(baodovip)
for i=1,10 do AddOwnExp(1300000) end
AddEventItem(hoason)
Msg2Player("Ban nhan duoc 13 Trieu EXP.")
Msg2Player("Ban may man duoc 1 THBT !")
end
else
Talk(1,"","Nguoi Khong Co Bao Do Ma Muon Su Dung A` Nhox !")
end
end;
-----================================================== ================================================== =========================================
-----=============================The Script Than Bi Bao Ruong ================================================== ===============================
-----==================================Date: 2010-3-8================================================= =============================================
function Thanbi()
if GetItemCount(baoruong) >= 1 then
SayEx({"<color=cyan>Bao Ke<color>: Hay Chon Chia Khoa De Mo Bao Ruong ! ",
"Chia Khoa Dong/chiakhoadong",
"Chia Khoa Sat/chiakhoasat",
"Chia Khoa Bac/chiakhoabac",
"Chia Khoa V.I.P/chiakhoavip",
"Thoat./Exit"});
else
Talk(1,"","Ban Khong Co Bao Ruong Trong Nguoi`!")
end
end;

----================================================== ================================================== =====================
----================================================== CHIA KHOA DONG =================================================
----================================================== ================================================== =====================

function chiakhoadong()
i = random(1,4)
if i == 1
and GetItemCount(dong) >= 1 then
DelItem(baoruong)
DelItem(dong)
z = random(1,10)
if z < 4 then
AddEventItem(58)
Msg2Player("Ban Nhan Duoc HT 4 !")
elseif z > 4 then
AddEventItem(59)
Msg2Player("Ban Nhan Duoc HT 5 !")
elseif z == 4 then
Earn(100000000)
Msg2Player("Ban Nhan Duoc 10kv !")
end
elseif i == 2
and GetItemCount(dong) >= 1 then
DelItem(baoruong)
DelItem(dong)
z = random(1,10)
if z < 4 then
AddEventItem(60)
Msg2Player("Ban Nhan Duoc HT 6 !")
elseif z > 4 then
AddEventItem(61)
Msg2Player("Ban Nhan Duoc HT 7 !")
elseif z == 4 then
AddEventItem(hoason)
Msg2Player("Ban Nhan Duoc 1 THBT !")
end
elseif i == 3
and GetItemCount(dong) >= 1 then
DelItem(baoruong)
DelItem(dong)
z = random(1,10)
if z < 4 then
AddEventItem(56)
Msg2Player("Ban Nhan Duoc HT 2 !")
elseif z > 4 then
AddEventItem(57)
Msg2Player("Ban Nhan Duoc HT 3 !")
elseif z == 4 then
Earn(20000000)
Msg2Player("Ban Nhan Duoc 2kv !")
end
elseif i == 4
and GetItemCount(dong) >= 1 then
DelItem(baoruong)
DelItem(dong)
z = random(1,10)
if z < 4 then
AddEventItem(62)
Msg2Player("Ban Nhan Duoc HT 8 !")
elseif z > 4 then
AddEventItem(55)
Msg2Player("Ban Nhan Duoc HT 1 !")
elseif z == 4 then
AddEventItem(85)
Msg2Player("Ban Nhan Duoc VLMT !")
end
else
Say(" Nguoi Quen Dem Theo Chia Khoa A` !",0);
end
end;
----================================================== ================================================== =====================
----================================================== CHIA KHOA SAT =================================================
----================================================== ================================================== =====================
function chiakhoasat()
i = random(1,5)
if i == 1
and GetItemCount(sat) >= 1 then
DelItem(baoruong)
DelItem(sat)
z = random(1,10)
if z < 4 then
AddEventItem(58)
Msg2Player("Ban Nhan Duoc HT 4 !")
elseif z > 4 then
AddEventItem(59)
Msg2Player("Ban Nhan Duoc HT 5 !")
elseif z == 4 then
Earn(10000000)
Msg2Player("Ban Nhan Duoc 1kv !")
end
elseif i == 2
and GetItemCount(sat) >= 1 then
DelItem(baoruong)
DelItem(sat)
z = random(1,10)
if z < 4 then
AddEventItem(60)
Msg2Player("Ban Nhan Duoc HT 6 !")
elseif z > 4 then
AddEventItem(61)
Msg2Player("Ban Nhan Duoc HT 7 !")
elseif z == 4 then
Earn(150000000)
Msg2Player("Ban Nhan Duoc 15kv !")
end
elseif i == 3
and GetItemCount(sat) >= 1 then
DelItem(baoruong)
DelItem(sat)
z = random(1,10)
if z < 4 then
AddEventItem(62)
Msg2Player("Ban Nhan Duoc HT 8 !")
elseif z > 4 then
AddEventItem(58)
Msg2Player("Ban Nhan Duoc HT 4 !")
elseif z == 4 then
AddEventItem(0)
Msg2Player("Ban Nhan Duoc TTK !")
end
elseif i == 4
and GetItemCount(sat) >= 1 then
DelItem(baoruong)
DelItem(sat)
z = random(1,10)
if z < 4 then
AddEventItem(63)
Msg2Player("Ban Nhan Duoc HT 9 !")
elseif z > 4 then
AddEventItem(61)
Msg2Player("Ban Nhan Duoc HT 7 !")
elseif z == 4 then
AddEventItem(hoason)
Msg2Player("Ban Nhan Duoc 1 THBT !")
end
elseif i == 5
and GetItemCount(sat) >= 1 then
DelItem(baoruong)
DelItem(sat)
z = random(1,10)
if z < 4 then
AddEventItem(55)
Msg2Player("Ban Nhan Duoc HT 1 !")
elseif z > 4 then
AddEventItem(57)
Msg2Player("Ban Nhan Duoc HT 3 !")
elseif z == 4 then
AddEventItem(11)
Msg2Player("Ban Nhan Duoc THBT !")
end
else
Say(" Nguoi Quen Dem Theo Chia Khoa A` !",0);
end
end;
----================================================== ================================================== =====================
----================================================== CHIA KHOA BAC =================================================
----================================================== ================================================== =====================
function chiakhoabac()
i = random(1,3)
if i == 1
and GetItemCount(bac) >= 1 then
DelItem(baoruong)
DelItem(bac)
z = random(1,10)
if z < 4 then
AddEventItem(62)
Msg2Player("Ban Nhan Duoc HT 8 !")
elseif z > 4 then
AddEventItem(63)
Msg2Player("Ban Nhan Duoc HT 9 !")
elseif z == 4 then
Earn(100000000)
Msg2Player("Ban Nhan Duoc 10kv !")
end
elseif i == 2
and GetItemCount(bac) >= 1 then
DelItem(baoruong)
DelItem(bac)
z = random(1,10)
if z < 4 then
AddEventItem(56)
Msg2Player("Ban Nhan Duoc HT 2 !")
elseif z > 4 then
AddEventItem(63)
Msg2Player("Ban Nhan Duoc HT 9 !")
elseif z == 4 then
Earn(1000000)
Msg2Player("Ban Nhan Duoc 100v !")
end
elseif i == 3
and GetItemCount(bac) >= 1 then
DelItem(baoruong)
DelItem(bac)
z = random(1,10)
if z < 4 then
AddEventItem(0)
Msg2Player("Ban Nhan Duoc TTK !")
elseif z > 4 then
AddEventItem(62)
Msg2Player("Ban Nhan Duoc HT 8 !")
elseif z == 4 then
AddEventItem(hoason)
Msg2Player("Ban Nhan Duoc 1 THBT !")
end
else
Say(" Nguoi Quen Dem Theo Chia Khoa A` !",0);
end
end;
----================================================== ================================================== =====================
----================================================== CHIA KHOA VIP =================================================
----================================================== ================================================== =====================
function chiakhoavip()
i = random(1,3)
if i == 1
and GetItemCount(vip) >= 1 then
DelItem(baoruong)
DelItem(vip)
z = random(1,10)
if z < 4 then
AddEventItem(64)
Msg2Player("Ban Nhan Duoc HT 10 !")
elseif z > 4 then
AddEventItem(63)
Msg2Player("Ban Nhan Duoc HT 9 !")
elseif z == 4 then
Earn(20000000)
Msg2Player("Ban Nhan Duoc 2kv !")
end
elseif i == 2
and GetItemCount(vip) >= 1 then
DelItem(baoruong)
DelItem(vip)
z = random(1,10)
if z < 4 then
AddEventItem()
Msg2Player("Ban Nhan Duoc HT 2 !")
elseif z > 4 then
AddEventItem(63)
Msg2Player("Ban Nhan Duoc HT 9 !")
elseif z == 4 then
Earn(50000000)
Msg2Player("Ban Nhan Duoc 5kv !")
end
elseif i == 3
and GetItemCount(bac) >= 1 then
DelItem(baoruong)
DelItem(vip)
z = random(1,10)
if z < 4 then
AddEventItem(0)
AddEventItem(85)
Msg2Player("Ban Nhan Duoc VLMT + TTK !")
elseif z > 4 then
AddEventItem(62)
Msg2Player("Ban Nhan Duoc HT 8 !")
elseif z == 4 then
AddEventItem(hoason)
AddEventItem(11)
Msg2Player("Ban Nhan Duoc 2 THBT !")
end
else
Say(" Nguoi Quen Dem Theo Chia Khoa A` !",0);
end
end;
----================================================== ================================================== =====================
----================================================== 6 Loai Linh Thao Cung Dinh` =================================================
----================================================== ================================================== =====================
function linhthao()
if GetCash() >= 500000 then
SayEx({"<color=cyan>Bao Ke<color>: Su Dung 6 Loai Thao Moc Se Nhan Duoc 50 Trieu EXP Va Ngau Nhien Nhan Duoc 10kv !",
"Ok! Su Dung/sudunglinhthao",
"Thoat./Exit"});
else
Say(" Can 50van De Su Dung !",0);
end
end;
function sudunglinhthao()
z = random(1,4)
if z > 1 then
if GetItemCount(linhthao1) >= 1
and GetItemCount(linhthao2) >= 1
and GetItemCount(linhthao3) >= 1
and GetItemCount(linhthao4) >= 1
and GetItemCount(linhthao5) >= 1
and GetItemCount(linhthao6) >= 1 then
Pay(500000)
DelItem(linhthao1)
DelItem(linhthao2)
DelItem(linhthao3)
DelItem(linhthao4)
DelItem(linhthao5)
DelItem(linhthao6)
for i=1,10 do AddOwnExp(5000000) end
Msg2Player("Ban Nhan Duoc 50 Trieu EXP !")
else
Say(" Nguoi Quen Dem Theo 6 Loai Thao Moc Cung Dinh` !",0);
end
elseif z == 1 then
if GetItemCount(linhthao1) >= 1
and GetItemCount(linhthao2) >= 1
and GetItemCount(linhthao3) >= 1
and GetItemCount(linhthao4) >= 1
and GetItemCount(linhthao5) >= 1
and GetItemCount(linhthao6) >= 1 then
Pay(500000)
DelItem(linhthao1)
DelItem(linhthao2)
DelItem(linhthao3)
DelItem(linhthao4)
DelItem(linhthao5)
DelItem(linhthao6)
for i=1,10 do AddOwnExp(5000000) end
Earn(100000000)
Msg2Player("Ban Nhan May Man Nhan Duoc 10kv")
Msg2Player("Ban Nhan Duoc 50 Trieu EXP !")
else
Say(" Nguoi Quen Dem Theo 6 Loai Thao Moc Cung Dinh` !",0);
end
end
end;

----================================================== ================================================== =====================
----================================================== HOANG KIM THACH =================================================
----================================================== ================================================== =====================
function kimthach()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi Muon Tham Gia Event Hoang Kim Thach ?",
"Ghep Hoang Kim Thach/ghep",
"Su Dung Hoang Kim Thach/sudung",
"Chi Tiet Cach Ghep/chitiet",
"Thoat./Exit"});
end;
function chitiet()
Talk(1,"","Can 1 Lam Phi Thuy + 1 Tu Phi Thuy + 1 Luc Phi Thuy + 1 Tu Khoang Thach + 1 Lam Khoang Thach De Ghep Hoang Kim Thach !")
end;
function ghep()
SayEx({"<color=cyan>Phan Tang Event<color>: Nguoi Da Dem Du Nguyen Lieu ? Sac Xuat Thanh Cong La 75% !",
"OK! Ta Ghep/ok",
"Thoat./Exit"});
end;
function ok()
z = random(1,4)
if z > 1 then
if GetItemCount(tuphithuy) >= 1 and GetItemCount(lamphithuy) >= 1
and GetItemCount(lucphithuy) >= 1 and GetItemCount(lamkhoangthach) >= 1 and GetItemCount(tukhoangthach) >= 1 then
DelItem(lamkhoangthach)
DelItem(tukhoangthach)
DelItem(lamphithuy)
DelItem(tuphithuy)
DelItem(lucphithuy)
AddEventItem(hoangkimthach)
Msg2Player("Ban may man duoc 1 Hoang Kim Thach !")
else
Talk(1,"","Nguoi Khong Co Nguyen Lieu Ma Muon Ep A` Nhox !")
end
elseif z == 1 then
if GetItemCount(tuphithuy) >= 1 and GetItemCount(lamphithuy) >= 1
and GetItemCount(lucphithuy) >= 1 and GetItemCount(lamkhoangthach) >= 1 and GetItemCount(tukhoangthach) >= 1 then
DelItem(lamkhoangthach)
DelItem(tukhoangthach)
DelItem(lamphithuy)
DelItem(tuphithuy)
DelItem(lucphithuy)
Msg2Player("Ghep That Bai !")
else
Talk(1,"","Nguoi Khong Co Nguyen Lieu Ma Muon Ep A` Nhox !")
end
end
end;
function sudung()
SayEx({"<color=cyan>Phan Tang Event<color>: Khi Su Dung Se Ngau Nhien Nhan Duoc Vat Pham V.I.P !",
"OK! Ta Su Dung/ok1",
"Thoat./Exit"});
end;
function ok1()
if GetItemCount(hoangkimthach) >= 1 then
DelItem(hoangkimthach)
z = random(1,10)
if z == 1 then
a = random(1,10)
if a == 1 then
AddEventItem(65)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 2 then
AddEventItem(66)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 3 then
AddEventItem(67)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 4 then
AddEventItem(68)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 5 then
AddEventItem(69)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 6 then
AddEventItem(70)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 7 then
AddEventItem(71)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 8 then
AddEventItem(72)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 9 then
AddEventItem(73)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
elseif a == 10 then
AddEventItem(74)
Msg2Player("Nhan Duoc Tuyet Ky 12x !")
end
elseif z > 1 then
a = random(1,10)
b = GetTask(26)
c = GetTask(68)
if a == 1 then
AddEventItem(3)
Msg2Player("Nhan Duoc 1 Phuc Duyen Tieu !")
elseif a == 2 then
AddEventItem(6)
Msg2Player("Nhan Duoc 1 Tien Dong !")
elseif a == 3 then
AddEventItem(4)
Msg2Player("Nhan duoc 1 Phuc Duyen Trung !")
elseif a == 4 then
AddEventItem(5)
Msg2Player("Nhan duoc 1 Phuc Duyen Dai !")
elseif a == 5 then
SetTask(26,b +50)
Msg2Player("Nhan duoc 50 XU !")
elseif a == 6 then
SetTask(68,c +50)
Msg2Player("Nhan duoc 50 Dao Hanh !")
elseif a == 7 then
AddEventItem(8)
Msg2Player("Nhan duoc 1 Lam Thuy Tinh !")
elseif a == 8 then
AddEventItem(9)
Msg2Player("Nhan duoc 1 Tu Thuy Tinh !")
elseif a == 9 then
AddEventItem(10)
Msg2Player("Nhan duoc 1 Luc Thuy Tinh !")
elseif a == 10 then
AddEventItem(11)
Msg2Player("Nhan duoc 1 THBT !")
end
end
else
Talk(1,"","Nguoi Khong Co Hoang Kim Thach Trong Nguoi !")
end
end;
---================================================== ================================================== ================================================== ================================================== =================
---============================================Event Che Tao Thuyen Rong San Poss============================================== ================================================== =========================================
---================================================De v By Ohishu 2010-14-5================================================= ================================================== ================================================== ==========

function thuyenrong()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi Muon Tham Gia Event Che Tao Thuyen Rong ! De Len Thuyen San Boss ?",
"Che Tao Thuyen/ghepthuyenrong",
"Huong Dan Chi Tiet/chitietthuyenrong",
"Thoat./Exit"});
end;
function chitietthuyenrong()
Talk(1,"","1 Duoi Thuyen + 1 Than Thuyen + 1 Khoan Thuyen + 1 Dau Thuyen + 1 Mai Cheo + 1 Banh Lai = 1 Thuyen Rong ! Dem Thuyen Rong Gap Xa Phu San Boss....")
end;
function ghepthuyenrong()
if GetItemCount(thuyenrong1) >= 1 and GetItemCount(thuyenrong2) >= 1
and GetItemCount(thuyenrong3) >= 1 and GetItemCount(thuyenrong4) >= 1 and GetItemCount(thuyenrong5) >= 1 and GetItemCount(thuyenrong6) then
DelItem(thuyenrong1)
DelItem(thuyenrong2)
DelItem(thuyenrong3)
DelItem(thuyenrong4)
DelItem(thuyenrong5)
DelItem(thuyenrong6)
AddEventItem(thuyenrong)
Msg2Player("Ban Nhan Duoc 1 Thuyen Rong !")
else
Msg2Player("Xin Kiem Tra Lai Cac Bo Phan Cua Thuyen Rong ....")
end
end;

---================================================== ================================================== ================================================== ================================================== =================
---============================================Event tum lum=============================================== ================================================== ========================================
---================================================De v By Kemdenny 2010-14-5================================================= ================================================== ================================================== ==========
function tumlum()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi muon tham gia event tum lum ah ?",
"Ep long den/eplogden",
"Su dung long den/longden",
"Ghep cay tinh nhan/ghepcay",
"Event WordCup/wordcup",
"Su dung cay tinh nhan/caytinhnhan",
"Thoat./Exit"});
end;
function eplogden()
if GetItemCount(200) >= 5 then
for i=1,5 do DelItem(200) end
AddItemEvent(201)
Msg2Player("Ban nhan duoc long den keo quan")
else
Msg2Player("Ko du nguyen lieu can thiet")
end
end;
function longden()
if GetItemCount(201) >= 1 then
DelItem(201)
AddOwnExp(2500000)
Msg2Player("Ban nhan dc 2,5 chai EXP tu long den")
else
Msg2Player("Ko co long den")
end
end;
function ghepcay()
if GetItemCount(191) >= 5 then
DelItem(191)
AddItemEvent(192)
Msg2Player("Ban nhan duoc cay tinh nhan")
else
Msg2Player("Ban ko du nguyen lieu")
end
end;

function caytinhnhan()
if GetItemCount(192) >= 1 then
DelItem(192)
AddOwnExp(6500000)
Msg2Player("Nhan duoc 6,5 chai EXP tu cay tinh nhan")
else
Msg2Player("Ko co cay tinh nhan")
end
end;
function wordcup()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi muon tham gia event WordCup ah ?",
"Doi tui nguyen lieu/doitui",
"Ep bong da/epbongda",
"Ep bong HK/epboghk",
"Ep bong BK/epbogbk",
"Bo Huyen Don/bohuyendon",
"Sung dung bong/xaibong",
"Thoat./Exit"});
end;
function doitui()
if GetItemCount(235) >= 1 then
DelItem(235)
AddEventItem(236)
AddEventItem(237)
Msg2Player("Ban nhan dc nguyen liep ep bong")
else
Msg2Player("Ban ko co tui nguyen lieu")
end
end;
function epbongda()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 then
DelItem(236)
DelItem(237)
AddEventItem(229)
Msg2Player("Ban nhan dc bong da")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function epboghk()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 and GetItemCount(230) >= 1 then
DelItem(236)
DelItem(237)
DelItem(230)
AddEventItem(231)
Msg2Player("Ban nhan dc bong HK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function epbogbk()
if GetItemCount(236) >= 1 and GetItemCount(237) >= 1 and GetItemCount(232) >= 1 then
DelItem(236)
DelItem(237)
DelItem(232)
AddEventItem(233)
Msg2Player("Ban nhan dc bong BK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
end;
function xaibong()
SayEx({"<color=cyan>Bao Ke<color>: Nguoi muon tham gia xai loai bong WordCup nao ?",
"Bong da/xaida",
"Bong HK/xaihk",
"Bong BK/xaibk",
"Thoat./Exit"});
end;
function xaida()
if GetItemCount(229) >= 1 then
DelItem(229)
AddOwnExp(1000000)
Msg2Player("Ban nhan dc 1 chai EXP")
else
Msg2Player("Ban ko co bong da")
end
end;
function xaihk()
if GetItemCount(231) >= 1 then
DelItem(231)
AddOwnExp(5000000)
Msg2Player("Ban nhan dc 5 chai EXP")
else
Msg2Player("Ban ko co bong HK")
end
end;
function xaibk()
if GetItemCount(233) >= 1 then
DelItem(233)
AddOwnExp(10000000)
Msg2Player("Ban nhan dc 10 chai EXP")
else
Msg2Player("Ban ko co bong BK")
end
end;
function bohuyetdon()
if GetItemCount(234) >= 1 then
DelItem(234)
AddOwnExp(25000000)
Msg2Player("Ban nhan dc 25 chai EXP")
else
Msg2Player("Ban ko co bo huyet don")
end
end;

đó

sako1906

31-08-10, 04:56 PM

Cậu cho tớ cái nick yahoo với tớ còn vài điều muốn hỏi thanks cậu về phần trên :">

sitachi

02-10-10, 06:38 AM

Script bị lỗi à ? add vào 1 NPC khi click nó báo lỗi ? là sao ? có ai chỉnh sữa lại dùm kô ?

jxvietnam

02-10-10, 07:25 AM

chắc không hợp questkey nên lỗi :D

sitachi

02-10-10, 03:10 PM

Quest key hình ảnh vẫn nhìn thấy được ... khi add NPC click vào thì GS báo lỗi Scripts

sitachi

05-10-10, 12:42 AM

chủ topic vào trả lời dùm coi ! sai script rùi à ? sao click NPC ko có tác dụng?
:S

Čħīċķėň

05-10-10, 06:19 PM

code dài dòng rứa ko khuyến khích theo lối nì :)

kemdenny

05-10-10, 08:42 PM

Thì đây chỉ là đoạn code thôi...Các ông trích ra rồi add vào luôn cái event hiện tại của ông cũng đc...Cần gì add vào NPC...?? Bộ event của các ông ko có NPC hã...?? Add vào rồi thêm vài dòng vô là xong......
*Mấy ông bạn hỏi câu này nên học lại Script đi......Ko phải cái gì share cũng hoàn thiện và chép y nguyên vô....!!

À nhân tiện chickennood2 cho hỏi
<code dài dòng rứa ko khuyến khích theo lối nì :)> ===>> Là sao ?? 8->

thaihoa91

05-10-10, 09:59 PM

Theo mình thì code viết theo kỉu mảng sẽ ngắn hơn :D Ta set 1 mảng và dùng mảng đó vừa kiểm tra Item cần có rùi nếu có thì Del item ngay đó lun ! Như thế kiểm tra và Del sẽ dùng 1 mảng để làm, như vậy code ngắn hơn :D

Čħīċķėň

05-10-10, 11:54 PM

function wordcup()
Say("<color=cyan>Bao Ke<color>: Nguoi muon tham gia event WordCup ah ?",7,"Doi tui nguyen lieu/worldcup","Ep bong da/worldcup","Ep bong HK/worldcup","Ep bong BK/worldcup","Bo Huyen Don/worldcup","Sung dung bong/worldcup","Thoat./Exit");
end;
function worldcup(sel)
if sel == 0 then
if HaveItem(235) ~= -1 then
DelItem(235)
AddEventItem(236)
AddEventItem(237)
Msg2Player("Ban nhan dc nguyen liep ep bong")
else
Msg2Player("Ban ko co tui nguyen lieu")
end
elseif sel == 1 then
if HaveItem(236) ~= -1 and HaveItem(237) ~= -1 then
DelItem(236)
DelItem(237)
AddEventItem(229)
Msg2Player("Ban nhan dc bong da")
else
Msg2Player("Ban ko co du nguyen lieu")
end
elseif sel == 2 then
if HaveItem(236) ~= 1 and HaveItem(237) ~= -1 and HaveItem(230) ~= -1 then
DelItem(236)
DelItem(237)
DelItem(230)
AddEventItem(231)
Msg2Player("Ban nhan dc bong HK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
elseif sel == 3 then
if HaveItem(236) ~= -1 and HaveItem(237) ~= -1 and HaveItem(232) ~= -1 then
DelItem(236)
DelItem(237)
DelItem(232)
AddEventItem(233)
Msg2Player("Ban nhan dc bong BK")
else
Msg2Player("Ban ko co du nguyen lieu")
end
elseif sel == 4 then
if HaveItem(234) ~= -1 then
DelItem(234)
AddOwnExp(25000000)
Msg2Player("Ban nhan dc 25 chai EXP")
else
Msg2Player("Ban ko co bo huyet don")
end
end
end;
function xaibong()
Say("<color=cyan>Bao Ke<color>: Nguoi muon tham gia xai loai bong WordCup nao ?",4,"Bong da/xaida","Bong HK/xaida","Bong BK/xaida","Thoat./Exit");
end;
function xaida(sel)
if sel == 0 then
if HaveItem(229) ~= -1 then
DelItem(229)
AddOwnExp(1000000)
Msg2Player("Ban nhan dc 1 chai EXP")
else
Msg2Player("Ban ko co bong da")
end
elseif sel == 1 then
if HaveItem(231) ~= -1 then
DelItem(231)
AddOwnExp(5000000)
Msg2Player("Ban nhan dc 5 chai EXP")
else
Msg2Player("Ban ko co bong HK")
end
elseif sel == 2 then
if HaveItem(233) ~= -1 then
DelItem(233)
AddOwnExp(10000000)
Msg2Player("Ban nhan dc 10 chai EXP")
else
Msg2Player("Ban ko co bong BK")
end
end
end;
function Exit()
end;
Sau 5p edit lại code của cậu, chắc có sai đấy :)

kemdenny

06-10-10, 09:41 AM

À hỉu rồi...do mới đây tui ko hiểu 1 số hàm như là <if sel == 1 then> Hoặc các giá trị random nên mới viết theo lối quá đơn giản và dài dòng

Čħīċķėň

06-10-10, 08:20 PM

cấu trúc này chỉ đối vơi hàm Say or SayEx :
vd

Say("...",5,".1../sat",".2../sat",".3../sat",".4../sat","Thoat/exit");Như thế thì ta chỉ cần 1 function sat(sel) để thực hiện các lệnh của Say

vd: người chơi chọn .1../sat thì hàm Say sẽ gọi function sat(0) với giá trị bắt đầu là 0 (còn nếu dùng cấu trúc SayEx thì giá trị bắt đầu sẽ là 1)
=>dựa vào cấu trúc đó áp dụng kết hợp với if sel == ... then thì hiệu quả sẽ rất cao dỡ tốn thời gian, nhân lực và quân sự ;;)

*sel : có nghĩa là select