on *:JOIN:#666: {
  if ($nick == $me) {
    ap2ri
    .timer 0 1800 ap2ri
  }
}
on *:TEXT:*:#666: {

  if ($1 == !hd) {
    .remove hd4me2.txt
    set %hd4me_cerca $replace($2-,$chr(32), $chr(43))
    sockclose hd_cerca
    sockopen hd_cerca hd4me.net 80
  }
}

alias ap2ri {
  sockclose test
  sockopen test hd4me.net 80
  ; msg #666 ok
}

on *:sockopen:test:{
  sockwrite -n test GET / HTTP/1.1
  sockwrite -n test Host: hd4me.net
  sockwrite -n test
  .remove hd4me.txt
}

on 1:sockread:test:{

  var %temp
  sockread %temp
  ; write hd4me2.txt %temp
  if ($sockbr == 0) { return }
  if (<a href="http://hd4me.net/?p= isin %temp) {
    write hd4me.txt %temp
    .sockclose test

    leggo

  }
}
alias leggo {

  if ($read(hd4me.txt,1) != %hd4me) {
    tokenize 34 $read(hd4me.txt,1)
    set %test_hd $gettok($read(hd4me.txt,1),2,34)
    set %titolo_hd $gettok($read(hd4me.txt,1),6,34)
    if (&#8217; isin %titolo_hd) {
      set %titolo_hd4 $replace(%titolo_hd,&#8217;,$chr(39))
    }
    msg #666 14( HD044ME 14)-(08 %titolo_hd4 14)-(11 %test_hd 14)-(15 powered by 12S4g4m8O14 )
    set %hd4me $read(hd4me.txt,1)
  }
}

on *:sockopen:hd_cerca: {
  sockwrite -n hd_cerca GET / $+ ?s= $+ %hd4me_cerca HTTP/1.1
  sockwrite -n hd_cerca Host: hd4me.net
  sockwrite -n hd_cerca
}

on 1:sockread:hd_cerca:{
  var %hd_temp
  sockread %hd_temp
  ; write hd4me2.txt %hd_temp
  if ($sockbr == 0) { return }
  if ((<a href="http://hd4me.net/?p= isin %hd_temp) && ($replace(%hd4me_cerca, $chr(43), $chr(32)) isin %hd_temp)) {
    write hd4me2.txt %hd_temp
  }
  if (</html> isin %hd_temp) {
    if ($isfile(hd4me2.txt) == $true) {
      leggi_hd
    }
    if ($isfile(hd4me2.txt) == $false) {
      msg #666 14( HD044ME 14)-( La ricerca di 04 $+ $replace(%hd4me_cerca, $chr(43), $chr(32)) $+  non ha dato nessun risultato 14)
    }
  }
}

alias leggi_hd {
  var %linee $lines(hd4me2.txt)
  var %i = 1
  while (%i <= %linee) {
    msg #666   14( HD044ME 14)-(08 $replace($gettok($read(hd4me2.txt,%i),6,34),&#8217;,$chr(39),&#8211;,$chr(45)) 14)-(11 $gettok($read(hd4me2.txt,%i),2,34) 14)-(15 powered by 12S4g4m8O14 )
    inc %i
  }
}

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