/*  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(VOID)
{

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

    verb = object = motion = 0;
    type2 = val2 = -1;
    type1 = val1 = -1;
    msg = "bad grammar...";
    getin();
    if (!analyze(word1, &type1, &val1))
	return(FALSE);
    if (type1 == 2 && val1 == SAY)
    {
	verb = SAY;
	object = 1;
	return(TRUE);
    }

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

    /* check his grammar */
    if (type1 == 3)
    {
	rspeak(val1);
	return(FALSE);
    }
    else
    {
	if (type2 == 3)
	{
	    rspeak(val2);
	    return(FALSE);
	}
	else
	{
	    if (type1 == 0)
	    {
		if (type2 == 0)
		{
		    printf("%s\n", msg);
		    return(FALSE);
		}
		else
		    motion = val1;
	    }
	    else
	    {
		if (type2 == 0)
		    motion = val2;
		else
		{
		    if (type1 == 1)
		    {
			object = val1;
			if (type2 == 2)
			    verb = val2;
			if (type2 == 1)
			{
			    printf("%s\n", msg);
			    return(FALSE);
			}
		    }
		    else
		    {
			if (type1 == 2)
			{
			    verb = val1;
			    if (type2 == 1)
				object = val2;
			    if (type2 == 2)
			    {
				printf("%s\n", msg);
				return(FALSE);
			    }
			}
			else
			    bug(36);
		    }
		}
	    }
	}
    }
    return(TRUE);
}


/*
                Routine to analyze a word.
*/
BOOL PASCAL analyze(char *word, SHORT *type, SHORT *value)
{
    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(VOID)
{
    auto     char      *bptr;
    auto     char	linebuff[65];

    putchar('>');
    word1[0] = word2[0] = '\0';
    bptr = linebuff;
    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
*/
VOID PASCAL getword(char **buff, char *word)
{
    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
*/
VOID PASCAL skipspc(char **buff)
{
    while (isspace(**buff))
	++(*buff);

    return;
}