Rorso
Wizard
Joined: 14 Oct 2000
Posts: 1368
|
 Posted: Wed Sep 08, 2004 4:43 pm
Explore all mapped rooms
|
I changed my auto-mapping script to be able to do auto-exploring. The algorithm used is depth-first search adapted to work with graphs.
#CLASS�{mapexplorer}�{setdef}
#ALIAS�explore�{
��#priority�{
����#echo�exploring
����#noop�//�Is�there�some�unexplored�exit�in�this�room?
����#if�((@lastroom=%roomnum(�))�and�(@recovering="false"))�{
������#echo�I�am�stuck!�Trying�to�recover!
������#stop
������#nodir
������#find
������recovering=true
������}�{
������#if�(@recovering="true")�{
��������unexplored�=�%delitem(�@lastroom,�@unexplored)
��������ignorerooms=%push(�@lastroom|@lastexit,�@ignorerooms)
��������recovering=false
��������}
������}
����explored=%push(�%roomnum(�),�@explored)
����counter=0
����exit=%item(�exits,�@counter)
����#forall�@exits�{
������#if�(%roomlink(�,�%i)�>�0)�{
��������#if�(not�%ismember(�%roomnum(�)|%i,�@ignorerooms)�and�not�%ismember(�%roomlink(�,�%i),�@explored))�{
����������exit=%i
����������counter=%eval(�@counter+1)
����������}
��������}
������}
����#if�(@exit!=%null)�{
������#noop�//�We�found�an�exit.�If�we�have�unexplored�exits�left�add�this�location�to�the�'unexplored'�list.
������#if�(@counter>1)�{unexplored=%push(�%roomnum(�),�@unexplored)}
������lastroom=%roomnum(�)
������lastexit=@exit
������#exec�@exit
������}�{
������#noop�//�No�exit�found.�Do�we�have�any�in�the�'unexplored'�list?
������#if�(@unexplored!=%null)�{
��������roomnumber=%pop(�unexplored)
��������lastroom=%roomnum(�)
��������#echo�Walking�to�@roomnumber�from�%roomnum(�)
��������#walk�@roomnumber
��������}�{
��������#echo�Exploration�Finished
��������#t-�autoexplorer
��������}
������}
����}
��}
#VAR�unexplored�{}
#VAR�exits�{north|south|east|west|up|down}
#VAR�ignorerooms�{}
#VAR�lastexit�{west}
#VAR�lastroom�{198}
#VAR�recovering�{false}
#VAR�explored�{}
#ALARM�"autoexplorer"�{-1}�{#if�(%inwalk(�)!="1")�{explore}}�""�{disable}
#BUTTON�1�{Auto-map}�{
��unexplored=""
��ignorerooms=""
��lastexit=""
��lastroom=""
��recovering=false
��explored=""
��#t+�autoexplorer
��}�{}�{#t-�autoexplorer}�{%class(autoexplorer)}�{1}�{}�{}�{}�{}�{}�{}�{}�{}�{}�{}�{}�""�{}�{}�{autoexplorerbutton}
#CLASS�0 |
|
