properly create missing monster faction when spawning dragons.

src/kernel/faction.c

@@ -105,40 +105,44 @@ void set_show_item(faction * f, const struct item_type *itype)
     a->data.v = (void *)itype;
 }
 
-faction *get_monsters(void)
-{
 static faction *monsters;
-  static int gamecookie = -1;
 
-  if (gamecookie != global.cookie) {
-    monsters = NULL;
-    gamecookie = global.cookie;
-  }
-
-  if (!monsters) {
+faction *get_monsters(void) {
     faction *f;
+
     for (f = factions; f; f = f->next) {
         if ((f->flags & FFL_NPC) && !(f->flags & FFL_DEFENDER)) {
             return monsters = f;
         }
     }
-    if (!monsters) {
-      /* shit! */
-      monsters = findfaction(666);
+    return 0;
 }
-    if (!monsters) {
+
+faction *get_or_create_monsters(void)
+{
+    faction *f = get_monsters();
+    static int gamecookie = -1;
+    if (gamecookie != global.cookie) {
+        monsters = NULL;
+        gamecookie = global.cookie;
+    }
+
+    if (!f) {
+        /* shit! */
+        f = findfaction(666);
+    }
+    if (!f) {
         const race *rc = rc_find("dragon");
-        faction *f = addfaction("noreply@eressea.de", NULL, rc, NULL, 0);
+            
+        f = addfaction("noreply@eressea.de", NULL, rc, NULL, 0);
         renumber_faction(f, 666);
         faction_setname(f, "Monster");
         f->options = 0;
-        monsters = f;
     }
-    if (monsters) {
-      fset(monsters, FFL_NPC | FFL_NOIDLEOUT);
+    if (f) {
+        fset(f, FFL_NPC | FFL_NOIDLEOUT);
     }
-  }
-  return monsters;
+    return monsters = f;
 }
 
 const unit *random_unit_in_faction(const faction * f)
@@ -170,7 +174,8 @@ const char *factionname(const faction * f)
 
     if (f && f->name) {
         slprintf(ibuf, sizeof(name), "%s (%s)", f->name, itoa36(f->no));
-  } else {
+    }
+    else {
         strcpy(ibuf, "Unbekannte Partei (?)");
     }
     return ibuf;
@@ -211,7 +216,6 @@ faction *addfaction(const char *email, const char *password,
     faction *f = calloc(sizeof(faction), 1);
     char buf[128];
 
-  assert(frace || !"cannot create a faction that has no race");
     if (set_email(&f->email, email) != 0) {
         log_error("Invalid email address for faction %s: %s\n", itoa36(f->no), email);
     }
@@ -242,6 +246,10 @@ faction *addfaction(const char *email, const char *password,
     slprintf(buf, sizeof(buf), "%s %s", LOC(loc, "factiondefault"), factionid(f));
     f->name = _strdup(buf);
 
+    if (!f->race) {
+        log_warning("creating a faction that has no race", factionid(f));
+    }
+
     return f;
 }
 
@@ -322,7 +330,8 @@ void destroyfaction(faction * f)
             unit *zombie = u;
             u = u->nextF;
             make_zombie(zombie);
-    } else {
+        }
+        else {
             region *r = u->region;
 
             if (!fval(r->terrain, SEA_REGION) && !!playerrace(u_race(u))) {
@@ -338,7 +347,8 @@ void destroyfaction(faction * f)
                      * stammen */
                     if (rc->ec_flags & ECF_REC_HORSES) {  /* Zentauren an die Pferde */
                         h += u->number;
-          } else {              /* Orks zählen nur zur Hälfte */
+                    }
+                    else {              /* Orks zählen nur zur Hälfte */
                         p += (int)(u->number * rc->recruit_multi);
                     }
                     for (itm = u->items; itm; itm = itm->next) {
@@ -591,7 +601,8 @@ int skill_limit(faction * f, skill_t sk)
     }
     if (sk == SK_MAGIC) {
         m = max_magicians(f);
-  } else if (sk == SK_ALCHEMY) {
+    }
+    else if (sk == SK_ALCHEMY) {
         m = get_param_int(global.parameters, "rules.maxskills.alchemy",
             MAXALCHEMISTS);
     }

src/kernel/faction.h

@@ -114,6 +114,7 @@ typedef struct faction {
 extern struct faction *factions;
 
 struct faction *get_monsters(void);
+struct faction *get_or_create_monsters(void);
 int max_magicians(const faction * f);
 void set_show_item(faction * f, const struct item_type *itype);
 

src/monsters.c

@@ -889,7 +889,7 @@ static int nrand(int start, int sub)
 void spawn_dragons(void)
 {
   region *r;
-  faction *monsters = get_monsters();
+  faction *monsters = get_or_create_monsters();
 
   for (r = regions; r; r = r->next) {
     unit *u;