La Parte Grafica que hice para el Juego de la 21, combinada con la logica del Juego de Black Jack de Craphter.
@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
::U21hcnRHZW5pdXM
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