From 220f6b11acd8df2327b536b537d962afdd8f2cdc Mon Sep 17 00:00:00 2001
From: Nicholas Costa <nichosta@users.noreply.github.com>
Date: Fri, 7 Jul 2017 11:03:46 -0400
Subject: [PATCH] Logging for escaping in celestial disgrace

---
 Rodney.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Rodney.pm b/Rodney.pm
index f9a3ea4..18cd72c 100644
--- a/Rodney.pm
+++ b/Rodney.pm
@@ -1233,6 +1233,7 @@ sub log_data {
     my $deaths = 0;
     my $quits = 0;
     my $escapes = 0;
+    my $disgraces = 0;
     my $dbdata;
 
     $nick =~ tr/A-Z/a-z/;
@@ -1250,7 +1251,8 @@ sub log_data {
 
 	    $ascended++ if ($dbdata->{death} =~ /^ascended$/);
 	    $quits++ if ($dbdata->{death} =~ /^quit/);
-	    $escapes++ if ($dbdata->{death} =~ /^escaped/);
+	    $escapes++ if ($dbdata->{death} =~ /^escaped$/);
+	    $disgraces++ if ($dbdata->{death} =~ /^escaped\s\(in\scelestial\sdisgrace\)$/);
 	    $score = $dbdata->{points} if ($dbdata->{points} > $score);
 	    $deaths += $dbdata->{deaths};
     }
@@ -1270,12 +1272,13 @@ sub log_data {
 	if ($deaths > 0) {
 	    my $lifesaved = ($deaths + $quits + $escapes + $ascended - $games);
 	    $deaths = ($deaths - $lifesaved) if ($lifesaved > 0);
-	    $ret = $ret . ", died $deaths" if ($deaths > 0);
+	    $ret = $ret . ", died $deaths";
 	    $ret = $ret . ", lifesaved $lifesaved" if ($lifesaved > 0);
 	}
 	$ret = $ret . ", quit $quits" if ($quits > 0);
 	$ret = $ret . ", escaped $escapes" if ($escapes > 0);
-	$ret = $ret . " time".(($deaths+$escapes+$quits+$ascended) == 1 ? "" : "s");
+	$ret = $ret . ", escaped in disgrace $disgraces"; if ($disgraces > 0);
+	$ret = $ret . " time".(($deaths+$escapes+$quits+$ascended+$disgraces) == 1 ? "" : "s");
 
 	$retstr = $ret;
     } else {