if target of examines then someoneexamined;

##someoneexamined:
$pole = $actor's host;
if $pole > 0 then jumpoff else climbsomething;

##jumpoff:
$actn = (jumps back-to-earth,leaps CJ Style,slips and falls);
print "[$actor] $actn from [$pole], waits till the last second to throw his pilot chute, then gracefully swoops down next to [$init_obj].";
clear $actor, all;
relook $loc;

##climbsomething:
call "climb 88991";





if reacting to arrives then greetthem;
##greetthem:
$actn = (glares,laughs,throws some cheese,babbles incoherently);
print "[$actor] $actn at [$init_obj]. He climbs to the top of [88991], screams like a little girl, and then climbs back down.";