Изменила!
на
if {$au_user != $win_nick && $au_user != $::botnick && [isvoice $au_user $chan]} {
Нашла два раза.
set sn {}
foreach au_user [lindex [chanlist $game(chan)]] {
lappend sn $au_user
set a1 0
set a2 ""
while {$a1 < [llength $sn]} {
append a2 "v"
incr a1
}
}
foreach au_user [lindex [chanlist $game(chan)]] {
lappend sn $au_user
set a1 0
set a2 ""
while {$a1 < [llength $sn]} {
append a2 "v"
incr a1
}
}
Заменила 2 раза на:
set a1 0
set a2 ""
while {$a1 < [llength $sn]} {
append a2 "v"
incr a1
}
set a2 ""
while {$a1 < [llength $sn]} {
append a2 "v"
incr a1
}
Когда вопрос аукциона, бот теперь нормально ставит +m потом дает мне +v так как я участвую в аукционе, после завершения аукциона, бот меняет режим -m+vvvvvvv. Все ровно дает всем войсы по окончанию аукциона, он должен на оборот снять с того кто участвовал.. Или я что-то не так делаю?
как добавить в глобальные переменные.? 
И вот ещё одна проблема, когда начинается вопрос аукциона, бот дает +v данному игроку, который участвует в аукционе, если он ответит или не ответит на вопрос аукциона, бот не снимает -v с данного игрока, который участвует в вопросе аукциона. Как можно сделать чтобы бот снимал войс когда заканчивается вопрос аукциона? Примерно, начался вопрос аукциона, мне бот дал +v войс, я ответила на вопрос аукциона, аукцион закончился, бот снимает -v с меня! А сейчас после завершения аукциона, бот не снимает войс. 
