[JXM]- Hướng dẫn mọi thứ về VLTKM (update thêm sau)

[cubao91]

FieldMapNpc.lua
Mọi người show giùm e code trong file này với ạ. Em bị mất hết thông số mặc định lỗi lửa trại ạ . Giúp em file này đi ạ mọi người

[ngocdpt]

FieldMapNpc.lua
Mọi người show giùm e code trong file này với ạ. Em bị mất hết thông số mặc định lỗi lửa trại ạ . Giúp em file này đi ạ mọi người

tbFieldNpc.nGouHuoBaseExp = 150.5; --每分钟篝火基准经验（0.667点体力经验） Lửa Trại 66.7
tbFieldNpc.fExperienceScale = 0.5; --实际基准经验 = Experience * 该值 EXP nhận 0.001

--- Chế độ gộp bài viết ---

Trong setting ngoài 2 file PlayerLevel.tab và PlayerLevelAddExpP.tab còn sửa chỗ nào không bạn ???

trong 2 file đó, chủ yếu set ngày mở thêm lv rồi chỉnh time bên máy ảo thêm ngày mình vừa set code trong 2 file đó
mới thêm 149, để code thêm xem sao ^^

[cubao91]

tbFieldNpc.nGouHuoBaseExp = 150.5; --每分钟篝火基准经验（0.667点体力经验） Lửa Trại 66.7
tbFieldNpc.fExperienceScale = 0.5; --实际基准经验 = Experience * 该值 EXP nhận 0.001

--- Chế độ gộp bài viết ---



trong 2 file đó, chủ yếu set ngày mở thêm lv rồi chỉnh time bên máy ảo thêm ngày mình vừa set code trong 2 file đó
mới thêm 149, để code thêm xem sao ^^

EM cần full code trong file đó luôn anh ạ. Sợ bị lỗi mấy dòng khác nữa ạ

[nobitajx2]

EM cần full code trong file đó luôn anh ạ. Sợ bị lỗi mấy dòng khác nữa ạ

local tbFieldNpc = Npc:GetClass("FieldMapNpc");
tbFieldNpc.nGouHuoTime = 15 * 60; --篝火时效
tbFieldNpc.nGouHuoBaseExp = 66.7; --每分钟篝火基准经验（0.667点体力经验 ）
tbFieldNpc.nPeriodTime = 6; --每多少秒加一次
tbFieldNpc.nGouHuoTotalRate = 100000; --篝火掉落的概率计算总值
tbFieldNpc.nMaxRankPos = 3; --输出伤害前3名拥有奖励分配
tbFieldNpc.fCtrlExpParam = 1.0; --经验分配的调节系数
tbFieldNpc.szGouHuoAchievement = "XiuLian_2"; --篝火成就
tbFieldNpc.fMaxMemberMainP = 0.6; --队员共享经验不得超过主打者的经验
tbFieldNpc.fExperienceScale = 0.001; --实际基准经验 = Experience * 该值

function tbFieldNpceathCalcAward(pNpc, tbDamageInfo, pKiller)
local nMaxPos = #tbDamageInfo;
if nMaxPos > self.nMaxRankPos then
nMaxPos = self.nMaxRankPos;
end

local nExperience = pNpc.GetExperience();
if nExperience > 0 then
local pFirstPlayer, tbFirstPlayer = self:CalcDeathExp(pNpc, tbDamageInfo, nMaxPos, pKiller);
if pFirstPlayer and tbFirstPlayer then
self:CallGouHuo(pFirstPlayer, pNpc, tbFirstPlayer);
end
else
local nFixExperience = pNpc.GetFixExperience();
if nFixExperience > 0 then
local pFirstPlayer, tbFirstPlayer = self:CalcDeathFixExp(pNpc, tbDamageInfo, nMaxPos, pKiller);
if pFirstPlayer and tbFirstPlayer then
self:CallGouHuo(pFirstPlayer, pNpc, tbFirstPlayer);
end
end
end
end

function tbFieldNpc:CalcDeathFixExp(pNpc, tbDamageInfo, nMaxPos, pKiller, bWithoutXiuLian)
local pKillerPlayer = nil;
if pKiller then
pKillerPlayer = pKiller.GetPlayer();
end

local nMainAttackID = nil;
if pKillerPlayer then
nMainAttackID = pKillerPlayer.dwID;
end

local nExperience = pNpc.GetFixExperience();
local nNpcLevel = pNpc.nLevel;
local nNpcMaxLife = pNpc.nMaxLife;
local pFirstPlayer = nil;
local tbFirstPlayer = nil;
for nI = 1, nMaxPos do
local tbDamage = tbDamageInfo[nI];
if tbDamage then
local tbPlayer, pCaptain, nTotalLevel, bMainAttack = Npc:GetAssignPlayer(pNpc, tbDamage, Npc.nMaxAwardLen, nMainAttackID);
if tbPlayer and #tbPlayer > 0 then
if nI == 1 then
pFirstPlayer = pCaptain;
tbFirstPlayer = tbPlayer;
end

local nTotalCount = #tbPlayer;
local nBaseExp = nExperience * tbDamage.nTotalDamage / nNpcMaxLife;
local fFactor = math.sqrt(nTotalCount);
local nMemberExp = nBaseExp * self.fCtrlExpParam * fFactor / nTotalLevel;

local nMainAttackExp = 0;
local nMaxMemberExp = 0;
if bMainAttack then
nMainAttackExp = nBaseExp * (100 + nTotalCount) / 100;
nMaxMemberExp = nMainAttackExp * self.fMaxMemberMainP;
end

for _, tbPlayerInfo in pairs(tbPlayer) do
local pPlayer = tbPlayerInfo.pPlayer;
local nAddExp = 0;
local nAddExpP = 0;
if pPlayer.dwID == nMainAttackID then
nAddExp = nMainAttackExp;
else
nAddExp = nMemberExp * pPlayer.nLevel;
if nMaxMemberExp > 0 and nAddExp > nMaxMemberExp then
nAddExp = nMaxMemberExp;
end

if bMainAttack and nMainAttackID and nMainAttackID > 0 then
local nImityLevel = FriendShip:GetFriendImityLevel(pPlayer.dwID, nMainAttackID);
nAddExpP = FriendShip:GetFriendImityExpP(nImityLevel);
end
end

nAddExp = nAddExp * (100 + nAddExpP) / 100;
if nAddExp > 0 then
if bWithoutXiuLian then
pPlayer.AddExperience(nAddExp, Env.LogWay_NpcDropAward);
else
Player:AddXiuLianExp(pPlayer, nAddExp, nNpcLevel,true);
end
end
end
end
end
end

return pFirstPlayer, tbFirstPlayer;
end

function tbFieldNpc:CalcDeathExp(pNpc, tbDamageInfo, nMaxPos, pKiller, bWithoutXiuLian)
local pKillerPlayer = nil;
if pKiller then
pKillerPlayer = pKiller.GetPlayer();
end

local nMainAttackID = nil;
if pKillerPlayer then
nMainAttackID = pKillerPlayer.dwID;
end

local nExperience = pNpc.GetExperience();
nExperience = nExperience * tbFieldNpc.fExperienceScale;
local nNpcLevel = pNpc.nLevel;
local nNpcMaxLife = pNpc.nMaxLife;
local pFirstPlayer = nil;
local tbFirstPlayer = nil;
for nI = 1, nMaxPos do
local tbDamage = tbDamageInfo[nI];
if tbDamage then
local tbPlayer, pCaptain, nTotalLevel, bMainAttack = Npc:GetAssignPlayer(pNpc, tbDamage, Npc.nMaxAwardLen, nMainAttackID);
if tbPlayer and #tbPlayer > 0 then
if nI == 1 then
pFirstPlayer = pCaptain;
tbFirstPlayer = tbPlayer;
end

local nBaseExp = nExperience * tbDamage.nTotalDamage / nNpcMaxLife;

for _, tbPlayerInfo in pairs(tbPlayer) do
local pPlayer = tbPlayerInfo.pPlayer;
local nAddExpP = 0;
if bMainAttack and pPlayer.dwID ~= nMainAttackID and nMainAttackID and nMainAttackID > 0 then
local nImityLevel = FriendShip:GetFriendImityLevel(pPlayer.dwID, nMainAttackID);
nAddExpP = FriendShip:GetFriendImityExpP(nImityLevel);
end

local nPlayerBaseExp = pPlayer.GetBaseAwardExp();
local nAddExp = nPlayerBaseExp * nBaseExp * (100 + nAddExpP) / 100;
if nAddExp > 0 then
if bWithoutXiuLian then
pPlayer.AddExperience(nAddExp, Env.LogWay_NpcDropAward);
else
Player:AddXiuLianExp(pPlayer, nAddExp, nNpcLevel, true);
end
end
end
end
end
end

return pFirstPlayer, tbFirstPlayer;
end

function tbFieldNpc:CallGouHuo(pCaptain, pNpc, tbFirstPlayer)
local nGouHuoRate = pNpc.GetGouHuoRate();
if nGouHuoRate <= 0 then
return;
end

if not pCaptain then
return;
end

local nRate = MathRandom(tbFieldNpc.nGouHuoTotalRate);
if nRate > nGouHuoRate then
return;
end

if tbFirstPlayer then
local tbAllMember = {};
for _, tbPlayerInfo in pairs(tbFirstPlayer) do
Achievement:AddCount(tbPlayerInfo.pPlayer, tbFieldNpc.szGouHuoAchievement, 1);
table.insert(tbAllMember, tbPlayerInfo.pPlayer.dwID);
end

local nTotalCount = #tbAllMember;
if nTotalCount >= 2 then
for nI = 1, nTotalCount - 1 do
for nJ = nI + 1, nTotalCount do
local nPlayer1 = tbAllMember[nI];
local nPlayer2 = tbAllMember[nJ];
FriendShip:AddImitityByKind(nPlayer1, nPlayer2, Env.LogWay_KillFieldMapNpc);
end
end
end
end

local nGouHuoX, nGouHuoY = pNpc.GetDeathPos();
if nGouHuoX <= 0 and nGouHuoY <= 0 then
local _, nX, nY = pNpc.GetWorldPos();
nGouHuoX = nX;
nGouHuoY = nY;
end

local tbGouhuoNpc = Npc:GetClass("GouHuoNpc");
tbGouhuoNpc:CallTeamGouhuoNpc(pCaptain, nGouHuoX, nGouHuoY, tbFieldNpc.nGouHuoTime, tbFieldNpc.nGouHuoBaseExp, tbFieldNpc.nPeriodTime, 1);
end

Của bạn tất chỗ mặt cười là " dấu 2 chấm và chữ D viết liền nhau không cách "

[cubao91]

ăn lửa rồi mấy anh ạ. Giờ gặp vấn đề là lửa không tắt ạ

[ngocdpt]

ăn lửa rồi mấy anh ạ. Giờ gặp vấn đề là lửa không tắt ạ

bạn dùng sv nào mà lắm lỗi thế,
Lửa không tắt bạn dùng nước dập lửa nhe ^^( đùa thôi, chắc do lag ấy)

[ngocdpt]

local tbUi = Ui:CreateClass("GMListPanel");
-- 我要各个AI的同伴 (同伴ID配置)
local tbAllTestAIPartner = "{57, 23, 13, 20, 22, 29, 12, 52, 26, 41, 37, 11, 21, 66}"
-- 决定显示顺序
local tbDataIndex = GMpanel lỗi, sever không nhận

LuaQ
  @Script/Ui/Windows/GMPanel.lua *o  @@ € €€
AÀ Š  ‰@A‚‰ÀAƒ‰@B„‰ÀB…‰@C†‰ÀC‡ ‰@Dˆ‰ÀD‰‰@EŠ‰ÀE‹‰@FŒ‰ÀF‰ @GŽ‰ÀG‰@H‰ÀH‘‰@I’‰ÀI“‰@J ”‰ÀJ•‰@K–‰ÀK—‰@L˜‰ÀL™Á@
Á
AÁ Á ÁA
 J IÂJšŠ€
ÁB
à AÃ
¢B€
I‚‚šŠ€
ÁB
à AÃ
¢B€
I‚› B‚‚J IÂMšŠ€
ÁÂ
Ã
AÃ
¢B€
I‚‚šŠ€
ÁÂ
à Cái GM này dùng ok nhưng mã hóa, chỉnh sai cũng lỗi, không thể full chức năng

Bác nào biết giãi mã không nhờ

[kfcneed2]

ăn lửa rồi mấy anh ạ. Giờ gặp vấn đề là lửa không tắt ạ

lửa không tắt thì bạn thử config cái dòng đầu tiên là 15*60 thành 1 *60 xem lửa sau 1p có tắt ko nhé sợ nhiều quá bạn k kiểm soát đc đâu ~~
Chứ sv bác toandaik mình thấy vẫn ổn mà .
Nhân tiện có bác nào thử add đồ vào kì trân các mà ko lỗi mục ngân sức chưa có cho em xin file ạ sao e cứ add là lỗi ko chịu đc ~~~

[ThanhTamPK]

[Only registered and activated users can see links. ]

[ngocdpt]

[QUOTE=ThanhTamPK;1215301][Only registered and activated users can see links. ]
Sv mới đâu thế bác