set ix [lsearch -exact $pirates $pirate]
set now [clock seconds]
- if {$ix<0 || [lindex $times $ix] < $now-$bell_again} {
+ if {$bell_again > -2 &&
+ ($ix<0 || [lindex $times $ix] < $now-$bell_again)} {
bell -nice
}
if {$ix < 0} {
if {![string compare $arg --test-tints]} {
showtints
} elseif {![string compare $arg --no-bell]} {
- set bell_again -1
+ set bell_again -2
} else {
error "unknown option $arg"
}