if target of examines then pushme;

##pushme:
call "climb 89097";
$actn = (then slips and falls off,starts to dance seductively,wiggles his booty like a madman);
$wink = ([89095],[89092],[89093],[89094],[89181]);
print "[$actor] $actn and winks suggestively at $wink. This doesn't seem like part of the act.";
clear $actor, all;
relook $loc;