if reacting to push then someonepushed;

##someonepushed:
if $actor = $target then teeter;

##teeter:
print "[$actor] teeters a bit. He is soft and squshy.";