on *:part:#: {
  if $nick(#,0) == 1 && %::otohop && $me !isop # && $me !isowner # {
    part #
    join #
  }
}
on *:quit: {
  if %::otohop {
    var %:i 1 , %:k
    while %:i <= $comchan($nick,0) {
      %:k = $comchan($nick,%:i)
      if $nick(%:k,0) == 1 && $me !isop %:k && $me !isowner %:k {
        part %:k
        join %:k
      }
      inc %:i
    }
  }
}
menu status,channel,menubar {
  $iif(!%::otohop,Oto hop aç,Oto hop kapat):_otohopdegistir
}
alias _otohopdegistir {
  if %::otohop {
    unset %::otohop
  }
  else {
    set %::otohop lol
  }
}