Railplacer

$${

#placedrail = 0

do;
	pick("rail");
	if(%ITEM% = "rail");
		#stack = %STACKSIZE%
	else;
		stop();
	endif;

	do;
		// Movement
		#xcoord = %XPOS%
		#zcoord = %ZPOS%
		do;
			keydown(left);
		until((%#zcoord% != %ZPOS%) || (%#xcoord% != %XPOS%));
		keyup(left);
		// Place rail
		key(use);
		inc(#placedrail);
	until(%#placedrail% = 11);
	#placedrail = 0

	pick("golden_rail");
	#stack = %STACKSIZE%

	do;
		// Movement
		#xcoord = %XPOS%
		#zcoord = %ZPOS%
		do;
			keydown(left);
		until((%#zcoord% != %ZPOS%) || (%#xcoord% = %XPOS%));
		keyup(left);
		// Place rail
		key(use);
	until(%STACKSIZE% = (%#stack% - 1));
loop;

stop();
}$$