--- IrcExtras.old	Mon Jan 17 18:58:14 2000
+++ IrcExtras.pl	Mon Jan 17 18:58:25 2000
@@ -31,11 +31,13 @@
 }
 
 sub killed {
-    my $quitMsg = $param{'quitMsg'} || "regrouping";
-    &quit($quitMsg);
-    &closeDBM("is", "are");
-    exit(1);
+@qt = split(/, /,$param{'quitMsg'});
+$quit = "$qt[int(rand(@qt))]";
+&quit($quit);
+&closeDBM("is", "are");
+exit(1);
 }
+
 
 sub joinChan {
     foreach (@_) {