@verb #2348:"tell_stats" this none this rxdo #9452
@program #2348:"tell_stats" this none this
if (!(caller_perms() in this.admins))
  raise(E_PERM)
else
  dude = args[1]
  player:tell("  " + player:title() + "'s stats...")
  $lord_database:tell_separator()
  player:tell("  Experience    : " + $string_utils:left($string_utils:group_number(dude->experience), 18))
  player:tell("  Level         : " + $string_utils:left(toliteral(dude->level), 18) + "Hitpoints          : " + toliteral(dude->current_hp) + " of " + toliteral(dude->max_hp))
  player:tell("  Forest fights : " + $string_utils:left(toliteral(dude->forest_fights), 18) + "Player fights left : " + toliteral(dude->player_fights))
  player:tell("  Gold in hand  : " + $string_utils:left($string_utils:group_number(dude->gold_hand), 18) + "Gold in bank       : " + $string_utils:group_number(dude->gold_bank))
  player:tell("  Weapon        : " + $string_utils:left(dude->weapon_name, 18) + "Attack strength    : " + toliteral(dude->strength))
  player:tell("  Armor         : " + $string_utils:left(dude->armor_name, 18) + "Defensive strength : " + toliteral(dude->defense))
  player:tell("  Charm         : " + $string_utils:left(toliteral(dude->charm), 18) + "Gems               : " + toliteral(dude->gems))
  player:tell()
endif
"Last modified by Crono (#9452) on Sat Sep  7 18:48:42 2002 MDT."
.