@Echo off
setlocal enableextensions enabledelayedexpansion

set outfile=%tmp%\horo.%date%.%random%.tpl
rem set outfile=D:\fido\tmp\horo\horo.%date%.%random%.tpl

set DownloadTo=%tmp%\horo.%date%.%random%
set wget=D:\Programs\wget\wget.exe -nd
rem Имя исполняемого файла HPT.
rem Крайне рекомендовано указывать полное имя файла (диск, путь, имя, раширение).
set hptexe=D:\Fido\hpt\bin\hpt.exe

rem Имя файла конфигурации HPT (fidoconfig).
rem Крайне рекомендовано указывать полное имя файла (диск, путь, имя, раширение).
set hptcfg=D:\Fido\hpt\hpt.cfg

set decoder=D:\Programs\UnixUtils\recode.exe -v UTF-8:866

Call :SetSigns

set ss=1
:S1

   echo !sign.%ss%.ru! (!sign.%ss%!)>%outfile%
   %wget% -O %DownloadTo%.!sign.%ss%!.html http://horo.ru/lov/tod/!sign.%ss%!.html
   if not %errorlevel%==0 goto E1
   echo.>>%outfile%
   FOR /F "skip=186 tokens=* delims= " %%i in (%DownloadTo%.!sign.%ss%!.html) do echo %%i|%decoder%>>%outfile%&goto N1
   :N1
   echo.>>%outfile%
   FOR /F "skip=194 tokens=* delims= " %%i in (%DownloadTo%.!sign.%ss%!.html) do echo %%i|%decoder%>>%outfile%&goto N2
   :N2
   echo.>>%outfile%

   type "%outfile%"|%hptexe% -c %hptcfg% post -nf "Horo Robot" -s "!sign.%ss%.ru! !sign.%ss%.date!" -e "LORAPVT.HORO" -z "!sign.%ss%!" -o "Взято с horo.ru" -f loc,npd -

   if !ss!==12 goto E1
   set /a ss+=1
   goto S1

:E1

 del /f/q %DownloadTo%.*.html*
 del /f/q %outfile%
 echo LORAPVT.HORO>>D:\Fido\Flags\echotoss.log

exit


:SetSigns

  set sign.1=aries
  set sign.1.ru=Овен
  set sign.1.date=(21 марта - 20 апреля)
  set sign.2=taurus
  set sign.2.ru=Телец
  set sign.2.date=(21 апреля - 20 мая)
  set sign.3=gemini
  set sign.3.ru=Близнецы
  set sign.3.date=(21 мая - 21 июня)
  set sign.4=cancer
  set sign.4.ru=Рак
  set sign.4.date=(22 июня - 22 июля)
  set sign.5=leo
  set sign.5.ru=Лев
  set sign.5.date=(23 июля - 23 августа)
  set sign.6=virgo
  set sign.6.ru=Дева
  set sign.6.date=(24 августа - 23 сентября)
  set sign.7=libra
  set sign.7.ru=Весы
  set sign.7.date=(24 сентября - 23 октября)
  set sign.8=scorpio
  set sign.8.ru=Скорпион
  set sign.8.date=(24 октября - 22 ноября)
  set sign.9=sagittarius
  set sign.9.ru=Стрелец
  set sign.9.date=(23 ноября - 21 декабря)
  set sign.10=capricorn
  set sign.10.ru=Козерог
  set sign.10.date=(22 декабря - 20 января)
  set sign.11=aquarius
  set sign.11.ru=Водолей
  set sign.11.date=(21 января - 20 февраля)
  set sign.12=pisces
  set sign.12.ru=Рыбы
  set sign.12.date=(21 февраля - 20 марта)

exit /b