战神引擎元宝交易防刷修复版

这个脚本可以防止圆满充值平台早期的充值脚本漏洞，请复制以下内容进行替换变更：

program Mir2;
{$I TaoZhuang.pas}
{$I common.pas}
{$I ActiveValidateCom.pas}

procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;


procedure _newYB(); 
begin
    if This_Player.GetV(11,10) <> 888 then
    begin
        This_Player.SetV(11,10,888);
        This_NPC.YBDealDialogShowMode(This_Player,true);
    end
    else
    begin
        This_NPC.YBDealDialogShowMode(This_Player,false);
    end;
end;

 


Begin     
TZJH_NPC;
    This_Npc.NpcDialog(This_Player,
    '您好，有什么可以效劳的？我可以为您提供关于元宝的各类服务。\ \'
    +'|{cmd}<元宝交易/@NewYB>        '
    );

end.