@create compass
@set compass = VISUAL
&CMD_COMPASS compass=$compass:@switch [match([iter(lexits(%l),name(##))],north)]=>0,{&va me=ansi(hg,N)},{&va me=ansi(hr,-)};@switch [match([iter(lexits(%l),name(##))],northeast)]=>0,{&vb me=ansi(hg,NE)},{&vb me=ansi(hr,--)};@switch [match([iter(lexits(%l),name(##))],east)]=>0,{&vc me=ansi(hg,E)},{&vc me=ansi(hr,-)};@switch [match([iter(lexits(%l),name(##))],southeast)]=>0,{&vd me=ansi(hg,SE)},{&vd me=ansi(hr,--)};@switch [match([iter(lexits(%l),name(##))],south)]=>0,{&ve me=ansi(hg,S)},{&ve me=ansi(hr,-)};@switch [match([iter(lexits(%l),name(##))],southwest)]=>0,{&vf me=ansi(hg,SW)},{&vf me=ansi(hr,--)};@switch [match([iter(lexits(%l),name(##))],west)]=>0,{&vg me=ansi(hg,W)},{&vg me=ansi(hr,-)};@switch [match([iter(lexits(%l),name(##))],northwest)]=>0,{&vh me=ansi(hg,NW)},{&vh me=ansi(hr,--)};@switch [match([iter(lexits(%l),name(##))],up)]=>0,{&vi me=ansi(hg,U)},{&vi me=ansi(hr,-)};@switch [match([iter(lexits(%l),name(##))],down)]=>0,{&vj me=ansi(hg,D)},{&vj me=ansi(hr,-)};@wait 0=@pemit %#=space(6)<[u(me/va)]>%r%b<[u(me/vh)]>%b%b|%b%b<[u(me/vb)]>%r[space(5)]%\%b|%b%/%r<[u(me/vg)]>-<[u(me/vi)]>@<[u(me/vj)]>-<[u(me/vc)]>%r[space(5)]%/%b|%b%\%r%b<[u(me/vf)]>%b%b|%b%b<[u(me/vd)]>%r[space(6)]<[u(me/ve)]>%rNon-Compass directions:%r [u(fun_extra_exits,%#)]
@DESCRIBE compass=space(6)<[u(me/va)]>%r%b<[u(me/vh)]>%b%b|%b%b<[u(me/vb)]>%r[space(5)]%\%b|%b%/%r<[u(me/vg)]>-<[u(me/vi)]>@<[u(me/vj)]>-<[u(me/vc)]>%r[space(5)]%/%b|%b%\%r%b<[u(me/vf)]>%b%b|%b%b<[u(me/vd)]>%r[space(6)]<[u(me/ve)]>
@set compass/DESCRIBE=no_command visual prefixmatch public nearby
&FUN_EXTRA_EXITS compass=setdiff([iter(lexits([loc(%0)]),name(##))],north northeast east southeast south southwest west northwest up down)