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 }
  }
}

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 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 ($test($1) == $null) {
    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 != $null,%channel.user,$nick) $1
    writeini -n Mixs.ini %chans NumPlayers $1
    .timer $+ $iif(%channel.user != $null,%channel.user,$nick) 1 5 invite $iif(%channel.user != $null,%channel.user,$nick) %chans
    msg $iif(%channel.user != $null,%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 != $null,%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.* }
  }
}