/*      $NetBSD: command3.c,v 1.6 2021/05/02 12:50:43 rillig Exp $      */

/*
 * Copyright (c) 1983, 1993
 *      The Regents of the University of California.  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. Neither the name of the University 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 REGENTS 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 REGENTS 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.
 */

#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)com3.c      8.2 (Berkeley) 4/28/95";
#else
__RCSID("$NetBSD: command3.c,v 1.6 2021/05/02 12:50:43 rillig Exp $");
#endif
#endif                          /* not lint */

#include "extern.h"

void
dig(void)
{
        if (testbit(inven, SHOVEL)) {
                puts("OK");
                ourtime++;
                switch (position) {
                case 144:       /* copse near beach */
                        if (!notes[DUG]) {
                                setbit(location[position].objects, DEADWOOD);
                                setbit(location[position].objects, COMPASS);
                                setbit(location[position].objects, KNIFE);
                                setbit(location[position].objects, MACE);
                                notes[DUG] = 1;
                        }
                        break;

                default:
                        puts("Nothing happens.");
                }
        } else
                puts("You don't have a shovel.");
}

int
jump(void)
{
        int     n;

        switch (position) {
        default:
                puts("Nothing happens.");
                return (-1);

        case 242:
                position = 133;
                break;
        case 214:
        case 215:
        case 162:
        case 159:
                position = 145;
                break;
        case 232:
                position = FINAL;
                break;
        case 3:
                position = 1;
                break;
        case 172:
                position = 201;
        }
        puts("Ahhhhhhh...");
        injuries[12] = injuries[8] = injuries[7] = injuries[6] = 1;
        for (n = 0; n < NUMOFOBJECTS; n++)
                if (testbit(inven, n)) {
                        clearbit(inven, n);
                        setbit(location[position].objects, n);
                }
        carrying = 0;
        encumber = 0;
        return (0);
}

void
bury(void)
{
        int     value;

        if (testbit(inven, SHOVEL)) {
                while (wordtype[++wordnumber] != OBJECT &&
                    wordtype[wordnumber] != NOUNS && wordnumber < wordcount)
                        continue;
                value = wordvalue[wordnumber];
                if (wordtype[wordnumber] == NOUNS &&
                    (testbit(location[position].objects, value) ||
                    value == BODY))
                        switch (value) {
                        case BODY:
                                wordtype[wordnumber] = OBJECT;
                                if (testbit(inven, MAID) ||
                                    testbit(location[position].objects, MAID))
                                        value = MAID;
                                if (testbit(inven, DEADWOOD) ||
                                    testbit(location[position].objects,
                                        DEADWOOD))
                                        value = DEADWOOD;
                                if (testbit(inven, DEADGOD) ||
                                    testbit(location[position].objects,
                                        DEADGOD))
                                        value = DEADGOD;
                                if (testbit(inven, DEADTIME) ||
                                    testbit(location[position].objects,
                                        DEADTIME))
                                        value = DEADTIME;
                                if (testbit(inven, DEADNATIVE) ||
                                    testbit(location[position].objects,
                                        DEADNATIVE))
                                        value = DEADNATIVE;
                                break;

                        case NATIVE:
                        case NORMGOD:
                                printf("She screams as you wrestle her into ");
                                puts("the hole.");
                                /* FALLTHROUGH */
                        case TIMER:
                                power += 7;
                                ego -= 10;
                                /* FALLTHROUGH */
                        case AMULET:
                        case MEDALION:
                        case TALISMAN:
                                wordtype[wordnumber] = OBJECT;
                                break;

                        default:
                                puts("Wha..?");
                        }
                if (wordtype[wordnumber] == OBJECT && position > 88 &&
                    (testbit(inven, value) ||
                    testbit(location[position].objects, value))) {
                        puts("Buried.");
                        if (testbit(inven, value)) {
                                clearbit(inven, value);
                                carrying -= objwt[value];
                                encumber -= objcumber[value];
                        }
                        clearbit(location[position].objects, value);
                        switch (value) {
                        case MAID:
                        case DEADWOOD:
                        case DEADNATIVE:
                        case DEADTIME:
                        case DEADGOD:
                                ego += 2;
                                printf("The %s should rest easier now.\n",
                                    objsht[value]);
                        }
                } else
                        puts("It doesn't seem to work.");
        } else
                puts("You aren't holding a shovel.");
}

void
drink(void)
{
        int     n;

        if (testbit(inven, POTION)) {
                printf("The cool liquid runs down your throat but turns to ");
                puts("fire and you choke.");
                printf("The heat reaches your limbs and tingles your spirit.");
                puts("  You feel like falling");
                puts("asleep.");
                clearbit(inven, POTION);
                WEIGHT = MAXWEIGHT;
                CUMBER = MAXCUMBER;
                for (n = 0; n < NUMOFINJURIES; n++)
                        injuries[n] = 0;
                ourtime++;
                zzz();
        } else
                puts("I'm not thirsty.");
}

int
shoot(void)
{
        int     firstnumber, value;

        firstnumber = wordnumber;
        if (!testbit(inven, LASER))
                puts("You aren't holding a blaster.");
        else {
                wordnumber++;
                while (wordnumber <= wordcount &&
                    wordtype[wordnumber] == OBJECT) {
                        value = wordvalue[wordnumber];
                        printf("%s:\n", objsht[value]);
                        if (testbit(location[position].objects, value)) {
                                clearbit(location[position].objects, value);
                                ourtime++;
                                printf("The %s explode%s\n", objsht[value],
                                    (is_plural_object(value) ? "." : "s."));
                                if (value == BOMB)
                                        die();
                        } else
                                printf("I don't see any %s around here.\n",
                                    objsht[value]);
                        if (wordnumber < wordcount - 1 &&
                            wordvalue[++wordnumber] == AND)
                                wordnumber++;
                        else
                                return (firstnumber);
                }
                /* special cases with their own return()'s */

                if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS) {
                        ourtime++;
                        switch (wordvalue[wordnumber]) {

                        case DOOR:
                                switch (position) {
                                case 189:
                                case 231:
                                        puts("The door is unhinged.");
                                        location[189].north = 231;
                                        location[231].south = 189;
                                        whichway(location[position]);
                                        break;
                                case 30:
                                        puts("The wooden door splinters.");
                                        location[30].west = 25;
                                        whichway(location[position]);
                                        break;
                                case 31:
                                        printf("The laser blast has no ");
                                        puts("effect on the door.");
                                        break;
                                case 20:
                                        printf("The blast hits the door and ");
                                        printf("it explodes into flame.  The ");
                                        puts("magnesium burns");
                                        printf("so rapidly that we have no ");
                                        puts("chance to escape.");
                                        die();
                                default:
                                        puts("Nothing happens.");
                                }
                                break;

                        case NORMGOD:
                                if (testbit(location[position].objects,
                                    BATHGOD)) {
                                        printf("The goddess is hit in the ");
                                        printf("chest and splashes back ");
                                        puts("against the rocks.");
                                        printf("Dark blood oozes from the ");
                                        printf("charred blast hole.  Her ");
                                        puts("naked body floats in the");
                                        puts("pools and then off downstream.");
                                        clearbit(location[position].objects,
                                            BATHGOD);
                                        setbit(location[180].objects, DEADGOD);
                                        power += 5;
                                        ego -= 10;
                                        notes[JINXED]++;
                                } else
                                        if (testbit(location[position].objects,
                                            NORMGOD)) {
                                                printf("The blast catches ");
                                                printf("the goddess in the ");
                                                printf("stomach, knocking ");
                                                puts("her to the ground.");
                                                printf("She writhes in the ");
                                                printf("dirt as the agony of ");
                                                puts("death taunts her.");
                                                puts("She has stopped moving.");
                                                clearbit(location[position].objects, NORMGOD);
                                                setbit(location[position].objects, DEADGOD);
                                                power += 5;
                                                ego -= 10;
                                                notes[JINXED]++;
                                                if (wintime)
                                                        live();
                                                break;
                                        } else {
                                                printf("I don't see any ");
                                                puts("goddess around here.");
                                        }
                                break;

                        case TIMER:
                                if (testbit(location[position].objects,
                                    TIMER)) {
                                        printf("The old man slumps over ");
                                        puts("the bar.");
                                        power++;
                                        ego -= 2;
                                        notes[JINXED]++;
                                        clearbit(location[position].objects,
                                            TIMER);
                                        setbit(location[position].objects,
                                            DEADTIME);
                                } else
                                        puts("What old-timer?");
                                break;
                        case MAN:
                                if (testbit(location[position].objects, MAN)) {
                                        printf("The man falls to the ground ");
                                        printf("with blood pouring all over ");
                                        puts("his white suit.");
                                        puts("Your fantasy is over.");
                                        die();
                                } else
                                        puts("What man?");
                                break;
                        case NATIVE:
                                if (testbit(location[position].objects,
                                    NATIVE)) {
                                        printf("The girl is blown backwards ");
                                        printf("several feet and lies in a ");
                                        puts("pool of blood.");
                                        clearbit(location[position].objects,
                                            NATIVE);
                                        setbit(location[position].objects,
                                            DEADNATIVE);
                                        power += 5;
                                        ego -= 2;
                                        notes[JINXED]++;
                                } else
                                        puts("There is no girl here.");
                                break;
                        case -1:
                                puts("Shoot what?");
                                break;

                        default:
                                printf("You can't shoot the %s.\n",
                                    objsht[wordvalue[wordnumber]]);
                        }
                } else
                        puts("You must be a looney.");
        }
        return (firstnumber);
}