/*      $NetBSD: hack.u_init.c,v 1.13 2011/08/06 19:32:58 dholland Exp $        */

/*
 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
 * Amsterdam
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met:
 *
 * - Redistributions of source code must retain the above copyright notice,
 * this list of conditions and the following disclaimer.
 *
 * - Redistributions in binary form must reproduce the above copyright
 * notice, this list of conditions and the following disclaimer in the
 * documentation and/or other materials provided with the distribution.
 *
 * - Neither the name of the Stichting Centrum voor Wiskunde en
 * Informatica, nor the names of its contributors may be used to endorse or
 * promote products derived from this software without specific prior
 * written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: hack.u_init.c,v 1.13 2011/08/06 19:32:58 dholland Exp $");
#endif                          /* not lint */

#include <ctype.h>
#include <signal.h>
#include <stdlib.h>
#include "hack.h"
#include "extern.h"

#define Strcpy  (void) strcpy
#define Strcat  (void) strcat
#define UNDEF_TYP       0
#define UNDEF_SPE       '\177'

char pl_character[PL_CSIZ];

static const struct you zerou;
static const char *(roles[]) = {      /* must all have distinct first letter */
        /* roles[4] may be changed to -woman */
        "Tourist", "Speleologist", "Fighter", "Knight",
        "Cave-man", "Wizard"
};
#define NR_OF_ROLES     SIZE(roles)
static char rolesyms[NR_OF_ROLES + 1];  /* filled by u_init() */

struct trobj {
        uchar           trotyp;
        schar           trspe;
        char            trolet;
                        Bitfield(trquan, 6);
                        Bitfield(trknown, 1);
};

#ifdef WIZARD
static struct trobj Extra_objs[] = {
        {0, 0, 0, 0, 0},
        {0, 0, 0, 0, 0}
};
#endif  /* WIZARD */

static struct trobj Cave_man[] = {
        {MACE, 1, WEAPON_SYM, 1, 1},
        {BOW, 1, WEAPON_SYM, 1, 1},
        {ARROW, 0, WEAPON_SYM, 25, 1},  /* quan is variable */
        {LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1},
        {0, 0, 0, 0, 0}
};

static struct trobj Fighter[] = {
        {TWO_HANDED_SWORD, 0, WEAPON_SYM, 1, 1},
        {RING_MAIL, 0, ARMOR_SYM, 1, 1},
        {0, 0, 0, 0, 0}
};

static struct trobj Knight[] = {
        {LONG_SWORD, 0, WEAPON_SYM, 1, 1},
        {SPEAR, 2, WEAPON_SYM, 1, 1},
        {RING_MAIL, 1, ARMOR_SYM, 1, 1},
        {HELMET, 0, ARMOR_SYM, 1, 1},
        {SHIELD, 0, ARMOR_SYM, 1, 1},
        {PAIR_OF_GLOVES, 0, ARMOR_SYM, 1, 1},
        {0, 0, 0, 0, 0}
};

static struct trobj Speleologist[] = {
        {STUDDED_LEATHER_ARMOR, 0, ARMOR_SYM, 1, 1},
        {UNDEF_TYP, 0, POTION_SYM, 2, 0},
        {FOOD_RATION, 0, FOOD_SYM, 3, 1},
        {PICK_AXE, UNDEF_SPE, TOOL_SYM, 1, 0},
        {ICE_BOX, 0, TOOL_SYM, 1, 0},
        {0, 0, 0, 0, 0}
};

static struct trobj Tinopener[] = {
        {CAN_OPENER, 0, TOOL_SYM, 1, 1},
        {0, 0, 0, 0, 0}
};

static struct trobj Tourist[] = {
        {UNDEF_TYP, 0, FOOD_SYM, 10, 1},
        {POT_EXTRA_HEALING, 0, POTION_SYM, 2, 0},
        {EXPENSIVE_CAMERA, 0, TOOL_SYM, 1, 1},
        {DART, 2, WEAPON_SYM, 25, 1},   /* quan is variable */
        {0, 0, 0, 0, 0}
};

static struct trobj Wizard[] = {
        {ELVEN_CLOAK, 0, ARMOR_SYM, 1, 1},
        {UNDEF_TYP, UNDEF_SPE, WAND_SYM, 2, 0},
        {UNDEF_TYP, UNDEF_SPE, RING_SYM, 2, 0},
        {UNDEF_TYP, UNDEF_SPE, POTION_SYM, 2, 0},
        {UNDEF_TYP, UNDEF_SPE, SCROLL_SYM, 3, 0},
        {0, 0, 0, 0, 0}
};

static void ini_inv(struct trobj *);
static void wiz_inv(void);
static int role_index(int);

void
u_init(void)
{
        int    i;
        char            exper = 'y', pc;
        if (flags.female)       /* should have been set in HACKOPTIONS */
                roles[4] = "Cave-woman";
        for (i = 0; i < NR_OF_ROLES; i++)
                rolesyms[i] = roles[i][0];
        rolesyms[i] = 0;

        if ((pc = pl_character[0]) != '\0') {
                if (islower((unsigned char)pc))
                        pc = toupper((unsigned char)pc);
                if ((i = role_index(pc)) >= 0)
                        goto got_suffix;        /* implies experienced */
                printf("\nUnknown role: %c\n", pc);
                pl_character[0] = pc = 0;
        }
        printf("\nAre you an experienced player? [ny] ");

        while (!strchr("ynYN \n\004", (exper = readchar())))
                sound_bell();
        if (exper == '\004')    /* Give him an opportunity to get out */
                end_of_input();
        printf("%c\n", exper);  /* echo */
        if (strchr("Nn \n", exper)) {
                exper = 0;
                goto beginner;
        }
        printf("\nTell me what kind of character you are:\n");
        printf("Are you");
        for (i = 0; i < NR_OF_ROLES; i++) {
                printf(" a %s", roles[i]);
                if (i == 2)     /* %% */
                        printf(",\n\t");
                else if (i < NR_OF_ROLES - 2)
                        printf(",");
                else if (i == NR_OF_ROLES - 2)
                        printf(" or");
        }
        printf("? [%s] ", rolesyms);

        while ((pc = readchar()) != '\0') {
                if (islower((unsigned char)pc))
                        pc = toupper((unsigned char)pc);
                if ((i = role_index(pc)) >= 0) {
                        printf("%c\n", pc);     /* echo */
                        (void) fflush(stdout);  /* should be seen */
                        break;
                }
                if (pc == '\n')
                        break;
                if (pc == '\004')       /* Give him the opportunity to get
                                         * out */
                        end_of_input();
                sound_bell();
        }
        if (pc == '\n')
                pc = 0;

beginner:
        if (!pc) {
                printf("\nI'll choose a character for you.\n");
                i = rn2(NR_OF_ROLES);
                pc = rolesyms[i];
                printf("This game you will be a%s %s.\n",
                       exper ? "n experienced" : "",
                       roles[i]);
                getret();
                /* give him some feedback in case mklev takes much time */
                (void) putchar('\n');
                (void) fflush(stdout);
        }
#if 0
        /*
         * Given the above code, I can't see why this would ever change
         * anything; it does core pretty well, though.  - cmh 4/20/93
         */
        if (exper) {
                roles[i][0] = pc;
        }
#endif

got_suffix:

        (void) strncpy(pl_character, roles[i], PL_CSIZ - 1);
        pl_character[PL_CSIZ - 1] = 0;
        flags.beginner = 1;
        u = zerou;
        u.usym = '@';
        u.ulevel = 1;
        init_uhunger();
#ifdef QUEST
        u.uhorizon = 6;
#endif  /* QUEST */
        uarm = uarm2 = uarmh = uarms = uarmg = uwep = uball = uchain =
                uleft = uright = 0;

        switch (pc) {
        case 'c':
        case 'C':
                Cave_man[2].trquan = 12 + rnd(9) * rnd(9);
                u.uhp = u.uhpmax = 16;
                u.ustr = u.ustrmax = 18;
                ini_inv(Cave_man);
                break;
        case 't':
        case 'T':
                Tourist[3].trquan = 20 + rnd(20);
                u.ugold = u.ugold0 = rnd(1000);
                u.uhp = u.uhpmax = 10;
                u.ustr = u.ustrmax = 8;
                ini_inv(Tourist);
                if (!rn2(25))
                        ini_inv(Tinopener);
                break;
        case 'w':
        case 'W':
                for (i = 1; i <= 4; i++)
                        if (!rn2(5))
                                Wizard[i].trquan += rn2(3) - 1;
                u.uhp = u.uhpmax = 15;
                u.ustr = u.ustrmax = 16;
                ini_inv(Wizard);
                break;
        case 's':
        case 'S':
                Fast = INTRINSIC;
                Stealth = INTRINSIC;
                u.uhp = u.uhpmax = 12;
                u.ustr = u.ustrmax = 10;
                ini_inv(Speleologist);
                if (!rn2(10))
                        ini_inv(Tinopener);
                break;
        case 'k':
        case 'K':
                u.uhp = u.uhpmax = 12;
                u.ustr = u.ustrmax = 10;
                ini_inv(Knight);
                break;
        case 'f':
        case 'F':
                u.uhp = u.uhpmax = 14;
                u.ustr = u.ustrmax = 17;
                ini_inv(Fighter);
                break;
        default:                /* impossible */
                u.uhp = u.uhpmax = 12;
                u.ustr = u.ustrmax = 16;
        }
        find_ac();
        if (!rn2(20)) {
                int    dr = rn2(7) - 2; /* biased variation */
                u.ustr += dr;
                u.ustrmax += dr;
        }
#ifdef WIZARD
        if (wizard)
                wiz_inv();
#endif  /* WIZARD */

        /* make sure he can carry all he has - especially for T's */
        while (inv_weight() > 0 && u.ustr < 118)
                u.ustr++, u.ustrmax++;
}

void
ini_inv(struct trobj *trop)
{
        struct obj *obj;
        while (trop->trolet) {
                obj = mkobj(trop->trolet);
                obj->known = trop->trknown;
                /* not obj->dknown = 1; - let him look at it at least once */
                obj->cursed = 0;
                if (obj->olet == WEAPON_SYM) {
                        obj->quan = trop->trquan;
                        trop->trquan = 1;
                }
                if (trop->trspe != UNDEF_SPE)
                        obj->spe = trop->trspe;
                if (trop->trotyp != UNDEF_TYP)
                        obj->otyp = trop->trotyp;
                else if (obj->otyp == WAN_WISHING)      /* gitpyr!robert */
                        obj->otyp = WAN_DEATH;
                obj->owt = weight(obj); /* defined after setting otyp+quan */
                obj = addinv(obj);
                if (obj->olet == ARMOR_SYM) {
                        switch (obj->otyp) {
                        case SHIELD:
                                if (!uarms)
                                        setworn(obj, W_ARMS);
                                break;
                        case HELMET:
                                if (!uarmh)
                                        setworn(obj, W_ARMH);
                                break;
                        case PAIR_OF_GLOVES:
                                if (!uarmg)
                                        setworn(obj, W_ARMG);
                                break;
                        case ELVEN_CLOAK:
                                if (!uarm2)
                                        setworn(obj, W_ARM);
                                break;
                        default:
                                if (!uarm)
                                        setworn(obj, W_ARM);
                        }
                }
                if (obj->olet == WEAPON_SYM)
                        if (!uwep)
                                setuwep(obj);
                if (--trop->trquan)
                        continue;       /* make a similar object */
                trop++;
        }
}

#ifdef WIZARD
void
wiz_inv(void)
{
        struct trobj *trop = &Extra_objs[0];
        char  *ep = getenv("INVENT");
        int    type;
        while (ep && *ep) {
                type = atoi(ep);
                ep = strchr(ep, ',');
                if (ep)
                        while (*ep == ',' || *ep == ' ')
                                ep++;
                if (type <= 0 || type > NROFOBJECTS)
                        continue;
                trop->trotyp = type;
                trop->trolet = objects[type].oc_olet;
                trop->trspe = 4;
                trop->trknown = 1;
                trop->trquan = 1;
                ini_inv(trop);
        }
        /* give him a wand of wishing by default */
        trop->trotyp = WAN_WISHING;
        trop->trolet = WAND_SYM;
        trop->trspe = 20;
        trop->trknown = 1;
        trop->trquan = 1;
        ini_inv(trop);
}
#endif  /* WIZARD */

void
plnamesuffix(void)
{
        char  *p;
        if ((p = strrchr(plname, '-')) != NULL) {
                *p = 0;
                pl_character[0] = p[1];
                pl_character[1] = 0;
                if (!plname[0]) {
                        askname();
                        plnamesuffix();
                }
        }
}

int
role_index(int pc)
{                               /* must be called only from u_init() */
        /* so that rolesyms[] is defined */
        char  *cp;

        if ((cp = strchr(rolesyms, pc)) != NULL)
                return (cp - rolesyms);
        return (-1);
}