脚本太长，第一部分：
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 剑
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Sword])
if mas >= const.Novice then -----const.Novice是基础，const.Expert是专家，const.Master是大师，const.GM是宗师
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Sword then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/8 + (t.Result + sk)*tr1/200+ (t.Result + sk)*le/10+ (t.Result + sk)*tr2/400+ (t.Result + sk)*tr3/500
end
end
end
end
---------------------------------
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 匕首
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Dagger])
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Dagger then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/8 + (t.Result + sk)*tr1/200+ (t.Result + sk)*le/10+ (t.Result + sk)*tr2/400+ (t.Result + sk)*tr3/500
end
end
end
end
--------------------------------------------------
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 斧
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Axe])
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Axe then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/8 + t.Result *tr1/200+ t.Result *le/10+ t.Result *tr2/400+ t.Result*tr3/500
end
end
end
end

第三部分：
-------------------------------------------------------------------------------
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 棍棒
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Staff])
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Staff then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/10 + t.Result *tr1/200+ t.Result *le/15+ t.Result *tr2/600+ t.Result*tr3/700
end
end
end
end
---------------------------------
function events.CalcStatBonusBySkills(t)
if t.Stat == const.Stats.RangedDamageBase then
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Bow]) -- 弓
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.Bow)
if it and it:T().Skill == const.Skills.Bow then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/10 + t.Result *tr1/200+ t.Result *le/20+ t.Result *tr2/400+ t.Result*tr3/500
end
end
end
end

第四部分：
---------------------------------杀死怪物后几率加属性，金币和血法以及获得神器
function AutoGet1()
for _, player in Party do
local GetRatio = math.random(0, 6000)
if GetRatio <= 240 then --几率加抗性，属性和攻击点数，防御
evt.ForPlayer("All").Add("FireResistance",1)
evt.ForPlayer("All").Add("AirResistance",1)
evt.ForPlayer("All").Add("WaterResistance",1)
evt.ForPlayer("All").Add("EarthResistance",1)
evt.ForPlayer("All").Add("SpiritResistance",1)
evt.ForPlayer("All").Add("MindResistance",1)
evt.ForPlayer("All").Add("BodyResistance",1)
evt.ForPlayer("All").Add("LightResistance",1)
evt.ForPlayer("All").Add("DarkResistance",1)
evt.ForPlayer("All").Add("BaseMight",1)
evt.ForPlayer("All").Add("BaseIntellect",1)
evt.ForPlayer("All").Add("BasePersonality",1)
evt.ForPlayer("All").Add("BaseEndurance",1)
evt.ForPlayer("All").Add("BaseSpeed",1)
evt.ForPlayer("All").Add("BaseAccuracy",1)
evt.ForPlayer("All").Add("BaseLuck",1)
evt.ForPlayer("All").Add("AC",1)
evt.ForPlayer("All").Add("ArmorClass",1)
end
if GetRatio >= 5800 then ---几率加钱
evt.ForPlayer("All").Add("Gold",100)
end
if GetRatio >= 2000 then---几率满血法
evt.ForPlayer("All").Add("HasFullHP",1)
evt.ForPlayer("All").Add("HasFullSP",1)
end
if (GetRatio >=310 and GetRatio <370) then---几率得飞行，回城，道标，隔空取物，天佑一日卷轴
local Melee1= {1122, 1132, 1134, 1143, 382}
local Melee2 = Melee1[math.random(1, #Melee1) ]
evt.GiveItem{1,0,Melee2}
end
if (GetRatio >=500 and GetRatio <502) then
evt.GiveItem{1,0,1304}
end
if (GetRatio >=502 and GetRatio <504) then
evt.GiveItem{1,0,1308}
end
if (GetRatio >=504 and GetRatio <506) then
evt.GiveItem{1,0,2025}
end
if (GetRatio >=506 and GetRatio <508) then
evt.GiveItem{1,0,517}
end
if (GetRatio >=508 and GetRatio <510) then
evt.GiveItem{1,0,1307}
end
if (GetRatio >=510 and GetRatio <512) then
evt.GiveItem{1,0,1331}
end
if (GetRatio >=512 and GetRatio <514) then
evt.GiveItem{1,0,515}
end
if (GetRatio >=514 and GetRatio <516) then
evt.GiveItem{1,0,1338}
end
end
RemoveTimer(AutoGet1)
end
function events.MonsterKilled()
Timer(AutoGet1, const.Second)
end

整个脚本文件其实不大，txt文件就14K,看吧里那位大佬帮忙优化下。

补上漏了第二部分--矛和锤棍。
-------------------------------------------------------------------------------
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 矛
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Spear])
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Spear then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/8 + t.Result *tr1/200+ t.Result *le/10+ t.Result *tr2/400+ t.Result*tr3/500
end
end
end
end
-------------------------------------------------------------------------------
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then --锤棍
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Mace])
if mas >= const.Novice then
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand)
if it and it:T().Skill == const.Skills.Mace then
local le= t.Player:GetLevel()
local mi= t.Player:GetMight()
local sp= t.Player:GetSpeed()
local en= t.Player:GetBaseEndurance()
local ac= t.Player:GetBaseAccuracy()
local lu= t.Player:GetBaseLuck()
local nt= t.Player:GetBaseIntellect()
local pe= t.Player:GetBasePersonality()
local tr1= math.min(1000, (mi + sp))
local tr2= math.min(1500, (en + ac + lu))
local tr3= math.min(1000, (nt + pe))
t.Result = t.Result + sk*le/8 + t.Result *tr1/200+ t.Result *le/10+ t.Result *tr2/400+ t.Result*tr3/500
end
end
end
end

大佬牛

🐮

这个好啊！大佬，我想把一部分内容加到我的新补丁里可以吧？～

楼主，问下
local mi= t.Player:GetMight()
和
local en= t.Player:GetBaseEndurance()
这两个不一样对吧？
base属性是指白色属性，不带base属性是指绿色属性？
另外问下要取得技能等级（比如7点长剑技能点数）的值需要用什么语句？

楼主，基于你这个脚本我有些想法，要请教一下用什么语句实现。脚本我最多只能看懂，自己写有些难度。。。
1、我想把力量对伤害加成大幅提高，这个用你的脚本应该就行了，不过我想加上：这个加成只有近战职业才能享用，请问这个如何实现？
2、我想设定：任何主手近战武器在宗师级以后，技能点数可以让伤害大幅提高，也请问这个如何用脚本实现？
谢谢

解释下面代码的含义吧，我是从MMExtension v2.3 Help上面的代码修改的，一些细节也不是很清除。。
function events.CalcStatBonusBySkills(t)---采用技能评估伤害的事件
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 如果伤害不为0并且为近战伤害
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Sword])--取得角色长剑技能点数和等级
if mas >= const.Novice then -----const.Novice是基础，const.Expert是专家，const.Master是大师，const.GM是宗师 ---如果技能是基础，则
local it = t.Player:GetActiveItem(const.ItemSlot.MainHand) ---判断主手武器
if it and it:T().Skill == const.Skills.Sword then---如果主手武器是长剑
local le= t.Player:GetLevel()---取得角色等级
local mi= t.Player:GetMight()---取得角色力量
local sp= t.Player:GetSpeed()---取得角色速度
local en= t.Player:GetBaseEndurance()---取得角色耐力
local ac= t.Player:GetBaseAccuracy()---取得角色精确
local lu= t.Player:GetBaseLuck()---取得角色幸运
local nt= t.Player:GetBaseIntellect()---取得角色智力
local pe= t.Player:GetBasePersonality()---取得角色个性
local tr1= math.min(1000, (mi + sp))---加强参数1，在1000与力量与速度之和的最小值
local tr2= math.min(1500, (en + ac + lu))---加强参数2，在1500与耐力，精确与幸运之和的最小值
local tr3= math.min(1000, (nt + pe))---加强参数3，在1000与智力，精确与个性之和的最小值
t.Result = t.Result + sk*le/8 + (t.Result + sk)*tr1/200+ (t.Result + sk)*le/10+ (t.Result + sk)*tr2/400+ (t.Result + sk)*tr3/500--最终加强公式： 伤害+ 技能等级与角色等级相乘的1/8 + 伤害与技能等级乘以加强参数的1/200 +伤害与技能等级乘以角色等级的1/10+伤害与技能等级乘以加强参数2的1/400+ 伤害与技能等级乘以加强参数3的1/500
end
end
end
end

实际的伤害。可能怪物的物理抗性会导致伤害减少。

测试成功～感谢，马上准备出个2.8补丁，大幅提高后期近战伤害