论坛首页 › 人工智能 › 给AI去掉作弊的小程序

老胡V1 发表于 2010-5-16 12:42:03

给AI去掉作弊的小程序

RT

使用方法：把“去作弊.exe”解压到AI文件夹下

然后运行“去作弊.exe”

输入AI文件的名字（不含.per）

例如 AI文件是ABC.per 那么就输入ABC

(不区分大小写)

之后就会生成一个

AI文件名(new).per

例如 ABC(new).per



希望大家满意

更新版
去掉一些BUG。。例如去掉每行开头空格
开始的时候是没想到 只想快快做出
后来有了思路了

换成do-nothing了

附上源代码：
var i,j:longint;a:arrayof string;s,s1,filename:string;k:integer;
begin
   writeln('Please input the name of AI');
   readln(filename);
   assign(input,filename+'.per');
   assign(output,filename+'(new).per');
   reset(input);
    while not(eof(input)) do
   begin
      k:=0;
      inc(i);
      readln(s);
      s1:=s+'*'; //fang zhi delete yu jv chu cuo
      while (s1=' ') or (s1=#9)do //#9=Tab
       begin
      inc(k);
      delete(s1,1,1); //qu diao kong ge
       end;
      if copy(s1,1,5)='(cc-a' then //pan duan shi fou zuo bi
       begin
      delete(s,k+1,length(s)-k);
      s:= s+'(do-nothing)';
       end;
      a:=s;
   end;
   close(input);
   rewrite(output); //shu chu
   for j:=1 to i do
    writeln(a);
   close(output);
end.

[ 本帖最后由 老胡V1 于 2010-5-29 20:56 编辑 ]

Ikarus 发表于 2010-5-16 13:03:35

= =牛！

''痕迹× 发表于 2010-5-16 13:44:14

老胡千岁,,,（太后千岁...）                                                    　

天行者 发表于 2010-5-16 13:51:13

我下来用用                                                   .

sd0061 发表于 2010-5-16 13:51:51

{4} {4} 纯应求顶帖

老胡V1 发表于 2010-5-16 13:53:19

大家光顶不下载让我泪流满面。。。

王文祎 发表于 2010-5-16 13:53:39

同sd

飞龙在天 发表于 2010-5-16 14:50:24

原帖由 老胡V1 于 2010-5-16 13:53 发表 https://www.hawkaoe.net/bbs/images/common/back.gif
大家光顶不下载让我泪流满面。。。 俺们一直坚持下载回帖，就是没下载读了也要回帖，支持一下，顶起！

xiaogao 发表于 2010-5-16 15:05:28

太牛了啊！。。。。不顶不行啊。。不顶对不起XY啊

ildmw 发表于 2010-5-26 09:35:10

什么叫AI作弊啊 不是很懂...............{41} {41} {41} {41}

老胡V1 发表于 2010-5-26 13:13:12

就是AI给自己增加资源

雪之灵狼 发表于 2010-5-28 00:21:46

汗......难道老胡你是用PASCAL写的？看来我放假要日以继夜地学习编程了....(但是如果我考不好期末考那就悲剧了.....)

大鹏一日同风起，扶摇直上九万里。<----老胡

我和别人同时学编程，为什么我那么失败？
老胡比我还晚接触帝国，为什么他那么成功，而我却要成为世界的底层?

悲剧啊{31} {31} 以后我在学校都要膜拜老胡（其实几乎全班人都被我膜拜过了）

[ 本帖最后由 雪之灵狼 于 2010-5-28 00:35 编辑 ]

aaaaqf 发表于 2010-5-28 07:09:51

我友情点击了一下下载。。。老虎满意吗？？

老胡V1 发表于 2010-5-29 16:20:06

更新了一下

卧龙先生 发表于 2010-5-29 18:07:36

顶一下老胡,我这里顺手写了个 Object Pascal 样本供参考（你会发现面向对象的 Object Pascal 确实方便很多）:
procedure ClearCC(FileNme, newFileName: string);
var
  sl: string;
  i: integer;
  s: string;
begin
  sl := tstringlist.create;                       //创建文本列表类实例
  try
    filename := trim(filename);                     //去除输入文件名左右的空格
    if FileExists(filename) then                    //如果源文件确实存在
    begin
      sl.loadfromFile( fileName);                   //通过 loaddromfile 方法载入源文件
      sl.text := LowerCase( sl.text);               //转换源内容到小写状态
      if sl.count > 0 then                          //如果文本行数大于 0
        for i := sl.count - 1 downto 0 do           //循环
        begin
          s := Trim(sl);                          //去除当前行的左右空格并赋值给 s
          if Copy(s, 1, 4) = '(cc-' then            //判断前面的内容是否 cc 关键字
            sl := #32#32#32#32 + '(do-nothing)';  //如果是,将当前行的内容更新为 do-nothing 标准 ai 语法,不至于直接删除容易引起错误
        end;
      sl.savetofile( Trim(newFileName));            //保存到 newfilename 位置.
    end;
  finally sl.free; end;
end;

[ 本帖最后由 卧龙先生 于 2010-5-29 18:18 编辑 ]

老胡V1 发表于 2010-5-29 18:14:57

还是卧龙强大！（我怎么忘记do-nothing了，丢脸啊！55555555）

老胡V1 发表于 2010-5-29 18:17:36

面向对象的好有用啊…可惜我已经放弃学习编程了，不然一定抛弃FP去学

卧龙先生 发表于 2010-5-29 18:19:45

很奇怪,在论坛我不能写出内容:      sl + '['   + 'i' + ']'

雪之灵狼 发表于 2010-5-29 23:07:05

同样是学编程但是至今还未入门的菜鸟走过并跪倒膜拜二位大师。

黑心查理 发表于 2010-5-30 08:28:59

重装帝国后，AI全没了……                                                 .

查看完整版本: 给AI去掉作弊的小程序