YASSE Walkto (script) - Revision history

Maintenance script: /* Syntax */

2011-09-09T00:32:09Z

Syntax

← Older revision		Revision as of 19:32, 8 September 2011
Line 127:		Line 127:
	counter inc		counter inc
	end		end

			action "You are engaged to a" goto RETR

	if $exits$ eq "" goto NO-EXITS		if $exits$ eq "" goto NO-EXITS

Line 134:		Line 137:
	put %w		put %w
	pausetext 3 "Obvious"		pausetext 3 "Obvious"
			action "You are engaged to a" clear
	goto WALKTO		goto WALKTO

Maintenance script: Changed to standard script layout

2011-07-27T10:20:08Z

Changed to standard script layout

← Older revision		Revision as of 05:20, 27 July 2011
Line 4:		Line 4:
	\|auth=[[User:Antendren\|Antendren]]		\|auth=[[User:Antendren\|Antendren]]
	}}		}}

			==Description==

	Script for using the walkto command.		Script for using the walkto command.

⚫	Run the script as <scriptname> <room>. Room can either be a (partial) room name or a room number (room names which are entirely numerical will not be properly handled).

	The script will attempt to walk you to the specified room, using one type-ahead line for speed. If the walk gets stuck, the script will attempt to recover by moving one room at random and trying again. If there are no obvious exits, the script will try a direction at random. Will retreat from critters automatically.		The script will attempt to walk you to the specified room, using one type-ahead line for speed. If the walk gets stuck, the script will attempt to recover by moving one room at random and trying again. If there are no obvious exits, the script will try a direction at random. Will retreat from critters automatically.

			==Syntax==

		⚫	Run the script as <scriptname> <room>. Room can either be a (partial) room name or a room number (room names which are entirely numerical will not be properly handled).

	<pre>		<pre>

ISHARON at 19:08, 13 March 2011

2011-03-13T19:08:08Z

← Older revision		Revision as of 14:08, 13 March 2011
Line 2:		Line 2:
	\|cat=travel		\|cat=travel
	\|fe=YASSE		\|fe=YASSE
	\|auth=Antendren		\|auth=[[User:Antendren\|Antendren]]
	}}		}}

ISHARON at 08:17, 13 March 2011

2011-03-13T08:17:24Z

@@ Line 1: / Line 1: @@
 Script for using the walkto command.
@@ Line 174: / Line 180: @@
 	exit
 </pre>

ISHARON at 20:32, 12 March 2011

2011-03-12T20:32:16Z

← Older revision		Revision as of 15:32, 12 March 2011
Line 174:		Line 174:
	exit		exit
	</pre>		</pre>
			[[Category:Scripts]]

Maintenance script: Created page with 'Script for using the walkto command. Run the script as . Room can either be a (partial) room name or a room number (room names which are entirely numerical w…'

2011-02-11T04:30:54Z

Created page with 'Script for using the walkto command. Run the script as <scriptname> <room>. Room can either be a (partial) room name or a room number (room names which are entirely numerical w…'

New page

Script for using the walkto command.

Run the script as <scriptname> <room>. Room can either be a (partial) room name or a room number (room names which are entirely numerical will not be properly handled).

The script will attempt to walk you to the specified room, using one type-ahead line for speed. If the walk gets stuck, the script will attempt to recover by moving one room at random and trying again. If there are no obvious exits, the script will try a direction at random. Will retreat from critters automatically.

<pre>
set predefined on
setvariable walkttype "name"

setvariable temp %1
calculate temp replace 0 with ""
calculate temp replace 1 with ""
calculate temp replace 2 with ""
calculate temp replace 3 with ""
calculate temp replace 4 with ""
calculate temp replace 5 with ""
calculate temp replace 6 with ""
calculate temp replace 7 with ""
calculate temp replace 8 with ""
calculate temp replace 9 with ""

if $temp$ eq ""
setvariable walkttype "room"

WALKTO:
getinfo status
if %result and %kneeling
gosub STAND
if %result and %prone
gosub STAND
if %result and %sitting
gosub STAND

move look

speed fast
match REACHED * Stopped walking, target reached. *
match END Automapper: But you are already there!
match MOVE Automapper: Automapper is unable to validate your current location.
match MOVE Automapper is unable to find a clear path to that room
match BLOCKED * Stopped walking, something's blocking you. *
match MOVE You are engaged to a
match MOVE You try to move, but you're engaged.
put look
if $walkttype$ eq "room"
command -walkto room %1
else
command -walkto name "%1"
matchwait

##

MOVE:
speed normal
setvariable exits ""
counter set 0
setvariable temp %roomdescription
calculate temp pos obvious
calculate temp right %result
if %temp contains "north,"
begin
setvariable exits "$exits$ n"
counter inc
end
if %temp contains "north."
begin
setvariable exits "$exits$ n"
counter inc
end
if %temp contains "south,"
begin
setvariable exits "$exits$ s"
counter inc
end
if %temp contains "south."
begin
setvariable exits "$exits$ s"
counter inc
end
if %temp contains " east"
begin
setvariable exits "$exits$ e"
counter inc
end
if %temp contains " west"
begin
setvariable exits "$exits$ w"
counter inc
end
if %temp contains "northeast"
begin
setvariable exits "$exits$ ne"
counter inc
end
if %temp contains "southeast"
begin
setvariable exits "$exits$ se"
counter inc
end
if %temp contains "northwest"
begin
setvariable exits "$exits$ nw"
counter inc
end
if %temp contains "southwest"
begin
setvariable exits "$exits$ sw"
counter inc
end
if %temp contains " out"
begin
setvariable exits "$exits$ out"
counter inc
end
if $exits$ eq "" goto NO-EXITS

MOVE-1:
counter rnd %c
getword %c $exits$
put %w
pausetext 3 "Obvious"
goto WALKTO

RETR:
put retreat
goto MOVE-1

NO-EXITS:
setvariable exits "n nw w sw s se e ne u d o"
counter set 11
goto MOVE-1

##

BLOCKED:
command -clear commands
goto MOVE

##

STAND:
match RETURN You stand
match RETURN You are already standing
match STAND cannot manage to stand.
match STAND The weight of all your possessions
put stand
matchwait

##

RETURN:
return

##

REACHED:
if $walkttype$ eq "name" goto END
if %roomnumber == %1 goto END
pause 2
goto REACHED
END:
exit
</pre>