@prog personal-connect.muf
1 999 d
1 i
: say me @ swap notify ;
: do-old
	me @ ".do_connect" getpropstr atoi dbref
	dup #0 dbcmp if pop exit then
	dup program? not if
		pop ".do_connect doesn't specify a program!" say exit
	then
	dup "l" flag? over owner me @ dbcmp or not if
		pop ".do_connect call disallowed." say exit
	then
	call
;
: do-new
	1 begin
		".do_connect-" over intostr strcat
		me @ over prop-exists?
	while
		me @ swap getpropstr 3 pick swap conforce
		1 +
	loop
	pop pop pop
;
: main
	me @ "me" match dbcmp not if exit then
	me @ ".do_connect" prop-exists? if do-old exit then
	dup atoi do-new
;
.
c
q