psycamp: more really useful voice announcements

1 files changed, 5 insertions, 4 deletions

diff --git a/bin/psycamp b/bin/psycamp
index 778b979..a776cd0 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -517,16 +517,17 @@ sub open {
 }
 sub next {
         my $a = shift;
-        &sys($has_espeak, '-v', 'en-romanian', '-p', 33, '-k', 44, $opt_A)
+        &sys($has_espeak, '-v', 'en-afrikaans', '-p', 33, '-k', 44, '-s', 171, $opt_A)
           if $has_espeak and $opt_A and $CurrentFile;
         &fade(43, $a) if $a and $VOL > 50;
         my $n = $file[$order[++$CS]]; # || $file[$CS];
         if ($has_espeak and $opt_V and $CurrentFile) {
-#               $CurrentFile =~ m!/([^/]+)$!;
+                $CurrentFile =~ m!/\d*([^/\.]+)\.[^/]+$!;
                 my $f = $1 || $CurrentFile;
-                &sys($has_espeak, '-v', 'en-german-5', '-p', 87, '-s', 203, $f);
+                $f =~ y/-/_/;
+                &sys($has_espeak, '-v', 'en-german-5', '-p', 87, '-s', 101, $f);
         }
-        &sys($has_espeak, '-v', 'en-romanian', '-p', 23, '-s', 87, '-k', 87, 'bullshit')
+        &sys($has_espeak, '-v', 'en-romanian', '-p', 23, '-s', 87, '-k', 87, rand(7) > 2 ? 'bullshit' : 'cool')
           if $has_espeak and $opt_A;
         &exit(0) if !$n or ($n eq '') or !$NS or $CS >= $NS;
 #       return &next(0) if $opt_S and $n =~ /\b$KEEP\b/oi;