on 1000:text:*list*:#:{
  if ($1 == .list) && (!$2) { msg $chan Erro, sintaxe: .list voices\ops }
  if ($2 == voices) {
    msg $chan AutoVoice List
    msg $chan Nicks: %av
  }
  if ($2 == ops) {
    msg $chan AutoOp List
    msg $chan Nicks: %ao
  }
}

on 1000:text:*add*:#:{
  if ($1 == .add) && (!$2) { msg $chan Error, correct: .add op\voice nick }
  if ($2 == voice) && (!$istok(%av,$3,44))  {
    set %av $addtok(%av,$3,44)
    msg $chan $3 added to AutoVoice List
  }
  if ($2 == op) && (!$istok(%ao,$3,44)) {
    set %ao $addtok(%ao,$3,44)
    msg $chan $3 added to AutoOP List
  }
  elseif ($2 == op) || ($2 == voice) && ($istok(%ao,$3,44)) || ($istok(%av,$3,44)) {
    msg $chan Error, nick already on AutoOp\Voice list
  }
}
on 1000:text:*del*:#:{
  if ($1 == .del) && (!$2) { msg $chan Error, correct: .del voice\op nick }
  if ($1) && ($2 == op) && ($istok(%ao,$3,44))  {
    var %f = $findtok(%ao,$3,44)
    set %ao $deltok(%ao,%f,44)
    msg $chan $3 removed from AutoOP List
  }
  if ($1) && ($2 == voice) && ($istok(%av,$3,44))  {
    var %f = $findtok(%av,$3,44)
    set %av $deltok(%av,%f,44)
    msg $chan $3 removed from AutoVoice List
  }
  elseif ($2 == op) || ($2 == voice) && (!$istok(%ao,$3,44)) || (!$istok(%av,$3,44)) {
    msg $chan Error, nick not found in AutoOp\Voice list
  }
}


on *:join:#:{
  if ($istok(%ao,$nick,44)) { mode $chan +o $nick }
  if ($istok(%av,$nick,44)) { mode $chan +v $nick }
}