| … | |
… | |
| 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); |
