REM if this object is examined it will jump off anything it is on, or climb up something in the room.. ready to jump of it;

if target of examines then pushme;

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

##jumpoff:
print "[$actor] leaps from [$pole]";
clear $actor, all;
relook $loc;

##climbsomething:
find $loc, random;

REM these next 3 cowmands can not be used in scripting and will be deleted if this objects code is saved;

relook $loc;
print "[$actor] climbs up [$found_id]";