[抛砖引玉]放一些我改过的ai(pascal版)

waxyzwa · 发表于 2009-7-9 19:51

马上注册，结交更多侠友！

您需要登录才可以下载或查看，没有账号？我要成为铁血侠客

x

建立在bt大虾的代码之上，实现效果是在看见范围内（角色能移动的范围+可攻击的范围内），对每个点进行价值的判定，选定最有价值的点进行攻击
如果可见范围内没有人，则不会有任何行动，范围外的路径选择，恢复之类的行动请自行编写，或者利用原来bt大虾留下的程序
还有这样的话，仅仅是对攻击方攻击方面进行判定，之后的走位，技能的使用都需要考量，加权方面，是否对除了对伤害，或者对其他的也有加权，抛砖引玉啦，大家有好的想法，代码不要藏啦。。。
构建在原版所有战斗之上，没有很明显的迟钝，延迟

对了修改了这个函数，加了一句话
procedure CalCanSelect(bnum, mode: integer);
var
i, i1, i2: integer;
begin
for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
Bfield[3, i1, i2] := 0;
//mode为0表示移动, 这时建筑和有人物(不包括自己)的位置不可选
if mode = 0 then
begin
if Bfield[1, i1, i2] > 0 then Bfield[3, i1, i2] := -1;
if Bfield[2, i1, i2] >= 0 then Bfield[3, i1, i2] := -1;
if Bfield[2, i1, i2] = bnum then Bfield[3, i1, i2] := 0;
end;
//就是这句，让已经计算过的格子不再计算第2遍
Bfield[5, i1, i2] := 0;
end;
if mode = 0 then
begin
SeekPath(Brole[bnum].X, Brole[bnum].Y, Brole[bnum].Step + 2);
//递归算法的问题, 步数+2参与计算
for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
if Bfield[3, i1, i2] > 0 then
Bfield[3, i1, i2] := 0
else
Bfield[3, i1, i2] := 1;
end;
end;
end;
主ai程序
procedure AutoBattle(bnum: integer);
var
flag, i, p, temp, a, rnum, inum, eneamount, aim, mnum, level, Ax1, Ay1, Ax2, Ay2, i1, i2, step, step1, dis1, dis0, dis2,dis, temptype,i3,i4: integer;
str: widestring;
begin
//找寻可攻击范围内，攻击价值最高的点，并攻击
//判断是否可以攻击
if (Brole[bnum].Acted = 0) and (rrole[rnum].PhyPower >= 10) then
begin
flag := 0;//移动方式的判断位,以及是否有好的攻击点的判断位
temp := 0;
Ax2 := 0;
Ay2 := 0;
Ax1 := 0;
Ay1 := 0;
Ax := Bx;
Ay := By;
for i := 0 to 9 do
begin
mnum := Rrole[rnum].Magic[ i ];
if mnum > 0 then
begin
level := Rrole[rnum].MagLevel[ i ] div 100 + 1;
if level <= 0 then level := 1;
if level > 10 then level := 10;
if (rmagic[mnum].HurtType = 0) then
begin
//判断面/点攻最大伤害的点
//如果您的角色是个超级人物，或许在这一步遍历会有点卡，我有个建议，就是判断方向，四个象限往一个方向会好一点
//或者是选定一个大概范围遍历（人多的地方），这个函数我有一些构思，没有着手写，需要的话，m我要好了
//类似于一个遍历，在他周围一定范围内的人数计下来，再计算范围内最边缘角色的x,y的目标
//在底下计算价值的时候，就在这个范围计算了
if (rmagic[mnum].AttAreaType = 3) or (rmagic[mnum].AttAreaType = 0)then
begin
dis1 := Brole[bnum].Step;
CalCanSelect(bnum, 0);
for i1 := max(Bx-dis1, 0) to min(Bx+dis1, 63) do
for i2 := max(By-dis1, 0) to min(By+dis1, 63) do
begin
if Bfield[3, i1, i2] = 0 then
begin
dis0 := rmagic[mnum].MoveDistance[level - 1];
for i3 := max(i1-dis0, 0) to min(i1+dis0, 63) do
for i4 := max(i2-dis0, 0) to min(i2+dis0, 63) do
begin
Ax := i3;
Ay := i4;
dis2 := abs( i1 - i3 )+abs( i2 - i4 );
if (temp<=AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i3, i4] = 0) and (dis2 <= dis0)then
begin
Ax2 := i1;
Ay2 := i2;
Ax1 := i3;
Ay1 := i4;
temp:=AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 1;
end;
Bfield[5, i3, i4] := 1;
end;
end;
end;
end
//十字攻的判断
else if (rmagic[mnum].AttAreaType = 2) then
begin
dis1 := Brole[bnum].Step;
CalCanSelect(bnum, 0);
for i1 := max(Bx-dis1, 0) to min(Bx+dis1, 63) do
for i2 := max(By-dis1, 0) to min(By+dis1, 63) do
begin
if Bfield[3, i1, i2] = 0 then
begin
Ax := i1;
Ay := i2;
if (temp <= AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i1, i2] = 0)then
begin
Ax1 := i1;
Ay1 := i2;
temp := AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 2;
end;
Bfield[5, i1, i2] := 1;
end;
end;
end
//线攻的判断
else if (rmagic[mnum].AttAreaType = 1) then
begin
dis1 := Brole[bnum].Step;
CalCanSelect(bnum, 0);
for i1 := max(Bx-dis1, 0) to min(Bx+dis1, 63) do
for i2 := max(By-dis1, 0) to min(By+dis1, 63) do
begin
if Bfield[3, i1, i2] = 0 then
begin
//x+1
Ax := i1+1;
Ay := i2;
if (temp <= AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i1, i2] = 0) then
begin
Ax1 := i1;
Ay1 := i2;
temp:=AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 3;
end;
//x-1
Ax := i1-1;
Ay := i2;
if (temp <= AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i1, i2] = 0) then
begin
Ax1 := i1;
Ay1 := i2;
temp:=AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 4;
end;
//y+1
Ax := i1;
Ay := i2+1;
if (temp <= AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i1, i2] = 0) then
begin
Ax1 := i1;
Ay1 := i2;
temp:=AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 5;
end;
//y-1
Ax := i1;
Ay := i2-1;
if (temp <= AutoManyDamage(bnum, i, i1, i2)) and (AutoManyDamage(bnum, i, i1, i2) <> 0) and (Bfield[5, i1, i2] = 0) then
begin
Ax1 := i1;
Ay1 := i2;
temp:=AutoManyDamage(bnum, i, i1, i2);
p := i;
flag := 6;
end;
Bfield[5, i1, i2] := 1;
end;
end;
end
end;
end;
end;
//动
if(flag <> 0) then
begin
//点面攻的移动方式
if(flag = 1) then
begin
Ax := Ax2;
Ay := Ay2;
MoveAmination(bnum);
Ax := Ax1;
Ay := Ay1;
end
//十字
else if(flag = 2) then
begin
Ax := Ax1;
Ay := Ay1;
MoveAmination(bnum);
Ax := Bx;
Ay := By;
end
//线
else if (flag >= 3) then
begin
Ax := Ax1;
Ay := Ay1;
MoveAmination(bnum);
if(flag = 3) then
begin
Ax := Bx + 1;
Ay := By;
end
else if(flag = 4) then
begin
Ax := Bx - 1;
Ay := By;
end
else if(flag = 5) then
begin
Ax := Bx;
Ay := By + 1;
end
else if(flag = 6) then
begin
Ax := Bx;
Ay := By - 1;
end;
end;
//攻击
AutoAttack(bnum, p);
end;
end;
end;
以下是用到的一些函数
//计算周围某个点所造成的总价值，从攻击函数进行改写
function AutoManyDamage(bnum, mnum1, Bx1, By1: integer): integer;
var
i1, i2, step, step1, Ax1, Ay1, dis, rnum, mnum, level: integer;
begin
rnum := brole[bnum].rnum;
mnum := Rrole[rnum].Magic[mnum1];
level := Rrole[rnum].MagLevel[mnum1] div 100 + 1;
if level > 10 then level := 10;
if level <= 0 then level := 1;
result :=0;
step := rmagic[mnum].MoveDistance[level - 1];
step1 := 0;
if rmagic[mnum].AttAreaType = 3 then step1 := rmagic[mnum].AttDistance[level - 1];
if abs(Ax - Bx1) + abs(Ay - By1) <= step + step1 then
begin
if (rmagic[mnum].AttAreaType = 3) then
begin
dis := 0;
Ax1 := Bx1;
Ay1 := By1;
for i1 := min(Ax, Bx1) to max(Ax, Bx1) do
for i2 := min(Ay, By1) to max(Ay, By1) do
begin
if (abs(i1 - Ax) <= step1) and (abs(i2 - Ay) <= step1) and (abs(i1 - Bx1) + abs(i2 - By1) <= step + step1) then
begin
if dis < abs(i1 - Bx1) + abs(i2 - By1) then
begin
dis := abs(i1 - Bx1) + abs(i2 - By1);
Ax1 := i1;
Ay1 := i2;
end;
end;
end;
Ax := Ax1;
Ay := Ay1;
end;
if Rmagic[mnum].AttAreaType <> 3 then
GetAminationPosition(Rmagic[mnum].AttAreaType, step, Bx1, By1)
else
GetAminationPosition(Rmagic[mnum].AttAreaType, step1, Bx1, By1);
for i1 := 0 to sign(Rrole[rnum].AttTwice) do
begin
result :=CalAllDamage(bnum, mnum, level);
end;
end;
end;
//计算利用该技能在选中点能造成的总价值，从计算伤害改来
function CalAllDamage(bnum, mnum, level: integer): integer;
var
i, i1, rnum, temp: integer;
begin
rnum := brole[bnum].rnum;
if RRole[rnum].CurrentMP < rmagic[mnum].NeedMP * ((level + 1) div 2) then level := RRole[rnum].CurrentMP div rmagic[mnum].NeedMP * 2;
if level > 10 then level := 10;
result :=0;
for i := 0 to broleamount - 1 do
begin
if (Bfield[4, Brole[ i ].X, Brole[ i ].Y] <> 0) and (Brole[bnum].Team <> Brole[ i ].Team) and (Brole[ i ].Dead = 0) then
begin
//生命伤害
if (rmagic[mnum].HurtType = 0) then
begin
temp :=0;
//计算左右
//注意！！会左右的人会对同一个会杀死的目标，计算双倍加权
for i1 := 0 to sign(Rrole[rnum].AttTwice) do
begin
temp := CalHurtValue(bnum, i, mnum, level)+temp;
end;
//看看有没有人会死奖励价值10000
if (temp > Rrole[Brole[i].rnum].CurrentHP) then
begin
result := result + 10000//奖励10000点价值〉1个人9999的血上限
end;
//CalHurtValue(bnum, i, mnum, level)，这个函数一般大虾都喜欢把命中判定放在这里判断
//但是如果在这里判断，我以为，是不是加权太高了，包括上面杀死目标的判定时
//当然最后的加权肯定是大家自己选择的
result := result + CalHurtValue(bnum, i, mnum, level);//加权公式，请自行对ai的加权进行判定
end;
{基于内力的aoe,还没有打算开始在ai中使用，这段还是编者自己做吧
//内力伤害
if (rmagic[mnum].HurtType = 1) then
begin
hurt := rmagic[mnum].HurtMP[level - 1];
if hurt > Rrole[Brole[i].rnum].CurrentMP then hurt := Rrole[Brole[i].rnum].CurrentMP;
Brole[i].ShowNumber := hurt;
Rrole[Brole[i].rnum].CurrentMP := Rrole[Brole[i].rnum].CurrentMP - hurt;
//增加己方内力及最大值
if hurt < rmagic[mnum].AddMP[level - 1] then RRole[rnum].CurrentMP := RRole[rnum].CurrentMP + hurt;
if hurt >= rmagic[mnum].AddMP[level - 1] then RRole[rnum].CurrentMP := RRole[rnum].CurrentMP + rmagic[mnum].AddMP[level - 1];
Brole[bnum].ExpGot := Brole[bnum].ExpGot + hurt div 20;
//RRole[rnum].MaxMP := RRole[rnum].MaxMP + random(hurt div 2);
//if RRole[rnum].MaxMP > MAX_MP then RRole[rnum].MaxMP := MAX_MP;
if RRole[rnum].CurrentMP > RRole[rnum].MaxMP then RRole[rnum].CurrentMP := RRole[rnum].MaxMP;
//中毒
addpoi := rrole[rnum].AttPoi + rmagic[mnum].Poision * level - rrole[Brole[ i ].rnum].DefPoi;
if rrole[Brole[ i ].rnum].Poision < 0 then rrole[Brole[ i ].rnum].Poision := 0;
if addpoi + rrole[Brole[ i ].rnum].Poision > 99 then addpoi := 99 - rrole[Brole[ i ].rnum].Poision;
if addpoi < 0 then addpoi := 0;
if rrole[Brole[ i ].rnum].DefPoi >= 99 then addpoi := 0;
rrole[Brole[ i ].rnum].Poision := rrole[Brole[ i ].rnum].Poision + addpoi;
end; }
end;
end;
end;
//假装设定攻击范围，从设定攻击范围改来
procedure GetAminationPosition(mode, step, Bx1, By1: integer);
var
i, i1, i2: integer;
begin
for i1 := 0 to 63 do
for i2 := 0 to 63 do
begin
Bfield[4, i1, i2] := 0;
//按攻击类型判断是否在范围内
case mode of
0:
begin
if (i1 = Ax) and (i2 = Ay) then Bfield[4, i1, i2] := 1;
end;
3:
begin
if (abs(i1 - Ax) <= step) and (abs(i2 - Ay) <= step) then Bfield[4, i1, i2] := 1;
end;
1:
begin
if ((i1 = Bx1) or (i2 = By1)) and (sign(Ax - Bx1) = sign(i1 - Bx1)) and (abs(i1 - Bx1) <= step) and (sign(Ay - By1) = sign(i2 - By1)) and (abs(i2 - By1) <= step) then
Bfield[4, i1, i2] := 1;
end;
2:
begin
if ((i1 = Bx1) and (abs(i2 - By1) <= step)) or ((i2 = By1) and (abs(i1 - Bx1) <= step)) then
Bfield[4, i1, i2] := 1;
if ((i1 = Bx1) and (i2 = By1)) then Bfield[4, i1, i2] := 0;
end;
end;
end;
end;
//攻击
procedure AutoAttack(bnum, mnum1: integer);
var
i1, i2, step, step1, Ax1, Ay1,dis,rnum,mnum,level: integer;
begin
rnum := brole[bnum].rnum;
mnum := Rrole[rnum].Magic[mnum1];
level := Rrole[rnum].MagLevel[mnum1] div 100 + 1;
if level > 10 then level := 10;
if level <= 0 then level := 1;
step := rmagic[mnum].MoveDistance[level - 1];
step1 := 0;
if rmagic[mnum].AttAreaType = 3 then step1 := rmagic[mnum].AttDistance[level - 1];
if abs(Ax - Bx) + abs(Ay - By) <= step + step1 then
begin
//step := Rmagic[mnum, 28+level-1];
if (rmagic[mnum].AttAreaType = 3) then
begin
//step1 := Rmagic[mnum, 38+level-1];
dis := 0;
Ax1 := Bx;
Ay1 := By;
for i1 := min(Ax, Bx) to max(Ax, Bx) do
for i2 := min(Ay, By) to max(Ay, By) do
begin
if (abs(i1 - Ax) <= step1) and (abs(i2 - Ay) <= step1) and (abs(i1 - Bx) + abs(i2 - By) <= step + step1) then
begin
if dis < abs(i1 - Bx) + abs(i2 - By) then
begin
dis := abs(i1 - Bx) + abs(i2 - By);
Ax1 := i1;
Ay1 := i2;
end;
end;
end;
Ax := Ax1;
Ay := Ay1;
end;
if Rmagic[mnum].AttAreaType <> 3 then
SetAminationPosition(Rmagic[mnum].AttAreaType, step)
else
SetAminationPosition(Rmagic[mnum].AttAreaType, step1);
Brole[bnum].Acted := 1;
for i1 := 0 to sign(Rrole[rnum].AttTwice) do
begin
Rrole[rnum].MagLevel[mnum] := Rrole[rnum].MagLevel[mnum] + random(2) + 1;
if Rrole[rnum].MagLevel[mnum] > 999 then Rrole[rnum].MagLevel[mnum] := 999;
if rmagic[mnum].UnKnow[4] > 0 then callevent(rmagic[mnum].UnKnow[4])
else AttackAction(bnum, mnum, level);
end;
end;
end;

复制代码

[发帖际遇]: waxyzwa在老顽童处骗取《养蜂秘法》，翻印成《如何饲养文化型蜜蜂》出版后获利银两28.

junbao1111 · 发表于 2009-7-9 21:45

好厉害！加油！金mod就上ai有点落后了！

winson7891 · 发表于 2009-7-10 00:56

看在铁血贴的代码实在是一种挑战（行首间隔太小）

有两问：
1，可以直接用不？看你改了calcanselect这个功能，不禁表示怀疑~因为这个功能是用于多方面的，你加的那句话什么意思？没看懂~

2，吃药的部分呢？原本吃药的判断是在攻击之前的，吃药判断为false才选择攻击，你不是砍了吧？

好，先这么多，我滴一下眼药水继续看~~

waxyzwa · 发表于 2009-7-10 08:08

應該可以直接用吧，其實改好了很久了。。。一直沒拿出來罷了，調試有問題可以聯系我
calcanselect里面加的那句話。是為了在后面判斷價值的時候，標記已經計算過的格子。。防止又算一遍
前面有說，吃藥和視野范圍內沒有人的部分，自己寫寫或者用以前bt大俠編的。。。。

winson7891 · 发表于 2009-7-10 12:31

我就是没有搞明白，何来的又算一遍呢？？？？？？

会出现这样的情况吗？那是什么意思？

如果是选择武功后对每个可视（移动+攻击）格子进行计算和加权，那计算别的武功需要重新计算那是理所当然的吧？（效率低下~10个武功？20个武功？）

除非你使用了随机选择，否则无论如何也不可能重复计算吧？

想不通~~

[发帖际遇]: winson7891借钱给游坦之整容，手术成功，多还你银两15.

waxyzwa · 发表于 2009-7-10 12:59

會啦，因為先選可以移動的地方，再選可攻擊的范圍，所以肯定會有重復的點，雖然說很多mod會把距離也作為傷害的考量，但是為了把計算簡化，我把這部分就忽略了。。。。

独霸天下 · 发表于 2009-7-10 13:16

太乱啦，看不明百啊，

[发帖际遇]: 独霸天下在华山山谷捡到被令狐冲打落的宝剑，送回给宁女侠，宁女侠感谢万分，送你银两28.

winson7891 · 发表于 2009-7-10 23:44

原帖由 waxyzwa 于 2009-7-10 12:59 发表
會啦，因為先選可以移動的地方，再選可攻擊的范圍，所以肯定會有重復的點，雖然說很多mod會把距離也作為傷害的考量，但是為了把計算簡化，我把這部分就忽略了。。。。

那你的算法恐怕有很大的问题~~~~~~~~~~~~~这种重复可能会在移动范围扩大时会跟着扩大

而且每个武功要算一遍~这……

如果要用加权的算法，应该先选武功种类，再跟移动范围结合来计算吧~~

一点建议~~希望你早日作出人性化智能化的AI~

[发帖际遇]: winson7891完成赞美飞天神龙洪安通巨侠的对联一副，得到赏赐银两15。

waxyzwa · 发表于 2009-7-11 07:37

武功種類不是很好確定，只能確定是傷害類的，因為各個mod制作人做的武功很不好說，哪種高，哪種低。不過我跟著算法走了一下，這個重復應該是差不多影響降的很低了，能不能再降，可能還要在研究研究。
或者從注釋上寫的一樣，用判斷大致哪個（方向或范圍）攻擊合適的函數，我覺得這個函數不是很難，所以也沒去寫，或者說暫時不想寫ai這一塊了，所以寫了一段程序，拋磚引玉咯

[发帖际遇]: waxyzwa偷得虚竹身上的美女图卷轴，卖给段誉，得银子银两2。

waxyzwa · 发表于 2009-7-11 07:41

有了，面攻和點攻的這句
for i3 := max(i1-dis0, 0) to min(i1+dis0, 63) do
for i4 := max(i2-dis0, 0) to min(i2+dis0, 63) do
改作
for i3 := max(i1, 0) to min(i1+dis0, 63) do
for i4 := max(i2, 0) to min(i2+dis0, 63) do
應該還是可以達到遍歷，能降低不少運算量的。。。有興趣可以嘗試一下，最近在研究路徑，頭都暈咯，暫時不測試ai了

[发帖际遇]: waxyzwa发现瘫痪在地的殷梨亭，从他身上偷得银两8.

账号		自动登录	找回密码
密码			我要成为铁血侠客

[通用] [抛砖引玉]放一些我改过的ai(pascal版)

马上注册，结交更多侠友！