: gm_point>file
	
	"admin" check-access

	"{ "
	player@ coords@ coords>s s+
	" }" s+
	"
" s+
	"data/jbforth/points.f" file-append
	"Point added" .
;

: gm_npc>file

	"admin" check-access

	player@ target@ >r

	"{ "
	r@ "NpcId" p@ s+ " " s+
	r@ coords@ coords>s s+
	bl s+
	r@ "Heading" p@ s+
	" 0 false } \ " s+
	r@ "Name" p@ s+
	"
" s+
	"data/jbforth/npc-spawn.f" file-append
	rdrop
	"NPC added" .
;

: ann
	parse announce
;

: .bal
	caller "Siry" find_player .tell
;

: bypass_show:
	show
;

{
	{ 122068 -221032 -3674 }
	{ 194628 -183403 0571 }
	{ -115197 222523 -2948 }
	{ 177643 -177243 -544 }
	{ 63853 29202 -3841 }
	{ 115956 245614 -127 }
	{ 83487 147878 -3215 }
	{ 79713 146644 -2995 }
	{ -109449 220168 -466 }
	{ 25885 -148830 -3728 }
	{ -10759 -136501 -2576 }
	{ 159887 -209841 -3638 }
} value random-points

: random-jump  ( points player -- )
	>r
	dup list# choose list@
	list-rev> drop r> teleport-char-to
;
