Implemented cyclopes.

Author: Kodiologist

simalq/tile/monster.hy

@@ -214,8 +214,12 @@
     (when (is d None)
       ; The player is in our square. Just give up.
       (return F))
-    (when reverse
-      (setv d d.opposite))
+    (if reverse
+      (setv d d.opposite)
+      (when (and (adjacent? @pos G.player.pos) (in d Direction.orths))
+        ; We're already as close as we can get, without entering the
+        ; player's square.
+        (return F)))
 
     (setv target None)
     (defn ok-target []
@@ -895,6 +899,15 @@
   :flavor "An animated statue with dull senses and unbelievable strength.\n\n    I have a big ol' golem.\n    I made it out of clay.\n    And when it's dry and ready,\n    Oh people I shall slay.")
 
 
+(deftile "C " "a cyclops" Approacher
+  :iq-ix 164
+  :destruction-points 100
+
+  :immune #(PlayerMelee MundaneArrow MagicArrow)
+
+  :flavor "A one-eyed gentle giant carrying a shield the size of a refrigerator, against which even magic arrows are useless. Abiding by a philosophy of nonviolent resistance against kyriarchy, he will do his best to obstruct you without hurting a hair on your head.")
+
+
 (defclass Lord [Approacher Summoner]
 
   (setv

simalq/tile/unimplemented.hy

@@ -19,7 +19,6 @@
 (do-mac `(do ~@(gfor [iq-ix stem] [
 
     [152 "random_gate"]
-    [164 "cyclops"]
     [178 "magical_barrier_generator"]
     [184 "giant_ant"]
     [185 "dark_brain"]

tests/test_monster.hy

@@ -913,6 +913,29 @@
   (assert-at [3 0] "golem"))
 
 
+(defn test-cyclops []
+
+  ; Cyclopes approach, but don't attack.
+  (init [:tiles ['floor "cyclops"]])
+  (wait 1)
+  (assert-at 'E "cyclops")
+  (wait 5)
+  (assert (= G.player.hp 100))
+  ; They're immune to swords and arrows.
+  (wk 'E)
+  (shoot 'E)
+  (assert-at 'E "cyclops")
+
+  ; Contra IQ, cyclopes will try to get orthogonal to you even if
+  ; they're diagonally adjacent and there are no diagonal blockers.
+  (init [
+    :map "
+       @ .
+       . C"])
+  (wait)
+  (assert-at 'S "cyclops"))
+
+
 (defn test-lord []
   "This test effectively covers archdevils and Dark Princes, which are
   special cases of Lords of the Undead."