get $target in $loc;
if $target > 0 then scryit;

##scryit:
$tloc = $target's loc;
say 'msg',"[$init_obj] scrys [$target] ($target) in [$tloc] ($tloc)...";
$show = "Basic:";
$v = 'name';$t = $target's name;runsub checkit;
$v = 'class';$t = $target's class;runsub checkit;
$v = 'pclass';$t = $target's pclass;runsub checkit;
$v = 'worth';$t = $target's worth;runsub checkit;
$v = 'owner';$t = $target's owner;runsub checkid;
$v = 'attribs';$t = $target's attribs;runsub checkit;
$v = 'full_name';$t = $target's full_name;runsub checkit;
if $target's code eq "" then isno else isyes;
$v = 'material';$t = $target's material; swap $t so '\\|' is '. '; runsub checkit;
if $target's pwd eq "" then isno else isyes;
$v = 'pwd';runsub checkit;
$v = 'linkstate';$t = $target's linkstate;runsub checkit;
if $target's info eq "" then isno else isyes;
$v = 'info';runsub checkit;
$v = 'extra';$t = $target's extra;runsub checkit;
$v = 'creator';$t = $target's creator;runsub checkid;
$v = 'niceness';$t = $target's niceness;runsub checkit;
if $target's mask eq "" then isno else isyes;
$v = 'mask';runsub checkit;
sayto $init_obj,"$show";

$show = "Look:";
$v = 'link';$t = $target's link;runsub checkid;
$v = 'linkhow';$t = $target's linkhow;runsub checkit;
$v = 'host';$t = $target's host;runsub checkid;
$v = 'hosthow';$t = $target's hosthow;runsub checkit;
$v = 'qty';$t = $target's qty;runsub checkit;
$v = 'qty_type';$t = $target's qty_type;runsub checkit;
$v = 'pose';$t = $target's pose;runsub checkit;
$v = 'face';$t = $target's face;runsub checkit;
$v = 'facehow';$t = $target's facehow;runsub checkit;
$v = 'x';$t = $target's x;runsub checkit;
$v = 'y';$t = $target's y;runsub checkit;
$v = 'colour';$t = $target's colour;runsub checkit;
$v = 'globalx';$t = $target's globalx;runsub checkit;
$v = 'globaly';$t = $target's globaly;runsub checkit;
$v = 'globalz';$t = $target's globalz;runsub checkit;
$v = 'globalimg';$t = $target's globalimg;runsub checkit;
$v = 'imglook';$t = $target's imglook;runsub checkit;
$v = 'imgmap';$t = $target's imgmap;runsub checkit;
$v = 'imgloc';$t = $target's imgloc;runsub checkit;
$v = 'imglist';$t = $target's imglist;runsub checkit;
sayto $init_obj,"$show";

$show = "Logic:";
if $target's code eq "" then isno else isyes;
$v = 'code';runsub checkit;
$v = 'slot1';$t = $target's slot1;runsub checkit;
$v = 'slot2';$t = $target's slot2;runsub checkit;
$v = 'slot3';$t = $target's slot3;runsub checkit;
$v = 'switch';$t = $target's switch;runsub checkit;
$v = 'clock';$t = $target's clock;runsub checkit;
$v = 'counter';$t = $target's counter;runsub checkit;
$v = 'keyid';$t = $target's keyid;runsub checkid;
$v = 'keyloc';$t = $target's keyloc;runsub checkit;
sayto $init_obj,"$show";

$show = "Attribs:";
$v = 'health';$t = $target's health;runsub checkit;
$v = 'healthmax';$t = $target's healthmax;runsub checkit;
$v = 'armour';$t = $target's armour;runsub checkit;
$v = 'mana';$t = $target's mana;runsub checkit;
$v = 'manapoints';$t = $target's manapoints;runsub checkit;
$v = 'manacap';$t = $target's manacap;runsub checkit;
$v = 'manamax';$t = $target's manamax;runsub checkit;
$v = 'aim';$t = $target's aim;runsub checkit;
$v = 'aimpoints';$t = $target's aimpoints;runsub checkit;
$v = 'aimcap';$t = $target's aimcap;runsub checkit;
$v = 'dodge';$t = $target's dodge;runsub checkit;
$v = 'dodgepoints';$t = $target's dodgepoints;runsub checkit;
$v = 'wisdom';$t = $target's wisdom;runsub checkit;
$v = 'hunger';$t = $target's hunger;runsub checkit;
$v = 'mood';$t = $target's mood;runsub checkit;
$v = 'weight';$t = $target's weight;runsub checkit;
$v = 'strength';$t = $target's strength;runsub checkit;
sayto $init_obj,"$show";

##checkit:
if $t ne '' then addit;

##addit:
$show = "$show $v=$t";

##checkid:
if $t > 0 then addid;

##addid:
$show = "$show $v=[$t] ($t)";

##isno:
$t = '';

##isyes:
$t = 'yes';