alias nerden { 
  var %:r $+(10,99999)
  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80
  sockmark $+(yerbul,%:r) $+($1,¿,$2)
}
on *:sockopen:yerbul*:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf 
}
on *:sockread:yerbul*: {  
  if ($sockerr) { sockclose $sockname | returnex } 
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }
}