Advertisement
IcarusLives

:bigText Demo

Mar 1st, 2017
559
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 26.88 KB | None | 0 0
  1. @echo off & setlocal enableDelayedExpansion
  2. prompt $g & color 0F
  3. mode 300,400
  4.  
  5.         call :emptyVarEnviornment
  6.         call :build_alphabet 8x12
  7.        REM ---------------------------------------------------------------------------------------------
  8.        
  9.         call :multicolor "ICARUS" 0C "LIVES" C0
  10.  
  11.         call :bigText "g" F9 "o" FC "o" FE "g" F9 "l" FA "e" FC^
  12.                       " " 0F^
  13.                       "Yahoo," F5^
  14.                       " " 0F^
  15.                       "facebook" 1F
  16.                      
  17.         call :bigText "e" fc "b" f9 "a" fe "y" fa^
  18.                       "     " 0f^
  19.                       "_" FC "_" FA^
  20.                       "  " 0F^
  21.                       "H" 9A "e" 8B "l" 7C "l" 6D "o" 5E
  22.         call :bigText "You" F0 "tube" CF "  " 0f "_" F9 "_" FE "  " 0F "H" 4F "e" 31 "l" 20 "l" 13 "o" F4 " " 0F "Icarus" 0C
  23.         call :bigText "coca-cola" fc "    " 0F "H" E5 "e" D6 "l" C7 "l" B8 "o" A9 " " 0F "Lives" C0
  24.        
  25.         call :emptyVarEnviornment
  26.         call :build_alphabet 1x1
  27.         call :mushroom "A"
  28.         call :mushroom "C"
  29.         call :squidward
  30.         call :poke_mario
  31.  
  32. REM Clean up after color
  33. del /f /q '
  34. del /f /q cp.txt
  35.  
  36. pause >nul & exit
  37.  
  38. :squidward
  39.     call :bigText "                            " F0
  40.     call :bigText "         " F0 "          " 0F "         " F0
  41.     call :bigText "      " F0 "   " 0F "          " 30 "  " 0F "       " F0
  42.     call :bigText "     " F0 " " 0F "   " 30 " " 0F " " 30 " " 0F "  " 30 " " 0F " " 30 " " 0F "  " 30 " " 0F " " 30 "  " 0F "     " F0
  43.     call :bigText "    " F0 " " 0F "  " 30 " " 0F " " 30 "          " 0F " " 30 " " 0F "  " 30 " " 0F "    " F0
  44.     call :bigText "   " F0 " " 0F "                  " 30 " " 0F " " 30 " " 0F "   " F0
  45.     call :bigText "   " F0 " " 0F "   " 30 "          " 0F "       " 30 " " 0F "   " F0
  46.     call :bigText "  " F0 " " 0F "   " 30 " " 0F "                  " 30 " " 0F "  " F0
  47.     call :bigText "  " F0 " " 0F "  " 30 " " 0F " " 30 "         " 0F "         " 30 " " 0F "  " F0
  48.     call :bigText "  " F0 " " 0F "             " 30 " " 0F "         " 30 " " 0F " " F0
  49.     call :bigText "  " F0 " " 0F "    " 30 "   " 0F " " 30 "    " 0F "           " 30 " " 0F " " F0
  50.     call :bigText "  " F0 " " 0F "   " 30 " " 0F "   " 70 " " 0F "    " 70 " " 0F "          " 30 " " 0F " " F0
  51.     call :bigText "  " F0 " " 0F "   " 30 "           " 0F "        " 30 " " 0F "  " F0
  52.     call :bigText "   " F0 " " 0F "  " 30 " " 0F " " F0 " " 0F " " F0 " " 0F " " F0 " " 0F "  " F0 " " 0F "         " 30 " " 0F "  "  F0
  53.     call :bigText "   " F0 " " 0F "  " 30 " " 0F " " F0 " " 0F " " F0 " " 0F " " F0 " " 0F "  " F0 " " 0F "        " 30 " " 0F "   "  F0
  54.     call :bigText "    " F0 " " 0F " " 30 " " 0F "   " F0 " " 0F "    " F0 " " 0F "      " 30 "  " 0F "    " F0
  55.     call :bigText "     " F0 "       " 0F "   " F0 " " 0F "  " 30 "    " 0F "      " F0
  56.     call :bigText "     " F0 " " 0F "     " 30 " " 0F "   " F0 " " 0F "  " 30 " " 0F "         " F0
  57.     call :bigText "    " F0 " " 0F "      " 30 "    " 0F "   " 30 "   " 0F "       " F0
  58.     call :bigText "   " F0 " " 0F "      " 30 " " 0F "          " 30 " " 0F "      " F0
  59.     call :bigText "   " F0 " " 0F "      " 30 " " 0F "     " 30 "    " 0F "  " 30 " " 0F "     " F0
  60.     call :bigText "   " F0 " " 0F "       " 30 "          " 0F " " 30 " " 0F "     " F0
  61.     call :bigText "   " F0 " " 0F "       " 30 "          " 0F " " 30 " " 0F "     " F0
  62.     call :bigText "   " F0 " " 0F "       " 30 "   " 0F " " D0 " " 0F "   " D0 " " 0F "  " 30 " " 0F "     " F0
  63.     call :bigText "    " F0 " " 0F "     " 30 "   " 0F "     " D0 " " 0F "  " 30 " " 0F "      " F0
  64.     call :bigText "     " F0 "     " 0F " " 30 "       " 0F "  " 30 " " 0F "       " F0
  65.     call :bigText "         " F0 " " 0F "         " 30 " " 0F "        " F0
  66.     call :bigText "          " F0 "         " 0F "         " F0
  67.     call :bigText "                            " F0
  68. goto :eof
  69.  
  70. :Mushroom
  71.     set "mrc=%~1"
  72.     call :bigText "                  " F0
  73.     call :bigText "      " F0 "      " 0F "      " F0
  74.     call :bigText "    " F0 "   " 0F " " F0 "  " %mrc%0 " " F0 "   " 0F "    " F0
  75.     call :bigText "   " F0 "  " 0F "   " F0 "  " %mrc%0 "   " F0 "  " 0F "   " F0
  76.     call :bigText "  " F0 "  " 0F " " %mrc%0 "  " F0 "    " %mrc%0 "  " F0 " " %mrc%0 "  " 0F "  " F0
  77.     call :bigText "  " F0 " " 0F " " F0 "          " %mrc%0 " " F0 " " 0F  "  " F0
  78.     call :bigText " " F0 "  " 0F "  " F0 "  " %mrc%0 "    " F0 "  " %mrc%0 "  " F0 "  " 0F " " F0
  79.     call :bigText " " F0 " " 0F "   " F0 " " %mrc%0 "      " F0 " " %mrc%0 "   " F0 " " 0F " " F0
  80.     call :bigText " " F0 " " 0F "   " F0 " " %mrc%0 "      " F0 " " %mrc%0 "   " F0 " " 0F " " F0
  81.     call :bigText " " F0 " " 0F "  " F0 "  " %mrc%0 "      " F0 "  " %mrc%0 "  " F0 " " 0F " " F0
  82.     call :bigText " " F0 " " 0F "     " %mrc%0 "    " F0 "     " %mrc%0 " " 0F " " F0
  83.     call :bigText " " F0 " " 0F "  " %mrc%0 "          " 0F "  " %mrc%0 " " 0F " " F0
  84.     call :bigText " " F0 "    " 0F "  " F0 " " 0F "  " F0 " " 0F "  " F0 "    " 0F " " F0
  85.     call :bigText "  " F0 "  " 0F "   " F0 " " 0F "  " F0 " " 0F "   " F0 "  " 0F "  " F0
  86.     call :bigText "   " F0 " " 0F "          " F0 " " 0F "   " F0
  87.     call :bigText "   " F0 "  " 0F "        " F0 "  " 0F "   " F0
  88.     call :bigText "    " F0 "          " 0F "    " F0
  89.     call :bigText "                  " F0
  90. goto :eof
  91.  
  92. :poke_mario
  93.             call :bigText "               " F0                                                    "               " F0                                                   "               " F0
  94.             call :bigText "      " F0 "    " 0F "     " F0                                        "      " F0 "    " 0F "     " F0                                       "    " F0 "      " C0 "     " F0
  95.             call :bigText "    " F0 "  " 0F "    " C0 "  " 0F "   " F0                            "    " F0 "  " 0F " " D0 "  " 50 " " D0 "  " 0F "   " F0               "   " F0 "          " C0 "  " F0
  96.             call :bigText "   " F0 " " 0F "  " C0 " " F0 "     " C0 " " 0F "  " F0                "   " F0 " " 0F "  " 50 " " F0 "   " D0 "  " 50 " " 0F "  " F0         "   " F0 "   " 60 "   " 70 " " 0F " " 70 "    " F0
  97.             call :bigText "   " F0 " " 0F " " C0 "   " F0 "    " C0 " " 0F "  " F0                "   " F0 " " 0F " " 50 "   " F0 "  " D0 "  " 50 " " 0F "  " F0         "  " F0 " " 60 " " 70 " " 60 "    " 70 " " 0F "   " 70 "  " F0
  98.             call :bigText "  " F0 " " 0F "   " C0 " " F0 "      " C0 " " 0F " " F0                "  " F0 " " 0F "   " 50 " " F0 "  " 50 " " D0 "   " 50 " " 0F " " F0   "  " F0 " " 60 " " 70 "  " 60 "    " 70 " " 0F "   " 70 " " F0
  99.             call :bigText "  " F0 " " 0F "    " C0 "  " 0F "    " C0 " " 0F " " F0                "  " F0 " " 0F "   " 50 " " D0 "  " 0F " " D0 "   " 50 " " 0F " " F0   "  " F0 "  " 60 "     " 70 "    " 0F "  " F0
  100.             call :bigText "  " F0 "  " 0F "  " C0 " " 0F "  " F0 " " 0F "  " C0 "  " 0F " " F0    "  " F0 "  " 0F "  " 50 " " 0F "  " F0 " " 0F "  " 50 "  " 0F " " F0   "    " F0 "        " 70 "   " F0
  101.             call :bigText "  " F0 " " 0F " " F0 "   " 0F "  " F0 "   " 0F " " F0 " " 0F " " F0    "  " F0 " " 0F " " F0 "   " 0F "  " F0 "   " 0F " " F0 " " 0F " " F0   "   " F0 "  " C0 " " 90 "    " C0 "     " F0
  102.             call :bigText "   " F0 " " 0F "   " F0 "  " 0F "   " F0 " " 0F "  " F0                "   " F0 " " 0F "   " F0 "  " 0F "   " F0 " " 0F "  " F0               "  " F0 "   " C0 " " 90 "  " C0 " " 90 "   " C0 "   " F0
  103.             call :bigText "   " F0 " " 0F "        " F0 " " 0F "  " F0                            "   " F0 " " 0F "        " F0 " " 0F "  " F0                           " " F0 "    " C0 "    " 90 "   " C0 "   " F0
  104.             call :bigText "    " F0 "  " 0F "    " F0 "  " 0F "   " F0                            "    " F0 "  " 0F "    " F0 "  " 0F "   " F0                           " " F0 "  " 70 " " C0 " " 90 " " E0 "  " 90 " " E0 " " 90 " " C0 "  " 70 "  " F0
  105.             call :bigText "      " F0 "    " 0F "     " F0                                        "      " F0 "    " 0F "     " F0                                       " " F0 "   " 70 "      " 90 "   " 70 "  " F0
  106.             call :bigText "               " F0                                                    "               " F0                                                   " " F0 "  " 70 "        " 90 "  " 70 "  " F0
  107.             call :bigText                                                                                                                                                "                                 " F0 "   " 90 "  " F0 "   " 90 "    " F0
  108.             call :bigText                                                                                                                                                "                                " F0 "   " 60 "    " F0 "   " 60 "   " F0
  109.             call :bigText                                                                                                                                                "                               " F0 "    " 60 "    " F0 "    " 60 "  " F0
  110.             call :bigText                                                                                                                                                "                                             " F0
  111. goto :eof
  112.            
  113. :pokeball
  114.             call :bigText "               " F0                                                    "               " F0
  115.             call :bigText "      " F0 "    " 0F "     " F0                                        "      " F0 "    " 0F "     " F0
  116.             call :bigText "    " F0 "  " 0F "    " C0 "  " 0F "   " F0                            "    " F0 "  " 0F " " D0 "  " 50 " " D0 "  " 0F "   " F0
  117.             call :bigText "   " F0 " " 0F "  " C0 " " F0 "     " C0 " " 0F "  " F0                "   " F0 " " 0F "  " 50 " " F0 "   " D0 "  " 50 " " 0F "  " F0
  118.             call :bigText "   " F0 " " 0F " " C0 "   " F0 "    " C0 " " 0F "  " F0                "   " F0 " " 0F " " 50 "   " F0 "  " D0 "  " 50 " " 0F "  " F0
  119.             call :bigText "  " F0 " " 0F "   " C0 " " F0 "      " C0 " " 0F " " F0                "  " F0 " " 0F "   " 50 " " F0 "  " 50 " " D0 "   " 50 " " 0F " " F0
  120.             call :bigText "  " F0 " " 0F "    " C0 "  " 0F "    " C0 " " 0F " " F0                "  " F0 " " 0F "   " 50 " " D0 "  " 0F " " D0 "   " 50 " " 0F " " F0
  121.             call :bigText "  " F0 "  " 0F "  " C0 " " 0F "  " F0 " " 0F "  " C0 "  " 0F " " F0    "  " F0 "  " 0F "  " 50 " " 0F "  " F0 " " 0F "  " 50 "  " 0F " " F0
  122.             call :bigText "  " F0 " " 0F " " F0 "   " 0F "  " F0 "   " 0F " " F0 " " 0F " " F0    "  " F0 " " 0F " " F0 "   " 0F "  " F0 "   " 0F " " F0 " " 0F " " F0
  123.             call :bigText "   " F0 " " 0F "   " F0 "  " 0F "   " F0 " " 0F "  " F0                "   " F0 " " 0F "   " F0 "  " 0F "   " F0 " " 0F "  " F0
  124.             call :bigText "   " F0 " " 0F "        " F0 " " 0F "  " F0                            "   " F0 " " 0F "        " F0 " " 0F "  " F0
  125.             call :bigText "    " F0 "  " 0F "    " F0 "  " 0F "   " F0                            "    " F0 "  " 0F "    " F0 "  " 0F "   " F0
  126.             call :bigText "      " F0 "    " 0F "     " F0                                        "      " F0 "    " 0F "     " F0
  127.             call :bigText "               " F0                                                    "               " F0
  128. goto :eof
  129.  
  130. :mario
  131.             call :bigText "               " F0
  132.             call :bigText "    " F0 "      " C0 "     " F0
  133.             call :bigText "   " F0 "          " C0 "  " F0
  134.             call :bigText "   " F0 "   " 60 "   " 70 " " 0F " " 70 "    " F0
  135.             call :bigText "  " F0 " " 60 " " 70 " " 60 "    " 70 " " 0F "   " 70 "  " F0
  136.             call :bigText "  " F0 " " 60 " " 70 "  " 60 "    " 70 " " 0F "   " 70 " " F0
  137.             call :bigText "  " F0 "  " 60 "     " 70 "    " 0F "  " F0
  138.             call :bigText "    " F0 "        " 70 "   " F0
  139.             call :bigText "   " F0 "  " C0 " " 90 "    " C0 "     " F0
  140.             call :bigText "  " F0 "   " C0 " " 90 "  " C0 " " 90 "   " C0 "   " F0
  141.             call :bigText " " F0 "    " C0 "    " 90 "   " C0 "   " F0
  142.             call :bigText " " F0 "  " 70 " " C0 " " 90 " " E0 "  " 90 " " E0 " " 90 " " C0 "  " 70 "  " F0
  143.             call :bigText " " F0 "   " 70 "      " 90 "   " 70 "  " F0
  144.             call :bigText " " F0 "  " 70 "        " 90 "  " 70 "  " F0
  145.             call :bigText "   " F0 "   " 90 "  " F0 "   " 90 "    " F0
  146.             call :bigText "  " F0 "   " 60 "    " F0 "   " 60 "   " F0
  147.             call :bigText " " F0 "    " 60 "    " F0 "    " 60 "  " F0
  148.             call :bigText "               " F0
  149. goto :eof
  150.            
  151. :bigText
  152.     setlocal
  153.         set "a=1"
  154.         :getArgs
  155.             if "%~1" neq "" set /a "args+=1" & set "t[!args!]=%~1"
  156.             if "%~2" neq "" set "c[!args!]=%~2"
  157.             shift & shift & if "%~1" neq "" ( goto :getArgs )
  158.  
  159.         :getLetter
  160.             if defined t[%a%] (
  161.                 set "e[%a%]=!t[%a%]:~%p%,1!" & set "cs=!e[%a%]!"
  162.                 set /a "p+=1", "n[%a%]+=1"
  163.                 set "cha[%a%][!n[%a%]!]=!cs!"
  164.                 if "!cs!" equ "" set /a "a+=1", "p=0"
  165.                 goto :getLetter
  166.             )
  167.            
  168.         for /l %%c in (1,1,%b_a_btMAX%) do for /l %%a in (1,1,%args%) do for /l %%b in (1,1,!n[%%a]!) do call set "o[%%a][%%c]=!o[%%a][%%c]!%%_!cha[%%a][%%b]![%%c]%%"
  169.         for /l %%b in (1,1,%b_a_btMAX%) do ( for /l %%a in (1,1,%args%) do (>cp.txt ( echo=!o[%%a][%%b]!\..\') && findstr /a:!c[%%a]! /f:cp.txt ".") ) & echo.
  170.     endlocal
  171. goto :eof
  172.  
  173. :multicolor
  174.     setlocal
  175.         set /a "args=0", "a=1", "p=0"
  176.         :MCgetArgs
  177.             if "%~1" neq "" set /a "args+=1"
  178.             if "%~1" neq "" set "T[!args!]=%~1"
  179.             if "%~2" neq "" set "c[!args!]=%~2"
  180.             shift & shift & if "%~1" neq "" ( goto :MCgetArgs )
  181.            
  182.         :MCgetLetter
  183.             if defined t[!a!] (
  184.                 call set "e[!a!]=%%t[!a!]:~!p!,1%%"
  185.                 set /a "p+=1", "n[%a%]+=1"
  186.                 set "cs=!e[%a%]!"
  187.                 set "cha[!a!][!n[%a%]!]=!cs!"
  188.                 if "!cs!" equ "" set /a "a+=1", "p=0"
  189.                 goto :MCgetLetter
  190.             )
  191.            
  192.             for /l %%a in (1,1,%args%) do (
  193.                 for /l %%b in (1,1,!n[%%a]!) do (
  194.                     if defined cha[%%a][%%b] (>cp.txt ( call echo=!cha[%%a][%%b]!\..\') && findstr /a:!c[%%a]! /f:cp.txt ".")
  195.                 )
  196.             )
  197.             echo.
  198.     endlocal
  199. goto :eof
  200.  
  201. :build_alphabet
  202.     for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E & echo on & for %%b in (1) do rem"') do set "DEL=%%a"
  203.     <nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%" > "'"
  204.    
  205.     for /f "tokens=2 delims=x" %%a in ("%~1") do set /a "b_a_btMAX=%%a"
  206.    
  207.     if "%~1" equ "1x1" set "_ [1]= "
  208.     if "%~1" equ "2x2" (
  209.         for %%a in ("  " "  ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
  210.     )
  211.     if "%~1" equ "3x3" (
  212.         for %%a in ("   " "   " "   ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
  213.     )
  214.     if "%~1" equ "4x4" (
  215.         for %%a in ("    " "    " "    " "    ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
  216.     )
  217.     if "%~1" equ "8x8" (
  218.         for %%a in ("   ÛÛÛ  " "  ÛÛÛÛÛ " " ÛÛÛÛÛÛÛ" " ÛÛÛ ÛÛÛ" " ÛÛÛÛÛÛÛ" " ÛÛÛÛÛÛÛ" " ÛÛÛ ÛÛÛ" " ÛÛÛ ÛÛÛ") do set /a "a+=1" & set "_A[!a!]=%%~a"
  219.         for %%a in ("ÛÛÛÛÛÛÛ " " ÛÛÛ  ÛÛ" " ÛÛÛ  ÛÛ" " ÛÛÛÛÛÛ " " ÛÛÛÛÛÛ " " ÛÛÛ  ÛÛ" " ÛÛÛ  ÛÛ" "ÛÛÛÛÛÛÛ ") do set /a "b+=1" & set "_B[!b!]=%%~a"
  220.     )
  221.     if "%~1" equ "tiles" (
  222.         set "b_a_btMAX=8"
  223.         for %%a in ( "Û       " "Û       " "Û       " "Û       " "Û       " "Û       " "Û       " "Û       ") do set /a "a+=1" & set "_a[!a!]=%%~a"
  224.         for %%a in ( "       Û" "       Û" "       Û" "       Û" "       Û" "       Û" "       Û" "       Û") do set /a "b+=1" & set "_b[!b!]=%%~a"
  225.         for %%a in ( "ÛÛÛÛÛÛÛÛ" "        " "        " "        " "        " "        " "        " "        ") do set /a "c+=1" & set "_c[!c!]=%%~a"
  226.         for %%a in ( "        " "        " "        " "        " "        " "        " "        " "ÛÛÛÛÛÛÛÛ") do set /a "d+=1" & set "_d[!d!]=%%~a"
  227.         for %%a in ( "Û       " "Û       " "Û       " "Û       " "Û       " "Û       " "Û       " "ÛÛÛÛÛÛÛÛ") do set /a "e+=1" & set "_e[!e!]=%%~a"
  228.         for %%a in ( "       Û" "       Û" "       Û" "       Û" "       Û" "       Û" "       Û" "ÛÛÛÛÛÛÛÛ") do set /a "f+=1" & set "_f[!f!]=%%~a"
  229.         for %%a in ( "ÛÛÛÛÛÛÛÛ" "       Û" "       Û" "       Û" "       Û" "       Û" "       Û" "       Û") do set /a "g+=1" & set "_g[!g!]=%%~a"
  230.         for %%a in ( "ÛÛÛÛÛÛÛÛ" "Û       " "Û       " "Û       " "Û       " "Û       " "Û       " "Û       ") do set /a "h+=1" & set "_h[!h!]=%%~a"
  231.         for %%a in ( "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   ") do set /a "i+=1" & set "_i[!i!]=%%~a"
  232.         for %%a in ( "    ÛÛÛÛ" "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    Û   ") do set /a "j+=1" & set "_j[!j!]=%%~a"
  233.         for %%a in ( "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    ÛÛÛÛ") do set /a "k+=1" & set "_k[!k!]=%%~a"
  234.         for %%a in ( "    ÛÛÛÛ" "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    Û   " "    ÛÛÛÛ") do set /a "l+=1" & set "_l[!l!]=%%~a"
  235.         for %%a in ( "ÛÛÛÛ    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    ") do set /a "m+=1" & set "_m[!m!]=%%~a"
  236.         for %%a in ( "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "ÛÛÛÛ    ") do set /a "n+=1" & set "_n[!n!]=%%~a"
  237.         for %%a in ( "ÛÛÛÛ    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "   Û    " "ÛÛÛÛ    ") do set /a "o+=1" & set "_o[!o!]=%%~a"
  238.         for %%a in ("        " "        " "        " "        " "        " "        " "        " "        ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
  239.         for %%a in ("ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ") do set /a "_+=1" & set "__[!_!]=%%~a"
  240.     )
  241.     if "%~1" equ "8x12" (
  242.         for %%a in ("        " "   ÛÛ   " "  ÛÛÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛÛÛÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "        " "        ") do set /a "a+=1" & set "_A[!a!]=%%~a"
  243.         for %%a in ("        " " ÛÛÛÛÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛÛÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" " ÛÛÛÛÛÛ " "        " "        ") do set /a "b+=1" & set "_B[!b!]=%%~a"
  244.         for %%a in ("        " "   ÛÛÛÛ " "  ÛÛ  ÛÛ" " ÛÛ   ÛÛ" " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ   ÛÛ" "  ÛÛ  ÛÛ" "   ÛÛÛÛ " "        " "        ") do set /a "c+=1" & set "_C[!c!]=%%~a"
  245.         for %%a in ("        " " ÛÛÛÛÛ  " "  ÛÛ ÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ ÛÛ " " ÛÛÛÛÛ  " "        " "        ") do set /a "d+=1" & set "_D[!d!]=%%~a"
  246.         for %%a in ("        " " ÛÛÛÛÛÛÛ" "  ÛÛ   Û" "  ÛÛ    " "  ÛÛ  Û " "  ÛÛÛÛÛ " "  ÛÛ  Û " "  ÛÛ    " "  ÛÛ   Û" " ÛÛÛÛÛÛÛ" "        " "        ") do set /a "e+=1" & set "_E[!e!]=%%~a"
  247.         for %%a in ("        " " ÛÛÛÛÛÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ   Û" "  ÛÛ  Û " "  ÛÛÛÛÛ " "  ÛÛ  Û " "  ÛÛ    " "  ÛÛ    " " ÛÛÛÛ   " "        " "        ") do set /a "f+=1" & set "_F[!f!]=%%~a"
  248.         for %%a in ("        " "   ÛÛÛÛ " "  ÛÛ  ÛÛ" " ÛÛ   ÛÛ" " ÛÛ     " " ÛÛ     " " ÛÛ  ÛÛÛ" " ÛÛ   ÛÛ" "  ÛÛ  ÛÛ" "   ÛÛÛÛÛ" "        " "        ") do set /a "g+=1" & set "_G[!g!]=%%~a"
  249.         for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛÛÛÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "        " "        ") do set /a "h+=1" & set "_H[!h!]=%%~a"
  250.         for %%a in ("        " "  ÛÛÛÛ  " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "  ÛÛÛÛ  " "        " "        ") do set /a "i+=1" & set "_I[!i!]=%%~a"
  251.         for %%a in ("        " "    ÛÛÛÛ" "     ÛÛ " "     ÛÛ " "     ÛÛ " "     ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "        " "        ") do set /a "j+=1" & set "_J[!j!]=%%~a"
  252.         for %%a in ("        " " ÛÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "  ÛÛÛÛ  " "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "  ÛÛ  ÛÛ" " ÛÛÛ  ÛÛ" "        " "        ") do set /a "k+=1" & set "_K[!k!]=%%~a"
  253.         for %%a in ("        " " ÛÛÛÛ   " "  ÛÛ    " "  ÛÛ    " "  ÛÛ    " "  ÛÛ    " "  ÛÛ   Û" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" " ÛÛÛÛÛÛÛ" "        " "        ") do set /a "l+=1" & set "_L[!l!]=%%~a"
  254.         for %%a in ("        " " ÛÛ   ÛÛ" " ÛÛÛ ÛÛÛ" " ÛÛÛÛÛÛÛ" " ÛÛÛÛÛÛÛ" " ÛÛ Û ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" "        " "        ") do set /a "m+=1" & set "_M[!m!]=%%~a"
  255.         for %%a in ("        " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛÛ  ÛÛ" " ÛÛÛÛ ÛÛ" " ÛÛÛÛÛÛÛ" " ÛÛ ÛÛÛÛ" " ÛÛ  ÛÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" "        " "        ") do set /a "n+=1" & set "_N[!n!]=%%~a"
  256.         for %%a in ("        " "   ÛÛÛ  " "  ÛÛ ÛÛ " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" "  ÛÛ ÛÛ " "   ÛÛÛ  " "        " "        ") do set /a "o+=1" & set "_O[!o!]=%%~a"
  257.         for %%a in ("        " " ÛÛÛÛÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛÛÛÛ " "  ÛÛ    " "  ÛÛ    " "  ÛÛ    " " ÛÛÛÛ   " "        " "        ") do set /a "p+=1" & set "_P[!p!]=%%~a"
  258.         for %%a in ("        " "   ÛÛÛ  " "  ÛÛ ÛÛ " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ  ÛÛÛ" " ÛÛ ÛÛÛÛ" "  ÛÛÛÛÛ " "     ÛÛ " "    ÛÛÛÛ" "        ") do set /a "q+=1" & set "_Q[!q!]=%%~a"
  259.         for %%a in ("        " " ÛÛÛÛÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" "  ÛÛÛÛÛ " "  ÛÛ ÛÛ " "  ÛÛ  ÛÛ" "  ÛÛ  ÛÛ" " ÛÛÛ  ÛÛ" "        " "        ") do set /a "r+=1" & set "_R[!r!]=%%~a"
  260.         for %%a in ("        " "  ÛÛÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ     " "  ÛÛÛ   " "    ÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "        " "        ") do set /a "s+=1" & set "_S[!s!]=%%~a"
  261.         for %%a in ("        " " ÛÛÛÛÛÛ " " Û ÛÛ Û " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "  ÛÛÛÛ  " "        " "        ") do set /a "t+=1" & set "_T[!t!]=%%~a"
  262.         for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "        " "        ") do set /a "u+=1" & set "_U[!u!]=%%~a"
  263.         for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "   ÛÛ   " "        " "        ") do set /a "v+=1" & set "_V[!v!]=%%~a"
  264.         for %%a in ("        " " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ   ÛÛ" " ÛÛ Û ÛÛ" " ÛÛ Û ÛÛ" "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "  ÛÛ ÛÛ " "        " "        ") do set /a "w+=1" & set "_W[!w!]=%%~a"
  265.         for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "   ÛÛ   " "  ÛÛÛÛ  " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "        " "        ") do set /a "x+=1" & set "_X[!x!]=%%~a"
  266.         for %%a in ("        " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " " ÛÛ  ÛÛ " "  ÛÛÛÛ  " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "  ÛÛÛÛ  " "        " "        ") do set /a "y+=1" & set "_Y[!y!]=%%~a"
  267.         for %%a in ("        " " ÛÛÛÛÛÛÛ" " ÛÛ  ÛÛÛ" " Û  ÛÛ  " "    ÛÛ  " "   ÛÛ   " "  ÛÛ    " "  ÛÛ   Û" " ÛÛ   ÛÛ" " ÛÛÛÛÛÛÛ" "        " "        ") do set /a "z+=1" & set "_Z[!z!]=%%~a"
  268.         for %%a in ("        " "        " "        " "        " "        " "        " "        " "        " "        " "        " "        " "        ") do set /a "sp+=1" & set "_ [!sp!]=%%~a"
  269.         for %%a in ("        " " ÛÛ ÛÛ  " " ÛÛ ÛÛ  " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ  " " ÛÛ ÛÛ  " " ÛÛ ÛÛ  " "ÛÛÛÛÛÛÛ " " ÛÛ ÛÛ  " " ÛÛ ÛÛ  " "        " "        ") do set /a "ht+=1" & set "_#[!ht!]=%%~a"
  270.         for %%a in ("        " " ÛÛÛÛÛ  " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "     ÛÛ " "    ÛÛ  " "  ÛÛ    " "  ÛÛ    " "        " "  ÛÛ    " "        ") do set /a "qm+=1" & set "_?[!qm!]=%%~a"
  271.         for %%a in ("        " "        " "        " " ÛÛ ÛÛ  " "Û  Û  Û " "Û     Û " " Û   Û  " "  Û Û   " "   Û    " "        " "        " "        ") do set /a "heart+=1" & set "_`[!heart!]=%%~a"
  272.         for %%a in ("        " " ÛÛÛÛÛ  " "ÛÛ   ÛÛ " "ÛÛ   ÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ ÛÛÛÛ " "ÛÛ      " " ÛÛÛÛÛ  " "        " "        ") do set /a "at+=1" & set "_@[!at!]=%%~a"
  273.         for %%a in ("        " " ÛÛÛÛÛ  " " ÛÛÛÛ   " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛ     " " ÛÛÛÛ   " " ÛÛÛÛÛ  " "        " "        ") do set /a "rsb+=1" & set "_[[!rsb!]=%%~a"
  274.         for %%a in ("        " " ÛÛÛÛÛ  " "  ÛÛÛÛ  " "    ÛÛ  " "    ÛÛ  " "    ÛÛ  " "    ÛÛ  " "    ÛÛ  " "  ÛÛÛÛ  " " ÛÛÛÛÛ  " "        " "        ") do set /a "lsb+=1" & set "_][!lsb!]=%%~a"
  275.         for %%a in ("        " " ÛÛÛÛÛ  " "Û     Û " "Û Û Û Û " "Û Û Û Û " "Û     Û " "Û Û Û Û " "Û ÛÛÛ Û " "Û     Û " " ÛÛÛÛÛ  " "        " "        ") do set /a "hf+=1" & set "_~[!hf!]=%%~a"
  276.         for %%a in ("ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ" "ÛÛÛÛÛÛÛÛ") do set /a "_+=1" & set "__[!_!]=%%~a"
  277.         for %%a in ("        " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "   ÛÛ   " "        " "   ÛÛ   " "        ") do set /a "ex+=1" & set "_,[!ex!]=%%~a"
  278.         for %%a in ("        " "        " "        " "        " "        " "        " " ÛÛÛÛÛÛ " "        " "        " "        " "        " "        ") do set /a "dd+=1" & set "_-[!dd!]=%%~a"
  279.     )
  280.     for %%a in (a b c d e f g h i j k l m n o p q r s t u v w x y z sp ht qm heart at rsb lsb hf ex dd _) do set "%%a="
  281. goto :eof
  282.  
  283. :emptyVarEnviornment
  284.     set "preserve= preserve path %~1 "
  285.     for /f "delims==" %%v in ('set') do if "!preserve: %%v =!" equ "!preserve!" set "%%v="
  286.     set "preserve="
  287. goto :eof
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement