if reacting to pout then saysomething;##saysomething:print "[$actor] wonders why [$init_obj] is pouting";