Share Server 7.0 Viết được Nhiệm Vụ

**|Rick|** · 13-08-12, 02:09 PM

Config.ini GameServer :
Find : LoginServerIP=
Edit : LoginServerIP=127.0.0.1
Config.ini LoginServer :
Find : server0=
Edit : server0=Channel-1,0,127.0.0.1,13001,1

P/S : Misson1203_Hoan_Thanh_Thang_Cap_5.lua

Code:

function MissIon1203(UserWorldId,QuestId, StepQuest, StatusQuest)
  local Player = GetPlayer(UserWorldId)
  if StepQuest==1 then
      if Player.Player_Level<5 then
          SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
      else
          local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
          if QuestLevel==1 then
              StatusQuest=2
              AddQuest(UserWorldId,QuestId,StatusQuest)
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          else
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          end
      end
  elseif StepQuest==2 then
      StatusQuest=1
      AddQuest(UserWorldId,QuestId,StatusQuest)
      SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
  elseif StepQuest==3 then
      SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
  elseif StepQuest==5 then
      local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
      if QuestLevel==1 then
            local IndexsEmptyOfItemBag=GetPackages(UserWorldId,1)
              if IndexsEmptyOfItemBag.Count==0 then
                  SendSysMsg(UserWorldId,"Tui Do Thieu Khong Gian!", 9, "Chu Y")
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
                  return
              else
                  AddItme(UserWorldId,1008000033,IndexsEmptyOfItemBag[0],1)
                  SendSysMsg(UserWorldId,"Hoan thanh nhiem vu, vui long kiem tra tui do",10,"Chu Y")
              end
      end
      SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
  end
end

Chỉ viết dựa vào cái quest đầu tiên vì pm luat không trả lời để lấy thêm hàm @@

Bug : Out ra vào lại thì vẫn làm tiếp nhiệm vụ đã hoàn thành

**ConMua** · 13-08-12, 02:37 PM

Cho mình hỏi làm sao để không còn boss nhỉ

**|Rick|** · 13-08-12, 03:10 PM

Config.ini GameServer :
Find : 野外BOSS配置=
Edit : 野外BOSS配置=1;101;497;1582;1;24;10;0;20;20;2

**vanluat1991** · 13-08-12, 04:28 PM

Gửi bởi |Rick| [Only registered and activated users can see links. ]

Config.ini GameServer :
Find : LoginServerIP=
Edit : LoginServerIP=127.0.0.1
Config.ini LoginServer :
Find : server0=
Edit : server0=Channel-1,0,127.0.0.1,13001,1

P/S : Misson1203_Hoan_Thanh_Thang_Cap_5.lua

Code:

function MissIon1203(UserWorldId,QuestId, StepQuest, StatusQuest)
  local Player = GetPlayer(UserWorldId)
  if StepQuest==1 then
      if Player.Player_Level<5 then
          SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
      else
          local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
          if QuestLevel==1 then
              StatusQuest=2
              AddQuest(UserWorldId,QuestId,StatusQuest)
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          else
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          end
      end
  elseif StepQuest==2 then
      StatusQuest=1
      AddQuest(UserWorldId,QuestId,StatusQuest)
      SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
  elseif StepQuest==3 then
      SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
  elseif StepQuest==5 then
      local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
      if QuestLevel==1 then
            local IndexsEmptyOfItemBag=GetPackages(UserWorldId,1)
              if IndexsEmptyOfItemBag.Count==0 then
                  SendSysMsg(UserWorldId,"Tui Do Thieu Khong Gian!", 9, "Chu Y")
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
                  return
              else
                  AddItme(UserWorldId,1008000033,IndexsEmptyOfItemBag[0],1)
                  SendSysMsg(UserWorldId,"Hoan thanh nhiem vu, vui long kiem tra tui do",10,"Chu Y")
              end
      end
      SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
  end
end

Chỉ viết dựa vào cái quest đầu tiên vì pm luat không trả lời để lấy thêm hàm @@

Bug : Out ra vào lại thì vẫn làm tiếp nhiệm vụ đã hoàn thành

làm xong nhiệm vụ thì phải delete quest và cập nhật nhiệm vụ vào danh sách những nhiệm vụ đã làm .nếu không thì mỗi lần login đều làm dc nhiệm vụ.

Gửi bởi ConMua [Only registered and activated users can see links. ]

Cho mình hỏi làm sao để không còn boss nhỉ

remove trong SQL table NPC tìm ID mấy con Boss đó Xóa đi

Gửi bởi |Rick| [Only registered and activated users can see links. ]

Config.ini GameServer :
Find : 野外BOSS配置=
Edit : 野外BOSS配置=1;101;497;1582;1;24;10;0;20;20;2

không cài font china thì mấy dòng đó không có tác dụng

**|Rick|** · 13-08-12, 04:41 PM

Hàm Delete quest thì biết rồi
Còn hàm Cập nhật vào danh sách đã làm là hàm nào ?

**vanluat1991** · 13-08-12, 04:48 PM

Gửi bởi |Rick| [Only registered and activated users can see links. ]

Hàm Delete quest thì biết rồi
Còn hàm Cập nhật vào danh sách đã làm là hàm nào ?

Chưa viết hàm đó , Tối Nay sẽ Update 1 số hàm mới

**|Rick|** · 13-08-12, 05:15 PM

Cái quest thăng chức lần 1 nhìn hộ xem cái QuestLevel4 có sai ở đâu không cứ đến đó là GS báo lỗi

DeleteItemQuest(UserWorldId,900000042,0)
AddItemQuestOfCharacter(900000046,1,UserWorldId)

nó không Del 900000042 nhưng vẫn add 900000046
Trong khi đó

DeleteItemQuest(UserWorldId,900000043,0)
AddItemQuestOfCharacter(900000042,1,UserWorldId)

Thì nó lại ok ?

Code:

function MissIon18(UserWorldId,QuestId, StepQuest, StatusQuest)
  local Player = GetPlayer(UserWorldId)
  if StepQuest==1 then
      if Player.Player_Level<10 then
          SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
      else
          local QuestLevel=GetQuestLevel(UserWorldId,QuestId)
          if QuestLevel==1 then
              StatusQuest=2
              AddQuest(UserWorldId,QuestId,StatusQuest)
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          elseif QuestLevel==2 then
              StatusQuest=3
              AddQuest(UserWorldId,QuestId,StatusQuest)
              AddItemQuestDrop(900000043,10013,1,UserWorldId)
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          elseif QuestLevel==3 then
              local  bool900000043 = GetQuestItme(UserWorldId, 900000043, 1)
              if bool900000043==true then
                StatusQuest=4
                AddItemQuestOfCharacter(900000042,1,UserWorldId)
                DeleteItemQuest(UserWorldId,900000043,0)
                AddQuest(UserWorldId,QuestId,StatusQuest)
                SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
              
          elseif QuestLevel==4 then
              local bool900000042 = GetQuestItme(UserWorldId, 900000042, 1)
              if bool900000042==true then
                  StatusQuest=5
                  DeleteItemQuest(UserWorldId,900000042,0)
                  AddItemQuestOfCharacter(900000046,1,UserWorldId)
                  AddQuest(UserWorldId,QuestId,StatusQuest)
                  SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
          
          elseif QuestLevel==5 then
              local  bool900000046 = GetQuestItme(UserWorldId, 900000046, 1)
              if bool900000046==true then
                  StatusQuest=6
                  DeleteItemQuest(UserWorldId,900000046,0)
                  AddQuest(UserWorldId,QuestId,StatusQuest)
                  SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
          elseif QuestLevel==6 then
              StatusQuest=7
              AddQuest(UserWorldId,QuestId,StatusQuest)
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          elseif QuestLevel==7 then
              AddItemQuestDrop(900000045,10009,3,UserWorldId)
              local  bool900000045 = GetQuestItme(UserWorldId, 900000045, 3)
              if bool900000045==true then
                StatusQuest=8
                AddItemQuestOfCharacter(900000044,1,UserWorldId)
                DeleteItemQuest(UserWorldId,900000045,0)
                AddQuest(UserWorldId,QuestId,StatusQuest)
                SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
            
          elseif QuestLevel==8 then
              local  bool900000044 = GetQuestItme(UserWorldId, 900000044, 1)
              if bool900000044==true then
                  StatusQuest=9
                  AddItemQuestOfCharacter(900000047,1,UserWorldId)
                  DeleteItemQuest(UserWorldId,900000044,0)
                  AddQuest(UserWorldId,QuestId,StatusQuest)
                  SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
            
          elseif QuestLevel==9 then
              local  bool900000047 = GetQuestItme(UserWorldId, 900000047, 1)
              if bool900000047==true then
                  DeleteItemQuest(UserWorldId,900000047,0)
              else
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
              end
          else
              SendMissionMsg(UserWorldId,QuestId, 11, StatusQuest)
          end
      end
  elseif StepQuest==2 then
      StatusQuest=1
      AddQuest(UserWorldId,QuestId,StatusQuest)
      SendMissionMsg(UserWorldId,QuestId, 21, StatusQuest)
  elseif StepQuest==3 then
      SendMissionMsg(UserWorldId,QuestId, 31, StatusQuest)
  elseif StepQuest==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, StatusQuest)
                  return 
              else
                  AddItme(UserWorldId,909000001,weiz909000001,200)
              end
              local weiz909000004=GetPackage(UserWorldId)
              if weiz909000004==-1 then
                  SendSysMsg(UserWorldId,"装备栏没有空位了，请清理!", 9, "系统提示")
                  SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
                  return 
              else
                  AddItme(UserWorldId,909000004,weiz909000004,10000)
              end
      end
      SendMissionMsg(UserWorldId,QuestId, 51, StatusQuest)
  end
end

Sau khi mò thì ở bước 4 không lỗi nữa và tiếp tục lỗi ở bước 5

[Only registered and activated users can see links. ]

**tieumaoy** · 13-08-12, 05:41 PM

cho mình hỏi cách chỉnh EXP,gold,tỉ lệ rớt đồ làm sao với,vì nó ko có giống bản cũ,chỉ cách tạo Id mới nha,tại mình thích mấy chả nữ^^.Thx!

**|Rick|** · 13-08-12, 06:37 PM

Config.ini GameServer

MultiplesExp=1
MultiplesMoney=1
MultiplesSkillExp=1
MultiplesExpAcsention=1

**tieumaoy** · 13-08-12, 07:51 PM

có ai biết cách tạo ID mới không vậy,chỉ mình với,mình đang muốn chơi thữ char nữ..........Thx!

Chủ đề: Share Server 7.0 Viết được Nhiệm Vụ

Công cụ Chủ đề

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

Ðề: Share Server 7.0 Viết được Nhiệm Vụ

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

[HKGH] Share Server 3.1 Có thể Viết Nhiệm Vụ

[HKGH] Share Soucre Server 5.0 viết được nhiệm vụ

Share Nhiệm vụ kịch tình, món quà nhân ngày Cá tháng Tư

Ai có server Việt hóa chuẩn mới share cho em! Thanks nhiều!

Share code làm nhiệm vụ cấp 2 và 3 phù hợp với server của ENDI

Quyền viết bài