eastern-flames/eastern flames/scripts/st_moving/st_moving.gml

function st_moving() {
	var mov = data.mov.val;
	c_input();
	hspd = lerp(hspd, (right-left)*.07, .4);
	vspd = lerp(vspd, (down-up)*.07, .4);
	if !stop dir = DIR.NONE;
	if left dir = DIR.LEFT;
	if down dir = DIR.DOWN;
	if up dir = DIR.UP;
	if right dir = DIR.RIGHT;
	if leftp dir = DIR.LEFT;
	if downp dir = DIR.DOWN;
	if upp dir = DIR.UP;
	if rightp dir = DIR.RIGHT;
	var remainingmov = mov+1 - (
		abs(x+hspd-16-returnpos.x*ts.x)/ts.x +
		abs(y+vspd-16-returnpos.y*ts.y)/ts.y
	);
	//var shitmode = point_distance(x, y, returnpos.x*ts.x, returnpos.y*ts.y);
	//if shitmode > mov*ts.x {
	if !stop {
		x += hspd*ts.x;
		y += vspd*ts.y;
	}
	while !remainingmov {
		hspd = 0;
		vspd = 0;
		x = linear_approach(x, returnpos.x*ts.x+16, 1);
		y = linear_approach(y, returnpos.y*ts.y+16, 1);
		log(x, returnpos.x*ts.x);
		log(y, returnpos.y*ts.y);
		var remainingmov = mov+1 - (
			abs(x+hspd-16-returnpos.x*ts.x)/ts.x +
			abs(y+vspd-16-returnpos.y*ts.y)/ts.y
		);
		//log("oob, " + string(remainingmov));
	/*} else {
		log("not oob!");*/
	}
	var dude = c_gettile(x, y, true);
	pos.x = dude.x;
	pos.y = dude.y;
	prevremainingmov = remainingmov;
	c_decolor_all(c_red);
	c_decolor_all(c_green);
	var guy = c_gettile(pos.x, pos.y);
	c_colortile(guy.x, guy.y, c_green);
	//log("selecting");
	//var rng = [1];
	var guy = c_gettile(x, y, true);
	var hitting = noone;
	if guy != noone {
		switch dir {
			case DIR.LEFT:
				hitting = c_gettile(guy.x-1, guy.y);
				sprite_index = data.down;
				image_xscale = -1;
				break;
			case DIR.DOWN:
				hitting = c_gettile(guy.x, guy.y+1);
				sprite_index = data.down;
				break;
			case DIR.UP:
				hitting = c_gettile(guy.x, guy.y-1);
				sprite_index = data.up;
				break;
			case DIR.RIGHT:
				hitting = c_gettile(guy.x+1, guy.y);
				sprite_index = data.down;
				image_xscale = 1;
				break;
			default:
				sprite_index = data.idle;
				//image_xscale = -1;
				break;
				
		}
		if hitting != noone && stop c_colortile(hitting.x, hitting.y, c_red);
		if hitting != noone && select && stop {
			log("found one");
			log(hitting.contents, hitting.x, hitting.y);
			var i;
			for (i=0; i<array_length(hitting.contents); i++) {
				if instance_exists(hitting.contents[i]) {
					log("is instance");
					if hitting.contents[i].object_index = o_unit {
						log("is unit");
						log("found two");
						c_moveunit(id, c_gettile(x, y, true));
						c_generatecombatstack([id, hitting.contents[i]]);
					}
				}
			}
		}
	}
	if back {
		c_moveunit(id, c_gettile(returnpos.x, returnpos.y));
		c_deselectunit(id);
	}
	if dir == DIR.NONE && select {
		c_moveunit(id, c_gettile(x, y, true));
		waiting = true;
		c_deselectunit(id);
	}
	/*if x < (returnpos.x-mov)*ts.x {
		x = (returnpos.x-mov)*ts.x;
	} else if x > (returnpos.x+mov+1)*ts.x {
		x = (returnpos.x+mov+1)*ts.x;
	} else {
		x += hspd*ts.x;
	}
	if y < (returnpos.y-mov)*ts.y {
		y = (returnpos.y-mov)*ts.y;
	} else if y > (returnpos.y+mov+1)*ts.y {
		y = (returnpos.y+mov+1)*ts.y;
	} else {
		y += vspd*ts.y;
	}*/
	
}

function st_movingdraw() {
	/*var mov = 2;
	draw_set_color(c_cyan);
	draw_set_alpha(.4);
	var i, j;
	for (i=-mov; i<=mov; i++) {
		for (j=-mov; j<=mov; j++) {
			if abs(i)+abs(j) <= mov {
				draw_rectangle(
					(returnpos.x+i)*ts.x,
					(returnpos.y+j)*ts.y,
					(returnpos.x+i+1)*ts.x,
					(returnpos.y+j+1)*ts.y, false
				);
			}
		}
	}
	draw_set_alpha(1);*/
}
#macro ts global.tilesize

enum DIR {
	NONE,
	LEFT,
	DOWN,
	UP,
	RIGHT,
}