ts a simple Proxy checker... this snippet let you check in some websites if you're using, or if someone is using a proxy

NOTE: if the person is using a ''High anonymous'' proxy, probably the script couldnt find it

right click on channel, then click on Proxy checker

Bugs? Report please

dialog Proxycheker {
  title "Proxy checker"
  size -1 -1 182 110
  option dbu
  list 6, 6 34 170 63, size extsel hsbar vsbar
  edit "", 2, 6 18 61 10, limit 15
  button "Scan", 3, 72 16 24 12
  box "Proxy check", 4, 2 1 177 104
  text "IP:", 5, 6 10 34 8
  button "send info to channel", 7, 113 16 55 12, hide
}

menu channel {
  Proxy Checker:{
    /Proxycheker
  }
}
alias Proxycheker { 
  if (!$dialog(Proxycheker)) { dialog -m Proxycheker Proxycheker }
  else {
    dialog -v Proxycheker Proxycheker
  }
}

on *:dialog:Proxycheker:sclick:*:{
  if (($did == 3) && ($did(2) != $null)) {
    set %ipproxy $did(2).text
    if ($sock(drone)) sockclose drone
    sockopen Drone dronebl.org 80
    sockopen ipchecking ipchecking.com 80
    did -r Proxycheker 6
  }
  if ($did == 6) { 
    did -v proxycheker 7 
  }
  if ($did == 7) {
    var %x = 1
    while (%x <= $did(proxycheker, 6, 0).sel) { 
      msg $active $did(proxycheker, 6, $did(proxycheker, 6, %x).sel).text
      inc %x 
    }
  }
}

on *:SOCKOPEN:Drone: {
  sockwrite -n $sockname GET / $+ lookup?ip= $+ %ipproxy HTTP/1.0
  sockwrite -n $sockname Host: dronebl.org
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:Drone: { 
  sockread %Droneproxy
  if (*found* iswm %Droneproxy) { 
    did -za Proxycheker 6 >>>> $htmlfree(%Droneproxy)
  }
}

on *:SOCKOPEN:ipchecking: {
  sockwrite -n $sockname GET / $+ ?ip= $+ %ipproxy HTTP/1.0
  sockwrite -n $sockname Host: ipchecking.com
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:ipchecking: { 
  sockread %ipcheckingproxy
  if (*listed in* iswm %ipcheckingproxy) { 
    did -za Proxycheker 6 >>>> $htmlfree(%ipcheckingproxy)
  }
  if (*not found* iswm %ipcheckingproxy) { 
    did -za Proxycheker 6 >>>> $htmlfree(%ipcheckingproxy)
  }
}

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }