From b18c0a636f4731ac5f1db79b178285903889f30a Mon Sep 17 00:00:00 2001
From: weiss <arne.weiss@udo.edu>
Date: Sun, 12 Apr 2020 06:47:30 +0200
Subject: [PATCH] fixed mine bug

---
 code_royal/src/Main.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code_royal/src/Main.purs b/code_royal/src/Main.purs
index 302b5d9..2c1ecd2 100644
--- a/code_royal/src/Main.purs
+++ b/code_royal/src/Main.purs
@@ -242,7 +242,7 @@ nearFreeSites :: forall a. { x :: Int, y :: Int | a } -> Array Site -> Array Sit
 nearFreeSites minion sites = sortBy (compareSiteDist minion) (freeSites sites)
 
 nearNonEmptyMines :: forall x. { x :: Int, y :: Int | x } -> Array Site -> Array Site
-nearNonEmptyMines minion sites = filter (\s -> s.gold > 20 && s.lvl < 5 && s.owner /= 1) $ nearSites minion sites
+nearNonEmptyMines minion sites = filter (\s -> (s.gold > 20 || s.gold == -1) && s.lvl < 5 && s.owner /= 1) $ nearSites minion sites
 
 hasKnightsBarrack :: Array Site -> Boolean
 hasKnightsBarrack sites = any (\s -> s.param2 == 0) (friendlySites sites)