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
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;
đó
Čħīċķėň
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 :)
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.