@prog tess-setup.muf
1 999 d
1 i
: colon-cut
	dup ":" instr dup if
		1 - strcut 1 strcut swap pop
	else
		pop ""
	then
;
: main
	pop
	trigger @ "holder" getpropstr atoi dbref
	"_tess-player" me @ int intostr 0 addprop
	1
	begin
		"inv" over intostr strcat trigger @ swap getpropstr dup
	while
		atoi dbref me @ moveto
		1 +
	loop
	pop pop
	1
	begin
		"prop" over intostr strcat trigger @ swap getpropstr dup
	while
		colon-cut colon-cut
		rot atoi dbref
		rot dup if
			rot dup if 0 addprop else pop remove_prop then
		else
			pop pop pop
		then
		1 +
	loop
	pop pop
;
.
c
q