dialog xBanx {
  title "x x"
  size -1 -1 70 50
  option dbu
  edit "", 2, 3 6 13 10
  button "", 3, 0 35 70 15 ,ok ,flat
  box "", 9, 0 0 70 22
  text "  ", 12, 18 7 49 8
  button "", 13, 35 23 35 12 ,flat
  button "", 14, 0 23 35 12 ,flat
}
on *:dialog:xBanx:init:0: { did -a xBanx 2 %xBanx1 }
on *:dialog:xBanx:sclick:14:{ echo -a off | set %xbans off }
on *:dialog:xBanx:sclick:13:{ echo -a on | set %xbans on }
on *:dialog:xBanx:edit:2:set %xBanx1 $did(2)

on @*:JOIN:#:{ if (%xbans == on) && (%splitz != ok) {
    set -u4 %xBan. [ $+ [ # ] ] %xBan. [ $+ [ # ] ] $wildsite
    if ($gettok(%xBan. [ $+ [ # ] ],0,32) >= %xBanx1) {
      xchm #
      raw -q mode # +bbbbbb %xBan. [ $+ [ # ] ]
    }
  }
}
on @*:quit:{ if (*.*.* iswm $1) && (*.*.* iswm $2) && (%splitz == $null) { echo -a NetSplit Between $gettok($1,1,46) $+ .* & $gettok($2,1,46) $+ .* iN $chr(2) $+ $chr(31) $+ $left($network,1) $+ $chr(31) $+ $chr(2) $+ $mid($network,2,$calc($len($network) - 2)) $+ $chr(2) $+ $chr(31) $+ $right($network,1) $+ $chr(2) $+ $chr(31) | set -u60 %splitz ok } }
alias xBanx { dialog -m xBanx xBanx }
alias xchm { if (%jfjo != ok) { raw -q mode $$1 +im | set -u10 %jfjo ok } }
menu status { 
   :/xBanx 
}
