: greater_than
	numowned swap numowned >
;
: base
	trigger @ location
;
: main
	1 sleep
	me @ "Purging..." notify
	1 12 1 for
		base "_dsc" rot intostr strcat remove_prop
	loop
	me @ "Working..." notify
	pop 0 1 db_top 1 - 1 for dbref
	dup ok? if
		dup player? if
			dup wizard? not if
				dup numowned 100 > if
					dup rot 1 + swap
				then
			then
		then
	then
	pop loop
	me @ "Sorting..." notify
	' greater_than .sort
	pop me @ "Writing..." notify
	base "_dsc1" "   Top 20 Builders List (Updated: "
	systime ctime strcat ")" strcat addprop base "_dsc2"
	"--------------------------------------------------------------"
	addprop 1 10 1 for
		dup 1 + pick dup name dup strlen
		"..................." swap strcut
		swap pop strcat swap numowned intostr
		dup strlen "....." swap strcut swap
		pop swap strcat strcat "      "
		strcat over intostr dup strlen 1 = if
			" " swap strcat
		then ") " strcat swap strcat
		over 10 + intostr dup strlen 1 = if
			" " swap strcat
		then ") " strcat strcat
		over 12 + pick dup name dup
		strlen "..................." swap
		strcut swap pop strcat swap numowned
		intostr dup strlen "....." swap
		strcut swap pop swap strcat strcat strcat base
		"_dsc" 4 rotate 2 + intostr strcat rot addprop
	loop
	depth begin dup 0 > while
		swap pop 1 -
	loop
	pop me @ "List updated." notify
;