horoscrope v2

on *:text:!horoscope*:#: {
  var %sock, %l
  %sock = $+(horoscope,.,$lower($2))
  if ($sock(%sock)) halt
  if ($istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
    set %horochan. [ $+ [ $+(%sock) ] ] #
    sockopen %sock danger.org.uk 80
    if ($istok(sex romantic 2,$3,32)) sockmark %sock $replace($3,2,Tommorows,sex,$+(Monthly,$chr(32),Sex,$chr(32),Horoscope),romantic,$+(Weekly,$chr(32),Romantic,$chr(32),Horoscope))
    else sockmark %sock Your Daily Horoscope
  }
  if (!$2 || !$istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
    msg $chan Horoscope usage: !Horoscope <sign>
    msg $chan Options: Aquarius Pisces Aries Taurus Gemini Cancer Leo Virgo Libra Scorpio Sagittarius Capricorn
  }
}
on *:sockopen:horoscope.*: {
  sockwrite -n $sockname GET $+(/,horoscope,/,?,id,=,$gettok($sockname,2,46)) HTTP/1.1
  sockwrite -n $sockname Host: pony.express
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:horoscope.*: {
  var %horotemp, %l
  sockread %horotemp
  tokenize 32 %horotemp
  if ($1 == set.it) && (4 isin $replace($1-,$sock($sockname).mark,$+(4,$sock($sockame).mark))) .set %horoscope. [ $+ [ $sockname ] ] %horoscope. [ $+ [ $sockname ] ] $2-
  if ($1 == send.it) && (%horoscope. [ $+ [ $sockname ] ]) {
    msg %horochan. [ $+ [ $sockname ] ] %horoscope. [ $+ [ $sockname ] ]
    .unset %horoscope. [ $+ [ $sockname ] ]
  }
}