Juegos batch (recopilatorio)

Cyg0g · 2 Diciembre 2009, 15:43 PM

Bueno, la verdad es que veo mucha gente que le gusta divertirse con la programación al igual que yo. Por eso el motivo de este post es que todo user que quiera añadir juegos que escriban o recopilen de internet escritos en batch los posteen aki..
P.D: Siempre poner Fuente o Autor.

Estos son algunos que encontre (tienen autor en su code):

Código [Seleccionar]

@echo off
title Adivinanza
:menu
cls
color 0b
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º Adivina El Numero º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
echo.
echo.
echo Elige la dificultad del juego.
echo.
echo 1_Facil *1-99*
echo.
echo 2_Moderado *1-999*
echo.
echo 3_Dificil *1-9.999*
echo.
echo 4_Muy dificil *1-999.999*
echo.
echo 5_Imposible *1-99.999.999*
echo.
echo.
echo 0_Salir
echo.
echo.
set /p "dif=>"
If %dif%==1 goto nacil
If %dif%==2 goto moderado
If %dif%==3 goto dificil
If %dif%==4 goto muydificil
If %dif%==5 goto imposible
if %dif%==0 goto salir
if %dif% gtr 5 goto error
:nacil
cls
color 0a
echo.
echo Se ha elegido un Numero al azar....
set azar=%random:~1,2%
echo.
set /p var=adivina el numero:
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:moderado
cls
color 0a
echo.
echo Se ha elegido un Numero al azar....
set azar=%random:~1,3%
echo.
set /p var=adivina el numero:
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:dificil
cls
color 0a
echo.
echo Se ha elegido un Numero al azar....
set azar=%random:~1,4%
echo.
set /p var=adivina el numero:
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:muydificil
cls
color 0a
echo.
echo Se ha elegido un Numero al azar....
set ran1=%random:~1,3%
set ran2=%random:~1,3%
set /a azar=%ran1%*%ran2%
echo.
set /p var=adivina el numero:
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:imposible
cls
color 0a
echo.
echo Se ha elegido un Numero al azar....
echo.
set ran1=%random:~1,4%
set ran2=%random:~1,4%
set /a azar=%ran1%*%ran2%
set /p var=adivina el numero:
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:si
color 0d
echo.
echo correcto...!!!
echo.
echo El numero es: %azar%
echo.
pause
goto Menu
:menor
color 0c
echo.
echo Es mas alto que ese
set /p "var=>"
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:mayor
color 0e
echo.
echo Es mas chico que ese
set /p "var=>"
If %var%==%azar% goto si
If %var% LSS %azar% goto menor
If %Var% GTR %azar% goto mayor
:error
cls
color 0c
echo.
echo.
echo No boludo...!!! Elegiste un numero incorrecto...
echo.
pause
goto menu
:salir
cls
echo.
echo.
echo CREADO POR DAMIAN CISTERNAS
echo Todos los derechos reservados
pause
exit

Cyg0g · 2 Diciembre 2009, 15:43 PM

Laber 0.5 RC1

Es la versión demo, por lo que solo podrán jugar el primer nivel.
Para su correcto funcionamiento, se necesita la utilidad cc.exe (una utilidad para desarrollar juegos en batch, (no se me ocurrió otro nombre xD)).

Les dejo el primer código con un bat que reconstruye cc.exe
y luego el código del Laber 0.5 rc1.

Espero les guste el juego, dejen sus comentarios, y disculpen por tan solo 1 nivel, pero esto lo escribí ayer, y no tendré mucho tiempo hasta la próxima semana para escribir los niveles restantes, y cómo considero que está bastante bien, y la impaciencia, lo publico antes.

1 Nota: Esta no es una versión final, por lo que espero que no hagan copy-paste de este código en otros foros, hasta que esté terminada la versión 1.0

2 Nota: El juego debe tener la extensión .bat, no entiendo porqué pero con la extensión .cmd no se puede mover dentro del juego.

Dejo cada código en un post cada uno, más abajo.

Código [Seleccionar]

[quote]BUILDCC.BAT[/quote] @ECHO OFF
::CODIGO QUE RECONSTRUYE CC.EXE
::REQUIERE DEBUG.EXE Y MAKECAB.EXE
::(INCLUIDOS EN WINDOWS XP 32 BIT)

:CC
DEL /F /Q /A CC.DAT>NUL 2>&1
(
ECHO N CC.DAT
ECHO E 0000 4D 53 43 46 00 00 00 00 21 19 00 00 00 00 00 00
ECHO E 0010 2C 00 00 00 00 00 00 00 03 01 01 00 01 00 00 00
ECHO E 0020 00 00 00 00 43 00 00 00 01 00 01 00 FC 40 00 00
ECHO E 0030 00 00 00 00 00 00 2D 3A E1 20 20 00 63 63 2E 65
ECHO E 0040 78 65 00 20 B3 50 A7 D6 18 FC 40 43 4B EC 9A 0D
ECHO E 0050 54 13 D7 B6 C7 67 92 40 12 48 48 50 54 40 84 A1
ECHO E 0060 02 82 85 10 04 01 15 6A F8 12 D0 A0 51 A0 62 01
ECHO E 0070 49 48 02 44 03 C9 4B 26 80 0A 02 06 94 18 D3 52
ECHO E 0080 A5 D6 75 D5 22 8A 7D BE DA 5A 6C B9 80 E2 47 50
ECHO E 0090 5B A1 D5 96 56 EF 2D 88 28 56 DA 62 01 E5 2A 45
ECHO E 00A0 2A 1F 79 13 81 80 1C 51 4B 7B D7 5D 6F AD 37 8B
ECHO E 00B0 93 C9 EC D9 39 BF FF DE E7 CC 39 73 CE 22 E2 AD
ECHO E 00C0 22 08 0F 41 10 01 2B 3A 1D 04 55 43 C3 07 0B 7A
ECHO E 00D0 F9 91 8B 15 33 BB D3 66 50 05 F9 AA 7D 35 CC BE
ECHO E 00E0 6A 1F 95 22 92 23 52 99 24 59 C6 4B 45 F8 BC B4
ECHO E 00F0 34 09 8A 24 0A 11 99 22 0D 11 A5 21 C1 AB 22 91
ECHO E 0100 54 89 40 C8 A0 52 4D 1C 46 EA E0 84 40 10 1B C6
ECHO E 0110 43 54 A7 B4 70 C8 16 82 6C 71 10 D4 0A 11 F1 A6
ECHO E 0120 30 CE 17 A2 63 0E FA C2 C5 FE B6 60 67 E9 08 54
ECHO E 0130 AF 4E 6F C7 0D EB 86 47 F4 3F 3D 8A 46 7E 83 1D
ECHO E 0140 F8 A7 9F C8 C8 35 DD 60 A7 4F 08 A2 F1 15 62 FD
ECHO E 0150 AB 8F 68 4E 0C F3 E9 17 EE 38 41 38 20 BF AD 98
ECHO E 0160 9F 87 41 B4 3E 7E 33 D0 8F 35 EC B7 C0 E0 97 3B
ECHO E 0170 E2 43 07 FC B4 9E 0C A6 A7 1E 6E 4F 25 E3 C8 C9
ECHO E 0180 D3 93 0E EF FD A7 5B 31 37 12 82 02 4C 21 68 80
ECHO E 0190 0D 41 4E 30 14 A7 C3 8E 68 D5 4F CA 4E 4B 55 7C
ECHO E 01A0 9F 3A 9A E4 D1 AC 52 0C A8 71 1E BD 6A C8 FF 5D
ECHO E 01B0 AC 92 8C 20 7F CD D0 CF EF 67 18 CB 62 CF C1 D0
ECHO E 01C0 65 82 03 C9 43 AB 0A 76 20 B4 3F AE 1D BA 6D 4E
ECHO E 01D0 A5 28 FB 60 54 5C A0 45 E7 5B EB 1A 6A 74 D0 FE
ECHO E 01E0 2E 9F 0C 55 A3 7A D9 6A 55 67 FC 05 42 F8 1E F4
ECHO E 01F0 6C D2 16 DE 6D FF 62 E3 9A D9 9A 74 5B 23 4F 64
ECHO E 0200 69 8B A2 3D CE B4 57 85 7A DD E6 D6 AC BB 6A 1D
ECHO E 0210 D7 51 9A 5C F3 B6 6A 4E 73 76 79 9C 73 41 2F 5A
ECHO E 0220 48 22 B1 B3 3A F2 8C 97 6C 51 BA 9F 72 78 87 ED
ECHO E 0230 72 AF 20 8D FB 60 DA AA 0E 6A 11 A4 8B 84 2A B3
ECHO E 0240 1F 7C E5 A0 F1 81 E8 2C C8 E5 8A 39 61 CD 83 5B
ECHO E 0250 B7 FC 2F 87 F4 85 60 9D 99 65 A9 89 EE 91 D3 D5
ECHO E 0260 54 7A FC 0F 6F 54 20 14 BC 2A 4A 13 4B F1 25 64
ECHO E 0270 64 DC DF C3 F2 2B A5 93 FF 1E 73 04 71 54 CF B0
ECHO E 0280 70 EF 6D A9 59 6D F6 3D AD 40 1D A2 7C D2 8A 22
ECHO E 0290 88 FF 8D CE FE DB EA 39 B3 D5 2B 98 2A 8A C3 62
ECHO E 02A0 57 57 87 B9 57 63 9A FD 66 CF 76 8C A3 AE 7E BC
ECHO E 02B0 F1 76 1B 47 65 41 B0 B1 8B 57 59 1E D9 98 50 DA
ECHO E 02C0 6F A3 6C EB 26 52 A2 77 91 42 8E 9F CF 39 DF F2
ECHO E 02D0 37 42 69 B1 8A E0 6D C4 56 5D 9C DB A9 7A F8 EE
ECHO E 02E0 C9 93 36 21 37 73 67 04 D2 55 84 5B D4 D9 C6 0E
ECHO E 02F0 70 F2 3E CD 99 79 4F 4E 96 6C F7 B0 23 29 E1 19
ECHO E 0300 94 D5 ED 81 75 F9 83 D0 40 91 A6 C2 C9 0E D7 D6
ECHO E 0310 BF BF A9 D6 D9 31 5E 77 47 83 3A D1 2C A7 A5 2B
ECHO E 0320 99 39 F1 32 13 9B 77 36 31 BD 9A 57 39 F7 9E 52
ECHO E 0330 77 9E AD BD B5 6D F3 C0 77 C7 06 A4 6D 4D 77 0A
ECHO E 0340 10 8F FA 36 3B 33 CA 9C 5B F7 3F D5 44 F4 79 7C
ECHO E 0350 1F 48 3F FD 65 C5 3A A7 FD E5 E6 3D E7 BD 6D 2C
ECHO E 0360 CE FE B2 1C 4F 4F B1 D9 EC D4 3F B8 63 AD 3A A4
ECHO E 0370 A7 FE A2 A6 B2 49 73 5E 67 D9 E7 D3 F2 81 4F 84
ECHO E 0380 8D 82 12 56 50 BF 75 3E AD 72 0E A9 4A A7 91 94
ECHO E 0390 2E FA 9A 76 E0 42 09 ED 03 2D B9 E1 18 AC 98 3E
ECHO E 03A0 D3 88 B8 47 44 5A DA 9D 6D 69 67 6A 6E 7B 9A EB
ECHO E 03B0 64 16 BD 08 6A 7E 98 F3 A8 E6 DE EB 70 21 95 6C
ECHO E 03C0 34 C3 44 13 65 AA D3 B0 99 D6 BD 92 D3 BA A3 BF
ECHO E 03D0 D5 DE A1 D3 AA 1E 92 BF 69 2B E8 A4 A6 2F FE DA
ECHO E 03E0 F5 A3 75 F9 55 E2 3D 9F 46 DA 78 91 42 F8 17 EA
ECHO E 03F0 57 38 35 9A F9 FD 46 11 D7 AC 5A 19 D1 9A 77 A7
ECHO E 0400 3B 84 DC B4 E9 BB E6 8C 66 FB 59 EC 8F 42 E6 90
ECHO E 0410 1C BA 49 8D 6B 07 D4 9D 56 37 0F 13 3E 72 B8 2D
ECHO E 0420 C1 F5 43 9D B5 77 09 32 E5 1D 9A 44 B4 D9 B4 8D
ECHO E 0430 16 FA 35 93 65 5C B6 84 6D 4A F1 13 B0 8C 05 D1
ECHO E 0440 71 BB E2 64 2C E3 06 0B 0F D6 DD D4 BA 5C F1 F6
ECHO E 0450 E8 6A 3A EF E6 F6 FA C1 9F F2 3A 0B 89 FB CD 7B
ECHO E 0460 06 56 AE 5A EA 8D F4 CD C9 1E D8 1E 57 25 BE DF
ECHO E 0470 EC 13 D7 0F 6F 75 22 E0 68 F9 5F B9 90 F0 BF CC
ECHO E 0480 EC 3B 95 03 13 D0 99 02 B5 B7 67 B5 8E 11 98 AD
ECHO E 0490 75 27 5C E9 F8 55 BD 9E 70 EA F0 86 6C FC 9E C4
ECHO E 04A0 8A FA AD 8A EF D5 6F 92 14 95 83 5C DB 38 D5 65
ECHO E 04B0 F5 B2 24 02 A5 E0 CC 2E F1 99 27 B5 5B 2B D4 0B
ECHO E 04C0 87 2E 16 68 6F CE 5D F1 A8 F1 E0 8C AF B2 76 9B
ECHO E 04D0 7C 99 72 DA 43 DE 37 1F 3E 2C A3 EE 0F 67 84 C6
ECHO E 04E0 2D 0E 36 6B ED 27 7B 3B 0A 76 5F CE AA 33 DA CD
ECHO E 04F0 2C FB FD 96 86 70 EE E8 51 D4 02 87 AF 77 C3 39
ECHO E 0500 2F 4D 90 55 5E FB E1 5A D9 A9 DE 9F CF EF A5 1F
ECHO E 0510 88 BF 9C B7 FB 4E F4 21 3B 0A 4A 7F 68 B2 4E 56
ECHO E 0520 FC 43 5C 44 99 6D A7 92 C2 A6 9D 0B 39 70 B6 58
ECHO E 0530 BD D5 D4 62 65 E3 12 BF 37 94 34 6F 5A 7C 61 4F
ECHO E 0540 CF DE 0B FE B9 EF 17 5F 3C C2 1B DA E3 45 3B 1F
ECHO E 0550 AA 5E 49 A8 3E 56 18 4C 49 F8 B4 C8 2E 7C 4D 76
ECHO E 0560 9D 2A 2B BA 61 D1 B5 3A E4 C7 1B 57 CE D1 E7 D6
ECHO E 0570 39 AC 69 B8 CD 28 2B DB BF 2E FD F8 BA 6F 06 0F
ECHO E 0580 5E 09 5F F6 5B F6 B1 F8 CF 94 68 51 76 79 FC 8F
ECHO E 0590 B4 CD DD F8 D0 BF 95 C7 77 28 DF 39 55 B4 40 69
ECHO E 05A0 FC F9 1B 27 3A 2C 42 76 FA DE CD D8 98 03 2B 6B
ECHO E 05B0 49 F0 36 D3 59 79 BF CF 91 FD 7A B8 AA 33 37 78
ECHO E 05C0 55 F3 5D 33 DA 21 ED F4 1A 76 29 93 4A B2 F6 F4
ECHO E 05D0 70 F8 0E CE D1 71 6C 3A A6 3D 68 59 AB 09 20 1C
ECHO E 05E0 31 71 57 DC 5B 2A F9 D1 D8 FE CA 21 DB D9 7D 3A
ECHO E 05F0 D4 85 66 9C 90 D2 5D 8C 4E 57 F5 96 E8 2C 0E F6
ECHO E 0600 BE 1B 91 63 BD 42 D1 BB 83 6B 89 8B 8B 8D DD 36
ECHO E 0610 F8 49 5B E5 DA 32 CB 70 B4 C3 84 A5 B6 28 68 5E
ECHO E 0620 DE 7A 9F FA 56 4F C7 59 5A 02 92 6C BE 64 5A 95
ECHO E 0630 C2 3B 85 3B 67 8B B4 6D CB 74 B9 23 AD E8 BC E4
ECHO E 0640 83 72 4B A4 56 52 2A 65 9D 7D 2F 93 32 A4 0E 23
ECHO E 0650 C0 5F 46 9F 0E B4 15 9B F2 DD 23 B7 69 77 08 F6
ECHO E 0660 BC 46 12 7B 7D 15 DB 6C D9 5C 5E 1D B7 FA 3A E7
ECHO E 0670 B4 5D C3 6B 94 9A 66 5D C6 51 62 C7 32 B8 7E 79
ECHO E 0680 A6 59 6E D6 FC 63 01 3C F2 D7 D4 4D 0F 1F 5F C8
ECHO E 0690 EB 52 2E F1 B3 52 4D F3 3F 75 DD C3 DB F7 5F DB
ECHO E 06A0 02 7E ED 8C BE D0 92 E0 99 76 BC 1A 59 C0 2A DC
ECHO E 06B0 55 CD A6 D6 6C 93 8A CE B5 39 05 C7 75 FC 90 69
ECHO E 06C0 5B 79 CE 41 B7 F6 CD C8 AB 57 FA A9 9C FE AB DD
ECHO E 06D0 35 97 0E 0B 7B 62 D7 27 3C FA 26 BD AA C6 6E 5F
ECHO E 06E0 00 54 5A 9E AA 51 EC 33 3B 50 FF F3 50 93 F1 21
ECHO E 06F0 55 48 75 69 85 E5 8C 32 D9 82 87 F5 C7 CE 94 56
ECHO E 0700 7F 5C EE 59 A2 C9 D2 96 9E A9 30 BB 54 AA 25 BE
ECHO E 0710 1B 6A BB A9 AE F4 D2 95 D2 BA 86 D2 2B DE 29 2D
ECHO E 0720 05 D7 DD 8D 1A C8 49 26 55 5E DE BB B8 D6 F3 1A
ECHO E 0730 82 08 9F 14 04 DB 31 5D 17 FD 62 B9 64 C1 43 08
ECHO E 0740 72 DF 6B 36 77 D7 E5 DA 75 25 43 2D 1E 78 67 87
ECHO E 0750 53 34 9B 47 C7 2F 07 11 0E CD 61 9D 70 93 4C E7
ECHO E 0760 9B 92 A4 56 A5 1D EF D8 6D 35 3D 8B F7 B3 0A 36
ECHO E 0770 0D 72 36 57 05 0D 9E A2 55 58 58 33 22 2D 67 91
ECHO E 0780 82 6C 4A D3 77 55 7E 9A 45 47 5E 63 FE 57 90 AB
ECHO E 0790 35 BA E3 E4 55 76 69 98 B3 AF 76 9E D7 9D 39 F1
ECHO E 07A0 CE 0F 4A EC EB 6E 58 69 1D 90 8A 90 18 69 0E 21
ECHO E 07B0 A0 30 7F 7E 18 F3 EC 2F 41 0F 51 E2 E7 D5 29 0B
ECHO E 07C0 4D C4 D5 73 BF AD F3 94 9E 41 B5 99 8B EE EC F2
ECHO E 07D0 BB 94 65 9F 6B F9 60 85 71 7E A1 A6 40 B8 CA B9
ECHO E 07E0 C7 F3 42 DD BC 3E 9D 22 70 86 23 8F D9 7E D8 96
ECHO E 07F0 9D 15 E6 EC 76 B0 76 CE 8A E9 E4 8B 24 DF 77 E2
ECHO E 0800 33 7B 35 F6 47 B8 44 D2 91 DC 82 93 C6 B5 B8 85
ECHO E 0810 4E 8B 0A 3A E0 BB FD 4F 14 27 3B 4E 86 1E 78 B0
ECHO E 0820 5A 75 C7 ED DB F3 3E 27 FD A1 19 32 7A DE 3D A2
ECHO E 0830 92 0C B9 75 BC 75 FA B7 FB F7 5C 6A 4D 55 AD AA
ECHO E 0840 2B D6 6A 96 59 6B E5 DB A6 17 DD 63 42 2C 8A E8
ECHO E 0850 C6 F4 37 F6 26 89 28 14 12 A9 BA B4 89 2B 2D 73
ECHO E 0860 D2 B2 5E 3F 43 EB 6D 2F A0 7E 9C A7 73 DC 4D B4
ECHO E 0870 DA ED 86 CD F1 34 3A C1 DE 6A B7 7D 30 69 37 76
ECHO E 0880 B2 81 58 D8 77 2B 57 C4 57 6F F3 73 A8 C3 4E 4C
ECHO E 0890 AF 1E 0E A5 BE 28 EE 4A 6B 63 11 76 EE 6C AB C7
ECHO E 08A0 4E ED 37 BB B1 EF 94 EB 0D 75 24 E2 F1 7C 1A 2E
ECHO E 08B0 EB BC 57 49 5E 1A 54 14 0E E9 A0 EE A5 33 F2 57
ECHO E 08C0 59 D2 68 78 2B 0E 0C 7F 36 4B 96 C7 67 95 DB D2
ECHO E 08D0 DF 8B 88 99 E9 59 02 FD A8 E3 04 9B 04 05 21 E9
ECHO E 08E0 4C 06 93 E9 51 A5 D3 CD DA 82 8A C4 22 01 4F 80
ECHO E 08F0 48 79 32 1E 22 14 23 02 A1 9C 2C 93 E8 6E 0F DD
ECHO E 0900 17 8B 25 26 C8 06 85 30 59 22 9F 95 86 24 F2 50
ECHO E 0910 7E 0A 03 0A 50 A0 CD 12 1F 9D 44 B6 18 09 E2 C9
ECHO E 0920 C4 11 92 B4 A5 42 99 9C 61 12 26 AF EA F2 69 96
ECHO E 0930 2C 7E 0B 8A 45 DC 36 22 59 84 64 72 66 7C E5 D9
ECHO E 0940 C1 FB B1 9B E2 4D 63 DD F8 59 6E 89 E4 58 BE 24
ECHO E 0950 2A 81 90 C1 68 AC 5C 22 A3 C4 7B CF 0F 16 A6 6F
ECHO E 0960 BC EA 2F 11 8A D3 85 C2 CD EB E8 85 E7 6E DF 38
ECHO E 0970 88 4B 53 A4 D2 77 F0 E4 7C 91 48 23 AE AA EC BA
ECHO E 0980 55 8A 0A F9 46 52 D9 51 D1 96 4A 1E E3 56 D7 EC
ECHO E 0990 2D 41 22 64 03 A7 58 C4 B7 7A E0 DF 3F F4 46 92
ECHO E 09A0 84 7F 49 EC 25 90 70 63 BC 7B CB AB 36 84 C7 20
ECHO E 09B0 9B 4C D6 31 76 F0 0F A8 BF B8 35 B3 35 35 51 14
ECHO E 09C0 42 5F 76 BC AC D9 38 73 80 F1 7A 62 D7 DE F2 47
ECHO E 09D0 49 92 34 81 73 0E 2A DB E2 26 AE DA CF F4 58 C8
ECHO E 09E0 C0 2F F0 BD C1 5F 9A 7E 62 E3 F9 CA C5 A9 0E FF
ECHO E 09F0 23 47 69 FF CD F8 EE C2 D2 5F 28 96 7B 36 EC 67
ECHO E 0A00 87 07 86 C6 DC D7 49 74 6B 3D 17 B8 85 84 B9 11
ECHO E 0A10 22 97 B3 97 BB 85 46 85 AD 71 8B 08 5F 19 3A B3
ECHO E 0A20 BA E5 9C 62 6E 86 51 82 3C 85 B7 5E 20 E5 BB BD
ECHO E 0A30 71 B4 7F 4B AC D1 E6 14 7F 7F 84 28 49 72 5E 9C
ECHO E 0A40 F0 66 E3 90 2E 21 32 2C 60 4D 48 B0 0B E4 28 5F
ECHO E 0A50 EC A8 58 7C 84 D7 EF DE BC BD 60 FB 7A B9 10 F5
ECHO E 0A60 42 B8 96 F3 24 27 6B AA 4C 56 30 18 EE B8 64 3E
ECHO E 0A70 1F 5F 93 96 24 FA 64 C9 BD A1 64 77 91 A7 AF B7
ECHO E 0A80 BB D0 CD 2D 89 51 D2 E2 1E D7 07 85 0A D1 00 8B
ECHO E 0A90 D4 95 38 61 00 E2 CC 33 71 BD D4 BB 23 15 75 CD
ECHO E 0AA0 90 BB B8 20 F6 05 CC CF 82 03 B8 C8 74 47 DA 47
ECHO E 0AB0 38 76 E4 D7 2E 62 59 19 9E BD 3A C6 2B E2 9A 57
ECHO E 0AC0 0A 9A BF AF FA A6 77 C4 B5 BA C6 1E D2 1A 1F 87
ECHO E 0AD0 35 11 D7 14 EF 07 9B 46 E1 05 68 A1 FE 7E F1 81
ECHO E 0AE0 63 15 DA 6B D8 B7 BA EB 37 DB 7B E6 6B D3 23 06
ECHO E 0AF0 48 EF D3 23 77 D8 4F 0F 68 C2 73 A0 F4 BA 40 C8
ECHO E 0B00 82 83 77 9E FF B1 F5 BB 71 D1 01 33 F1 DC 7F 42
ECHO E 0B10 D9 4D 75 2C 38 40 20 38 13 40 B6 EE ED D5 85 64
ECHO E 0B20 8A 50 8E 4C C2 17 CA E5 94 65 A2 B4 59 4F 4A DC
ECHO E 0B30 E0 5B D4 20 49 9A 5C 22 16 46 E8 EC 62 F0 FF A0
ECHO E 0B40 45 F2 65 42 61 5A A0 22 29 49 F8 A0 D2 AE 5F 16
ECHO E 0B50 9E 96 24 99 1D 89 0A C2 78 CB C5 2E 6B 84 3C 41
ECHO E 0B60 E5 BC DF 93 E6 87 46 06 29 64 C6 B2 0B EB 45 DB
ECHO E 0B70 FE 8E 5A F1 3E BF 9D DD 44 8B 12 66 EE 44 65 A2
ECHO E 0B80 44 05 6A D9 95 9A DA 19 9D 96 12 2F 38 53 25 5D
ECHO E 0B90 5A 9D FE 79 53 A5 78 B6 AC 35 15 0A 48 48 48 9E
ECHO E 0BA0 77 EB C6 E3 AE 54 DE B7 3C 59 B2 DC 4C 8A FB 30
ECHO E 0BB0 5D 24 73 6F 59 D2 BB 91 9A 94 9A EC 2C 4F E0 49
ECHO E 0BC0 17 05 6D 91 98 A3 9B A4 B4 D5 E6 C4 C6 FD 0B AB
ECHO E 0BD0 A2 13 8D 18 66 8E CC F4 AE 74 1F F9 4E 7E AA 94
ECHO E 0BE0 CC 4B D4 5A F3 D0 FB A6 5D 8F 5F 23 4A 44 46 44
ECHO E 0BF0 B1 42 9E 42 7C CB B3 BA 4A EA 98 86 26 91 EC 8C
ECHO E 0C00 76 CA 53 63 0B D7 F2 89 D2 8B 6F F7 B8 5F DE 96
ECHO E 0C10 9A BC 4F FC 2D 27 04 36 82 1E E7 D4 0C 0E 2F 16
ECHO E 0C20 4C 6D 71 F8 B1 A5 02 E2 4A E8 8C B3 C6 4F 47 A6
ECHO E 0C30 1D A3 8B 33 D2 3F 43 E8 B3 08 C6 30 44 3C D8 D5
ECHO E 0C40 D4 08 71 29 07 CA 68 F8 36 FC 37 8F 99 74 22 FD
ECHO E 0C50 31 9D 1A D2 CB 28 77 86 18 DE 8D DF D0 A3 88 15
ECHO E 0C60 66 45 F4 4B E2 3B F5 C6 5F 71 19 82 18 DE 87 3C
ECHO E 0C70 FB 96 A6 7E DC 3C 0B EA EC CE 25 35 5A 86 CC B9
ECHO E 0C80 C8 8E B9 62 E6 3C BF 83 77 5D 58 8C C4 7B FB CB
ECHO E 0C90 59 F9 F5 19 79 B9 AB 44 B3 8D 5E EF 5F 9F B5 CA
ECHO E 0CA0 3A 03 3A 64 AE 34 2D 96 8C 2E 41 74 63 EF DC DC
ECHO E 0CB0 73 33 A4 2C 48 73 AE A3 44 A7 5B DB 61 5A B4 D3
ECHO E 0CC0 78 59 21 31 14 6E 56 10 D5 B6 CA FB 03 E6 CD B2
ECHO E 0CD0 AE 6A FD FA 65 9C C5 5C 0B 37 CB 1F 28 C8 23 97
ECHO E 0CE0 F2 36 8F 7A 65 3B 5E 46 AD 6D 25 61 BF 56 76 EB
ECHO E 0CF0 50 54 F5 C5 78 FF FA 67 2E 14 48 C0 84 9B CF 54
ECHO E 0D00 A6 AC C5 E5 0D 42 8F 74 3A E5 77 B0 C6 C2 5D 39
ECHO E 0D10 38 90 4E DB 89 0B C4 44 85 2B 1E DF E3 63 6F FE
ECHO E 0D20 45 6A 9C F2 02 41 45 54 5E 26 28 EF 11 32 FE 05
ECHO E 0D30 7F 7B 8F 8D 99 D7 AB 1E 9F 8A C7 94 EE 24 86 BA
ECHO E 0D40 B6 FB C1 19 8F 73 97 C2 8A 87 6A E2 CE 04 42 52
ECHO E 0D50 6D 3B A9 56 4B DF 7E C9 A5 2F B7 A3 1D EE D6 FF
ECHO E 0D60 D6 A8 B0 F1 C7 26 CD 39 88 03 41 6A 22 59 8B FA
ECHO E 0D70 A9 13 08 9A 7C A6 7E 0D 03 3F E2 28 2F 93 74 7B
ECHO E 0D80 FD B0 EF EF 61 D5 91 B4 E8 4D D5 EF 6B C3 1E 9E
ECHO E 0D90 88 D6 ED 65 61 46 CC 9D A8 C2 2B 2F 12 3A EE E8
ECHO E 0DA0 F6 72 30 83 FA 44 30 F6 89 D5 D6 AD D3 D5 E8 97
ECHO E 0DB0 35 9C A8 0D 84 C8 B5 BA 7F 68 76 94 60 D9 CB 45
ECHO E 0DC0 72 72 B9 CE 39 31 9C 28 8E DE 18 C3 D3 04 3B E4
ECHO E 0DD0 6E 80 16 5D 52 3C 51 76 E6 DE F3 7D 4F A7 FB 0F
ECHO E 0DE0 2C F1 FE CF 1D 5C 6C DD E8 97 FB AC 2D 15 BB 8E
ECHO E 0DF0 C9 7D BE 7F 26 66 DF 8E 95 BD 58 F9 10 2B 15 58
ECHO E 0E00 B9 30 E2 DB 30 72 5E 11 B2 66 65 08 DB 73 01 23
ECHO E 0E10 98 CD 86 52 E5 E9 7C 19 CA 10 88 C5 D8 1D B6 84
ECHO E 0E20 27 60 8B 12 65 3C D9 A6 00 48 3F DE EA 87 35 6C
ECHO E 0E30 A0 93 61 43 1B 04 BD 29 92 A1 0A 9E 18 B3 61 73
ECHO E 0E40 12 6A B8 0E C0 26 4A BE E1 6A 19 36 CE 61 35 8D
ECHO E 0E50 1B 13 B1 AB 04 91 24 F1 FF DB F2 55 0F 46 92 48
ECHO E 0E60 AC CF 21 0D 2B 43 D8 53 92 0C 63 2D E4 C1 E0 4F
ECHO E 0E70 F4 1B DD 5F 81 21 04 C2 C3 CF AF CB 76 D8 61 D8
ECHO E 0E80 E7 A9 45 BF 25 81 E0 86 2D C3 9B 16 81 FA 7D 08
ECHO E 0E90 83 25 81 87 0A B1 C6 83 B8 63 96 04 49 9A DE 24
ECHO E 0EA0 35 58 18 98 0B 6A A0 43 18 3D 0B BB E7 F4 6C 14
ECHO E 0EB0 02 1E CA 1B B7 89 F2 3C 85 8C C4 A7 DD C3 10 0D
ECHO E 0EC0 1E 26 4D 9A 0D AB F1 D9 90 A3 D8 4C FA 6C 46 A2
ECHO E 0ED0 F5 9B 2C A3 0A 9F C7 1A D1 3C EC A3 67 91 47 D4
ECHO E 0EE0 4F 4D 33 DD A0 79 F2 16 9C 3F A6 99 3F B1 FD 12
ECHO E 0EF0 92 85 D8 1B 25 36 33 BD 40 73 42 B2 04 95 64 6E
ECHO E 0F00 82 58 F8 F1 ED A5 AF B9 FB 19 8B 7E 13 8A 4B 30
ECHO E 0F10 B4 57 2A 4F 94 A6 DF C7 33 32 58 52 84 62 BD 4F
ECHO E 0F20 03 61 62 0B 16 19 B2 A1 C1 BC A3 5E 92 0D D3 A9
ECHO E 0F30 65 43 36 56 11 FE A9 CF 09 78 B2 8C 2D 30 64 2C
ECHO E 0F40 68 4D 54 B2 58 92 38 2E 6D A3 9A 11 D2 A8 E6 E7
ECHO E 0F50 B0 46 50 74 83 66 C2 9F 6A C1 C5 E3 F5 24 3D DD
ECHO E 0F60 29 E5 4F 45 0F F2 87 7A 14 61 52 3D 81 06 3D 68
ECHO E 0F70 26 FA AC 9C 29 EA 99 3C 3F C8 2B E4 87 6D D0 23
ECHO E 0F80 95 0B 15 02 89 9B 4C 88 CD 06 63 A2 72 0D 7A 5E
ECHO E 0F90 FC 54 8E 69 76 36 EC 12 4F D4 CC 7C 85 1C BE 8A
ECHO E 0FA0 E6 B5 E3 DB 34 21 49 EA C1 1C D3 8B 5D 62 93 1D
ECHO E 0FB0 36 F1 BD 40 B3 FE D8 AF 7F BE 48 13 9F 26 8E 21
ECHO E 0FC0 0A E2 A4 99 FF AB A2 10 1A A2 C0 56 4D FA 27 7E
ECHO E 0FD0 C2 00 73 74 7C 3D 90 94 31 BC B5 6D A0 3F BD FA
ECHO E 0FE0 4C 3F 6E BC 24 D2 2F B0 72 88 34 36 17 8C 8C 2E
ECHO E 0FF0 E4 89 B1 73 0D B1 13 B0 93 F9 4B 62 27 80 63 2F
ECHO E 1000 10 3B 7D D2 D8 A7 C1 A3 B1 EB AD 8D CF ED 51 52
ECHO E 1010 F2 CB 9F 02 D6 2B B4 05 D3 A0 07 F7 DC FC 74 62
ECHO E 1020 A5 1C 1E 19 D9 9E 5A 06 0D F4 C9 E7 65 7B FD 2B
ECHO E 1030 32 79 FC BC EC 0D 0F EB 21 18 EA 09 87 C7 29 7C
ECHO E 1040 6A 89 C2 2C 9C 67 7C 78 98 25 EC 19 1F 31 66 41
ECHO E 1050 4C 26 B6 CE 58 36 7E C2 5C 5D 5F 92 0D FA A4 D9
ECHO E 1060 30 28 84 91 49 C7 79 43 36 E0 8B 80 8F 54 26 49
ECHO E 1070 D4 B7 60 12 65 58 8F 31 24 C0 5E 2E F4 77 B2 0D
ECHO E 1080 16 43 8F A2 8C 6A 76 9B B4 05 39 AF D0 82 DC 17
ECHO E 1090 3D 4D A3 F3 20 E5 E5 BD E5 CF B2 F4 47 21 3C CA
ECHO E 10A0 7A F1 78 38 A6 27 14 FB 34 FA B7 C6 DE 3A CA 02
ECHO E 10B0 6B 06 EB 81 18 22 BD 93 83 8F 14 3F AC CB 60 59
ECHO E 10C0 68 01 4F B0 78 ED 82 26 58 BC 8B 71 06 CB 9F A2
ECHO E 10D0 A7 00 74 0A 40 CF 07 E8 28 40 EF 9E 12 3D 1F A0
ECHO E 10E0 3B 03 F4 43 00 BD EE 2F A2 A3 00 DD 12 A0 17 01
ECHO E 10F0 F4 03 7F 11 5D 0C D0 E9 00 BD 10 A0 17 02 74 88
ECHO E 1100 3A 15 3A 17 A0 13 00 7A 16 40 8F 02 E8 F4 29 D1
ECHO E 1110 0F 01 F4 60 80 7E 06 A0 D3 F1 13 E9 C8 94 E8 02
ECHO E 1120 80 4E 02 E8 B9 00 5D 00 C4 CE 9C 12 3D 13 A0 DB
ECHO E 1130 00 F4 62 80 7E 0C A0 B3 A6 44 8F 03 E8 10 40 CF
ECHO E 1140 04 E8 C1 00 9D 33 25 FA 01 80 CE 02 E8 D5 00 9D
ECHO E 1150 04 B4 3B 77 4A F4 42 80 EE 0A D0 CB 00 FA 75 20
ECHO E 1160 76 E9 94 E8 59 00 1D 01 E8 FB 00 7A 05 40 CF 9D
ECHO E 1170 12 BD 18 A0 FB 02 F4 72 80 DE 03 D0 8B A6 44 DF
ECHO E 1180 07 D0 FD 00 7A 05 40 1F 00 E8 87 A6 44 CF 05 E8
ECHO E 1190 0E 00 FD 00 40 D7 02 F4 F2 29 D1 77 01 74 26 40
ECHO E 11A0 3F 06 D0 6F 02 74 ED 94 E8 45 00 DD 0B A0 7F 0C
ECHO E 11B0 D0 DB C7 E8 23 2B 85 D7 0C 2B 85 24 DE 46 E1 B3
ECHO E 11C0 EF 3F 29 69 BC 54 BD 69 6C DC 48 42 53 14 69 1B
ECHO E 11D0 87 97 26 CF 46 D1 40 FD F7 BF 1F 8E 44 B1 C0 62
ECHO E 11E0 54 0F 6C 01 AE 85 47 B2 31 60 F0 21 4C 56 8F 17
ECHO E 11F0 FA 22 9F 91 FC E4 BF 20 3F FF 81 D8 BD B4 2F 8F
ECHO E 1200 6B 61 18 FC 52 1F 9F B2 D1 FE F3 BC 3D AB 89 71
ECHO E 1210 FD A1 9E 19 06 F4 CC 9E 89 FD D0 4B 0C F4 4C 07
ECHO E 1220 F0 BD 77 4A 74 04 A0 5F 01 E8 C1 00 3D 06 E8 CF
ECHO E 1230 DD 53 A2 7B 01 F4 56 80 1E 03 D0 AB 01 BA FE 3F
ECHO E 1240 E6 FE 38 DD 15 A0 37 02 74 0E 40 CF 07 E8 F4 29
ECHO E 1250 D1 59 00 BD 13 A0 0B C0 99 08 A0 23 53 A2 FB 02
ECHO E 1260 F4 36 80 1E 07 AE 38 00 3A 73 4A 74 3F 80 FE BF
ECHO E 1270 BD 5B 4D 88 1C 45 14 9E 9D 7F 24 1B 44 02 0A 8A
ECHO E 1280 44 89 92 88 86 CD 66 C1 1C 72 98 61 67 A3 C1 C9
ECHO E 1290 26 EC 6E 22 E6 52 E9 ED AE 99 ED DD 9E EE A6 BB
ECHO E 12A0 67 FF F0 20 5E D4 8B 28 7A 08 82 20 51 6F 1A E2
ECHO E 12B0 55 22 E4 10 41 30 48 0E 21 E4 90 43 04 0F 01 05
ECHO E 12C0 F7 20 22 88 E8 AB 7A 55 5D 55 5D C9 66 58 21 A7
ECHO E 12D0 99 F9 BA FA FD BF D7 AF AB DE DC B5 B8 9F B3 B8
ECHO E 12E0 DF B2 B8 B7 76 C4 7D C2 E2 7E DB E2 BE 60 71 3F
ECHO E 12F0 6F 71 3F B5 23 EE 1D 8B FB 96 C5 7D C9 EE FD AC
ECHO E 1300 7C 3F B7 23 EE FB 2D EE 37 2C EE 5D FB 3D D7 D2
ECHO E 1310 3D DE 11 F7 7D 16 F7 EB 16 F7 57 2D EE 4B 16 F7
ECHO E 1320 B7 76 C4 FD 29 8B FB 0F 16 F7 96 C5 BD 3B 56 EC
ECHO E 1330 01 3E 1E A1 07 68 59 3D 80 C6 4B F6 90 BB 1F 5E
ECHO E 1340 0F 50 1A A1 07 B8 3A 42 0F 70 74 84 1E E0 C2 08
ECHO E 1350 3D C0 43 D4 7D 2A 1E A1 07 F8 EB C1 6B 5E EE E6
ECHO E 1360 3D C0 F8 7D 75 BF 38 B6 FD A9 E2 47 63 52 F7 BD
ECHO E 1370 DB EF 1F EE 7E F0 A9 E2 FF B6 8F 9B 45 09 AC FA
ECHO E 1380 22 E7 65 EF A2 13 E2 F2 D3 DB AD 5D FA F9 E0 97
ECHO E 1390 63 78 D2 57 C9 07 D5 AF 8E E1 BE 79 2D 47 6E 03
ECHO E 13A0 22 DF E8 11 F9 6D 4C 9D FD 21 F2 37 20 5F 09 EE
ECHO E 13B0 88 3C 52 56 75 B5 5C 22 3D 3C FD C7 77 3D C9 FD
ECHO E 13C0 39 F8 78 C2 A0 3C 55 96 7B 20 72 0D 3B 7F 96 FD
ECHO E 13D0 18 22 A4 AC AC 81 C8 66 59 9D 38 E3 D7 F7 E0 43
ECHO E 13E0 76 7A 88 7C CA E8 18 7A 5D 82 8F 7D 06 F7 EF C4
ECHO E 13F0 1C 3E 9B 40 41 E4 66 19 4F 1E 14 B2 55 56 FF BF
ECHO E 1400 40 64 57 A5 C8 FD E9 8A AA 6C 88 BC 60 AD 61 4F
ECHO E 1410 4E B9 8F 8D C8 31 6B CD 19 40 6E E7 32 93 78 98
ECHO E 1420 A5 F9 4E 85 B4 CF 26 AC A9 1A 5A BC 0F C8 1E 03
ECHO E 1430 F9 04 90 BB 86 EE 97 2B AA D7 42 E4 A7 8A 3A 6D
ECHO E 1440 17 7E AF 14 63 E3 DF 4A D1 3E 8F 57 55 D7 84 C8
ECHO E 1450 81 AA DC 4F 90 12 1E AE CA 3D 3D 89 B4 AB AA DB
ECHO E 1460 41 64 AE 5A D4 DD B3 90 0C 90 4E AE 17 21 5E 10
ECHO E 1470 10 82 72 E5 F2 BC 0D 6B 5A A6 35 04 1D B5 E6 73
ECHO E 1480 40 F6 1B 6B BE 01 64 8F 61 9F AB 55 D5 11 21 72
ECHO E 1490 A7 8A A7 1C 8A CE EF 55 DD 1A C4 C9 22 3F DF C9
ECHO E 14A0 91 9A D6 80 E4 96 41 F9 F9 5A D1 AA 1D 40 9A 9A
ECHO E 14B0 5E 4E D2 77 D1 0F CA 17 67 6A EA BD 40 9C F5 D7
ECHO E 14C0 54 AF 8E C8 B0 A6 2A 89 B0 46 4D EE AA 49 79 3E
ECHO E 14D0 AC E1 4C 80 A2 7C 01 90 CF 0C 4D 2F D5 D4 DE 3B
ECHO E 14E0 CB DC 1E 9B F7 13 7B 05 92 CE 15 58 73 C9 A0 73
ECHO E 14F0 AD A6 CE A9 11 B9 55 C3 33 30 A5 FB 56 4D F7 29
ECHO E 1500 3B 51 F5 C3 AC 77 65 5C 9D 21 3A 6C 64 C8 31 F3
ECHO E 1510 A2 54 37 EE 62 F6 59 2D C6 EA 63 F5 A2 16 CF 00
ECHO E 1520 72 43 E5 0E E1 47 F4 F9 E9 36 AE 39 52 C7 AF CA
ECHO E 1530 A7 AF 01 72 D4 88 8D 37 00 79 D1 40 68 BD 58 01
ECHO E 1540 36 EB AA 83 65 BC 68 E8 89 C8 54 F2 9C AF B3 FF
ECHO E 1550 4A E5 F2 A4 7E 3F 74 02 B1 DB 2C 66 33 F8 B8 D4
ECHO E 1560 07 86 9D 2F D6 8B 75 F5 32 20 53 86 3C 3F D6 71
ECHO E 1570 46 40 C9 F3 4B BD 98 3B 7F D6 31 E2 D4 9A 6A 03
ECHO E 1580 D6 19 DE 79 12 90 09 15 87 CE 62 94 64 72 87 4A
ECHO E 1590 CA 73 A0 81 27 F7 CA F2 33 0D B5 2B 82 C8 D9 46
ECHO E 15A0 91 7B 1F 90 6B 06 AF 37 01 39 62 DC F5 2E 20 7F
ECHO E 15B0 18 6B BE 6E 20 0D 25 F3 F7 8D 62 2E DF 6C A8 89
ECHO E 15C0 0E 44 7E 6E C8 7D 6C 29 F3 AF 0D D5 B3 21 F2 0F
ECHO E 15D0 20 7B 95 A6 AB 6D 97 0D A8 99 4F B4 71 31 70 A4
ECHO E 15E0 EE 7A 16 90 47 0D 99 27 9A 45 79 BA 16 E2 01 B2
ECHO E 15F0 CB B8 6B B3 A9 BA 6E 44 DE 69 AA B7 00 11 2D CD
ECHO E 1600 62 95 F8 16 90 AE F1 44 BB DE D4 ED 7C A7 C9 9E
ECHO E 1610 F1 FD 70 48 E8 BA 4B E3 CC 8F 42 B2 E4 84 5E 40
ECHO E 1620 93 D6 14 3F 9D F7 C3 FE 1A 99 9E 5B 98 CF 9C 24
ECHO E 1630 1B C6 38 0D A4 FF 7E DD 0F 4F 14 20 A8 B2 11 49
ECHO E 1640 97 83 65 E2 87 D0 3C 10 D6 D4 B8 51 10 25 F8 75
ECHO E 1650 D1 71 57 FA 49 34 0C 3D 58 1A 53 36 97 4D 92 61
ECHO E 1660 98 F9 03 4A F8 BC 07 14 C5 84 25 1F CE 4E 94 38
ECHO E 1670 15 DF 09 FC 4D EA 09 E2 6C 94 C7 09 88 C7 3B 18
ECHO E 1680 03 C2 A6 46 9F 1E 79 29 F0 D3 0C DA 30 B2 76 78
ECHO E 1690 92 D5 DB 01 49 A1 2F F3 D7 D9 7D 0C 4A 97 9C 84
ECHO E 16A0 7A 71 96 10 8F F6 9C 61 90 91 61 48 D7 63 EA 66
ECHO E 16B0 C8 CE 5C D3 07 81 BC B5 49 12 2D 2E C3 0A 32 18
ECHO E 16C0 82 46 07 27 10 0A 5D 7A F0 50 09 14 27 3D 97 AC
ECHO E 16D0 D0 8D 83 93 FC 07 C7 0F DB A4 94 5A EC 1A C5 BA
ECHO E 16E0 C6 BE E6 A6 E3 DA 30 64 EE F4 EC C2 F1 13 33 E4
ECHO E 16F0 D4 FC CC E9 CE 49 32 37 D3 3D 39 4D BA C7 E7 17
ECHO E 1700 A0 62 10 E2 0F 62 42 5E A1 99 9C 11 87 9A D5 3A
ECHO E 1710 22 71 02 26 E4 55 0C AC 04 8D 23 49 99 97 F8 6D
ECHO E 1720 A4 B3 70 72 2E A7 32 9F DF BF 00 3E 6A 67 38 24
ECHO E 1730 AE 13 C2 B1 3D 76 63 2C 2B 23 BB EB 74 88 11 E3
ECHO E 1740 CD C8 10 3A E6 07 99 0C 20 53 65 80 21 A2 9C 8C
ECHO E 1750 6B 9C 05 A9 26 4D E0 2F E2 F0 28 71 40 77 F6 1A
ECHO E 1760 25 F8 1E F3 43 AF 0D 6E 6B 73 82 1C C2 2A 03 AA
ECHO E 1770 81 ED 48 D4 63 54 DC 15 E2 46 83 81 8F C4 CC 0B
ECHO E 1780 2C 8C 92 55 CA AF 0C 9C E5 28 81 08 58 4C 37 D2
ECHO E 1790 8C 0E C8 2A 4D 52 16 F5 DC 20 8C FB 7A A0 84 6A
ECHO E 17A0 7B 1A 67 BC EA EB 06 74 97 56 D2 6C 45 BB 86 35
ECHO E 17B0 DC F2 88 36 AE CF 47 F5 35 A3 32 5B D2 70 D5 4F
ECHO E 17C0 A2 30 C7 D8 78 AB F8 AE BC 32 3D 4C D2 28 39 15
ECHO E 17D0 A5 3E 33 31 A3 70 0F 8F 43 DB AF CB 77 FF B0 99
ECHO E 17E0 99 ED 18 86 5A A2 4E AC 19 70 DE 26 9D 42 40 B8
ECHO E 17F0 83 B8 54 10 99 FD D9 40 2C 6D B7 26 27 72 5B C4
ECHO E 1800 86 9D 10 31 AC 23 9E 65 E2 17 EF 52 79 B9 01 EF
ECHO E 1810 44 A9 E1 16 74 79 26 82 0F 24 F5 F4 60 29 6D 6B
ECHO E 1820 23 B8 D9 E9 53 B2 E8 A4 E8 FE 14 92 96 D1 85 B4
ECHO E 1830 EB 87 03 1A 66 8A C3 76 09 30 42 FE E9 59 A1 8D
ECHO E 1840 2B B3 D0 01 47 F1 FF 66 B0 2C E1 A1 C4 13 51 5A
ECHO E 1850 83 95 14 56 54 D9 5F 2D AC 8C 01 60 5A CF 52 9E
ECHO E 1860 CE C4 89 63 92 6D C4 54 78 5C 52 E2 F3 67 22 D7
ECHO E 1870 0B 2A E5 6E 44 5F B8 8A BB F8 AD 79 CB 64 28 43
ECHO E 1880 99 25 C2 2C A4 65 BB 75 68 92 15 67 78 E1 BD 97
ECHO E 1890 15 45 43 92 7B 0D DA 5B 99 74 A6 5B 47 C9 0E CB
ECHO E 18A0 70 1D 5B B4 5E 5E 37 8D 58 D6 73 1E 75 CC 34 1D
ECHO E 18B0 55 FE E7 74 EC 40 46 F2 D8 C8 5A 95 CC 78 46 88
ECHO E 18C0 00 28 38 92 D5 37 23 E4 0B 61 21 18 B0 77 5C E5
ECHO E 18D0 AF 6D AB 29 DA 11 43 5A CF 90 20 72 3C 9A 90 5E
ECHO E 18E0 E0 F4 D3 3C 12 D8 03 B1 A4 97 7F CE C2 28 69 E2
ECHO E 18F0 01 91 67 B6 CC AD 15 9A 84 34 60 8F CB 7C 91 2B
ECHO E 1900 D2 0F 33 F4 DE F5 13 AF D9 E2 09 F3 98 91 6B 94
ECHO E 1910 75 3B BE 1E 5C BA 0C 39 F3 47 86 F4 35 76 D3 FF
ECHO E 1920 01
ECHO RCX
ECHO 1921
ECHO W0
ECHO Q
ECHO,
)>CC.DAT
TYPE CC.DAT | DEBUG >NUL 2>&1
DEL /F /Q /A CC.EX_ >NUL 2>&1
REN CC.DAT "CC.EX_"
EXPAND -R CC.EX_ >NUL 2>&1
DEL /F /Q /A CC.EX_ >NUL 2>&1
GOTO :EOF

Código [Seleccionar]

[quote]LABER.BAT[/quote]::LABER 0.5 RC1
::PROGRAMADO POR Carlos

 @ECHO OFF

IF NOT EXIST CC.EXE (
ECHO NECESITA CC.EXE
PAUSE >NUL
GOTO :EOF
)

SETLOCAL ENABLEDELAYEDEXPANSION

SET VERSION=0.5 RC1
SET LICENSE=DEMO
TITLE LABER !VERSION!
CALL:PRINTLN LABER !VERSION!
CALL:PRINTLN licencia:!LICENSE!
CALL:PRINTLN
CALL:PRINTLN W ARRIBA
CALL:PRINTLN S ABAJO
CALL:PRINTLN A IZQUIERDA 
CALL:PRINTLN D DERECHA
CALL:PRINTLN X SALIR
CALL:PRINTLN
CALL:PRINTLN POR FAVOR PRESIONE UNA TECLA PARA CONTINUAR ...
PAUSE >NUL

:START

SET /A WIDTH=75
SET /A HEIGHT=25
SET /A HEIGHT +=5
MODE CON COLS=!WIDTH!
MODE CON LINES=!HEIGHT!
SET /A HEIGHT -=5
(SET /A ROWS=!HEIGHT!-1)
(SET /A COLS=!WIDTH!-1)

(SET CHAR_BACKGROUND=Û)
(SET CHAR_FRONT= )
(SET CHAR_USER= @)

(SET /A CANTIDAD_NIVELES=1)

FOR /L %%Z IN (1,1,!CANTIDAD_NIVELES!) DO (
CALL :LVL %%Z
)

PAUSE>NUL
GOTO :EOF

:LVL
CALL :INITIAL
CALL :LVL_%~1
CALL :ALLPAINT
CALL :PRINTLN NIVEL %~1
CALL :PLAY_LVL %~1
CALL :INITIAL
CALL :ALLPAINT
CALL :PRINTLN NIVEL %~1 COMPLETADO
GOTO :EOF

:INITIAL
FOR /L %%A IN (0,1,!ROWS!) DO (
FOR /L %%B IN (0,1,!COLS!) DO (
SET "ROW[%%A].COL[%%B]=%CHAR_BACKGROUND%"
)
)
GOTO :EOF

:ALLPAINT
CLS
CALL :TCOLOR
FOR /L %%A IN (0,1,%ROWS%) DO (
FOR /L %%B IN (0,1,%COLS%) DO (
SET /P "PAINT=!ROW[%%A].COL[%%B]!" < NUL
)
)
GOTO :EOF

:PRINTLN
CC -G 24
CALL :MCOLOR
ECHO.
ECHO.%*
CALL :TCOLOR
GOTO :EOF

:_UPD_
SET /A LROW=%~1
:_UPPD_
SHIFT
IF [%~1] EQU [] (
GOTO :EOF
)
FOR /F "TOKENS=1,2 DELIMS=-" %%A IN ("%~1") DO (
IF NOT [%%B]==[] (
FOR /L %%C IN (%%A,1,%%B) DO (
SET "ROW[%LROW%].COL[%%C]=%CHAR_FRONT%"
)
) ELSE (
SET "ROW[%LROW%].COL[%%A]=%CHAR_FRONT%"
) 
)
GOTO :_UPPD_

:_JUPD_
SET "ROW[%~1].COL[%~2]=%CHAR_USER%"
GOTO :EOF

:_TUPD_
SET "ROW[%~1].COL[%~2]=%CHAR_FRONT%"
GOTO :EOF

:LVL_1
CALL :_UPD_ 1 1-23,27-50
CALL :_UPD_ 2 1,23,27,47,50,52-60
CALL :_UPD_ 3 1,6-16,23,27,34-38,42-45,47,50,52,60,65-72
CALL :_UPD_ 4 1,6,16,23,27-32,34,38,42,45,47,50,52,60-65,72
CALL :_UPD_ 5 1,6,16,23,32,34,38,42,45,47,50,52,72
CALL :_UPD_ 6 1,6,16,23,30-31,32,34,38,42,45-47,50,52,54-68,72
CALL :_UPD_ 7 1,6,16,23,27-30,34,39-42,50,52,54,68,72
CALL :_UPD_ 8 1,6,10-13,16,23,25-27,30,34,38,42,50,52,54,68-72
CALL :_UPD_ 9 1,6,10,13,16,23,27,30,34,38,42-50,52,54
CALL :_UPD_ 10 1,6,10,13,16,23,27,30,34,38,45,54
CALL :_UPD_ 11 1,3,6,8-10,13,16-23,27,30-34,38,45,49-72
CALL :_UPD_ 12 1,3,6,13,27,38,45,49,72
CALL :_UPD_ 13 1,3,6-13,27,38-49,72
CALL :_UPD_ 14 1,3,6,27,38,49-58,63,63-70,72
CALL :_UPD_ 15 1,3,6-23,27,39,58,63,71-72
CALL :_UPD_ 16 1,3,23,27,30-35,38-38,49,55,58,63,72
CALL :_UPD_ 17 1,23,27,30,35,38-49,51-55,58,63,72
CALL :_UPD_ 18 1-21,23,27,30,33,35,38,45,55,58,63-69,71-74
CALL :_UPD_ 19 8,21,23,27-30,33,35,38,45,55,58,63,69
CALL :_UPD_ 20 1-21,23,33,35-38,45-55,58,63,69-71
CALL :_UPD_ 21 1,23,33,55,58,63,71
CALL :_UPD_ 22 1,23-56,58,63,71
CALL :_UPD_ 23 1-23,56,58-63,66-71
CALL :_UPD_ 24 4
GOTO :EOF

:PLAY_LVL
IF 1 EQU %~1 (CALL :PLAY 24 4 18 74)
GOTO :EOF

:TCOLOR
CC -B 1
CC -C 7
GOTO :EOF

:MCOLOR
CC -B 0
CC -C 3
GOTO :EOF

:UCOLOR
CC -B 1
CC -C 14
GOTO :EOF

:PAINT
SET /A P_ROW=%~1
SET /A P_COL=%~2
IF !P_ROW! LSS 0 (GOTO :EOF)
IF !P_COL! LSS 0 (GOTO :EOF)
IF !P_ROW! GTR !ROWS! (GOTO :EOF)
IF !P_COL! GTR !COLS! (GOTO :EOF)
SET /A SCREENX=!P_COL!+1
SET /A SCREENY=!P_ROW!+1
CC -G %SCREENX% %SCREENY%
SET /P "PAINT=!ROW[%P_ROW%].COL[%P_COL%]!" < NUL
CC -G %SCREENX% %SCREENY%
CALL :TCOLOR
GOTO :EOF

:PLAY
SET /A ROW_S=%~1
SET /A COL_S=%~2
SET /A ROW_E=%~3
SET /A COL_E=%~4
SET /A ROW_ACTUAL=%ROW_S%
SET /A COL_ACTUAL=%COL_S%
CALL :_JUPD_ %ROW_S% %COL_S%
CALL :PAINT %ROW_S% %COL_S%
GOTO :PLAY_F

:PLAY_F
CALL :MOVE
SET /A ROW_SIG=%ROW_ACTUAL%
SET /A COL_SIG=%COL_ACTUAL%

IF 0 EQU %KEY% (GOTO :PLAY_F)
IF X EQU %KEY% (EXIT)
IF W EQU %KEY% (SET /A ROW_SIG-=1)
IF S EQU %KEY% (SET /A ROW_SIG+=1)
IF A EQU %KEY% (SET /A COL_SIG-=1)
IF D EQU %KEY% (SET /A COL_SIG+=1)

IF %ROW_SIG% LSS 0 (GOTO :PLAY_F)
IF %ROW_SIG% GTR %ROWS% (GOTO :PLAY_F)
IF %COL_SIG% LSS 0 (GOTO :PLAY_F)
IF %COL_SIG% GTR %COLS% (GOTO :PLAY_F)

IF !ROW_E! EQU !ROW_SIG! (
IF !COL_E! EQU !COL_SIG! (GOTO :EOF)
)
SET /A CONTINUE=0
CALL :EXTERN IF "^^%%ROW[%ROW_SIG%].COL[%COL_SIG%]%%" EQU "^^%CHAR_FRONT%" ^(SET /A CONTINUE=1^)
IF %CONTINUE% EQU 0 (GOTO :PLAY_F)
CALL :_TUPD_ !ROW_ACTUAL! !COL_ACTUAL!
CALL :_JUPD_ !ROW_SIG! !COL_SIG!
CALL :PAINT !ROW_ACTUAL! !COL_ACTUAL!
CALL :PAINT !ROW_SIG! !COL_SIG!
SET /A ROW_ACTUAL=!ROW_SIG!
SET /A COL_ACTUAL=!COL_SIG!
GOTO :PLAY_F
GOTO :EOF

:MOVE
CALL :KEYPRESS
SET KEY=0
IF 65 EQU %ERRORLEVEL% (SET KEY=A)
IF 97 EQU %ERRORLEVEL% (SET KEY=A)
IF 83 EQU %ERRORLEVEL% (SET KEY=S)
IF 115 EQU %ERRORLEVEL% (SET KEY=S)
IF 68 EQU %ERRORLEVEL% (SET KEY=D)
IF 100 EQU %ERRORLEVEL% (SET KEY=D)
IF 87 EQU %ERRORLEVEL% (SET KEY=W)
IF 119 EQU %ERRORLEVEL% (SET KEY=W)
IF 88 EQU %ERRORLEVEL% (SET KEY=X)
IF 120 EQU %ERRORLEVEL% (SET KEY=X)
SET KEY=%KEY%
GOTO :EOF

:KEYPRESS
CC -K
EXIT /B %ERRORLEVEL%
GOTO :EOF

:EXTERN
%*
GOTO :EOF

Cyg0g · 2 Diciembre 2009, 15:44 PM

Código [Seleccionar]

@echo off
title Sudokubat - by xassiz
setlocal enabledelayedexpansion
:menu
mode con cols=48 lines=10
cls
echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo. 1. Play Sudoku
echo. 2. How to play           
echo. 3. Exit
echo.&set "opc="
set/p "opc=>> "
if not defined opc (goto:menu)
if ["%opc:~0,1%"]==["1"] (goto:keyb)
if ["%opc:~0,1%"]==["2"] (goto:howto)
if ["%opc:~0,1%"]==["3"] (exit)
goto:menu
:keyb
mode con cols=48 lines=30
if not exist "keyboard.exe" (
(echo.n keyboard.xsz
echo.e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo.e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo.e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo.rcx
echo.002E
echo.w0&echo.q
echo.)>keyboard.xsz
type keyboard.xsz|debug
ren keyboard.xsz keyboard.exe
) else (goto:vars)
goto:keyb
:vars
set "level=1"
set "pos=°"
call:clean_var
set "position=a[1]"
set "letter=%position:~0,1%"
set "num=%position:~2,1%"
echo.msgbox"Nivel pasado, pulse Aceptar para seguir con el siguiente nivel",99,"Sudokubat - Nivel pasado!">%temp%\sudokubatemp.vbs
:level
if "%level%"=="1" (call:Sudoku_1)
:main
if "!%position%!"==" " (set "%position%=%pos%")
:table
call:header %level%
echo.      ÉÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ»
echo.      º %a[9]% ³ %b[9]% ³ %c[9]% º %d[9]% ³ %e[9]% ³ %f[9]% º %g[9]% ³ %h[9]% ³ %i[9]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[8]% ³ %b[8]% ³ %c[8]% º %d[8]% ³ %e[8]% ³ %f[8]% º %g[8]% ³ %h[8]% ³ %i[8]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[7]% ³ %b[7]% ³ %c[7]% º %d[7]% ³ %e[7]% ³ %f[7]% º %g[7]% ³ %h[7]% ³ %i[7]% º
echo.      ÈÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ¼
echo.      º %a[6]% ³ %b[6]% ³ %c[6]% º %d[6]% ³ %e[6]% ³ %f[6]% º %g[6]% ³ %h[6]% ³ %i[6]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[5]% ³ %b[5]% ³ %c[5]% º %d[5]% ³ %e[5]% ³ %f[5]% º %g[5]% ³ %h[5]% ³ %i[5]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[4]% ³ %b[4]% ³ %c[4]% º %d[4]% ³ %e[4]% ³ %f[4]% º %g[4]% ³ %h[4]% ³ %i[4]% º
echo.      ÉÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ»
echo.      º %a[3]% ³ %b[3]% ³ %c[3]% º %d[3]% ³ %e[3]% ³ %f[3]% º %g[3]% ³ %h[3]% ³ %i[3]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[2]% ³ %b[2]% ³ %c[2]% º %d[2]% ³ %e[2]% ³ %f[2]% º %g[2]% ³ %h[2]% ³ %i[2]% º
echo.      þÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄºÄÄÄþÄÄÄþÄÄÄþ
echo.      º %a[1]% ³ %b[1]% ³ %c[1]% º %d[1]% ³ %e[1]% ³ %f[1]% º %g[1]% ³ %h[1]% ³ %i[1]% º
echo.      ÈÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍþÍÍÍ¼
keyboard
if %level%==6 (goto:End) else (call:Sudoku_%level%)
if %errorlevel% == 49 (set "%position%=1")
if %errorlevel% == 50 (set "%position%=2")
if %errorlevel% == 51 (set "%position%=3")
if %errorlevel% == 52 (set "%position%=4")
if %errorlevel% == 53 (set "%position%=5")
if %errorlevel% == 54 (set "%position%=6")
if %errorlevel% == 55 (set "%position%=7")
if %errorlevel% == 56 (set "%position%=8")
if %errorlevel% == 57 (set "%position%=9")
if %errorlevel% == 8 (set "%position%=%pos%")
if %errorlevel% == 72 (goto:MoveUp)
if %errorlevel% == 80 (goto:MoveDown)
if %errorlevel% == 77 (goto:MoveRight)
if %errorlevel% == 75 (goto:MoveLeft)
if %errorlevel% == 13 (goto:Result)
goto:main

:MoveUp
set "old_position=%position%"
set/a num+=1
set "position=%letter%[%num%]"
goto:main

:MoveDown
set "old_position=%position%"
set/a num-=1
set "position=%letter%[%num%]"
goto:main

:MoveRight
set "old_position=%position%"
if "%letter%"=="h" (set "letter=i")
if "%letter%"=="g" (set "letter=h")
if "%letter%"=="f" (set "letter=g")
if "%letter%"=="e" (set "letter=f")
if "%letter%"=="d" (set "letter=e")
if "%letter%"=="c" (set "letter=d")
if "%letter%"=="b" (set "letter=c")
if "%letter%"=="a" (set "letter=b")
set "position=%letter%[%num%]"
goto:main

:MoveLeft
set "old_position=%position%"
if "%letter%"=="b" (set "letter=a")
if "%letter%"=="c" (set "letter=b")
if "%letter%"=="d" (set "letter=c")
if "%letter%"=="e" (set "letter=d")
if "%letter%"=="f" (set "letter=e")
if "%letter%"=="g" (set "letter=f")
if "%letter%"=="h" (set "letter=g")
if "%letter%"=="i" (set "letter=h")
set "position=%letter%[%num%]"
goto:main

:clean_var
for /L %%a in (1,1,9) do (
set "a[%%a]= "
set "b[%%a]= "
set "c[%%a]= "
set "d[%%a]= "
set "e[%%a]= "
set "f[%%a]= "
set "g[%%a]= "
set "h[%%a]= "
set "i[%%a]= "
)
set "a[1]=%pos%"
call:Sudoku_%level%
goto:eof

:header
cls
echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.                     Level %1
echo.
goto:eof

:Sudoku_1
set "a[2]=1"
set "a[7]=6"
set "b[2]=6"
set "b[5]=2"
set "b[6]=9"
set "b[7]=4"
set "b[9]=7"
set "c[2]=5"
set "c[5]=6"
set "c[7]=9"
set "d[1]=9"
set "d[4]=4"
set "d[9]=5"
set "e[1]=1"
set "e[4]=2"
set "e[6]=3"
set "e[9]=6"
set "f[1]=8"
set "f[6]=7"
set "f[9]=2"
set "g[3]=1"
set "g[5]=9"
set "g[8]=8"
set "h[1]=4"
set "h[3]=2"
set "h[4]=1"
set "h[5]=7"
set "h[8]=6"
set "i[3]=3"
set "i[8]=7"
goto:eof

:Sudoku_2
set "a[7]=8"
set "a[8]=9"
set "b[1]=5"
set "b[2]=4"
set "b[3]=7"
set "c[4]=2"
set "c[5]=6"
set "c[6]=7"
set "c[9]=4"
set "d[4]=1"
set "d[6]=8"
set "d[7]=7"
set "e[1]=3"
set "e[2]=8"
set "e[3]=6"
set "e[7]=2"
set "e[8]=1"
set "e[9]=5"
set "f[3]=1"
set "f[4]=3"
set "f[6]=6"
set "g[1]=7"
set "g[4]=5"
set "g[5]=3"
set "g[6]=1"
set "h[7]=6"
set "h[8]=4"
set "h[9]=1"
set "i[2]=9"
set "i[3]=2"
goto:eof

Código [Seleccionar]

:Sudoku_3
set "a[1]=8"
set "a[4]=1"
set "a[5]=5"
set "a[6]=2"
set "b[1]=7"
set "b[7]=5"
set "c[3]=6"
set "c[7]=9"
set "d[1]=1"
set "d[2]=2"
set "d[8]=3"
set "e[2]=3"
set "e[4]=6"
set "e[6]=7"
set "e[8]=9"
set "f[2]=6"
set "f[8]=4"
set "f[9]=5"
set "g[3]=9"
set "g[7]=8"
set "h[3]=1"
set "h[9]=6"
set "i[4]=2"
set "i[5]=4"
set "i[6]=3"
set "i[9]=9"
goto:eof

:Sudoku_4
set "a[3]=3"
set "a[6]=2"
set "b[3]=4"
set "b[8]=9"
set "c[1]=5"
set "c[3]=7"
set "c[5]=6"
set "c[6]=9"
set "c[9]=3"
set "d[2]=6"
set "e[1]=2"
set "e[4]=7"
set "e[6]=3"
set "e[9]=1"
set "f[8]=8"
set "g[1]=9"
set "g[4]=5"
set "g[5]=8"
set "g[7]=2"
set "g[9]=7"
set "h[2]=1"
set "h[7]=3"
set "i[4]=4"
set "i[7]=5"
goto:eof

:Sudoku_5
set "a[4]=8"
set "a[5]=7"
set "a[6]=4"
set "a[9]=3"
set "b[8]=9"
set "c[1]=2"
set "c[5]=3"
set "c[8]=5"
set "d[1]=3"
set "d[9]=1"
set "e[4]=9"
set "e[6]=6"
set "f[1]=5"
set "f[9]=4"
set "g[2]=6"
set "g[5]=1"
set "g[9]=8"
set "h[2]=7"
set "i[1]=1"
set "i[4]=6"
set "i[5]=2"
set "i[6]=3"
goto:eof

:End
cls
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.                    Felicidades,
echo.
echo.           has ganado Sudokubat, eres un gran
echo.
echo.                jugador de Sudoku =^)
pause>nul
cls
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.           Gracias por usar Sudokubat
echo.
echo.        Pulse cualquier tecla para salir
pause>nul
exit

:Result
::columns
cls
for %%_ in (a,b,c,d,e,f,g,h,i) do (
if "!%%_[1]!"=="!%%_[2]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[1]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[3]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[2]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[4]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[3]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[5]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[4]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[6]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[5]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[7]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[6]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[8]!" (set tBoolean=true)
if "!%%_[7]!"=="!%%_[9]!" (set tBoolean=true)
if "!%%_[8]!"=="!%%_[9]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Columns=Good")
(set tBoolean=)
::rows
for /L %%- in (1 1 9) do (
if "!a[%%-]!"=="!b[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!a[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!c[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!b[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!d[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!c[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!e[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!d[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!f[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!e[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!g[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!f[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!h[%%-]!" (set tBoolean=true)
if "!g[%%-]!"=="!i[%%-]!" (set tBoolean=true)
if "!h[%%-]!"=="!i[%%-]!" (set tBoolean=true)
)
if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                       Mal
echo.
pause>nul
goto:main
) else (set "Rows=Good")
(set tBoolean=)

::squares

if "%a[1]%"=="%b[2]%" (set tBoolean=true)
if "%a[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[1]%"=="%c[2]%" (set tBoolean=true)
if "%a[1]%"=="%c[3]%" (set tBoolean=true)
if "%b[1]%"=="%a[2]%" (set tBoolean=true)
if "%b[1]%"=="%a[3]%" (set tBoolean=true)
if "%b[1]%"=="%c[2]%" (set tBoolean=true)
if "%b[1]%"=="%c[3]%" (set tBoolean=true)
if "%c[1]%"=="%a[2]%" (set tBoolean=true)
if "%c[1]%"=="%a[3]%" (set tBoolean=true)
if "%c[1]%"=="%b[2]%" (set tBoolean=true)
if "%c[1]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%b[3]%" (set tBoolean=true)
if "%a[2]%"=="%c[3]%" (set tBoolean=true)
if "%b[2]%"=="%a[3]%" (set tBoolean=true)
if "%b[2]%"=="%c[3]%" (set tBoolean=true)
if "%c[2]%"=="%a[3]%" (set tBoolean=true)
if "%c[2]%"=="%b[3]%" (set tBoolean=true)

if "%d[1]%"=="%e[2]%" (set tBoolean=true)
if "%d[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[1]%"=="%f[2]%" (set tBoolean=true)
if "%d[1]%"=="%f[3]%" (set tBoolean=true)
if "%e[1]%"=="%d[2]%" (set tBoolean=true)
if "%e[1]%"=="%d[3]%" (set tBoolean=true)
if "%e[1]%"=="%f[2]%" (set tBoolean=true)
if "%e[1]%"=="%f[3]%" (set tBoolean=true)
if "%f[1]%"=="%d[2]%" (set tBoolean=true)
if "%f[1]%"=="%d[3]%" (set tBoolean=true)
if "%f[1]%"=="%e[2]%" (set tBoolean=true)
if "%f[1]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%e[3]%" (set tBoolean=true)
if "%d[2]%"=="%f[3]%" (set tBoolean=true)
if "%e[2]%"=="%d[3]%" (set tBoolean=true)
if "%e[2]%"=="%f[3]%" (set tBoolean=true)
if "%f[2]%"=="%d[3]%" (set tBoolean=true)
if "%f[2]%"=="%e[3]%" (set tBoolean=true)

if "%g[1]%"=="%h[2]%" (set tBoolean=true)
if "%g[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[1]%"=="%i[2]%" (set tBoolean=true)
if "%g[1]%"=="%i[3]%" (set tBoolean=true)
if "%h[1]%"=="%g[2]%" (set tBoolean=true)
if "%h[1]%"=="%g[3]%" (set tBoolean=true)
if "%h[1]%"=="%i[2]%" (set tBoolean=true)
if "%h[1]%"=="%i[3]%" (set tBoolean=true)
if "%i[1]%"=="%g[2]%" (set tBoolean=true)
if "%i[1]%"=="%g[3]%" (set tBoolean=true)
if "%i[1]%"=="%h[2]%" (set tBoolean=true)
if "%i[1]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%h[3]%" (set tBoolean=true)
if "%g[2]%"=="%i[3]%" (set tBoolean=true)
if "%h[2]%"=="%g[3]%" (set tBoolean=true)
if "%h[2]%"=="%i[3]%" (set tBoolean=true)
if "%i[2]%"=="%g[3]%" (set tBoolean=true)
if "%i[2]%"=="%h[3]%" (set tBoolean=true)

if "%a[4]%"=="%b[5]%" (set tBoolean=true)
if "%a[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[4]%"=="%c[5]%" (set tBoolean=true)
if "%a[4]%"=="%c[6]%" (set tBoolean=true)
if "%b[4]%"=="%a[5]%" (set tBoolean=true)
if "%b[4]%"=="%a[6]%" (set tBoolean=true)
if "%b[4]%"=="%c[5]%" (set tBoolean=true)
if "%b[4]%"=="%c[6]%" (set tBoolean=true)
if "%c[4]%"=="%a[5]%" (set tBoolean=true)
if "%c[4]%"=="%a[6]%" (set tBoolean=true)
if "%c[4]%"=="%b[5]%" (set tBoolean=true)
if "%c[4]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%b[6]%" (set tBoolean=true)
if "%a[5]%"=="%c[6]%" (set tBoolean=true)
if "%b[5]%"=="%a[6]%" (set tBoolean=true)
if "%b[5]%"=="%c[6]%" (set tBoolean=true)
if "%c[5]%"=="%a[6]%" (set tBoolean=true)
if "%c[5]%"=="%b[6]%" (set tBoolean=true)

if "%d[4]%"=="%e[5]%" (set tBoolean=true)
if "%d[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[4]%"=="%f[5]%" (set tBoolean=true)
if "%d[4]%"=="%f[6]%" (set tBoolean=true)
if "%e[4]%"=="%d[5]%" (set tBoolean=true)
if "%e[4]%"=="%d[6]%" (set tBoolean=true)
if "%e[4]%"=="%f[5]%" (set tBoolean=true)
if "%e[4]%"=="%f[6]%" (set tBoolean=true)
if "%f[4]%"=="%d[5]%" (set tBoolean=true)
if "%f[4]%"=="%d[6]%" (set tBoolean=true)
if "%f[4]%"=="%e[5]%" (set tBoolean=true)
if "%f[4]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%e[6]%" (set tBoolean=true)
if "%d[5]%"=="%f[6]%" (set tBoolean=true)
if "%e[5]%"=="%d[6]%" (set tBoolean=true)
if "%e[5]%"=="%f[6]%" (set tBoolean=true)
if "%f[5]%"=="%d[6]%" (set tBoolean=true)
if "%f[5]%"=="%e[6]%" (set tBoolean=true)

if "%g[4]%"=="%h[5]%" (set tBoolean=true)
if "%g[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[4]%"=="%i[5]%" (set tBoolean=true)
if "%g[4]%"=="%i[6]%" (set tBoolean=true)
if "%h[4]%"=="%g[5]%" (set tBoolean=true)
if "%h[4]%"=="%g[6]%" (set tBoolean=true)
if "%h[4]%"=="%i[5]%" (set tBoolean=true)
if "%h[4]%"=="%i[6]%" (set tBoolean=true)
if "%i[4]%"=="%g[5]%" (set tBoolean=true)
if "%i[4]%"=="%g[6]%" (set tBoolean=true)
if "%i[4]%"=="%h[5]%" (set tBoolean=true)
if "%i[4]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%h[6]%" (set tBoolean=true)
if "%g[5]%"=="%i[6]%" (set tBoolean=true)
if "%h[5]%"=="%g[6]%" (set tBoolean=true)
if "%h[5]%"=="%i[6]%" (set tBoolean=true)
if "%i[5]%"=="%g[6]%" (set tBoolean=true)
if "%i[5]%"=="%h[6]%" (set tBoolean=true)

if "%a[7]%"=="%b[8]%" (set tBoolean=true)
if "%a[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[7]%"=="%c[8]%" (set tBoolean=true)
if "%a[7]%"=="%c[9]%" (set tBoolean=true)
if "%b[7]%"=="%a[8]%" (set tBoolean=true)
if "%b[7]%"=="%a[9]%" (set tBoolean=true)
if "%b[7]%"=="%c[8]%" (set tBoolean=true)
if "%b[7]%"=="%c[9]%" (set tBoolean=true)
if "%c[7]%"=="%a[8]%" (set tBoolean=true)
if "%c[7]%"=="%a[9]%" (set tBoolean=true)
if "%c[7]%"=="%b[8]%" (set tBoolean=true)
if "%c[7]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%b[9]%" (set tBoolean=true)
if "%a[8]%"=="%c[9]%" (set tBoolean=true)
if "%b[8]%"=="%a[9]%" (set tBoolean=true)
if "%b[8]%"=="%c[9]%" (set tBoolean=true)
if "%c[8]%"=="%a[9]%" (set tBoolean=true)
if "%c[8]%"=="%b[9]%" (set tBoolean=true)

if "%d[7]%"=="%e[8]%" (set tBoolean=true)
if "%d[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[7]%"=="%f[8]%" (set tBoolean=true)
if "%d[7]%"=="%f[9]%" (set tBoolean=true)
if "%e[7]%"=="%d[8]%" (set tBoolean=true)
if "%e[7]%"=="%d[9]%" (set tBoolean=true)
if "%e[7]%"=="%f[8]%" (set tBoolean=true)
if "%e[7]%"=="%f[9]%" (set tBoolean=true)
if "%f[7]%"=="%d[8]%" (set tBoolean=true)
if "%f[7]%"=="%d[9]%" (set tBoolean=true)
if "%f[7]%"=="%e[8]%" (set tBoolean=true)
if "%f[7]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%e[9]%" (set tBoolean=true)
if "%d[8]%"=="%f[9]%" (set tBoolean=true)
if "%e[8]%"=="%d[9]%" (set tBoolean=true)
if "%e[8]%"=="%f[9]%" (set tBoolean=true)
if "%f[8]%"=="%d[9]%" (set tBoolean=true)
if "%f[8]%"=="%e[9]%" (set tBoolean=true)

Código [Seleccionar]

if "%g[7]%"=="%h[8]%" (set tBoolean=true)
if "%g[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[7]%"=="%i[8]%" (set tBoolean=true)
if "%g[7]%"=="%i[9]%" (set tBoolean=true)
if "%h[7]%"=="%g[8]%" (set tBoolean=true)
if "%h[7]%"=="%g[9]%" (set tBoolean=true)
if "%h[7]%"=="%i[8]%" (set tBoolean=true)
if "%h[7]%"=="%i[9]%" (set tBoolean=true)
if "%i[7]%"=="%g[8]%" (set tBoolean=true)
if "%i[7]%"=="%g[9]%" (set tBoolean=true)
if "%i[7]%"=="%h[8]%" (set tBoolean=true)
if "%i[7]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%h[9]%" (set tBoolean=true)
if "%g[8]%"=="%i[9]%" (set tBoolean=true)
if "%h[8]%"=="%g[9]%" (set tBoolean=true)
if "%h[8]%"=="%i[9]%" (set tBoolean=true)
if "%i[8]%"=="%g[9]%" (set tBoolean=true)
if "%i[8]%"=="%h[9]%" (set tBoolean=true)

if "%tBoolean%"=="true" (
call:header %level%
echo.
echo.                      Mal
echo.
pause>nul
goto:main
) else (set "Squares=Good")
(set tBoolean=)
if "%Columns%"=="Good" (
if "%Rows%"=="Good" (
if "%Squares%"=="Good" (
start %temp%\sudokubatemp.vbs
set/a "level+=1"
if %level%==6 (goto:End)
call:clean_var
goto:main
))) else (goto:main)


:howto
cls
mode con cols=52 lines=16
echo.&echo.
echo.             ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo.             ³Sudokubat - by xassiz³
echo.             ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo. Muevete por el tablero con las teclas de direccion
echo. y ve poniendo numeros con el teclado.
echo.
echo.  Una vez acabes y quieras comprobar si lo hiciste
echo.   correctamente, solo tienes que darle a Enter.
echo.
echo.      Espero que disfruteis con Sudokubat
echo.
echo.                     Saludos
echo.                     xassiz_
echo.
pause>nul&goto:menu

Cyg0g · 2 Diciembre 2009, 15:45 PM

[Batch Game] Adventure Game - by SmartGenius

Código [Seleccionar]

@Echo Off
@title Adventure Game
::Batch Game Adventure
::Coded by SmartGenius
::Batch Game Maker

setlocal enabledelayedexpansion
mode con cols=14 lineS=13

If Not Exist "keyboard.exe" (Call :NoKey)

:Vars
Set "Pj="
Set "LimX=9"
Set "LimY=10"
Set "MovA=0"
Set "MovB=9"
Set "Bound=Û"
Set "Ender= "
Set "Coin="

:Init
Set /a Level+=1
Call :Nivel_%Level%
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set X%%aY%%b=!LN_%%b:~%%a,1!))
Set "%CurPos%=%Pj%"
Goto :Graphic

:Graphic
Call :Clear
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Echo.
For /l %%f in (0,1,%LimY%) do (echo.  !Lin_%%f!)
Keyboard
If "%errorlevel%"=="77" (Call :Derecha "%CurPos%")
If "%errorlevel%"=="75" (Call :Izquierda "%CurPos%")
If "%errorlevel%"=="72" (Call :Saltar "%CurPos%")
If "%errorlevel%"=="27" (msg * Gracias Por Jugar&Exit)
Call :Gravity "%CurPos%"
Goto :Graphic

:Derecha
If "%Mov%"=="115" Goto :Eof
For /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
Set /a MovX=%%p+1
Call Set NMovX=%%X!MovX!Y%%q%%
if "!NMovX!"=="%Bound%" (Goto :Eof)
if "!NMovX!"=="%Ender%" (Goto :Win)
if "!NMovX!"=="%Coin%" (Call :UnCoin "%%q" "%%p" "+1")
Set /a Mov=Mov+1
For /l %%d in (0,1,%LimY%) do (Set LNB_%%d=!LN_%%d:~%Mov%!)
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set X%%aY%%b=!LNB_%%b:~%%a,1!))
Set "%CurPos%=%Pj%")
Goto :Eof

:Izquierda
If "%Mov%"=="0" Goto :Eof
For /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
Set /a MovX=%%p-1
Call Set NMovX=%%X!MovX!Y%%q%%
if "!NMovX!"=="%Bound%" (Goto :Eof)
if "!NMovX!"=="%Ender%" (Goto :Win)
if "!NMovX!"=="%Coin%" (Call :UnCoin "%%q" "%%p" "+1")
Set /a Mov=Mov-1
For /l %%d in (0,1,%LimY%) do (Set LNB_%%d=!LN_%%d:~%Mov%!)
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set X%%aY%%b=!LNB_%%b:~%%a,1!))
Set "%CurPos%=%Pj%")
Goto :Eof

:Saltar
For /l %%z in (1,1,3) do (
Call :Arriba "!CurPos!"
Call :Gp2)
Call :Derecha "%CurPos%"
Call :Gp2
Goto :Eof

:Arriba
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovY=%%q-1
call set NMovY=%%X%%pY!MovY!%%
if "!NMovY!"=="%Bound%" (Goto :Eof)
if "!NMovY!"=="%Ender%" (Goto :Win)
Set %~1=°
set X%%pY!MovY!=%Pj%
set CurPos=X%%pY!MovY!)
Goto :Eof

:Abajo
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovY=%%q+1
call set NMovY=%%X%%pY!MovY!%%
if "!NMovY!"=="%Bound%" (Goto :Eof)
if "!NMovY!"=="%Ender%" (Goto :Win)
Set %~1=°
set X%%pY!MovY!=%Pj%
set CurPos=X%%pY!MovY!)
Goto :Eof

:UnCoin
Set /a "M1=%~2+%Mov%"
Set /a "M2=%M1%%~3"
Set "LN_%~1=!LN_%~1:~0,%M1%!°!LN_%~1:~%M2%!
Set /a Coins+=5
Goto :Eof

:Gravity
Set /a "GForce=9-%CurPos:~-1%"
For /l %%z in (1,1,%GForce%) do (
Call :Abajo "!CurPos!"
If "%1"=="!CurPos!" Goto :Eof
Call :Gp2)
Goto :Eof

:Gp2
Call :Clear
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Echo.
For /l %%f in (0,1,%LimY%) do (echo.  !Lin_%%f!)
ping -n 1,5 0.0.0.0 >nul
Goto :Eof

:Clear
For /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
Goto :Eof

:Win
ping -n 2 0.0.0.0 >nul
If "%Level%"=="2" (
echo.
echo.  Muy Bien
echo.
echo. Ganaste %Coins%
echo.
echo.   Puntos !
echo.
ping -n 4 0.0.0.0 >nul
msg * Gracias Por Jugar
Exit
) else (Goto :Vars)
ping -n 2 0.0.0. >nul
Exit


:Nivel_1
Set "CurPos=X2Y3"
Set LN_0= ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Set LN_1= Û°Û±±±±°±°°°±°±±±±°±±±°Û±±±±±°±±±±±°±±±±°±°°Û±°±±±°±Û°±°±±±±°°°±±±±±°±°°±°±±±±°±±±°±±±±°±±±±°±±±±±°°°°°°°±±±±±°°°Û°°°Û
Set LN_2= Û°Û±°°°°±±°±±°±°°±°±°°±°°°±°°°±°°°°°±°°°°±±°°±°±°°±Û°±°±°°°°°°°°±°°°±°°±°±°ÛÛÛÛ°±°±Û±°°°°±°°°°°°±°°°°°°°°±°°°°°±° Û°°°Û
Set LN_3= Û°°±±±±°±°±°±°±±±±°±±±°°±°°°±°±±±±±±±°±°±°±°Û±°°±Û°±°±±±±°°°±°°Û±±±±°±±±±°°±±±ÛÛ±±±±°±±±±°°°±°°°°°°±°°±°±°°±ÛÛ°°°Û
Set LN_4= ÛÛÛ°°°±°±°°°±°±°°±°±°°±°ÛÛ±°°°±°°°±Û±°°°°±°°±±Û±°°±Û°±ÛÛÛ±Û°°ÛÛ±°ÛÛ±°°±°±°°°°°Û±°Û±Û±°°°°°°°±°°°±°ÛÛÛ°°°±ÛÛÛÛÛÛÛ±°°°°°Û
Set LN_5= Û°°±±±±°±°°°±°±Û°±°±Û±°°°±°°±±±±±Û±±±±°±°°°±Û±±±°±±±±Û±±±±°°°°°±°°°±°Û±°±±±±°°±±±°Û±±±±°±±±±°±°°Û°°°°±±±±Û°°°°°Û
Set LN_6= Û°°°°°°°°°Û°°°°Û°°°°°ÛÛÛ°°°ÛÛ°°°ÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°ÛÛ°°ÛÛÛÛÛÛÛ°°°°°Û°Û°°ÛÛ°ÛÛÛÛ°°°°ÛÛÛÛÛ°ÛÛÛÛ°Û°°ÛÛÛ°°°°°°°°Û
Set LN_7= Û°°°°ÛÛÛ°°Û°°°°°°°°Û°°°°°°°°°°°°°°°°°°°°°ÛÛÛ°°°ÛÛÛÛÛÛÛ°°°°°Û°°°°°°°°°°°°°°°°°ÛÛÛÛÛÛ°°°ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°Û
Set LN_8= ÛÛÛ°°Û°°°°°°°ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°Û°ÛÛÛÛ°°ÛÛÛÛ°°°°°°°°°°Û°°°°°°°°°°Û°°°°°°ÛÛ°Û°Û°ÛÛÛÛ°°°°°°°°°°°°Û°°°°°°°Û°ÛÛÛÛÛÛÛÛÛÛ°°°°°°Û
Set LN_9= Û°°°°°°°°°°°°°°°°°°°°°°°°Û°°Û°°°°°Û°°°ÛÛ°°°°°°°°°ÛÛÛ°Û°°°°°°°°°°°°°°°°°°°Û°°°ÛÛ°°°°°°°°Û°°°°°°°°°°°°Û
Set LN_10= ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Goto :Eof

:Nivel_2
Set "CurPos=X2Y2"
Set LN_0= ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Set LN_1= Û°°°°°°°Û°°°°°°°°°°°°°°°°°°°°°°°Û°°°°°°°°°Û
Set LN_2= Û°°°°°°Û°°°°°ÛÛÛ°°Û°ÛÛÛÛÛÛÛÛÛÛ°°ÛÛ°°ÛÛÛÛÛ°°ÛÛÛÛ°°
Set LN_3= ÛÛÛ°°°°°°ÛÛÛ°°°°Û°°°°°°°°°Û°Û°Û°°°°°°°°°°°Û°°°Û
Set LN_4= Û°°°°°°°°°°°°°ÛÛÛÛÛÛ°°°°°°°Û°°°°°°°ÛÛÛ°°ÛÛ°°Û°°ÛÛ
Set LN_5= Û°°°°°ÛÛÛ°°°°°°°°°Û°ÛÛ°°Û°°Û°°°°°°°°°°°Û°°°Û
Set LN_6= Û°Û°°°Û°°°°ÛÛÛ°°°°ÛÛÛÛÛÛÛÛÛÛ°°°°°°°°ÛÛÛÛÛÛÛÛ°°ÛÛÛ
Set LN_7= ÛÛÛÛ°°°°°°°°°Û°°Û°°°°°Û°°°Û°ÛÛ°°°°°°Û°°ÛÛÛÛÛÛ
Set LN_8= Û°°°°Û°°°ÛÛ°°Û°°Û°°°°ÛÛÛÛÛ°°°ÛÛ°Û°°ÛÛÛÛ°°ÛÛ°°°°°°°Û
Set LN_9= Û°°Û°°°Û°Û°°°°°°°°°°°°°°°°°Û°°°°°°°°°°°°Û
Set LN_10= ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
Goto :Eof

:NoKey
Cls
echo.
echo. Cargando...
call :Keyboard
Goto :Eof

:Keyboard
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
type keyboard.dat|debug>NUL 2>&1
del /f/q/a "keyboard.exe">NUL 2>&1
ren keyboard.dat "keyboard.exe"
Goto :Eof

Este juego es el pacman xD esta echo por SmartGenius aki os dejo el codigo:

Código [Seleccionar]

@echo off
 @title PacMan v 1
 @mode con cols=24 lines=24
 @::Juego Batch PacMan
 @::Another Batch Game
 @::by ::SmartGenius ::

if not exist "choice.com" (Goto :NoKey)

:load
call :Logo
setlocal enabledelayedexpansion
set LimX=16
set LimY=16
set NLevels=1

:init
for /l %%a in (0,1,%LimX%) do (
for /l %%b in (0,1,%LimY%) do (
set X%%aY%%b=.))
set Player=
set Bound=Û
set Box=
set Ghost=

:Levels
set /a L+=1
Call :Level%L%
Call :Graphic
set P%L%=%Movs%
if "%NXL%"=="True" Goto :End
if "%L%"=="%NLevels%" Goto :Win
ping -n 1 0.0.0.0 >nul
Goto :Init

:Graphic
Call :Clear
cls
for /l %%d in (0,1,%LimY%) do (
for /l %%e in (0,1,%LimX%) do (
set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
echo.
echo.  Pacman v 1 by Smart
echo.
echo.  Vidas:%Lives%   Puntos:%Points%
echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
for /l %%f in (0,1,%LimY%) do (echo.   º!Lin_%%f!º)
echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼
CHOICE /C:WASDX /N /T:%Dir%,1 >nul
if "%errorlevel%"=="1" (call :MovY- "%CurPos%" CurPos&set Dir=W)
if "%errorlevel%"=="2" (call :MovX- "%CurPos%" CurPos&set Dir=A)
if "%errorlevel%"=="3" (call :MovY+ "%CurPos%" CurPos&set Dir=S)
if "%errorlevel%"=="4" (call :MovX+ "%CurPos%" CurPos&set Dir=D)
if "%errorlevel%"=="5" (set NXL=True&Goto :Eof)
Call :MovGhost
for %%w in (%Boxes%) do (
if not "!%%w!"=="%Box%" (
if "!%%w!"=="." (set %%w=%Box%)))
set /a NCK=%Points% %% 7
if "%NCK%"=="0" set Cki=False
if "%EOG%"=="True" (msg * Perdiste&Goto :Eof)
Goto :Graphic

::Logica de Movimiento en el Plano
::Coded by :: SmartGenius ::

:MovX+
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p+1
call set NMovX=%%X!MovX!Y%%q%%

if "!NMovX!"=="%Bound%" (Goto :Eof)

if "!NMovX!"=="%Ghost%" (
if !%~1!==%Player% (
if "%Cki%"=="True" (
set %~1= 
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q
set /a Points+=10
call :UnGhost "X!MovX!Y%%q"
)
if "%Cki%"=="False" (
set %~1= 
set /a Lives-=1
set %Init%=%Player%
set %2=%Init%
if "!Lives!"=="0" (set EOG=True)
)))

if "!NMovX!"=="." (
if !%~1!==%Player% (
set %~1= 
set /a Points+=2
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1=.
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q))

if "!NMovX!"==" " (
if !%~1!==%Player% (
set %~1= 
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1= 
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q))


if "!NMovX!"=="%Box%" (
if !%~1!==%Player% (
set %~1= 
set /a Points+=5
set Cki=True
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1=.
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q)))

if !%~1!==%Player% set /a Movs+=1
Goto :Eof


:MovX-
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p-1
call set NMovX=%%X!MovX!Y%%q%%

if "!NMovX!"=="%Bound%" (Goto :Eof)

if "!NMovX!"=="%Ghost%" (
if !%~1!==%Player% (
if "%Cki%"=="True" (
set %~1= 
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q
set /a Points+=10
call :UnGhost "X!MovX!Y%%q"
)
if "%Cki%"=="False" (
set %~1= 
set /a Lives-=1
set %Init%=%Player%
set %2=%Init%
if "!Lives!"=="0" (set EOG=True)
)))

if "!NMovX!"=="." (
if !%~1!==%Player% (
set %~1= 
set /a Points+=2
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1=.
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q))

if "!NMovX!"==" " (
if !%~1!==%Player% (
set %~1= 
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1= 
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q))


if "!NMovX!"=="%Box%" (
if !%~1!==%Player% (
set %~1= 
set /a Points+=5
set Cki=True
set X!MovX!Y%%q=%Player%
set %2=X!MovX!Y%%q)
if !%~1!==%Ghost% (
set %~1=.
set X!MovX!Y%%q=%Ghost%
set %2=X!MovX!Y%%q)))

if !%~1!==%Player% set /a Movs+=1
Goto :Eof


:MovY+
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovY=%%q+1
call set NMovY=%%X%%pY!MovY!%%

if "!NMovY!"=="%Bound%" (Goto :Eof)

if "!NMovY!"=="%Ghost%" (
if !%~1!==%Player% (
if "%Cki%"=="True" (
set %~1= 
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!
set /a Points+=10
call :UnGhost "X%%pY!MovY!"
)
if "%Cki%"=="False" (
set %~1= 
set /a Lives-=1
set %Init%=%Player%
set %2=%Init%
if "!Lives!"=="0" (set EOG=True)
)))

if "!NMovY!"=="." (
if !%~1!==%Player% (
set %~1= 
set /a Points+=2
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1=.
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!))

if "!NMovY!"==" " (
if !%~1!==%Player% (
set %~1= 
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1= 
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!))


if "!NMovY!"=="%Box%" (
if !%~1!==%Player% (
set %~1= 
set /a Points+=5
set Cki=True
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1=.
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!)))

if !%~1!==%Player% set /a Movs+=1
Goto :Eof


:MovY-
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovY=%%q-1
call set NMovY=%%X%%pY!MovY!%%

if "!NMovY!"=="%Bound%" (Goto :Eof)

if "!NMovY!"=="%Ghost%" (
if !%~1!==%Player% (
if "%Cki%"=="True" (
set %~1= 
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!
set /a Points+=10
call :UnGhost "X%%pY!MovY!"
)
if "%Cki%"=="False" (
set %~1= 
set /a Lives-=1
set %Init%=%Player%
set %2=%Init%
if "!Lives!"=="0" (set EOG=True)
)))

if "!NMovY!"=="." (
if !%~1!==%Player% (
set %~1= 
set /a Points+=2
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1=.
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!))

if "!NMovY!"==" " (
if !%~1!==%Player% (
set %~1= 
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1= 
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!))


if "!NMovY!"=="%Box%" (
if !%~1!==%Player% (
set %~1= 
set /a Points+=5
set Cki=True
set X%%pY!MovY!=%Player%
set %2=X%%pY!MovY!)
if !%~1!==%Ghost% (
set %~1=.
set X%%pY!MovY!=%Ghost%
set %2=X%%pY!MovY!)))

if !%~1!==%Player% set /a Movs+=1
Goto :Eof


:MovGhost
set NGG=0
for %%z in (%Ghosts%) do (
set /a NG+=1
set Ghost!NG!=%%z)
:MovGhost2
set /a NGG+=1
set /a GoMov=%random:~-1% %% 4
if "!GoMov!"=="0" Call :MovX+ %%Ghost!NGG!%% Ghost!NGG!
if "!GoMov!"=="1" Call :MovX- %%Ghost!NGG!%% Ghost!NGG!
if "!GoMov!"=="2" Call :MovY+ %%Ghost!NGG!%% Ghost!NGG!
if "!GoMov!"=="3" Call :MovY- %%Ghost!NGG!%% Ghost!NGG!
)
if "%NGG%"=="4" ( 
set Ghosts=%Ghost1%,%Ghost2%,%Ghost3%,%Ghost4%
set NG=0
Goto :Eof)
Goto :MovGhost2

:UnGhost
set Ghosts=!Ghosts:%~1=X8Y7!
for %%g in (%Ghosts%) do (set %%g=%Ghost%)
Goto :Eof

:Clear
for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
Goto :Eof

:Win

:End
msg * Gracias por Jugar PacMan v1 by :: SmartGenius::
endlocal
exit

::Niveles del Juego PacMan
::Coordenadas Cartesianas
::Coded by :: SmartGenius ::

::Inicio Nivel 1
:Level1
set Movs=0
set Points=0
set X2Y15=%Player%
set CurPos=X2Y15
set Init=X2Y15
set Lives=3
set Cki=False
set Dir=D
set Ghosts=X2Y11,X6Y9,X6Y7,X10Y6
set Boxes=X2Y1,X2Y9,X14Y1,X14Y9,X14Y15
for %%g in (%Ghosts%) do (set %%g=%Ghost%)
for %%h in (%Boxes%) do (set %%h=%Box%)
for /l %%i in (0,1,16) do (
set X0Y%%i=%Bound%
set X1Y%%i=%Bound%
set X15Y%%i=%Bound%
set X16Y%%i=%Bound%
set X%%iY0=%Bound%
set X%%iY16=%Bound%)
for %%j in (3,4,5,6,10,11,12,13) do (
set X%%jY2=%Bound%
set X%%jY3=%Bound%
set X%%jY10=%Bound%
set X%%jY14=%Bound%)
for %%k in (X8Y1,X8Y2,X8Y3,X3Y5,X3Y6,X3Y7,X3Y8,X5Y5,X5Y6,X5Y7,X5Y8,X6Y5,X7Y5) do (set %%k=%Bound%)
for %%l in (X6Y8,X7Y8,X8Y8,X9Y8,X10Y8,X9Y5,X10Y5,X11Y5,X11Y6,X11Y7,X11Y8,X13Y5) do (set %%l=%Bound%)
for %%m in (X13Y6,X13Y7,X13Y8,X7Y10,X9Y10,X3Y12,X3Y13,X5Y12,X6Y12,X7Y12,X8Y12) do (set %%m=%Bound%)
for %%n in (X9Y12,X10Y12,X11Y12,X8Y13,X8Y14,X13Y12,X13Y13) do (set %%n=%Bound%)
for %%o in (X6Y6,X7Y6,X8Y5,X8Y6,X9Y6,X7Y7,X8Y7,X9Y7,X10Y7) do (set %%o= )
Goto :Eof

::Fin Nivel 1

::Fin de Coordenadas

:Logo
color 0a
cls
echo.
echo. °°°°°°°°°°°°°°°°°°°°°°
echo. °°°°°°°°°°°°°°°°°°°°°°
echo. °ÛÛÛÛÛ°ÛÛÛÛÛ°°ÛÛÛÛÛÛ°°
echo. °Û°°°Û°Û°°°Û°ÛÛÛÛÛÛ°°°
echo. °Û°°°Û°Û°°°Û°ÛÛÛÛ°°°°°
echo. °ÛÛÛÛÛ°ÛÛÛÛÛ°ÛÛÛ°°°°°°
echo. °Û°°°°°Û°°°Û°ÛÛÛÛ°°°°°
echo. °Û°°°°°Û°°°Û°ÛÛÛÛÛÛ°°°
echo. °Û°°°°°Û°°°Û°°ÛÛÛÛÛÛ°°
echo. °°°°°°°°°°°°°°°°°°°°°°
echo. °°ÛÛ°ÛÛ°ÛÛÛÛÛ°Û°°°°Û°°
echo. °°Û°Û°Û°Û°°°Û°ÛÛ°°°Û°°
echo. °°Û°°°Û°Û°°°Û°Û°Û°°Û°°
echo. °°Û°°°Û°ÛÛÛÛÛ°Û°°Û°Û°°
echo. °°Û°°°Û°Û°°°Û°Û°°Û°Û°°
echo. °°Û°°°Û°Û°°°Û°Û°°°ÛÛ°°
echo. °°Û°°°Û°Û°°°Û°Û°°°°Û°°
echo. °°°°°°°°°°°°°°°°°°°°°°
echo. °°°°°°°°°°°°°°°°°°°°°°
echo. °°°: SmartGenius :°°°°
echo. °°°  Corp.  2009  °°°°
echo. °°°°°°°°°°°°°°°°°°°°°°
ping -n 3 0.0.0.0 >nul
color 0e
Goto :Eof


:NoKey
 @mode con cols=30 lines=20
cls
echo.
echo  Uno de los archivos necesarios para el
echo  funcionamiento de este Script no se
echo  encuentra.
echo.
echo  CHOICE.COM
echo.
echo  Por favor descargue una copia del Comando
echo  CHOICE de Internet...
echo.
pause
exit

Cyg0g · 2 Diciembre 2009, 15:46 PM

: http://http://wikisend.com/download/497860/PingPong_bySmart.zip ping pong

Código [Seleccionar]

@title PingPong v 1
@mode con cols=28 lines=24
@::Juego Batch PingPong
@::Another Batch Game
@::by ::SmartGenius ::

if not exist "choice.com" (Goto :NoKey)

:load
call :Logo
setlocal enabledelayedexpansion
set LimX=18
set LimY=16
set TBound=3
set LBound=1
set /a RBound=%LimX%-1
set /a BBound=%LimY%-3
set NLevels=1

:init
for /l %%a in (0,1,%LimX%) do (
for /l %%b in (0,1,%LimY%) do (
set X%%aY%%b= ))
set Ball=O
set Bound=?
set Block=�
set Line=?
set Lost=?

:Levels
set /a L+=1
Call :Level%L%
Call :Graphic
set P%L%=%Movs%
if "%LOS%"=="True" Goto :Lost
if "%NXL%"=="True" Goto :End
if "%L%"=="%NLevels%" Goto :Win
ping -n 1 0.0.0.0 >nul
Goto :Init

:Graphic
Call :Clear
cls
for /l %%d in (0,1,%LimY%) do (
for /l %%e in (0,1,%LimX%) do (
set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
echo.
echo.   PingPong v 1 by Smart
echo.
echo.    PC:%PPC%     Player:%Points%
echo.   ????????????????????
for /l %%f in (0,1,%LimY%) do (echo.   ?!Lin_%%f!?)
echo.   ????????????????????
rem pause >nul
call :%Action%
if "%PPC%"=="10" (Set LOS=True&set NXL=True)
if "%NXL%"=="True" (Goto :Eof)
Goto :Graphic

:Paused
CHOICE /C:WADX /N >nul
if "%errorlevel%"=="1" (set Action=Playing)
if "%errorlevel%"=="2" (call :LeftA)
if "%errorlevel%"=="3" (call :RightA)
if "%errorlevel%"=="4" (set NXL=True)
Call :MovPC "%CurPos%"
Goto :Eof

:Playing
CHOICE /C:WADX /N /T:W,1 >nul
if "%errorlevel%"=="1" (set Action=Playing)
if "%errorlevel%"=="2" (call :LeftB)
if "%errorlevel%"=="3" (call :RightB)
if "%errorlevel%"=="4" (set NXL=True)
Call :MovBall
Call :MovPC "%CurPos%"
Goto :Eof

::Logica de Movimiento en el Plano
::Coded by :: SmartGenius ::

:RightA
if ["%Table%"]==["%MaxTable%"] (Goto :Eof)
for /f "tokens=1,5 delims=," %%u in ("%Table%") do (
call :MovAX+ "%%u" "%%v" TB "!%%u!"
call set NewTable=!TB!,%Table%
for /f "tokens=1-5 delims=," %%t in ("!NewTable!") do (set NewTable=%%t,%%u,%%v,%%w,%%x)
set Table=!NewTable!
call :MovAX+ "%CurPos%" "%CurPos%" CurPos "!%CurPos%!"
)
Goto :Eof

:MovAX+
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p+1
call set NMovX=%%X!MovX!Y%%q%%
if "!NMovX!"=="%Bound%" (Goto :Eof)
if "!NMovX!"==" " (
set %~2= 
set X!MovX!Y%%q=%~4
set %3=X!MovX!Y%%q))
Goto :Eof

:RightB
if ["%Table%"]==["%MaxTable%"] (Goto :Eof)
for /f "tokens=1,5 delims=," %%u in ("%Table%") do (
call :MovAX+ "%%u" "%%v" TB "!%%u!"
call set NewTable=!TB!,%Table%
for /f "tokens=1-5 delims=," %%t in ("!NewTable!") do (set NewTable=%%t,%%u,%%v,%%w,%%x)
set Table=!NewTable!)
Goto :Eof

:LeftA
if ["%Table%"]==["%MinTable%"] (Goto :Eof)
for /f "tokens=1,5 delims=," %%u in ("%Table%") do (
call :MovAX- "%%v" "%%u" TB "!%%v!"
call set NewTable=%Table%,!TB!
for /f "tokens=2-6 delims=," %%t in ("!NewTable!") do (set NewTable=%%t,%%u,%%v,%%w,%%x)
set Table=!NewTable!
call :MovAX- "%CurPos%" "%CurPos%" CurPos "!%CurPos%!"
)
Goto :Eof

:LeftB
if ["%Table%"]==["%MinTable%"] (Goto :Eof)
for /f "tokens=1,5 delims=," %%u in ("%Table%") do (
call :MovAX- "%%v" "%%u" TB "!%%v!"
call set NewTable=%Table%,!TB!
for /f "tokens=2-6 delims=," %%t in ("!NewTable!") do (set NewTable=%%t,%%u,%%v,%%w,%%x)
set Table=!NewTable!)
Goto :Eof

:MovAX-
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p-1
call set NMovX=%%X!MovX!Y%%q%%
if "!NMovX!"=="%Bound%" (Goto :Eof)
if "!NMovX!"==" " (
set %~2= 
set X!MovX!Y%%q=%~4
set %3=X!MovX!Y%%q))
Goto :Eof

:MovPC
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
for /l %%x in (%LBound%,1,%RBound%) do (set X%%xY2= )
set /a PCL=%%p-2
set /a PCR=%%p+2
for /l %%s in (!PCL!,1,!PCR!) do (set X%%sY2=%Bound%))
Goto :Eof

:MovBall
set EOM=False
Call :%NextMov% "%CurPos%"
if "%EOM%"=="True" Goto :Eof
Goto :MovBall

::Moviemtos Diagonales de la Bola
::Movimiento Diagonal1
:Diag1
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p+1
set /a MovY=%%q+1
call set NMovXY=%%X!MovX!Y!MovY!%%

if "!NMovXY!"=="%Bound%" (
if "%%q"=="%BBound%" (set NextMov=Diag3)
if "%%p"=="%RBound%" (set NextMov=Diag4)
Goto :Eof)

if "!NMovXY!"==" " (
set %~1= 
set X!MovX!Y!MovY!=%Ball%
set CurPos=X!MovX!Y!MovY!
set EOM=True)
)

if "!NMovXY!"=="%Lost%" (
set %~1= 
set /a PPC+=1
call :Reset
set EOM=True)
)
Goto :Eof

::Movimiento Diagonal2
:Diag2
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p-1
set /a MovY=%%q-1
call set NMovXY=%%X!MovX!Y!MovY!%%

if "!NMovXY!"=="%Bound%" (
if "%%q"=="%TBound%" (set NextMov=Diag4)
if "%%p"=="%LBound%" (set NextMov=Diag3)
Goto :Eof)

if "!NMovXY!"==" " (
set %~1= 
set X!MovX!Y!MovY!=%Ball%
set CurPos=X!MovX!Y!MovY!
set EOM=True)
)

if "!NMovXY!"=="%Lost%" (
set %~1= 
set /a Points+=1
call :Reset
set EOM=True)
)
Goto :Eof

::Movimiento Diagonal3
:Diag3
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p+1
set /a MovY=%%q-1
call set NMovXY=%%X!MovX!Y!MovY!%%

if "!NMovXY!"=="%Bound%" (
if "%%q"=="%TBound%" (set NextMov=Diag1)
if "%%p"=="%RBound%" (set NextMov=Diag2)
Goto :Eof)

if "!NMovXY!"==" " (
set %~1= 
set X!MovX!Y!MovY!=%Ball%
set CurPos=X!MovX!Y!MovY!
set EOM=True)
)

if "!NMovXY!"=="%Lost%" (
set %~1= 
set /a Points+=1
call :Reset
set EOM=True)
)
Goto :Eof

::Movimiento Diagonal4
:Diag4
for /f "tokens=1,2 delims=X,Y" %%p in ("%~1") do (
set /a MovX=%%p-1
set /a MovY=%%q+1
call set NMovXY=%%X!MovX!Y!MovY!%%

if "!NMovXY!"=="%Bound%" (
if "%%q"=="%BBound%" (set NextMov=Diag2)
if "%%p"=="%LBound%" (set NextMov=Diag1)
Goto :Eof)

if "!NMovXY!"==" " (
set %~1= 
set X!MovX!Y!MovY!=%Ball%
set CurPos=X!MovX!Y!MovY!
set EOM=True)
)

if "!NMovXY!"=="%Lost%" (
set %~1= 
set /a PPC+=1
call :Reset
set EOM=True)
)
Goto :Eof

:Clear
for /l %%m in (0,1,%LimY%) do (set Lin_%%m=)
Goto :Eof

:Reset
set CurPos=X8Y13
set Table=X10Y14,X9Y14,X8Y14,X7Y14,X6Y14
for /l %%h in (1,1,17) do (set X%%hY14= )
for %%k in (%Init%) do (set %%k=%Line%)
for /f "tokens=1 delims=," %%j in ("%Init%") do (set %%j=%Ball%)
set Action=Paused
Goto :Eof

:Lost
msg * Perdiste !

:End
msg * Gracias por Jugar PingPong v1 by :: SmartGenius::
endlocal
exit

::Niveles del Juego PingPong
::Coordenadas Cartesianas
::Coded by :: SmartGenius ::

::Inicio Nivel 1
:Level1
set Movs=0
set Points=0
set PPC=0
set CurPos=X8Y13
set Table=X10Y14,X9Y14,X8Y14,X7Y14,X6Y14
set MaxTable=X17Y14,X16Y14,X15Y14,X14Y14,X13Y14
set MinTable=X5Y14,X4Y14,X3Y14,X2Y14,X1Y14
set Init=X8Y13,X6Y14,X7Y14,X8Y14,X9Y14,X10Y14
set Lives=3
set Dir=N
set Action=Paused
set NextMov=Diag3
for /l %%e in (%LBound%,1,%RBound%) do (set X%%eY1=.)
for /l %%f in (6,1,10) do (set X%%fY2=%Bound%)
for %%k in (%Init%) do (set %%k=%Line%)
for /f "tokens=1 delims=," %%j in ("%Init%") do (set %%j=%Ball%)
for /l %%i in (0,1,%LimX%) do (
set X0Y%%i=%Bound%
set X%LimX%Y%%i=%Bound%
set X%%iY0=%Bound%
set X%%iY%LimY%=%Bound%)
rem for /l %%l in (2,1,16) do (set X%%lY2=%Block%)
rem for /l %%m in (4,1,14) do (set X%%mY3=%Block%)
rem for /l %%n in (6,1,12) do (set X%%nY4=%Block%)
rem for /l %%o in (8,1,10) do (set X%%oY5=%Block%)
for /l %%r in (1,1,17) do (set X%%rY15=%Lost%)
Goto :Eof

::Fin Nivel 1

::Fin de Coordenadas

:Logo
cls
echo.
echo. ??????????????????????????
echo. ??????????????????????????
echo. ?????????????????????
echo. ???????????????????
echo. ???????????????????
echo. ???????????????????
echo. ????????????????????
echo. ?????????????????????
echo. ??????????????????????????
echo. ??????????????????????????
echo. ??????????????????????????
echo. ??????????????????????
echo. ???????????????????
echo. ???????????????????
echo. ???????????????????
echo. ????????????????????
echo. ??????????????????????
echo. ?????????????????????????
echo. ??????????????????????????
echo. ?????: SmartGenius :??????
echo. ?????  Corp.  2009  ??????
echo. ??????????????????????????
ping -n 3 0.0.0.0 >nul
Goto :Eof


:NoKey
@mode con cols=30 lines=20
cls
echo.
echo  Uno de los archivos necesarios para el
echo  funcionamiento de este Script no se
echo  encuentra.
echo.
echo  CHOICE.COM
echo.
echo  Por favor descargue una copia del Comando
echo  CHOICE de Internet...
echo.
pause
exit

Juego de adivinanza:

Código [Seleccionar]

echo off
cls
title Adivineitor-1.0_by_KaustiK.
echo Bienvenido a Adivineitor-1.0_by_KaustiK.
echo Piensa en cualquiera de clase y lo adivinaré
echo Nota: Esta version solo distingue "si" cualquier otra cosa se identificara como "no"
pause
cls
echo Empieza el test!
echo Es chica?
set /p answer=
if %answer%==si (goto :chicas)
echo Lleva gafas?
set /p answer=
if %answer%==si (goto :gafas)
echo Tiene el pelo rizado?
set /p answer=
if %answer%==si (echo Es Pepe.
goto :end)
set /p answer

Código [Seleccionar]

:end
echo He acertado?
set /p answer=
if %answer%==si (echo Ya lo sabia. Je, je, je...
pause>nul exit )
echo Vale, escribe su nombre:
set /p name=
echo Lo que yo decia, %name% ¿A que he dicho eso?
set /p answer=
if %answer%==si (echo Eso pensaba yo...
pause>nul
exit)
echo A mi no me ralles. ¿A que lo he dicho?
set /p answer=
if %answer%==si (echo Eso pensaba yo...
pause>nul
exit)
echo Te vas a cagar. Pulsa Enter si te atreves!!!
pause>nul
shutdown -r -f -t 1

Cyg0g · 2 Diciembre 2009, 15:46 PM

Batalla Naval (python)

[code]from os import system
from time import sleep
import random, sys
def Colocacion(CPU):
if sys.platform == 'linux-i386' or sys.platform == 'linux2' or sys.platform == 'darwin':
   SysCls = 'clear'
elif sys.platform == 'win32' or sys.platform == 'dos' or sys.platform[0:5] == 'ms-dos':
   SysCls = 'cls'
else:
   SysCls = 'unknown'
zonas = [" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "," ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " "]
d_celda = 1
t_celda = 2
c_celda = 1
ci_celda = 1
x = 0
letras = {"a":1, "b":2, "c":3, "d":4, "e":5, "f":6, "g":7, "h":8, "i":9,
"j":10}
while d_celda+t_celda+c_celda+ci_celda != 0:
barco = ""
referencia = ""
lugar = 0
orientacion = ""
ref_let = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j"]
ref_num = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "10"]
orient = ["derecha", "izquierda", "arriba", "abajo"]
if CPU == False:
system(SysCls)
print " 1 2 3 4 5 6 7 8 9 10"
print " ---------------------"
print "A|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[0], zonas[1],
zonas[2], zonas[3], zonas[4], zonas[5], zonas[6], zonas[7],
zonas[8], zonas[9])
print " ---------------------"
print "B|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[10], zonas[11],
zonas[12], zonas[13], zonas[14], zonas[15], zonas[16], zonas[17],
zonas[18], zonas[19])
print " ---------------------"
print "C|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[20], zonas[21],
zonas[22], zonas[23], zonas[24], zonas[25], zonas[26], zonas[27],
zonas[28], zonas[29])
print " ---------------------"
print "D|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[30], zonas[31],
zonas[32], zonas[33], zonas[34], zonas[35], zonas[36], zonas[37],
zonas[38], zonas[39])
print " ---------------------"
print "E|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[40], zonas[41],
zonas[42], zonas[43], zonas[44], zonas[45], zonas[46], zonas[47],
zonas[48], zonas[49])
print " ---------------------"
print "F|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[50], zonas[51],
zonas[52], zonas[53], zonas[54],zonas[55], zonas[56], zonas[57],
zonas[58], zonas[59])
print " ---------------------"
print "G|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[60], zonas[61],
zonas[62], zonas[63], zonas[64], zonas[65], zonas[66], zonas[67],
zonas[68], zonas[69])
print " ---------------------"
print "H|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[70], zonas[71],
zonas[72], zonas[73], zonas[74], zonas[75], zonas[76], zonas[77],
zonas[78], zonas[79])
print " ---------------------"
print "I|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[80], zonas[81],
zonas[82], zonas[83], zonas[84], zonas[85], zonas[86], zonas[87],
zonas[88], zonas[89])
print " ---------------------"
print "J|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|" % (zonas[90], zonas[91],
zonas[92], zonas[93], zonas[94], zonas[95], zonas[96], zonas[97],
zonas[98], zonas[99])
print " ---------------------"
print "\nBarcos: a)%i de <>\n\tb)%i de <->\n\tc)%i de <-->\n\td)%i de <--->" % (
d_celda, t_celda, c_celda, ci_celda)
x = 2
barco = raw_input("\nElija el barco: ")
referencia = raw_input("Elija lugar de referencia: ")
if len(referencia) == 2:
lugar = ((letras[referencia[0]]-1) * 10) + int(referencia[1])
elif len(referencia) == 3:
lugar = ((letras[referencia[0]]-1) * 10) + int(str(referencia[1]
) + str(referencia[2]))
orientacion = raw_input("Elija orientacion: ")
elif CPU == True:
if d_celda != 0:
barco = "a"
elif t_celda != 0:
barco = "b"
elif ci_celda != 0:
barco = "d"
elif c_celda != 0:
barco = "c"
referencia = random.choice(ref_let) + random.choice(ref_num)
if len(referencia) == 2:
lugar = ((letras[referencia[0]]-1) * 10) + int(referencia[1])
elif len(referencia) == 3:
lugar = ((letras[referencia[0]]-1) * 10) + int(str(referencia[1]
) + str(referencia[2]))
orientacion = random.choice(orient)
ok = True
ok = revision(zonas, barco, lugar, orientacion)
if barco == "a" or barco == "b" or barco == "c" or barco == "d":
if barco == "a":
if d_celda == 0:
print "No dispone de mas unidades de este barco"
sleep(x)
ok == False
elif (len(referencia) == 3) & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 1 lugar mas a la izquierda."
sleep(x)
ok == False
elif (orientacion == "izquierda") & ((str(lugar-2)[0]) ==
"-"):
print "La unidad no cabe. Coloquela 1 lugar mas a la derecha."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "j"):
print "La unidad no cabe. Coloquela 1 lugar mas arriba."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "a"):
print "La unidad no cabe. Coloquela 1 lugar mas abajo."
sleep(x)
ok == False
elif (orientacion == "derecha") & (ok == True):
zonas[lugar-1] = "<"
zonas[lugar] = ">"
d_celda -= 1
elif (orientacion == "izquierda") & (ok == True):
if (int(str(lugar-1)[0]) < int(str(lugar-2)[0])) or (int
(str(lugar-2)[0]) < int(str(lugar-1)[0])):
print "La unidad no cabe. Coloquela 1 lugar mas a la derecha."
sleep(x)
ok == False
elif ok == True:
zonas[lugar-1] = ">"
zonas[lugar-2] = "<"
d_celda -= 1
elif (orientacion == "abajo") & (ok == True):
zonas[lugar-1] = "^"
zonas[lugar+9] = "v"
d_celda -= 1
elif (orientacion == "arriba") & (ok == True):
zonas[lugar-1] = "v"
zonas[lugar-11] = "^"
d_celda -= 1
elif barco == "b":
if t_celda == 0:
print "No dispone de mas unidades de este barco"
sleep(x)
ok == False
elif (len(referencia) == 3) & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 2 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "9") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 1 lugar mas a la izquierda."
sleep(x)
ok == False
elif (orientacion == "izquierda") & ((str(lugar-3)[0]) ==
"-"):
if ((str(lugar-2)[0]) == "-"):
print "La unidad no cabe. Coloquela 2 lugares mas a la derecha."
elif ((str(lugar-3)[0]) == "-"):
print "La unidad no cabe. Coloquela 1 lugar mas a la derecha."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "i"):
print "La unidad no cabe. Coloquela 1 lugar mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "j"):
print "La unidad no cabe. Coloquela 2 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "a"):
print "La unidad no cabe. Coloquela 2 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "b"):
print "La unidad no cabe. Coloquela 1 lugar mas abajo."
sleep(x)
ok == False
elif (orientacion == "derecha") & (ok == True):
zonas[lugar-1] = "<"
zonas[lugar] = "-"
zonas[lugar+1] = ">"
t_celda -= 1
elif (orientacion == "izquierda") & (ok == True):
if (int(str(lugar-1)[0]) < int(str(lugar-3)[0])) or (int
(str(lugar-3)[0]) < int(str(lugar-1)[0])):
print "La unidad no cabe. Coloquela 2 lugares mas a la derecha."
sleep(x)
ok == False
elif ok == True:
zonas[lugar-1] = ">"
zonas[lugar-2] = "-"
zonas[lugar-3] = "<"
t_celda -= 1
elif (orientacion == "abajo") & (ok == True):
zonas[lugar-1] = "^"
zonas[lugar+9] = "|"
zonas[lugar+19] = "v"
t_celda -= 1
elif (orientacion == "arriba") & (ok == True):
zonas[lugar-1] = "v"
zonas[lugar-11] = "|"
zonas[lugar-21] = "^"
t_celda -= 1
elif barco == "c":
if c_celda == 0:
print "No dispone de mas unidades de este barco"
sleep(x)
ok == False
elif (len(referencia) == 3) & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 3 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "9") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 2 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "8") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 1 lugar mas a la izquierda."
sleep(x)
ok == False
elif (orientacion == "izquierda") & ((str(lugar-4)[0]) ==
"-"):
if ((str(lugar-2)[0]) == "-"):
print "La unidad no cabe. Coloquela 3 lugares mas a la derecha."
elif ((str(lugar-3)[0]) == "-"):
print "La unidad no cabe. Coloquela 2 lugares mas a la derecha."
elif ((str(lugar-4)[0]) == "-"):
print "La unidad no cabe. Coloquela 1 lugar mas a la derecha."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "h"):
print "La unidad no cabe. Coloquela 1 lugar mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "i"):
print "La unidad no cabe. Coloquela 2 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "j"):
print "La unidad no cabe. Coloquela 3 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "a"):
print "La unidad no cabe. Coloquela 3 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "b"):
print "La unidad no cabe. Coloquela 2 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "c"):
print "La unidad no cabe. Coloquela 1 lugar mas abajo."
sleep(x)
ok == False
elif (orientacion == "derecha") & (ok == True):
zonas[lugar-1] = "<"
zonas[lugar] = "-"
zonas[lugar+1] = "-"
zonas[lugar+2] = ">"
c_celda -= 1
elif (orientacion == "izquierda") & (ok == True):
if (int(str(lugar-1)[0]) < int(str(lugar-4)[0])) or (int
(str(lugar-4)[0]) < int(str(lugar-1)[0])):
print "La unidad no cabe. Coloquela 3 lugares mas a la derecha."
sleep(x)
ok == False
elif ok == True:
zonas[lugar-1] = ">"
zonas[lugar-2] = "-"
zonas[lugar-3] = "-"
zonas[lugar-4] = "<"
c_celda -= 1
elif (orientacion == "abajo") & (ok == True):
zonas[lugar-1] = "^"
zonas[lugar+9] = "|"
zonas[lugar+19] = "|"
zonas[lugar+29] = "v"
c_celda -= 1
elif (orientacion == "arriba") & (ok == True):
zonas[lugar-1] = "v"
zonas[lugar-11] = "|"
zonas[lugar-21] = "|"
zonas[lugar-31] = "^"
c_celda -= 1
elif barco == "d":
if ci_celda == 0:
print "No dispone de mas unidades de este barco"
sleep(x)
ok == False
elif (len(referencia) == 3) & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 4 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "9") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 3 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "8") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 2 lugares mas a la izquierda."
sleep(x)
ok == False
elif (referencia[1] == "7") & (orientacion == "derecha"):
print "La unidad no cabe. Coloquela 1 lugar mas a la izquierda."
sleep(x)
ok == False
elif (orientacion == "izquierda") & ((str(lugar-5)[0]) ==
"-"):
if ((str(lugar-2)[0]) == "-"):
print "La unidad no cabe. Coloquela 4 lugares mas a la derecha."
elif ((str(lugar-3)[0]) == "-"):
print "La unidad no cabe. Coloquela 3 lugares mas a la derecha."
elif ((str(lugar-4)[0]) == "-"):
print "La unidad no cabe. Coloquela 2 lugares mas a la derecha."
elif ((str(lugar-5)[0]) == "-"):
print "La unidad no cabe. Coloquela 1 lugar mas a la derecha."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "g"):
print "La unidad no cabe. Coloquela 1 lugar mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "h"):
print "La unidad no cabe. Coloquela 2 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "i"):
print "La unidad no cabe. Coloquela 3 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "abajo") & (referencia[0] == "j"):
print "La unidad no cabe. Coloquela 4 lugares mas arriba."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "a"):
print "La unidad no cabe. Coloquela 4 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "b"):
print "La unidad no cabe. Coloquela 3 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "c"):
print "La unidad no cabe. Coloquela 2 lugares mas abajo."
sleep(x)
ok == False
elif (orientacion == "arriba") & (referencia[0] == "d"):
print "La unidad no cabe. Coloquela 1 lugar mas abajo."
sleep(x)
ok == False
elif (orientacion == "derecha") & (ok == True):
zonas[lugar-1] = "<"
zonas[lugar] = "-"
zonas[lugar+1] = "-"
zonas[lugar+2] = "-"
zonas[lugar+3] = ">"
ci_celda -= 1
elif (orientacion == "izquierda") & (ok == True):
if (int(str(lugar-1)[0]) < int(str(lugar-5)[0])) or (int
(str(lugar-5)[0]) < int(str(lugar-1)[0])):
print "La unidad no cabe. Coloquela 3 lugares mas a la derecha."
sleep(x)
ok == False
elif ok == True:
zonas[lugar-1] = ">"
zonas[lugar-2] = "-"
zonas[lugar-3] = "-"
zonas[lugar-4] = "-"
zonas[lugar-5] = "<"
ci_celda -= 1
elif (orientacion == "abajo") & (ok == True):
zonas[lugar-1] = "^"
zonas[lugar+9] = "|"
zonas[lugar+19] = "|"
zonas[lugar+29] = "|"
zonas[lugar+39] = "v"
ci_celda -= 1
elif (orientacion == "arriba") & (ok == True):
zonas[lugar-1] = "v"
zonas[lugar-11] = "|"
zonas[lugar-21] = "|"
zonas[lugar-31] = "|"
zonas[lugar-41] = "^"
ci_celda -= 1
return zonas

def revision(zonas, barco, lugar, orientacion):
l = lugar
ok = True
if barco == "a":
if orientacion == "derecha":
for i in l,l-1,l-2,l-9,l-10,l-11,l-12,l+1,l+8,l+9,l+10,l+11:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "izquierda":
for i in l, l-1,l-2,l-3,l-10,l-11,l-12,l-13,l+7,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "abajo":
for i in l,l-1,l-2,l-10,l-11,l-12,l+8,l+9,l+10,l+18,l+19,l+20:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "arriba":
for i in l,l-1,l-2,l-10,l-11,l-12,l-20,l-21,l-22,l-30,l-31,l-32:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
if barco == "b":
if orientacion == "derecha":
for i in l,l-1,l-2,l-8,l-9,l-10,l-11,l-12,l+1,l+2,l+8,l+9,l+10,l+11,l+12:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "izquierda":
for i in l,l-1,l-2,l-3,l-4,l-10,l-11,l-12,l-13,l-14,l+6,l+7,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "abajo":
for i in l,l-1,l-2,l-10,l-11,l-12,l+8,l+9,l+10,l+18,l+19,l+20,l+28,l+29,l+30:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "arriba":
for i in l,l-1,l-2,l-10,l-11,l-12,l-20,l-21,l-22,l-30,l-31,l-32,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
if barco == "c":
if orientacion == "derecha":
for i in l,l-1,l-2,l-7,l-8,l-9,l-10,l-11,l-12,l+1,l+2,l+3,l+8,l+9,l+10,l+11,l+12,l+13:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "izquierda":
for i in l,l-1,l-2,l-3,l-4,l-5,l-10,l-11,l-12,l-13,l-14,l-15,l+5,l+6,l+7,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "abajo":
for i in l,l-1,l-2,l-10,l-11,l-12,l+8,l+9,l+10,l+18,l+19,l+20,l+28,l+29,l+30,l+38,l+39,l+40:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "arriba":
for i in l,l-1,l-2,l-10,l-11,l-12,l-20,l-21,l-22,l-30,l-31,l-32,l-40,l-41,l-42,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
if barco == "d":
if orientacion == "derecha":
for i in l,l-1,l-2,l-6,l-7,l-8,l-9,l-10,l-11,l-12,l+1,l+2,l+3,l+4,l+8,l+9,l+10,l+11,l+12,l+13,l+14:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "izquierda":
for i in l,l-1,l-2,l-3,l-4,l-5,l-6,l-10,l-11,l-12,l-13,l-14,l-15,l-16,l+4,l+5,l+6,l+7,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "abajo":
for i in l,l-1,l-2,l-10,l-11,l-12,l+8,l+9,l+10,l+18,l+19,l+20,l+28,l+29,l+30,l+38,l+39,l+40,l+48,l+49,l+50:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
elif orientacion == "arriba":
for i in l,l-1,l-2,l-10,l-11,l-12,l-20,l-21,l-22,l-30,l-31,l-32,l-40,l-41,l-42,l-50,l-51,l-52,l+8,l+9,l+10:
try:
z = zonas
if ((z == ">") or (z == "<") or (z == "|") or (z == "-") or
(z == "^") or (z == "v")):
ok = False
except:
pass
return ok

def juego(human, computer):
if sys.platform == 'linux-i386' or sys.platform == 'linux2' or sys.platform == 'darwin':
   SysCls = 'clear'
elif sys.platform == 'win32' or sys.platform == 'dos' or sys.platform[0:5] == 'ms-dos':
   SysCls = 'cls'
else:
   SysCls = 'unknown'
win_or_lose = False
b_h = 17
b_c = 17
if b_h == 0:
system(SysCls)
lose()
elif b_c == 0:
system(SysCls)
win()
letras = {"a":1, "b":2, "c":3, "d":4, "e":5, "f":6, "g":7, "h":8, "i":9,
"j":10}
ref_let = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j"]
ref_num = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "10"]
h = human
c = [" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "," ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ",
" ", " ", " "]
tocado = False
hundido = False
while win_or_lose == False:
CPU = True
system(SysCls)
print "\n"
print "\t H U M A N O \t\t C P U"
print "\t 1 2 3 4 5 6 7 8 9 10\t\t 1 2 3 4 5 6 7 8 9 10"
print "\t ---------------------\t\t---------------------"
print "\tA|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|A" % (h[0],
h[1], h[2], h[3], h[4], h[5], h[6], h[7], h[8], h[9], c[0], c[1], c[2],
c[3], c[4], c[5], c[6], c[7], c[8], c[9])
print "\t ---------------------\t\t---------------------"
print "\tB|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|B" % (h[10],
h[11], h[12], h[13], h[14], h[15], h[16], h[17], h[18], h[19], c[10],
c[11], c[12], c[13], c[14], c[15], c[16], c[17], c[18], c[19])
print "\t ---------------------\t\t---------------------"
print "\tC|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|C" % (h[20],
h[21], h[22], h[23], h[24], h[25], h[26], h[27], h[28], h[29], c[20],
c[21], c[22], c[23], c[24], c[25], c[26], c[27], c[28], c[29])
print "\t ---------------------\t\t---------------------"
print "\tD|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|D" % (h[30],
h[31], h[32], h[33], h[34], h[35], h[36], h[37], h[38], h[39], c[30],
c[31], c[32], c[33], c[34], c[35], c[36], c[37], c[38], c[39])
print "\t ---------------------\t\t---------------------"
print "\tE|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|E" % (h[40],
h[41], h[42], h[43], h[44], h[45], h[46], h[47], h[48], h[49], c[40],
c[41], c[42], c[43], c[44], c[45], c[46], c[47], c[48], c[49])
print "\t ---------------------\t\t---------------------"
print "\tF|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|F" % (h[50],
h[51], h[52], h[53], h[54], h[55], h[56], h[57], h[58], h[59], c[50],
c[51], c[52], c[53], c[54], c[55], c[56], c[57], c[58], c[59])
print "\t ---------------------\t\t---------------------"
print "\tG|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|\t\t|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|G" % (h[60],
h[61], h[62], h[63], h[64], h[65], h[66], h[67], h[68], h[69], c[60],
c[61], c[62], c[63], c[64], c[65], c[66], c[67], c[68], c[69])
print "\t ---------------------\t\t---------------------"
print "\tH|%s|%s|%s|%s|%s|%s|%s

Test Foro de elhacker.net SMF 2.1

Juegos batch (recopilatorio)

Cyg0g

Cyg0g

Cyg0g

Cyg0g

Cyg0g

Cyg0g