… | |
… | |
117 | or return $who->reply ($npc, "$args didn't die even once."); |
117 | or return $who->reply ($npc, "$args didn't die even once."); |
118 | |
118 | |
119 | my $rep = "$args died a total of " . $pl->ob->get_ob_key_value ("schmorplog_death_count") . " times, among them:\n\n\n\n"; |
119 | my $rep = "$args died a total of " . $pl->ob->get_ob_key_value ("schmorplog_death_count") . " times, among them:\n\n\n\n"; |
120 | |
120 | |
121 | for (sort { $s->{$b} <=> $s->{$a} } keys %$s) { |
121 | for (sort { $s->{$b} <=> $s->{$a} } keys %$s) { |
122 | $rep .= "$s->{$_} times due to $_.\n\n"; |
122 | $rep .= "$s->{$_} time(s) due to $_.\n\n"; |
123 | } |
123 | } |
124 | |
124 | |
125 | $who->reply ($npc, $rep); |
125 | $who->reply ($npc, $rep); |
126 | }; |
126 | }; |
127 | } elsif ($cmd eq "kills") { |
127 | } elsif ($cmd eq "kills") { |
… | |
… | |
130 | or return $who->reply ($npc, "I don't know any person named '$args'."); |
130 | or return $who->reply ($npc, "I don't know any person named '$args'."); |
131 | |
131 | |
132 | my $s = $pl->ob->{stats_kill} |
132 | my $s = $pl->ob->{stats_kill} |
133 | or return $who->reply ($npc, "I don't know of I<anything> that $args has killed so far."); |
133 | or return $who->reply ($npc, "I don't know of I<anything> that $args has killed so far."); |
134 | |
134 | |
135 | my $rep = sprintf "\n\nC<%6s> %s\n\n", "#", "Name"; |
135 | my $rep = sprintf "\n\nC<%6s> %s\n\n", "Kills", "Name"; |
136 | for (sort { $s->{$a} <=> $s->{$b} } keys %$s) { |
136 | for (sort { $s->{$a} <=> $s->{$b} } keys %$s) { |
137 | $rep .= sprintf "C<%6s> %s\n\n", $s->{$_}, $_; |
137 | $rep .= sprintf "C<%6s> %s\n\n", $s->{$_}, $_; |
138 | } |
138 | } |
139 | |
139 | |
140 | $who->reply ($npc, $rep); |
140 | $who->reply ($npc, $rep); |