GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Make beeps more interesting

This commit is contained in:
Pragmatic Software 2017-02-27 04:46:55 -08:00
parent 71fabfc0ea
commit b89becfc31
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
modules/compiler_vm/languages/_default.pm
View File

@ -150,7 +150,9 @@ sub postprocess_output {
}
$self->{output} = $boutput;
$self->{output} =~ s/\007/*BEEP*/g;
my @beeps = qw/*BEEP* *BING* *DING* *DONG* *CLUNK* *BONG* *PING* *BOOP* *BLIP* *BOP* *WHIRR*/;
$self->{output} =~ s/\007/$beeps[rand @beeps]/g;
}
sub show_output {