##push:runsub whattodo;
##whattodo:if $actor eq $target then blah else end;
##blah:
say 'msg',"[$init_obj]'s hand gets scalded on the hot skillet!";