/***************************************************************************
 *  Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer,        *
 *  Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe.   *
 *                                                                         *
 *  Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael          *
 *  Chastain, Michael Quan, and Mitchell Tse.                              *
 *                                                                         *
 *  Envy Diku Mud improvements copyright (C) 1994 by Michael Quan, David   *
 *  Love, Guilherme 'Willie' Arnold, and Mitchell Tse.                     *
 *                                                                         *
 *  EnvyMud 2.0 improvements copyright (C) 1995 by Michael Quan and        *
 *  Mitchell Tse.                                                          *
 *                                                                         *
 *  In order to use any part of this Envy Diku Mud, you must comply with   *
 *  the original Diku license in 'license.doc', the Merc license in        *
 *  'license.txt', as well as the Envy license in 'license.nvy'.           *
 *  In particular, you may not remove either of these copyright notices.   *
 *                                                                         *
 *  Much time and thought has gone into this software and you are          *
 *  benefitting.  We hope that you share your changes too.  What goes      *
 *  around, comes around.                                                  *
 ***************************************************************************/

/* How to make a string look drunk... by Apex (robink@htsa.hva.nl) */
/* Modified and enhanced for envy(2) by the Maniac from Mythran */

#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "utils.h"


char *makedrunk(char *string, CHAR_DATA * ch)
{
/* This structure defines all changes for a character */
    struct struckdrunk drunk[] = {
	{3, 10,
	 {"a", "a", "a", "A", "aa", "ah", "Ah", "ao", "aw", "oa", "ah"}},
	{8, 5,
	 {"b", "b", "b", "B", "B", "be"}},
	{3, 5,
	 {"c", "c", "C", "cC", "Cc", "cc"}},
	{5, 2,
	 {"d", "d", "D"}},
	{3, 3,
	 {"e", "e", "eh", "E"}},
	{4, 5,
	 {"f", "f", "ff", "fff", "fFf", "F"}},
	{8, 2,
	 {"g", "g", "G"}},
	{9, 6,
	 {"h", "h", "hh", "hhh", "Hhh", "HhH", "H"}},
	{7, 6,
	 {"i", "i", "I", "i", "I", "I", "I"}},
	{9, 5,
	 {"j", "j", "jj", "Jj", "jJ", "J"}},
	{7, 2,
	 {"k", "ku", "K"}},
	{3, 2,
	 {"l", "l", "L"}},
	{5, 8,
	 {"m", "m", "mm", "mmm", "mMm", "mmmmmm", "MmM", "mM", "M"}},
	{6, 6,
	 {"n", "n", "nn", "Nn", "nn", "nNn", "N"}},
	{3, 6,
	 {"o", "o", "ooo", "ao", "aOoo", "OooOo", "ooOo"}},
	{3, 2,
	 {"p", "p", "P"}},
	{5, 5,
	 {"q", "q", "Q", "qq", "ququ", "qq"}},
	{4, 2,
	 {"r", "r", "R"}},
	{2, 5,
	 {"s", "ss", "sss", "ssZssZs", "sSzzsZss", "ssZss"}},
	{5, 2,
	 {"t", "tt", "T"}},
	{3, 6,
	 {"u", "u", "uh", "Uh", "Uhuhhuh", "uhU", "uhhu"}},
	{4, 2,
	 {"v", "v", "V"}},
	{4, 2,
	 {"w", "ww", "W"}},
	{5, 6,
	 {"x", "x", "X", "x", "X", "X", "x"}},
	{3, 2,
	 {"y", "y", "Y"}},
	{2, 9,
	 
	 {"z", "z", "ZzzZz", "Zzz", "Zsszzsz", "zzz", "zZZs", "ZSz", "zZ",
	  "Z"}}
    };

    char buf[1024];
    char temp;
    int pos = 0;
    int drunklevel;
    int randomnum;

    if (ch->race == race_lookup("sprite"))
	return spritespeak(string, ch);

    /* Check how drunk a person is... */
    if (IS_NPC(ch))
	drunklevel = 0;
    else
	drunklevel = ch->pcdata->condition[COND_DRUNK];

    if (drunklevel > 0) {
	do {
	    temp = UPPER(*string);

	    if ((temp >= 'A') && (temp <= 'Z')) {
		if (drunklevel > drunk[temp - 'A'].min_drunk_level) {
		    randomnum =
			number_range(0, drunk[temp - 'A'].number_of_rep);
		    strcpy(&buf[pos],
			   drunk[temp - 'A'].replacement[randomnum]);
		    pos +=
			strlen(drunk[temp - 'A'].replacement[randomnum]);
		} else
		    buf[pos++] = *string;
	    } else {
		if ((temp >= '0') && (temp <= '9')) {
		    temp = '0' + number_range(0, 9);
		    buf[pos++] = temp;
		} else
		    buf[pos++] = *string;
	    }
	}
	while (*string++);
	buf[pos] = '\0';	/* Mark end of the string... */
	snprintf(string, MIL, buf);
	return (string);
    }
    return (string);
}