获取敌方城门的地图ID

wangzhen

(defconst wall-class 927);石墙
(defconst gate-class 939);城门
(defconst gl-wall-id 129);获取石墙的地图ID(defconst gl-point2x 130);获得友军位置
(defconst gl-temppoint1x 131);临时判断坐标X
(defconst gl-temppoint1y 132);临时判断坐标Y
;假设通过DUC获取到需要攻击目标 判断攻击目标不可达 执行攻击城门
(defrule
(true)
=>
(up-full-reset-search)
(up-find-local c: 453 c: 1);寻找一个友军单位
(up-get-point position-object gl-point2x);获得友军单位的位置
(up-copy-point gl-temppoint1x gl-point2x)
(up-modify-goal gl-temppoint1x c:- 1);以友军位置判断往地图左边一格
)

(defrule
(not(up-point-contains gl-temppoint1x c: 939))
=>
(up-get-point position-object gl-lumbercamppoint2x)
(up-copy-point gl-temppoint1x gl-lumbercamppoint2x)
(up-modify-goal gl-temppoint1x c:+ 1);以友军位置判断往地图右边一格
)

(defrule
(not(up-point-contains gl-temppoint1x c: 939))
=>
(up-get-point position-object gl-lumbercamppoint2x)
(up-copy-point gl-temppoint1x gl-lumbercamppoint2x)
(up-modify-goal gl-temppoint1y c:- 1);以友军位置判断往地图上边一格
)

(defrule
(not(up-point-contains gl-temppoint1x c: 939))
=>
(up-get-point position-object gl-lumbercamppoint2x)
(up-copy-point gl-temppoint1x gl-lumbercamppoint2x)
(up-modify-goal gl-temppoint1y c:+ 1);以友军位置判断往地图下边一格
)

(defrule
(up-point-contains gl-temppoint1x c: 939)
=>
(up-get-point-contains gl-temppoint1x gl-wall-id c: 939)
)

(defrule
(up-compare-goal gl-wall-id c:!= -1)
(up-compare-goal gl-wall-id c:!= -2)
=>
(up-set-target-by-id g: gl-wall-id)
(up-target-objects 1 action-default -1 -1)
(disable-self)
)