/*
   =============================================================================
	curset.c -- cursor control and data entry parameter setup
	Version 14 -- 1988-12-13 -- D.N. Lynx Crowe
   =============================================================================
*/

#define	DEBUGIT		0

#include "ram.h"

#if	DEBUGIT
uint16_t	debugcs = 1;

char	*C_TYPE[] = {

	"CT_GRAF",	/*	0	graphics */
	"CT_TEXT",	/*	1	text -- general */
	"CT_VIRT",	/*	2	virtual -- graphic */
	"CT_SCOR",	/*	3	text -- score */
	"CT_SMTH",	/*	4	text -- smooth scroll */
	"CT_MENU"	/*	5	virtual -- character */
};
#endif

int16_t	trkonly = FALSE;		/* set TRUE to force use of trackball */

#if	DEBUGIT

/*
   =============================================================================
	SnapCT() -- snap dump curpak variables
   =============================================================================
*/

SnapCT()
{
	printf("\ncurpak variables:\n");
	printf("   curtype = $%lX\n", curtype);
	printf("   premove = $%lX\n", premove);
	printf("   pstmove = $%lX\n", pstmove);
	printf("   cx_key  = $%lX\n", cx_key);
	printf("   cy_key  = $%lX\n", cy_key);
	printf("   cx_upd  = $%lX\n", cx_upd);
	printf("   cy_upd  = $%lX\n", cy_upd);
	printf("   xy_up   = $%lX\n", xy_up);
	printf("   xy_dn   = $%lX\n", xy_dn);
	printf("   x_key   = $%lX\n", x_key);
	printf("   e_key   = $%lX\n", e_key);
	printf("   m_key   = $%lX\n", m_key);
	printf("   d_key   = $%lX\n", d_key);
	printf("   not_fld = $%lX\n", not_fld);
	printf("   curfet  = $%lX\n", curfet);
	printf("   csbp    = $%lX\n", csbp);
	printf("   cratex  = $%lX\n", cratex);
	printf("   cratey  = $%lX\n", cratey);
	printf("   cmtype  = %d\n", cmtype);
	printf("   cxval   = %d\n", cxval);
	printf("   cyval   = %d\n", cyval);
	printf("\n");
}

#endif

/*
   =============================================================================
	stdctp0() -- cursor type - text, virtual
   =============================================================================
*/

int16_t stdctp0(void)
{
	return(submenu ? CT_VIRT : CT_TEXT);
}

/*
   =============================================================================
	stdctp1() -- cursor type -- graphic, text, virtual -- text if > curslim
   =============================================================================
*/

int16_t stdctp1(void)
{
	if (submenu)
		return(CT_VIRT);

	return((cyval > curslim) ? CT_TEXT : CT_GRAF);
}

/*
   =============================================================================
	stdctp2() -- cursor type -- graphic
   =============================================================================
*/

int16_t stdctp2(void)
{
	return(CT_GRAF);
}

/*
   =============================================================================
	stdctp3() -- cursor type -- graphic, score text, virtual
   =============================================================================
*/

int16_t stdctp3(void)
{
	if (submenu)
		return(CT_VIRT);

	return(((cyval < 14) OR (cyval > 237)) ? CT_SCOR : CT_GRAF);
}

/*
   =============================================================================
	stdctp4() -- cursor type -- graphic, text, virtual -- text if < curslim
   =============================================================================
*/

int16_t stdctp4(void)
{
	if (submenu)
		return(CT_VIRT);

	return((cyval < curslim) ? CT_TEXT : CT_GRAF);
}

/*
   =============================================================================
	stdctp5() -- cursor type - text, virtual - character objects
   =============================================================================
*/

int16_t stdctp5(void)
{
	return(submenu ? CT_MENU : CT_SMTH);
}

/*
   =============================================================================
	curset() -- setup the cursor control and data entry parameters
   =============================================================================
*/

void curset(struct curpak *s)
{
#if	DEBUGIT
	if (debugsw AND debugcs)
		printf("curset($%lX): ENTRY old cmtype=%d\n", s, cmtype);
#endif

	curtype = s->curtype;
	premove = s->premove;
	pstmove = s->pstmove;

	curmove = cmvgen;

	if (trkonly) {

		cx_key  = txstd;
		cy_key  = tystd;

	} else {

		cx_key  = s->cx_key;
		cy_key  = s->cy_key;
	}

	cx_upd  = s->cx_upd;
	cy_upd  = s->cy_upd;
	xy_up   = s->xy_up;
	xy_dn   = s->xy_dn;
	x_key   = s->x_key;
	e_key   = s->e_key;
	m_key   = s->m_key;
	d_key   = s->d_key;
	not_fld = s->not_fld;
	curfet  = s->curfet;
	csbp    = s->csbp;
	cratex  = s->cratex;
	cratey  = s->cratey;
	cmtype  = s->cmtype;
	cxval   = s->cxval;
	cyval   = s->cyval;

#if	DEBUGIT
	if (debugsw AND debugcs)
		printf("curset($%lX): new cmtype=%d\n", s, cmtype);
#endif


	if (cmtype EQ CT_GRAF) {	/* graphics */

		chtime  = hcwval;
		cvtime  = vcwval;

	} else {			/* text of some sort */

		chtime  = thcwval;
		cvtime  = (cmtype EQ CT_SMTH) ? syrate : tvcwval;
	}

	stccol  = XTOC(cxval);
	stcrow  = YTOR(cyval);

	chwait  = chtime;
	cvwait  = cvtime;

	nchwait = curhold;
	ncvwait = curhold;

	cmfirst = TRUE;

	ebflag = FALSE;
	memset(ebuf, '\0', sizeof ebuf);

	cfetp  = (struct fet *)NULL;
	infetp = (struct fet *)NULL;

#if	DEBUGIT
	if (debugsw AND debugcs) {

		printf("curset($%lX): EXIT cmtype=%d=%s chtime=%d  cvtime=%d  curhold=%d\n",
			s, cmtype,
			(cmtype < 6) ? C_TYPE[cmtype] : "UNKNOWN",
			chtime, cvtime, curhold);

		SnapCT();
	}
#endif

}