/*  ENGLISH.C   no mod for V 1.43                                       */

/*              Changed all calls of rand() to irand() for Eco-C88 (BW) */

#include "advent.h"

/*  Analyze a two word sentence  */

BOOL PASCAL english PROTO((VOID))
{

    auto     char      *msg;
    auto     SHORT      type1, type2, val1, val2;

    G.verb = G.object = G.motion = 0;
    type2 = val2 = -1;
    type1 = val1 = -1;
    msg = "bad grammar...";
    if (game_restored)
        game_restored = FALSE;
    else
        getin();

    if (!analyze(word1, &type1, &val1))
        return(FALSE);

    if (type1 == 2 && val1 == SAY)
    {
        G.verb = SAY;
        G.object = 1;
        return(TRUE);
    }

    if (strcmp(word2, ""))
    {
        if (!analyze(word2, &type2, &val2))
            return(FALSE);
    }

    /* check his grammar */
    if (type1 == 3)
    {
        rspeak(val1);
        return(FALSE);
    }

    if (type2 == 3)
    {
        rspeak(val2);
        return(FALSE);
    }

    if (type1 == 0)
    {
        if (type2 == 0)
        {
            printf("%s\n", msg);
            return(FALSE);
        }

        G.motion = val1;
    }
    else
    {
        if (type2 == 0)
            G.motion = val2;
        else
        {
            if (type1 == 1)
            {
                G.object = val1;
                if (type2 == 2)
                    G.verb = val2;

                if (type2 == 1)
                {
                    printf("%s\n", msg);
                    return(FALSE);
                }
            }
            else
            {
                if (type1 == 2)
                {
                    G.verb = val1;
                    if (type2 == 1)
                        G.object = val2;

                    if (type2 == 2)
                    {
                        printf("%s\n", msg);
                        return(FALSE);
                    }
                }
                else
                    bug(36);
            }
        }
    }

    return(TRUE);
}


/*  Routine to analyze a word.  */

#if ANSI_PROTO
BOOL PASCAL analyze(char *word, SHORT *type, SHORT *value)
#else
BOOL PASCAL analyze(word, type, value)
char        *word;
SHORT       *type, *value;
#endif
{
    auto     SHORT       wordval, msg;

    /* make sure I understand */
    if ((wordval = vocab(word, 0)) == -1)
    {
        switch (rand() % 3)
        {
            case 0:
                msg = 60;
                break;

            case 1:
                msg = 61;
                break;

            default:
                msg = 13;
        }

        rspeak(msg);
        return(FALSE);
    }

    *type  = wordval / 1000;
    *value = wordval % 1000;
    return(TRUE);
}


/*  routine to get two words of input and convert them to lower case  */

VOID PASCAL getin PROTO((VOID))
{
    auto     char      *bptr;
    auto     char       linebuff[65];

    linebuff[0] = '\0';
    word1[0] = word2[0] = '\0';
    bptr = linebuff;

    while ('\0' == linebuff[0])
    {
        putchar('>');
        gets(linebuff);
    }

    skipspc(&bptr);
    getword(&bptr, word1);
    if (!*bptr)
        return;

    while (!isspace(*bptr))
    {
        if (!*bptr++)
            return;
    }

    skipspc(&bptr);
    getword(&bptr, word2);

    return;
}


/*  Routine to extract one word from a buffer  */

#if ANSI_PROTO
VOID PASCAL getword(char **buff, char *word)
#else
VOID PASCAL getword(buff, word)
char        **buff, *word;
#endif
{
    register SHORT         i;

    for (i = 0; i < WORDSIZE; ++i)
    {
        if (!**buff || isspace(**buff))
        {
            *word = NUL;
            return;
        }

        *word++ = (char) tolower(**buff);
        (*buff)++;
    }

    *--word = NUL;

    return;
}


/*  Routine to skip spaces  */

#if ANSI_PROTO
VOID PASCAL skipspc(char **buff)
#else
VOID PASCAL skipspc(buff)
char        **buff;
#endif
{
    while (isspace(**buff))
        ++(*buff);

    return;
}