: spoof ( s -- )
	dup not if
		pop exit then
	loc @ contents
	begin dup while
		dup player? if
			over over "_nospoof" getpropstr dup
			"soft" stringcmp not if
				me @ name "[@" swap strcat "] "
				strcat rot strcat swap then
			dup "hard" stringcmp not if
				swap pop "" swap then
			pop over swap notify then
		next loop
	pop pop
;