From 83b2feffa6c06005002b564382cf6192cbd082db Mon Sep 17 00:00:00 2001
From: Enno Rehling <enno@eressea.de>
Date: Fri, 18 Nov 2005 21:02:29 +0000
Subject: [PATCH] Wyrms are solitary creatures.

---
 src/common/gamecode/monster.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/common/gamecode/monster.c b/src/common/gamecode/monster.c
index 5362c6543..5b0a3b217 100644
--- a/src/common/gamecode/monster.c
+++ b/src/common/gamecode/monster.c
@@ -843,6 +843,18 @@ plan_dragon(unit * u)
     move |= (r->land==0 || r->land->money==0); /* when no money, move */
   }
   move |= chance(0.04); /* 4% chance to change your mind */
+
+  if (u->race==new_race[RC_WYRM] && !move) {
+    unit * u2;
+    for (u2=r->units;u2;u2=u2->next) {
+      /* wyrme sind einzelgänger */
+      if (u2!=u && u2->race==u->race && chance(0.5)) {
+        move = true;
+        break;
+      }
+    }
+  }
+
   if (move) {
     /* dragon gets bored and looks for a different place to go */
     ta = set_new_dragon_target(u, u->region, DRAGON_RANGE);