edited Horoscope

#horo off
on *:text:!horoscope*:#: {
  if ($group(#horoscope).status == on) { msg $chan Please wait a few moments. }
  if ($group(#horoscope).status == off) {
    if ($istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
      set %horosign $lower($2) | set %horochan $chan
      sockopen horoscope www.astrology.com 80
      .enable #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
    }
  }
}
#horoscope off
on *:sockopen:horoscope: {
  sockwrite -nt $sockname GET $+(/horoscope/daily/,%horosign,.html) HTTP/1.1
  sockwrite -nt $sockname Host: www.astrology.com
  sockwrite -nt $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:horoscope: {
  sockread %horotemp
  if ("page-horoscope-text" isin %horotemp) {
    var %horoscope $regex(horoscope,%horotemp,/(<div class="page-horoscope-text">)(.*)(</div>)/g)
    if (%horoscope == 1) set %horooverview $regml(horoscope,2)
  }
}
on *:sockclose:horoscope: {
  msg %horochan [Style ff:Comic Sans MS;co:#FF0000;b;]Horoscope for $upper($left(%horosign,1)) $+ $right(%horosign,-1) for $asctime(mmm dd yyyy) [/style]
  msg %horochan Daily: %horooverview
  msg %horochan [Style ff:Comic Sans MS;co:#FF0000;b;] Credits To Tewl / Pony [/style]
  unset %horo*
  .disable #horoscope
}
#horoscope end
#horo end



Horoscope ( $+ $group(#horo) $+ )
.Horoscope ( $+ $group(#horo) $+ )
..Enable { .enable #horo | echo -a 8^^>>>>4 Horoscope4Enabled!8<<<<^^  }
..Disable { .disable #horo | echo -a 15^^>>>>4 Horoscope 4Disabled!15<<<<^^  }

=======================================================================================================================
alias horoscopelists {
  if ($1 == file) { return Scripts[v1]\horoscope_Lists.ini }
  if ($1 == status) { return $readini(Scripts[v1]\horoscope_Lists.ini,horoscopelists,status) }
}

menu menubar,channel {
  horoscopelists
  .Open File:{ run $horoscopelists(file) }
  .$iif($readini($horoscopelists(file),horoscopelists,status) == on,$style(2)) Enable:{ writeini -n $horoscopelists(file) horoscopelists status on | echo -a $theme(time) Horoscope lists $theme(x) enabled1...2 }
  .$iif($readini($horoscopelists(file),horoscopelists,status) != on,$style(2)) Disable:{ writeini -n $horoscopelists(file) horoscopelists status off | echo -a $theme(time) Horoscope lists $theme(x) disabled1...2 }
  .-
  .$iif($readini($horoscopelists(file),halt,$active) == on,$style(1)) $iif($me ison #,Halt Channel) {
    if ($readini($horoscopelists(file),halt,$active) == on) { remini $horoscopelists(file) halt $active * | echo -a $theme(time) Horoscope lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 removed1...2 }
    elseif (!$readini($horoscopelists(file),halt,$active)) { writeini -n $horoscopelists(file) halt $active on | echo -a $theme(time) Horoscopr lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 added1...2 }
  }
}


if  ($horoscopelists(status) == on) && (!$readini($horoscopelists(file),halt,#)) {