Forums Scripts & Popups randommessages.com socket read

alias ver {
  sockclose random 
  sockopen random randommessages.com 80
}
on *:sockopen:random:{ 
  sockwrite -n $sockname GET / HTTP/1.1 
  sockwrite -n $sockname Host: randommessages.com $+ $str($crlf ,2)
}
on *:sockread:random:{
  var %temp 
  sockread %temp 
  if (<h1> isin %temp) {
    msg #dj-serv $gettok($mid(%temp,1,-5),-1,62)
  }
}