/*
* Anti Force Join - por rockcavera
*/

on $*:PARSELINE:out:/^JOIN (#[^\s]*)/:{
  set -l %chans $regml(1)
  set -l %hash antiforcejoin
  if (!$hget(%hash)) hmake %hash
  set -l %x $numtok(%chans,44)
  while %x {
    set -l %chan $gettok(%chans,%x,44)
    if (part != $hget(%hash,%chan)) hadd -u300 %hash %chan join
    dec %x
  }
}

on $*:PARSELINE:in:/^:(.+?)!.+? JOIN :?(#[^\s]*)/:{
  echo -s FOI $regml(1) $regml(2)
  if ($me != $regml(1)) return
  set -l %chan $regml(2)
  set -l %hash antiforcejoin
  if (!$hget(%hash)) hmake %hash
  if (join == $hget(%hash,%chan)) hdel %hash %chan
  else {
    hadd -u300 %hash %chan part
    !.join -n %chan
    !.part %chan
  }
}

on ^*:JOIN:*:{
  if ($me != $nick) return
  set -l %hash antiforcejoin
  if (part == $hget(%hash,$chan)) !.window -w0 $chan
  elseif (join == $v2) hdel %hash $chan
}

on *:PART:*:{
  if ($me != $nick) return
  set -l %hash antiforcejoin
  if (part == $hget(%hash,$chan)) hdel %hash $chan
}