#	charsheet/macros/takelist	1.4
#
#	Copyright 1991, Chris Seabrook
#
#	This work may be freely used. modified and distributed for non-commercial
#	purposes so long as it retains this notice.
#
# takelist(number)
.PS
define takelist X
	nslots=$1
	if nslots > 20 then Y
		nslots=20
	Y
	if nslots < 3 then Y
		nslots=3
	Y
	[
		box invis wid 3*sheetwid/12 "\f(HB\s+2Take List\s0\fP"
		box invis wid 3*sheetwid/12 "\f(HBDungeon:\fP"
		box invis wid sheetwid/12
		box invis wid 3*sheetwid/12 "\f(HBDate:\fP"
		box invis wid 2*sheetwid/12

		box invis wid 7*sheetwid/24 "\f(HBObject\fP" with .nw at 5th last box.sw
		box invis wid 7*sheetwid/24 "\f(HBLocation\fP"
		box invis wid sheetwid/12 "\f(HB\s-2D.Magic\s0\fP"
		box invis wid sheetwid/12 "\f(HB\s-2Magic\s0\fP"
		box invis wid sheetwid/12 "\f(HB\s-2Identify\s0\fP"
		box invis wid 2*sheetwid/12 "\f(HBCarried by\fP"
		for ccount=1 to nslots do Y
			box ht boxht/2 wid 7*sheetwid/24 with .nw at 6th last box.sw
			box ht boxht/2 wid 7*sheetwid/24
			box ht boxht/2 wid sheetwid/12
			box ht boxht/2 wid sheetwid/12
			box ht boxht/2 wid sheetwid/12
			box ht boxht/2 wid 2*sheetwid/12
		Y
	] with .n at last box.s + 0,-1*border
	box ht last [].ht+border wid last [].wid+border at last []
X