--- deliantra/server/common/holy.C	2007/01/02 23:39:21	1.6
+++ deliantra/server/common/holy.C	2007/05/17 21:32:08	1.9
@@ -1,3 +1,26 @@
+/*
+ * CrossFire, A Multiplayer game
+ *
+ * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
+ * Copyright (C) Mark Wedel & Crossfire Development Team
+ * Copyright (C) Frank Tore Johansen
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ * The authors can be reached via e-mail at <crossfire@schmorp.de>
+ */
 
 /* Started file Sept 1996 - initialization of gods in form of a
  * linked list -b.t.
@@ -28,10 +51,9 @@
 void
 init_gods (void)
 {
-  archetype *at = NULL;
-
   LOG (llevDebug, "Initialising gods...\n");
-  for (at = first_archetype; at != NULL; at = at->next)
+
+  for (archetype *at = first_archetype; at; at = at->next)
     if (at->clone.type == GOD)
       add_god_to_list (at);
 
@@ -107,12 +129,13 @@
   int i;
 
   if (god)
-    for (i = RANDOM () % (god->id) + 1; god; god = god->next)
+    for (i = rndm (god->id) + 1; god; god = god->next)
       if (god->id == i)
         break;
 
   if (!god)
     LOG (llevError, "get_rand_god(): can't find a random god!\n");
+
   return god;
 }