用于战神引擎金刚石互换至尊令牌Npc脚本，脚本支持金刚石换成至尊令牌，也可以把至尊令牌换金刚石，脚本是明文版，可以任意修改里面的兑换货币和物品。兑换不需要额外的手续费。

部分脚本

PROGRAM Mir2;
{$I TaoZhuang.pas}
procedure _M2; 
begin
if This_Player.GetBagItemCount ('至尊令牌') > 0 then
begin
This_Player.Take('至尊令牌',1);
This_Player.Give('金刚石',20);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有至尊令牌!');
end;
procedure _M1; 
begin
if This_Player.GetBagItemCount ('金刚石') >= 20 then
begin
This_Player.Take('金刚石',20);
This_Player.Give('至尊令牌',1);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有20个金刚石!');
end;
procedure _M111; 
begin
if This_Player.GetBagItemCount ('至尊令牌') >= 1 then
begin
This_Player.Take('至尊令牌',1);
This_Player.Give('金刚石',20);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有至尊令牌!');
end;
procedure _M222; 
begin
if This_Player.GetBagItemCount ('至尊令牌') >= 10 then
begin
This_Player.Take('至尊令牌',10);
This_Player.Give('金刚石',200);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有10个至尊令牌!');
end;
procedure _M333; 
begin
if This_Player.GetBagItemCount ('至尊令牌') >= 100 then