ON *:JOIN:*: {
  if (($gettok($address($nick,2),2,64) isin %JailIP) && ($chan != #jail)) {
    ;;echo -a :: $chan :: $nick :: $gettok($address($nick,2),2,64)
    jail $nick
  }
}

ON *:PART:#jail: {
  if (($gettok($address($nick,2),2,64) isin %JailIP) && ($chan != #jail)) {
    ;;echo -a :: $chan :: $nick :: $gettok($address($nick,2),2,64)
    jail $nick
  }
}


ON *:ACTIVE:?: {
  ;;echo -a :::: $active ::: $lactive
  set %jail $iif($gettok($address($active,2),2,64) !isin %JailIP,Jail,UnJail)
}

on *:CLOSE:?: {
  unset %jail
}



menu nicklist {
  -
  Jail: jail $snicks
  -
  UnJail: %JailIP = $replace(%JailIP,$gettok($address($snicks,2),2,64),$null)
  -
}

menu query {
  -
  $var(%jail,1).value : {
    if (%jail == Jail) { jail $1 }
    else { unjail $1 }
    set %jail $iif(%jail == Jail,UnJail,Jail)
  }
  -
}

alias unjail {
  echo -a :::UNJAIL::: $1 :::: $gettok($address($1,2),2,64)
  var %a = $gettok($address($1,2),2,64)
  if (%a == $null) { %a = $1 }
  %JailIP = $replace(%JailIP,%a,$null)
}

alias jail {
  echo -a :::JAIL::: $1 ::: $gettok($address($1,2),2,64)
  /query $1
  if ($gettok($address($1,2),2,64) !isin %JailIP) {
    %JailIP = %JailIP $gettok($address($1,2),2,64)
  }
  var %i = 1
  while (%i <= $comchan($1,0)) {
    SAPART $1 $comchan($1,%i)
    inc %i
  }
  SAJOIN $1 #jail
}