用于战神引擎金币清洗红名Npc脚本(消除Pk值)，脚本默认清洗一次需要5万金币，消除100点的Pk值，脚本是明文版，单文件，可以任意修改里面的清理的费用和单次的值。直接添加就能用。

部分脚本

Program Mir2;
//{$I TaoZhuang.pas}
Procedure _doexit;
begin
   This_NPC.CloseDialog(This_Player);
end;
procedure _decpk;
begin
   if This_Player.MyPkpoint >= 100 then
   begin
      if This_Player.GoldNum >= 50000 then
      begin
         This_Player.DecGold(50000);;
         This_Player.DecPkPoint(100);
      end
      else
      begin
         This_Npc.NpcDialog(This_Player,
         '你元宝不足，不能消减PK值！'
         );
      end;
   end
   else
   begin
      This_Npc.NpcDialog(This_Player,
      '你现在不需要消减PK值！' 
      );
   end;
end;