: say ( s -- )
	me @ swap notify
;
: main ( s -- )
	strip
	dup dup not swap "=" instr not or if
		pop "Give what to whom?" say 0 exit
	then
	dup "=" instr strcut
	swap dup tolower "man" 3 strncmp if
		pop pop "I don't see who you want to give it to."
		say exit
	then
	swap atoi dup 1 < if
		pop pop "I think he wants more than that." say exit
	then
	me @ pennies 1 < if
		pop pop "You don't have anything to give him." say exit
	then
	dup 1 > if
		pop pop "He takes one of your offered coins." say
	else
		pop pop "He takes your offered coin." say
	then
	me @ -1 addpennies
	1 begin trigger @ "_msg" 3 pick intostr strcat
	getpropstr dup while
		say 1 + 5 sleep
	repeat
	pop pop 1
	me @ trigger @ "_dest" getpropstr atoi dbref moveto
;