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 .

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.
--Đây là hàm mệt nhất tìm mấy cái ID Quest với ID Monter Phê lòi ,bạn nào đã từng chơi Hệp khách thì có thể tìm nhanh hơn chứ người không biết ji chắc mò cả ngày @@.

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

[Only registered and activated users can see links. ]
script
Thăng chức 1
Thăng Chức 2 ( Tà Và 9)

[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ả : [Only registered and activated users can see links. ]

[huy228866]

NHÌN MẤY CHÚ VIẾT MÀ THÈM QUÁ 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