huy228866
23-11-12, 05:27 PM
Thực sự ko hiểu á. Tưỡng ông rick nói vậy là hiểu rồi chứ :-s Cái đoạn script lớp 8 nó học pascal còn biết :-s
--[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
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.