daily pastebin goal
23%
SHARE
TWEET

Untitled

a guest Mar 19th, 2019 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:JOIN:#666: {
  2.   if ($nick == $me) {
  3.     apri
  4.     .timer 0 1800 apri
  5.   }
  6. }
  7. on *:TEXT:*:#666: {
  8.   if ($1 == !cerca) {
  9.     ;.remove hd4me2.txt
  10.     set %hd4me_cerca $replace($2-,$chr(32), $chr(43))
  11.     sockclose hd_cerca
  12.     sockopen hd_cerca hd4me.net 80
  13.   }
  14. }
  15. on 1:INPUT:#: {
  16.   if ($1 == !cerca) {
  17.     .remove hd4me2.txt
  18.     set %hd4me_cerca $replace($2-,$chr(32), $chr(43))
  19.     sockclose hd_cerca
  20.     sockopen hd_cerca hd4me.net 80
  21.   }
  22. }
  23. alias apri {
  24.   sockclose test
  25.   sockopen test hd4me.net 80
  26.   ;msg #666 ok
  27. }
  28.  
  29. on *:sockopen:test:{
  30.   sockwrite -n test GET / HTTP/1.1
  31.   sockwrite -n test Host: hd4me.net
  32.   sockwrite -n test
  33.   ;.remove hd4me.txt
  34. }
  35.  
  36. on 1:sockread:test:{
  37.  
  38.   var %temp
  39.   sockread %temp
  40.   ;write hd4me2.txt %temp
  41.   if ($sockbr == 0) { return }
  42.   if (*a href="http://hd4me.net* rel=* iswm %temp) {
  43.     write hd4me.txt %temp
  44.     .sockclose test
  45.  
  46.     leggo
  47.  
  48.   }
  49. }
  50. alias leggo {
  51.  
  52.   if ($read(hd4me.txt,1) != %hd4me) {
  53.     tokenize 34 $read(hd4me.txt,1)
  54.     set %test_hd $gettok($read(hd4me.txt,1),2,34)
  55.     set %titolo_hd $replace($gettok($read(hd4me.txt,1),6,34),’,$chr(39),–,$chr(39))
  56.     msg #666  14( HD044ME 14)-(08 %titolo_hd 14)-(11 %test_hd 14)-(15 powered by 12S4g4m8O14 )
  57.     set %hd4me $read(hd4me.txt,1)
  58.   }
  59. }
  60.  
  61. on *:sockopen:hd_cerca: {
  62.   sockwrite -n hd_cerca GET / $+ ?s= $+ %hd4me_cerca HTTP/1.1
  63.   sockwrite -n hd_cerca Host: hd4me.net
  64.   sockwrite -n hd_cerca
  65.   msg #666 $+ ?s= $+ %hd4me_cerca
  66. }
  67.  
  68. on 1:sockread:hd_cerca:{
  69.   var %hd_temp
  70.   sockread %hd_temp
  71.   ;write hd4me2.txt %hd_temp
  72.   if ($sockbr == 0) { return }
  73.   if ((*a href="http://hd4me.net* rel=* iswm %hd_temp) && ($replace(%hd4me_cerca, $chr(43), $chr(32)) isin %hd_temp) && (breadcrumbs !isin %hd_temp)) {
  74.     write hd4me2.txt %hd_temp
  75.   }
  76.   if (</html> isin %hd_temp) {
  77.     if ($isfile(hd4me2.txt) == $true) {
  78.       leggi_hd
  79.     }
  80.     if ($isfile(hd4me2.txt) == $false) {
  81.       msg #666 La ricerca di $replace(%hd4me_cerca, $chr(43), $chr(32)) non ha nessun risultato
  82.     }
  83.   }
  84. }
  85.  
  86. alias leggi_hd {
  87.   var %linee $lines(hd4me2.txt)
  88.   var %i = 1
  89.   while (%i <= %linee) {
  90.     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)
  91.     inc %i
  92.   }
  93.   msg #666 14(8 RISULTATI RICERCA 14)-(11 $replace(%hd4me_cerca, $chr(43), $chr(32)) 14)-(15 powered by 12S4g4m8O14 )
  94. }
  95.  
  96. alias -l html {
  97.   var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  98.   return %x
  99. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top