用于战神引擎金币清洗红名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;