/*
	Doom Editor Utility, by Brendon Wyber and Rapha‰l Quinet.

        Adapted from the Borland C original by JP Morris

	You are allowed to use any parts of this code in another program, as
	long as you give credits to the authors in the documentation and in
	the program itself.  Read the file README.1ST for more information.

	This program comes with absolutely no warranty.

	GFX.C - Graphics routines.
*/

int vp=0;

#include <allegro.h>
#include "../tdgui.h"

/* the includes */
#include "../ithelib.h"
#include "../console.h"
#include "../loadfile.h"
#include "menusys.h"
#include "../oscli.h"
#include <math.h>
#ifndef _WIN32
#include <unistd.h>
#endif

#define Preserve();	blit(swapscreen,_copybitmapdata,0,0,0,0,swapscreen->w,swapscreen->h);
#define Restore();  blit(_copybitmapdata,swapscreen,0,0,0,0,swapscreen->w,swapscreen->h);
#define INVALID -2147483647
#define MAXDIV10 214748364

static char *InputNameFromList_getter(int index, int *list_size);
static char **UserList;
static int UserListLen;

extern BITMAP *swapscreen;
static BITMAP *_copybitmapdata;

/* the global variables */
int OrigX;		/* the X origin */
int OrigY;		/* the Y origin */
int Scale;		/* the scale value */
int PointerX;		/* X position of pointer */
int PointerY;		/* Y position of pointer */
int ScrMaxX;		/* maximum X screen coord */
int ScrMaxY;		/* maximum Y screen coord */
int ScrCenterX;		/* X coord of screen center */
int ScrCenterY;		/* Y coord of screen center */
int CURCOL;


void setfillstyle(int a,int b)
{
CURCOL=b;
}

void F_error(char *msg)
{
KillGFX();
puts("SYSTEM FATAL ERROR:\n");
puts(msg);
exit(1);
}

/*
	initialise the graphics display
*/

void InitGfx()
{
irecon_mouse(1);
ScrMaxX = 640;
ScrMaxY = 480;

_copybitmapdata=create_bitmap(ScrMaxX,ScrMaxY);
if(!_copybitmapdata)
	F_error("Out of memory getting copybitmap");
ScrCenterX = ScrMaxX / 2;
ScrCenterY = ScrMaxY / 2;

// Redefine main panel colour to make it less harsh
bill_face.r=160;
bill_face.g=160;
bill_face.b=160;
}



/*
	terminate the graphics display
*/

void TermGfx()
{
destroy_bitmap(_copybitmapdata);
irecon_mouse(0);
}


/*
   clear the screen
*/

void ClearScreen()
{
clear_to_color(swapscreen,CURCOL);
}


/*
	set the current drawing color
*/

void SetColor( int color)
{
CURCOL=color;
}

void setcolor( int color)
{
CURCOL=color;
}

int getcolor()
{
return CURCOL;
}



/*
	draw a line on the screen from screen coords
*/

void DrawScreenLine( int Xstart, int Ystart, int Xend, int Yend)
{
	line(swapscreen, Xstart, Ystart, Xend, Yend,CURCOL);
}



/*
	draw a filled in box on the screen from screen coords
*/

void DrawScreenBox( int Xstart, int Ystart, int Xend, int Yend)
{
//	fbox( Xstart, Ystart, Xend, Yend,CURCOL,swapscreen);
rectfill(swapscreen,Xstart, Ystart, Xend, Yend,CURCOL);
}



/*
	draw a filled-in 3D-box on the screen from screen coords
*/

void DrawScreenBox3D( int Xstart, int Ystart, int Xend, int Yend)
{
	tdbox(swapscreen,Xstart,Ystart,Xend-Xstart,Yend-Ystart,STL_OUT+STL_FRAME);
	rectfill(swapscreen,Xstart+2,Ystart+2,Xend-2,Yend-2,get_bill_color(bill_face));
}

/*
	draw a filled-in 3D-box on the screen from screen coords
*/

void DrawSunkBox3D( int Xstart, int Ystart, int Xend, int Yend)
{
	tdbox(swapscreen,Xstart,Ystart,Xend-Xstart,Yend-Ystart,STL_IN+STL_FRAME);
	rectfill(swapscreen,Xstart+2,Ystart+2,Xend-2,Yend-2,get_bill_color(bill_face));
}


/*
	draw a hollow 3D-box on the screen from screen coords
*/

void DrawScreenBoxHollow( int Xstart, int Ystart, int Xend, int Yend)
{
   setfillstyle( 1,ITG_BLACK);
   DrawScreenBox( Xstart + 1, Ystart + 1, Xend - 1, Yend - 1);
   SetColor(ITG_WHITE);
	DrawScreenLine( Xstart, Yend, Xend, Yend);
   DrawScreenLine( Xend, Ystart, Xend, Yend);
   if (Xend - Xstart > 20 && Yend - Ystart > 20)
   {
      DrawScreenLine( Xstart + 1, Yend - 1, Xend - 1, Yend - 1);
      DrawScreenLine( Xend - 1, Ystart + 1, Xend - 1, Yend - 1);
      SetColor(ITG_DARKGRAY);
      DrawScreenLine( Xstart + 1, Ystart + 1, Xstart + 1, Yend - 1);
      DrawScreenLine( Xstart + 1, Ystart + 1, Xend - 1, Ystart + 1);
	}
	SetColor(ITG_DARKGRAY);
	DrawScreenLine( Xstart, Ystart, Xend, Ystart);
	DrawScreenLine( Xstart, Ystart, Xstart, Yend);
	SetColor(ITG_WHITE);
}


/*
	write text to the screen
*/

void XDrawScreenChar( int Xstart, int Ystart, char msg)
{
	static int lastX;
	static int lastY;
	char temp[]={0,0};

	if (Xstart < 0)
		Xstart = lastX;
	if (Ystart < 0)
		Ystart = lastY;

	temp[0]=msg;
	textprintf_ex(swapscreen,font,Xstart,Ystart,CURCOL,-1,"%s",temp);

	lastX = Xstart;
	lastY = Ystart + 10;  /* or textheight("W") ? */
}

/*
	write text to the screen
*/

void DrawScreenText( int Xstart, int Ystart, char *msg, ...)
{
	static int lastX;
	static int lastY;
	char temp[ 2048];
	va_list args;

	va_start( args, msg);
	vsprintf( temp, msg, args);
	va_end( args);
	if (Xstart < 0)
		Xstart = lastX;
	if (Ystart < 0)
		Ystart = lastY;
	textprintf_ex(swapscreen,font,Xstart,Ystart,CURCOL,-1,"%s",temp);

	lastX = Xstart;
	lastY = Ystart + 10;  /* or textheight("W") ? */
}

/*
*/


static char *InputNameFromList_getter(int index, int *list_size)
{
if(index < 0)
	{
	if(list_size)
		*list_size = UserListLen;
	return NULL;
	}

return UserList[index];
}


void InputNameFromList( int x0, int y0, char *prompt, int listsize, char **list, char *name)
{
int ret,ctr;

// Declare the dialog box
DIALOG PickList_dialog[] =
	{
		/* (dialog proc)     (x)   (y)   (w)   (h)   (fg)  (bg)  (key) (flags)  (d1)  (d2)  (dp) */
		{ d_billwin_proc,        0,    8,    304,  166,  0,    0,    0,    0,       0,    0,    "" },
		{ d_ctext_proc,          0,    0,    0,    0,    0,    0,    0,    0,       0,    0,    "" },
		{ d_billbutton_proc,     196,  113,  100,  16,   0,    0,    0,    D_EXIT,  0,    0,    "OK" },
		{ d_billbutton_proc,     196,  135,  100,  16,   0,    0,    27,   D_EXIT,  0,    0,    "Cancel" },
		{ d_billlist_proc,       16,   28,   164,  123,  0,    0,    0,    D_EXIT,  0,    0,    InputNameFromList_getter},
	//   { d_billlist_proc,       196,  28,   100,  75,   0,    0,    0,    D_EXIT,  3,    0,    gfx_mode_getter },
		{ NULL }
	};

// Set globals up for the helper function
UserList = list;
UserListLen = listsize;

// Try to set list default
for(ctr=0;ctr<listsize;ctr++)
	if(!istricmp(list[ctr],name))
		{
		// Control 4 is the list box
		PickList_dialog[4].d1=ctr;
		break;
		}

centre_dialog(PickList_dialog);
ret = moveable_do_dialog(PickList_dialog, -1);

// If the user didn't click on Cancel (control 3), set the selection
if (ret != 3)
	strcpy(name,list[PickList_dialog[4].d1]); // control 4 is the listbox
}

// Picklist is 32 characters wide

void InputNameFromList32( int x0, int y0, char *prompt, int listsize, char **list, char *name)
{
int ret,ctr;

// Declare the dialog box
DIALOG PickList_dialog[] =
	{
		/* (dialog proc)     (x)   (y)   (w)   (h)   (fg)  (bg)  (key) (flags)  (d1)  (d2)  (dp) */
		{ d_billwin_proc,        0,    8,    394,  166,  0,    0,    0,    0,       0,    0,    "" },
		{ d_ctext_proc,          0,    0,    0,    0,    0,    0,    0,    0,       0,    0,    "" },
		{ d_billbutton_proc,     288,  113,  100,  16,   0,    0,    0,    D_EXIT,  0,    0,    "OK" },
		{ d_billbutton_proc,     288,  135,  100,  16,   0,    0,    27,   D_EXIT,  0,    0,    "Cancel" },
		{ d_billlist_proc,       16,   28,   256,  123,  0,    0,    0,    D_EXIT,  0,    0,    InputNameFromList_getter},
		{ NULL }
	};

// Set globals up for the helper function
UserList = list;
UserListLen = listsize;

// Try to set list default
for(ctr=0;ctr<listsize;ctr++)
	if(!istricmp(list[ctr],name))
		{
		// Control 4 is the list box
		PickList_dialog[4].d1=ctr;
		break;
		}

centre_dialog(PickList_dialog);
ret = moveable_do_dialog(PickList_dialog, -1);

// If the user didn't click on Cancel (control 3), set the selection
if (ret != 3)
	strcpy(name,list[PickList_dialog[4].d1]); // control 4 is the listbox
}


// Picklist is 32 characters wide

void InputNameFromListWithAdd( int x0, int y0, char *prompt, int listsize, char **list, char *name)
{
int ret,ctr;

// Declare the dialog box
DIALOG PickList_dialog[] =
	{
		/* (dialog proc)     (x)   (y)   (w)   (h)   (fg)  (bg)  (key) (flags)  (d1)  (d2)  (dp) */
		{ d_billwin_proc,        0,    8,    394,  166,  0,    0,    0,    0,       0,    0,    "" },
		{ d_ctext_proc,          0,    0,    0,    0,    0,    0,    0,    0,       0,    0,    "" },
		{ d_billbutton_proc,     288,  113,  100,  16,   0,    0,    0,    D_EXIT,  0,    0,    "OK" },
		{ d_billbutton_proc,     288,  135,  100,  16,   0,    0,    27,   D_EXIT,  0,    0,    "Cancel" },
		{ d_billbutton_proc,     288,  28,   100,  16,   0,    0,    27,   D_EXIT,  0,    0,    "Add New" },
		{ d_billlist_proc,       16,   28,   256,  123,  0,    0,    0,    D_EXIT,  0,    0,    InputNameFromList_getter},
		{ NULL }
	};

if(!list)
	{
	InputIString(-1,-1,prompt,31,name);
	return;
	}

// Set globals up for the helper function
UserList = list;
UserListLen = listsize;

// Try to set list default
for(ctr=0;ctr<listsize;ctr++)
	{
	if(!istricmp(list[ctr],name))
		{
		// Control 5 is the list box
		PickList_dialog[5].d1=ctr;
		break;
		}
	}

centre_dialog(PickList_dialog);
ret = moveable_do_dialog(PickList_dialog, -1);

// Did the user hit 'Add New'?
if (ret == 4)
	{
	InputIString(-1,-1,prompt,31,name);
	return;
	}

// If the user didn't click on Cancel (control 3), set the selection
if (ret != 3)
	{
	// Check that the list entry exists (list may be empty)
	if(list[PickList_dialog[5].d1])
		strcpy(name,list[PickList_dialog[5].d1]); // control 5 is the listbox
	}
}


/*
   ask for a name in a given list and call a function (for displaying objects, etc.)
*/

void InputNameFromListWithFunc( int x0, int y0, char *prompt, int listsize, char **list, int listdisp, char *name, int width, int height, void (*hookfunc)(int x, int y, char *name))
{
   int  key, n, l;
   int  x1, y1, x2, y2;
   int  maxlen;
   int ok, firstkey;

maxlen=0;

if(!hookfunc)
	{
	InputNameFromList(x0,y0,prompt,listsize,list,name);
	return;
	}

	if(listsize<0)
		{
		Notify(-1,-1,"No items in list!","Ooops, my bad");
		name[ 0] = '\0'; /* return an empty string */
		return;
		}

	do clear_keybuf(); while (keypressed() == TRUE);

	listsize++;
	maxlen--;

	/* compute maxlen */
	maxlen = 1;
	for (n = 0; n < listsize; n++)
		if (strlen( list[ n]) > maxlen)
	 maxlen = strlen( list[ n]);
	for (n = strlen(name) + 1; n <= maxlen; n++)
		name[ n] = '\0';
	/* compute the minimum width of the dialog box */
	l = maxlen;
	if (strlen( prompt) > l + 13)
		l = strlen( prompt) - 13;
	l = l * 8 + 158;
	x1 = l + 3;
	y1 = 10 + 1;
	if (width > 0)
		l += 10 + width;
	if (height > 65)
		n = height + 20;
	else
                n = 112;
	if (x0 < 0)
		x0 = (ScrMaxX - l) / 2;
	if (y0 < 0)
		y0 = (ScrMaxY - n) / 2;
	x1 += x0;
	y1 += y0;
	if (x1 + width - 1 < ScrMaxX)
		x2 = x1 + width - 1;
	else
		x2 = ScrMaxX;
	if (y1 + height - 1 < ScrMaxY)
		y2 = y1 + height - 1;
	else
		y2 = ScrMaxY;

	Preserve();

	DrawScreenBox3D( x0, y0, x0 + l, y0 + n);
	DrawScreenBoxHollow( x0 + 10, y0 + 28, x0 + 241, y0 + 41);
	DrawScreenText( x0 + 10, y0 + 8, prompt);
	if (width > 0)
		{
		DrawScreenBox( x1, y1, x2 + 1, y2 + 1);
		setcolor(ITG_DARKGRAY);
		DrawScreenBox( x1 - 1, y1 - 1, x2, y2);
		}
	firstkey = TRUE;
	for (;;)
	{
		/* test if "name" is in the list */
		for (n = 0; n < listsize; n++)
	if (strcmp( name, list[ n]) <= 0)
		break;
		ok = n < listsize ? !strcmp( name, list[ n]) : FALSE;
		if (n > listsize - 1)
	n = listsize - 1;
		/* display the "listdisp" next items in the list */
		setcolor(get_bill_color(bill_face));
		DrawScreenBox( x0 + 10, y0 + 48, x0 + 10 + 8 * maxlen, y0 + 48 + 10 * listdisp);
		setcolor(ITG_BLACK);
		for (l = 0; l < listdisp && n + l < listsize; l++)
	DrawScreenText( x0 + 10, y0 + 48 + l * 10, list[ n + l]);
		l = strlen( name);
		DrawScreenBox( x0 + 11, y0 + 29, x0 + 240, y0 + 40);
		if (ok)
	setcolor(ITG_WHITE);
		else
	setcolor(get_bill_color(bill_face));
		DrawScreenText( x0 + 13, y0 + 31, name);
		if (hookfunc)
	            hookfunc( x1, y1, name);
		Show();
		key = readkey();
		if (firstkey && (key & 0x00FF) >= ' ')
		{
	for (l = 0; l <= maxlen; l++)
		 name[ l] = '\0';
	l = 0;
		}
		firstkey = FALSE;
		if (l < maxlen && (key & 0x00FF) >= 'a' && (key & 0x00FF) <= 'z')
			{
			name[ l] = (key & 0x00FF) + ('A' - 'a');
			name[ l + 1] = '\0';
			}
		else if (l < maxlen && (key & 0x00FF) >= ' ')
			{
			name[ l] = key & 0x00FF;
			name[ l + 1] = '\0';
			}
		else if (l > 0 && (key >> 8) == KEY_BACKSPACE)
			name[ l - 1] = '\0';
		else if (n < listsize - 1 && (key >> 8) == KEY_DOWN)
	strcpy(name, list[ n + 1]);
		else if (n > 0 && (key >> 8) == KEY_UP)
	strcpy(name, list[ n - 1]);
		else if (n < listsize - listdisp && (key >> 8) == KEY_PGDN)
	strcpy(name, list[ n + listdisp]);
		else if (n > 0 && (key >> 8) == KEY_PGUP)
		{
	if (n > listdisp)
		 strcpy(name, list[ n - listdisp]);
	else
		 strcpy(name, list[ 0]);
		}
		else if ((key & 0xFF00) == 0x4F00)
	strcpy(name, list[ listsize - 1]);
		else if ((key & 0xFF00) == 0x4700)
	strcpy(name, list[ 0]);
		else if ((key >> 8) == KEY_TAB)
	strcpy(name, list[ n]);
		else if (ok && (key & 0x00FF) == 0x000D)
	break; /* return "name" */
		else if ((key >> 8) == KEY_ESC)
			{
			name[ 0] = '\0'; /* return an empty string */
			break;
			}
	}
	Restore();
	Show();

clear_keybuf();
}



// InputFileName - Checking disabled, in case Long Filenames are desired

void InputFileName( int x0, int y0, char *prompt, int maxlen, char *filename)
{
char newfile[1024];

//strcpy(newfile,filename);
strcpy(newfile,projectname);
strcat(newfile,"/");
strcat(newfile,filename);

//clean_path(newfile);

show_mouse(screen);
//unscare_mouse();
if(!billfile_select(prompt,newfile,NULL))
	filename[0]='\0';
else
	{
	ilog_quiet("old filename = %s\n",newfile);
	clean_path(newfile);
	ilog_quiet("new filename = %s\n",newfile);
	strncpy(filename,newfile,maxlen);
	filename[maxlen]='\0';
	}

//scare_mouse();
show_mouse(swapscreen);
}

// InputString - Adapted from InputFilename, but with checking removed

void InputString( int x0, int y0, char *prompt, int maxlen, char *filename)
{
	int   key, l, boxlen,l2;
   int  ok=TRUE, firstkey;
   char evil[1024];
   maxlen--;

   do clear_keybuf(); while (keypressed() == TRUE);

Preserve();

	strcpy(evil,filename);
   setcolor(ITG_WHITE);
   for (l = strlen(filename) + 1; l <= maxlen; l++)
      filename[ l] = '\0';
   /* compute the width of the input box */
	if (maxlen > 20)
      boxlen = 20;
	else
      boxlen = maxlen;
	/* compute the width of the dialog box */
	if (strlen( prompt) > boxlen)
      l = strlen( prompt);
	else
      l = boxlen;
   if (x0 < 0)
      x0 = (ScrMaxX - 26 - 8 * l) / 2;
   if (y0 < 0)
      y0 = (ScrMaxY - 50) / 2;
   /* draw the dialog box */
   l2=l;
   DrawScreenBox3D( x0, y0, x0 + 26 + 8 * l, y0 + 50);
   DrawScreenBoxHollow( x0 + 10, y0 + 28, x0 + 15 + 8 * boxlen, y0 + 41);
   DrawScreenText( x0 + 10, y0 + 8, prompt);
   firstkey = TRUE;
	for (;;)
	{
		l = strlen( filename);
		setcolor(ITG_BLACK);
		DrawScreenBox( x0 + 11, y0 + 29, x0 + 14 + 8 * boxlen, y0 + 40);
		if (ok)
	 setcolor(ITG_WHITE);
		else
	 setcolor(get_bill_color(bill_face));
		if (l > boxlen)
		{
	 DrawScreenText( x0 + 11, y0 + 31, "<");
	 DrawScreenText( x0 + 13, y0 + 31, "<%s", filename + (l - boxlen + 1));
		}
		else
	 DrawScreenText( x0 + 13, y0 + 31, filename);
         Show();
		key = readkey();
		if (firstkey && (key & 0x00FF) >= ' ')
		{
	 for (l = 0; l <= maxlen; l++)
		 filename[ l] = '\0';
	 l = 0;
		}
		firstkey = FALSE;
		if (l < maxlen && (key & 0x00FF) >= 'a' && (key & 0x00FF) <= 'z')
		{
	 filename[ l] = (key & 0x00FF) + ('A' - 'a');
	 filename[ l + 1] = '\0';
		}
		else if (l < maxlen && (key & 0x00FF) >= ' ')
      {
	 filename[ l] = key & 0x00FF;
         if(filename[ l] == ' ')     // No spaces allowed
             filename[ l]='_';
	 filename[ l + 1] = '\0';
      }
      else if (l > 0 && (key & 0x00FF) == 0x0008)
	 filename[ l - 1] = '\0';
		else if (ok && (key & 0x00FF) == 0x000D)
	 break; /* return "filename" */
      else if ((key & 0x00FF) == 0x001B)
      {
	 strcpy(filename,evil);
	 break;
      }
   }
Restore();
Show();
clear_keybuf();
}


void InputIString( int x0, int y0, char *prompt, int maxlen, char *filename)
{
	int   key, l, boxlen,l2;
   int  ok=TRUE, firstkey;
   char evil[2048];
   maxlen--;

   do clear_keybuf(); while (keypressed() == TRUE);
Preserve();

	strcpy(evil,filename);
   setcolor(ITG_WHITE);
   for (l = strlen(filename) + 1; l <= maxlen; l++)
      filename[ l] = '\0';
   /* compute the width of the input box */
	if (maxlen > 70)
      boxlen = 70;
	else
      boxlen = maxlen;
	/* compute the width of the dialog box */
	if (strlen( prompt) > boxlen)
      l = strlen( prompt);
	else
      l = boxlen;
   if (x0 < 0)
      x0 = (ScrMaxX - 26 - 8 * l) / 2;
   if (y0 < 0)
      y0 = (ScrMaxY - 50) / 2;
   /* draw the dialog box */
   l2=l;

   DrawScreenBox3D( x0, y0, x0 + 26 + 8 * l, y0 + 50);
   DrawScreenBoxHollow( x0 + 10, y0 + 28, x0 + 15 + 8 * boxlen, y0 + 41);
   DrawScreenText( x0 + 10, y0 + 8, prompt);
   firstkey = TRUE;
	for (;;)
	{

		l = strlen( filename);
		setcolor(ITG_BLACK);
		DrawScreenBox( x0 + 11, y0 + 29, x0 + 14 + 8 * boxlen, y0 + 40);
		if (ok)
	 setcolor(ITG_WHITE);
		else
	 setcolor(get_bill_color(bill_face));
		if (l > boxlen)
		{
	 DrawScreenText( x0 + 11, y0 + 31, "<");
	 DrawScreenText( x0 + 13, y0 + 31, "<%s", filename + (l - boxlen + 1));
		}
		else
	 DrawScreenText( x0 + 13, y0 + 31, filename);
         Show();
		key = readkey();
		if (firstkey && (key & 0x00FF) >= ' ')
		{
	 for (l = 0; l <= maxlen; l++)
		 filename[ l] = '\0';
	 l = 0;
		}
		firstkey = FALSE;

      if (l < maxlen && (key & 0x00FF) >= ' ')
      {
	 filename[ l] = key & 0x00FF;
	 filename[ l + 1] = '\0';
      }
      else if (l > 0 && (key & 0x00FF) == 0x0008)
	 filename[ l - 1] = '\0';
		else if (ok && (key & 0x00FF) == 0x000D)
	 break; // return "filename"

      else
      if ((key & 0x00FF) == 0x001B)
      {
	 strcpy(filename,evil);
	 break;
      }
   }
Restore();
Show();
clear_keybuf();
}


/*
 *  ask for confirmation (prompt2 may be NULL)
 */

int Confirm( int x0, int y0, char *prompt1, char *prompt2)
{
int ret;
ret=billalert("Confirm:",prompt1,prompt2,"Yes","No",'Y','N');
if(ret == 2)
	return 0;
return 1;
}


/*
 *  display a notification and wait for a key (prompt2 may be NULL)
 */

int Notify( int x0, int y0, char *prompt1, char *prompt2)
{
billalert("Alert:",prompt1,prompt2,"OK",NULL,KEY_ENTER,0);
return 0;
}


/*
	display the integer input box
*/

int InputInteger( int x0, int y0, int *valp, int minv, int maxv)
{
   int  key, val;
   int neg, ok, firstkey;

   do clear_keybuf(); while (keypressed() == TRUE);

   DrawScreenBoxHollow( x0, y0, x0 + 121, y0 + 13);
	neg = (*valp < 0);
	val = neg ? -(*valp) : *valp;
	firstkey = TRUE;
	for (;;)
	{
		ok = (neg ? -val : val) >= minv && (neg ? -val : val) <= maxv;
		setcolor(ITG_BLACK);
		DrawScreenBox( x0 + 1, y0 + 1, x0 + 120, y0 + 12);
		if (ok)
	 setcolor(ITG_WHITE);
		else
	 setcolor(get_bill_color(bill_face));
		if (neg)
	 DrawScreenText( x0 + 3, y0 + 3, "-%d", val);
		else
	 DrawScreenText( x0 + 3, y0 + 3, "%d", val);
		Show();
		key = readkey();
		if (firstkey && (key & 0x00FF) > ' ')
		{
	 val = 0;
	 neg = FALSE;
		}
		firstkey = FALSE;
//		if (val < 3275 && (key & 0x00FF) >= '0' && (key & 0x00FF) <= '9')

		if (val < MAXDIV10 && (key & 0x00FF) >= '0' && (key & 0x00FF) <= '9')
	 val = val * 10 + (key & 0x00FF) - '0';
		else if (val > 0 && (key & 0x00FF) == 0x0008)
	 val = val / 10;
		else if (neg && (key & 0x00FF) == 0x0008)
	 neg = FALSE;
		else if ((key & 0x00FF) == '-')
	 neg = !neg;
		else if (ok && (key & 0x00FF) == 0x000D)
	 break; /* return "val" */
		else if ((key & 0xFF00) == 0x4800 || (key & 0xFF00) == 0x5000 ||
			 (key & 0xFF00) == 0x4B00 || (key & 0xFF00) == 0x4D00 ||
			 (key & 0x00FF) == 0x0009 || (key & 0xFF00) == 0x0F00)
	 break; /* return "val", even if not valid */
		else if ((key & 0x00FF) == 0x001B)
		{
	 val = INVALID; /* return a value out of range */
	 neg = 0;	// JPM: Do not negate this!
	 break;
		}
	}
	if (neg)
		*valp = -val;
	else
		*valp = val;

clear_keybuf();
return key;
}



/*
	ask for an integer value and check for minimum and maximum
*/

int InputIntegerValue( int x0, int y0, int minv, int maxv, int defv)
{
	int  val, key;
   char prompt[ 80];

   do clear_keybuf(); while (keypressed() == TRUE);

   sprintf( prompt, "Enter a number (%d-%d):", minv, maxv);
	if (x0 < 0)
      x0 = (ScrMaxX - 25 - 8 * strlen( prompt)) / 2;
   if (y0 < 0)
      y0 = (ScrMaxY - 55) / 2;

	Preserve();
	DrawScreenBox3D( x0, y0, x0 + 25 + 8 * strlen( prompt), y0 + 55);
	setcolor(ITG_WHITE);
	DrawScreenText( x0 + 10, y0 + 8, prompt);
	val = defv;
	while (((key = InputInteger( x0 + 10, y0 + 28, &val, minv, maxv)) & 0x00FF) != 0x000D && (key & 0x00FF) != 0x001B) Show();
	if(val==INVALID)
		val=defv;
	Restore();
    clear_keybuf();
	return val;
}


int InputIntegerValueP( int x0, int y0, int minv, int maxv, int defv, char *promptstr)
{
	int  val, key;
   char prompt[ 80];

   do clear_keybuf(); while (keypressed() == TRUE);

   sprintf( prompt, "%s (%d-%d):", promptstr, minv, maxv);
	if (x0 < 0)
      x0 = (ScrMaxX - 25 - 8 * strlen( prompt)) / 2;
   if (y0 < 0)
      y0 = (ScrMaxY - 55) / 2;

	Preserve();
	DrawScreenBox3D( x0, y0, x0 + 25 + 8 * strlen( prompt), y0 + 55);
	setcolor(ITG_WHITE);
	DrawScreenText( x0 + 10, y0 + 8, prompt);
	val = defv;
	while (((key = InputInteger( x0 + 10, y0 + 28, &val, minv, maxv)) & 0x00FF) != 0x000D && (key & 0x00FF) != 0x001B) Show();
	if(val==INVALID)
		val=-1;
	Restore();
    clear_keybuf();
	return val;
}





void Box(int a,int b,int c,int d)
{
DrawScreenLine(a,b,c,b);
DrawScreenLine(a,d,c,d);
DrawScreenLine(a,b,a,d);
DrawScreenLine(c,b,c,d);
}


void ClipBox(int x,int y,int w,int h,int col,BITMAP *screen)
{
    int max,may,mix,miy;        // X,Y pairs, major, minor

    mix = x;
    if(mix < 0)
        mix = 0;
    if(mix > ScrMaxX)
        mix = ScrMaxX;

    max = x + w;
    if(max < 0)
        max = 0;
    if(max > ScrMaxX)
        max = ScrMaxX;

    miy = y;
    if(miy < 0)
        miy = 0;
    if(miy > ScrMaxY)
        miy = ScrMaxY;

    may = y + h;
    if(may < 0)
        may = 0;
    if(may > ScrMaxY)
        may = ScrMaxY;

    rect(screen,mix,miy,max,may,col);
}

/*
   draw a meter bar on the screen from screen coords (in a hollow box); max. value = 1.0
*/

void DrawScreenMeter( int Xstart, int Ystart, int Xend, int Yend, float value)
{
static int lx=0;

if (value < 0.0)
	value = 0.0;
if (value > 1.0)
	value = 1.0;
rectfill(swapscreen, Xstart + 1 + (int) ((Xend - Xstart - 2) * value), Ystart + 1, Xend - 1, Yend - 1,ITG_BLACK);
rectfill(swapscreen, Xstart + 1, Ystart + 1, Xstart + 1 + (int) ((Xend - Xstart - 2) * value), Yend - 1,ITG_LIGHTGREEN);

//Only draw on update

if((int) ((Xend - Xstart - 2) * value) != lx)
	{
	lx=(int) ((Xend - Xstart - 2) * value);
	Show();
	}
}












/* end of file */