Roll Dice Batch Game

@Echo Off
Title RollDice
Mode con cols=30 lines=14

::RollDice Game
::Coded by SmartGenius

setlocal enabledelayedexpansion

:Main
For /l %%n in (1,1,2) do (
For /l %%d in (1,1,6) do (
Set "D%%n_%%d= "
))
For /l %%n in (1,1,2) do (
Set /a "R%%n=(!Random! %% 6)+1"
Set "D%%n_!R%%n!=o"
)
For /l %%d in (1,1,2) do (
If "!D%%d_5!"=="o" (
Set "D%%d_1="
Set "D%%d_7= "
) else (
Set "D%%d_7="
))
Call :DiceFrames

:Animate
For /l %%f in (1,1,4) do (
Ping -n 2 localhost >nul
Cls
For /l %%g in (1,1,8) do (
Echo. !Dice_F%%f_%%g!
))
Echo.
Echo.     %R1%      -     %R2%
Echo.
Echo.  Presione cualquier tecla
Echo.  para tirar los dados
Pause >nul
Goto :Main

:DiceFrames
Set "Dice_F1_1=                            "
Set "Dice_F1_2=           ____             "
Set "Dice_F1_3=          /\' .\    _____   "
Set "Dice_F1_4=         /: \___\  / .  /\  "
Set "Dice_F1_5=         \' / . / /____/..\ "
Set "Dice_F1_6=          \/___/  \'  '\  / "
Set "Dice_F1_7=                   \'__'\/  "
Set "Dice_F1_8=                            "
:::::::::::::::
Set "Dice_F2_1=                            "
Set "Dice_F2_2=               ____         "
Set "Dice_F2_3=     ____     /\' .\        "
Set "Dice_F2_4=    / .  /\  /  \___\       "
Set "Dice_F2_5=   /____/..\ \' / . /       "
Set "Dice_F2_6=   \'  '\  /  \/___/        "
Set "Dice_F2_7=    \'__'\/                 "
Set "Dice_F2_8=                            "
:::::::::::::::
Set "Dice_F3_1=                _______.    "
Set "Dice_F3_2=     ______    ³ .   . ³\   "
Set "Dice_F3_3=    /     /\   ³   .   ³.\  "
Set "Dice_F3_4=   /  '  /  \  ³ .   . ³.'³ "
Set "Dice_F3_5=  /_____/. . \ ³_______³.'³ "
Set "Dice_F3_6=  \ . . \    /  \ ' .   \'³ "
Set "Dice_F3_7=   \ . . \  /    \____'__\³ "
Set "Dice_F3_8=    \_____\/                "
:::::::::::::::
Set "Dice_F4_1=              ÚÄÄÄÄÄÄÄÄ¿    "
Set "Dice_F4_2= ÚÄÄÄÄÄÄÄÄ¿   ³%D2_6%%D2_3%    %D2_2%%D2_6%³    "
Set "Dice_F4_3= ³%D1_6%%D1_3%    %D1_2%%D1_6%³   ³ %D2_4%%D2_5%  %D2_4%%D2_5% ³    "
Set "Dice_F4_4= ³ %D1_4%%D1_5%  %D1_4%%D1_5% ³   ³%D2_6%  %D2_3%%D2_1%%D2_5%%D2_7% %D2_6%³    "
Set "Dice_F4_5= ³%D1_6%  %D1_3%%D1_1%%D1_5%%D1_7% %D1_6%³   ³ %D2_4%%D2_5%  %D2_4%%D2_5% ³    "
Set "Dice_F4_6= ³ %D1_4%%D1_5%  %D1_4%%D1_5% ³   ³%D2_6%%D2_2%    %D2_3%%D2_6%³    "
Set "Dice_F4_7= ³%D1_6%%D1_2%    %D1_3%%D1_6%³   ÀÄÄÄÄÄÄÄÄÙ    "
Set "Dice_F4_8= ÀÄÄÄÄÄÄÄÄÙ                 "
Goto :Eof