TinTin++ Mud Client Scripts  
space
space
I logged onto Aardwolf to test this script, the syntax is simple: travel e, travel n, etc. It will follow a path untill it runs into a dead end, you reach an intersection, or you type 'travel' while traveling. Very useful for muds with long roads connecting areas.

This script is written for v2.01.97 and higher

space
#VARIABLE {travel} {0}

#VARIABLE {revdir}
{
	{down} {up}
	{east} {west}
	{north} {south}
	{south} {north}
	{up} {down}
	{west} {east}
}

#VARIABLE {longdir}
{
	{d} {down}
	{e} {east}
	{n} {north}
	{s} {south}
	{u} {up}
	{w} {west}
}

#VARIABLE {shortdir}
{
	{down} {d}
	{east} {e}
	{north} {n}
	{south} {s}
	{up} {u}
	{west} {w}
}

#FUNCTION {finddir}
{
	#if {"%1" != "%2"}
	{
		#return %2
	};
	#else
	{
		#return %3
	}
}


#ALIAS {travel}
{
	#if {$travel}
	{
		#variable travel 0;
		#showme <118>You stop traveling.
	};
	#else
	{
		#variable travel 1;
		#variable lastdir $revdir[$longdir[%0]];
		#showme <118>You travel %0.;
		%0
	}
}
{5}


#ACTION {[Exits: %1]}
{
	#if {$travel}
	{
		#if {"%1" != "%* %*"}
		{
			#variable travel 0;
			#showme <118>You stop traveling due to a dead end.
		};
		#else
		{
			#regexp {%1} {%* %* %*}
			{
				#var travel 0;#showme <118>You stop traveling to pick up directions.
			};
			#else
			{
				#regexp {%1} {%* %*}
				{
					#var newdir @finddir{$lastdir;&1;&2};#showme <118>You travel $newdir.;#var lastdir $revdir[$newdir];$shortdir[$newdir]
				}
			}
		}
	}
}
{1}