战神引擎金币清洗红名Npc脚本(消除Pk值)

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

战神引擎金币清洗红名Npc脚本(消除Pk值)

战神引擎金币清洗红名Npc脚本(消除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;
分享到:
赞(0)