get $target in $loc;
if $target > 0 then showstats else list;

##showstats:
$health = $target's health;
$healthmax = $target's healthmax;
percentbar $health of $healthmax;
$healthbar = $percentbar;
$healthpct = $pct;
var $hclr = 'style=color:chartreuse';

$mana = $target's mana;
$manamax = $target's manamax;
percentbar $mana of $manamax;
$muslibar = $percentbar;
$muslipct = $pct;
var $mclr = 'style=color:dodgerblue';

$dodge = $target's dodge;
$dodgepoints = $target's dodgepoints;
percentbar $dodgepoints of $dodge;
$dodgebar = $percentbar;
$dodgepct = $pct;

$aim = $target's aim;
$aimpoints = $target's aimpoints;
percentbar $aimpoints of $aim;
$aimbar = $percentbar;
$aimpct = $pct;

$wise = $target's wisdom;
$armour = $target's armour;
$strength = $target's strength;
$mood = $target's mood;

rem - here come the printouts;

sayto $actor,"[$target] is looking $healthpct% healthy $healthbar ($health/$healthmax)";

rem - optional printing based on type of object and its values;

if $manamax > 0 then printmana;
if $dodge > 0 then printdodge;
if $aim > 0 then printaim;
if $target's material like "living" then printlife;

##printmana:
sayto $actor,"- has $muslipct% mana $muslibar ($mana/$manamax)";

##printdodge:
sayto $actor,"- is level $dodge dodge and $dodgepct% $dodgebar towards the next level";

##printaim:
sayto $actor,"- is level $aim aim and $aimpct% $aimbar towards the next level";

##printlife:
sayto $actor,"- and is $wise wise $strength strong has $armour armour and emotionally is $mood";

##list:
var $click_cmd to 'stats';
var $desc_intro to 'Click on the object you want to stats:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";