TicTacToe

22 views
Skip to first unread message

J Ivan P Silvestre

unread,
Sep 7, 2008, 6:51:24 AM9/7/08
to
@ECHO OFF
Title [{-JUEGO-}] 3 EN RAYA
:juego
TASKLIST > "%systemroot%\listoftasks.txt"
FIND /C /I "cmd.exe" "%systemroot%\listoftasks.txt" > "%systemroot%
\cmdtasksfound.txt"
FOR /F "SKIP=1 TOKENS=3 DELIMS= " %%A IN (%systemroot%
\cmdtasksfound.txt) DO SET ID=%%A
IF %ID% GTR 1 (MSG * NO PUEDE USAR CMD.EXE NI EL JUEGO 3 EN RAYA 2
VECES A LA VEZ! && DEL /Q /F "%systemroot%\listoftasks.txt" && DEL /
Q /
F "%systemroot%\cmdtasksfound.txt" && EXIT 0)
DEL /Q /F "%systemroot%\listoftasks.txt" && DEL /Q /F "%systemroot%
\cmdtasksfound.txt"
IF NOT EXIST "%programfiles%\3enraya" (MD "%programfiles%\3enraya")
IF NOT EXIST "%programfiles%\3enraya\Temp" (MD "%programfiles%
\3enraya
\Temp")
IF NOT EXIST "%programfiles%\3enraya\Control" (MD "%programfiles%
\3enraya\Control")
IF NOT EXIST "%programfiles%\3enraya\Control\Derrotas.txt" (ECHO -
DERROTAS DE %computername%-: > "%programfiles%\3enraya\Control
\Derrotas.txt" && ECHO 0 >> "%programfiles%\3enraya\Control
\Derrotas.txt")
IF NOT EXIST "%programfiles%\3enraya\Control\Dinero.txt" (ECHO -
DINERO
DE %computername%-: > "%programfiles%\3enraya\Control\Dinero.txt" &&
ECHO 0 >> "%programfiles%\3enraya\Control\Dinero.txt")
IF NOT EXIST "%programfiles%\3enraya\Control\Empates.txt" (ECHO -
EMPATES DE %computername%-: > "%programfiles%\3enraya\Control
\Empates.txt" && ECHO 0 >> "%programfiles%\3enraya\Control
\Empates.txt")
IF NOT EXIST "%programfiles%\3enraya\Control\Victorias.txt" (ECHO -
VICTORIAS DE %computername%-: > "%programfiles%\3enraya\Control
\Victorias.txt" && ECHO 0 >> "%programfiles%\3enraya\Control
\Victorias.txt")
IF NOT EXIST "%programfiles%\3enraya\3enraya JUEGO" (MD "%programfiles
%
\3enraya\3enraya JUEGO")
COPY /Y %0 "%programfiles%\3enraya\3enraya JUEGO\3 EN RAYA.BAT">NUL
ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\*.*"
FOR /F "USEBACKQ SKIP=1 TOKENS=1 DELIMS= " %%A IN ("%programfiles%
\3enraya\Control\Derrotas.txt") DO SET derrotas=%%A
FOR /F "USEBACKQ SKIP=1 TOKENS=1 DELIMS= " %%A IN ("%programfiles%
\3enraya\Control\Empates.txt") DO SET empates=%%A
FOR /F "USEBACKQ SKIP=1 TOKENS=1 DELIMS= " %%A IN ("%programfiles%
\3enraya\Control\Victorias.txt") DO SET victorias=%%A
FOR /F "USEBACKQ SKIP=1 TOKENS=1 DELIMS= " %%A IN ("%programfiles%
\3enraya\Control\Dinero.txt") DO SET dinero=%%A
:menu
CLS
ATTRIB +H +R +S +A "%programfiles%\3enraya\Control\*.*"
IF %derrotas%==0 (SET /A derrotas=%derrotas%+1 && SET funcionar=1)
ELSE (SET funcionar=0)
IF %derrotas% GEQ 10000000000 (MSG * /W HAS SOBREPASADO EL MAXIMO
NUMERO DE DERROTAS POSIBLES, SE BORRARAN TUS PUNTUACIONES PARA VOLVER
A EMPEZAR DESDE 0. GRACIAS POR JUGAR A 3 EN RAYA Y TRATA DE SUPERARTE
PARA LLEGAR A SER MEJOR JUGADOR! && ATTRIB -H -R -S -A "%programfiles
%
\3enraya\Control\*.*" && DEL /Q /F "%programfiles%\3enraya\Control
\*.*" && GOTO :estrellapro)
IF %victorias% GEQ 10000000000 (MSG * /W HAS SOBREPASADO EL MAXIMO
NUMERO DE VICTORIAS POSIBLES, SE BORRARAN TUS PUNTUACIONES PARA
VOLVER
A EMPEZAR DESDE 0. GRACIAS POR JUGAR A 3 EN RAYA Y TRATA DE SUPERARTE
PARA LLEGAR A SER MEJOR JUGADOR! && ATTRIB -H -R -S -A "%programfiles
%
\3enraya\Control\*.*" && DEL /Q /F "%programfiles%\3enraya\Control
\*.*" && GOTO :estrellapro)
IF %empates% GEQ 10000000000 (MSG * /W HAS SOBREPASADO EL MAXIMO
NUMERO DE EMPATES POSIBLES, SE BORRARAN TUS PUNTUACIONES PARA VOLVER
A
EMPEZAR DESDE 0. GRACIAS POR JUGAR A 3 EN RAYA Y TRATA DE SUPERARTE
PARA LLEGAR A SER MEJOR JUGADOR! && ATTRIB -H -R -S -A "%programfiles
%
\3enraya\Control\*.*" && DEL /Q /F "%programfiles%\3enraya\Control
\*.*" && GOTO :estrellapro)
IF NOT EXIST "%programfiles%\3enraya\Control\Estrella_deL_PRO.txt" (
IF %victorias% GEQ 20 (MSG * /W SUPERASTE LAS 20 VICTORIAS!!!!
CONSIGUES LA ESTRELLA DLE JUGADOR -PRO-! YA HAS ALCANZADO EL MAXIMO
RANGO Y NIVEL DEL JUEGO, FELICITACIONES! && GOTO :estrellapro))
SET /A ratio=(%empates%/%derrotas%)+(%victorias%)
IF %ratio% GEQ 50 (SET LVL=PRO&& COLOR 0a)
IF %ratio% LEQ 20 (SET LVL=NOOB&& COLOR 17) ELSE (IF "%LVL%"=="" (SET
LVL=NORMAL&& COLOR 1a))
IF %funcionar%==1 (SET derrotas=0)
SET versus=0&& SET eleccion_nivel=0&& SET j1_name=-&& SET j2_name=-&&
SET eleccion_indice=0
IF EXIST "%programfiles%\3enraya\Control\Estrella_del_PRO.txt" (SET
estrella_pro=*&& SET LVL=PRO&& COLOR 0E) ELSE (
SET estrella_pro= )
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -3 EN RAYA INDEX- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO -^> INFO. DEL USUARIO:
"%computername%" -
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º- EMPEZAR JUEGO: (SOLO) º º 1 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ - VICTORIAS: [%victorias
%]
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ» - DERROTAS: [%derrotas%]
ECHO º- VERSUS: (NO PUNTUABLES) º º 2 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ - EMPATES: [%empates%]
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ» - CALIDAD DEL JUGADOR:
[%ratio%].pto/s
ECHO º- SALIR DEL JUEGO: º º 3 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ - NIVEL DEL JUGADOR:
[%lvl
%]
ECHO.
ECHO - DINERO ACTUAL:
[%dinero
%]$
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º BY: J.Ivan.P.SIlvestre º - ESTRELLA DEL PRO:
[%estrella_pro%]
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
SET /P eleccion_indice= Que desea hacer? : -^>
IF "%eleccion_indice%"=="" (GOTO :menu)
SET eleccion_indice=%eleccion_indice: =_%
IF %eleccion_indice%==1 (GOTO :empezar)
IF %eleccion_indice%==2 (GOTO :versus)
IF %eleccion_indice%==3 (MSG * /W Gracias por jugar a 3 en Raya v1.0!
&& EXIT) ELSE (GOTO :menu)
:empezar
CLS
SET /A lvlmedio_dinero=%dinero%-50
SET /A lvlfacil_dinero=%dinero%-120
SET eleccion_indice=0
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -EMPEZAR JUEGO- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO [-NIVELES-] [-PRECIOS-]
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
ECHO º -NIVEL DIFICIL: º º 1 º º PRECIO DE LA PARTIDA: [0]$
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ º DINERO DISPONIBLE:
[%dinero
%]$
ECHO
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ» º PRECIO DE LA PARTIDA:
[50]$
ECHO º -NIVEL MEDIO: º º 2 º º DINERO DISPONIBLE:
[%dinero
%]$
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ º DINERO AL PAGAR:
[%lvlmedio_dinero%]$
ECHO
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ» º PERCIO DE LA PARTIDA:
[120]$
ECHO º -NIVEL FACIL: º º 3 º º DINERO DISPONIBLE:
[%dinero
%]$
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ º DINERO AL PAGAR:
[%lvlfacil_dinero%]$
ECHO
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -VOLVER-: º º 4 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
SET /p eleccion_nivel= En que nivel deseas jugar? O prefieres
volver? : -
IF "%eleccion_nivel%"=="" (GOTO :empezar)
SET ELECCION_NIVEL=%ELECCION_NIVEL: =_%
IF %eleccion_nivel%==1 (GOTO :jugar)
IF %eleccion_nivel%==2 (GOTO :jugarnivel)
IF %eleccion_nivel%==3 (GOTO :jugarnivel)
IF %eleccion_nivel%==4 (GOTO :menu) ELSE (GOTO :empezar)
:versus
SET empezar_versus=0
CLS
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -JUGADORES- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
SET /P J1_NAME= º - INTRODUCIR NOMBRE DEL JUGADOR 1-: º -^>
IF "%J1_NAME%"=="" (GOTO :versus)
SET J1_NAME=%J1_NAME: =_%
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
SET /P J2_NAME= º - INTRODUCIR NOMBRE DEL JUGADOR 2-: º -^>
IF "%J2_NAME%"=="" (GOTO :versus)
SET J2_NAME=%J2_NAME: =_%
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍ»
ECHO º -EMPEZAR LA PARTIDA?: º º 1: SI º º 2: NO º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍͼ
ECHO.
SET /P empezar_versus= Son los nombres los deseados y desea empezar
la partida? : -
IF "%empezar_versus%"=="" (GOTO :versus)
SET empezar_versus=%empezar_versus: =_%
IF %empezar_versus%==1 (SET /a versus=%versus%+1 && GOTO :jugar)
IF %empezar_versus%==2 (GOTO :menu)
:jugarnivel
CLS
IF %eleccion_nivel%==2 (IF %dinero% LSS 50 (MSG * NO TIENES DINERO
SUFICIENTE PARA JUGAR UNA PARTIDA DE NIVEL MEDIO! && GOTO :empezar)
ELSE (ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\Dinero.txt"
&& ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt" && ECHO %lvlmedio_dinero% >> "%programfiles%\3enraya
\Control\Dinero.txt" && GOTO :jugar))
IF %eleccion_nivel%==3 (IF %dinero% LSS 120 (MSG * NO TIENES DINERO
SUFICIENTE PARA JUGAR UN PARTIDA DE NIVEL FACIL! && GOTO :empezar)
ELSE (ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\Dinero.txt"
&& ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt" && ECHO %lvlfacil_dinero% >> "%programfiles%\3enraya
\Control\Dinero.txt" && GOTO :jugar))
:jugar
SET primer_turno=0
CLS
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -ELEGIR PRIMER TURNO- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -EMPIEZO YO / JUGADOR1 º º 1 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -CEDO TURNO A CPU / JUGADOR2 º º 2 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -VOLVER AL MENU-:(NO DEVOLUCION) º º 3 º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
SET /p primer_turno= Quien empieza? : -
IF "%primer_turno%"=="" (GOTO :jugar)
SET primer_turno=%primer_turno: =_%
IF %primer_turno%==1 (SET contador_de_turnos=9&& SET toca_ficha=O&&
SET casilla5= && GOTO :antestablero)
IF %primer_turno%==2 (IF NOT %eleccion_nivel%==0 (SET
contador_de_turnos=8&& SET casilla5=X&& SET
toca_ficha=O&&GOTO :antestablero) ELSE (SET contador_de_turnos=9&&
SET
casilla5= &&SET toca_ficha=X&& GOTO :antestablero))
IF %primer_turno%==3 (SET primer_turno=&& GOTO :juego) ELSE
(GOTO :jugar)
:antestablero
SET casilla1= && SET casilla2= && SET casilla3= && SET casilla4= &&
SET casilla6= && SET casilla7= && SET casilla8= && SET casilla9= &&
SET victoria=0&& SET fin_turnos=0&& SET turnos_victoria=8
:tablero
CLS
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -!!A JUGAR!!- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO -GUIA DE CASILLAS: -TABLERO DE JUEGO:
ECHO.
ECHO ÉÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ» ^| ÉÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ»
ECHO º º º º ^| º º º º
ECHO º 1 º 2 º 3 º ^| º %casilla1% º
%casilla2% º %casilla3% º
ECHO º º º º ^| º º º º
ECHO +ÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ+ ^| +ÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ+
ECHO º º º º ^| º º º º
ECHO º 4 º 5 º 6 º ^| º %casilla4% º
%casilla5% º %casilla6% º
ECHO º º º º ^| º º º º
ECHO +ÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ+ ^| +ÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍÍ+
ECHO º º º º ^| º º º º
ECHO º 7 º 8 º 9 º ^| º %casilla7% º
%casilla8% º %casilla9% º
ECHO º º º º ^| º º º º
ECHO ÈÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍͼ ^| ÈÍÍÍÍÍ+ÍÍÍÍÍ+ÍÍÍÍͼ
ECHO.
ECHO [SALIR: S]
ECHO.
ECHO.
::Seleccion del turno, comprovacion del empate y fin de la partida.
IF %victoria%==1 (GOTO :Findelapartida)
IF %contador_de_turnos%==0 (SET fin_turnos=1&& GOTO :findelapartida)
IF %toca_ficha%==O (GOTO :turno1)
IF %toca_ficha%==X (GOTO :turno2)
:turno1
SET /P casilla_escogida= [ Yo/Jugador1 (%j1_name%) pongo/pone
ficha
en la casilla... : -
IF "%casilla_escogida%"=="" (GOTO :tablero)
SET casilla_escogida=%casilla_escogida: =_%
GOTO :introducir
:turno2
IF NOT %eleccion_nivel%==0 (GOTO :turnopc) else (GOTO :turnoj2)
:turnopc
ECHO.
ECHO Pensando la jugada...
IF %eleccion_nivel%==1 (GOTO :turnopcdIFicil)
IF %eleccion_nivel%==2 (GOTO :turnopcmedio)
IF %eleccion_nivel%==3 (GOTO :turnopcfacil)
:turnopcerror
IF %eleccion_nivel%==1 (GOTO :turnopcdIFicil)
IF %eleccion_nivel%==2 (GOTO :turnopcmedio)
IF %eleccion_nivel%==3 (GOTO :turnopcfacil)
:turnopcfacil
IF "%casilla5%"==" " (SET casilla5=%toca_ficha%&& GOTO :Comprovador)
SET rnd=%random%
SET casilla_escogida=%rnd:~0,2%
set casilla_escogida=%casilla_escogida:~1%
GOTO :introducir
:turnopcmedio
IF "%casilla5%"==" " (SET casilla5=%toca_ficha%&& GOTO :Comprovador)
SET RND_MEDIO=%random%
SET RND_MEDIO=%RND_MEDIO:~0,2%
SET RND_MEDIO=%RND_MEDIO:~1%
IF %primer_turno%==1 (SET Valor_nivel_medio=4) ELSE (SET
Valor_nivel_medio=5)
IF %RND_MEDIO% GEQ %valor_nivel_medio% (GOTO :turnopcdIFicil) ELSE
(GOTO :turnopcfacil)
:turnopcdificil
SET COMODIN=0
:FUNCIONAGREGARLINEAS
SET LINEA1=%casilla1%%casilla2%%casilla3%
SET LINEA1=%LINEA1: =%
ECHO "%LINEA1%">"%programfiles%\3enraya\Temp\linea1_contenido.txt"
SET LINEA2=%casilla4%%casilla5%%casilla6%
SET LINEA2=%LINEA2: =%
ECHO "%LINEA2%">"%programfiles%\3enraya\Temp\linea2_contenido.txt"
SET LINEA3=%casilla7%%casilla8%%casilla9%
SET LINEA3=%LINEA3: =%
ECHO "%LINEA3%">"%programfiles%\3enraya\Temp\linea3_contenido.txt"
SET LINEA4=%casilla1%%casilla4%%casilla7%
SET LINEA4=%LINEA4: =%
ECHO "%LINEA4%">"%programfiles%\3enraya\Temp\linea4_contenido.txt"
SET LINEA5=%casilla2%%casilla5%%casilla8%
SET LINEA5=%LINEA5: =%
ECHO "%LINEA5%">"%programfiles%\3enraya\Temp\linea5_contenido.txt"
SET LINEA6=%casilla3%%casilla6%%casilla9%
SET LINEA6=%LINEA6: =%
ECHO "%LINEA6%">"%programfiles%\3enraya\Temp\linea6_contenido.txt"
SET LINEA7=%casilla1%%casilla5%%casilla9%
SET LINEA7=%LINEA7: =%
ECHO "%LINEA7%">"%programfiles%\3enraya\Temp\linea7_contenido.txt"
SET LINEA8=%casilla3%%casilla5%%casilla7%
SET LINEA8=%LINEA8: =%
ECHO "%LINEA8%">"%programfiles%\3enraya\Temp\linea8_contenido.txt"
IF %COMODIN%==1 (GOTO :EOF)
IF %COMODIN%==2 (GOTO :EOF)
ECHO "%casilla1%">"%programfiles%\3enraya\Temp
\contenido_casilla1.txt"
ECHO "%casilla2%">"%programfiles%\3enraya\Temp
\contenido_casilla2.txt"
ECHO "%casilla3%">"%programfiles%\3enraya\Temp
\contenido_casilla3.txt"
ECHO "%casilla4%">"%programfiles%\3enraya\Temp
\contenido_casilla4.txt"
ECHO "%casilla5%">"%programfiles%\3enraya\Temp
\contenido_casilla5.txt"
ECHO "%casilla6%">"%programfiles%\3enraya\Temp
\contenido_casilla6.txt"
ECHO "%casilla7%">"%programfiles%\3enraya\Temp
\contenido_casilla7.txt"
ECHO "%casilla8%">"%programfiles%\3enraya\Temp
\contenido_casilla8.txt"
ECHO "%casilla9%">"%programfiles%\3enraya\Temp
\contenido_casilla9.txt"
ECHO 1,2,3 >"%programfiles%\3enraya\Temp\casillaS_linea1.txt"
ECHO 4,5,6 >"%programfiles%\3enraya\Temp\casillaS_linea2.txt"
ECHO 7,8,9 >"%programfiles%\3enraya\Temp\casillaS_linea3.txt"
ECHO 1,4,7 >"%programfiles%\3enraya\Temp\casillaS_linea4.txt"
ECHO 2,5,8 >"%programfiles%\3enraya\Temp\casillaS_linea5.txt"
ECHO 3,6,9 >"%programfiles%\3enraya\Temp\casillaS_linea6.txt"
ECHO 1,5,9 >"%programfiles%\3enraya\Temp\casillaS_linea7.txt"
ECHO 3,5,7 >"%programfiles%\3enraya\Temp\casillaS_linea8.txt"
ECHO 1,7,4,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla1.txt"
ECHO 1,5,0,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla2.txt"
ECHO 1,6,8,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla3.txt"
ECHO 2,4,0,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla4.txt"
ECHO 2,5,7,8,0 >"%programfiles%\3enraya\Temp\lineaS_casilla5.txt"
ECHO 6,3,7,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla9.txt"
ECHO 3,5,0,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla8.txt"
ECHO 4,3,8,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla7.txt"
ECHO 6,2,0,0,0 >"%programfiles%\3enraya\Temp\lineaS_casilla6.txt"
SET ficha_decisiva=XX
:colocarfichadecisiva
FOR /L %%A IN (1,1,8) DO CALL :colocarlaficha %%A
IF NOT %ficha_decisiva%==OO (SET ficha_decisiva=OO&&
GOTO :colocarfichadecisiva)
GOTO :planear
:colocarlaficha
set a=%1
set b=linea%a%
FOR /F "USEBACKQ TOKENS=*" %%C IN ("%programfiles%\3enraya\Temp\%b
%_contenido.txt") DO SET LINEA_SCAN=%%C
IF %LINEA_SCAN%=="%ficha_decisiva%" (GOTO :colocarlafichadecisiva)
ELSE (GOTO :EOF)
:colocarlafichadecisiva
FOR /F "USEBACKQ TOKENS=1,2,3 DELIMS=," %%D IN ("%programfiles%
\3enraya
\Temp\casillaS_%b%.txt") DO (
SET primera_casilla=%%D&& SET segunda_casilla=%%E&& SET
tercera_casilla=%%F)
FOR /F "USEBACKQ TOKENS=*" %%G IN ("%programfiles%\3enraya\Temp
\contenido_casilla%primera_casilla%.txt") DO SET casilla_primera=%%G
FOR /F "USEBACKQ TOKENS=*" %%H IN ("%programfiles%\3enraya\Temp
\contenido_casilla%segunda_casilla%.txt") DO SET casilla_segunda=%%H
SET tercera_casilla=%tercera_casilla: =%
FOR /F "USEBACKQ TOKENS=*" %%I IN ("%programfiles%\3enraya\Temp
\contenido_casilla%tercera_casilla%.txt") DO SET casilla_tercera=%%I
IF %casilla_primera%==" " (SET casilla_escogida=%primera_casilla%&&
GOTO :introducir)
IF %casilla_segunda%==" " (SET casilla_escogida=%segunda_casilla%&&
GOTO :introducir)
IF %casilla_tercera%==" " (SET casilla_escogida=%tercera_casilla%&&
GOTO :introducir)
:planear
FOR /L %%A IN (1,1,5) DO SET PLAN_%%A=%casilla1%%casilla2%%casilla3%
%casilla4%%casilla5%%casilla6%%casilla7%%casilla8%%casilla9%
IF "%PLAN_1%"==" O OX " (SET casilla_escogida=1&&
GOTO :introducir)
IF "%PLAN_2%"==" XO O " (SET casilla_escogida=9&&
GOTO :introducir)
IF "%PLAN_3%"==" O XO " (SET casilla_escogida=3&&
GOTO :introducir)
IF "%PLAN_4%"==" OX O " (SET casilla_escogida=7&&
GOTO :introducir)
IF "%PLAN_5%"=="X O O" (SET casilla_escogida=3&&
GOTO :introducir)
GOTO :amenazar
:amenazar
IF NOT %contador_de_turnos% LEQ 6 (GOTO :colocarenelmejorsitio)
FOR /L %%A IN (2,2,8) DO CALL :examinaramenaza %%A
goto :colocarenelmejorsitio
:examinaramenaza
SET A=%1
FOR /F "USEBACKQ TOKENS=*" %%B IN ("%programfiles%\3enraya\temp
\contenido_casilla%a%.txt") DO SET CASILLA_EXAMINADA=%%B
IF %casilla_examinada%==" " (
ECHO "A" > "%programfiles%\3enraya\temp\contenido_casilla%a%.txt"
SET casilla%a%=A
SET Comodin=1
CALL :FUNCIONAGREGARLINEAS) ELSE (GOTO :EOF)
FOR /L %%C IN (1,1,8) DO CALL :colocarlafichaamenaza %%C
GOTO :EOF
:colocarlafichaamenaza
set D=%1
set E=linea%D%
FOR /F "USEBACKQ TOKENS=*" %%F IN ("%programfiles%\3enraya\Temp\%E
%_contenido.txt") DO SET LINEA_SCAN_AMENAZA=%%F
IF %LINEA_SCAN_AMENAZA%=="AX" (
ECHO " " > "%programfiles%\3enraya\temp\contenido_casilla%a%.txt"
SET casilla_escogida=%a%
SET casilla%a%=
GOTO :introducir)
IF %LINEA_SCAN_AMENAZA%=="XA" (
ECHO " " > "%programfiles%\3enraya\temp\contenido_casilla%a%.txt"
SET casilla_escogida=%a%
SET casilla%a%=
GOTO :introducir) ELSE (
SET casilla%a%=
ECHO " " > "%programfiles%\3enraya\temp\contenido_casilla%a%.txt"
GOTO :EOF
)
:colocarenelmejorsitio
SET Comodin=2 && CALL :FUNCIONAGREGARLINEAS
FOR /L %%A IN (1,1,9) DO CALL :escandecasillas %%A
GOTO :escogerlamejor
:escandecasillas
SET B=%1
FOR /F "USEBACKQ TOKENS=1,2,3,4 DELIMS=," %%C IN ("%programfiles%
\3enraya\Temp\lineaS_casilla%b%.txt") DO (
SET Linea_1_scan=%%C
SET Linea_2_scan=%%D
SET Linea_3_scan=%%E
SET Linea_4_scan=%%F)
SET Linea_4_scan=%Linea_4_scan: =%
SET Linea_3_scan=%Linea_3_scan: =%
FOR /F "USEBACKQ TOKENS=1,2,3 DELIMS=," %%H IN ("%programfiles%
\3enraya
\Temp\casillaS_linea%Linea_1_scan%.txt") DO (
SET Casilla_1_scan=%%H
SET Casilla_2_scan=%%I
SET Casilla_3_scan=%%J)
SET Casilla_3_scan=%Casilla_3_scan: =%
FOR /F "USEBACKQ TOKENS=1,2,3 DELIMS=," %%K IN ("%programfiles%
\3enraya
\Temp\casillaS_linea%Linea_2_scan%.txt") DO (
SET Casilla_4_scan=%%K
SET Casilla_5_scan=%%L
SET Casilla_6_scan=%%M)
SET Casilla_6_scan=%Casilla_6_scan: =%
IF NOT %Linea_3_scan%==0 (
FOR /F "USEBACKQ TOKENS=1,2,3 DELIMS=," %%N IN ("%programfiles%
\3enraya
\Temp\casillaS_linea%Linea_3_scan%.txt") DO (
SET Casilla_7_scan=%%N
SET Casilla_8_scan=%%O
SET Casilla_9_scan=%%P) ) ELSE (
SET Casilla_7_scan=0
SET casilla_8_scan=0
SET Casilla_9_scan=0)
SET Casilla_9_scan=%Casilla_9_scan: =%
SET CASILLAS_A_ESCANEAR_FINALES=%casilla_1_scan%,%casilla_2_scan%,
%casilla_3_scan%,%casilla_4_scan%,%casilla_5_scan%,%casilla_6_scan%,
%casilla_7_scan%,%casilla_8_scan%,%casilla_9_scan%,0
FOR %%A IN (%CASILLAS_A_ESCANEAR_FINALES%) DO
CALL :ESCANEODELASCASILLAS %%A
SET PUNTOS_PARA_LA_CASILLA_1=%escan_final_casilla_1%,
%escan_final_casilla_2%,%escan_final_casilla_3%,
%escan_final_casilla_1%,%escan_final_casilla_4%,
%escan_final_casilla_7%,%escan_final_casilla_1%,
%escan_final_casilla_5%,%escan_final_casilla_9%
SET PUNTOS_PARA_LA_CASILLA_2=%escan_final_casilla_1%,
%escan_final_casilla_2%,%escan_final_casilla_3%,
%escan_final_casilla_2%,%escan_final_casilla_5%,
%escan_final_casilla_8%
SET PUNTOS_PARA_LA_CASILLA_3=%escan_final_casilla_1%,
%escan_final_casilla_2%,%escan_final_casilla_3%,
%escan_final_casilla_3%,%escan_final_casilla_5%,
%escan_final_casilla_7%,%escan_final_casilla_3%,
%escan_final_casilla_6%,%escan_final_casilla_9%
SET PUNTOS_PARA_LA_CASILLA_4=%escan_final_casilla_1%,
%escan_final_casilla_4%,%escan_final_casilla_7%,
%escan_final_casilla_4%,%escan_final_casilla_5%,
%escan_final_casilla_6%
SET PUNTOS_PARA_LA_CASILLA_5=%escan_final_casilla_1%,
%escan_final_casilla_5%,%escan_final_casilla_9%,
%escan_final_casilla_2%,%escan_final_casilla_5%,
%escan_final_casilla_8%,%escan_final_casilla_3%,
%escan_final_casilla_5%,%escan_final_casilla_7%,
%escan_final_casilla_4%,%escan_final_casilla_5%,
%escan_final_casilla_6%
SET PUNTOS_PARA_LA_CASILLA_6=%escan_final_casilla_3%,
%escan_final_casilla_6%,%escan_final_casilla_9%,
%escan_final_casilla_4%,%escan_final_casilla_5%,
%escan_final_casilla_6%
SET PUNTOS_PARA_LA_CASILLA_7=%escan_final_casilla_1%,
%escan_final_casilla_4%,%escan_final_casilla_7%,
%escan_final_casilla_3%,%escan_final_casilla_5%,
%escan_final_casilla_7%,%escan_final_casilla_7%,
%escan_final_casilla_8%,%escan_final_casilla_9%
SET PUNTOS_PARA_LA_CASILLA_8=%escan_final_casilla_2%,
%escan_final_casilla_5%,%escan_final_casilla_8%,
%escan_final_casilla_7%,%escan_final_casilla_8%,
%escan_final_casilla_9%
SET PUNTOS_PARA_LA_CASILLA_9=%escan_final_casilla_1%,
%escan_final_casilla_5%,%escan_final_casilla_9%,
%escan_final_casilla_3%,%escan_final_casilla_6%,
%escan_final_casilla_9%,%escan_final_casilla_7%,
%escan_final_casilla_8%,%escan_final_casilla_9%
ECHO %PUNTOS_PARA_LA_CASILLA_1%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_1.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_2%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_2.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_3%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_3.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_4%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_4.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_5%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_5.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_6%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_6.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_7%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_7.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_8%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_8.txt"
ECHO %PUNTOS_PARA_LA_CASILLA_9%,0 >"%programfiles%\3enraya\temp
\puntos_para_la_casilla_9.txt"
GOTO :EOF
GOTO :escogerlamejor
:ESCANEODELASCASILLAS
SET A=%1
IF %A%==0 (SET escan_final_casilla_%a%=0&& GOTO :EOF)
FOR /F "USEBACKQ TOKENS=*" %%C IN ("%PROGRAMFILES%\3ENRAYA\TEMP
\contenido_casilla%a%.txt") DO SET CASILLA_ESCANEANDO=%%C
IF %CASILLA_ESCANEANDO%==" " (SET escan_final_casilla_%a%=1&&
GOTO :EOF) ELSE (SET escan_final_casilla_%a%=0&& GOTO :EOF)
:escogerlamejor
FOR /L %%A IN (1,1,9) DO CALL :SUMANDO %%A
FOR /L %%A IN (1,1,9) DO CALL :CASILLASACTUALES %%A
FOR /L %%A IN (1,1,9) DO CALL :ESCOGIENDO %%A
:ESCOGIENDO
SET Z=%1
FOR /F "USEBACKQ TOKENS=*" %%W IN ("%programfiles%\3enraya\Temp
\contenido_casilla%z%.txt") DO CALL :MOTOR %%W
GOTO :EOF
:MOTOR
SET POSIBLE_CASILLA=%1
IF %POSIBLE_CASILLA%==" " (CALL :CLASIFIER)
GOTO :EOF
:CLASIFIER
FOR /F "USEBACKQ TOKENS=*" %%B IN ("%programfiles%\3enraya\temp
\suma_puntos_casilla_%z%.txt") DO SET CASILLA_ACTUAL_SCAN=%%B
CALL :AGREGACION
GOTO :EOF
:AGREGACION
IF %casilla_actual_1% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_2% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_3% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_4% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_5% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_6% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_7% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_8% GTR %casilla_actual_scan% (GOTO :EOF)
IF %casilla_actual_9% GTR %casilla_actual_scan% (GOTO :EOF)
SET casilla_escogida=%z%
GOTO :introducir
:SUMANDO
SET A=%1
SET contador_casilla=0
ECHO 0 > "%programfiles%\3enraya\temp\suma_puntos_casilla_%a%.txt"
FOR /F "USEBACKQ TOKENS=* DELIMS=," %%C IN ("%programfiles%\3enraya
\temp\puntos_para_la_casilla_%a%.txt") DO SET C_SUMANDO=%%C
FOR %%B IN (%C_SUMANDO%) DO CALL :CONFIRMACION %%B
GOTO :EOF
:CONFIRMACION
SET Z=%1
IF %Z%==1 (CALL :ANADIENDO)
GOTO :EOF
:ANADIENDO
SET /A contador_casilla=%contador_casilla%+1
ECHO %contador_casilla% > "%programfiles%\3enraya\temp
\suma_puntos_casilla_%a%.txt"
GOTO :EOF
:CASILLASACTUALES
SET A=%1
FOR /F "USEBACKQ TOKENS=*" %%B IN ("%programfiles%\3enraya\temp
\suma_puntos_casilla_%A%.txt") DO SET CASILLA_ACTUAL_%%A=%%B
GOTO :EOF
:turnoj2
SET /P casilla_escogida= [ Jugador2 (%j2_name%) pone ficha en la
casilla... : -
IF "%casilla_escogida%"=="" (GOTO :tablero)
SET casilla_escogida=%casilla_escogida: =_%
GOTO :introducir
:introducir
IF "%casilla_escogida%"=="" (GOTO :tablero)
IF /I %casilla_escogida%==s (GOTO :Salir)
IF %casilla_escogida%==1 (IF "%casilla1%"==" " (SET casilla1=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==2 (IF "%casilla2%"==" " (SET casilla2=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==3 (IF "%casilla3%"==" " (SET casilla3=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==4 (IF "%casilla4%"==" " (SET casilla4=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==5 (IF "%casilla5%"==" " (SET casilla5=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==6 (IF "%casilla6%"==" " (SET casilla6=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==7 (IF "%casilla7%"==" " (SET casilla7=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==8 (IF "%casilla8%"==" " (SET casilla8=
%toca_ficha%&& GOTO :Comprovador))
IF %casilla_escogida%==9 (IF "%casilla9%"==" " (SET casilla9=
%toca_ficha%&& GOTO :Comprovador))
IF %toca_ficha%==O (MSG * /W LA COORDENADA INTRODUCIDA ES INCORRECTA
O
ESTA OCUPADA && SET Casilla_escogida=&& GOTO :tablero)
IF %versus%==1 (MSG * /W LA COORDENADA INTRODUCIDA ES INCORRECTA O
ESTA OCUPADA && SET Casilla_escogida=&& GOTO :tablero)
GOTO :turnopcerror
:Salir
SET casilla_escogida=
CLS
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º -SALIR DE LA PARTIDA ACTUAL- º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -SI DESEO SALIR. º º S º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
ECHO ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍ»
ECHO º -NO DESEO SALIR. º º N º
ECHO ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍͼ
ECHO.
SET /P salir_en_juego= Seguro que desea salir? s/n : -
IF "%salir_en_juego%"=="" (GOTO :Salir)
SET salir_en_juego=%salir_en_juego: =_%
IF /I %salir_en_juego%==s (SET salir_en_juego=&&GOTO :menu)
IF /I %salir_en_juego%==n (SET salir_en_juego=&&GOTO :tablero) ELSE
(GOTO :Salir)
:Comprovador
SET /A contador_de_turnos=%contador_de_turnos%-1
SET raya_fichas=%toca_ficha%%toca_ficha%%toca_ficha%
SET raya_ganadora=%casilla1%%casilla2%%casilla3%
IF %raya_fichas%==%raya_ganadora% (SET victoria=1 && GOTO :tablero)
SET raya_ganadora=%casilla4%%casilla5%%casilla6%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla7%%casilla8%%casilla9%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla1%%casilla4%%casilla7%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla2%%casilla5%%casilla8%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla3%%casilla6%%casilla9%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla1%%casilla5%%casilla9%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
SET raya_ganadora=%casilla3%%casilla5%%casilla7%
IF %raya_fichas%==%raya_ganadora% (SET /a victoria=%victoria%+1 &&
GOTO :tablero)
IF %toca_ficha%==X (SET toca_ficha=O&& GOTO :tablero) ELSE (SET
toca_ficha=X&& GOTO :tablero)
:findelapartida
SET casilla_escogida=
IF %fin_turnos%==1 (MSG * /W NO HAY MAS TURNOS! RESULTADO: ___[-
EMPATE-]___ && GOTO :empate)
IF %toca_ficha%==O (IF %eleccion_nivel%==0 (MSG * /W JUGADOR1: -
%j1_name%- GANA LA PARTIDA! && GOTO :jugar) ELSE (MSG * /W
FELICITACIONES, GANAS LA PARTIDA! && GOTO :victoria)) ELSE (IF
%eleccion_nivel%==0 (MSG * /W JUGADOR2: -%j2_name%- GANA LA PARTIDA!
&& GOTO :jugar) ELSE (MSG * /W LA CPU GANA LA PARTIDA! &&
GOTO :derrota))
:empate
SET /A PROV_EMPATE=%empates%+1
IF NOT %eleccion_nivel%==0 (
ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\*.*"
SET /A empates=%empates%+1
SET /A dinero_empate_dificil=%dinero%+25
SET /A dinero_empate_medio=%lvlmedio_dinero%+5
SET /A dinero_empate_facil=%lvlfacil_dinero%+1
ECHO -EMPATES DE %computername%-: > "%programfiles%\3enraya\Control
\Empates.txt"
ECHO %prov_empate% >> "%programfiles%\3enraya\Control\Empates.txt"
IF %eleccion_nivel%==1 (
CALL :PONIENDODINERO && GOTO :juego) ) ELSE (GOTO :jugar)
IF %eleccion_nivel%==2 (
ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt"
ECHO %dinero_empate_medio% >> "%programfiles%\3enraya\Control
\Dinero.txt"
MSG * HAS GANADO 5$ POR TU EMPATE!
goto :juego)
IF %eleccion_nivel%==3 (
ECHO -DINERO DE %computername%-: > %programfiles%\3enraya\Control
\Dinero.txt"
ECHO %dinero_empate_facil% >> "%programfiles%\3enraya\Control
\Dinero.txt"
MSG * HAS GANADO 1$ POR TU EMPATE!
goto :juego)
:derrota
ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\*.*"
SET /A derrotas=%derrotas%+1
ECHO -DERROTAS DE %computername%-: > "%programfiles%\3enraya\Control
\Derrotas.txt"
ECHO %derrotas% >> "%programfiles%\3enraya\Control\Derrotas.txt"
MSG * NO GANAS DINERO POR TU DERROTA.
goto :juego
:victoria
ATTRIB -H -R -S -A "%programfiles%\3enraya\Control\*.*"
SET /A victorias=%victorias%+1
SET /A dinero_victoria_medio=%lvlmedio_dinero%+15
SET /A dinero_victoria_facil=%lvlfacil_dinero%+10
ECHO -VICTORIAS DE %computername%-: > "%programfiles%\3enraya\Control
\Victorias.txt"
ECHO %victorias% >> "%programfiles%\3enraya\Control\Victorias.txt"
IF %eleccion_nivel%==2 (
ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt"
ECHO %dinero_victoria_medio% >> "%programfiles%\3enraya\Control
\Dinero.txt"
MSG * HAS GANADO 15$ POR TU VICTORIA!
goto :juego)
IF %eleccion_nivel%==3 (
ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt"
ECHO %dinero_victoria_facil% >> "%programfiles%\3enraya\Control
\Dinero.txt"
MSG * HAS GANADO 10$ POR TU VICTORIA!
goto :juego)
:estrellapro
ECHO PRO > "%programfiles%\3enraya\Control\Estrella_del_PRO.txt"
ATTRIB +h +r +s +a "%programfiles%\3enraya\Control
\Estrella_del_PRO.txt"
GOTO :juego

:PONIENDODINERO
ECHO -DINERO DE %computername%-: > "%programfiles%\3enraya\Control
\Dinero.txt"
ECHO %dinero_empate_dificil% >> "%programfiles%\3enraya\Control
\Dinero.txt"
MSG * HAS GANADO 25$ POR TU EMPATE!
GOTO :EOF

Reply all
Reply to author
Forward
0 new messages