server.c

Go to the documentation of this file.

/*
 * Crossfire -- cooperative multi-player graphical RPG and adventure game
 *
 * Copyright (c) 1999-2014 Mark Wedel and the Crossfire Development Team
 * Copyright (c) 1992 Frank Tore Johansen
 *
 * Crossfire is free software and comes with ABSOLUTELY NO WARRANTY. You are
 * welcome to redistribute it under certain conditions. For details, please
 * see COPYING and LICENSE.
 *
 * The authors can be reached via e-mail at <crossfire@metalforge.org>.
 */

#include "global.h"

#include <assert.h>
#include <ctype.h>
#include <fcntl.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#ifndef WIN32
#include <unistd.h>
#endif

/* FIXME: This is required on certain systems to get crypt(3) to work. */
#ifdef HAVE_CRYPT_H
#include <crypt.h>
#endif

#include "object.h"
#include "path.h"
#include "random_maps/random_map.h"
#include "random_maps/rproto.h"
#include "sproto.h"
#include "tod.h"
#include "version.h"
#include "server.h"

const static int shutdown_warn_times[] = {120, 90, 60, 45, 30, 15, 10, 5, 4, 3, 2, 1};

static const char *days[] = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};

static char const* crypt_string(char const str[static 1], char const* salt) {
#if defined(WIN32) || (defined(__FreeBSD__))
    // Legacy configuration: use crypt everywhere but on Windows and FreeBSD
    if (settings.crypt_mode == 0) {
        return str;
    }
#endif
    char s[3];

    if (salt == NULL) {
        /* Generate a two-character salt for the DES cipher.
         * We want the salt to be in this character set.
         */
        static const char *const c =
            "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./";
        s[0] = c[RANDOM()%(int)strlen(c)],
        s[1] = c[RANDOM()%(int)strlen(c)];
    } else {
        s[0] = salt[0],
        s[1] = salt[1];
    }
    s[2] = '\0';

    return crypt(str, s);
}

char const* newhash(char const password[static 1]) {
    return crypt_string(password, NULL);
}

bool check_password(const char *typed, const char *crypted) {
    // An empty hashed password only matches an empty input password.
    if (strlen(crypted) == 0) {
        return strlen(typed) == 0 ? true : false;
    }

    const char *typed_hashed = crypt_string(typed, crypted);
    if (typed_hashed != NULL) {
        return strcmp(typed_hashed, crypted) == 0;
    } else {
        LOG(llevError, "Could not check password with stored hash %s\n", crypted);
        return false;
    }
}

void enter_player_savebed(object *op) {
    mapstruct *oldmap = op->map;
    object *tmp;

    tmp = object_new();

    EXIT_PATH(tmp) = add_string(op->contr->savebed_map);
    EXIT_X(tmp) = op->contr->bed_x;
    EXIT_Y(tmp) = op->contr->bed_y;
    enter_exit(op, tmp);
    /* If the player has not changed maps and the name does not match
     * that of the savebed, his savebed map is gone.  Lets go back
     * to the emergency path.  Update what the players savebed is
     * while we're at it.
     */
    if (oldmap == op->map && strcmp(op->contr->savebed_map, oldmap->path)) {
        LOG(llevDebug, "Player %s savebed location %s is invalid - going to emergency location (%s)\n",
                settings.emergency_mapname, op->name, op->contr->savebed_map);
        safe_strncpy(op->contr->savebed_map, settings.emergency_mapname, MAX_BUF);
        op->contr->bed_x = settings.emergency_x;
        op->contr->bed_y = settings.emergency_y;
        free_string(op->contr->savebed_map);
        EXIT_PATH(tmp) = add_string(op->contr->savebed_map);
        EXIT_X(tmp) = op->contr->bed_x;
        EXIT_Y(tmp) = op->contr->bed_y;
        enter_exit(op, tmp);
    }
    object_free(tmp, FREE_OBJ_NO_DESTROY_CALLBACK);
}

static void enter_map(object *op, mapstruct *newmap, int x, int y) {
    mapstruct *oldmap = op->map;

    if (out_of_map(newmap, x, y)) {
        LOG(llevError, "enter_map: supplied coordinates are not within the map! (%s: %d, %d)\n", newmap->path, x, y);
        /* If op has invalid (probably -1,-1) coordinates, force them to a correct value, else issues later on. */
        if (op->x == x)
            op->x = MAP_ENTER_X(newmap);
        if (op->y == y)
            op->y = MAP_ENTER_Y(newmap);
        x = MAP_ENTER_X(newmap);
        y = MAP_ENTER_Y(newmap);
        if (out_of_map(newmap, x, y)) {
            LOG(llevError, "enter_map: map %s provides invalid default enter location (%d, %d) > (%d, %d)\n", newmap->path, x, y, MAP_WIDTH(newmap), MAP_HEIGHT(newmap));
            draw_ext_info(NDI_UNIQUE, 0, op, MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_FAILURE,
                          "The exit is closed");
            return;
        }
    }
    /* try to find a spot for the player */
    if (ob_blocked(op, newmap, x, y)) {        /* First choice blocked */
        /* We try to find a spot for the player, starting closest in.
         * We could use object_find_first_free_spot(), but that doesn't randomize it at all,
         * So for example, if the north space is free, you would always end up there even
         * if other spaces around are available.
         * Note that for the second and third calls, we could start at a position other
         * than one, but then we could end up on the other side of walls and so forth.
         */
        int i = object_find_free_spot(op, newmap, x, y, 1, SIZEOFFREE1+1);
        if (i == -1) {
            i = object_find_free_spot(op, newmap, x, y, 1, SIZEOFFREE2+1);
            if (i == -1)
                i = object_find_free_spot(op, newmap, x, y, 1, SIZEOFFREE);
        }
        if (i != -1) {
            x += freearr_x[i];
            y += freearr_y[i];
        } else {
            /* not much we can do in this case. */
            LOG(llevInfo, "enter_map: Could not find free spot for player - will dump on top of object (%s: %d, %d)\n", newmap->path, x, y);
        }
    } /* end if looking for free spot */

    /* If it is a player login, he has yet to be inserted anyplace.
     * otherwise, we need to deal with removing the playe here.
     */
    if (!QUERY_FLAG(op, FLAG_REMOVED))
        object_remove(op);
    /* object_remove clears these so they must be reset after the object_remove() call */
    object_insert_in_map_at(op, newmap, NULL, INS_NO_WALK_ON, x, y);

    object_set_enemy(op, NULL);

    if (op->contr) {
        safe_strncpy(op->contr->maplevel, newmap->path,
                sizeof(op->contr->maplevel));
        op->contr->count = 0;
    }

    /* Update any golems */
    if (op->type == PLAYER && op->contr->ranges[range_golem] != NULL) {
        int i = object_find_free_spot(op->contr->ranges[range_golem], newmap, x, y, 1, SIZEOFFREE);
        object_remove(op->contr->ranges[range_golem]);
        if (i == -1) {
            remove_friendly_object(op->contr->ranges[range_golem]);
            object_free_drop_inventory(op->contr->ranges[range_golem]);
            op->contr->ranges[range_golem] = NULL;
            op->contr->golem_count = 0;
        } else {
            object_insert_in_map_at(op->contr->ranges[range_golem], newmap, NULL, 0, x+freearr_x[i], y+freearr_y[i]);
            op->contr->ranges[range_golem]->direction = find_dir_2(op->x-op->contr->ranges[range_golem]->x, op->y-op->contr->ranges[range_golem]->y);
        }
    }
    op->direction = 0;

    /* since the players map is already loaded, we don't need to worry
     * about pending objects.
     */
    pets_remove_all();

    /* If the player is changing maps, we need to do some special things
     * Do this after the player is on the new map - otherwise the force swap of the
     * old map does not work.
     */
    if (oldmap != newmap) {
        player_map_change_common(op, oldmap, newmap);
    }

    map_newmap_cmd(&op->contr->socket);
}

void player_map_change_common(object* op, mapstruct* const oldmap,
                              mapstruct* const newmap) {
    if (oldmap != NULL) {
        /* Lauwenmark : Here we handle the MAPLEAVE global event */
        execute_global_event(EVENT_MAPLEAVE, op, oldmap);

        /* can be less than zero due to errors in tracking this */
        if (oldmap->players <= 0) {
            set_map_timeout(oldmap);
        }
    }

    /* Lauwenmark : Here we handle the MAPENTER global event */
    execute_global_event(EVENT_MAPENTER, op, newmap);
    newmap->timeout = 0;
    player_update_bg_music(op);
}

void set_map_timeout(mapstruct *oldmap) {
#if MAP_MAXTIMEOUT
    oldmap->timeout = MAP_TIMEOUT(oldmap);
    /* Do MINTIMEOUT first, so that MAXTIMEOUT is used if that is
     * lower than the min value.
     */
#if MAP_MINTIMEOUT
    if (oldmap->timeout < MAP_MINTIMEOUT) {
        oldmap->timeout = MAP_MINTIMEOUT;
    }
#endif
    if (oldmap->timeout > MAP_MAXTIMEOUT) {
        oldmap->timeout = MAP_MAXTIMEOUT;
    }
#else
    /* save out the map */
    swap_map(oldmap);
#endif /* MAP_MAXTIMEOUT */
}

static char *clean_path(const char *file, char *newpath, int size) {
    char *cp;

    strlcpy(newpath, file, size);
    for (cp = newpath; *cp != '\0'; cp++) {
        if (*cp == '/')
            *cp = '_';
    }
    return newpath;
}

static char *unclean_path(const char *src, char *newpath, int size) {
    char *cp;

    cp = strrchr(src, '/');
    if (cp)
        strlcpy(newpath, cp+1, size);
    else
        strlcpy(newpath, src, size);

    for (cp = newpath; *cp != '\0'; cp++) {
        if (*cp == '_')
            *cp = '/';
    }
    return newpath;
}


static void enter_random_map(object *pl, object *exit_ob) {
    mapstruct *new_map;
    char newmap_name[HUGE_BUF], buf[HUGE_BUF], *cp;
    static int reference_number = 0;
    RMParms rp;

    memset(&rp, 0, sizeof(RMParms));
    rp.Xsize = -1;
    rp.Ysize = -1;
    rp.region = get_region_by_map(exit_ob->map);
    if (exit_ob->msg)
        set_random_map_variable(&rp, exit_ob->msg);
    rp.origin_x = exit_ob->x;
    rp.origin_y = exit_ob->y;
    safe_strncpy(rp.origin_map, pl->map->path, sizeof(rp.origin_map));

    /* If we have a final_map, use it as a base name to give some clue
     * as where the player is.  Otherwise, use the origin map.
     * Take the last component (after the last slash) to give
     * shorter names without bogus slashes.
     */
    if (rp.final_map[0]) {
        cp = strrchr(rp.final_map, '/');
        if (!cp)
            cp = rp.final_map;
    } else {
        cp = strrchr(rp.origin_map, '/');
        if (!cp)
            cp = rp.origin_map;
        /* Need to strip of any trailing digits, if it has them */
        strlcpy(buf, cp, sizeof(buf));
        while (isdigit(buf[strlen(buf)-1]))
            buf[strlen(buf)-1] = 0;
        cp = buf;
    }

    snprintf(newmap_name, sizeof(newmap_name), "/random/%s%04d", cp+1, reference_number++);

    /* now to generate the actual map. */
    new_map = generate_random_map(newmap_name, &rp, NULL);

    /* Update the exit_ob so it now points directly at the newly created
     * random maps.  Not that it is likely to happen, but it does mean that a
     * exit in a unique map leading to a random map will not work properly.
     * It also means that if the created random map gets reset before
     * the exit leading to it, that the exit will no longer work.
     */
    if (new_map) {
        int x, y;

        x = EXIT_X(exit_ob) = MAP_ENTER_X(new_map);
        y = EXIT_Y(exit_ob) = MAP_ENTER_Y(new_map);
        EXIT_PATH(exit_ob) = add_string(newmap_name);
        strlcpy(new_map->path, newmap_name, sizeof(new_map->path));
        enter_map(pl, new_map, x, y);
    }
}

static void enter_fixed_template_map(object *pl, object *exit_ob) {
    mapstruct *new_map;
    char tmpnum[32], exitpath[HUGE_BUF], resultname[HUGE_BUF], tmpstring[HUGE_BUF], *sourcemap;
    char sourcemap_buf[HUGE_BUF];
    char new_map_name[MAX_BUF];

    /* Split the exit path string into two parts, one
     * for where to store the map, and one for were
     * to generate the map from.
     */
    strlcpy(exitpath, EXIT_PATH(exit_ob)+2, sizeof(exitpath));
    sourcemap = strchr(exitpath, '!');
    if (!sourcemap) {
        draw_ext_info_format(NDI_UNIQUE, 0, pl,
                             MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_FAILURE,
                             "The %s is closed.",
                             exit_ob->name);
        LOG(llevError, "enter_fixed_template_map: Exit %s (%d,%d) on map %s has no source template.\n", exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map->path);
        return;
    }
    *sourcemap++ = '\0';

    /* If we are not coming from a template map, we can use relative directories
     * for the map to generate from.
     */
    if (!exit_ob->map->is_template) {
        /* We can't use exitpath directly, as sourcemap points there. */
        path_combine_and_normalize(exit_ob->map->path, sourcemap, sourcemap_buf, sizeof(sourcemap_buf));
        sourcemap = sourcemap_buf;
    }

    /* Do replacement of %x, %y, and %n to the x coord of the exit, the y coord
     * of the exit, and the name of the map the exit is on, respectively.
     */
    snprintf(tmpnum, sizeof(tmpnum), "%d", exit_ob->x);
    replace(exitpath, "%x", tmpnum, resultname,  sizeof(resultname));

    snprintf(tmpnum, sizeof(tmpnum), "%d", exit_ob->y);
    strlcpy(tmpstring, resultname, sizeof(tmpstring));
    replace(tmpstring, "%y", tmpnum, resultname,  sizeof(resultname));

    strlcpy(tmpstring, resultname, sizeof(tmpstring));
    replace(tmpstring, "%n", exit_ob->map->name, resultname,  sizeof(resultname));

    /* If we are coming from another template map, use reletive paths unless
     * indicated otherwise.
     */
    if (exit_ob->map->is_template && (resultname[0] != '/')) {
        path_combine_and_normalize(exit_ob->map->path, resultname, new_map_name, sizeof(new_map_name));
    } else {
        create_template_pathname(resultname, new_map_name, sizeof(new_map_name));
    }

    /* Attempt to load the map, if unable to, then
     * create the map from the template.
     */
    new_map = ready_map_name(new_map_name, MAP_PLAYER_UNIQUE);
    if (!new_map) {
        char path[MAX_BUF];
        create_pathname(sourcemap, path, MAX_BUF);
        new_map = mapfile_load(path, MAP_PLAYER_UNIQUE);
        if (!new_map) {
            draw_ext_info_format(NDI_UNIQUE, 0, pl, MSG_TYPE_COMMAND,
                                 MSG_TYPE_COMMAND_FAILURE, "The %s is closed.",
                                 exit_ob->name);
            LOG(llevError,
                "Template exit in '%s' (%d, %d) does not reference a valid "
                "template. Make sure a template exists at '%s'.\n",
                exit_ob->map->path, exit_ob->x, exit_ob->y, path);
            return;
        }
    }

    assert(new_map);
    /* set the path of the map to where it should be
     * so we don't just save over the source map.
     */
    strlcpy(new_map->path, new_map_name, sizeof(new_map->path));
    new_map->is_template = 1;
    enter_map(pl, new_map, EXIT_X(exit_ob), EXIT_Y(exit_ob));
}

static void enter_random_template_map(object *pl, object *exit_ob) {
    mapstruct *new_map;
    char tmpnum[32], resultname[HUGE_BUF], tmpstring[HUGE_BUF];
    char new_map_name[MAX_BUF];
    RMParms rp;

    /* Do replacement of %x, %y, and %n to the x coord of the exit, the y coord
     * of the exit, and the name of the map the exit is on, respectively.
     */
    snprintf(tmpnum, sizeof(tmpnum), "%d", exit_ob->x);
    replace(EXIT_PATH(exit_ob)+3, "%x", tmpnum, resultname,  sizeof(resultname));

    snprintf(tmpnum, sizeof(tmpnum), "%d", exit_ob->y);
    strlcpy(tmpstring, resultname, sizeof(tmpstring));
    replace(tmpstring, "%y", tmpnum, resultname,  sizeof(resultname));

    strlcpy(tmpstring, resultname, sizeof(tmpstring));
    replace(tmpstring, "%n", exit_ob->map->name, resultname,  sizeof(resultname));

    /* If we are coming from another template map, use reletive paths unless
     * indicated otherwise.
     */
    if (exit_ob->map->is_template && (resultname[0] != '/')) {
        path_combine_and_normalize(exit_ob->map->path, resultname, new_map_name, sizeof(new_map_name));
    } else {
        create_template_pathname(resultname, new_map_name, sizeof(new_map_name));
    }

    new_map = ready_map_name(new_map_name, MAP_PLAYER_UNIQUE);
    if (!new_map) {
        memset(&rp, 0, sizeof(RMParms));
        rp.Xsize = -1;
        rp.Ysize = -1;
        rp.region = get_region_by_map(exit_ob->map);
        if (exit_ob->msg)
            set_random_map_variable(&rp, exit_ob->msg);
        rp.origin_x = exit_ob->x;
        rp.origin_y = exit_ob->y;
        safe_strncpy(rp.origin_map, pl->map->path, sizeof(rp.origin_map));

        /* now to generate the actual map. */
        new_map = generate_random_map(new_map_name, &rp, NULL);
    }

    /* Update the exit_ob so it now points directly at the newly created
     * random maps.  Not that it is likely to happen, but it does mean that a
     * exit in a unique map leading to a random map will not work properly.
     * It also means that if the created random map gets reset before
     * the exit leading to it, that the exit will no longer work.
     */
    if (new_map) {
        int x, y;

        x = EXIT_X(exit_ob) = MAP_ENTER_X(new_map);
        y = EXIT_Y(exit_ob) = MAP_ENTER_Y(new_map);
        new_map->is_template = 1;
        enter_map(pl, new_map, x, y);
    }
}

static void enter_unique_map(object *op, object *exit_ob) {
    char apartment[HUGE_BUF], path[MAX_BUF];
    mapstruct        *newmap;

    if (EXIT_PATH(exit_ob)[0] == '/') {
        snprintf(apartment, sizeof(apartment), "%s/%s/%s/%s", settings.localdir, settings.playerdir, op->name, clean_path(EXIT_PATH(exit_ob), path, sizeof(path)));
        newmap = ready_map_name(apartment, MAP_PLAYER_UNIQUE);
        if (!newmap) {
            create_pathname(EXIT_PATH(exit_ob), path, sizeof(path));
            newmap = mapfile_load(path, MAP_PLAYER_UNIQUE);
        }
    } else { /* relative directory */
        char reldir[HUGE_BUF], tmpc[HUGE_BUF], *cp;

        if (exit_ob->map->unique) {
            unclean_path(exit_ob->map->path, reldir, sizeof(reldir));

            /* Need to copy this over, as clean_path only has one static return buffer */
            clean_path(reldir, tmpc, sizeof(tmpc));
            /* Remove final component, if any */
            if ((cp = strrchr(tmpc, '_')) != NULL)
                *cp = 0;

            snprintf(apartment, sizeof(apartment), "%s/%s/%s/%s_%s", settings.localdir, settings.playerdir, op->name, tmpc, clean_path(EXIT_PATH(exit_ob), path, sizeof(path)));

            newmap = ready_map_name(apartment, MAP_PLAYER_UNIQUE);
            if (!newmap) {
                create_pathname(path_combine_and_normalize(reldir, EXIT_PATH(exit_ob), tmpc, sizeof(tmpc)), path, sizeof(path));
                newmap = mapfile_load(path, MAP_PLAYER_UNIQUE);
            }
        } else {
            /* The exit is unique, but the map we are coming from is not unique.  So
             * use the basic logic - don't need to demangle the path name
             */
            path_combine_and_normalize(exit_ob->map->path, EXIT_PATH(exit_ob), reldir, sizeof(reldir));
            snprintf(apartment, sizeof(apartment), "%s/%s/%s/%s", settings.localdir, settings.playerdir, op->name, clean_path(reldir, path, sizeof(path)));
            newmap = ready_map_name(apartment, MAP_PLAYER_UNIQUE);
            if (!newmap) {
                path_combine_and_normalize(exit_ob->map->path, EXIT_PATH(exit_ob), reldir, sizeof(reldir));
                newmap = ready_map_name(reldir, 0);
                if (newmap)
                    apply_auto_fix(newmap);
            }
        }
    }

    if (newmap) {
        strlcpy(newmap->path, apartment, sizeof(newmap->path));
        newmap->unique = 1;
        enter_map(op, newmap, EXIT_X(exit_ob), EXIT_Y(exit_ob));
    } else {
        draw_ext_info_format(NDI_UNIQUE, 0, op,
                             MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_FAILURE,
                             "The %s is closed.",
                             exit_ob->name);
        /* Perhaps not critical, but I would think that the unique maps
         * should be new enough this does not happen.  This also creates
         * a strange situation where some players could perhaps have visited
         * such a map before it was removed, so they have the private
         * map, but other players can't get it anymore.
         */
        LOG(llevDebug, "enter_unique_map: Exit %s (%d,%d) on map %s is leads no where.\n", exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map->path);
    }
}

void enter_player_maplevel(object *op) {
    int flags = 0, x = op->x, y = op->y;
    mapstruct *newmap;

    assert(op != NULL);
    assert(op->type == PLAYER);

    /* Hypothetically, I guess its possible that a standard map matches
     * the localdir, but that seems pretty unlikely - unlikely enough that
     * I'm not going to attempt to try to deal with that possibility.
     * We use the fact that when a player saves on a unique map, it prepends
     * the localdir to that name.  So its an easy way to see of the map is
     * unique or not.
     */
    if (!strncmp(op->contr->maplevel, settings.localdir, strlen(settings.localdir)))
        flags = MAP_PLAYER_UNIQUE;

    /* newmap returns the map (if already loaded), or loads it for us. */
    newmap = ready_map_name(op->contr->maplevel, flags);
    if (!newmap) {
        newmap = ready_map_name(settings.emergency_mapname, 0);
        x = settings.emergency_x;
        y = settings.emergency_y;
        if (!newmap) {
            LOG(llevError, "Fatal: Could not load emergency map!\n");
            abort();
        }

        draw_ext_info_format(NDI_UNIQUE, 0, op, MSG_TYPE_MISC, 0,
                "You find yourself somewhere unexpected...");
    }

    /* as a special case, if coordinates are (-1, -1), then the item should
     * be put at the default location. Used for loginmethod 0 (old clients). */
    if (x == -1 && y == -1) {
        x = MAP_ENTER_X(newmap);
        y = MAP_ENTER_Y(newmap);
    }

    enter_map(op, newmap, x, y);
}

void enter_exit(object *op, object *exit_ob) {
#define PORTAL_DESTINATION_NAME "Town portal destination" /* this one should really be in a header file */
    /* It may be nice to support other creatures moving across
     * exits, but right now a lot of the code looks at op->contr,
     * so thta is an RFE.
     */
    if (op->type != PLAYER)
        return;

    /* Need to remove player from transport */
    if (op->contr->transport)
        ob_apply(op->contr->transport, op, AP_UNAPPLY);

    assert(exit_ob != NULL);
    assert(EXIT_PATH(exit_ob) != NULL);

    /* check to see if we make a template map
     * Template maps have an EXIT_PATH in the form:
     * /@[!]<MAP_NAME>!<TEMPLATE_PATH>
     *
     * <MAP_NAME> is the name of the destination map, which is saved in LOCALDIR/template-maps/.
     * <TEMPLATE_PATH> is the path to a template map, used when <MAP_NAME> does not exist.
     */
    if (EXIT_PATH(exit_ob) && EXIT_PATH(exit_ob)[1] == '@') {
        if (EXIT_PATH(exit_ob)[2] == '!') {
            /* generate a template map randomly */
            enter_random_template_map(op, exit_ob);
        } else {
            /* generate a template map from a fixed template */
            enter_fixed_template_map(op, exit_ob);
        }
    }
    /* check to see if we make a randomly generated map */
    else if (EXIT_PATH(exit_ob) && EXIT_PATH(exit_ob)[1] == '!') {
        enter_random_map(op, exit_ob);
    } else if (QUERY_FLAG(exit_ob, FLAG_UNIQUE)) {
        enter_unique_map(op, exit_ob);
    } else {
        int x = EXIT_X(exit_ob), y = EXIT_Y(exit_ob);
        /* 'Normal' exits that do not do anything special
        * Simple enough we don't need another routine for it.
        */
        mapstruct *newmap;
        if (exit_ob->map) {
            char tmp_path[HUGE_BUF];

            path_combine_and_normalize(exit_ob->map->path, EXIT_PATH(exit_ob), tmp_path, sizeof(tmp_path));
            newmap = ready_map_name(tmp_path, 0);
            /* Random map was previously generated, but is no longer about.  Lets generate a new
             * map.
             */
            if (!newmap && !strncmp(EXIT_PATH(exit_ob), "/random/", 8)) {
                /* Maps that go down have a message set.  However, maps that go
                 * up, don't.  If the going home has reset, there isn't much
                 * point generating a random map, because it won't match the maps.
                 */
                if (exit_ob->msg) {
                    enter_random_map(op, exit_ob);
                } else {
                    draw_ext_info_format(NDI_UNIQUE, 0, op,
                                         MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_FAILURE,
                                         "The %s is closed.",
                                         exit_ob->name);
                    return;
                }

                /* For exits that cause damages (like pits).  Don't know if any
                 * random maps use this or not.
                 */
                if (exit_ob->stats.dam && op->type == PLAYER)
                    hit_player(op, exit_ob->stats.dam, exit_ob, exit_ob->attacktype, 1);
                return;
            }
        } else {
            /* For word of recall and other force objects
             * They contain the full pathname of the map to go back to,
             * so we don't need to normalize it.
             * But we do need to see if it is unique or not
             */
            if (!strncmp(EXIT_PATH(exit_ob), settings.localdir, strlen(settings.localdir)))
                newmap = ready_map_name(EXIT_PATH(exit_ob), MAP_PLAYER_UNIQUE);
            else
                newmap = ready_map_name(EXIT_PATH(exit_ob), 0);
        }
        if (!newmap) {
            if (exit_ob->name)
                draw_ext_info_format(NDI_UNIQUE, 0, op,
                                     MSG_TYPE_COMMAND, MSG_TYPE_COMMAND_FAILURE,
                                     "The %s is closed.",
                                     exit_ob->name);
            /* don't cry to momma if name is not set - as in tmp objects
             * used by the savebed code and character creation */
            return;
        }

        if (x == -1 && y == -1) {
            x = MAP_ENTER_X(newmap);
            y = MAP_ENTER_Y(newmap);
        }

        /* mids 02/13/2002 if exit is damned, update players death & WoR home-position and delete town portal */
        if (QUERY_FLAG(exit_ob, FLAG_DAMNED)) {
            object *tmp;

            /* remove an old force with a slaying field == PORTAL_DESTINATION_NAME */
            tmp = object_find_by_type_and_slaying(op, FORCE, PORTAL_DESTINATION_NAME);
            if (tmp) {
                object_remove(tmp);
                object_free(tmp, FREE_OBJ_NO_DESTROY_CALLBACK);
            }

            path_combine_and_normalize(exit_ob->map->path, EXIT_PATH(exit_ob), op->contr->savebed_map, sizeof(op->contr->savebed_map));
            op->contr->bed_x = EXIT_X(exit_ob), op->contr->bed_y = EXIT_Y(exit_ob);
            save_player(op, 1);
        }

        enter_map(op, newmap, x, y);
    }

    LOG(llevDebug, "%s enters %s\n", op->name, EXIT_PATH(exit_ob));

    /* For exits that cause damages (like pits) */
    if (exit_ob->stats.dam && op->type == PLAYER)
        hit_player(op, exit_ob->stats.dam, exit_ob, exit_ob->attacktype, 1);
}

static void process_players1(void) {
    int flag;
    player *pl, *plnext;

    /* Basically, we keep looping until all the players have done their actions. */
    for (flag = 1; flag != 0; ) {
        flag = 0;
        for (pl = first_player; pl != NULL; pl = plnext) {
            plnext = pl->next; /* In case a player exits the game in handle_player() */

            if (pl->ob == NULL)
                continue;

            /* Only do this on the first pass - what we are recording
             * here is the number of ticks the player has been online - not
             * how many actions/moves the player has done.
             */
            if (!flag) pl->ticks_played++;

            if (pl->followed_player) {
                player *followed = find_player_partial_name(pl->followed_player);
                if (followed && followed->ob && followed->ob->map) {
                    rv_vector rv;

                    if (!get_rangevector(pl->ob, followed->ob, &rv, 0) || rv.distance > 4) {
                        int space = object_find_free_spot(pl->ob, followed->ob->map, followed->ob->x, followed->ob->y, 1, 25);
                        if (space == -1)
                            space = 0;
                        object_remove(pl->ob);
                        object_insert_in_map_at(pl->ob, followed->ob->map, NULL, 0, followed->ob->x+freearr_x[space], followed->ob->y+freearr_y[space]);
                        map_newmap_cmd(&pl->socket);
                        player_update_bg_music(pl->ob);
                    }
                } else {
                    draw_ext_info_format(NDI_UNIQUE, 0, pl->ob, MSG_TYPE_ADMIN, MSG_TYPE_ADMIN_DM, "Player %s left or ambiguous name.", pl->followed_player);
                    FREE_AND_CLEAR_STR(pl->followed_player);
                }
            } 
            if (pl->ob->speed_left > 0) {
                if (handle_newcs_player(pl->ob))
                    flag = 1;
            } /* end if player has speed left */

            /* If the player is not actively playing, don't make a
             * backup save - nothing to save anyway.  Plus, the
             * map may not longer be valid.  This can happen when the
             * player quits - they exist for purposes of tracking on the map,
             * but don't actually reside on any actual map.
             */
            if (QUERY_FLAG(pl->ob, FLAG_REMOVED))
                continue;

#ifdef AUTOSAVE
            /* check for ST_PLAYING state so that we don't try to save off when
             * the player is logging in.
             */
            if ((pl->last_save_tick+AUTOSAVE) < pticks && pl->state == ST_PLAYING) {
                /* Don't save the player on unholy ground.  Instead, increase the
                 * tick time so it will be about 10 seconds before we try and save
                 * again.
                 */
                if (get_map_flags(pl->ob->map, NULL, pl->ob->x, pl->ob->y, NULL, NULL)&P_NO_CLERIC) {
                    pl->last_save_tick += 100;
                } else {
                    save_player(pl->ob, 1);
                    pl->last_save_tick = pticks;
                    hiscore_check(pl->ob, 1);
                }
            }
#endif
        } /* end of for loop for all the players */
    } /* for flag */
    for (pl = first_player; pl != NULL; pl = pl->next) {
        int has_action = 1;

        pl->ob->weapon_speed_left += pl->ob->weapon_speed;
        if (pl->ob->weapon_speed_left > 1.0)
            pl->ob->weapon_speed_left = 1.0;

        pl->socket.sounds_this_tick = 0;

        if (settings.casting_time == TRUE) {
            if (pl->ob->casting_time > 0) {
                pl->ob->casting_time--;
                has_action = 0;
            }
        }
        /* If the character is idle (standing around resting) increase
         * regen rates.
         */
        if (has_action && pl->ob->speed_left > 0) {
            pl->ob->last_heal -= 2;
            pl->ob->last_sp -= 2;
            pl->ob->last_grace -= 2;
            pl->ob->last_eat += 2;        /* Slow down food consumption */
        }
        do_some_living(pl->ob);
    }
}

static void process_players2(void) {
    player *pl;

    /* Then check if any players should use weapon-speed instead of speed */
    for (pl = first_player; pl != NULL; pl = pl->next) {
        /* The code that did weapon_sp handling here was out of place -
         * this isn't called until after the player has finished there
         * actions, and is thus out of place.  All we do here is bounds
         * checking.
         */
        if (pl->has_hit) {
            /* This needs to be here - if the player is running, we need to
             * clear this each tick, but new commands are not being received
             * so execute_newserver_command() is never called
             */
            pl->has_hit = 0;
        } else if (pl->ob->speed_left > pl->ob->speed)
            pl->ob->speed_left = pl->ob->speed;
    }
}

#define SPEED_DEBUG

static bool object_in_icecube(object *op) {
    return op->env != NULL && strcmp(op->env->arch->name, "icecube") == 0;
}

void process_events(void) {
    object *op;
    object marker;
    tag_t tag;

    process_players1();

    memset(&marker, 0, sizeof(object));
    /* Put marker object at beginning of active list */
    marker.active_next = active_objects;

    if (marker.active_next)
        marker.active_next->active_prev = &marker;
    marker.active_prev = NULL;
    active_objects = &marker;

    while (marker.active_next) {
        op = marker.active_next;
        tag = op->count;

        /* Move marker forward - swap op and marker */
        op->active_prev = marker.active_prev;

        if (op->active_prev)
            op->active_prev->active_next = op;
        else
            active_objects = op;

        marker.active_next = op->active_next;

        if (marker.active_next)
            marker.active_next->active_prev = &marker;
        marker.active_prev = op;
        op->active_next = &marker;

        /* Now process op */
        if (QUERY_FLAG(op, FLAG_FREED)) {
            LOG(llevError, "BUG: process_events(): Free object on list\n");
            op->speed = 0;
            object_update_speed(op);
            continue;
        }

        /* I've seen occasional crashes due to this - the object is removed,
         * and thus the map it points to (last map it was on) may be bogus
         * The real bug is to try to find out the cause of this - someone
         * is probably calling object_remove() without either an insert_ob or
         * object_free_drop_inventory() afterwards, leaving an object dangling.
         * But I'd rather log this and continue on instead of crashing.
         * Don't remove players - when a player quits, the object is in
         * sort of a limbo, of removed, but something we want to keep
         * around.
         */
        if (QUERY_FLAG(op, FLAG_REMOVED)
        && op->type != PLAYER
        && op->map
        && op->map->in_memory != MAP_IN_MEMORY) {
            StringBuffer *sb;
            char *diff;

            LOG(llevError, "BUG: process_events(): Removed object on list\n");
            sb = stringbuffer_new();
            object_dump(op, sb);
            diff = stringbuffer_finish(sb);
            LOG(llevError, "%s\n", diff);
            free(diff);
            object_free(op, FREE_OBJ_NO_DESTROY_CALLBACK);
            continue;
        }

        if (!op->speed) {
            LOG(llevError, "BUG: process_events(): Object %s has no speed, but is on active list\n", op->arch->name);
            object_update_speed(op);
            continue;
        }

        if (op->map == NULL
        && op->env == NULL
        && op->name
        && op->type != MAP) {
            LOG(llevError, "BUG: process_events(): Object without map or inventory is on active list: %s (%d)\n", op->name, op->count);
            op->speed = 0;
            object_update_speed(op);
            continue;
        }

        /* Seen some cases where process_object() is crashing because
         * the object is on a swapped out map.  But can't be sure if
         * something in the chain of events caused the object to
         * change maps or was just never removed - this will
         * give some clue as to its state before call to
         * process_object
         */
        if (op->map && op->map->in_memory != MAP_IN_MEMORY) {
            LOG(llevError, "BUG: process_events(): Processing object on swapped out map: %s (%d), map=%s\n", op->name, op->count, op->map->path);
        }

        /* Animate the object.  Bug of feature that andim_speed
         * is based on ticks, and not the creatures speed?
         */
        if ((op->anim_speed && op->last_anim >= op->anim_speed)
        || (op->temp_animation_id && op->last_anim >= op->temp_anim_speed)) {
            op->state++;
            if ((op->type == PLAYER) || (op->type == MONSTER))
                animate_object(op, op->facing);
            else
                animate_object(op, op->direction);
            op->last_anim = 1;
        } else {
            op->last_anim++;
        }

        if (op->speed_left > 0) {
            // Players are special because their speed_left has already been
            // reduced in do_server(). Players effectively process every tick
            // so long they have non-zero speed left.
            if (op->type != PLAYER) {
                // Objects in icecubes decay at a slower rate
                if (object_in_icecube(op)) {
                    op->speed_left -= 10;
                } else {
                    op->speed_left -= 1;
                }
            }
            process_object(op);
            if (object_was_destroyed(op, tag))
                continue;
        } else {
            op->speed_left += FABS(op->speed);
        }
        if (settings.casting_time == TRUE && op->casting_time > 0)
            op->casting_time--;
    }

    /* Remove marker object from active list */
    if (marker.active_prev != NULL)
        marker.active_prev->active_next = NULL;
    else
        active_objects = NULL;

    process_players2();
}

void clean_tmp_files(void) {
    mapstruct *m, *next;
    for (m = first_map; m != NULL; m = next) {
        next = m->next;
        if (m->in_memory == MAP_IN_MEMORY) {
            // Save all maps currently in memory, because they might contain
            // unique tiles that have not been written to disk.
            if (settings.recycle_tmp_maps) {
                // swap_map() also updates the write log.
                swap_map(m);
            } else {
                save_map(m, SAVE_MODE_NORMAL);
                // FIXME: Unfortunately, save_map() also unnecessarily saves
                // non-unique tiles to a new temporary file, so we have to 
                // get rid of it here.
                clean_tmp_map(m);
            }
        } else {
            // Remove the swap file.
            clean_tmp_map(m);
        }
    }
    write_todclock(); /* lets just write the clock here */
}

void cleanup(void) {
    LOG(llevInfo, "Cleaning up...\n");
    clean_tmp_files();
    write_book_archive();
    accounts_save();

#ifdef MEMORY_DEBUG
    free_all_maps();
    free_style_maps();
#endif
    cleanupPlugins();
#ifdef MEMORY_DEBUG
    free_all_archs();
    free_all_treasures();
    free_all_artifacts();
    free_all_images();
    free_all_newserver();
    free_all_recipes();
    free_all_readable();
    free_all_god();
    free_all_anim();
    i18n_free();
    free_loader();
    free_globals();
    free_server();
    object_free_all_data();
    free_knowledge();
    free_quest();
    free_quest_definitions();
    /* See what the string data that is out there that hasn't been freed. */
    /*    LOG(llevDebug, "%s", ss_dump_table(0xff));*/
#endif
    exit(0);
}

void leave(player *pl, int draw_exit) {
    if (!QUERY_FLAG(pl->ob, FLAG_REMOVED)) {
        pets_terminate_all(pl->ob);
        object_remove(pl->ob);
    }

    pl->socket.status = Ns_Dead;
    LOG(llevInfo, "logout: %s from %s\n", pl->ob->name, pl->socket.host);

    strcpy(pl->ob->contr->killer, "left");
    hiscore_check(pl->ob, 1);

    /* If this player is the captain of the transport, need to do
     * some extra work.  By the time we get here, object_remove()
     * should have already been called.
     */
    if (pl->transport && pl->transport->contr == pl) {
        /* If inv is a non player, inv->contr will be NULL, but that
         * is OK.
         */
        if (pl->transport->inv)
            pl->transport->contr = pl->transport->inv->contr;
        else
            pl->transport->contr = NULL;

        if (pl->transport->contr) {
            char name[MAX_BUF];

            query_name(pl->transport, name, MAX_BUF);
            draw_ext_info_format(NDI_UNIQUE, 0, pl->transport->contr->ob,
                                 MSG_TYPE_ADMIN, MSG_TYPE_ADMIN_PLAYER,
                                 "%s has left.  You are now the captain of %s",
                                 pl->ob->name, name);
        }
    }

    if (pl->ob->map) {
        if (pl->ob->map->in_memory == MAP_IN_MEMORY)
            pl->ob->map->timeout = MAP_TIMEOUT(pl->ob->map);
        pl->ob->map = NULL;
    }
    pl->ob->type = DEAD_OBJECT; /* To avoid problems with inventory window */
    party_leave(pl->ob);
    /* If a hidden dm dropped connection do not create
    * inconsistencies by showing that they have left the game
    */
    if (!(QUERY_FLAG(pl->ob, FLAG_WIZ) && pl->ob->contr->hidden)
    && (pl != NULL && draw_exit) && (pl->state != ST_GET_NAME && pl->state != ST_GET_PASSWORD && pl->state != ST_CONFIRM_PASSWORD))
        draw_ext_info_format(NDI_UNIQUE|NDI_ALL|NDI_DK_ORANGE, 5, NULL,
                             MSG_TYPE_ADMIN, MSG_TYPE_ADMIN_PLAYER,
                             "%s left the game.",
                             pl->ob->name);
}

int forbid_play(void) {
#if !defined(_IBMR2) && !defined(___IBMR2) && defined(PERM_FILE)
    char buf[MAX_BUF], day[MAX_BUF];
    FILE *fp;
    time_t clock;
    struct tm *tm;
    int i, start, stop, forbit = 0;

    clock = time(NULL);
    tm = (struct tm *)localtime(&clock);

    snprintf(buf, sizeof(buf), "%s/%s", settings.confdir, PERM_FILE);
    if ((fp = fopen(buf, "r")) == NULL)
        return 0;

    while (fgets(buf, sizeof(buf), fp)) {
        if (buf[0] == '#')
            continue;
        if (!strncmp(buf, "msg", 3)) {
            if (forbit)
                while (fgets(buf, sizeof(buf), fp))   /* print message */
                    fputs(buf, logfile);
            break;
        } else if (sscanf(buf, "%s %d%*c%d\n", day, &start, &stop) != 3) {
            LOG(llevDebug, "Warning: Incomplete line in permission file ignored.\n");
            continue;
        }

        for (i = 0; i < 7; i++) {
            if (!strncmp(buf, days[i], 3)
            && (tm->tm_wday == i)
            && (tm->tm_hour >= start)
            && (tm->tm_hour < stop))
                forbit = 1;
        }
    }

    fclose(fp);

    return forbit;
#else
    return 0;
#endif
}

static void do_shutdown(void) {
    draw_ext_info(NDI_UNIQUE | NDI_ALL, 5, NULL, MSG_TYPE_ADMIN,
            MSG_TYPE_ADMIN_DM, "The server has shut down.");

    /* TODO: Kick everyone out and save player files? */
    cleanup();
}

static bool check_shutdown(void) {
    if (shutdown_flag == 1) {
        LOG(llevInfo, "Received SIGINT; shutting down...\n");
        return true;
    }

    /* Zero means that no timed shutdown is pending. */
    if (cmd_shutdown_time == 0) {
        return false;
    }

    /* If a timed shutdown is coming, remind players periodically. */
    static int next_warn = 0; // FIXME: next_warn not reset if shutdown cancelled
    time_t time_left = cmd_shutdown_time - time(NULL);

    for (unsigned int i = next_warn; i < sizeof(shutdown_warn_times) / sizeof(int); i++) {
        if (shutdown_warn_times[i] == (int)ceil(time_left / 60.0)) {
            draw_ext_info_format(NDI_UNIQUE | NDI_ALL, 0, NULL, MSG_TYPE_ADMIN,
                    MSG_TYPE_ADMIN_DM,
                    "Server shutting down in %d minutes.", shutdown_warn_times[i]);
            next_warn = i + 1;
            return false;
        }
    }

    if (time_left <= 0) {
        return true;
    }
    return false;
}

void login_check_shutdown(object* const op) {
    if (cmd_shutdown_time == 0) {
        return;
    }

    time_t time_left = cmd_shutdown_time - time(NULL);
    if (time_left <= 60*shutdown_warn_times[0]) {
        draw_ext_info_format(
            NDI_UNIQUE | NDI_ALL, 0, NULL, MSG_TYPE_ADMIN, MSG_TYPE_ADMIN_DM,
            i18n(op, "Server shutting down in %d minutes."), time_left / 60);
    }
}

extern unsigned long todtick;

static void do_specials(void) {
    if (check_shutdown()) {
        do_shutdown();
    }

#ifdef CS_LOGSTATS
    if ((time(NULL)-cst_lst.time_start) >= CS_LOGTIME)
        write_cs_stats();
#endif

    if (!(pticks%10))
        knowledge_process_incremental();

#ifdef WATCHDOG
    if (!(pticks%503))
        watchdog();
#endif

    if (!(pticks%PTICKS_PER_CLOCK))
        tick_the_clock();

    if (!(pticks%509))
        flush_old_maps();    /* Clears the tmp-files of maps which have reset */

    if (!(pticks%2503))
        fix_weight();        /* Hack to fix weightproblems caused by bugs */

    if (!(pticks%2521))
        metaserver_update();    /* 2500 ticks is about 5 minutes */

    if (!(pticks%2531))
        accounts_save();

    if (!(pticks%5003))
        write_book_archive();

    if (!(pticks%5009))
        clean_friendly_list();

    if (!(pticks%5011))
        party_obsolete_parties();

    if (!(pticks%12503))
        fix_luck();
}

void server_main(int argc, char *argv[]) {
#ifdef WIN32 /* ---win32 this sets the win32 from 0d0a to 0a handling */
    _fmode = _O_BINARY;
    bRunning = 1;
#endif

#ifndef WIN32
    /* Here we check that we aren't root or suid */
    if (getuid() == 0 || geteuid() == 0) {
        fprintf(stderr,
                "Running crossfire-server as root is a bad idea; aborting!\n"
                "Please run it again as a normal, unprivileged user.\n");
        exit(EXIT_FAILURE);
    }
#endif

#ifdef DEBUG_MALLOC_LEVEL
    malloc_debug(DEBUG_MALLOC_LEVEL);
#endif

    init(argc, argv);
    initPlugins();        /* GROS - Init the Plugins */
#ifdef WIN32
    while (bRunning) {
#else
    while (TRUE) {
#endif
        nroferrors = 0;

        tick_game_time();
        do_server();
        process_events();         /* "do" something with objects with speed */
        cftimer_process_timers(); /* Process the crossfire Timers */
        /* Lauwenmark : Here we handle the CLOCK global event */
        execute_global_event(EVENT_CLOCK);
        check_active_maps(); /* Removes unused maps after a certain timeout */
        do_specials();       /* Routines called from time to time. */
        update_players();
    }

    /* This is unreachable. */
    abort();
}