/ScriptServ

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

on 1:TEXT:*!cancro*:%oroschan: {
  sockclose cancro
  sockopen cancro www.oroscopi.com 80
  set %oroscopo.chan %oroschan
}

on *:Sockopen:cancro:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Cancro HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:cancro:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Cancro[— %temp
    }
  }
}


on 1:TEXT:*!vergine*:%oroschan: {
  sockclose vergine
  sockopen vergine www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:vergine:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Vergine HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:vergine:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Vergine[— %temp
    }
  }
}


on 1:TEXT:!ariete:%oroschan: {
  sockclose ariete
  sockopen ariete www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:ariete:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Ariete HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:ariete:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Ariete[— %temp
    }
  }
}


on 1:TEXT:!toro:%oroschan: {
  sockclose toro
  sockopen toro www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:toro:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Toro HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:toro:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Toro[— %temp
    }
  }
}


on 1:TEXT:!gemelli:%oroschan: {
  sockclose gemelli
  sockopen gemelli www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:gemelli:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Gemelli HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:gemelli:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Gemelli[— %temp
    }
  }
}


on 1:TEXT:!leone:%oroschan: {
  sockclose leone
  sockopen leone www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:leone:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Leone HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:leone:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Leone[— %temp
    }
  }
}


on 1:TEXT:!bilancia:%oroschan: {
  sockclose bilancia
  sockopen bilancia www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:bilancia:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Bilancia HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:bilancia:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Bilancia[— %temp
    }
  }
}


on 1:TEXT:!sagittario:%oroschan: {
  sockclose sagittario
  sockopen sagittario www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:sagittario:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Sagittario HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:sagittario:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Sagittario[— %temp
    }
  }
}


on 1:TEXT:!scorpione:%oroschan: {
  sockclose scorpione
  sockopen scorpione www.oroscopi.com 80
  set %oroscopo.chan $chan
}


on *:Sockopen:scorpione:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Scorpione HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}

on *:sockread:scorpione:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Scorpione[— %temp
    }
  }
}


on 1:TEXT:!capricorno:%oroschan: {
  sockclose capricorno
  sockopen capricorno www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:capricorno:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Capricorno HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:capricorno:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Capricorno[— %temp
    }
  }
}

on 1:TEXT:!acquario:%oroschan: {
  sockclose acquario
  sockopen acquario www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:acquario:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Acquario HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:acquario:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Acquario[— %temp
    }
  }
}


on 1:TEXT:!pesci:%oroschan: {
  sockclose pesci
  sockopen pesci www.oroscopi.com 80
  set %oroscopo.chan $chan
}

on *:Sockopen:pesci:{
  sockwrite -n $sockname GET /oroscopo/oroscopo_giorno.php?segno=Pesci HTTP/1.1
  sockwrite -n $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
  sockwrite -n $sockname Accept-Language: it
  sockwrite -n $sockname Accept-Encoding: gzip, deflate
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
  sockwrite -n $sockname Host: www.oroscopi.com
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname
}
on *:sockread:pesci:{
  sockread %temp
  if (<p> isincs %temp) {
    %temp = $remove($html(%temp),PUBBLICITA,©2008 Condé Nast SpA P.iva 00834980153)
    if (%temp != $null) {
      msg %oroscopo.chan —]11Pesci[— %temp
    }
  }
}