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 dist = c_tiledist(pos.x, pos.y, returnpos.y, returnpos.y);
	//var remainingmov = dist.x + dist.y;
	//var shitmode = point_distance(x, y, returnpos.x*ts.x, returnpos.y*ts.y);
	//if shitmode > mov*ts.x {
	
	//while !remainingmov {
		/*hspd = 0;
		vspd = 0;
		x = linear_approach(x, returnpos.x*ts.x, 1);
		y = linear_approach(y, returnpos.y*ts.y, 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+hspd+abs(sprite_width)/4, y+vspd, true);
	if dude != noone {
		var dist = c_tiledist(dude.x, dude.y, returnpos.x, returnpos.y);
		var friend = c_containsunit(dude.x, dude.y);
		if dist.x + dist.y <= data.mov.val && dude.passable && (friend == noone || friend == id) {
			pos.x = dude.x;
			pos.y = dude.y;
			if !stop {
				x += hspd*ts.x;
				y += vspd*ts.y;
			}
		} else {
			x -= hspd*ts.x;
			y -= vspd*ts.y;
			x = linear_approach(x, returnpos.x*ts.x+abs(sprite_width)/4, 1);
			y = linear_approach(y, returnpos.y*ts.y, 1);
		}
	} else {
		x -= hspd*ts.x;
		y -= vspd*ts.y;
		x = linear_approach(x, returnpos.x*ts.x+abs(sprite_width)/4, 1);
		y = linear_approach(y, returnpos.y*ts.y, 1);
	}
	//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);
	if stop {
		//var dist = c_tiledist();
		//hitpos.y = clamp(hitpos.y+downp-upp, -data.rng.val, data.rng.val);
		//hitpos.x = clamp(hitpos.x+rightp-leftp, -(data.rng.val-abs(hitpos.y)), (data.rng.val-abs(hitpos.y)));
		//hitpos.y = clamp(hitpos.y, -(data.rng.val-abs(hitpos.x)), (data.rng.val-abs(hitpos.x)));
		var shits = c_tiledist(0, 0, hitpos.x+rightp-leftp, hitpos.y+downp-upp);
		var dist = shits.x + shits.y;
		if dist <= data.rng.val && !(data.rng.val && hitpos.x == 0 && hitpos.y == 0) {
			hitpos.x += rightp-leftp;
			hitpos.y += downp-upp;
		} else {
			switch dir {
				case DIR.LEFT:
					hitpos.x = -1;
					hitpos.y = 0;	
					break;
				case DIR.DOWN:
					hitpos.x = 0;
					hitpos.y = 1;
					break;
				case DIR.UP:
					hitpos.x = 0;
					hitpos.y = -1;
					break;
				case DIR.RIGHT:
					hitpos.x = 1;
					hitpos.y = 0;
					break;
				
			}
		}
	}
	var hitting = noone;
	if guy != noone {
		hitting = c_gettile(guy.x+hitpos.x, guy.y+hitpos.y);
		switch dir {
			case DIR.LEFT:
				sprite_index = data.down;
				image_xscale = -1;
				break;
			case DIR.DOWN:
				sprite_index = data.down;
				break;
			case DIR.UP:
				sprite_index = data.up;
				break;
			case DIR.RIGHT:
				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");
						if hitting.contents[i].alignment != alignment ^^ !data.str.val {
							c_moveunit(id, c_gettile(pos.x, pos.y));
							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 && stop && ARTICULATOR.hoveredunit == id{
		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,
}