Hỏi về nhiệm vụ thăng chức 115 120

[yeuem9392]

hiC sever của vanluat lv chưa tới 115 hay 120 vẫn nhận và hoàn thành đc nhiệm vụ thăng thiên ??? Ai pro sửa dùm vs!!!

[yeuem9392]

k pro nào vào giúp vs ai lại lv 1 thăng đc chức 115 120 bao giờ

[huy228866]

Quăng cái NPCMissoin lên đây !!!

[yeuem9392]

ok ok đợi mình xíu mình cho nó lên mediafire

em nó đây NPCMissoin : [Only registered and activated users can see links. ]

bạn giúp mình nhé !!! Thanks bạn huy28866 rất nhìu !

Nhân tiện ai cho mình hỏi cách xóa túi phụ. Túi phụ của bản vanluat bỏ items vào đổi nhân vật là mất hết hiC

[yeuem9392]

K có ai ghé quá HKGH để giúp mình ah HiC bạn nào có exp chia sẻ đi mình cảm ơn !!!

[|Rick|]

    
  -- kiem tra lv, thang chuc, khi cong
    if Player.Player_Level<10 or Player.JobLevelCharacter>1 or Player.Player_Qigong_point>0 then
          SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
    else
viet tiep doan code :|

[yeuem9392]

    
  -- kiem tra lv, thang chuc, khi cong
    if Player.Player_Level<10 or Player.JobLevelCharacter>1 or Player.Player_Qigong_point>0 then
          SendMissionMsg(UserWorldId,QuestId, 12, StatusQuest)
    else
viet tiep doan code :|

Cảm ơn bạn RICK hic đây là đoạn code nvu thăng chức lần 1 hả bạn??? hì cảm ơn để mình vọc tiếp chúc HK của U ngày càng phát triển nhé .

[yeuem9392]

Rick ơi bạn chỉ rõ hơn xíu đc k??? tìm mãi k hiểu chỗ thiết lập thăng chức 5 xong mới đc lên 6 và 6 xong mới đc lên 7 rồi 8 hiC cái thăng chức 7 8 lv 1 đã làm đc rồi hiC

[yeuem9392]

Bạn huy26688 kêu đưa cái NPCmissoin xong chạy đâu mất tiêu hiC

[huy228866]

Thực sự ko hiểu á. Tưỡng ông rick nói vậy là hiểu rồi chứ Cái đoạn script lớp 8 nó học pascal còn biết

--[TC1]
function MissIon18(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
	 	SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
	elseif CzId==2 then
		if Player.Player_Job_leve>=1 then 
			return 
		elseif Player.Player_Level < 10 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,0,1)
		SetQigong(UserWorldId,5)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+20000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC2 9]
function MissIon11(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
	elseif CzId==2 then
		if Player.Player_Job_leve>=2 then 
			return 
		elseif Player.Player_Level < 35 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,1,2)
		SetQigong(UserWorldId,6)
		UpGongFu(UserWorldId)
		UpYzbItme(UserWorldId)
		Player.Player_Money=Player.Player_Money+100000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC2 ta]
function MissIon12(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 35 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=2 then 
			return 
		elseif Player.Player_Level < 35 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,2,2)
		SetQigong(UserWorldId,6)
		UpGongFu(UserWorldId)
		UpYzbItme(UserWorldId)
		Player.Player_Money=Player.Player_Money+100000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end

--[TC3 9]
function MissIon45(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 60 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=3 then 
			return 
		elseif Player.Player_Level < 60 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,Player.Player_Zx,3)
		SetQigong(UserWorldId,7)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+200000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC3 ta]
function MissIon46(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 60 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=3 then 
			return 
		elseif Player.Player_Level < 60 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,Player.Player_Zx,3)
		SetQigong(UserWorldId,7)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+200000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC4 9]
function MissIon73(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 80 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=4 then 
			return 
		elseif Player.Player_Level < 80 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,Player.Player_Zx,4)
		SetQigong(UserWorldId,8)
		SetQigong(UserWorldId,9)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+300000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC4 ta]
function MissIon74(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 80 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=4 then 
			return 
		elseif Player.Player_Level < 80 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,Player.Player_Zx,4)
		SetQigong(UserWorldId,8)
		SetQigong(UserWorldId,9)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+300000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC5]
function MissIon178(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level < 100 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=5 then 
			return 
		elseif Player.Player_Level < 100 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		SetPlayerTransfer(UserWorldId,Player.Player_Zx,5)
		SetQigong(UserWorldId,10)
		AddSkill(UserWorldId,0,25)
		AddSkill(UserWorldId,0,26)
		AddSkill(UserWorldId,0,27)
		UpGongFu(UserWorldId)
		Player.Player_Money=Player.Player_Money+400000000
		UpMoney(UserWorldId)
		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC6]
function MissIon300(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level<115 or Player.Player_WuXun<2000 or Player.Player_Money<1000000000 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=6 then 
			return 
		elseif Player.Player_Level<115 or Player.Player_WuXun<2000 or Player.Player_Money<1000000000 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end

		local weiz=GetPackage(UserWorldId)
		if weiz==-1 then 
			SendSysMsg(UserWorldId,"装备栏没有空位了，请清理", 9, "系统提示")
			SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
			return 
		end
		AddSkillBook6(UserWorldId,weiz);

		SetPlayerTransfer(UserWorldId,Player.Player_Zx,6)

		Player.Player_Money=Player.Player_Money+400000000

		UpGongFu(UserWorldId)
		UpMoney(UserWorldId)
		UpExp(UserWorldId)
		UpYzbItme(UserWorldId)

		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[TC7]
function MissIon301(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level<120 or Player.Player_Money<1000000000 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=7 then 
			return 
		elseif Player.Player_Level<120 or Player.Player_Money<1000000000 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		local weiz=GetPackage(UserWorldId)
		if weiz==-1 then 
			SendSysMsg(UserWorldId,"装备栏没有空位了，请清理", 9, "系统提示")
			SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
			return 
		end
		AddSkillBook7(UserWorldId,weiz);

		SetPlayerTransfer(UserWorldId,Player.Player_Zx,7)

		--Player.Player_Money=Player.Player_Money+400000000

		UpGongFu(UserWorldId)
		UpMoney(UserWorldId)
		UpExp(UserWorldId)
		UpYzbItme(UserWorldId)

		AddQuest(UserWorldId,QuestId,1)
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end
--[thang chuc 8]
function MissIon400(UserWorldId,QuestId, CzId, RwJdId)
	local Player = GetPlayer(UserWorldId)
	if CzId==1 then
		if Player.Player_Level<130 then 
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		else
	 		SendMissionMsg(UserWorldId,QuestId, 11, RwJdId)
		end
	elseif CzId==2 then
		if Player.Player_Job_leve>=8 then 
			SendSysMsg(UserWorldId,"Ban da thang thien 3 roi !!!", 9, "Chu Y ")
			return 
		elseif Player.Player_Level<130 or Player.Player_Job_leve<7 then 
			
			Player.Player_Money=Player.Player_Money+200000000
			SendSysMsg(UserWorldId,"Cap do <130 hoac chua thang chuc 7", 9, "Chu Y ")
			SendMissionMsg(UserWorldId,QuestId, 12, RwJdId)
			return 
		end
		local weiz=GetPackage(UserWorldId)
		if weiz==-1 then 
			SendSysMsg(UserWorldId,"Tui do can 1 khong gian trong", 9, "Canh Bao ")
			SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
			return 
		end
		AddSkillBook8(UserWorldId,weiz);

		SetPlayerTransfer(UserWorldId,Player.Player_Zx,8)

		--Player.Player_Money=Player.Player_Money+400000000

		UpGongFu(UserWorldId)
		UpMoney(UserWorldId)
		UpExp(UserWorldId)
		UpYzbItme(UserWorldId)

		AddQuest(UserWorldId,QuestId,1)
		SendSysMsg(UserWorldId,"Ban da Thang chuc 8 - Thang Thien 3 thanh cong", 9, "Chu Y ")
		SendMissionMsg(UserWorldId,QuestId, 21, 1)
	elseif CzId==3 then
	 	SendMissionMsg(UserWorldId,QuestId, 31, RwJdId)
	elseif CzId==5 then
	 	SendMissionMsg(UserWorldId,QuestId, 51, RwJdId)
	end	
end

Player.Player_Job_leve sửa lại = Player.JobLevelCharacter nếu dùng server của vanluat