/ScriptServ

on *:text:!oroscopo *:%game_channel: {
  if ( $istok(ArIeTe ToRo GeMeLLi CaNcRo LeOnE VeRgInE BiLaNcIa ScOrPiOnE SaGiTTaRiO CaPrIcOrNo AcQuArIo PeScI,$2,32) ) {
    set %segno1 $2
    unset %termina
    unset %oroscopomessaggio*
    set %periodo.oroscopo NaTi TrA iL:
    set %oroscopocanale $chan
    set %oroscopoinizio <p> 
    sockclose oroscopo
    sockopen oroscopo www.oroscopi.com 80
  }
}
on *:sockopen:oroscopo: {
  sockwrite -n oroscopo GET http://www.oroscopi.com/oroscopo/oroscopo_giorno.php?segno= $+ %segno1
}
on *:sockread:oroscopo: {
  sockread %oroscopo.temp
  if (%periodo.oroscopo isin %oroscopo.temp) { set %periodo $remove($gettok(%oroscopo.temp,3,62),</span)  }
  if ((%oroscopoinizio isin %oroscopo.temp) && (!%termina))  { 
    set %oroscopo.frase %oroscopo.temp
    set %termina !
    /set %oroscopomessaggio $remove(%oroscopo.temp,</p>,<p>)
    if ( $len(%oroscopomessaggio) > 417 ) {
      set %oroscopomessaggio2 00,03 ... $+ $right(%oroscopomessaggio,$calc($len(%oroscopomessaggio) - 410)) 
      set %oroscopomessaggio $remove(%oroscopomessaggio,$right(%oroscopomessaggio,$calc($len(%oroscopomessaggio) - 410)))
      set %oroscopomessaggio %oroscopomessaggio $+ ... 
    }
    /msg %game_channel 00,06 %periodo 
    /msg %game_channel 01,13 %segno1 00,03 %oroscopomessaggio 
    if ( %oroscopomessaggio2 != $null ) { /msg %game_channel %oroscopomessaggio2 }
  } 
}