用于战神引擎手游版本的用元宝打造金刚石和经验Npc脚本，玩家如果有元宝，但需要金刚石或者经验，那么可以通过这个NPC来获得，每天可以打造3次，一次需要10分钟。脚本是明文版的，可以任意修改里面的所有条件。
部分脚本
procedure _ForgeDiamondStart_YB4;
var
temp:integer;
begin
if This_Player.Level < 15 then begin This_Npc.NpcDialog(This_Player, '你的等级不满15级，不可锻造金刚石。' ); end else if This_Player.GetS(73,49) > 2 then
begin
This_Npc.NpcDialog(This_Player,
'你今天已经进行过3次锻造了，请明天再来吧！'
);
end else
if This_Player.GetS(73,46) > 0 then
begin
temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
if temp >= 10 then
begin
This_Npc.NpcDialog(This_Player,
'你尚有未领取的金刚石，请先领取后再来锻造！'
);
end else
This_Npc.NpcDialog(This_Player,
'你上次的锻造还未完成，不可再次进行锻造。'
);
end else
begin
This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20149,3000,1);
end;
end;
{
procedure _ForgeDiamondStart_JD4;
var
temp:integer;
begin
if This_Player.Level < 15 then begin This_Npc.NpcDialog(This_Player, '你的等级不满15级，不可锻造金刚石。' ); end else if This_Player.GetS(73,45) = GetDateNum(GetNow) then begin This_Npc.NpcDialog(This_Player, '你今天已经进行过金刚石锻造了，请明天再来吧！' ); end else if This_Player.GetS(73,46) > 0 then
begin
temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
if temp >= 10 then
begin
This_Npc.NpcDialog(This_Player,
'你尚有未领取的金刚石，请先领取后再来锻造！'
);
end else
This_Npc.NpcDialog(This_Player,
'你上次的锻造还未完成，不可再次进行锻造。'
);
end else
begin
if This_Player.GloryPoint >= 3000 then
begin
if This_Player.DecGloryPoint(30081,3000,1,false,'金刚石锻造') then
begin
ForgeDiaYB(30,1);
end;
end else
begin
This_Npc.NpcDialog(This_Player,
'你的金锭不足！\' );
end;
end;
end;
}
procedure _ForgeDiamondGet;
var
temp,num,expnum:integer;
begin
if This_Player.GetS(73,46) > 0 then
begin
temp:= (ConvertDateTimeToDB(GetNow) - This_Player.GetS(73,46)) div 60;
if temp >= 10 then
begin
if This_Player.FreeBagNum > 0 then
begin
num:= This_Player.GetS(73,47);
This_Player.SetS(73,46,0);
This_Player.SetS(73,47,0);
This_Player.GiveBindItem('金刚石',num*5);
case num of
1:expnum:=1000000;
5:expnum:=3000000;
10:expnum:=8000000;
30:expnum:=20000000;
end;
This_Player.Give('经验',expnum);
ServerSay('玩家<' + This_Player.Name + '>锻造金刚石获得额外：'+inttostr(expnum)+'经验。', 2);
This_Npc.NpcDialog(This_Player,
'恭喜你获得了锻造完成的奖励：'+inttostr(num*5)+'颗金刚石。\'+
'恭喜你获得了额外的奖励：'+inttostr(expnum)+'经验。'
);
end else
This_Npc.NpcDialog(This_Player,
'你的包裹太满了，先整理一下吧。'
);
end else
This_Npc.NpcDialog(This_Player,
'你上次锻造的金刚石尚未完成，不可领取金刚石。\'+
'请'+inttostr(10-temp)+'分钟后再来领取。'
);
end else
This_Npc.NpcDialog(This_Player,
'你还未进行金刚石锻造，不可领取金刚石。'
);
end;
begin
This_Npc.NpcDialog(This_Player,
'|<锻造时间10分钟，每天只能锻造三次！/c=251>\'+
'|<100元宝可锻造5颗金刚石+100万经验！。/c=253>\ \'+
'|<500元宝可锻造25颗金刚石+300万经验！。/c=253>\ \'+
'|<1000元宝可锻造50颗金刚石+800万经验！。/c=253>\ \'+
'|<3000元宝可锻造150颗金刚石+2000万经验！。/c=253>\ \'+
'|<金刚石是练体的必需品！。/c=254>\ \'+
'|{cmd}<我要开始金刚石锻造/@ForgeDiamondStart>\'+
'|{cmd}<领取锻造完成的金刚石/@ForgeDiamondGet>\'
//'|{cmd}<查询金刚石锻造规则/@ForgeDiamondRule>'
);
end.