if target of examines then oldwhack;

##oldwhack:
$woman = 69657;
$purse = 69658;
$hits = (hits,whacks,smashes,bashes,beats,knocks);
$thinking = (Thinking,Assuming,Concluding,Suspecting);
$thief = (thief,pickpocket,cutpurse);
print "$thinking [$init_obj] is a $thief, [$woman] $hits [$init_obj] to the ground with [$purse].";