1.4 AI 練習實例：遮蔽建築效果

troytroytroy · 发表于 2016-3-23 01:48:12

本帖最后由这只话唠菜鹰是路人于 2016-11-22 00:40 编辑

前言：

在製作傭兵的歲月裡的某一天，(帥氣的)哈羅德在QQ上問了一個問題：可否用1.4的AI寫出類似以下的判斷語句，這裡我用一個生活化的例子來說明：

在遙遠的未來，狂熊終於交了一個女友。

但是這個女友相當霸道，不准狂熊繼續打帝國和上翔鷹。

可憐的狂熊只好在女友視線看不到的地方打帝國。

一日，這對情侶來到一個環型的公園，

公園中間樹木茂盛，看不到對面。

狂熊就趁這個機會逃到了對面：

A:狂熊女友，B:狂熊

現在狀況是：因為中間樹木茂密遮住視野的關係，狂熊女友看不到狂熊

但是萬一狂熊或是他女友移動了相對位置，造成狂熊和女友間沒有遮蔽物：

那麼狂熊就會被女友發現，再也不能玩帝國了。

這就是(帥氣的)哈羅德當時所問的問題核心。雖然他當時沒有想到這麼完美的例子。

當時Ru和我提出了不同的想法，而我簡略的動手寫了一下AI來測試。當時的效果並不太理想，加上因為在趕火十一截止的關係，最後不了了之。因此這個想法一直到現在才發表出來。我必須強調的是，這個AI語句可能還有相當大的改進空間，所以也許有更多戰役制作者看完後可以嘗試改良。

(本文基礎建立於條頓武士的[教程] 闪闪发光新时代——翔鹰1.4版新AI效果示例（第二弹）一文。請初學者先學習該文內容再閱讀本文。此外，本文需要一些基礎數學知識。國小學生可以請教年長的朋友關於其中的知識，以達到寓教於樂的雙重效果。)

想法：

我的想法如下：我們先假設中間的遮蔽物(綠色區域)為圓形，圓心為P，半徑為1單位。並同時假設狂熊位置為Q、狂熊女友位置為R。則我們可以假設三角形PQR的各邊為A、B和C，如下面的簡圖所示：

對於Q點而言，除非R落入下圖所畫的灰色區域，不然必定會被R察覺：

因此Q被R"發現"的充要條件為：1. 角PQR>角PQS 或 2. QR<QS。假設角PQR=θ1、角PQS=θ2，則θ1>θ2在皆為銳角的條件之下，當且僅當

cosθ1< cosθ2;

因此使用餘弦定理加上AI的計算距離語句，我們就可以寫出這個AI。

AI碼：

下面這一段是AI碼，我會逐一解說每段的意義。以下我們假設這堆障礙物的半徑為2格(設為一格會有點問題，這我們之後在予以討論)。原始碼如下

我們一段段來看：首先第一段是定義一些變數：

(P-1,P-2) 為 P 點座標，(Q-1,Q-2)為Q點座標，(R-1,R-2)為R點座標。我們要計算的cosθ1根據餘弦定理為

cosθ1=(A^2+B^2-C^2)/2AB;

另一方面，由於cosθ2可以直接由直角三角形QPS得到，我們有

(cosθ2)^2=A^2-4/A^2。

這裡一個小問題是，1.4的AI只能記憶整數，因此像是除法這類會造成小數的運算都必須避免。因此我們假設

Asq=A^2;

Bsq=B^2;

Csq=C^2;

ABsq=(2AB)^2;

AXsq=A^2;

nu-1=A^2-4；

nu-2=(A^+B^2-C^2)^2；

k-3=A^2-4=QS距離;

則不等式 cosθ1> cosθ2的充要條件為 nu-2/ABsq > nu-1/AXsq。為了避免除法，兩邊通分得到：

(nu-2)*(AXsq)>(nu-1)*(ABsq)。

我們假設式子兩邊的量為k-1和k-2。這就是這一段代碼的變數定義。

這一段是在計算Asq、Bsq、Csq。首先，(set-goal 1 0)這一段是在設置默認狀態，不懂的可以參考條頓武士的那篇文章。第二段是記憶 P、Q、R的座標。然後 "(up-get-point-distance P-1 Q-1 Asq)" 是指把P到Q的距離記錄為Asq。到此為止都是根據參考條頓武士的文章直接應用。

現在，記得我們的Asq是A平方。所以我們記得在最後必須再把這些數值都平方一遍。ABsq則是(2AB)^2，所以就是如下運算：

(up-modify-goal ABsq g:= Asq)

(up-modify-goal ABsq g:* Bsq)

(up-modify-goal ABsq g:* ABsq)

(up-modify-goal ABsq c:* 4)

這段很容易理解，基本上我們以經有所有nu-1、nu-2 所需要的數值了，只要計算即可。然後，把k-1、k-2計算出來並且比較大小，最後記得考慮QS與QR的距離關係，也就是k-3與Bsq的大小關係。(cc-add-resource ... )只是用於外部觸發方便，等到需要製做戰役時可以用這些資源編寫觸發。

結語：

這個AI目前還有許多可以探討的層面。有一個方面是"區域可否再縮小"。這個我覺得很難，原因是因為AI記算距離仍舊以格為單位。因此小範圍的情況下在一格範圍裡的資訊對於AI來說是沒有差別的。但是在玩家眼中可能有非常大的差距。

附上狂熊與女友的小劇場，用上述AI製成的小演示場景。

troytroytroy · 发表于 2016-3-23 02:04:17

本帖最后由 tryotryotryo 于 2016-3-24 00:23 编辑

感謝一竅不開找到一個距離檢測的問題，已修正。
祝狂熊幸福。以上AI碼可以自由取用，版權沒有，抄襲不究。

狂~劇情狂 · 发表于 2016-3-23 02:40:34

為什麼又是我中槍……
除了 set-goal 1 和 di 外, 其他似乎都應該用 up-modify-goal g:=

一窍不开 · 发表于 2016-3-23 05:01:39

本帖最后由一窍不开于 2016-3-23 05:10 编辑

如果只是比较k-1与k-2的大小的话，完全可以用(up-compare-goal k-1 g:< k-2)替代加减步骤。

还有就是楼上狂叔说的小问题，以及似乎有一点小小的计算错误？

我试着改了改，并且加上了距离检测，弄成了完整的AI，或许可以参考一下？(并未测试，并且默认狂叔不会躲在树林里打帝国)

(defconst position-object 12)
(defconst P-1 100)
(defconst P-2 101)
(defconst Q-1 102)
(defconst Q-2 103)
(defconst R-1 104)
(defconst R-2 105)
(defconst A 201)
(defconst B 202)
(defconst C 203)
(defconst AB 204)
(defconst nu-1 206)
(defconst nu-2 207)
(defconst k-1 208)
(defconst k-2 209)
(defconst tan 300)
(defrule
(true)
=>
(set-goal 1 0)
(disable-self)
)
(defrule
(true)
=>
(up-set-target-by-id c: 0)
(up-get-point position-object P-1)
(up-set-target-by-id c: 1)
(up-get-point position-object Q-1)
(up-set-target-by-id c: 2)
(up-get-point position-object R-1)
)
(defrule
(true)
=>
(up-get-point-distance P-1 Q-1 A)
(up-get-point-distance Q-1 R-1 B)
(up-get-point-distance P-1 R-1 C)
)
(defrule
(true)
=>
(up-modify-goal AB g:= A)
(up-modify-goal AB g:* B)
(up-modify-goal AB g:* AB)
(up-modify-goal A g:* A)
(up-modify-goal B g:* B)
(up-modify-goal C g:* C)
)
(defrule
(true)
=>
(up-modify-goal nu-1 g:= A)
(up-modify-goal nu-1 g:+ B)
(up-modify-goal nu-1 g:- C)
(up-modify-goal nu-1 g:* nu-1)
(up-modify-goal nu-2 g:= A)
(up-modify-goal nu-2 g:+ A)
(up-modify-goal nu-2 c:- 2)
(up-modify-goal nu-2 g:* nu-2)
)
(defrule
(true)
=>
(up-modify-goal k-1 g:= nu-1)
(up-modify-goal k-1 g:* A)
(up-modify-goal k-2 g:= AB)
(up-modify-goal k-2 g:* nu-2)
)
(defrule
(true)
=>
(up-modify-goal tan g:= A)
(up-modify-goal tan c:- 1)
)
(defrule
(goal 1 0)
(or
(up-compare-goal k-1 g:< k-2)
(up-compare-goal B g:< tan )
)
=>
(chat-to-all "Be DETECTED!")
(cc-add-resource gold 1)
(set-goal 1 1)
)
(defrule
(goal 1 1)
(up-compare-goal k-1 g:>= k-2)
(up-compare-goal B g:>= tan )
=>
(chat-to-all "In the shadow...")
(cc-add-resource wood 1)
(set-goal 1 0)
)

复制代码

当然如果是方形的建筑这个AI就不适用了，还需要另建模型。

拔山盖世 · 发表于 2016-3-23 12:43:19

这个未来，遥不可及啊，23333

Howerds · 发表于 2016-3-23 13:46:56

非常不错！理论上实现的算法有很多，比如检测圆心到两人连线的距离小于半径，也是挺复杂的，不过最关键的是“精确度”的问题，ai貌似是四舍五入到个位的……我觉得最好是能找到精确度最高的算法（不知道理论可不可行）……

258791 · 发表于 2016-3-23 15:32:18

Howerds 发表于 2016-3-23 13:46
非常不错！理论上实现的算法有很多，比如检测圆心到两人连线的距离小于半径，也是挺复杂的，不过最关键的是 ...

昨晚玩海与山差点玩通宵，惊为天作，给萌萌哒的作者点赞

troytroytroy · 发表于 2016-3-23 22:11:26

258791 发表于 2016-3-23 15:32
昨晚玩海与山差点玩通宵，惊为天作，给萌萌哒的作者点赞

哈羅德先生、哈羅德先生，請到七樓櫃台領回你走失的粉絲 @Howerds

弗兰 · 发表于 2016-3-23 22:57:29

实在太屌

troytroytroy · 发表于 2016-3-26 01:29:31

是不是寫太難都乏人問津。

雨果 · 发表于 2016-4-9 14:27:55

		自动登录	找回密码
密码			注册翔鹰会员(昵称)

[教程] 1.4 AI 練習實例：遮蔽建築效果

本帖子中包含更多资源

评分

点评

点评

点评

点评

评分

翔鹰建站十周年纪念章

二级帝国勋章

一级翔鹰勋章

二级嘉禾勋章

大评论家

小评论家

创意工坊通行证

第十一届火箭筒杯最佳战役

翔鹰建站十周年大纪念章

特级帝国勋章

特级翔鹰勋章

特级嘉禾勋章

一级皇家勋章

鹰之智者

蛟龙勋章

十字军勋章

大冒险家

狂熊勋章

一级嘉禾勋章

翔六水王

三级帝国勋章

活跃者

三级嘉禾勋章

雄鹰勋章

第九届火箭筒杯优秀战役

第九届火箭筒杯最佳新人

第十届火箭筒杯最佳战役

第十二届火箭筒杯最佳战役