@dig/teleport Town Aquare
@set here = FLOATING
@AENTER here=@switch [match([iter(lexits(me),name(##))],north)]=>0,{&va me=ansi(hg,N)},{&va me=ansi(hr,-)};@switch [match([iter(lexits(me),name(##))],northeast)]=>0,{&vb me=ansi(hg,NE)},{&vb me=ansi(hr,--)};@switch [match([iter(lexits(me),name(##))],east)]=>0,{&vc me=ansi(hg,E)},{&vc me=ansi(hr,-)};@switch [match([iter(lexits(me),name(##))],southeast)]=>0,{&vd me=ansi(hg,SE)},{&vd me=ansi(hr,--)};@switch [match([iter(lexits(me),name(##))],south)]=>0,{&ve me=ansi(hg,S)},{&ve me=ansi(hr,-)};@switch [match([iter(lexits(me),name(##))],southwest)]=>0,{&vf me=ansi(hg,SW)},{&vf me=ansi(hr,--)};@switch [match([iter(lexits(me),name(##))],west)]=>0,{&vg me=ansi(hg,W)},{&vg me=ansi(hr,-)};@switch [match([iter(lexits(me),name(##))],northwest)]=>0,{&vh me=ansi(hg,NW)},{&vh me=ansi(hr,--)};@switch [match([iter(lexits(me),name(##))],up)]=>0,{&vi me=ansi(hg,U)},{&vi me=ansi(hr,-)};@switch [match([iter(lexits(me),name(##))],down)]=>0,{&vj me=ansi(hg,D)},{&vj me=ansi(hr,-)}
@set here/AENTER=no_command prefixmatch
&COMPASS_POINTS here=%r<[u(me/vh)]>%b%b<[u(me/va)]>%b%b<[u(me/vb)]>%r%b%b%b%\%b%b%b|%b%b%b%/%r%b%b%b%b%\%b%b|%b%b%/%r<[u(me/vg)]>-<[u(me/vi)]>@<[u(me/vj)]>-<[u(me/vc)]>%r%b%b%b%b%/%b%b|%b%b%\%r%b%b%b%/%b%b%b|%b%b%b%\%r<[u(me/vf)]>%b%b<[u(me/ve)]>%b%b<[u(me/vd)]>
@CONFORMAT here=Exits: [ansi(hy,[ansi(hg,-%b)][iter(lexits(me),capstr(name(##)[ansi(hg,%b-)]))])]%r[iter(%0,[ansi(hg,name(##))]%r)]
@set here/CONFORMAT=no_command prefixmatch
@DESCFORMAT here=[repeat(-,70)]%r[align(54 20,[ansi(g,%0)],[u(me/compass_points)],,|%b)]%r[repeat(-,70)]
@set here/DESCFORMAT=no_command prefixmatch
@DESCRIBE here=This is the town center where folks gather to gossip.%rThere is a stone tower here.%r
&credits here=Coded by Berg@mworlds