给AI去掉作弊的小程序

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

RT

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

然后运行“去作弊.exe”

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

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

(不区分大小写)

之后就会生成一个

AI文件名(new).per

例如 ABC(new).per

希望大家满意

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

换成do-nothing了

附上源代码：
var i,j:longint;a:array[1..100000]of 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[1]=' ') or (s1[1]=#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[j]);
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 发表
大家光顶不下载让我泪流满面。。。

俺们一直坚持下载回帖，就是没下载读了也要回帖，支持一下，顶起！

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去掉作弊的小程序

本帖子中包含更多资源

评分

评分

二级皇家勋章

一级嘉禾勋章

二级帝国勋章

十字军勋章

雄鹰勋章

活跃者

使者勋章

特级翔鹰勋章

一级帝国勋章

第六届火箭筒杯最佳战役

第七届火箭筒杯最佳战役

三级翔鹰勋章

翔鹰建站十周年纪念章

二级翔鹰勋章

特级嘉禾勋章

特级帝国勋章

翔鹰特定骑士勋章

蛟龙勋章

二级嘉禾勋章

雏鹰勋章

一级皇家勋章

一级翔鹰勋章

鹰之智者