@Echo Off
 
:: Puedes agregar más extensiones separadas por espacios.
Set "Ext=*.bat *.cmd"
 
:: %%A = *.bat
:: %%B = *.cmd
For /F "Tokens=1,2 Delims= " %%A In ("%Ext%") Do (
  If Exist %%A (
    Echo Existe al menos un archivo %%A
    Pause>Nul
    Exit
  ) Else (
    Echo No existe ningún archivo %%A
    Pause>Nul
    Exit
  )
)
 

@Echo Off
 
If Exist *.exe (Echo Hay por los menos un archivo .exe)&Pause&Exit
Echo No hay nungun archivo .exe
 
Pause

@Echo Off
@Title -= Learning v1.5=- - .:Xx4NG3LxX:.
@Mode 31,25
@Color 1B
 
::::::::::::::::::::::::::::
:: Programa para fomentar ::
::     el aprendizaje     ::
::        infantil        ::
::::::::::::::::::::::::::::
 
Set /A "Points=0"
Set /A "Tries=0"
 
:Label
Cls
Echo+
Set /P "Kid=Nombre >>> "
 
If Not Defined Kid (Goto :Label)
 
:Inicio : Inicio del programa...
Cls
Echo+
Echo+ +---------------------------+
Echo+ ^|      Learning v1.5       ^|
Echo+ +---------------------------+
Echo+
Echo+         Menu Principal
Echo+
Echo+      1.    Empezar !
Echo+      2.     Salir
 
Choice /C:12 /N >NUL
 
REM IF's ErrorLevel's
 
If "%ErrorLevel%" Equ "2" (Goto :Eof)
 
:Begin : Empieza el juego...
Color 1B
If "%Points%" Equ "10" (Goto :Win)
Cls
Call :Nums
Echo+
Echo+ Puntos: %Points%
Echo+
Echo+ Intentos: %Tries%
Echo+ ----------------------
Echo+ Operacion:
Echo+
Echo+ %n1% %Signo% %n2%
Echo+
Set "Ans="
Set /P "Ans=>>> "
 
If Not Defined Ans (Goto :Begin)
 
If /I "%Ans%"=="X" (Exit)
 
If "%Ans%" Equ "%Ope%" (Goto :Ok) Else (Goto :No)
 
:Nums
Set /A "n1=(%Random% %% 11)"
Set /A "n2=(%Random% %% 11)"
Set /A "NSigno=(%Random% %% 2)"
Set "Signo=+-"
 
  Call Set "Signo=%%Signo:~%NSigno%,1%%"
 
  Set /A "Ope=%n1%%Signo%%n2%"
 
  If "%Ope:~0,1%"=="-" (Call :Nums)
Goto :Eof
 
:Ok
Color 2F
Echo+
Echo+         Excelente !
Set /A "Points+=1"
Set /A "Tries+=1"
Ping -n 2 LocalHost >Nul
Goto :Begin
 
:No
Color 4e
Echo+
Echo+         Lo siento :(
Set /A "Points-=1"
Set /A "Tries+=1"
Ping -n 2 LocalHost >Nul
Goto :Begin
 
:Win
Cls
Color 2F
Echo+
Echo+     Has Ganado el Juego !
Echo+         Felicidades
Pause>Nul
 
(
Echo %Kid%
Echo+
Echo Puntos: %Points%
Echo Intentos: %Tries%
Echo+
Echo+
)>>%Kid%_Wins.txt
 
Exit