utils.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 <ctype.h>
#include <math.h>
#include <stdlib.h>
#include <string.h>
 
#include "sproto.h"
 
int random_roll(int min, int max, const object *op, int goodbad) {
    int omin, diff, luck, base, ran;
 
    omin = min;
    diff = max-min+1;
    base = (diff > 2) ? 20 : 50; /* d2 and d3 are corner cases */
 
    if (max < 1 || diff < 1) {
        LOG(llevError, "Calling random_roll with min=%d max=%d\n", min, max);
        return(min); /* avoids a float exception */
    }
 
    ran = RANDOM();
 
    if (op->type != PLAYER)
        return((ran%diff)+min);
 
    luck = op->stats.luck;
    if (RANDOM()%base < (unsigned int)MIN(10, abs(luck))) {
        /* we have a winner */
        ((luck > 0) ? (luck = 1) : (luck = -1));
        diff -= luck;
        if (diff < 1)
            return(omin); /*check again*/
        ((goodbad) ? (min += luck) : (diff));
 
        return(MAX(omin, MIN(max, (ran%diff)+min)));
    }
    return((ran%diff)+min);
}
 
int64_t random_roll64(int64_t min, int64_t max, const object *op, int goodbad) {
    int64_t omin, diff, ran;
    int8_t luck;
    int base;
 
    omin = min;
    diff = max-min+1;
    base = (diff > 2) ? 20 : 50; /* d2 and d3 are corner cases */
 
    if (max < 1 || diff < 1) {
        LOG(llevError, "Calling random_roll with min=%"FMT64" max=%"FMT64"\n", min, max);
        return(min); /* avoids a float exception */
    }
 
    /* Don't know of a portable call to get 64 bit random values.
     * So make a call to get two 32 bit random numbers, and just to
     * a little byteshifting.  Do make sure the first one is only
     * 32 bit, so we don't get skewed results
     */
    ran = (RANDOM()&0xffffffff)|((int64_t)RANDOM()<<32);
 
    if (op->type != PLAYER)
        return((ran%diff)+min);
 
    luck = op->stats.luck;
    if (RANDOM()%base < (unsigned int)MIN(10, abs(luck))) {
        /* we have a winner */
        ((luck > 0) ? (luck = 1) : (luck = -1));
        diff -= luck;
        if (diff < 1)
            return (omin); /*check again*/
        ((goodbad) ? (min += luck) : (diff));
 
        return (MAX(omin, MIN(max, (ran%diff)+min)));
    }
    return ((ran%diff)+min);
}
 
int die_roll(int num, int size, const object *op, int goodbad) {
    int min, diff, luck, total, i, gotlucky, base, ran;
 
    diff = size;
    min = 1;
    luck = total = gotlucky = 0;
    base = (diff > 2) ? 20 : 50; /* d2 and d3 are corner cases */
    if (size < 2 || diff < 1) {
        LOG(llevError, "Calling die_roll with num=%d size=%d\n", num, size);
        return(num); /* avoids a float exception */
    }
 
    if (op->type == PLAYER)
        luck = op->stats.luck;
 
    for (i = 0; i < num; i++) {
        if (RANDOM()%base < (unsigned int)MIN(10, abs(luck)) && !gotlucky) {
            /* we have a winner */
            gotlucky++;
            ((luck > 0) ? (luck = 1) : (luck = -1));
            diff -= luck;
            if (diff < 1)
                return(num); /*check again*/
            ((goodbad) ? (min += luck) : (diff));
            ran = RANDOM();
            total += MAX(1, MIN(size, (ran%diff)+min));
        } else {
            total += RANDOM()%size+1;
        }
    }
    return(total);
}
 
int rndm(int min, int max) {
    int diff;
 
    diff = max-min+1;
    if (max < 1 || diff < 1)
        return (min);
 
    return (RANDOM()%diff+min);
}
 
void decay_objects(mapstruct *m) {
    int x, y, destroy;
 
    if (m->unique)
        return;
 
    for (x = 0; x < MAP_WIDTH(m); x++)
        for (y = 0; y < MAP_HEIGHT(m); y++)
            FOR_MAP_PREPARE(m, x, y, op) {
                destroy = 0;
                if (QUERY_FLAG(op, FLAG_IS_FLOOR) && QUERY_FLAG(op, FLAG_UNIQUE))
                    break;
                if (QUERY_FLAG(op, FLAG_IS_FLOOR)
                || QUERY_FLAG(op, FLAG_OBJ_ORIGINAL)
                || QUERY_FLAG(op, FLAG_UNIQUE)
                || QUERY_FLAG(op, FLAG_OVERLAY_FLOOR)
                || QUERY_FLAG(op, FLAG_UNPAID)
                || IS_LIVE(op))
                    continue;
                if (op->head)
                    /* Don't try to remove a non head part of a multipart object, object_remove() would abort(). */
                    continue;
                /* otherwise, we decay and destroy */
                if (IS_WEAPON(op)) {
                    op->stats.dam--;
                    if (op->stats.dam < 0)
                        destroy = 1;
                } else if (IS_ARMOR(op)
                || IS_SHIELD(op)
                || op->type == GIRDLE
                || op->type == GLOVES
                || op->type == CLOAK) {
                    op->stats.ac--;
                    if (op->stats.ac < 0)
                        destroy = 1;
                } else if (op->type == FOOD) {
                    op->stats.food -= rndm(5, 20);
                    if (op->stats.food < 0)
                        destroy = 1;
                } else {
                    if (op->material&M_PAPER
                    || op->material&M_LEATHER
                    || op->material&M_WOOD
                    || op->material&M_ORGANIC
                    || op->material&M_CLOTH
                    || op->material&M_LIQUID)
                        destroy = 1;
                    if (op->material&M_IRON && rndm(1, 5) == 1)
                        destroy = 1;
                    if (op->material&M_GLASS && rndm(1, 2) == 1)
                        destroy = 1;
                    if ((op->material&M_STONE || op->material&M_ADAMANT) && rndm(1, 10) == 1)
                        destroy = 1;
                    if ((op->material&M_SOFT_METAL || op->material&M_BONE)
                    && rndm(1, 3) == 1)
                        destroy = 1;
                    if (op->material&M_ICE && rndm(0, 100) > 70)
                        destroy = 1;
                }
                /* adjust overall chance below */
                if (destroy && rndm(0, 1)) {
                    object_remove(op);
                    object_free_drop_inventory(op);
                }
            } FOR_MAP_FINISH();
}
 
materialtype_t *name_to_material(const char *name) {
    materialtype_t *mt, *nmt;
 
    mt = NULL;
    for (nmt = materialt; nmt != NULL && nmt->next != NULL; nmt = nmt->next) {
        if (strcmp(name, nmt->name) == 0) {
            mt = nmt;
            break;
        }
    }
    return mt;
}
 
void transmute_materialname(object *op, const object *change) {
    materialtype_t *mt;
    int j;
 
    if (op->materialname == NULL)
        return;
 
    if (change->materialname != NULL
    && strcmp(op->materialname, change->materialname))
        return;
 
    if (!(IS_ARMOR(op) || IS_SHIELD(op) || op->type == GIRDLE || op->type == GLOVES || op->type == CLOAK))
        return;
 
    mt = name_to_material(op->materialname);
    if (!mt) {
        LOG(llevError, "archetype '%s>%s' uses nonexistent material '%s'\n", op->arch->name, op->name, op->materialname);
        return;
    }
 
    for (j = 0; j < NROFATTACKS; j++)
        if (op->resist[j] == 0 && change->resist[j] != 0) {
            op->resist[j] += mt->mod[j];
            if (op->resist[j] > 100)
                op->resist[j] = 100;
            if (op->resist[j] < -100)
                op->resist[j] = -100;
        }
}
 
void set_materialname(object *op) {
    materialtype_t *mt;
 
    if (op->materialname != NULL)
        return;
 
    for (mt = materialt; mt != NULL; mt = mt->next) {
        if (op->material&mt->material) {
            break;
        }
    }
 
    if (mt != NULL) {
        op->materialname = add_string(mt->name);
        return;
    }
}
 
#define EOL_SIZE (sizeof("\n")-1)
 
void strip_endline(char *buf) {
    if (strlen(buf) < sizeof("\n")) {
        return;
    }
    if (!strcmp(buf+strlen(buf)-EOL_SIZE, "\n"))
        buf[strlen(buf)-EOL_SIZE] = '\0';
}
 
void replace(const char *src, const char *key, const char *replacement, char *result, size_t resultsize) {
    size_t resultlen;
    size_t keylen;
 
    /* special case to prevent infinite loop if key==replacement=="" */
    if (strcmp(key, replacement) == 0) {
        strlcpy(result, src, resultsize);
        return;
    }
 
    keylen = strlen(key);
 
    resultlen = 0;
    while (*src != '\0' && resultlen+1 < resultsize) {
        if (strncmp(src, key, keylen) == 0) {
            snprintf(result+resultlen, resultsize-resultlen, "%s", replacement);
            resultlen += strlen(result+resultlen);
            src += keylen;
        } else {
            result[resultlen++] = *src++;
        }
    }
    result[resultlen] = '\0';
}
 
void make_list_like(char *input) {
    char *p, tmp[MAX_BUF];
    int i;
    if (!input || strlen(input) > MAX_BUF-5)
        return;
    /* bad stuff would happen if we continued here, the -5 is to make space for ' and ' */
 
    strncpy(tmp, input, MAX_BUF-5);
    /*trim all trailing commas, spaces etc.*/
    for (i = strlen(tmp); i >= 0 && !isalnum(tmp[i]); i--) {
        tmp[i] = '\0';
    }
    strcat(tmp, ".");
 
    p = strrchr(tmp, ',');
    if (p) {
        *p = '\0';
        strcpy(input, tmp);
        p++;
        strcat(input, " and");
        strcat(input, p);
    } else
        strcpy(input, tmp);
    return;
}
 
int get_random_dir(void) {
    return rndm(1, 8);
}
 
int get_randomized_dir(int dir) {
    return absdir(dir+RANDOM()%3+RANDOM()%3-2);
}
 
int adjust_dir(int dir, int destination_dir) {
    int diff;
 
    diff = (destination_dir-dir)&7;
    if (1 <= diff && diff <= 3)
        dir++;
    else if (5 <= diff && diff <= 7)
        dir--;
    else if (rndm(0, 1) == 0)
        dir++;
    else
        dir--;
    return absdir(dir);
}
 
void replace_unprintable_chars(char *buf) {
    char *p;
 
    for (p = buf; *p != '\0'; p++) {
        if (*p < ' ') {
            *p = ' ';
        }
    }
}
 
size_t split_string(char *str, char *array[], size_t array_size, char sep) {
    char *p;
    size_t pos;
 
    if (array_size == 0)
        return 0;
 
    if (*str == '\0') {
        array[0] = str;
        return 1;
    }
 
    pos = 0;
    p = str;
    while (pos < array_size) {
        array[pos++] = p;
        while (*p != '\0' && *p != sep)
            p++;
        if (pos >= array_size)
            break;
        if (*p != sep)
            break;
        *p++ = '\0';
    }
    return pos;
}
 
StringBuffer *describe_spellpath_attenuation(const char *attenuation, int value, StringBuffer *buf) {
    if (buf == NULL)
        buf = stringbuffer_new();
 
    if (value) {
        int i, j = 0;
        stringbuffer_append_printf(buf, "(%s: ", attenuation);
        for (i = 0; i < NRSPELLPATHS; i++)
            if (value&(1<<i)) {
                if (j)
                    stringbuffer_append_string(buf, ", ");
                else
                    j = 1;
                stringbuffer_append_string(buf, spellpathnames[i]);
            }
        stringbuffer_append_string(buf, ")");
    }
 
    return buf;
}
 
StringBuffer *describe_attacktype(const char *attack, int value, StringBuffer *buf) {
    if (buf == NULL)
        buf = stringbuffer_new();
 
    if (value) {
        int i, j = 0;
        stringbuffer_append_printf(buf, "(%s: ", attack);
        for (i = 0; i < NROFATTACKS; i++)
            if (value&(1<<i)) {
                if (j)
                    stringbuffer_append_string(buf, ", ");
                else
                    j = 1;
                stringbuffer_append_string(buf, attacks[i]);
            }
        stringbuffer_append_string(buf, ")");
    }
 
    return buf;
}
 
int isqrt(int n) {
    return (int)sqrt(n);
}
 
void fatal(enum fatal_error err) {
    const char *fatalmsgs[] = {
        "Failed to allocate memory",
        "Failed repeatedly to load maps",
        "Hashtable for archetypes is too small",
        "Fatal issue in archetype file",
        "See last error",
    };
 
    if (settings.fatal_hook) {
        settings.fatal_hook(err);
    }
 
    fprintf(logfile, "Fatal error: %s\n", fatalmsgs[err]);
    emergency_save(0);
    clean_tmp_files();
    fprintf(logfile, "Exiting...\n");
    exit(err);
}
 
void free_charlinks(linked_char *lc) {
    if (lc->next)
        free_charlinks(lc->next);
    free(lc);
}