|
#alias dir_r {#if (%1 = east) {west};
#if (%1 = south) {north};
#if (%1 = west) {east};
#if (%1 = north) {south};
#if (%1 = up) {down};
#if (%1 = down) {up};
#if (%1 = northwest) {southeast};
#if (%1 = northeast) {southwest};
#if (%1 = southwest) {northeast};
#if (%1 = southeast) {northwest};
#if (%1 = eastup) {westdown};
#if (%1 = eastdown) {westup};
#if (%1 = southup) {northdown};
#if (%1 = southdown) {northup};
#if (%1 = westup) {eastdown};
#if (%1 = westdown) {eastup};
#if (%1 = northup) {southdown};
#if (%1 = northdown) {southup};
#if (%1 = enter) {out};
#if (%1 = out) {enter};
#if (%1 = cross) {cross}}
#alias as_notin {#var %1 {};
#forall %2 {#if (%ismember(%i,%3) == 0) {#var %1 %i}}}
#alias as_start {#var as_flag {};
#var as_path {};
#var as_exit ();
#var as_dir {};
look}
#tr {^ 这里*的出口是 (%*)。$} {#var as_room %replace(%1," 和 ","、";
#var as_exit %word(@as_flag,1,"|";
#if (%numwords(@as_room,"、" == %numwords(@as_exit,"、" | @as_limit == %numwords(@as_path,"|") {#var as_dir %word(@as_path,1,"|";
#var as_path %delitem(@as_dir,@as_path);
#var as_flag %delitem(@as_exit,@as_flag);
%exec(dir_r @as_dir)} {as_notin as_dir %replace(@as_room,"、","|" %replace(@as_exit,"、","|";
#var as_path %additem(@as_path,@as_dir);
#var as_flag %concat("@{as_dir}、",@as_flag);
#var as_flag %additem(@as_flag,%dir_r(@as_dir));
@as_dir}}
随便在哪 开始时 输入as_start就可以了 |
|