on *:JOIN:#666: {
  if ($nick == $me) {
    apri
    .timer 0 1800 apri
  }
}
on *:TEXT:*:#666: {
  if ($1 == !cerca) {
    ;.remove hd4me2.txt
    set %hd4me_cerca $replace($2-,$chr(32), $chr(43))
    sockclose hd_cerca
    sockopen hd_cerca hd4me.net 80
  }
}
on 1:INPUT:#: {
  if ($1 == !cerca) {
    .remove hd4me2.txt
    set %hd4me_cerca $replace($2-,$chr(32), $chr(43))
    sockclose hd_cerca
    sockopen hd_cerca hd4me.net 80
  }
}
alias apri {
  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* rel=* iswm %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 $replace($gettok($read(hd4me.txt,1),6,34),’,$chr(39),–,$chr(39))
    msg #666  14( HD044ME 14)-(08 %titolo_hd 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
  msg #666 $+ ?s= $+ %hd4me_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* rel=* iswm %hd_temp) && ($replace(%hd4me_cerca, $chr(43), $chr(32)) isin %hd_temp) && (breadcrumbs !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 La ricerca di $replace(%hd4me_cerca, $chr(43), $chr(32)) non ha nessun risultato
    }
  }
}

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)
    inc %i
  }
  msg #666 14(8 RISULTATI RICERCA 14)-(11 $replace(%hd4me_cerca, $chr(43), $chr(32)) 14)-(15 powered by 12S4g4m8O14 )
}

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