@prog chat-connect.muf
1 999 d
1 i
: find-free-char
	1
	begin
		"*chat" over intostr strcat match
		dup if
			dup awake? not if
				swap pop exit
			then
			pop
		else
			pop "@pcreate chat" over intostr "=chat" 3 "" rimplode
			#1 swap force
			"*chat" over intostr strcat match exit
		then
		1 +
	loop
;
: main
	me @ "@no-chat" prop-exists? if exit then
	find-free-char
	dup name over "chat-" setname me @ swap setname "chat" setname
	me @ "What is your name?" notify
;
.
c
q