用于战神引擎手游三职业锻体师Npc脚本，玩家通过元宝和金刚石，锻体以后，可以获得50血量的额外增加，总共可以锻体20次，脚本是明文版的，可以任意修改里面的需要的元宝、材料还要血量，经过小鱼亲自测试，确实有效。
补发脚本
procedure _lianti1;
var today , num,AddHP,AddHP1,AddHP2: integer;
begin
num := This_Player.GetV(68,2);
begin
case This_Player.Job of
0 : //战士
begin
This_Player.AddPlayerAbil(4, AddHP, 36000);
This_Player.AddHeroAbil(4,AddHP,36000);
ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功开启成功\'
);
end;
1 : //法师
begin
This_Player.AddPlayerAbil(4, AddHP1, 36000);
This_Player.AddHeroAbil(4,AddHP1,36000);
ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你开启成功\'
);
end;
2 : //道士
begin
This_Player.AddPlayerAbil(4, AddHP2, 36000);
This_Player.AddHeroAbil(4,AddHP2,36000);
ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你开启成功\'
);
end;
end;
end else
This_Npc.NpcDialog(This_Player,
'你没有炼体，无法开启属性\'
);
end;
begin
begin
if This_Player.YBNum >= 500 then
begin
case This_Player.Job of
0 : //0是战士
begin
This_Player.ScriptRequestSubYBNum(500);
This_Player.Take('金刚石' , 100);
This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一
num := This_Player.GetV(68,2);
ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\'
);
end;
1 : //法师
begin
This_Player.ScriptRequestSubYBNum(500);
This_Player.Take('金刚石' , 100);
This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一
num := This_Player.GetV(68,2);
ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功，当前炼体层数<'+inttostr(num)+'/c=red>层！\'
);
end;
2 : //道士
begin
This_Player.ScriptRequestSubYBNum(500);
This_Player.Take('金刚石' , 100);
This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一
num := This_Player.GetV(68,2);
ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功，当前炼体层数'+inttostr(num)+'层！', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你炼体成功，当前炼体层数<'+inttostr(num) +'/c=red>层！\'
);
end;
end;
end else
This_Npc.NpcDialog(This_Player,
'元宝不足500，无法炼体\'
);
end else
This_Npc.NpcDialog(This_Player,
'金刚石不足100，无法炼体\'
);
end else
This_Player.PlayerDialog(
'<你的炼体层数已经达到顶级，无法继续/c=red>'
);
end;
'|你当前的元宝总数是：<' + inttostr(This_Player.YBnum)+'/c=251>个\'+
'|当前炼体层数：<'+inttostr(num)+'/c=58>层，共20层\'+
+'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\'
+'|<战士/c=red>每次增加<HP50点/c=244>，当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+
+'|<道士/c=red>每次增加<HP30点/c=244>，当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+
+'|<法师/c=red>每次增加<HP15点/c=244>，当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+
+'|<每次炼体需要500元宝+100金刚石/c=146>\'
+'|<HP属性，有效时间为10小时/c=224>\'
+'|<10小时后/c=58>免费<再次激活10小时/c=70>\'
+'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>'
);
end else
begin
'|你当前的元宝总数是：<' + inttostr(This_Player.YBnum)+'/c=251>个\'+
'|当前炼体层数：<'+inttostr(num)+'/c=58>层，共20层\'+
+'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\'
+'|<战士/c=red>每次增加<HP50点/c=244>，当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+
+'|<道士/c=red>每次增加<HP30点/c=244>，当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+
+'|<法师/c=red>每次增加<HP15点/c=244>，当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+
+'|<每次炼体需要500元宝+100金刚石/c=146>\'
+'|<HP属性，有效时间为10小时/c=224>\'
+'|<10小时后/c=58>免费<再次激活10小时/c=70>\'
+'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>'
);
end;
end.