Dangers working horo

on *:text:!horoscope*:#: {
  .set %horoNick $nick
  .set %horoNickChan $chan
  {
    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 money finance work flirt business,$3,32)) {
        sockmark %sock $replace($3,2,Tommorows,sex,$+(Monthly,$chr(32),Sex,$chr(32),Horoscope),romantic,$+(Weekly,$chr(32),Romantic,$chr(32),Horoscope),finance,$+(Your,$chr(32),Daily,$chr(32),Finance),money,$+(Your,$chr(32),Daily,$chr(32),Finance),work,$+(Your,$chr(32),Daily,$chr(32),Work),business,$+(Your,$chr(32),Monthly,$chr(32),Business),flirt,$+(Your,$chr(32),Daily,$chr(32),Flirt))
        .set %type. [ $+ [ $+(%sock) ] ] $+(&,type,=,$replace($3,romantic,3,sex,4,money,5,work,6,finance,6,flirt,7,business,8))
      }
      else {
        sockmark %sock Your Daily Horoscope
        .unset %type. [ $+ [ $+(%sock) ] ]
      }
    }
    if (!$2 || !$istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
      msg $chan 3Horoscope usage: 2!Horoscope3 <sign> [br]Options: Aquarius Pisces Aries Taurus Gemini Cancer Leo Virgo Libra Scorpio Sagittarius Capricorn
      notice %horoNick For More Options: !horoOptions | halt
    }
  }
}
on *:sockopen:horoscope.*: {
  sockwrite -n $sockname GET $+(/,horoscope,/,?,id,=,$gettok($sockname,2,46),$var($+(%type,.,$sockname),1).value) HTTP/1.1
  sockwrite -n $sockname Host: pony.express
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:horoscope.*: {
  var %horotemp, %len, %count, %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 ] ]) {
    tokenize 32 %horoscope. [ $+ [ $sockname ] ]
    msg %horoNickChan [Style ff:Comic Sans MS;co:#FF0000;b;] >>>>> %horoNick <<<<<
    msg %horochan. [ $+ [ $sockname ] ] %horoscope. [ $+ [ $sockname ] ]
    msg %horoNickChan [Style ff:Comic Sans MS;co:#FF0000;b;] Credits Danger
    .unset %horoscope. [ $+ [ $sockname ] ]
  }
}
on *:text:*:#: {
  if (!horoOptions isin $1-) {
    msg %horoNickChan Text !Horoscope <sign> then  [Style ff:Comic Sans MS;co:#FF0000;b;] sex , romantic , 2 , money , finance , work , flirt , business .
    notice %horoNick Text !Horoscope <sign> then  [Style ff:Comic Sans MS;co:#FF0000;b;] sex , romantic , 2 , money , finance , work , flirt , business .
  }
}