;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;									;;
;;	stroll.tf							;;
;;	Walks you in any 1 direction with minimal error checking.	;;
;;	Script execution will stop if you can't move in that direction	;;
;;	or if you get the message you are so exhausted you cant move.	;;
;;	You will pause 2 seconds between moves, so if you have another	;;
;;	script that looks for things, like say mushrooms, it will	;;
;;	have time to run before you move again.				;;
;;									;;
;;	To use, just type 'stroll <direction>' and it'll keep you	;;
;;	going.								;;
;;									;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

/DEF -ag -h"send {stroll}*" set_stroll = \
	/IF /TEST $[%{-1} !~ ""] %; \
		/THEN /pre_stroll %{-1} %; \
		/ELSE /ECHO -aBCbgyellow,Cblack *** You must specify a direction *** %; \
	/ENDIF

/DEF -ag -h"send {nostroll}" set_no_stroll = \
	/SET strolling=0 %; \
	/ECHO -aBCbgyellow,Cblack *** No longer Strolling ***

/DEF pre_stroll = \
	/SET strolling=1 %; \
	/SET strolldir=%{1} %; \
	/do_stroll

/DEF do_stroll = \
	/IF (strolling==1) \
		/SEND %{strolldir} %; \
		/REPEAT -0:00:02 1 /do_stroll %; \
		/ECHO -aBCbgyellow,Cblack *** Strolling: %{strolldir} *** %; \
	/ELSE \
		/BREAK %; \
	/ENDIF

/DEF -F -t"You cannot go that way." end_of_the_line = \
	/SET strolling=0 %; \
	/ECHO -aBCbgyellow,Cblack *** Cannot stroll %{strolldir}, Stopping strolling ***

/DEF -F -t"You are so exhausted you fail to move." too_damn_tired = \
	/SET strolling=0 %; \
	/ECHO -aBCbgyellow,Cblack *** Exhausted, Stopping strolling ***