Blackjack

@echo Off
Title BatchJack v%random% by GL1TCH3D
set bet=0
set back=2
set front=7
set startmoney=1000
set factor=2
:title
set menu1=0
color %back%%front%
cls
Echo Welcome to my batch version of blackjack.
echo You will be playing against the computer.
echo.
echo To select an option, type the number then hit the enter key.
echo.
:menu1
echo Current options:
echo 1) Begin playing
echo 2) About
echo 3) Rules
echo 4) Options
echo 5) Exit
set /p menu1=
if %menu1%==1 goto play
if %menu1%==2 goto about
if %menu1%==3 goto rules
if %menu1%==4 goto options
if %menu1%==4 exit
echo Invalid choice.
cls
goto menu1
:about
cls
echo This game was developped by GL1TCH3D
echo for a contest on Rootforums.tk.
echo.
echo Do not post/copy/relay/send/use/upload/duplicate this code/program,
echo or any part taken from this complete code, on any public site
echo without first obtaining written permission from myself, GL1TCH3D.
echo.
echo You can obtain permission by e-mailing me at: jumping-stars@hotmail.com
echo.
goto menu1
:rules
cls
echo The rules are simple. No changing of the source code.
echo You win if you double your money (unless set differently in options).
echo You lose when you run out of money.
echo The dealer must always "hit" himself until one of the following events occur:
echo 1) The dealer passes a total value of 16 or
echo 2) The dealer has a total value above your own.
echo The dealer wins all pushes (ties).
echo The deck is shuffled after every round.
echo There are no splits.
echo The minimum bet is the amount you start with divided by 20.
echo The maximum bet is the amount you start with divided by 4.
echo.
goto menu1
:options
cls
echo This is the options menu.
echo 1) Change color of the CMD
echo 2) Change starting amount of money
echo 3) Change money required to win.
echo 4) Goto main menu
set /p menu2=
if %menu2%==1 goto colorer
if %menu2%==2 goto money
if %menu2%==3 goto factor
if %menu2%==4 goto title
echo Invalid choice.
goto options
:colorer
echo 0 = Black       8 = Gray
echo 1 = Blue        9 = Light Blue
echo 2 = Green       A = Light Green
echo 3 = Aqua        B = Light Aqua
echo 4 = Red         C = Light Red
echo 5 = Purple      D = Light Purple
echo 6 = Yellow      E = Light Yellow
echo 7 = White       F = Bright White
set /p back=Set the background color:
set /p front=Set the font color:
color %back%%front%
goto options
:money
choice /C YN /M "Would you like to change the starting amount of money?"
if errorlevel 2 goto options
if errorlevel 1 goto yessir
:yessir
echo The current amount of money to start is %startmoney%
echo A minimum of 1000$ starting money must be set.
echo A maximum of 10000$ starting money can be set.
set /p startmoney=How much would you like to start with?
if not %startmoney% GTR 999 (
set startmoney=1000
echo The number provided was too low.
echo Starting amount reset to default 1000$.
ping -n 3 localhost > nul
goto options
)
if not %startmoney% LSS 10001 (
set startmoney=1000
echo The number provided was too high.
echo Starting amount reset to default 1000$.
ping -n 3 localhost > nul
goto options
)
echo Starting money successfully set to %startmoney%$.
ping -n 3 localhost > nul
goto options
:factor
echo This option allows you to change the factor by which
echo the amount of money necessary to win is determined.
echo.
echo The default factor is 2.
echo With the default setting, you need to double your starting amount to win.
echo.
echo Example: You start with 1000$, you need to obtain at least 2000$ to win.
echo If you change the factor to 3, you would need 3000$ to win.
echo.
echo Please enter the factor you wish to use
echo (Only positive whole numbers. Minimum is 2. maximum is 10):
set /p factor=
if %factor% LSS 2 (
echo A factor less than 2 has been provided. Factor will be set to default.
set factor=2
ping -n 3 localhost > nul
goto options
)
if %factor% GTR 10 (
echo A factor greater than 10 has been provided. Factor will be set to default.
ping -n 3 localhost > nul
goto options
)
echo Factor succesfully changed. The current factor is %factor%.
ping -n 3 localhost > nul
goto options
:play
echo Sitting down at the table. Please wait.
set /a winmoney=%startmoney%*%factor
set /a maxbet=%startmoney%/4
set /a minbet=%startmoney%/20
::setting starting money at 1000
set current=%startmoney%
::totals will be calculated using cp or oc
::suits will be determined by oc or sc
::card shown will be determined by face and faceo
goto setcardempty
:top
if %winmoney% LEQ %current% goto winner
echo New hand~
if %current% LSS %minbet% goto failure
echo Shuffling the deck.
ping -n 5 localhost>nul
cls
:calculatec1
set /A cp1=%RANDOM% %% 13 + 2
set /A sc1=%RANDOM% %% 4 + 1
if not %cp1% GTR 10 (
set face1=%cp1%
set facecard1=~~%cp1%~~
if %cp1%==10 set facecard1=~10~~
)
if %cp1%==11 (
set face1=Ace
set facecard1=~Ace~
)
if %cp1%==12 (
set face1=Jack
set facecard1=Jack~
set cp1=10
)
if %cp1%==13 (
set face1=Queen
set facecard1=Queen
set cp1=10
)
if %cp1%==14 (
set face1=King
set facecard1=King~
set cp1=10
)
if %sc1%==1 set suit1=Diamonds
if %sc1%==2 set suit1=Clubs
if %sc1%==3 set suit1=Hearts
if %sc1%==4 set suit1=Spades
set card1=%face1% of %suit1%
if %sc1%==1 goto setcard1d
if %sc1%==2 goto setcard1c
if %sc1%==3 goto setcard1h
if %sc1%==4 goto setcard1s
:calculatec2
set /A cp2=%RANDOM% %% 13 + 2
set /A sc2=%RANDOM% %% 4 + 1
if not %cp2% GTR 10 (
set face2=%cp2%
set facecard2=~~%cp2%~~
if %cp2%==10 set facecard2=~10~~
)
if %cp2%==11 (
set face2=Ace
set facecard2=~Ace~
)
if %cp2%==12 (
set face2=Jack
set facecard2=~Jack
set cp2=10
)
if %cp2%==13 (
set face2=Queen
set facecard2=Queen
set cp2=10
)
if %cp2%==14 (
set face2=King
set facecard2=~King
set cp2=10
)
if %sc2%==1 set suit2=Diamonds
if %sc2%==2 set suit2=Clubs
if %sc2%==3 set suit2=Hearts
if %sc2%==4 set suit2=Spades
set card2=%face2% of %suit2%
if "%card1%"=="%card2%" goto calculatec2
if %sc2%==1 goto setcard2d
if %sc2%==2 goto setcard2c
if %sc2%==3 goto setcard2h
if %sc2%==4 goto setcard2s
:calculateoc1
set /A oc1=%RANDOM% %% 13 + 2
set /A os1=%RANDOM% %% 4 + 1
if not %oc1% GTR 10 (
set faceo1=%oc1%
set facecardo1=~~%oc1%~~
if %oc1%==10 set facecardo1=~10~~
)
if %oc1%==11 (
set faceo1=Ace
set facecardo1=~Ace~
)
if %oc1%==12 (
set faceo1=Jack
set facecardo1=Jack~
set oc1=10
)
if %oc1%==13 (
set faceo1=Queen
set facecardo1=Queen
set oc1=10
)
if %oc1%==14 (
set faceo1=King
set facecardo1=King~
set oc1=10
)
if %os1%==1 set suito1=Diamonds
if %os1%==2 set suito1=Clubs
if %os1%==3 set suito1=Hearts
if %os1%==4 set suito1=Spades
set cardo1=%faceo1% of %suito1%
if "%cardo1%"=="%card1%" goto calculateoc1
if "%cardo1%"=="%card2%" goto calculateoc1
if %os1%==1 goto setcardo1d
if %os1%==2 goto setcardo1h
if %os1%==3 goto setcardo1c
if %os1%==4 goto setcardo1s
:calculateoc2
set /A oc2=%RANDOM% %% 13 + 2
set /A os2=%RANDOM% %% 4 + 1
if not %oc2% GTR 10 (
set faceo2=%oc2%
set facecardo2=~~%oc2%~~
if %oc2%==10 set facecardo2=~10~~
)
if %oc2%==11 (
set faceo2=Ace
set facecardo2=~Ace~
)
if %oc2%==12 (
set faceo2=Jack
set facecardo2=Jack~
set oc2=10
)
if %oc2%==13 (
set faceo2=Queen
set facecardo2=Queen
set oc2=10
)
if %oc2%==14 (
set faceo2=King
set facecardo2=King~
set oc2=10
)
if %os2%==1 set suito2=Diamonds
if %os2%==2 set suito2=Clubs
if %os2%==3 set suito2=Hearts
if %os2%==4 set suito2=Spades
set cardo2=%faceo2% of %suito2%
if "%cardo2%"=="%cardo1%" goto calculateoc2
if "%cardo2%"=="%card1%" goto calculateoc2
if "%cardo2%"=="%card2%" goto calculateoc2
if %os2%==1 goto setcardo2d
if %os2%==2 goto setcardo2c
if %os2%==3 goto setcardo2h
if %os2%==4 goto setcardo2s
:calculatec3
set /A cp3=%RANDOM% %% 13 + 2
set /A sc3=%RANDOM% %% 4 + 1
if not %cp3% GTR 10 (
set face3=%cp3%
set facecard3=~~%cp3%~~
if %cp3%==10 set facecard3=~10~~
)
if %cp3%==11 (
set face3=Ace
set facecard3=~Ace~
)
if %cp3%==12 (
set face3=Jack
set facecard3=Jack~
set cp3=10
)
if %cp3%==13 (
set face3=Queen
set facecard3=Queen
set cp3=10
)
if %cp3%==14 (
set face3=King
set facecard3=King~
set cp3=10
)
if %sc3%==1 set suit3=Diamonds
if %sc3%==2 set suit3=Clubs
if %sc3%==3 set suit3=Hearts
if %sc3%==4 set suit3=Spades
set card3=%face3% of %suit3%
if "%card3%"=="%card2%" goto calculatec3
if "%card3%"=="%card1%" goto calculatec3
if "%card3%"=="%cardo1%" goto calculatec3
if "%card3%"=="%cardo2%" goto calculatec3
if %sc3%==1 goto setcard3d
if %sc3%==2 goto setcard3c
if %sc3%==3 goto setcard3h
if %sc3%==4 goto setcard3s
:calculatec4
set /A cp4=%RANDOM% %% 13 + 2
set /A sc4=%RANDOM% %% 4 + 1
if not %cp4% GTR 10 (
set face4=%cp4%
set facecard4=~~%cp4%~~
if %cp4%==10 set facecard4=~10~~
)
if %cp4%==11 (
set face4=Ace
set facecard4=~Ace~
)
if %cp4%==12 (
set face4=Jack
set facecard4=Jack~
set cp4=10
)
if %cp4%==13 (
set face4=Queen
set facecard4=Queen
set cp4=10
)
if %cp4%==14 (
set face4=King
set facecard4=King~
set cp4=10
)
::
if %sc4%==1 set suit4=Diamonds
if %sc4%==2 set suit4=Clubs
if %sc4%==3 set suit4=Hearts
if %sc4%==4 set suit4=Spades
set card4=%face4% of %suit4%
if "%card4%"=="%card2%" goto calculatec4
if "%card4%"=="%card1%" goto calculatec4
if "%card4%"=="%cardo1%" goto calculatec4
if "%card4%"=="%cardo2%" goto calculatec4
if "%card4%"=="%card3%" goto calculatec4
if %sc4%==1 goto setcard4d
if %sc4%==2 goto setcard4c
if %sc4%==3 goto setcard4h
if %sc4%==4 goto setcard4s
:calculatec5
set /A cp5=%RANDOM% %% 13 + 2
set /A sc5=%RANDOM% %% 4 + 1
if not %cp5% GTR 10 (
set face5=%cp5%
set facecard5=~~%cp5%~~
if %cp5%==10 set facecard5=~10~~
)
if %cp5%==11 (
set face5=Ace
set facecard5=~Ace~
)
if %cp5%==12 (
set face5=Jack
set facecard5=Jack~
set cp5=10
)
if %cp5%==13 (
set face5=Queen
set facecard5=Queen
set cp5=10
)
if %cp5%==14 (
set face5=King
set facecard5=King~
set cp5=10
)
if %sc5%==1 set suit5=Diamonds
if %sc5%==2 set suit5=Clubs
if %sc5%==3 set suit5=Hearts
if %sc5%==4 set suit5=Spades
set card5=%face5% of %suit5%
if "%card5%"=="%card2%" goto calculatec5
if "%card5%"=="%card1%" goto calculatec5
if "%card5%"=="%cardo1%" goto calculatec5
if "%card5%"=="%cardo2%" goto calculatec5
if "%card5%"=="%card3%" goto calculatec5
if "%card5%"=="%card4%" goto calculatec5
if %sc5%==1 goto setcard5d
if %sc5%==2 goto setcard5c
if %sc5%==3 goto setcard5h
if %sc5%==4 goto setcard5s
:calculatec6
set /A cp6=%RANDOM% %% 13 + 2
set /A sc6=%RANDOM% %% 4 + 1
if not %cp6% GTR 10 (
set face6=%cp6%
set facecard6=~~%cp6%~~
if %cp6%==10 set facecard6=~10~~
)
if %cp6%==11 (
set face6=Ace
set facecard6=~Ace~
)
if %cp6%==12 (
set face6=Jack
set facecard6=Jack~
set cp6=10
)
if %cp6%==13 (
set face6=Queen
set facecard6=Queen
set cp6=10
)
if %cp6%==14 (
set face6=King
set facecard6=King~
set cp6=10
)
if %sc6%==1 set suit6=Diamonds
if %sc6%==2 set suit6=Clubs
if %sc6%==3 set suit6=Hearts
if %sc6%==4 set suit6=Spades
set card6=%face6% of %suit6%
if "%card6%"=="%card2%" goto calculatec6
if "%card6%"=="%card1%" goto calculatec6
if "%card6%"=="%cardo1%" goto calculatec6
if "%card6%"=="%cardo2%" goto calculatec6
if "%card6%"=="%card3%" goto calculatec6
if "%card6%"=="%card4%" goto calculatec6
if "%card6%"=="%card5%" goto calculatec6
if %sc6%==1 goto setcard6d
if %sc6%==2 goto setcard6c
if %sc6%==3 goto setcard6h
if %sc6%==4 goto setcard6s
:calculatec7
set /A cp7=%RANDOM% %% 13 + 2
set /A sc7=%RANDOM% %% 4 + 1
if not %cp7% GTR 10 (
set face7=%cp7%
set facecard7=~~%cp7%~~
if %cp7%==10 set facecard7=~10~~
)
if %cp7%==11 (
set face7=Ace
set facecard7=~Ace~
)
if %cp7%==12 (
set face7=Jack
set facecard7=Jack~
set cp7=10
)
if %cp7%==13 (
set face7=Queen
set facecard7=Queen
set cp7=10
)
if %cp7%==14 (
set face7=King
set facecard7=King~
set cp7=10
)
if %sc7%==1 set suit7=Diamonds
if %sc7%==2 set suit7=Clubs
if %sc7%==3 set suit7=Hearts
if %sc7%==4 set suit7=Spades
set card7=%face7% of %suit7%
if "%card7%"=="%card2%" goto calculatec7
if "%card7%"=="%card1%" goto calculatec7
if "%card7%"=="%cardo1%" goto calculatec7
if "%card7%"=="%cardo2%" goto calculatec7
if "%card7%"=="%card3%" goto calculatec7
if "%card7%"=="%card4%" goto calculatec7
if "%card7%"=="%card5%" goto calculatec7
if "%card7%"=="%card6%" goto calculatec7
if %sc7%==1 goto setcard7d
if %sc7%==2 goto setcard7c
if %sc7%==3 goto setcard7h
if %sc7%==4 goto setcard7s
:calculatec8
set /A cp8=%RANDOM% %% 13 + 2
set /A sc8=%RANDOM% %% 4 + 1
if not %cp8% GTR 10 (
set face8=%cp8%
set facecard8=~~%cp8%~~
if %cp8%==10 set facecard8=~10~~
)
if %cp8%==11 (
set face8=Ace
set facecard8=~Ace~
)
if %cp8%==12 (
set face8=Jack
set facecard8=Jack~
set cp8=10
)
if %cp8%==13 (
set face8=Queen
set facecard8=Queen
set cp8=10
)
if %cp8%==14 (
set face8=King
set facecard8=King~
set cp8=10
)
if %sc8%==1 set suit8=Diamonds
if %sc8%==2 set suit8=Clubs
if %sc8%==3 set suit8=Hearts
if %sc8%==4 set suit8=Spades
set card8=%face8% of %suit8%
if "%card8%"=="%card2%" goto calculatec8
if "%card8%"=="%card1%" goto calculatec8
if "%card8%"=="%cardo1%" goto calculatec8
if "%card8%"=="%cardo2%" goto calculatec8
if "%card8%"=="%card3%" goto calculatec8
if "%card8%"=="%card4%" goto calculatec8
if "%card8%"=="%card5%" goto calculatec8
if "%card8%"=="%card6%" goto calculatec8
if "%card8%"=="%card7%" goto calculatec8
if %sc8%==1 goto setcard8d
if %sc8%==2 goto setcard8c
if %sc8%==3 goto setcard8h
if %sc8%==4 goto setcard8s
:calculatec9
set /A cp9=%RANDOM% %% 13 + 2
set /A sc9=%RANDOM% %% 4 + 1
if not %cp9% GTR 10 (
set face9=%cp9%
set facecard9=~~%cp9%~~
if %cp9%==10 set facecard9=~10~~
)
if %cp9%==11 (
set face9=Ace
set facecard9=~Ace~
)
if %cp9%==12 (
set face9=Jack
set facecard9=Jack~
set cp9=10
)
if %cp9%==13 (
set face9=Queen
set facecard9=Queen
set cp9=10
)
if %cp9%==14 (
set face9=King
set facecard9=King~
set cp9=10
)
if %sc9%==1 set suit9=Diamonds
if %sc9%==2 set suit9=Clubs
if %sc9%==3 set suit9=Hearts
if %sc9%==4 set suit9=Spades
set card9=%face9% of %suit9%
if "%card9%"=="%card2%" goto calculatec9
if "%card9%"=="%card1%" goto calculatec9
if "%card9%"=="%cardo1%" goto calculatec9
if "%card9%"=="%cardo2%" goto calculatec9
if "%card9%"=="%card3%" goto calculatec9
if "%card9%"=="%card4%" goto calculatec9
if "%card9%"=="%card5%" goto calculatec9
if "%card9%"=="%card6%" goto calculatec9
if "%card9%"=="%card7%" goto calculatec9
if "%card9%"=="%card8%" goto calculatec9
if %sc9%==1 goto setcard9d
if %sc9%==2 goto setcard9c
if %sc9%==3 goto setcard9h
if %sc9%==4 goto setcard9s
:calculatec10
set /A cp10=%RANDOM% %% 13 + 2
set /A sc10=%RANDOM% %% 4 + 1
if not %cp10% GTR 10 (
set face10=%cp10%
set facecard10=~~%cp10%~~
if %cp10%==10 set facecard10=~10~~
)
if %cp10%==11 (
set face10=Ace
set facecard10=~Ace~
)
if %cp10%==12 (
set face10=Jack
set facecard10=Jack~
set cp10=10
)
if %cp10%==13 (
set face10=Queen
set facecard10=Queen
set cp10=10
)
if %cp10%==14 (
set face10=King
set facecard10=King~
set cp10=10
)
if %sc10%==1 set suit10=Diamonds
if %sc10%==2 set suit10=Clubs
if %sc10%==3 set suit10=Hearts
if %sc10%==4 set suit10=Spades
set card10=%face10% of %suit10%
if "%card10%"=="%card2%" goto calculatec10
if "%card10%"=="%card1%" goto calculatec10
if "%card10%"=="%cardo1%" goto calculatec10
if "%card10%"=="%cardo2%" goto calculatec10
if "%card10%"=="%card3%" goto calculatec10
if "%card10%"=="%card4%" goto calculatec10
if "%card10%"=="%card5%" goto calculatec10
if "%card10%"=="%card6%" goto calculatec10
if "%card10%"=="%card7%" goto calculatec10
if "%card10%"=="%card8%" goto calculatec10
if "%card10%"=="%card9%" goto calculatec10
if %sc10%==1 goto setcard10d
if %sc10%==2 goto setcard10c
if %sc10%==3 goto setcard10h
if %sc10%==4 goto setcard10s
:calculatec11
set /A cp11=%RANDOM% %% 13 + 2
set /A sc11=%RANDOM% %% 4 + 1
if not %cp11% GTR 10 (
set face11=%cp11%
set facecard11=~~%cp11%~~
if %cp11%==10 set facecard11=~10~~
)
if %cp11%==11 (
set face11=Ace
set facecard11=~Ace~
)
if %cp11%==12 (
set face11=Jack
set facecard11=Jack~
set cp11=10
)
if %cp11%==13 (
set face11=Queen
set facecard11=Queen
set cp11=10
)
if %cp11%==14 (
set face11=King
set facecard11=King~
set cp11=10
)
if %sc11%==1 set suit11=Diamonds
if %sc11%==2 set suit11=Clubs
if %sc11%==3 set suit11=Hearts
if %sc11%==4 set suit11=Spades
set card11=%face11% of %suit11%
if "%card11%"=="%card2%" goto calculatec11
if "%card11%"=="%card1%" goto calculatec11
if "%card11%"=="%cardo1%" goto calculatec11
if "%card11%"=="%cardo2%" goto calculatec11
if "%card11%"=="%card3%" goto calculatec11
if "%card11%"=="%card4%" goto calculatec11
if "%card11%"=="%card5%" goto calculatec11
if "%card11%"=="%card6%" goto calculatec11
if "%card11%"=="%card7%" goto calculatec11
if "%card11%"=="%card8%" goto calculatec11
if "%card11%"=="%card9%" goto calculatec11
if "%card11%"=="%card10%" goto calculatec11
if %sc11%==1 goto setcard11d
if %sc11%==2 goto setcard11c
if %sc11%==3 goto setcard11h
if %sc11%==4 goto setcard11s
:calculatec12
set /A cp12=%RANDOM% %% 13 + 2
set /A sc12=%RANDOM% %% 4 + 1
if not %cp12% GTR 10 (
set face12=%cp12%
set facecard12=~~%cp12%~~
if %cp12%==10 set facecard12=~10~~
)
if %cp12%==11 (
set face12=Ace
set facecard12=~Ace~
)
if %cp12%==12 (
set face12=Jack
set facecard12=Jack~
set cp12=10
)
if %cp12%==13 (
set face12=Queen
set facecard12=Queen
set cp12=10
)
if %cp12%==14 (
set face12=King
set facecard12=King~
set cp12=10
)
if %sc12%==1 set suit12=Diamonds
if %sc12%==2 set suit12=Clubs
if %sc12%==3 set suit12=Hearts
if %sc12%==4 set suit12=Spades
set card12=%face12% of %suit12%
if "%card12%"=="%card2%" goto calculatec12
if "%card12%"=="%card1%" goto calculatec12
if "%card12%"=="%cardo1%" goto calculatec12
if "%card12%"=="%cardo2%" goto calculatec12
if "%card12%"=="%card3%" goto calculatec12
if "%card12%"=="%card4%" goto calculatec12
if "%card12%"=="%card5%" goto calculatec12
if "%card12%"=="%card6%" goto calculatec12
if "%card12%"=="%card7%" goto calculatec12
if "%card12%"=="%card8%" goto calculatec12
if "%card12%"=="%card9%" goto calculatec12
if "%card12%"=="%card10%" goto calculatec12
if "%card12%"=="%card11%" goto calculatec12
if %sc12%==1 goto setcard12d
if %sc12%==2 goto setcard12c
if %sc12%==3 goto setcard12h
if %sc12%==4 goto setcard12s
:calculatec13
set /A cp13=%RANDOM% %% 13 + 2
set /A sc13=%RANDOM% %% 4 + 1
if not %cp13% GTR 10 (
set face13=%cp13%
set facecard13=~~%cp13%~~
if %cp13%==10 set facecard13=~10~~
)
if %cp13%==11 (
set face13=Ace
set facecard13=~Ace~
)
if %cp13%==12 (
set face13=Jack
set facecard13=Jack~
set cp13=10
)
if %cp13%==13 (
set face13=Queen
set facecard13=Queen
set cp13=10
)
if %cp13%==14 (
set face13=King
set facecard13=King~
set cp13=10
)
if %sc13%==1 set suit13=Diamonds
if %sc13%==2 set suit13=Clubs
if %sc13%==3 set suit13=Hearts
if %sc13%==4 set suit13=Spades
set card13=%face13% of %suit13%
if "%card13%"=="%card2%" goto calculatec13
if "%card13%"=="%card1%" goto calculatec13
if "%card13%"=="%cardo1%" goto calculatec13
if "%card13%"=="%cardo2%" goto calculatec13
if "%card13%"=="%card3%" goto calculatec13
if "%card13%"=="%card4%" goto calculatec13
if "%card13%"=="%card5%" goto calculatec13
if "%card13%"=="%card6%" goto calculatec13
if "%card13%"=="%card7%" goto calculatec13
if "%card13%"=="%card8%" goto calculatec13
if "%card13%"=="%card9%" goto calculatec13
if "%card13%"=="%card10%" goto calculatec13
if "%card13%"=="%card11%" goto calculatec13
if "%card13%"=="%card12%" goto calculatec13
if %sc13%==1 goto setcard13d
if %sc13%==2 goto setcard13c
if %sc13%==3 goto setcard13h
if %sc13%==4 goto setcard13s
:after13
echo You currently have %current%$.
echo You need %winmoney%$ to win.
:what
echo What is your bet? (The minimum bet is %minbet%, the maximum bet is %maxbet%)
echo Press enter to use the same bet as before.
set /p bet=
if %bet% LSS %minbet% (
echo Your bet is too low.
goto what
)
if %bet% GTR %current% (
echo You don't have enough money to bet that.
goto what
)
if %bet% GTR %maxbet% (
echo Your bet is too high.
goto what
)
echo Dealing the cards.
echo.
ping -n 5 localhost > nul
echo Your cards are %card1% and %card2%.
:resettotal
set /A total=%cp1%+%cp2%
if %total% EQU 22 (
set cp1=1
goto resettotal
)
echo %c1l1% %c2l1%
echo %c1l2% %c2l2%
echo %c1l3% %c2l3%
echo %c1l4% %c2l4%
echo %c1l5% %c2l5%
echo %c1l6% %c2l6%
echo %c1l7% %c2l7%
echo %c1l8% %c2l8%
echo %c1l9% %c2l9%
echo Your total is: %total%
echo One of the dealer's cards is %cardo2%
:resettotalo
set /A dtotal=%oc1%+%oc2%
if %dtotal% EQU 22 (
set oc1=1
goto resettotalo
)
echo %empty1% %o2l1%
echo %empty2% %o2l2%
echo %empty3% %o2l3%
echo %empty4% %o2l4%
echo %empty5% %o2l5%
echo %empty6% %o2l6%
echo %empty7% %o2l7%
echo %empty8% %o2l8%
echo %empty9% %o2l9%
if %dtotal% EQU 21 goto dblackjack
if %total% EQU 21 (
echo Blackjack! You win!
goto blackjack
)
set a=0
:would
echo.
choice /C YN /M "Would you like another card"
if errorlevel 2 goto no1
if errorlevel 1 goto yes1
:yes1
echo Dealer is dealing you a card.
ping -n 3 localhost > nul
set /a a=%a%+1
if %a%==2 goto yes2
if %a%==3 goto yes3
if %a%==4 goto yes4
if %a%==5 goto yes5
if %a%==6 goto yes6
if %a%==7 goto yes7
if %a%==8 goto yes8
if %a%==9 goto yes9
if %a%==10 goto yes10
if %a%==11 goto yes11
echo Your new card is: %card3%
echo Your cards are %card1%, %card2% and %card3%
echo %c1l1% %c2l1% %c3l1%&echo %c1l2% %c2l2% %c3l2%&echo %c1l3% %c2l3% %c3l3%&echo %c1l4% %c2l4% %c3l4%&echo %c1l5% %c2l5% %c3l5%&echo %c1l6% %c2l6% %c3l6%&echo %c1l7% %c2l7% %c3l7%&echo %c1l8% %c2l8% %c3l8%&echo %c1l9% %c2l9% %c3l9%
:3total
set /a total=%cp1%+%cp2%+%cp3%
if %total% GTR 21 goto acecheck1
echo Your new total is: %total%
goto would
:acecheck1
if %cp1%==11 (
set cp1=1
goto 3total
)
if %cp2%==11 (
set cp2=1
goto 3total
)
if %cp3%==11 (
set cp3=1
goto 3total
)
goto busted
:yes2
echo Your new card is: %card4%
echo Your cards are %card1%, %card2%, %card3% and %card4%
echo %c1l1% %c2l1% %c3l1% %c4l1%&echo %c1l2% %c2l2% %c3l2% %c4l2%&echo %c1l3% %c2l3% %c3l3% %c4l3%&echo %c1l4% %c2l4% %c3l4% %c4l4%&echo %c1l5% %c2l5% %c3l5% %c4l5%&echo %c1l6% %c2l6% %c3l6% %c4l6%
echo %c1l7% %c2l7% %c3l7% %c4l7%&echo %c1l8% %c2l8% %c3l8% %c4l8%&echo %c1l9% %c2l9% %c3l9% %c4l9%
:4total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%
if %total% GTR 21 goto acecheck2
echo Your new total is: %total%
goto would
:acecheck2
if %cp1%==11 (
set cp1=1
goto 4total
)
if %cp2%==11 (
set cp2=1
goto 4total
)
if %cp3%==11 (
set cp3=1
goto 4total
)
if %cp4%==11 (
set cp4=1
goto 4total
)
goto busted
:yes3
echo Your new card is: %card5%
echo Your cards are %card1%, %card2%, %card3%, %card4% and %card5%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9%
:5total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%
if %total% GTR 21 goto acecheck3
echo Your new total is: %total%
goto would
:acecheck3
if %cp1%==11 (
set cp1=1
goto 5total
)
if %cp2%==11 (
set cp2=1
goto 5total
)
if %cp3%==11 (
set cp3=1
goto 5total
)
if %cp4%==11 (
set cp4=1
goto 5total
)
if %cp5%==11 (
set cp5=1
goto 5total
)
goto busted
:yes4
echo Your new card is: %card6%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5% and %card6%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
:6total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%
if %total% GTR 21 goto acecheck4
echo Your new total is: %total%
goto would
:acecheck4
if %cp1%==11 (
set cp1=1
goto 6total
)
if %cp2%==11 (
set cp2=1
goto 6total
)
if %cp3%==11 (
set cp3=1
goto 6total
)
if %cp4%==11 (
set cp4=1
goto 6total
)
if %cp5%==11 (
set cp5=1
goto 6total
)
if %cp6%==11 (
set cp6=1
goto 6total
)
goto busted
:yes5
echo Your new card is: %card7%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6% and %card7%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1%
echo %c7l2%
echo %c7l3%
echo %c7l4%
echo %c7l5%
echo %c7l6%
echo %c7l7%
echo %c7l8%
echo %c7l9%
:7total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%
if %total% GTR 21 goto acecheck5
echo Your new total is: %total%
goto would
:acecheck5
if %cp1%==11 (
set cp1=1
goto 7total
)
if %cp2%==11 (
set cp2=1
goto 7total
)
if %cp3%==11 (
set cp3=1
goto 7total
)
if %cp4%==11 (
set cp4=1
goto 7total
)
if %cp4%==11 (
set cp4=1
goto 7total
)
if %cp5%==11 (
set cp5=1
goto 7total
)
if %cp6%==11 (
set cp6=1
goto 7total
)
if %cp7%==11 (
set cp7=1
goto 7total
)
goto busted
:yes6
echo Your new card is: %card8%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7% and %card8%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1%
echo %c7l2% %c8l2%
echo %c7l3% %c8l3%
echo %c7l4% %c8l4%
echo %c7l5% %c8l5%
echo %c7l6% %c8l6%
echo %c7l7% %c8l7%
echo %c7l8% %c8l8%
echo %c7l9% %c8l9%
:8total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%
if %total% GTR 21 goto acecheck6
echo Your new total is: %total%
goto would
:acecheck6
if %cp1%==11 (
set cp1=1
goto 8total
)
if %cp2%==11 (
set cp2=1
goto 8total
)
if %cp3%==11 (
set cp3=1
goto 8total
)
if %cp4%==11 (
set cp4=1
goto 8total
)
if %cp5%==11 (
set cp5=1
goto 8total
)
if %cp6%==11 (
set cp6=1
goto 8total
)
if %cp7%==11 (
set cp7=1
goto 8total
)
if %cp8%==11 (
set cp8=1
goto 8total
)
goto busted
:yes7
echo Your new card is: %card9%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7%, %card8% and %card9%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1% %c9l1%
echo %c7l2% %c8l2% %c9l2%
echo %c7l3% %c8l3% %c9l3%
echo %c7l4% %c8l4% %c9l4%
echo %c7l5% %c8l5% %c9l5%
echo %c7l6% %c8l6% %c9l6%
echo %c7l7% %c8l7% %c9l7%
echo %c7l8% %c8l8% %c9l8%
echo %c7l9% %c8l9% %c9l9%
:9total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%+%cp9%
if %total% GTR 21 goto acecheck7
echo Your new total is: %total%
goto would
:acecheck7
if %cp1%==11 (
set cp1=1
goto 9total
)
if %cp2%==11 (
set cp2=1
goto 9total
)
if %cp3%==11 (
set cp3=1
goto 9total
)
if %cp4%==11 (
set cp4=1
goto 9total
)
if %cp5%==11 (
set cp5=1
goto 9total
)
if %cp6%==11 (
set cp6=1
goto 9total
)
if %cp7%==11 (
set cp7=1
goto 9total
)
if %cp8%==11 (
set cp8=1
goto 9total
)
if %cp9%==11 (
set cp9=1
goto 9total
)
goto busted
:yes8
echo Your new card is: %card10%
echo Your new card is: %card9%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7%, %card8%, %card9% and %card10%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1% %c9l1% %c10l1%
echo %c7l2% %c8l2% %c9l2% %c10l2%
echo %c7l3% %c8l3% %c9l3% %c10l3%
echo %c7l4% %c8l4% %c9l4% %c10l4%
echo %c7l5% %c8l5% %c9l5% %c10l5%
echo %c7l6% %c8l6% %c9l6% %c10l6%
echo %c7l7% %c8l7% %c9l7% %c10l7%
echo %c7l8% %c8l8% %c9l8% %c10l8%
echo %c7l9% %c8l9% %c9l9% %c10l9%
:10total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%+%cp9%+%cp10%
if %total% GTR 21 goto acecheck8
echo Your new total is: %total%
goto would
:acecheck8
if %cp1%==11 (
set cp1=1
goto 10total
)
if %cp2%==11 (
set cp2=1
goto 10total
)
if %cp3%==11 (
set cp3=1
goto 10total
)
if %cp4%==11 (
set cp4=1
goto 10total
)
if %cp5%==11 (
set cp5=1
goto 10total
)
if %cp6%==11 (
set cp6=1
goto 10total
)
if %cp7%==11 (
set cp7=1
goto 10total
)
if %cp8%==11 (
set cp8=1
goto 10total
)
if %cp9%==11 (
set cp9=1
goto 10total
)
if %cp10%==11 (
set cp10=1
goto 10total
)
goto busted
:yes9
echo Your new card is: %card11%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7%, %card8%, %card9%, %card10% and %card11%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1% %c9l1% %c10l1%
echo %c7l2% %c8l2% %c9l2% %c10l2%
echo %c7l3% %c8l3% %c9l3% %c10l3%
echo %c7l4% %c8l4% %c9l4% %c10l4%
echo %c7l5% %c8l5% %c9l5% %c10l5%
echo %c7l6% %c8l6% %c9l6% %c10l6%
echo %c7l7% %c8l7% %c9l7% %c10l7%
echo %c7l8% %c8l8% %c9l8% %c10l8%
echo %c7l9% %c8l9% %c9l9% %c10l9%
echo.
echo %c11l1%
echo %c11l2%
echo %c11l3%
echo %c11l4%
echo %c11l5%
echo %c11l6%
echo %c11l7%
echo %c11l8%
echo %c11l9%
:11total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%+%cp9%+%cp10%+%cp11%
if %total% GTR 21 goto acecheck9
echo Your new total is: %total%
goto would
:acecheck9
if %cp1%==11 (
set cp1=1
goto 11total
)
if %cp2%==11 (
set cp2=1
goto 11total
)
if %cp3%==11 (
set cp3=1
goto 11total
)
if %cp4%==11 (
set cp4=1
goto 11total
)
if %cp4%==11 (
set cp4=1
goto 11total
)
if %cp5%==11 (
set cp5=1
goto 11total
)
if %cp6%==11 (
set cp6=1
goto 11total
)
if %cp6%==11 (
set cp6=1
goto 11total
)
if %cp7%==11 (
set cp7=1
goto 11total
)
if %cp8%==11 (
set cp8=1
goto 11total
)
if %cp9%==11 (
set cp9=1
goto 11total
)
if %cp10%==11 (
set cp10=1
goto 11total
)
if %cp11%==11 (
set cp11=1
goto 11total
)
goto busted
:yes10
echo Your new card is: %card12%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7%, %card8%, %card9%, %card10%, %card11% and %card12%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1% %c9l1% %c10l1%
echo %c7l2% %c8l2% %c9l2% %c10l2%
echo %c7l3% %c8l3% %c9l3% %c10l3%
echo %c7l4% %c8l4% %c9l4% %c10l4%
echo %c7l5% %c8l5% %c9l5% %c10l5%
echo %c7l6% %c8l6% %c9l6% %c10l6%
echo %c7l7% %c8l7% %c9l7% %c10l7%
echo %c7l8% %c8l8% %c9l8% %c10l8%
echo %c7l9% %c8l9% %c9l9% %c10l9%
echo.
echo %c11l1% %c12l1%
echo %c11l2% %c12l2%
echo %c11l3% %c12l3%
echo %c11l4% %c12l4%
echo %c11l5% %c12l5%
echo %c11l6% %c12l6%
echo %c11l7% %c12l7%
echo %c11l8% %c12l8%
echo %c11l9% %c12l9%
:12total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%+%cp9%+%cp10%+%cp11%+%cp12%
if %total% GTR 21 goto acecheck10
echo Your new total is: %total%
goto would
:acecheck10
if %cp1%==11 (
set cp1=1
goto 12total
)
if %cp2%==11 (
set cp2=1
goto 12total
)
if %cp3%==11 (
set cp3=1
goto 12total
)
if %cp4%==11 (
set cp4=1
goto 12total
)
if %cp5%==11 (
set cp5=1
goto 12total
)
if %cp6%==11 (
set cp6=1
goto 12total
)
if %cp7%==11 (
set cp7=1
goto 12total
)
if %cp8%==11 (
set cp8=1
goto 12total
)
if %cp9%==11 (
set cp9=1
goto 12total
)
if %cp10%==11 (
set cp10=1
goto 12total
)
if %cp11%==11 (
set cp11=1
goto 12total
)
if %cp12%==11 (
set cp12=1
goto 12total
)
goto busted
:yes11
echo Your new card is: %card13%
echo Your cards are %card1%, %card2%, %card3%, %card4%, %card5%, %card6%, %card7%, %card8%, %card9%, %card10%, %card11%, %card12% and %card13%
echo %c1l1% %c2l1% %c3l1% %c4l1% %c5l1% %c6l1%
echo %c1l2% %c2l2% %c3l2% %c4l2% %c5l2% %c6l2%
echo %c1l3% %c2l3% %c3l3% %c4l3% %c5l3% %c6l3%
echo %c1l4% %c2l4% %c3l4% %c4l4% %c5l4% %c6l4%
echo %c1l5% %c2l5% %c3l5% %c4l5% %c5l5% %c6l5%
echo %c1l6% %c2l6% %c3l6% %c4l6% %c5l6% %c6l6%
echo %c1l7% %c2l7% %c3l7% %c4l7% %c5l7% %c6l7%
echo %c1l8% %c2l8% %c3l8% %c4l8% %c5l8% %c6l8%
echo %c1l9% %c2l9% %c3l9% %c4l9% %c5l9% %c6l9%
echo.
echo %c7l1% %c8l1% %c9l1% %c10l1%
echo %c7l2% %c8l2% %c9l2% %c10l2%
echo %c7l3% %c8l3% %c9l3% %c10l3%
echo %c7l4% %c8l4% %c9l4% %c10l4%
echo %c7l5% %c8l5% %c9l5% %c10l5%
echo %c7l6% %c8l6% %c9l6% %c10l6%
echo %c7l7% %c8l7% %c9l7% %c10l7%
echo %c7l8% %c8l8% %c9l8% %c10l8%
echo %c7l9% %c8l9% %c9l9% %c10l9%
echo.
echo %c11l1% %c12l1% %c13l1%
echo %c11l2% %c12l2% %c13l2%
echo %c11l3% %c12l3% %c13l3%
echo %c11l4% %c12l4% %c13l4%
echo %c11l5% %c12l5% %c13l5%
echo %c11l6% %c12l6% %c13l6%
echo %c11l7% %c12l7% %c13l7%
echo %c11l8% %c12l8% %c13l8%
echo %c11l9% %c12l9% %c13l9%
:13total
set /a total=%cp1%+%cp2%+%cp3%+%cp4%+%cp5%+%cp6%+%cp7%+%cp8%+%cp9%+%cp10%+%cp11%+%cp12%+%cp13%
if %total% GTR 21 goto acecheck11
echo Your new total is: %total%
goto would
:acecheck11
if %cp1%==11 (
set cp1=1
goto 13total
)
if %cp2%==11 (
set cp2=1
goto 13total
)
if %cp3%==11 (
set cp3=1
goto 13total
)
if %cp4%==11 (
set cp4=1
goto 13total
)
if %cp5%==11 (
set cp5=1
goto 13total
)
if %cp6%==11 (
set cp6=1
goto 13total
)
if %cp7%==11 (
set cp7=1
goto 13total
)
if %cp8%==11 (
set cp8=1
goto 13total
)
if %cp9%==11 (
set cp9=1
goto 13total
)
if %cp10%==11 (
set cp10=1
goto 13total
)
if %cp11%==11 (
set cp11=1
goto 13total
)
if %cp12%==11 (
set cp12=1
goto 13total
)
if %cp13%==11 (
set cp13=1
goto 13total
)
goto busted

:no1
set e=1
set /a b=%a%+2
set /a c=%b%+1
echo The dealer has %cardo1% and %cardo2%.
echo %o1l1% %o2l1%&echo %o1l2% %o2l2%&echo %o1l3% %o2l3%&echo %o1l4% %o2l4%&echo %o1l5% %o2l5%&echo %o1l6% %o2l6%&echo %o1l7% %o2l7%&echo %o1l8% %o2l8%&echo %o1l9% %o2l9%
:dealercalcing
echo.
echo You currently have %b% cards totaling %total%
echo The dealer currently has a total of %dtotal%
if %dtotal% GEQ %total% goto lost
if %dtotal% LSS 17 goto dealerhit3
if %dtotal% LSS %total% goto wins
for /l %%E in (%c%,1,13) set card%%E=0
:dealerhit3
echo The dealer is dealing himself another card.
echo.
ping -n 5 localhost > nul
if %e%==2 goto dealerhit4
if %e%==3 goto dealerhit5
if %e%==4 goto dealerhit6
if %e%==5 goto dealerhit7
if %e%==6 goto dealerhit8
if %e%==7 goto dealerhit9
if %e%==8 goto dealerhit10
set /a e=%e%+1
:calo3
set /A oc3=%RANDOM% %% 13 + 2
set /A os3=%RANDOM% %% 4 + 1
if not %oc3% GTR 10 (
set faceo3=%oc3%
set facecardo3=~~%oc3%~~
if %oc3%==10 set facecardo3=~10~~
)
if %oc3%==11 (
set faceo3=Ace
set facecardo3=~Ace~
)
if %oc3%==12 (
set faceo3=Jack
set facecardo3=Jack~
set oc3=10
)
if %oc3%==13 (
set faceo3=Queen
set facecardo3=Queen
set oc3=10
)
if %oc3%==14 (
set faceo3=King
set facecardo3=King~
set oc3=10
)
if %os3%==1 set suito3=Diamonds
if %os3%==2 set suito3=Clubs
if %os3%==3 set suito3=Hearts
if %os3%==4 set suito3=Spades
set cardo3=%faceo3% of %suito3%
if "%cardo3%"=="%card2%" goto calo3
if "%cardo3%"=="%card1%" goto calo3
if "%cardo3%"=="%cardo1%" goto calo3
if "%cardo3%"=="%cardo2%" goto calo3
if "%cardo3%"=="%card3%" goto calo3
if "%cardo3%"=="%card4%" goto calo3
if "%cardo3%"=="%card5%" goto calo3
if "%cardo3%"=="%card6%" goto calo3
if "%cardo3%"=="%card7%" goto calo3
if "%cardo3%"=="%card8%" goto calo3
if "%cardo3%"=="%card9%" goto calo3
if "%cardo3%"=="%card10%" goto calo3
if "%cardo3%"=="%card11%" goto calo3
if "%cardo3%"=="%card12%" goto calo3
if "%cardo3%"=="%card13%" goto calo3
echo The dealer got %cardo3%
if %os3%==1 goto setcardo3d
if %os3%==2 goto setcardo3c
if %os3%==3 goto setcardo3h
if %os3%==4 goto setcardo3s
:dtotal3
echo %o3l1%&echo %o3l2%&echo %o3l3%&echo %o3l4%&echo %o3l5%&echo %o3l6%&echo %o3l7%&echo %o3l8%&echo %o3l9%
set /a dtotal=%oc1%+%oc2%+%oc3%
if %dtotal% GTR 21 goto ao1
if %dtotal% LEQ 21 goto dealercalcing
:ao1
if %oc1%==11 (
set oc1=1
goto dtotal3
)
if %oc2%==11 (
set oc2=1
goto dtotal3
)
if %oc3%==11 (
set oc3=1
goto dtotal3
)
goto dbusted

:dealerhit4
set /a e=%e%+1
:calo4
set /A oc4=%RANDOM% %% 13 + 2
set /A os4=%RANDOM% %% 4 + 1
if not %oc4% GTR 10 (
set faceo4=%oc4%
set facecardo4=~~%oc4%~~
if %oc4%==10 set facecardo4=~10~~
)
if %oc4%==11 (
set faceo4=Ace
set facecardo4=~Ace~
)
if %oc4%==12 (
set faceo4=Jack
set facecardo4=Jack~
set oc4=10
)
if %oc4%==13 (
set faceo4=Queen
set facecardo4=Queen
set oc4=10
)
if %oc4%==14 (
set faceo4=King
set facecardo4=King~
set oc4=10
)
if %os4%==1 set suito4=Diamonds
if %os4%==2 set suito4=Clubs
if %os4%==3 set suito4=Hearts
if %os4%==4 set suito4=Spades
set cardo4=%faceo4% of %suito4%
if "%cardo4%"=="%card2%" goto calo4
if "%cardo4%"=="%card1%" goto calo4
if "%cardo4%"=="%cardo1%" goto calo4
if "%cardo4%"=="%cardo2%" goto calo4
if "%cardo4%"=="%card3%" goto calo4
if "%cardo4%"=="%card4%" goto calo4
if "%cardo4%"=="%card5%" goto calo4
if "%cardo4%"=="%card6%" goto calo4
if "%cardo4%"=="%card7%" goto calo4
if "%cardo4%"=="%card8%" goto calo4
if "%cardo4%"=="%card9%" goto calo4
if "%cardo4%"=="%card10%" goto calo4
if "%cardo4%"=="%card11%" goto calo4
if "%cardo4%"=="%card12%" goto calo4
if "%cardo4%"=="%card13%" goto calo4
if "%cardo4%"=="%cardo3%" goto calo4
echo The dealer got %cardo4%
if %os4%==1 goto setcardo4d
if %os4%==2 goto setcardo4c
if %os4%==3 goto setcardo4h
if %os4%==4 goto setcardo4s
:dtotal4
echo %o4l1%&echo %o4l2%&echo %o4l3%&echo %o4l4%&echo %o4l5%&echo %o4l6%&echo %o4l7%&echo %o4l8%&echo %o4l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%
if %dtotal% GTR 21 goto ao2
if %dtotal% LEQ 21 goto dealercalcing
:ao2
if %oc1%==11 (
set oc1=1
goto dtotal4
)
if %oc2%==11 (
set oc2=1
goto dtotal4
)
if %oc3%==11 (
set oc3=1
goto dtotal4
)
if %oc4%==11 (
set oc4=1
goto dtotal4
)
goto dbusted

:dealerhit5
set /a e=%e%+1
:calo5
set /A oc5=%RANDOM% %% 13 + 2
set /A os5=%RANDOM% %% 4 + 1
if not %oc5% GTR 10 (
set faceo5=%oc5%
set facecardo5=~~%oc5%~~
if %oc5%==10 set facecardo5=~10~~
)
if %oc5%==11 (
set faceo5=Ace
set facecardo5=~Ace~
)
if %oc5%==12 (
set faceo5=Jack
set facecardo5=Jack~
set oc5=10
)
if %oc5%==13 (
set faceo5=Queen
set facecardo5=Queen
set oc5=10
)
if %oc5%==14 (
set faceo5=King
set facecardo5=King~
set oc5=10
)
if %os5%==1 set suito5=Diamonds
if %os5%==2 set suito5=Clubs
if %os5%==3 set suito5=Hearts
if %os5%==4 set suito5=Spades
set cardo5=%faceo5% of %suito5%
if "%cardo5%"=="%card2%" goto calo5
if "%cardo5%"=="%card1%" goto calo5
if "%cardo5%"=="%cardo1%" goto calo5
if "%cardo5%"=="%cardo2%" goto calo5
if "%cardo5%"=="%card3%" goto calo5
if "%cardo5%"=="%card4%" goto calo5
if "%cardo5%"=="%card5%" goto calo5
if "%cardo5%"=="%card6%" goto calo5
if "%cardo5%"=="%card7%" goto calo5
if "%cardo5%"=="%card8%" goto calo5
if "%cardo5%"=="%card9%" goto calo5
if "%cardo5%"=="%card10%" goto calo5
if "%cardo5%"=="%card11%" goto calo5
if "%cardo5%"=="%card12%" goto calo5
if "%cardo5%"=="%card13%" goto calo5
if "%cardo5%"=="%cardo3%" goto calo5
if "%cardo5%"=="%cardo4%" goto calo5
echo The dealer got %cardo5%
if %os5%==1 goto setcardo5d
if %os5%==2 goto setcardo5c
if %os5%==3 goto setcardo5h
if %os5%==4 goto setcardo5s
:dtotal5
echo %o5l1%&echo %o5l2%&echo %o5l3%&echo %o5l4%&echo %o5l5%&echo %o5l6%&echo %o5l7%&echo %o5l8%&echo %o5l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%
if %dtotal% GTR 21 goto ao3
if %dtotal% LEQ 21 goto dealercalcing
:ao3
if %oc1%==11 (
set oc1=1
goto dtotal5
)
if %oc2%==11 (
set oc2=1
goto dtotal5
)
if %oc3%==11 (
set oc3=1
goto dtotal5
)
if %oc4%==11 (
set oc4=1
goto dtotal5
)
if %oc5%==11 (
set oc5=1
goto dtotal5
)
goto dbusted
:dealerhit6
set /a e=%e%+1
:calo6
set /A oc6=%RANDOM% %% 13 + 2
set /A os6=%RANDOM% %% 4 + 1
if not %oc6% GTR 10 (
set faceo6=%oc6%
set facecardo6=~~%oc6%~~
if %oc6%==10 set facecardo6=~10~~
)
if %oc6%==11 (
set faceo6=Ace
set facecardo6=~Ace~
)
if %oc6%==12 (
set faceo6=Jack
set facecardo6=Jack~
set oc6=10
)
if %oc6%==13 (
set faceo6=Queen
set facecardo6=Queen
set oc6=10
)
if %oc6%==14 (
set faceo6=King
set facecardo6=King~
set oc6=10
)
if %os6%==1 set suito6=Diamonds
if %os6%==2 set suito6=Clubs
if %os6%==3 set suito6=Hearts
if %os6%==4 set suito6=Spades
set cardo6=%faceo6% of %suito6%
if "%cardo6%"=="%card2%" goto calo6
if "%cardo6%"=="%card1%" goto calo6
if "%cardo6%"=="%cardo1%" goto calo6
if "%cardo6%"=="%cardo2%" goto calo6
if "%cardo6%"=="%card3%" goto calo6
if "%cardo6%"=="%card4%" goto calo6
if "%cardo6%"=="%card5%" goto calo6
if "%cardo6%"=="%card6%" goto calo6
if "%cardo6%"=="%card7%" goto calo6
if "%cardo6%"=="%card8%" goto calo6
if "%cardo6%"=="%card9%" goto calo6
if "%cardo6%"=="%card10%" goto calo6
if "%cardo6%"=="%card11%" goto calo6
if "%cardo6%"=="%card12%" goto calo6
if "%cardo6%"=="%card13%" goto calo6
if "%cardo6%"=="%cardo3%" goto calo6
if "%cardo6%"=="%cardo4%" goto calo6
if "%cardo6%"=="%cardo5%" goto calo6
echo The dealer got %cardo6%
if %os6%==1 goto setcardo6d
if %os6%==2 goto setcardo6c
if %os6%==3 goto setcardo6h
if %os6%==4 goto setcardo6s
:dtotal6
echo %o6l1%&echo %o6l2%&echo %o6l3%&echo %o6l4%&echo %o6l5%&echo %o6l6%&echo %o6l7%&echo %o6l8%&echo %o6l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%+%oc6%
if %dtotal% GTR 21 goto ao4
if %dtotal% LEQ 21 goto dealercalcing
:ao4
if %oc1%==11 (
set oc1=1
goto dtotal6
)
if %oc2%==11 (
set oc2=1
goto dtotal6
)
if %oc3%==11 (
set oc3=1
goto dtotal6
)
if %oc4%==11 (
set oc4=1
goto dtotal6
)
if %oc5%==11 (
set oc5=1
goto dtotal6
)
if %oc6%==11 (
set oc6=1
goto dtotal6
)
goto dbusted

:dealerhit7
set /a e=%e%+1
:calo7
set /A oc7=%RANDOM% %% 13 + 2
set /A os7=%RANDOM% %% 4 + 1
if not %oc7% GTR 10 (
set faceo7=%oc7%
set facecardo7=~~%oc7%~~
if %oc7%==10 set facecardo7=~10~~
)
if %oc7%==11 (
set faceo7=Ace
set facecardo7=~Ace~
)
if %oc7%==12 (
set faceo7=Jack
set facecardo7=Jack~
set oc7=10
)
if %oc7%==13 (
set faceo7=Queen
set facecardo7=Queen
set oc7=10
)
if %oc7%==14 (
set faceo7=King
set facecardo7=King~
set oc7=10
)
if %os7%==1 set suito7=Diamonds
if %os7%==2 set suito7=Clubs
if %os7%==3 set suito7=Hearts
if %os7%==4 set suito7=Spades
set cardo7=%faceo7% of %suito7%
if "%cardo7%"=="%card2%" goto calo7
if "%cardo7%"=="%card1%" goto calo7
if "%cardo7%"=="%cardo1%" goto calo7
if "%cardo7%"=="%cardo2%" goto calo7
if "%cardo7%"=="%card3%" goto calo7
if "%cardo7%"=="%card4%" goto calo7
if "%cardo7%"=="%card5%" goto calo7
if "%cardo7%"=="%card6%" goto calo7
if "%cardo7%"=="%card7%" goto calo7
if "%cardo7%"=="%card8%" goto calo7
if "%cardo7%"=="%card9%" goto calo7
if "%cardo7%"=="%card10%" goto calo7
if "%cardo7%"=="%card11%" goto calo7
if "%cardo7%"=="%card12%" goto calo7
if "%cardo7%"=="%card13%" goto calo7
if "%cardo7%"=="%cardo3%" goto calo7
if "%cardo7%"=="%cardo4%" goto calo7
if "%cardo7%"=="%cardo5%" goto calo7
if "%cardo7%"=="%cardo6%" goto calo7
echo The dealer got %cardo7%
if %os7%==1 goto setcardo7d
if %os7%==2 goto setcardo7c
if %os7%==3 goto setcardo7h
if %os7%==4 goto setcardo7s
:dtotal7
echo %o7l1%&echo %o7l2%&echo %o7l3%&echo %o7l4%&echo %o7l5%&echo %o7l6%&echo %o7l7%&echo %o7l8%&echo %o7l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%+%oc6%+%oc7%
if %dtotal% GTR 21 goto ao5
if %dtotal% LEQ 21 goto dealercalcing
:ao5
if %oc1%==11 (
set oc1=1
goto dtotal7
)
if %oc2%==11 (
set oc2=1
goto dtotal7
)
if %oc3%==11 (
set oc3=1
goto dtotal7
)
if %oc4%==11 (
set oc4=1
goto dtotal7
)
if %oc5%==11 (
set oc5=1
goto dtotal7
)
if %oc6%==11 (
set oc6=1
goto dtotal7

if %oc7%==11 (
set oc7=1
goto dtotal7
)
goto dbusted

:dealerhit8
set /a e=%e%+1
:calo8
set /A oc8=%RANDOM% %% 13 + 2
set /A os8=%RANDOM% %% 4 + 1
if not %oc8% GTR 10 (
set faceo8=%oc8%
set facecardo8=~~%oc8%~~
if %oc8%==10 set facecardo8=~10~~
)
if %oc8%==11 (
set faceo8=Ace
set facecardo8=~Ace~
)
if %oc8%==12 (
set faceo8=Jack
set facecardo8=Jack~
set oc8=10
)
if %oc8%==13 (
set faceo8=Queen
set facecardo8=Queen
set oc8=10
)
if %oc8%==14 (
set faceo8=King
set facecardo8=King~
set oc8=10
)
if %os8%==1 set suito8=Diamonds
if %os8%==2 set suito8=Clubs
if %os8%==3 set suito8=Hearts
if %os8%==4 set suito8=Spades
set cardo8=%faceo8% of %suito8%
if "%cardo8%"=="%card2%" goto calo8
if "%cardo8%"=="%card1%" goto calo8
if "%cardo8%"=="%cardo1%" goto calo8
if "%cardo8%"=="%cardo2%" goto calo8
if "%cardo8%"=="%card3%" goto calo8
if "%cardo8%"=="%card4%" goto calo8
if "%cardo8%"=="%card5%" goto calo8
if "%cardo8%"=="%card6%" goto calo8
if "%cardo8%"=="%card7%" goto calo8
if "%cardo8%"=="%card8%" goto calo8
if "%cardo8%"=="%card9%" goto calo8
if "%cardo8%"=="%card10%" goto calo8
if "%cardo8%"=="%card11%" goto calo8
if "%cardo8%"=="%card12%" goto calo8
if "%cardo8%"=="%card13%" goto calo8
if "%cardo8%"=="%cardo3%" goto calo8
if "%cardo8%"=="%cardo4%" goto calo8
if "%cardo8%"=="%cardo5%" goto calo8
if "%cardo8%"=="%cardo6%" goto calo8
if "%cardo8%"=="%cardo7%" goto calo8
echo The dealer got %cardo8%
if %os8%==1 goto setcardo8d
if %os8%==2 goto setcardo8c
if %os8%==3 goto setcardo8h
if %os8%==4 goto setcardo8s
:dtotal8
echo %o8l1%&echo %o8l2%&echo %o8l3%&echo %o8l4%&echo %o8l5%&echo %o8l6%&echo %o8l7%&echo %o8l8%&echo %o8l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%+%oc6%+%oc7%+%oc8%
if %dtotal% GTR 21 goto ao6
if %dtotal% LEQ 21 goto dealercalcing
:ao6
if %oc1%==11 (
set oc1=1
goto dtotal8
)
if %oc2%==11 (
set oc2=1
goto dtotal8
)
if %oc3%==11 (
set oc3=1
goto dtotal8
)
if %oc4%==11 (
set oc4=1
goto dtotal8
)
if %oc5%==11 (
set oc5=1
goto dtotal8
)
if %oc6%==11 (
set oc6=1
goto dtotal8
)
if %oc7%==11 (
set oc7=1
goto dtotal8
)
if %oc8%==11 (
set oc8=1
goto dtotal8
)
goto dbusted

:dealerhit9
set /a e=%e%+1
:calo9
set /A oc9=%RANDOM% %% 13 + 2
set /A os9=%RANDOM% %% 4 + 1
if not %oc9% GTR 10 (
set faceo9=%oc9%
set facecardo9=~~%oc9%~~
if %oc9%==10 set facecardo9=~10~~
)
if %oc9%==11 (
set faceo9=Ace
set facecardo9=~Ace~
)
if %oc9%==12 (
set faceo9=Jack
set facecardo9=Jack~
set oc9=10
)
if %oc9%==13 (
set faceo9=Queen
set facecardo9=Queen
set oc9=10
)
if %oc9%==14 (
set faceo9=King
set facecardo9=King~
set oc9=10
)
if %os9%==1 set suito9=Diamonds
if %os9%==2 set suito9=Clubs
if %os9%==3 set suito9=Hearts
if %os9%==4 set suito9=Spades
set cardo9=%faceo9% of %suito9%
if "%cardo9%"=="%card2%" goto calo9
if "%cardo9%"=="%card1%" goto calo9
if "%cardo9%"=="%cardo1%" goto calo9
if "%cardo9%"=="%cardo2%" goto calo9
if "%cardo9%"=="%card3%" goto calo9
if "%cardo9%"=="%card4%" goto calo9
if "%cardo9%"=="%card5%" goto calo9
if "%cardo9%"=="%card6%" goto calo9
if "%cardo9%"=="%card7%" goto calo9
if "%cardo9%"=="%card8%" goto calo9
if "%cardo9%"=="%card9%" goto calo9
if "%cardo9%"=="%card10%" goto calo9
if "%cardo9%"=="%card11%" goto calo9
if "%cardo9%"=="%card12%" goto calo9
if "%cardo9%"=="%card13%" goto calo9
if "%cardo9%"=="%cardo3%" goto calo9
if "%cardo9%"=="%cardo4%" goto calo9
if "%cardo9%"=="%cardo5%" goto calo9
if "%cardo9%"=="%cardo6%" goto calo9
if "%cardo9%"=="%cardo7%" goto calo9
if "%cardo9%"=="%cardo8%" goto calo9
echo The dealer got %cardo9%
if %os9%==1 goto setcardo9d
if %os9%==2 goto setcardo9c
if %os9%==3 goto setcardo9h
if %os9%==4 goto setcardo9s
:dtotal9
echo %o9l1%&echo %o9l2%&echo %o9l3%&echo %o9l4%&echo %o9l5%&echo %o9l6%&echo %o9l7%&echo %o9l8%&echo %o9l9%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%+%oc6%+%oc7%+%oc8%+%oc9%
if %dtotal% GTR 21 goto ao7
if %dtotal% LEQ 21 goto dealercalcing
:ao7
if %oc1%==11 (
set oc1=1
goto dtotal9
)
if %oc2%==11 (
set oc2=1
goto dtotal9
)
if %oc3%==11 (
set oc3=1
goto dtotal9
)
if %oc4%==11 (
set oc4=1
goto dtotal9
)
if %oc5%==11 (
set oc5=1
goto dtotal9
)
if %oc6%==11 (
set oc6=1
goto dtotal9
)
if %oc7%==11 (
set oc7=1
goto dtotal9
)
if %oc8%==11 (
set oc8=1
goto dtotal9
)
if %oc9%==11 (
set oc9=1
goto dtotal9
)
goto dbusted

:dealerhit10
set /a e=%e%+1
:calo10
set /A oc10=%RANDOM% %% 13 + 2
set /A os0=%RANDOM% %% 4 + 1
if not %oc10% GTR 10 (
set faceo10=%oc10%
set facecardo10=~~%oc10%~~
if %oc10%==10 set facecardo10=~10~~
)
if %oc10%==11 (
set faceo10=Ace
set facecardo10=~Ace~
)
if %oc10%==12 (
set faceo10=Jack
set facecardo10=Jack~
set oc10=10
)
if %oc10%==13 (
set faceo10=Queen
set facecardo10=Queen
set oc10=10
)
if %oc10%==14 (
set faceo10=King
set facecardo10=King~
set oc10=10
)
if %os0%==1 set suito10=Diamonds
if %os0%==2 set suito10=Clubs
if %os0%==3 set suito10=Hearts
if %os0%==4 set suito10=Spades
set cardo10=%faceo10% of %suito10%
if "%cardo10%"=="%card2%" goto calo10
if "%cardo10%"=="%card1%" goto calo10
if "%cardo10%"=="%cardo1%" goto calo10
if "%cardo10%"=="%cardo2%" goto calo10
if "%cardo10%"=="%card3%" goto calo10
if "%cardo10%"=="%card4%" goto calo10
if "%cardo10%"=="%card5%" goto calo10
if "%cardo10%"=="%card6%" goto calo10
if "%cardo10%"=="%card7%" goto calo10
if "%cardo10%"=="%card8%" goto calo10
if "%cardo10%"=="%card9%" goto calo10
if "%cardo10%"=="%card10%" goto calo10
if "%cardo10%"=="%card11%" goto calo10
if "%cardo10%"=="%card12%" goto calo10
if "%cardo10%"=="%card13%" goto calo10
if "%cardo10%"=="%cardo3%" goto calo10
if "%cardo10%"=="%cardo4%" goto calo10
echo The dealer got %cardo10%
if %os0%==1 goto setcardo0d
if %os0%==2 goto setcardo0c
if %os0%==3 goto setcardo0h
if %os0%==4 goto setcardo0s
:dtotal10
echo %o0l1%&echo %o0l2%&echo %o0l3%&echo %o0l4%&echo %o0l5%&echo %o0l6%&echo %o0l7%&echo %o0l8%&echo %o309%
set /a dtotal=%oc1%+%oc2%+%oc3%+%oc4%+%oc5%+%oc6%+%oc7%+%oc8%+%oc9%+%oc10%
if %dtotal% GTR 21 goto ao8
if %dtotal% LEQ 21 goto dealercalcing
:ao8
if %oc1%==11 (
set oc1=1
goto dtotal10
)
if %oc2%==11 (
set oc2=1
goto dtotal10
)
if %oc3%==11 (
set oc3=1
goto dtotal10
)
if %oc4%==11 (
set oc4=1
goto dtotal10
)
if %oc5%==11 (
set oc5=1
goto dtotal10
)
if %oc6%==11 (
set oc6=1
goto dtotal10
)
if %oc7%==11 (
set oc7=1
goto dtotal10
)
if %oc8%==11 (
set oc8=1
goto dtotal10
)
if %oc9%==11 (
set oc9=1
goto dtotal10
)
if %oc10%==11 (
set oc10=1
goto dtotal10
)
goto dbusted

:dblackjack
echo The dealer has %cardo1% and %cardo2%.
echo %o1l1% %o2l1%&echo %o1l2% %o2l2%&echo %o1l3% %o2l3%&echo %o1l4% %o2l4%&echo %o1l5% %o2l5%&echo %o1l6% %o2l6%&echo %o1l7% %o2l7%&echo %o1l8% %o2l8%&echo %o1l9% %o2l9%
echo The dealer got a blackjack!
goto lost

:dbusted
echo The dealer busted! You won %bet%$
set /a current=%current%+%bet%
ping -n 5 localhost > nul
goto top

:wins
echo You beat the dealer! You won %bet%$
set /a current=%current%+%bet%
ping -n 5 localhost > nul
goto top

:busted
echo You busted!
goto lost

:blackjack
echo Blackjack pays 1.5x the original bet!
set /a pay=(%bet%*3)/2
set /a current=%current%+%pay%
echo You won %pay%$!
ping -n 5 localhost > nul
goto top

:lost
set /a current=%current%-%bet%
echo You lost %bet%$!
ping -n 5 localhost > nul
goto top

:failure
set lol=0
:failedloop
set /a lol=%lol%+1
cls
if %lol%==5 goto title
color b4
echo Y         Y  OOOOOOOOOOO  U         U
echo  Y       Y   O         O  U         U
echo   Y     Y    O         O  U         U
echo    Y   Y     O         O  U         U
echo     Y Y      O         O  U         U
echo      Y       O         O  U         U
echo      Y       O         O  U         U
echo      Y       O         O  U         U
echo      Y       OOOOOOOOOOO  UUUUUUUUUUU
echo.
ping -n 2 localhost > nul
color c9
echo L           OOOOOOOOOOO  SSSSSSSSSS TTTTTTTTTTT
echo L           O         O SS               T
echo L           O         O  SSS             T
echo L           O         O    SS            T
echo L           O         O     SS           T
echo L           O         O      SS          T
echo L           O         O       SSS        T
echo L           O         O         SS       T
echo LLLLLLLLLLL OOOOOOOOOOO SSSSSSSSS        T
echo.
ping -n 2 localhost > nul
color 85
echo TTTTTTTTTTT H         H EEEEEEEEEEE
echo      T      H         H E
echo      T      H         H E
echo      T      H         H E
echo      T      HHHHHHHHHHH EEEEEEEEEEE
echo      T      H         H E
echo      T      H         H E
echo      T      H         H E
echo      T      H         H EEEEEEEEEEE
echo.
ping -n 2 localhost > nul
color a1
echo GGGGGGGGGGG      A      M         M EEEEEEEEEEE
echo G               A A     MM       MM E
echo G              A   A    M M     M M E
echo G             A     A   M  M   M  M E
echo G            AAAAAAAAA  M   M M   M EEEEEEEEEEE
echo G     GGGGG A         A M    M    M E
echo G         G A         A M         M E
echo G         G A         A M         M E
echo GGGGGGGGGGG A         A M         M EEEEEEEEEEE
Set voice=%tmp%\welcome.vbs
echo Set sapi = CreateObject("sapi.spvoice") >> %voice%
echo Set fso = createobject("scripting.filesystemobject") >> %voice%
echo sapi.Speak "You lost the game" >> %voice%
echo fso.deletefile wscript.scriptfullname >> %voice%
start "" "%voice%"
ping -n 2 localhost > nul
goto failedloop

:winner
color b4
echo Y         Y  OOOOOOOOOOO  U         U
echo  Y       Y   O         O  U         U
echo   Y     Y    O         O  U         U
echo    Y   Y     O         O  U         U
echo     Y Y      O         O  U         U
echo      Y       O         O  U         U
echo      Y       O         O  U         U
echo      Y       O         O  U         U
echo      Y       OOOOOOOOOOO  UUUUUUUUUUU
echo.
ping -n 2 localhost > nul
color c9
echo W         W OOOOOOOOOOO NN        N
echo W         W O         O N N       N
echo W         W O         O N  N      N
echo W    W    W O         O N   N     N
echo W   W W   W O         O N    N    N
echo W  W   W  W O         O N     N   N
echo W W     W W O         O N      N  N
echo WW       WW O         O N       N N
echo W         W OOOOOOOOOOO N        NN
echo.
ping -n 2 localhost > nul
color 85
echo TTTTTTTTTTT H         H EEEEEEEEEEE
echo      T      H         H E
echo      T      H         H E
echo      T      H         H E
echo      T      HHHHHHHHHHH EEEEEEEEEEE
echo      T      H         H E
echo      T      H         H E
echo      T      H         H E
echo      T      H         H EEEEEEEEEEE
echo.
ping -n 2 localhost > nul
color a1
echo GGGGGGGGGGG      A      M         M EEEEEEEEEEE
echo G               A A     MM       MM E
echo G              A   A    M M     M M E
echo G             A     A   M  M   M  M E
echo G            AAAAAAAAA  M   M M   M EEEEEEEEEEE
echo G     GGGGG A         A M    M    M E
echo G         G A         A M         M E
echo G         G A         A M         M E
echo GGGGGGGGGGG A         A M         M EEEEEEEEEEE
Set voice=%tmp%\welcome.vbs
echo Set sapi = CreateObject("sapi.spvoice") >> %voice%
echo Set fso = createobject("scripting.filesystemobject") >> %voice%
echo sapi.Speak "You won the game. I, Microsoft Sammy, want to marry you and make love to you and build logical babies together." >> %voice%
echo fso.deletefile wscript.scriptfullname >> %voice%
start "" "%voice%"
goto title

::Setting card pics
:setcard1d
set c1l1= __________
set c1l2=I%facecard1%     I
set c1l3=I    /\    I
set c1l4=I   /  \   I
set c1l5=I  /    \  I
set c1l6=I  \    /  I
set c1l7=I   \  /   I
set c1l8=I    \/    I
set c1l9=I__________I
goto calculatec2
:setcard1c
set c1l1= __________
set c1l2=I%facecard1%     I
set c1l3=I    /\    I
set c1l4=I    \/    I
set c1l5=I  /\/\/\  I
set c1l6=I  \/\/\/  I
set c1l7=I    /\    I
set c1l8=I   /__\   I
set c1l9=I__________I
goto calculatec2
:setcard1h
set c1l1= __________
set c1l2=I%facecard1%     I
set c1l3=I  __  __  I
set c1l4=I (  \/  ) I
set c1l5=I  \    /  I
set c1l6=I   \  /   I
set c1l7=I    \/    I
set c1l8=I          I
set c1l9=I__________I
goto calculatec2
:setcard1s
set c1l1= __________
set c1l2=I%facecard1%     I
set c1l3=I    /\    I
set c1l4=I   /  \   I
set c1l5=I  / /\ \  I
set c1l6=I  \_\/_/  I
set c1l7=I    /\    I
set c1l8=I   /__\   I
set c1l9=I__________I
goto calculatec2
:setcard2d
set c2l1= __________
set c2l2=I%facecard2%     I
set c2l3=I    /\    I
set c2l4=I   /  \   I
set c2l5=I  /    \  I
set c2l6=I  \    /  I
set c2l7=I   \  /   I
set c2l8=I    \/    I
set c2l9=I__________I
goto calculateoc1
:setcard2c
set c2l1= __________
set c2l2=I%facecard2%     I
set c2l3=I    /\    I
set c2l4=I    \/    I
set c2l5=I  /\/\/\  I
set c2l6=I  \/\/\/  I
set c2l7=I    /\    I
set c2l8=I   /__\   I
set c2l9=I__________I
goto calculateoc1
:setcard2h
set c2l1= __________
set c2l2=I%facecard2%     I
set c2l3=I  __  __  I
set c2l4=I (  \/  ) I
set c2l5=I  \    /  I
set c2l6=I   \  /   I
set c2l7=I    \/    I
set c2l8=I          I
set c2l9=I__________I
goto calculateoc1
:setcard2s
set c2l1= __________
set c2l2=I%facecard2%     I
set c2l3=I    /\    I
set c2l4=I   /  \   I
set c2l5=I  / /\ \  I
set c2l6=I  \_\/_/  I
set c2l7=I    /\    I
set c2l8=I   /__\   I
set c2l9=I__________I
goto calculateoc1
:setcardo1d
set o1l1= __________
set o1l2=I%facecardo1%     I
set o1l3=I    /\    I
set o1l4=I   /  \   I
set o1l5=I  /    \  I
set o1l6=I  \    /  I
set o1l7=I   \  /   I
set o1l8=I    \/    I
set o1l9=I__________I
goto calculateoc2
:setcardo1c
set o1l1= __________
set o1l2=I%facecardo1%     I
set o1l3=I    /\    I
set o1l4=I    \/    I
set o1l5=I  /\/\/\  I
set o1l6=I  \/\/\/  I
set o1l7=I    /\    I
set o1l8=I   /__\   I
set o1l9=I__________I
goto calculateoc2
:setcardo1h
set o1l1= __________
set o1l2=I%facecardo1%     I
set o1l3=I  __  __  I
set o1l4=I (  \/  ) I
set o1l5=I  \    /  I
set o1l6=I   \  /   I
set o1l7=I    \/    I
set o1l8=I          I
set o1l9=I__________I
goto calculateoc2
:setcardo1s
set o1l1= __________
set o1l2=I%facecardo1%     I
set o1l3=I    /\    I
set o1l4=I   /  \   I
set o1l5=I  / /\ \  I
set o1l6=I  \_\/_/  I
set o1l7=I    /\    I
set o1l8=I   /__\   I
set o1l9=I__________I
goto calculateoc2
:setcardo2d
set o2l1= __________
set o2l2=I%facecardo2%     I
set o2l3=I    /\    I
set o2l4=I   /  \   I
set o2l5=I  /    \  I
set o2l6=I  \    /  I
set o2l7=I   \  /   I
set o2l8=I    \/    I
set o2l9=I__________I
goto calculatec3
:setcardo2c
set o2l1= __________
set o2l2=I%facecardo2%     I
set o2l3=I    /\    I
set o2l4=I    \/    I
set o2l5=I  /\/\/\  I
set o2l6=I  \/\/\/  I
set o2l7=I    /\    I
set o2l8=I   /__\   I
set o2l9=I__________I
goto calculatec3
:setcardo2h
set o2l1= __________
set o2l2=I%facecardo2%     I
set o2l3=I  __  __  I
set o2l4=I (  \/  ) I
set o2l5=I  \    /  I
set o2l6=I   \  /   I
set o2l7=I    \/    I
set o2l8=I          I
set o2l9=I__________I
goto calculatec3
:setcardo2s
set o2l1= __________
set o2l2=I%facecardo2%     I
set o2l3=I    /\    I
set o2l4=I   /  \   I
set o2l5=I  / /\ \  I
set o2l6=I  \_\/_/  I
set o2l7=I    /\    I
set o2l8=I   /__\   I
set o2l9=I__________I
goto calculatec3
:setcard3d
set c3l1= __________
set c3l2=I%facecard3%     I
set c3l3=I    /\    I
set c3l4=I   /  \   I
set c3l5=I  /    \  I
set c3l6=I  \    /  I
set c3l7=I   \  /   I
set c3l8=I    \/    I
set c3l9=I__________I
goto calculatec4
:setcard3c
set c3l1= __________
set c3l2=I%facecard3%     I
set c3l3=I    /\    I
set c3l4=I    \/    I
set c3l5=I  /\/\/\  I
set c3l6=I  \/\/\/  I
set c3l7=I    /\    I
set c3l8=I   /__\   I
set c3l9=I__________I
goto calculatec4
:setcard3h
set c3l1= __________
set c3l2=I%facecard3%     I
set c3l3=I  __  __  I
set c3l4=I (  \/  ) I
set c3l5=I  \    /  I
set c3l6=I   \  /   I
set c3l7=I    \/    I
set c3l8=I          I
set c3l9=I__________I
goto calculatec4
:setcard3s
set c3l1= __________
set c3l2=I%facecard3%     I
set c3l3=I    /\    I
set c3l4=I   /  \   I
set c3l5=I  / /\ \  I
set c3l6=I  \_\/_/  I
set c3l7=I    /\    I
set c3l8=I   /__\   I
set c3l9=I__________I
goto calculatec4
:setcard4d
set c4l1= __________
set c4l2=I%facecard4%     I
set c4l3=I    /\    I
set c4l4=I   /  \   I
set c4l5=I  /    \  I
set c4l6=I  \    /  I
set c4l7=I   \  /   I
set c4l8=I    \/    I
set c4l9=I__________I
goto calculatec5
:setcard4c
set c4l1= __________
set c4l2=I%facecard4%     I
set c4l3=I    /\    I
set c4l4=I    \/    I
set c4l5=I  /\/\/\  I
set c4l6=I  \/\/\/  I
set c4l7=I    /\    I
set c4l8=I   /__\   I
set c4l9=I__________I
goto calculatec5
:setcard4h
set c4l1= __________
set c4l2=I%facecard4%     I
set c4l3=I  __  __  I
set c4l4=I (  \/  ) I
set c4l5=I  \    /  I
set c4l6=I   \  /   I
set c4l7=I    \/    I
set c4l8=I          I
set c4l9=I__________I
goto calculatec5
:setcard4s
set c4l1= __________
set c4l2=I%facecard4%     I
set c4l3=I    /\    I
set c4l4=I   /  \   I
set c4l5=I  / /\ \  I
set c4l6=I  \_\/_/  I
set c4l7=I    /\    I
set c4l8=I   /__\   I
set c4l9=I__________I
goto calculatec5
:setcard5d
set c5l1= __________
set c5l2=I%facecard5%     I
set c5l3=I    /\    I
set c5l4=I   /  \   I
set c5l5=I  /    \  I
set c5l6=I  \    /  I
set c5l7=I   \  /   I
set c5l8=I    \/    I
set c5l9=I__________I
goto calculatec6
:setcard5c
set c5l1= __________
set c5l2=I%facecard5%     I
set c5l3=I    /\    I
set c5l4=I    \/    I
set c5l5=I  /\/\/\  I
set c5l6=I  \/\/\/  I
set c5l7=I    /\    I
set c5l8=I   /__\   I
set c5l9=I__________I
goto calculatec6
:setcard5h
set c5l1= __________
set c5l2=I%facecard5%     I
set c5l3=I  __  __  I
set c5l4=I (  \/  ) I
set c5l5=I  \    /  I
set c5l6=I   \  /   I
set c5l7=I    \/    I
set c5l8=I          I
set c5l9=I__________I
goto calculatec6
:setcard5s
set c5l1= __________
set c5l2=I%facecard5%     I
set c5l3=I    /\    I
set c5l4=I   /  \   I
set c5l5=I  / /\ \  I
set c5l6=I  \_\/_/  I
set c5l7=I    /\    I
set c5l8=I   /__\   I
set c5l9=I__________I
goto calculatec6
:setcard6d
set c6l1= __________
set c6l2=I%facecard6%     I
set c6l3=I    /\    I
set c6l4=I   /  \   I
set c6l5=I  /    \  I
set c6l6=I  \    /  I
set c6l7=I   \  /   I
set c6l8=I    \/    I
set c6l9=I__________I
goto calculatec7
:setcard6c
set c6l1= __________
set c6l2=I%facecard6%     I
set c6l3=I    /\    I
set c6l4=I    \/    I
set c6l5=I  /\/\/\  I
set c6l6=I  \/\/\/  I
set c6l7=I    /\    I
set c6l8=I   /__\   I
set c6l9=I__________I
goto calculatec7
:setcard6h
set c6l1= __________
set c6l2=I%facecard6%     I
set c6l3=I  __  __  I
set c6l4=I (  \/  ) I
set c6l5=I  \    /  I
set c6l6=I   \  /   I
set c6l7=I    \/    I
set c6l8=I          I
set c6l9=I__________I
goto calculatec7
:setcard6s
set c6l1= __________
set c6l2=I%facecard6%     I
set c6l3=I    /\    I
set c6l4=I   /  \   I
set c6l5=I  / /\ \  I
set c6l6=I  \_\/_/  I
set c6l7=I    /\    I
set c6l8=I   /__\   I
set c6l9=I__________I
goto calculatec7
:setcard7d
set c7l1= __________
set c7l2=I%facecard7%     I
set c7l3=I    /\    I
set c7l4=I   /  \   I
set c7l5=I  /    \  I
set c7l6=I  \    /  I
set c7l7=I   \  /   I
set c7l8=I    \/    I
set c7l9=I__________I
goto calculatec8
:setcard7c
set c7l1= __________
set c7l2=I%facecard7%     I
set c7l3=I    /\    I
set c7l4=I    \/    I
set c7l5=I  /\/\/\  I
set c7l6=I  \/\/\/  I
set c7l7=I    /\    I
set c7l8=I   /__\   I
set c7l9=I__________I
goto calculatec8
:setcard7h
set c7l1= __________
set c7l2=I%facecard7%     I
set c7l3=I  __  __  I
set c7l4=I (  \/  ) I
set c7l5=I  \    /  I
set c7l6=I   \  /   I
set c7l7=I    \/    I
set c7l8=I          I
set c7l9=I__________I
goto calculatec8
:setcard7s
set c7l1= __________
set c7l2=I%facecard7%     I
set c7l3=I    /\    I
set c7l4=I   /  \   I
set c7l5=I  / /\ \  I
set c7l6=I  \_\/_/  I
set c7l7=I    /\    I
set c7l8=I   /__\   I
set c7l9=I__________I
goto calculatec8
:setcard8d
set c8l1= __________
set c8l2=I%facecard8%     I
set c8l3=I    /\    I
set c8l4=I   /  \   I
set c8l5=I  /    \  I
set c8l6=I  \    /  I
set c8l7=I   \  /   I
set c8l8=I    \/    I
set c8l9=I__________I
goto calculatec9
:setcard8c
set c8l1= __________
set c8l2=I%facecard8%     I
set c8l3=I    /\    I
set c8l4=I    \/    I
set c8l5=I  /\/\/\  I
set c8l6=I  \/\/\/  I
set c8l7=I    /\    I
set c8l8=I   /__\   I
set c8l9=I__________I
goto calculatec9
:setcard8h
set c8l1= __________
set c8l2=I%facecard8%     I
set c8l3=I  __  __  I
set c8l4=I (  \/  ) I
set c8l5=I  \    /  I
set c8l6=I   \  /   I
set c8l7=I    \/    I
set c8l8=I          I
set c8l9=I__________I
goto calculatec9
:setcard8s
set c8l1= __________
set c8l2=I%facecard8%     I
set c8l3=I    /\    I
set c8l4=I   /  \   I
set c8l5=I  / /\ \  I
set c8l6=I  \_\/_/  I
set c8l7=I    /\    I
set c8l8=I   /__\   I
set c8l9=I__________I
goto calculatec9
:setcard9d
set c9l1= __________
set c9l2=I%facecard9%     I
set c9l3=I    /\    I
set c9l4=I   /  \   I
set c9l5=I  /    \  I
set c9l6=I  \    /  I
set c9l7=I   \  /   I
set c9l8=I    \/    I
set c9l9=I__________I
goto calculatec10
:setcard9c
set c9l1= __________
set c9l2=I%facecard9%     I
set c9l3=I    /\    I
set c9l4=I    \/    I
set c9l5=I  /\/\/\  I
set c9l6=I  \/\/\/  I
set c9l7=I    /\    I
set c9l8=I   /__\   I
set c9l9=I__________I
goto calculatec10
:setcard9h
set c9l1= __________
set c9l2=I%facecard9%     I
set c9l3=I  __  __  I
set c9l4=I (  \/  ) I
set c9l5=I  \    /  I
set c9l6=I   \  /   I
set c9l7=I    \/    I
set c9l8=I          I
set c9l9=I__________I
goto calculatec10
:setcard9s
set c9l1= __________
set c9l2=I%facecard9%     I
set c9l3=I    /\    I
set c9l4=I   /  \   I
set c9l5=I  / /\ \  I
set c9l6=I  \_\/_/  I
set c9l7=I    /\    I
set c9l8=I   /__\   I
set c9l9=I__________I
goto calculatec10
:setcard10d
set c10l1= __________
set c10l2=I%facecard10%     I
set c10l3=I    /\    I
set c10l4=I   /  \   I
set c10l5=I  /    \  I
set c10l6=I  \    /  I
set c10l7=I   \  /   I
set c10l8=I    \/    I
set c10l9=I__________I
goto calculatec11
:setcard10c
set c10l1= __________
set c10l2=I%facecard10%     I
set c10l3=I    /\    I
set c10l4=I    \/    I
set c10l5=I  /\/\/\  I
set c10l6=I  \/\/\/  I
set c10l7=I    /\    I
set c10l8=I   /__\   I
set c10l9=I__________I
goto calculatec11
:setcard10h
set c10l1= __________
set c10l2=I%facecard11%     I
set c10l3=I  __  __  I
set c10l4=I (  \/  ) I
set c10l5=I  \    /  I
set c10l6=I   \  /   I
set c10l7=I    \/    I
set c10l8=I          I
set c10l9=I__________I
goto calculatec11
:setcard10s
set c10l1= __________
set c10l2=I%facecard10%     I
set c10l3=I    /\    I
set c10l4=I   /  \   I
set c10l5=I  / /\ \  I
set c10l6=I  \_\/_/  I
set c10l7=I    /\    I
set c10l8=I   /__\   I
set c10l9=I__________I
goto calculatec11
:setcard11d
set c11l1= __________
set c11l2=I%facecard11%     I
set c11l3=I    /\    I
set c11l4=I   /  \   I
set c11l5=I  /    \  I
set c11l6=I  \    /  I
set c11l7=I   \  /   I
set c11l8=I    \/    I
set c11l9=I__________I
goto calculatec12
:setcard11c
set c11l1= __________
set c11l2=I%facecard11%     I
set c11l3=I    /\    I
set c11l4=I    \/    I
set c11l5=I  /\/\/\  I
set c11l6=I  \/\/\/  I
set c11l7=I    /\    I
set c11l8=I   /__\   I
set c11l9=I__________I
goto calculatec12
:setcard11h
set c11l1= __________
set c11l2=I%facecard11%     I
set c11l3=I  __  __  I
set c11l4=I (  \/  ) I
set c11l5=I  \    /  I
set c11l6=I   \  /   I
set c11l7=I    \/    I
set c11l8=I          I
set c11l9=I__________I
goto calculatec12
:setcard11s
set c11l1= __________
set c11l2=I%facecard11%     I
set c11l3=I    /\    I
set c11l4=I   /  \   I
set c11l5=I  / /\ \  I
set c11l6=I  \_\/_/  I
set c11l7=I    /\    I
set c11l8=I   /__\   I
set c11l9=I__________I
goto calculatec12
:setcard12d
set c12l1= __________
set c12l2=I%facecard12%     I
set c12l3=I    /\    I
set c12l4=I   /  \   I
set c12l5=I  /    \  I
set c12l6=I  \    /  I
set c12l7=I   \  /   I
set c12l8=I    \/    I
set c12l9=I__________I
goto calculatec13
:setcard12c
set c12l1= __________
set c12l2=I%facecard12%     I
set c12l3=I    /\    I
set c12l4=I    \/    I
set c12l5=I  /\/\/\  I
set c12l6=I  \/\/\/  I
set c12l7=I    /\    I
set c12l8=I   /__\   I
set c12l9=I__________I
goto calculatec13
:setcard12h
set c12l1= __________
set c12l2=I%facecard12%     I
set c12l3=I  __  __  I
set c12l4=I (  \/  ) I
set c12l5=I  \    /  I
set c12l6=I   \  /   I
set c12l7=I    \/    I
set c12l8=I          I
set c12l9=I__________I
goto calculatec13
:setcard12s
set c12l1= __________
set c12l2=I%facecard12%     I
set c12l3=I    /\    I
set c12l4=I   /  \   I
set c12l5=I  / /\ \  I
set c12l6=I  \_\/_/  I
set c12l7=I    /\    I
set c12l8=I   /__\   I
set c12l9=I__________I
goto calculatec13
:setcard13d
set c13l1= __________
set c13l2=I%facecard13%     I
set c13l3=I    /\    I
set c13l4=I   /  \   I
set c13l5=I  /    \  I
set c13l6=I  \    /  I
set c13l7=I   \  /   I
set c13l8=I    \/    I
set c13l9=I__________I
goto after13
:setcard13c
set c13l1= __________
set c13l2=I%facecard13%     I
set c13l3=I    /\    I
set c13l4=I    \/    I
set c13l5=I  /\/\/\  I
set c13l6=I  \/\/\/  I
set c13l7=I    /\    I
set c13l8=I   /__\   I
set c13l9=I__________I
goto after13
:setcard13h
set c13l1= __________
set c13l2=I%facecard13%     I
set c13l3=I  __  __  I
set c13l4=I (  \/  ) I
set c13l5=I  \    /  I
set c13l6=I   \  /   I
set c13l7=I    \/    I
set c13l8=I          I
set c13l9=I__________I
goto after13
:setcard13s
set c13l1= __________
set c13l2=I%facecard13%     I
set c13l3=I    /\    I
set c13l4=I   /  \   I
set c13l5=I  / /\ \  I
set c13l6=I  \_\/_/  I
set c13l7=I    /\    I
set c13l8=I   /__\   I
set c13l9=I__________I
goto after13
:setcardo3d
set o3l1= __________
set o3l2=I%facecardo3%     I
set o3l3=I    /\    I
set o3l4=I   /  \   I
set o3l5=I  /    \  I
set o3l6=I  \    /  I
set o3l7=I   \  /   I
set o3l8=I    \/    I
set o3l9=I__________I
goto dtotal3
:setcardo3c
set o3l1= __________
set o3l2=I%facecardo3%     I
set o3l3=I    /\    I
set o3l4=I    \/    I
set o3l5=I  /\/\/\  I
set o3l6=I  \/\/\/  I
set o3l7=I    /\    I
set o3l8=I   /__\   I
set o3l9=I__________I
goto dtotal3
:setcardo3h
set o3l1= __________
set o3l2=I%facecardo3%     I
set o3l3=I  __  __  I
set o3l4=I (  \/  ) I
set o3l5=I  \    /  I
set o3l6=I   \  /   I
set o3l7=I    \/    I
set o3l8=I          I
set o3l9=I__________I
goto dtotal3
:setcardo3s
set o3l1= __________
set o3l2=I%facecardo3%     I
set o3l3=I    /\    I
set o3l4=I   /  \   I
set o3l5=I  / /\ \  I
set o3l6=I  \_\/_/  I
set o3l7=I    /\    I
set o3l8=I   /__\   I
set o3l9=I__________I
goto dtotal3
:setcardo4d
set o4l1= __________
set o4l2=I%facecardo4%     I
set o4l3=I    /\    I
set o4l4=I   /  \   I
set o4l5=I  /    \  I
set o4l6=I  \    /  I
set o4l7=I   \  /   I
set o4l8=I    \/    I
set o4l9=I__________I
goto dtotal4
:setcardo4c
set o4l1= __________
set o4l2=I%facecardo4%     I
set o4l3=I    /\    I
set o4l4=I    \/    I
set o4l5=I  /\/\/\  I
set o4l6=I  \/\/\/  I
set o4l7=I    /\    I
set o4l8=I   /__\   I
set o4l9=I__________I
goto dtotal4
:setcardo4h
set o4l1= __________
set o4l2=I%facecardo4%     I
set o4l3=I  __  __  I
set o4l4=I (  \/  ) I
set o4l5=I  \    /  I
set o4l6=I   \  /   I
set o4l7=I    \/    I
set o4l8=I          I
set o4l9=I__________I
goto dtotal4
:setcardo4s
set o4l1= __________
set o4l2=I%facecardo4%     I
set o4l3=I    /\    I
set o4l4=I   /  \   I
set o4l5=I  / /\ \  I
set o4l6=I  \_\/_/  I
set o4l7=I    /\    I
set o4l8=I   /__\   I
set o4l9=I__________I
goto dtotal4
:setcardo5d
set o5l1= __________
set o5l2=I%facecardo5%     I
set o5l3=I    /\    I
set o5l4=I   /  \   I
set o5l5=I  /    \  I
set o5l6=I  \    /  I
set o5l7=I   \  /   I
set o5l8=I    \/    I
set o5l9=I__________I
goto dtotal5
:setcardo5c
set o5l1= __________
set o5l2=I%facecardo5%     I
set o5l3=I    /\    I
set o5l4=I    \/    I
set o5l5=I  /\/\/\  I
set o5l6=I  \/\/\/  I
set o5l7=I    /\    I
set o5l8=I   /__\   I
set o5l9=I__________I
goto dtotal5
:setcardo5h
set o5l1= __________
set o5l2=I%facecardo5%     I
set o5l3=I  __  __  I
set o5l4=I (  \/  ) I
set o5l5=I  \    /  I
set o5l6=I   \  /   I
set o5l7=I    \/    I
set o5l8=I          I
set o5l9=I__________I
goto dtotal5
:setcardo5s
set o5l1= __________
set o5l2=I%facecardo5%     I
set o5l3=I    /\    I
set o5l4=I   /  \   I
set o5l5=I  / /\ \  I
set o5l6=I  \_\/_/  I
set o5l7=I    /\    I
set o5l8=I   /__\   I
set o5l9=I__________I
goto dtotal5
:setcardo6d
set o6l1= __________
set o6l2=I%facecardo6%     I
set o6l3=I    /\    I
set o6l4=I   /  \   I
set o6l5=I  /    \  I
set o6l6=I  \    /  I
set o6l7=I   \  /   I
set o6l8=I    \/    I
set o6l9=I__________I
goto dtotal6
:setcardo6c
set o6l1= __________
set o6l2=I%facecardo6%     I
set o6l3=I    /\    I
set o6l4=I    \/    I
set o6l5=I  /\/\/\  I
set o6l6=I  \/\/\/  I
set o6l7=I    /\    I
set o6l8=I   /__\   I
set o6l9=I__________I
goto dtotal6
:setcardo6h
set o6l1= __________
set o6l2=I%facecardo6%     I
set o6l3=I  __  __  I
set o6l4=I (  \/  ) I
set o6l5=I  \    /  I
set o6l6=I   \  /   I
set o6l7=I    \/    I
set o6l8=I          I
set o6l9=I__________I
goto dtotal6
:setcardo6s
set o6l1= __________
set o6l2=I%facecardo6%     I
set o6l3=I    /\    I
set o6l4=I   /  \   I
set o6l5=I  / /\ \  I
set o6l6=I  \_\/_/  I
set o6l7=I    /\    I
set o6l8=I   /__\   I
set o6l9=I__________I
goto dtotal6
:setcardo7d
set o7l1= __________
set o7l2=I%facecardo7%     I
set o7l3=I    /\    I
set o7l4=I   /  \   I
set o7l5=I  /    \  I
set o7l6=I  \    /  I
set o7l7=I   \  /   I
set o7l8=I    \/    I
set o7l9=I__________I
goto dtotal7
:setcardo7c
set o7l1= __________
set o7l2=I%facecardo7%     I
set o7l3=I    /\    I
set o7l4=I    \/    I
set o7l5=I  /\/\/\  I
set o7l6=I  \/\/\/  I
set o7l7=I    /\    I
set o7l8=I   /__\   I
set o7l9=I__________I
goto dtotal7
:setcardo7h
set o7l1= __________
set o7l2=I%facecardo7%     I
set o7l3=I  __  __  I
set o7l4=I (  \/  ) I
set o7l5=I  \    /  I
set o7l6=I   \  /   I
set o7l7=I    \/    I
set o7l8=I          I
set o7l9=I__________I
goto dtotal7
:setcardo7s
set o7l1= __________
set o7l2=I%facecardo7%     I
set o7l3=I    /\    I
set o7l4=I   /  \   I
set o7l5=I  / /\ \  I
set o7l6=I  \_\/_/  I
set o7l7=I    /\    I
set o7l8=I   /__\   I
set o7l9=I__________I
goto dtotal7
:setcardo8d
set o8l1= __________
set o8l2=I%facecardo8%     I
set o8l3=I    /\    I
set o8l4=I   /  \   I
set o8l5=I  /    \  I
set o8l6=I  \    /  I
set o8l7=I   \  /   I
set o8l8=I    \/    I
set o8l9=I__________I
goto dtotal8
:setcardo8c
set o8l1= __________
set o8l2=I%facecardo8%     I
set o8l3=I    /\    I
set o8l4=I    \/    I
set o8l5=I  /\/\/\  I
set o8l6=I  \/\/\/  I
set o8l7=I    /\    I
set o8l8=I   /__\   I
set o8l9=I__________I
goto dtotal8
:setcardo8h
set o8l1= __________
set o8l2=I%facecardo8%     I
set o8l3=I  __  __  I
set o8l4=I (  \/  ) I
set o8l5=I  \    /  I
set o8l6=I   \  /   I
set o8l7=I    \/    I
set o8l8=I          I
set o8l9=I__________I
goto dtotal8
:setcardo8s
set o8l1= __________
set o8l2=I%facecardo8%     I
set o8l3=I    /\    I
set o8l4=I   /  \   I
set o8l5=I  / /\ \  I
set o8l6=I  \_\/_/  I
set o8l7=I    /\    I
set o8l8=I   /__\   I
set o8l9=I__________I
goto dtotal8
:setcardo9d
set o9l1= __________
set o9l2=I%facecardo9%     I
set o9l3=I    /\    I
set o9l4=I   /  \   I
set o9l5=I  /    \  I
set o9l6=I  \    /  I
set o9l7=I   \  /   I
set o9l8=I    \/    I
set o9l9=I__________I
goto dtotal9
:setcardo9c
set o9l1= __________
set o9l2=I%facecardo9%     I
set o9l3=I    /\    I
set o9l4=I    \/    I
set o9l5=I  /\/\/\  I
set o9l6=I  \/\/\/  I
set o9l7=I    /\    I
set o9l8=I   /__\   I
set o9l9=I__________I
goto dtotal9
:setcardo9h
set o9l1= __________
set o9l2=I%facecardo9%     I
set o9l3=I  __  __  I
set o9l4=I (  \/  ) I
set o9l5=I  \    /  I
set o9l6=I   \  /   I
set o9l7=I    \/    I
set o9l8=I          I
set o9l9=I__________I
goto dtotal9
:setcardo9s
set o9l1= __________
set o9l2=I%facecardo9%     I
set o9l3=I    /\    I
set o9l4=I   /  \   I
set o9l5=I  / /\ \  I
set o9l6=I  \_\/_/  I
set o9l7=I    /\    I
set o9l8=I   /__\   I
set o9l9=I__________I
goto dtotal9
:setcardo0d
set o0l1= __________
set o0l2=I%facecardo0%     I
set o0l3=I    /\    I
set o0l4=I   /  \   I
set o0l5=I  /    \  I
set o0l6=I  \    /  I
set o0l7=I   \  /   I
set o0l8=I    \/    I
set o0l9=I__________I
goto dtotal10
:setcardo0c
set o0l1= __________
set o0l2=I%facecardo0%     I
set o0l3=I    /\    I
set o0l4=I    \/    I
set o0l5=I  /\/\/\  I
set o0l6=I  \/\/\/  I
set o0l7=I    /\    I
set o0l8=I   /__\   I
set o0l9=I__________I
goto dtotal10
:setcardo0h
set o0l1= __________
set o0l2=I%facecardo0%     I
set o0l3=I  __  __  I
set o0l4=I (  \/  ) I
set o0l5=I  \    /  I
set o0l6=I   \  /   I
set o0l7=I    \/    I
set o0l8=I          I
set o0l9=I__________I
goto dtotal10
:setcardo0s
set o0l1= __________
set o0l2=I%facecardo0%     I
set o0l3=I    /\    I
set o0l4=I   /  \   I
set o0l5=I  / /\ \  I
set o0l6=I  \_\/_/  I
set o0l7=I    /\    I
set o0l8=I   /__\   I
set o0l9=I__________I
goto dtotal10
:setcardempty
set empty1= __________
set empty2=I          I
set empty3=I  [][][]  I
set empty4=I  []  []  I
set empty5=I     []   I
set empty6=I    []    I
set empty7=I          I
set empty8=I    []    I
set empty9=I__________I
goto top