get $text;if $text ne '' then makeit else makefail;##makeit:new $text;var $mny to $actor's worth;if $worth > $mny then capmoney else finishit;##capmoney:set $target's worth to $mny;var $worth to $mny;runsub finishit;##finishit: take $worth from $mny;set $actor's worth to $mny;var $penny to 'penny';if $worth > 1 then morethanone; say 'create',"[$actor] created [$target] worth $worth $penny";look $loc;msg $loc,$actor,0,0,'force',"force:look $loc";runsub noisy/3;##noisy:msg 0,$actor,0,0,"act","You can smell fresh glue";##makefail:var $sys_msg to 'Try again and describe the object you want to create eg a small white cat or some yellow flowers
';##morethanone:var $penny to 'pennies';