// don't forget to include this in the main script
// call texture_scan(); in your player script just before the while loop

SOUND* grass_snd = "grass.wav";
SOUND* stone_snd = "stone.wav";

#define grass 1 // to have some decent names as function arguments
#define stone 2

var step_length = 0;

VECTOR player_pos1;
VECTOR player_pos2;

function texture_sound(sound_type)
{
	// you can have step_length % 3 to double the steps and so on	
	// I choose 6 to make sure that it will divide 1 and 3 (step_length += ...)
	// 6 / 4 = 1.5 seconds between steps
	if ((sound_type == grass) && (step_length % 6 == 0)) // 0, 6
	{
		snd_play (grass_snd, 60, 0); 
	}
	if ((sound_type == stone) && (step_length % 6 == 0)) // 0, 6
	{
		snd_play (stone_snd, 50, 0);
	}
	if (step_length >= 6) {step_length = 0;} 
}

function texture_scan()
{
	while (player == NULL) {wait (1);}
	while (1) 
	{
		vec_set (player_pos1.x, player.x);
		wait(1);
		vec_set (player_pos2.x, player.x);	
		c_trace(my.x, vector(my.x, my.y, my.z - 100), IGNORE_ME + IGNORE_MODELS + IGNORE_PASSABLE + SCAN_TEXTURE);
		if(vec_dist (player_pos1.x, player_pos2.x) != 0)
		{
			if (str_cmpi (tex_name,"grass1"))
			{
				texture_sound(grass);
			}
			else
			{
				texture_sound(stone);
			}			
		}
		step_length += 1 + 2 * key_shift; // add 4 (12 if shift is pressed) to step_length every second
		wait (-1.5); // play with this 
	}
}

BMAP* color_bmap="color.bmp"; //colormap of the terrain
function color_scan()
{
	var format,pixel;
	COLOR pixel_color;
	while(1)
	{
		c_trace(camera.x,vector(camera.x,camera.y,camera.z-5000),SCAN_TEXTURE);
		if(HIT_TARGET)
		{
			draw_point3d(hit.x,vector(0,0,255),100,5);
			format = bmap_lock (color_bmap,0);
			pixel = pixel_for_bmap(color_bmap, hit.u1, hit.v1);
			pixel_to_vec (pixel_color, NULL, format, pixel); 
			if(pixel_color.red>100)
			{
				draw_text("RED!",100,10,vector(100,100,255));
			}
			if(pixel_color.green>100)
			{
				draw_text("GREEN!",100,10,vector(100,100,255));
			}
			if(pixel_color.blue>100)
			{
				draw_text("BLUE!",100,10,vector(100,100,255));
			}
			bmap_unlock(color_bmap);
		}
		wait(1);
	}
}