on *:text:*:#: {
  if ($1 == !findmix) {
    if ($2 !isnum 2-5) { msg $stl($chan $nick The number players must be move between 2-5.) }
    elseif ($isinmix($nick)) { msg $chan $stl(You already in mix-room $+ $chr(44) for exit please part from the mix-room you are in it $+ $chr(46)) }
    else { fx $2 }
  }
  elseif ($1 == !votekick) && ($isinmix($nick)) {
    msg $chan $stl($nick Turn on votekick for $2 $+ $chr(44) to kick this user type !Yes $+ $chr(44) to kick this player type !No $+ $chr(44) you have 30 seconds to vote!)
    set -u30 %votekick [ $+ [ $isinmix($nick) ] ] on
    .timer $+ %votekick [ $+ [ $isinmix($nick) ] ]  1 30 Votekick $isinmix($nick) $address($2,2)
  }
  elseif ($1 == !Yes) && (%votekick [ $+ [ $isinmix($nick) ] ] == on) { inc %vote.yes [ $+ [ $isinmix($nick) ] ]  }
  elseif ($1 == !No) && (%votekick [ $+ [ $isinmix($nick) ] ] == on) { inc %vote.no [ $+ [ $isinmix($nick) ] ]  }
}


on !*:join:#: {
  if ($isinmix($nick)) { .timer $+ $nick [ $+ [ 2 ] ] off }
}
on !*:part:#: {
  if ($isinmix($nick)) { writeini -n mixs.ini $isinmix($nick) players $remtok($readini(mixs.ini,$isinmix($nick),players),$nick,44) }
}

;;;;Aliaes;;;;

alias stl return 15»07»10» $1- 10«07«15«
alias isinmix { var %x = 1 | while ($ini(mixs.ini,%x)) { if ($istok($readini(mixs.ini,$ifmatch,players),$1,44)) { return $ini(mixs.ini,%x) } | inc %x } }
alias votekick {
  if (%vote.yes [ $+ [ $2 ] ] > %vote.no [ $+ [ $2 ] ]) {
    msg $2 $stl(The votekick is over! the results is: No: %vote.no [ $+ [ $2 ] ] - Yes: %vote.yes [ $+ [ $2 ] ])
  kick $2 $3 You kicked by votekick ( $+ %vote.yes [ $+ [ $2 ] ] $+ / %vote.no [ $+ [ $2 ] ] $+ ) }
  unset %vote.yes [ $+ [ $2 ] ] %vote.no [ $+ [ $2 ] ] %votekick [ $+ [ $2 ] ]
}
alias test {
  var %x = 1, %file = mixs.ini
  while ($ini(mixs.ini,%x)) {
    var %topic = $v1
    if ($readini(%file,%topic,numplayers) > $numtok($readini(%file,%topic,players),44)) && ($readini(%file,%topic,numplayers) == $1) {
      return %topic
    }
    inc %x
  }
}
alias fx {
  if ($ini(mixs.ini) <= 19) { msg %Mainchannel $stl(The maximum channels is over $+ $chr(44) please wait to some channel available $+ $chr(46)) }
  if (!$test($1)) && ($ini(mixs.ini) >= 19) {
    var %num = $rand(100,999), %chans = $+(#mix,%num)
    msg $chan $stl(We dont have a free room, please wait a few seconds we create for you new room.)
    ChannelTest %chans $iif(%channel.user,%channel.user,$nick) $1
    writeini -n Mixs.ini %chans NumPlayers $1
    .timer $+ $iif(%channel.user,%channel.user,$nick) 1 5 invite $iif(%channel.user,%channel.user,$nick) %chans
    msg $iif(%channel.user,%channel.user,$nick) $stl(You invited to %chans $+ $chr(44) you have 20 seconds to get in!)
    writeini mixs.ini %chans players $addtok($readini(mixs.ini,%chans,players),$iif(%channel.user,%channel.user,$nick),44)
  }
  else {
    invite $nick $test($1)
    msg $nick $stl(You invited to $test($1) $+ $chr(44) you have 20 seconds to get in!)
    writeini mixs.ini $test($1) players $addtok($readini(mixs.ini,$test($1),players),$nick,44)
    .timer $+ $nick [ $+ [ 2 ] ] 1 20 writeini -n mixs.ini $isinmix($nick) players $remtok($readini(mixs.ini,$isinmix($nick),players),$nick,44)
  }
}
alias ChannelTest {
  join $1 | who $1
  set %channel.test on
  set %channel.users $1
  set %channel.user $2
  set %channel.num $3
}
raw 366:*: {
  if (%channel.test == on) {
    if ($nick(%channel.users,0) < 1) { remini Mixs.ini %channel.users | fx %channel.num | unset %channel.* | .timer $+ $2 off }
    else { mode %channel.users +isl 6 | unset %channel.* }
  }
}