x4get.bat

   1 @echo off\r
   2 iff exist %* then\r
   3         del %*\r
   4 endiff\r
   5 setlocal\r
   6 set url="4ch.mooo.com/16"\r
   7 rem for %@eval[%#+1] in (%*) do (\r
   8 rem for %# in (1,1,%*) do (\r
   9 :loop\r
  10         set /a o=0\r
  11 :oooo\r
  12         set /a q=%@EVAL[%@LEN[%1] - 4]\r
  13         set w=%@INSTR[0,%q,%1]\r
  14         iff NOT "%w" == "" then\r
  15         set /a o=%o+1\r
  16         set y=%w.z%o\r
  17 rem      echo y=%y\r
  18         if %o lt 100 (\r
  19                 if %o lt 10 (\r
  20                         set q=00%o\r
  21                 ) else (\r
  22                         set q=0%o\r
  23                 ) endif\r
  24         ) else if %o gt 99 (\r
  25                 set q=%o\r
  26         ) endif\r
  27 \r
  28         htget http://%url/%1.zip.%q > %y\r
  29 \r
  30 rem     pause\r
  31         iff exist %y then\r
  32                 type %y >> %w.zip\r
  33         endiff\r
  34         iff "%@FILESIZE[%y,b]" == "65536" then\r
  35 rem             echo o=%o\r
  36                 goto oooo\r
  37         endiff\r
  38         iff NOT "%#" == "0" then\r
  39                 shift /1\r
  40                 iff exist %w.zip then\r
  41                         unzip %w.zip\r
  42                         del %w.z*\r
  43                 endiff\r
  44                 goto loop\r
  45         endiff\r
  46         endiff\r
  47 rem  echo y="%y"\r
  48 rem  echo q=%q\r
  49 rem  echo o=%o\r
  50 rem  echo w=%w\r
  51 rem  echo %%1=%1\r
  52 endlocal\r