ADIVINADOR

Bueno se que es un poco tonto, pero me gusto el juegito de que te adivina el numero. y pues lo hic.
c que es muy simple pero espero se diviertan un poco XD.

tambien c que no es lo que yo normalmente postearia pero ya que, me sigue pareciendo divertido para algunos hacerlos caer XD
CoDe:

@echo Off
seTlocaL EnableDelayedExpansion
moDe cOn cols=32 lineS=10
::BY HGP or Guerrerohgp
tiTle Divinador&color a
seT "cntr=echo.&echo.&echo.&"&seT "q=pause>nul"
%cntr%echO.Elige un Numero en tu mente^!&%q%&cls
%cntr%echO.Ahora te doy esa misma cantidad que elegiste
%cntr%echO.Y sumala^!.&%q%
seT/a "r=%random%%%50"
for /l %%a in (2,2,100) do (seT/a "s+=1"
if "!s!" equ "!r!" (seT "r=%%a"))
:fn
seT/a d=%R%/2
cls&%cntr%echO.ahora sumale %R%&%q%
cls&%cntr%echO.ahora divide eso entre 2&%q%
cls&%cntr%echO.Y por ultimo dame lo que te di!&%q%
cls&%cntr%echO.JAJAJA. Ya Se Tu resultado&%q%
cls&%cntr%echO.Tu resutado es %d%&%q%
cls&echo.Bytes, bye&%q%