脚本太长，第一部分：
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

解释下面代码的含义吧，我是从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

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

优化了下脚本，现在只有武器使用术和空手能加强物理伤害。现在主手拿任何武器都能增加伤害了（除了榴弹枪）。
function events.CalcStatBonusBySkills(t)
if t.Result ~= 0 and t.Stat == const.Stats.MeleeDamageBase then -- 近战
local sk1, mas1 = SplitSkill(t.Player.Skills[const.Skills.Armsmaster])
local sk2, mas2 = SplitSkill(t.Player.Skills[const.Skills.Unarmed])
if mas1 >= const.Novice or mas2 >= const.Novice
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))
if mas1 >= mas2 then
t.Result = t.Result + (t.Result + sk1*mas1)*tr1/400+ (t.Result + sk1*mas1)*le/10+ (t.Result + sk1*mas1)*tr2/750+ (t.Result + sk1*mas1)*tr3/900
else
t.Result = t.Result + (t.Result + sk2*mas2)*tr1/400+ (t.Result + sk2*mas2)*le/10+ (t.Result + sk2*mas2)*tr2/750+ (t.Result + sk2*mas2)*tr3/900
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 + (t.Result + sk*mas)*tr1/400+ (t.Result + sk*mas)*le/20+ (t.Result + sk*mas)*tr2/750+ (t.Result + sk)*tr3/900
end
end
end
end

再次更新，所有武器武器都能随着人物等级，技能等级，武器使用术和空手的等级和相关掌握程度增加伤害。
function events.CalcStatBonusBySkills(t)
if t.Stat == const.Stats.MeleeDamageBase then -- 近战
local sk1, mas1 = SplitSkill(t.Player.Skills[const.Skills.Armsmaster])
local sk2, mas2 = SplitSkill(t.Player.Skills[const.Skills.Unarmed])
local sk3, mas3 = SplitSkill(t.Player.Skills[const.Skills.Staff])
local sk4, mas4 = SplitSkill(t.Player.Skills[const.Skills.Sword])
local sk5, mas5 = SplitSkill(t.Player.Skills[const.Skills.Dagger])
local sk6, mas6 = SplitSkill(t.Player.Skills[const.Skills.Axe])
local sk7, mas7 = SplitSkill(t.Player.Skills[const.Skills.Spear])
local sk8, mas8 = SplitSkill(t.Player.Skills[const.Skills.Mace])
local skM= math.max(sk1, sk2, sk3, (2*sk4), sk5, sk6, sk7, sk8)
local skW= math.max(sk3, (2*sk4), sk5, sk6, sk7, sk8)
if skM >= 1 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))
if mas1 >= mas2 then
t.Result = t.Result + skW*le/5+ (t.Result + sk1*mas1)*tr1/400+ t.Result * sk1*mas1/8+ (t.Result + sk1*mas1)*tr2/750+ (t.Result + sk1*mas1)*tr3/900
else
t.Result = t.Result + skW*le/5+ (t.Result + sk2*mas2)*tr1/400+ t.Result * sk2*mas2/8+ (t.Result + sk2*mas2)*tr2/750+ (t.Result + sk2*mas2)*tr3/900
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 + (t.Result + sk*mas)*tr1/400+ (t.Result + sk*mas)*le/80+ (t.Result + sk*mas)*tr2/750+ (t.Result + sk)*tr3/900
end
end
end
end

补上2段武器使用术加近战攻击，和弓箭技能加远程攻击的代码。以免命中率不够。
function events.CalcStatBonusBySkills(t)
if t.Stat == const.Stats.MeleeAttack then
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Armsmaster])
if mas >= const.Novice then
local le= t.Player:GetLevel()
t.Result = t.Result + sk*mas*le
end
end
end
------------------------------
function events.CalcStatBonusBySkills(t)
if t.Stat == const.Stats.RangedAttack then
local sk, mas = SplitSkill(t.Player.Skills[const.Skills.Bow])
if mas >= const.Novice then
local le= t.Player:GetLevel()
t.Result = t.Result + sk*mas*le
end
end
end

再共享个之前大神们写的自动升级，避免训练的脚本。个人喜好哈。
function AutoTrain()
for _, player in Party do
newLevelBase = math.floor(math.sqrt(player.Experience / 500 + 1/4) - 1/2) + 1
if newLevelBase > player.LevelBase then
player.LevelBase = player.LevelBase + 1
player.SkillPoints = player.SkillPoints + (math.floor(player.LevelBase / 10) + 5) * 1
end
end
RemoveTimer(AutoTrain)
end
function events.MonsterKilled()
Timer(AutoTrain, const.Second)
end
function events.ExitNPC()
AutoTrain()
end
function events.AfterLoadMap()
AutoTrain()
end

简单介绍下我共享的脚本：
1.旅行宝戒指男女角色通用，是最强宝物，所有异常状态免疫，火免疫，加武器使用术10点，箭术10点和100点基础属性，80点血法，为宝物额外技能可累加；
2.兵器大师为最强NPC；
3.杀死怪物得到属性奖励，物品和神器奖励；
4.可以自动升级，不需要训练；
5.范围伤害除了帕西弗远程有点用之外，近战范围伤害已经很弱鸡了。最强物理伤害应该是下面三位其中之一，一个是宗师剑术和宗师武器使用术，双持华里斯的骑士，一个是宗师矛和宗师武器使用术单持神器叉的骑士，另外一个是宗师空手，宗师棍子和大师武器使用术的僧侣。

试了下，想增加弓的伤害只有在ExtraArtifacts.lua里面加入下面代码，可以增加伤害，但只能是对神器弓有用了。
-- -- Percival只对神器弓帕西弗有用，想改为其他神器弓箭，需要把下面的2025改为相应的物品ID。
OnHitEffects[2025] = {
Add= 10,
Special = function(t)
local le= t.Player:GetLevel()
local sk2, mas2 = SplitSkill(t.Player:GetSkill(const.Skills.Bow))
local mi= t.Player:GetMight()
local tr1= math.min(500, mi )
t.Result = t.Result + tr1*t.Result+ sk2*mas2*le
end}