string keystr[50];
string tmpkey[50];
string oldkey[50];

//these are string definitions for your movement keys, these are what you would 
//use in the menu as the strings for the keys to be shown
string up_str = "Up"; 
string left_str = "Left";
string right_str = "Right";
string down_str = "Down";
///these are the variables you will use with the press_key(num) function
var_info up = 72;
var_info left = 75;
var_info right = 77;
var_info down = 80;

///if you want to add support for more keys that aren't working, add them here
function set_keyname(keystr)
{
	if (key_lastpressed <= 255) //if the scancode is lessthan or equal to 255
	{
		str_for_key (keystr,key_lastpressed);
		if (key_lastpressed == 14)
		{
			str_cpy (keystr, "backspace");
		}
		if (key_lastpressed == 42)
		{
			str_cpy (keystr, "left shift");
		}
		if (key_lastpressed == 54)
		{
			str_cpy (keystr, "right shift");
		}
		if (key_lastpressed == 82)
		{
			str_cpy (keystr, "insert");
		}
		if (key_lastpressed == 83)
		{
			str_cpy (keystr, "delete");
		}
		if (key_lastpressed == 73)
		{
			str_cpy (keystr, "page up");
		}
		if (key_lastpressed == 81)
		{
			str_cpy (keystr, "page down");
		}
		if (key_lastpressed == 72)
		{
			str_cpy (keystr, "up arrow");
		}
		if (key_lastpressed == 80)
		{
			str_cpy (keystr, "down arrow");
		}
		if (key_lastpressed == 75)
		{
			str_cpy (keystr, "left arrow");
		}
		if (key_lastpressed == 77)
		{
			str_cpy (keystr, "right arrow");
		}
		if (key_lastpressed == 12)
		{
			str_cpy (keystr, "minus");
		}
		if (key_lastpressed == 43)
		{
			str_cpy (keystr, "backslash");
		}
		if (key_lastpressed == 39)
		{
			str_cpy (keystr, "semicolon");
		}
		if (key_lastpressed == 40)
		{
			str_cpy (keystr, "apostrophie");
		}
		if (key_lastpressed == 51)
		{
			str_cpy (keystr, "comma");
		}
		if (key_lastpressed == 52)
		{
			str_cpy (keystr, "period");
		}
		if (key_lastpressed == 70)
		{
			str_cpy (keystr, "scroll lock");
		}
	}
	else //if the scancode is more than 255, joystick buttons would be added here
	{
		if (key_lastpressed == 280)
		{
			str_cpy (keystr, "mouse left");
		}
	}
}

function reset_key(keystr, tmpkey)
{
	str_cpy(oldkey, tmpkey);
	recheck:
	while (key_any) { wait(1); }
	str_cpy (tmpkey, "Press A Key");
	mouse_mode = 0;
	//freeze_mode = 1;
	while (key_any == null) { wait(1); }
	if (!key_pressed(55) && !key_pressed(key_for_str("esc")) && !key_pressed(key_for_str("grave")))
	{
		str_for_num(keystr, key_lastpressed);
		set_keyname (tmpkey);
		while (key_any) { wait(1); }
		mouse_mode = 1;
		return;
		//freeze_mode = 0;
	}
	if (key_pressed(key_for_str("esc")))
	{
		str_cpy(tmpkey, oldkey); return;
	}
	str_cpy (tmpkey, "Invalid Key");
	sleep(1);
	goto(recheck);
}

function press_key(num)
{
	return(key_pressed(num));
}

/*
multiple evals after match and assign in set_keyname? 
*/

/*
parallel arrays
*/
var in_atos1[512];
var in_aton1[512];
var in_aact1[32];



TEXT in_t1 {
	strings = 50;
}

var in_n1 = 0;
var in_n2 = 0;
var in_nLines1 = 0;
STRING in_s1;

function inf_t1(_n1, _s1) {
	if (in_nLines1 >= in_t1.strings) {
		error("err: in_t1.strings exceeded!");
		return(0);
	}
	in_atos1[_n1] = in_nLines1;
	in_aton1[in_nLines1] = _n1;
	str_cpy(in_t1.string[in_nLines1], _s1);
	
	in_nLines1+=1;
	return(1);
}
function inf_new1() {
	in_n1 = 0;
	inf_t1(12, "minus");
	inf_t1(14, "backspace");
	inf_t1(39, "semicolon");
	inf_t1(40, "apostrophe");
	inf_t1(42, "left shift");
	inf_t1(43, "backslash");
	inf_t1(51, "comma");
	inf_t1(52, "period");
	inf_t1(54, "right shift");
	inf_t1(70, "scroll lock");
	inf_t1(72, "up arrow");
	inf_t1(73, "page up");
	inf_t1(77, "right arrow");
	inf_t1(80, "down arrow");
	inf_t1(81, "page down");
	inf_t1(82, "insert");
	inf_t1(83, "delete");
	inf_t1(256, "joy1 button1");
	inf_t1(280, "mouse left");
}
// inf_s1(82);
// in_s1 is "insert"
function inf_s1(_nCode) {
	in_n2 = in_atos1[_nCode];
	str_cpy(in_s1, in_t1.string[in_n2]);
}

// inf_n1("insert") is 82
function inf_n1(_sName) {
	in_n1 = 0;
	if (_sName == NULL) { return(-1); }
	while(in_n1 < in_nLines1) {
		if (str_cmpni(in_t1.string[in_n1], _sName)) { 
			return(in_aton1[in_n1]);
		}
		in_n1 += 1;
	}
	return(-1);
}

// tested to here

var act_run = 0;
var in_nAct1 = 0;

function inf_set1(&_nAct, _s1) {
	_nAct[0] = in_nAct1;
	in_aact1[_nAct] = inf_n1(_s1);
	in_nAct1 += 1;
}
/*
inf_set1(act_run, "left shift");
*/
function inf_h(_nAct) {
	return(key_pressed(in_aact1[_nAct]));
}
/*
if (inf_h(act_run)) {
*/