|
@@ -296,7 +296,10 @@ while (1) {
|
|
|
# Announce lamp life status, if near/past $LAMP_LIFE
|
|
# Announce lamp life status, if near/past $LAMP_LIFE
|
|
|
if (exists($exists{'PROJECTOR_LAMP'})) {
|
|
if (exists($exists{'PROJECTOR_LAMP'})) {
|
|
|
if ($life > 0.9) {
|
|
if ($life > 0.9) {
|
|
|
- DMX::say('Projector lamp has run for ' . int($life * 100) . '% of its estimated life.');
|
|
|
|
|
|
|
+ my $chance = ($life - 0.9) * 10;
|
|
|
|
|
+ if (rand(1) <= $chance) {
|
|
|
|
|
+ DMX::say('Projector lamp has run for ' . int($life * 100) . '% of its estimated life.');
|
|
|
|
|
+ }
|
|
|
}
|
|
}
|
|
|
}
|
|
}
|
|
|
|
|
|