@prog subway-pay-lock.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	prog "_staff" getpropstr atoi dbref
	me @ true-royalty? if 1 else dup "_staff-" me @ int intostr strcat prop-exists? then if
		dup "_down" over over prop-exists? if
			getpropstr "Note: subway is down:" say say
			"But as subway staff, you are permitted entry..."
		else
			pop pop
			"As subway staff, you are permitted free passage..."
		then
		say pop 1 exit
	then
	dup "_down" over over prop-exists? if
		getpropstr say
		0 exit
	else
		pop pop
	then
	me @ pennies 1 < if
		"You must have the fare to ride the subway." say
		0 exit
	then
	me @ -1 addpennies
	"You pay the fare and enter the subway..." say
	1
;
.
c
q