Anonymous

dialog pfilt {
  title "Proxy Filter"
  size -1 -1 225 235
  option dbu
  edit "", 1, 10 107 205 93, read multi vsbar
  edit "", 2, 10 15 205 89, multi return vsbar
  button "Filter!", 3, 10 207 92 20
  text "Paste in your proxies and click filter, and it will auto filter it out ;) - Enjoy.", 4, 7 4 207 10
  button "Clear", 5, 123 207 92 20
}


menu * {
  Proxy Filter:/pfilter
}

Alias Pfilter {
  If ($Dialog(pfilt)) { Dialog -v pflit }
  else { Dialog -md pfilt pfilt }
}

on *:DIALOG:pfilt:sclick:3: {
  pcheck
}

on *:DIALOG:pfilt:sclick:5: {
  did -r pfilt 1
}

alias pcheck {
  var %q = $did(pfilt,2).lines,%w = 1
  while (%q >= %w) {
    if ($regex($did(pfilt,2,%w).text,/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d+)/)) {
    did -i pfilt 1 $did(pfilt,1).lines $regml(1) }
    inc %w
  }
}