Untitled

dialog scan {
  title "Scanner"
  size -1 -1 150 89
  option dbu
  list 1, 0 11 76 79, size vsbar
  button "Scan", 2, 77 64 37 12
  button "Close", 3, 77 77 37 12, ok
  text "Common nicks", 4, 0 -1 55 8, center
  text "Channel 1:", 5, 76 8 31 8, center
  text "Channel 2:", 6, 76 18 31 8, center
  edit "", 7, 107 7 42 10
  edit "", 8, 107 17 42 10
}
menu * {
  scan:/dialog -dm scan scan
}
on *:dialog:scan:sclick:2:{
  if ($did(7)) && ($did(8)) {
    /sc4n $did(7) $did(8)
  }
}
alias sc4n {
  var %er = 1
  var %rre
  while (%er <= $iif($nick($did(7),0) > $nick($did(8),0) || $nick($did(7),0) == $nick($did(8),0),$nick($did(7),0),$nick($did(8),0))) {
    if ($iif($nick($did(7),0) > $nick($did(8),0) || $nick($did(7),0) == $nick($did(8),0),$nick($did(7),%er),$nick($did(8),%er)) ison $did(7)) && ($iif($nick($did(7),0) > $nick($did(8),0) || $nick($did(7),0) == $nick($did(8),0),$nick($did(7),%er),$nick($did(8),%er)) ison $did(8)) {
      did -i scan 1 $iif(%rre,$v1,1) $iif($nick($did(7),0) > $nick($did(8),0) || $nick($did(7),0) == $nick($did(8),0),$nick($did(7),%er),$nick($did(8),%er))
      inc %er
      inc %rre
    }
    else inc %er
  }
  $iif(!%rre,did -i scan 1 1 No nicks found.)
}