Black Jack v2 by Craphter

@ed33x · Enero 22, 2011, 09:45:06 PM

La Parte Grafica que hice para el Juego de la 21, combinada con la logica del Juego de Black Jack de Craphter.

Código: text

@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

Black Jack v2 by Craphter

@ed33x

Enero 22, 2011, 09:45:06 PM Ultima modificación: Febrero 22, 2015, 09:24:11 PM por Expermicid