Hướng Dẫn Viết NHiệm Vụ Cho Server 7.0

[vanluat1991]

Đầu tiên nói sơ qua 1 số hàm có trong Server :

hàm quan trong nhất :
SendMissionMsg(series Player,ID quest,ID Statement,Step Quest) : send cho client biết trạng thái làm nhiệm vụ của nhân vật.
+ series Player : mỗi nhân vật khi vào game sẽ được server cung cấp 1 Series để quản lý ,dựa vào đây server sẽ biết Player Nào đang nhân nhiệm vụ
+ ID Quest : ID của Nhiệm vụ ,mỗi nhiệm vụ sẽ có 1 ID ,cái này sẽ nói sau.
+ ID Statement: ID mấy câu hội thoại của NPC ,khi mình nhân nhiệm vụ ,hoàn thành nhiệm vụ hay là hủy bỏ nhiệm vụ ... cái này nằm trong Ybq.cfg
+ Step Quest : cái này là bước của nhiệm vụ ,mỗi nhiệm vụ có nhiều bước nên server phải biết nhân vật đang làm nhiệm vụ tới bước nào (rẩt quan trọng)

ok hàm đó là quan trong nhất chỉ cần cái hàm đó cũng đủ để viết nhiệm vụ rồi.

một số hàm hỗ trợ :
AddQuest(series Player,ID quest,Step Quest) : Add Nhiệm vụ cho Player ,Ctrl+Q sẽ thấy cái nhiệm vụ mình vừa nhận .

DeleteQuest(ID Quest, series Player) : Xóa nhiệm vụ của Player ,làm xong nhiệm vụ cần xóa nhiệm vụ đó đi :D.

AddItemQuestDrop(ID ItemQuest,ID Monter,ItemCount,series Player) : add Item Nhiệm vụ vào con quái vật để mình đánh nó mà nhận dc Item Nhiệm vụ
+ID ItemQuest : ID của Item Nhiệm vụ (cái này tìm hơi mệt )
+ID Monter : ID của Quái Vật Mà Mình Muốn Add (cái nà tìm cũng mệt không kém )
+ItemCount: số Lượng Item Nhiệm Vụ cần.
<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>

DeleteItemQuestDrop(ID ItemQuest,series Player) :Xóa Item Nhiệm vụ mới Add vào Quái vật ,àm xong nhiệm vụ cần xóa nó đi không có lần sau đánh con quái đó là nó cứ ra mấy cái Item Nhiệm vụ a` =)).

GetQuestItme(series Player,ID ItemQuest,ItemCount) : hàm này trả về true nếu trong túi đồ có đủ số Item Nhiệm vụ,trả về false nếu không đủ yêu cầu -> hàm này dùng khi Player trả Nhiệm vụ .

DeleteItemQuest(series Player,ID Item Quest ,Số lượng Item Cần Xóa) : xóa số ItemQuest đang có trong túi đồ. xong Quest thì phải Xóa mấy cái Item đó đi .
GetQuestLevel(series Player,ID Quest) hàm này trả về Bước Nhiệm vụ mà Player đang làm ,đừng hiểu nhầm là lấy Level của nhiệm vụ nhá =)).

Tới đây thôi Bữa sau hướng dẫn tiếp
Bài sau chúng ta tìm hiểu cấu trúc của Nhiệm vụ :))

[vanluat1991]

Tiếp Tục Tới Phần Cấu trúc Của 1 script Nhiệm Vụ

Khi ta Nhân Nhiệm Vụ sẽ Có 5 Sự Kiện Có Thể xảy ra Mỗi Sự kiện Sẽ Có 1 ID Riêng.
+ Chọn Nhiệm Vụ (lúc mình Click vào Cái Nhiệm vụ ) : cái Này có ID là :1
+ Chấp Nhân Nhiệm Vụ (Click vào Button đồng ý Trong Bảng Nhiệm Vụ ) : ID :2
+ Từ Chối Nhiệm Vụ (Click vào Button Hủy Trong Bảng Nhiệm Vụ) :ID :3
+ Hủy Bỏ nhiệm Vụ (Click vào Buuton Hủy Nhiệm Vụ trong Ctrl+Q) :ID :4
+ Trả Nhiệm Vụ (Hoàn Thành Nhiệm Vụ) : ID :5

vậy Cấu Trúc Của Script Như sau:



If(EventQuest==1) then
--Lựa Chọn Nhiệm vụ

elseif(EvenQuest==2) then
--Chấp Nhận Nhiệm Vụ

elseif(EventQuest==3) then
--từ Chối Nhiệm Vụ

elseif(EventQuest==4) then
-- Hủy Bỏ Nhiệm Vụ

elseif(EventQuest==5) then
-- Hoàn Thành Nhiệm Vụ
end

[|Rick|]

Tiếp tục UPDATE các hàm liên kết đến nhân vật cho những ai chưa biết

- GetPackages(UserWorldId,2) : Kiểm tra ô trống trong túi đồ
+ 2 = Số lượng muốn kiểm tra

Ví dụ muốn kiểm tra xem Nhân vật đó có còn 2 ô trống không ta làm như sau :


local IndexsEmptyOfItemBag=GetPackages(UserWorldId,2)
if IndexsEmptyOfItemBag.Count==0 then--khong co du slot
SendSysMsg(UserWorldId,"Túi đồ không đủ 2 chỗ trống", 9, "Chú ý")
end
Các bạn nên nhớ nếu đã if thì phải end [ Giống như mở bài và kết bài trong văn ]

- AddMoneyToCharacter(50000000,UserWorldId) : Thêm tiền
+ 50000000 = số tiền muốn thêm

- AddExpToCharacter(100,UserWorldId) : Thêm kinh nghiệm
+ 100 = số exp muốn thêm

- AddItme(UserWorldId,500001,IndexsEmptyOfItemBag[0],1) : Thêm Item
+ 500001 = id item
+ IndexsEmptyOfItemBag[0] = Nôm na là ô còn trống đầu tiên trong túi
+ 1 = Số lượng [ i think ] :))
Hàm này đi kèm với hàm kiểm tra túi đồ nhé :)
..... Sai thì luat sửa nhé ~:>

[thothiendai]

AddItemQuestOfCharacter(900000011,5,UserWorldId)

900000011: id item quest
5 số lượng

dùng để add item quest vào nv

[vanluat1991]

quest thăng chức lần 1 cho mọi người tham khảo .



function MissIon18(UserWorldId,QuestId, CzId, RwJdId)
local Player = GetPlayer(UserWorldId)
if CzId==1 then
if Player.Player_Level<10 then
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)--khong du dieu kien
else
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then--nhan nhiem vu ngan kieu long
RwJdId=2
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==2 then--danh heo rung cho kim huong ngoc
RwJdId=3
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
AddItemQuestDrop(900000043,10013,1,UserWorldId)
elseif QuestLevel==3 then--tra nhiem vu duoc cai dui nuong
local bool900000043 = GetQuestItme(UserWorldId, 900000043, 1)
if bool900000043 then
DeleteItemQuest(UserWorldId,900000043,1)
AddItemQuestOfCharacter(900000042,1,UserWorldId)
DeleteItemQuestDrop(900000043,UserWorldId)
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
RwJdId=4
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==4 then--dua dui heo cho ngan kieu long nhan dc giap
local bool900000042 = GetQuestItme(UserWorldId, 900000042, 1)
if bool900000042 then
DeleteItemQuest(UserWorldId,900000042,1)
AddItemQuestOfCharacter(900000046,1,UserWorldId)--nhan giap
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
RwJdId=5
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==5 then--nhan Quest Dao kien tieu
local bool900000046 = GetQuestItme(UserWorldId, 900000046, 1)
if bool900000046 then
--AddQuestItme(UserWorldId,900000046,0)
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
RwJdId=6
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==6 then--gap binh thap chi --nhan nhiem vu danh 3 bo xuong
RwJdId=7
AddQuest(UserWorldId,QuestId,RwJdId)
AddItemQuestDrop(900000045,10009,3,UserWorldId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==7 then--tra nhiem vu binh thap chi ,lay dc thuoc cho dao kien tieu
local bool900000045 = GetQuestItme(UserWorldId, 900000045, 3)
if bool900000045 then
DeleteItemQuest(UserWorldId,900000045,3)
AddItemQuestOfCharacter(900000044,1,UserWorldId)--nhan thuoc
DeleteItemQuestDrop(900000043,UserWorldId)
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
RwJdId=8
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==8 then-- tra Quest tai dao kien tieu
local bool900000044 = GetQuestItme(UserWorldId, 900000044, 1)
if bool900000044 then
DeleteItemQuest(UserWorldId,900000044,1)
AddItemQuestOfCharacter(900000047,1,UserWorldId)--nhan vu khi
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
RwJdId=9
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
elseif QuestLevel==9 then-- tra quest tai mon chu

local bool900000047 = GetQuestItme(UserWorldId, 900000047, 1)
local Item900000046= GetQuestItme(UserWorldId, 900000046, 1)
if bool900000047 and Item900000046 then
DeleteItemQuest(UserWorldId,900000047,1)
DeleteItemQuest(UserWorldId,900000046,1)
RwJdId=10
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
else
SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
end
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
else
SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
end
end
elseif CzId==2 then
RwJdId=1
AddQuest(UserWorldId,QuestId,RwJdId)
SendMissionMsg(UserWorldId,QuestId, 21, RwJdId)
elseif CzId==3 then
SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
elseif CzId==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==9 then
-- local weiz909000001=GetPackage(UserWorldId)
--- if weiz909000001==-1 then
-- SendSysMsg(UserWorldId,"×°±¸À¸Ã»ÓпÕλÁË£¬ÇëÇåÀí!", 9, "ϵͳÌáʾ")
-- SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
-- return
-- else
-- AddItme(UserWorldId,909000001,weiz909000001,200)
-- end
-- local weiz909000004=GetPackage(UserWorldId)
-- if weiz909000004==-1 then
-- SendSysMsg(UserWorldId,"×°±¸À¸Ã»ÓпÕλÁË£¬ÇëÇåÀí!", 9, "ϵͳÌáʾ")
-- SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
-- return
--else
-- AddItme(UserWorldId,909000004,weiz909000004,10000)
--end
SetPlayerTransfer(UserWorldId,0,1)
end
SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
end

[thothiendai]

quest thăng chức lần 1 cho mọi người tham khảo .


hic e mới viết xog tính post mà a post r:D:D

<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>
script
Thăng chức 1
Thăng Chức 2 ( Tà Và 9):D:D

[ConMua]

tui đã làm như trên và khi đánh ko đc đồ của nhiệm vụ TC lân 1 thế ai bjk chỉ vs

[|Rick|]

2_Cuoc_Song_Cua_Vi_Dai_Bao.lua


-- Cuoc song cua vi dai bao
function MissIon2(UserWorldId,QuestId, StepQuest, StatusQuest)
local Player = GetPlayer(UserWorldId)
if StepQuest==1 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
-- den gap vi dai bao
if QuestLevel==1 then
StatusQuest=2
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
AddItemQuestDrop(900000002,10002,10,UserWorldId)
AddItemQuestDrop(900000003,10010,1,UserWorldId)
-- Lay sung bo` va mong' soi' xam'
elseif QuestLevel==2 then
local bool900000002 = GetQuestItme(UserWorldId, 900000002, 10)
local bool900000003 = GetQuestItme(UserWorldId, 900000003, 1)
if bool900000002==true and bool900000003==true then
StatusQuest=3
DeleteItemQuest(UserWorldId,900000002,10)
DeleteItemQuest(UserWorldId,900000003,1)
DeleteItemQuestDrop(900000002,UserWorldId)
DeleteItemQuestDrop(900000003,UserWorldId)
AddItemQuestOfCharacter(900000004,1,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
elseif QuestLevel==3 then
local bool900000004 = GetQuestItme(UserWorldId, 900000004, 1)
if bool900000004==true then
StatusQuest=4
DeleteItemQuest(UserWorldId,900000004,1)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
else
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
end

elseif StepQuest==2 then
if Player.Player_Level<11 then
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
else
StatusQuest=1
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
end
elseif StepQuest==3 then
SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
elseif StepQuest==4 then
DeleteItemQuest(UserWorldId,900000004,1)
elseif StepQuest==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==3 then
local IndexsEmptyOfItemBag=GetPackages(UserWorldId,1)
if IndexsEmptyOfItemBag.Count==0 then--khong co du slot
SendSysMsg(UserWorldId,"Tui do full, khong the tra quest!", 9, "Chu Y")
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
return
else
AddExpToCharacter(600,UserWorldId)
AddItme(UserWorldId,909000003,IndexsEmptyOfItemBag[0],1)
SendSysMsg(UserWorldId,"Chuc Mung Ban Da Hoan Thanh Nhiem Vu",10,"Chu Y")
DeleteQuest(QuestId,UserWorldId)
end
end
SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
end
end



3_Tim_Duoc_lieu.lua



function MissIon3(UserWorldId,QuestId, StepQuest, StatusQuest)
local Player = GetPlayer(UserWorldId)
if StepQuest==1 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then
local bool900000006 = GetQuestItme(UserWorldId, 900000006, 1)
local bool900000005 = GetQuestItme(UserWorldId, 900000005, 1)
if bool900000005 and bool900000006 then
DeleteItemQuest(UserWorldId,900000006,1)
DeleteItemQuest(UserWorldId,900000005,1)
DeleteItemQuestDrop(900000006,UserWorldId)
DeleteItemQuestDrop(900000005,UserWorldId)
StatusQuest=2
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
else
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
end

elseif StepQuest==2 then
if Player.Player_Level<11 then
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
else
StatusQuest=1
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
AddItemQuestDrop(900000005,10008,1,UserWorldId)
AddItemQuestDrop(900000006,10014,1,UserWorldId)
end
elseif StepQuest==3 then
SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
elseif StepQuest==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then
AddMoneyToCharacter(100,UserWorldId)
AddMoneyToCharacter(200,UserWorldId)
end
SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
end
end




4_Long_Tu_Trong_Cua_NKL.lua


function MissIon4(UserWorldId,QuestId, StepQuest, StatusQuest)
local Player = GetPlayer(UserWorldId)
if StepQuest==1 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then
local bool900000008 = GetQuestItme(UserWorldId, 900000008, 1)
local bool900000007 = GetQuestItme(UserWorldId, 900000007, 10)
if bool900000008 and bool900000007 then
StatusQuest=2
AddQuest(UserWorldId,QuestId,StatusQuest)
DeleteItemQuest(UserWorldId,900000008,1)
DeleteItemQuest(UserWorldId,900000007,10)
DeleteItemQuestDrop(900000008,UserWorldId)
DeleteItemQuestDrop(900000007,UserWorldId)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
elseif QuestLevel==2 then
StatusQuest=3
AddItemQuestOfCharacter(900000131,1,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
elseif QuestLevel==3 then
local bool900000131 = GetQuestItme(UserWorldId, 900000131, 1)
if bool900000131 then
StatusQuest=4
DeleteItemQuest(UserWorldId,900000131,1)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
else
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
end

elseif StepQuest==2 then
if Player.Player_Level<13 then
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
else
StatusQuest=1
AddItemQuestDrop(900000007,10016,10,UserWorldId)
AddItemQuestDrop(900000008,11004,1,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
end
elseif StepQuest==3 then
SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
elseif StepQuest==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==3 then
local IndexsEmptyOfItemBag=GetPackages(UserWorldId,1)
if IndexsEmptyOfItemBag.Count==0 then--khong co du slot
SendSysMsg(UserWorldId,"Tui do full, khong the tra quest!", 9, "Chu Y")
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
return
else
AddExpToCharacter(950,UserWorldId)
AddItme(UserWorldId,400001,IndexsEmptyOfItemBag[0],1)
SendSysMsg(UserWorldId,"Chuc Mung Ban Da Hoan Thanh Nhiem Vu",10,"Chu Y")
DeleteQuest(QuestId,UserWorldId)
end
end
SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
end
end



5_Nghien_Cuu_Huyet_lang.lua


function MissIon5(UserWorldId,QuestId, StepQuest, StatusQuest)
local Player = GetPlayer(UserWorldId)
if StepQuest==1 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then
local bool900000009 = GetQuestItme(UserWorldId, 900000009, 10)
local bool900000010 = GetQuestItme(UserWorldId, 900000010, 1)
if bool900000009 and bool900000010 then
StatusQuest=2

DeleteItemQuest(UserWorldId,900000009,10)
DeleteItemQuest(UserWorldId,900000010,1)
DeleteItemQuest(UserWorldId,900000131,1)
DeleteItemQuestDrop(900000009,UserWorldId)
DeleteItemQuestDrop(900000010,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
elseif QuestLevel==2 then
StatusQuest=3
AddItemQuestOfCharacter(900000132,1,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
elseif QuestLevel==3 then
local bool900000132 = GetQuestItme(UserWorldId, 900000132, 1)
if bool900000132 then
StatusQuest=4
DeleteItemQuest(UserWorldId,900000132,1)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
else
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
end

elseif StepQuest==2 then
if Player.Player_Level<17 then
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
else
StatusQuest=1
AddItemQuestDrop(900000009,10011,10,UserWorldId)
AddItemQuestDrop(900000010,10012,1,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
end
elseif StepQuest==3 then
SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
elseif StepQuest==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==3 then
local IndexsEmptyOfItemBag=GetPackages(UserWorldId,7)
if IndexsEmptyOfItemBag.Count==0 then--khong co du slot
SendSysMsg(UserWorldId,"Tui do full, khong the tra quest!", 9, "Chu Y")
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
return
else
AddExpToCharacter(2400,UserWorldId)
AddItme(UserWorldId,909000003,IndexsEmptyOfItemBag[0],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[1],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[2],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[3],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[4],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[5],1)
AddItme(UserWorldId,800000006,IndexsEmptyOfItemBag[6],2)
SendSysMsg(UserWorldId,"Chuc Mung Ban Da Hoan Thanh Nhiem Vu",10,"Chu Y")
DeleteQuest(QuestId,UserWorldId)
end
end
SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
end
end



13_Kiem_Cui.lua


function MissIon13(UserWorldId,QuestId, StepQuest, StatusQuest)
local Player = GetPlayer(UserWorldId)
if StepQuest==1 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==1 then
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
local bool900000168 = GetQuestItme(UserWorldId, 900000168, 15)
if bool900000168 then
StatusQuest=2
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
else
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
end
else
SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
end

elseif StepQuest==2 then
if Player.Player_Level<14 then
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
else
StatusQuest=1
AddItemQuestDrop(900000168,15004,15,UserWorldId)
AddQuest(UserWorldId,QuestId,StatusQuest)
SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
end
elseif StepQuest==3 then
SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
elseif StepQuest==5 then
local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
if QuestLevel==2 then
local IndexsEmptyOfItemBag=GetPackages(UserWorldId,4)
if IndexsEmptyOfItemBag.Count==0 then--khong co du slot
SendSysMsg(UserWorldId,"Tui Do Thieu Khong Gian!", 9, "Chu Y")
SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
return
else
DeleteItemQuest(UserWorldId,900000168,15)
DeleteItemQuestDrop(900000168,UserWorldId)
AddMoneyToCharacter(50000,UserWorldId)
AddExpToCharacter(1200,UserWorldId)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[0],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[1],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[2],1)
AddItme(UserWorldId,800000002,IndexsEmptyOfItemBag[3],1)
SendSysMsg(UserWorldId,"Chuc Mung Ban Da Hoan Thanh Nhiem Vu",10,"Chu Y")
DeleteQuest(QuestId,UserWorldId)
end

end
SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
end
end



- 1203_Hoan_thanh_muc_tieu_cap_5.lua
- 1205_Hoan_thanh_muc_tieu_cap_10.lua
- 1206_Hoan_thanh_muc_tieu_cap_13.lua
- 1208_Hoan_thanh_muc_tieu_cap_18.lua
- 1209_Hoan_thanh_muc_tieu_cap_20.lua

Link down tất cả : <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>

[huy228866]

NHÌN MẤY CHÚ VIẾT MÀ THÈM QUÁ :-s TIẾC LÀ CHƯA BAO GIỜ CHƠI OFFICIAL NÊN NHIỆM VỤ KO RÕ CÁC BƯỚC ĐÁNH GÌ =,=' (:|(:|(:|(:|

[|Rick|]

Chả cần phải cần chơi Official :| YBQ việt hóa rồi vào nhận quest đọc nội dung quest rồi viết thôi (:|

P/S : Chưa bao h chơi HK DZOGAME (:|

[pikhjn]

=)) Script tự viết nội dung chắc được nhỉ rùi vào vh lại :)) YBQ thấy chuẩn ;)).

[havnat01]

Ai chỉ cho mình biết sửa mấy cái Scrip này ở file nào không vậy? Hình như không thấy ai nói về điều này ~.~

[pikhjn]

File .Lua trong server ấy bạn !

[RunNingMan]

File .Lua trong server ấy bạn !

Không thấy file .lua ở đâu hết cậu ơi. hình như nó được nến thành Game server.exe rồi phải ko ?