Foro de elhacker.net

@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%

"q=pause>nul"

"q=pause >nul"

@echo Off
seTlocaL EnableDelayedExpansion
moDe cOn cols=32 lineS=10
::BY HGP or Guerrerohgp
tiTle Divinador&color a
seT "q=pause>nul"
echo.
echo.
echo.
echO.Elige un Numero en tu mente^!
pause>nul
cls
echo.
echo.
echo.
echO.Ahora te doy esa misma cantidad que elegiste
echo.
echo.
echo.
echO.Y sumala^!.
pause>nul
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
echo.
echo.
echo.
echO.ahora sumale %R%
pause>nul
cls
echo.
echo.
echo.
echO.ahora divide eso entre 2
pause>nul
cls
echo.
echo.
echo.
echO.Y por ultimo dame lo que te di!
pause>nul
cls
echo.
echo.
echo.
echO.JAJAJA. Ya Se Tu resultado
pause>nul
cls
echo.
echo.
echo.
echO.Tu resutado es %d%
pause>nul
cls
echo.
echo.
echo.
echo.Bytes, bye
pause>nul