on *:text:*:#:{
  if ($nick isop $chan) {
    if ($1 == !add-r) {
      set %rendname %rendname $2
      msg $chan $nick is added to exams chosen
    }
    if ($1 == !add-s) {
      set %setname %setname $2
      msg $chan $nick is added to sure chosen in exams
    }
    if ($1 == !reset-r) {
      unset %rendname
    }
    if ($1 == !reset-s) {
      unset %setname
    }
    if ($1 == !mix) {
      var %dnad %setname $mixnames(%rendname)
      msg $chan nicks: %dnad
      var %s1,%s2,%s3,%s4,%s5,%s6 , %i = 1
      while (%i <= 48) {
        set %s [ $+ [ $calc((%i % 6 + 1)) ] ] %s [ $+ [ $calc((%i % 6 + 1)) ] ]  $gettok(%dnad,%i,32)
        inc %i
      }
      msg $chan Team1 : $gettok(%s1,1-5,32)
      msg $chan Team2 : $gettok(%s2,1-5,32)
      msg $chan Team3 : $gettok(%s3,1-5,32)
      msg $chan Team4 : $gettok(%s4,1-5,32)
      msg $chan Team5 : $gettok(%s5,1-5,32)
      msg $chan Team6 : $gettok(%s6,1-5,32)
    }
  }
  if ($1 == !names) { msg $chan %name }
}
alias mixnames {
  set %names $1-
  set %newareea $null
  var %i = 1
  while (%i <= 28) {
    var %find = $gettok(%names,$r(1,$gettok(%names,0,32)),32)
    set %newareea %newareea %find
    set %names $remove(%names,%find)
    inc %i
  }
  return %newareea
}