图片：

脚本代码如下：

首先要罗嗦一下，感谢康康的指点，还有群内几位好心的人，谢谢。


//制作人 ：WINKEN康康 QQ79597339
//请保留此信息。。谢谢！~~
//梦想RO修改版本QQ936089253


prontera.gat,0,0,0 script wkOnInit -1,{
OnInit:
  setarray $@wk_mes$[0],"A","B","C","D","E","F","G","H","I","J";
      setarray  $@wk_zmum$[0],"P","O","I","U","Y","T","R","E","W","Q","A","S","D","F","G","H","J","K","L","M","N","B","V","C","X","Z","L","K","J","H","G","F","D","S","A" ,"Q","W","E","R","T"; //这是随机的第一个字典文件(通过修改他可以达到更新反外挂答案的目的)因为每页显示数量的问题，我将8行缩短为4行也就是40答案的
      setarray $@wk_zmum2$[0],"P","N","B","V","C","X","Z","L","K","J","H","G","F","D","S","A","P","O","I","U","Y","T","R","E","W","Q","Q","A","Z","W","S","X","E","D","C","R","F","V","T","G";}//这是第2个，有兴趣的可以多加几个字典文件。

function script getmum {
        set @wk_zm1,rand(9); //列数0~9 10列
        set @wk_m1,rand(1,4); //行数1~4 4行如须添加行 下面复制 这里也要改 类推吧 应该能看懂
        switch(@wk_m1) {
            case 1:
              set @wk_mu,@wk_zm1; break;
            case 2:
              set @wk_mu,10+@wk_zm1; break;
            case 3:
              set @wk_mu,20+@wk_zm1; break;
            case 4:
              set @wk_mu,30+@wk_zm1; break;
//制作人 ：WINKEN康康 QQ79597339
//请保留此信息。。谢谢！~~
//梦想RO修改版本QQ936089253
}
return;
}

            - script OnPCLogin -1,{
OnPCLogin:
        sleep2(1000);

        warp "job_sage.gat",36,96;
        sleep2(1000);//时间函数，给予gmcommand状态使用，单独使用gmcommand无效果！
            gmcommand "@option 02 02 64 ";
}

job_sage.gat,37,95,3    script    验证人员    734,6,6{
    mes "[^0000FF 反外挂人员 ^000000]";
    mes "你好,偶是^FF0000反外挂人员^000000,请按照偶提示完成操作,谢谢...";
    mes "服务器已开启反外挂系统";
    next;
            switch(rand(1,2))
{
        case 1:
            callfunc "getmum";
            set @wk_da$,$@wk_zmum$[@wk_mu];
            mes "若为A1则为P.您的验证段为："+$@wk_mes$[@wk_zm1]+@wk_m1;//下面部分是随机的第一个字典，如果你修改了上面的字典，这里也要对应修改！
            mes "  A  B  C  D  E  F  G  H  I  J";
            mes " ■----------------------------";
            mes "1| P  O  I  U  Y  T  R  E  W  Q";
            mes "2| A  S  D  F  G  H  J  K  L  M";
            mes "3| N  B  V  C  X  Z  L  K  J  H";
            mes "4| G  F  D  S  A  Q  W  E  R  T";

        input @string$;
            if(@string$ != @wk_da$) {gmcommand strcharinfo(0)+":@kick "+strcharinfo(0); close; end;}
            mes "恭喜通过验证";

{


            gmcommand "@option 00 00 00 "; //时间函数，给予gmcommand状态使用，单独使用gmcommand无效果！
        sleep2(1000);
}


            next;
            warp "prontera.gat",155,109;//设置的是返回首都位置，可自己修改，或者返回上次下线的记录点。
            end;
        close;
        case 2:
            callfunc "getmum";
            set @wk_da$,$@wk_zmum2$[@wk_mu];
            mes "若为A1则为P.您的验证段为："+$@wk_mes$[@wk_zm1]+@wk_m1;//第2个字典表
            mes "  A  B  C  D  E  F  G  H  I  J";
            mes " ■----------------------------";
            mes "1| P  N  B  V  C  X  Z  L  K  J";
            mes "2| H  G  F  D  S  A  P  O  I  U";
            mes "3| Y  T  R  E  W  Q  Q  A  Z  W";
            mes "4| S  X  E  D  C  R  F  V  T  G";

        input @string$;
            if(@string$ != @wk_da$) {gmcommand "@kick "+strcharinfo(0); close; end;} ;
            mes "恭喜通过验证";

{


            gmcommand "@option 00 00 00 ";
        sleep2(1000);
}

            next;
          warp "prontera.gat",155,109;
          end;
        close;

}
}