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;
$t = 'xxxx';
$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 = 'lochow';$t = $target's lochow;runsub checkit;
$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;
$v = 'pid';$t = $target's pid;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 = '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";
$show = "Materials:";
$v = 'matvals';$t = $target's matvals;runsub checkit;
sayto $init_obj,"$show";

$show = "Skills:";
runsub showskills;
sayto $init_obj,"$show";

##showskills:
$skiller = $target;
$skills = $skiller's skills;
$skillvals = $skiller's skillvals;
manipulate $skillvals get zzz to $z by 1;
foreach in list do showskills1;
##showskills1:
$skillname = "$for_key";
$valstring = "$for_value";
manipulate $valstring get svalue to $skillvalue by 2;
manipulate $valstring get smod to $skillmod by 2;
manipulate $valstring get spoints to $skillpoints by 2;
manipulate $valstring get scap to $skillcap by 2;
$v = "$skillname";
$t = "$skillvalue($skillmod)/$skillpoints/$skillcap";
runsub checkit;
manipulate $valstring get mods to $modstring by 2;
manipulate $modstring get zzz to $z by 3;
foreach in list do showskills3;
manipulate $skillvals get zzz to $z by 1;
##showskills3:
$modname = "$for_key";
manipulate $for_value get mval to $modval by 4;
manipulate $for_value get mobj to $modobj by 4;
if $modobj > 0 then showskills5 else showskills4;
manipulate $modstring get zzz to $z by 3;
##showskills4:
manipulate $for_value get mdur to $moddur by 4;
$v = $modname;
$t = "$modval dur $moddur";
runsub checkit;
##showskills5:
$v = $modname;
$t = "$modval host [$modobj]";
runsub checkit;

##checkit:
if $t ne 0 then checkit2;
##checkit2:
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';