mapper script

map.tin

@@ -0,0 +1,77 @@
+#map flag nofollow off
+#map flag direction off
+#map flag static on
+
+#unpathdir n
+#unpathdir s
+#unpathdir e
+#unpathdir w
+#unpathdir u
+#unpathdir d
+
+#list dirs create
+
+#action {~\e[0m\e[36m%1$} {#regex {%1} {%w speaks from the %*} {#line {log} {.wotmud-comms}} {room %1}} {1}
+#action {^[ obvious exits: %1 ]$} {exits %1;dirmove} {1}
+#action {^[ obvious exits: ]$} {exits {};dirmove} {1}
+#action {~%1 HP:%2 MV:%3 > \e[36m%4$} {#regex {%4} {%w speaks from the %*} {#nop} {room %4}} {1}
+
+#action {It is pitch black...} {dirmove} {1}
+#action {Alas, you cannot go that way...} {dirpop} {1}
+#action {You can't ride in there.} {dirpop} {1}
+#action {Your mount is too exhausted.} {dirpop} {1}
+#action {In your dreams, or what?} {dirpop} {1}
+#action {Maybe you should get on your feet first?} {dirpop} {1}
+#action {No way!  You're fighting for your life!} {dirpop} {1}
+#action {You would need to swim there, you can't just walk it.} {dirpop} {1}
+#action {You are too exhausted.} {dirpop} {1}
+#action {You need a boat to go there.} {dirpop} {1}
+#action {You would need to swim there, you can't just walk it.} {dirpop} {1}
+#action {You shudder at the concept of crossing water.} {dirpop} {1}
+#action {You need to swim to go there.} {dirpop} {1}
+#action {You can't ride there on a horse!} {dirpop} {1}
+#action {You can't ride on water.} {dirpop} {1}
+#action {Nah... You feel too relaxed to do that..} {dirpop} {1}
+#action {PANIC!  You couldn't escape!} {dirpop} {1}
+#action {You would need to climb there from here.} {dirpop} {1}
+#action {The %1 seems to be closed.} {dirpop;#variable door %1} {1}
+
+#alias leader {#var leader %1}
+#action {You now follow %1.} {leader %1}
+#action {You stop following %1.} {#unvar leader}
+#action {%1 leaves %2.} {#if {"%1" == "$leader"} {dirpush %2}} {2}
+#action {%1 leaves %2 riding a %3.} {#if {"%1" == "$leader"} {dirpush move %2}} {1}
+#action {%1 (Head of group)} {leader %1}
+#action {You are now a member of %1's group.} {leader %1} {1}
+
+#alias maprows {#var maprows %1}
+#alias mapcols {#var mapcols %1}
+#alias mapout {#var mapout %1}
+#alias showmap {#map map $maprows $mapcols overwrite $mapout}
+
+#alias dirpush #list dirs insert -1 %1
+#alias dirget #list dirs get 1 dir
+#alias dirpop {#list dirs delete 1}
+
+#alias dirmove {dirget;dirpop;#map move $dir;showmap}
+
+
+#alias exits #var exits %1
+#alias room #var room %1
+
+
+#alias n {#send north;dirpush n}
+#alias e {#send east;dirpush e}
+#alias s {#send south;dirpush s}
+#alias w {#send west;dirpush w}
+#alias u {#send up;dirpush u}
+#alias d {#send down;dirpush d}
+
+#alias dirstack {#var dirs}
+#alias dirclear {#list dirs create}
+
+
+#var maprows 19
+#var mapcols 60
+#var mapout map.out
+