21 Black Jack Batch Game

@echo off
@title BlackJack v 2
@mode con cols=80 lines=21

::Juego de Cartas en Batch
::BlackJack v 2.0
::Idea Original by Craphter - Diseño Grafico by Splendit

setlocal enabledelayedexpansion

:Menu
cls
Call :Inicio
echo.
echo.         ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo.         º Black Jack v 2 º
echo.         ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.  Seleccione una Opcion:
echo.
echo.  1. Jugar       2. Salir
echo.
set opc=
set /p "opc=  >> "
if not defined opc goto menu
if "%opc%"=="2" Exit
echo.
echo.  Selecciones la Cantidad de la Apuesta
echo.
echo.  1. $10  2. $20  3. $50  4. $100
echo.
set ppp=
set /p "ppp=  >> "
if not defined ppp Goto :Menu
if "%ppp%"=="1" Set Pot=10
if "%ppp%"=="2" Set Pot=20
if "%ppp%"=="3" Set Pot=50
if "%ppp%"=="4" Set Pot=100
if %ppp% GTR 4 Goto :Menu
Set /a Money=Money-Pot

:Load
cls
Call :Reset
Call :Randomize
Call :Draw
Goto :Load

:Draw
echo.
echo.  Apuesta $ %Pot%         Total Acumulado: %Money%
echo.
echo.          Cartas del Jugador            -               Cartas del PC
for /l %%b in (1,1,11) do (echo. !CLine_%%b!)
echo.               %TotalUS% puntos                                 %TotalPC% puntos
echo.
if %TotalUS% LSS %TotalPC% (echo. Ha Ganado la PC...&Set /a "Money=Money-(Pot/2)")
if %TotalUS% EQU %TotalPC% (echo. Empatados...&Set /a "Money=Money+(Pot/2)")
if %TotalUS% GTR %TotalPC% (echo. Ganaste...&Set /a Money=Money+Pot)
echo.
set var=
Set /p "var=  Desea Volver a Jugar [S] [N] > "
If Not Defined var Goto :Eof
If /i "%var%"=="S" Goto :Eof
Goto :Menu

:Randomize
Set TotalPC=0&Set TotalUS=0
For /l %%a in (1,1,3) do (
Set /a "N%%a=!random:~-2! %% 13">NUL 2>&1
Set /a "S%%a=!random:~-2! %% 4">NUL 2>&1
Call :GenCards !N%%a! !S%%a! US
)
for /l %%c in (1,1,11) do (Set CLine_%%c=!CLine_%%c!   ³  )
For /l %%a in (1,1,3) do (
Set /a "N%%a=!random:~-2! %% 13">NUL 2>&1
Set /a "S%%a=!random:~-2! %% 4">NUL 2>&1
Call :GenCards !N%%a! !S%%a! PC
)
Goto :Eof

:GenCards
Call :CARD!Tags:~%1,1! !Tags:~%1,1! !Symbols:~%2,1!
Set /a Total%3=Total%3+!Tags:~%1,1! >NUL 2>&1
Goto :Eof

:Inicio
If Not Defined Money Set Money=200
Set Symbols=
Set Tags=A23456789OJQK
Set A=11
Set J=10
Set Q=10
Set K=10
Set O=10
Goto :Eof

:Reset
for /l %%c in (1,1,11) do (Set CLine_%%c=)
Set Total=0
Goto :Eof

:CARDA
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³     ³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³     ³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD2
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2    ³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³     ³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³    %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD3
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2    ³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³    %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD4
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³     ³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD5
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³  %2  ³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD6
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD7
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³%2 %2 %2³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD8
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³  %2  ³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³  %2  ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARD9
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º%1        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2 %2 %2³ º
set CLine_5=%CLine_5% º ³     ³ º
set CLine_6=%CLine_6% º ³%2 %2 %2³ º
set CLine_7=%CLine_7% º ³     ³ º
set CLine_8=%CLine_8% º ³%2 %2 %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        %1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDO
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% º1%1       º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³%2   %2³ º
set CLine_5=%CLine_5% º ³ %2 %2 ³ º
set CLine_6=%CLine_6% º ³%2   %2³ º
set CLine_7=%CLine_7% º ³ %2 %2 ³ º
set CLine_8=%CLine_8% º ³%2   %2³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º       1%1º
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDJ
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºJ        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³     ³ º
set CLine_5=%CLine_5% º ³ ,,, ³ º
set CLine_6=%CLine_6% º ³(. .)³ º
set CLine_7=%CLine_7% º ³  l  ³ º
set CLine_8=%CLine_8% º ³ """ ³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        Jº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDQ
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºQ        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³ ___ ³ º
set CLine_5=%CLine_5% º ³.---.³ º
set CLine_6=%CLine_6% º ³º'.'º³ º
set CLine_7=%CLine_7% º ³º\o/º³ º
set CLine_8=%CLine_8% º ³º   º³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        Qº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof

:CARDK
set CLine_1=%CLine_1% ÉÍÍÍÍÍÍÍÍÍ»
set CLine_2=%CLine_2% ºK        º
set CLine_3=%CLine_3% º%2ÚÄÄÄÄÄ¿ º
set CLine_4=%CLine_4% º ³ ,,, ³ º
set CLine_5=%CLine_5% º ³\---/³ º
set CLine_6=%CLine_6% º ³³'_'³³ º
set CLine_7=%CLine_7% º ³\---/³ º
set CLine_8=%CLine_8% º ³     ³ º
set CLine_9=%CLine_9% º ÀÄÄÄÄÄÙ%2º
set CLine_10=%CLine_10% º        Kº
set CLine_11=%CLine_11% ÈÍÍÍÍÍÍÍÍͼ
Goto :Eof