From 6ab7cdfdc92dc337ec483f3a70ab38560b5aeb63 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Sun, 6 Oct 2019 13:13:00 -0400 Subject: Only allow adjacent gormlaks to attack Previously the isUnit function was falsely returning `True` for positions that were one tile off in *either* direction from the character, when it should've been *both*. Oops. --- src/Xanthous/Data.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Xanthous/Data.hs b/src/Xanthous/Data.hs index ff11a8da7f80..b7df191e58a8 100644 --- a/src/Xanthous/Data.hs +++ b/src/Xanthous/Data.hs @@ -136,7 +136,8 @@ diffPositions (Position x₁ y₁) (Position x₂ y₂) = Position (x₁ - x₂) -- -- ∀ dir :: Direction. isUnit ('asPosition' dir) isUnit :: Position -> Bool -isUnit (Position px py) = abs px == 1 || abs py == 1 +isUnit (Position px py) = + abs px `elem` [0,1] && abs py `elem` [0, 1] && (px, py) /= (0, 0) -------------------------------------------------------------------------------- -- cgit 1.4.1