send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Black Jack v2 by Craphter

  • 0 Respuestas
  • 1051 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: 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: You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
@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
« Última modificación: Febrero 22, 2015, 09:24:11 pm por Expermicid »
Me cambie de messenger ahora es: edeex@live.comYou are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!