Share Event WordCup..!!
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 1 của 2 1 2 CuốiCuối
Kết quả 1 đến 10 của 18
  1. 30-08-10, 07:42 PM #1
    kemdenny
    kemdenny vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Jul 2009
    Bài viết
    285
    Thanks
    115
    Thanked 25 Times in 13 Posts

    Icon10 Share Event WordCup..!!

    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é . 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...!!:
    [Only registered and activated users can see links. ]
    Thấy hay thì thank nhé....!! Có sai sót các pro sửa dùm
    Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  2. 30-08-10, 08:03 PM #2
    zonjkut3
    zonjkut3 vẫn chưa có mặt trong diễn đàn
    dev jx hay lấy vợ ta? zonjkut3's Avatar
    Ngày tham gia
    Jun 2010
    Đang ở
    bãi tha ma
    Bài viết
    1,104
    Thanks
    3
    Thanked 38 Times in 19 Posts
    Gửi tin nhắn qua Yahoo! đến zonjkut3

    Ðề: Share Event WordCup..!!

    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
    [Only registered and activated users can see links. ]
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  3. 30-08-10, 08:24 PM #3
    kemdenny
    kemdenny vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Jul 2009
    Bài viết
    285
    Thanks
    115
    Thanked 25 Times in 13 Posts

    Ðề: Share Event WordCup..!!

    Un của bác Rockmanfbi sv GHTK online chứ đâu
    Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  4. 30-08-10, 08:49 PM #4
    sako1906
    sako1906 vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Aug 2010
    Bài viết
    15
    Thanks
    4
    Thanked 0 Times in 0 Posts

    Ðề: Share Event WordCup..!!

    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
    Khách viếng thăm hãy cùng sako1906 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  5. 31-08-10, 08:15 AM #5
    kemdenny
    kemdenny vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Jul 2009
    Bài viết
    285
    Thanks
    115
    Thanked 25 Times in 13 Posts

    Ðề: Share Event WordCup..!!

    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
    Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  6. 31-08-10, 08:39 AM #6
    sako1906
    sako1906 vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Aug 2010
    Bài viết
    15
    Thanks
    4
    Thanked 0 Times in 0 Posts

    Ðề: Share Event WordCup..!!

    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ế
    Khách viếng thăm hãy cùng sako1906 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  7. 31-08-10, 08:47 AM #7
    kemdenny
    kemdenny vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Jul 2009
    Bài viết
    285
    Thanks
    115
    Thanked 25 Times in 13 Posts

    Ðề: Share Event WordCup..!!

    Đâ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:
    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");

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=========================================================================================================================================
---================================================Dev 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=========================================================================================================================================
---================================================Dev 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;
    đó
    Khách viếng thăm hãy cùng kemdenny xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  8. 31-08-10, 04:56 PM #8
    sako1906
    sako1906 vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Aug 2010
    Bài viết
    15
    Thanks
    4
    Thanked 0 Times in 0 Posts

    Ðề: Share Event WordCup..!!

    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
    Khách viếng thăm hãy cùng sako1906 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  9. 02-10-10, 06:38 AM #9
    sitachi
    sitachi vẫn chưa có mặt trong diễn đàn
    Vi phạm quy định
    Ngày tham gia
    Apr 2008
    Bài viết
    608
    Thanks
    31
    Thanked 37 Times in 22 Posts

    Ðề: Share Event WordCup..!!

    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ô ?
    Khách viếng thăm hãy cùng sitachi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  10. 02-10-10, 07:25 AM #10
    jxvietnam
    jxvietnam vẫn chưa có mặt trong diễn đàn
    Moderator
    Ngày tham gia
    May 2009
    Đang ở
    Nơi rất xa
    Bài viết
    2,479
    Thanks
    572
    Thanked 1,848 Times in 503 Posts

    Ðề: Share Event WordCup..!!

    chắc không hợp questkey nên lỗi
    Khách viếng thăm hãy cùng jxvietnam xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
 

 
Trang 1 của 2 1 2 CuốiCuối
« Help Với (Script Cơ Bản) | Script Gm set Kha han va Quoc chu cho nguoi chơi »

Các Chủ đề tương tự

  1. Share Event Tết giống VLTK Free
    Bởi nghiamt trong diễn đàn Võ Lâm Truyền Kỳ (Jx Server)
    Trả lời: 32
    Bài viết cuối: 01-10-11, 07:19 PM
  2. Tìm Script event WordCup
    Bởi kemdenny trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 23-08-10, 06:35 PM
  3. Share code java đếm ngược tính thời gian đi Event :D
    Bởi Mr.Quy trong diễn đàn SQL Server & Website
    Trả lời: 10
    Bài viết cuối: 08-07-10, 04:03 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

Nội quy - Quy định

Múi giờ GMT +7. Bây giờ là 06:49 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.