Added English version and screenshots, restructurized

English/kryz.bat

@@ -0,0 +1,223 @@
+@echo off
+
+REM ---------------------------------------- LICENSE -------------------------------------------------------
+REM
+REM    Copyright (c) 2006-2012+, MekDrop <github@mekdrop.name>
+REM 
+REM    Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted, provided that the above copyright notice and this permission 
+REM    notice appear in all copies.
+REM 
+REM    THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 
+REM    MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 
+REM    WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 
+REM     OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+REM
+REM ---------------------------------------- NOTE -------------------------------------------------------
+REM
+REM    This app is can run only on Windows 2000 or newer
+
+:pradzia
+rem Here we setting default values for all of our variables
+set tuscias_langelis=%%
+set zaidejas1=X
+set zaidejas2=O
+set e1=%tuscias_langelis%
+set e2=%tuscias_langelis%
+set e3=%tuscias_langelis%
+set e4=%tuscias_langelis%
+set e5=%tuscias_langelis%
+set e6=%tuscias_langelis%
+set e7=%tuscias_langelis%
+set e8=%tuscias_langelis%
+set e9=%tuscias_langelis%
+set e_spc=
+set emsg=
+goto braizom
+
+:braizom
+rem This part is used for drawing the board
+rem We need to specify value for griztam variable, before using this part (is use label names)
+cls
+echo   %e1% ! %e2% ! %e3%
+echo   - + - + - 
+echo   %e4% ! %e5% ! %e6%
+echo   - + - + - 
+echo   %e7% ! %e8% ! %e9%
+echo.
+rem If there was an error, we show this here
+if NOT "%e_spc%"=="" (
+   echo %emsg%
+   echo.
+   goto %e_spc%
+)
+if NOT "%klaida%"=="" (
+   echo Error: %klaida%
+   echo.
+)
+rem Here it's possible enter where to place mark
+set zenklas=%zaidejas1%
+echo Enter coordinate (1-9):
+set /P ejimas=
+goto tikrink
+
+:tikrink
+set klaida=
+if "%ejimas%"=="1" (
+    if "%e1%"=="%tuscias_langelis%" (
+	set e1=%zenklas%
+    ) else (	
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="2" (
+    if "%e2%"=="%tuscias_langelis%" (
+	set e2=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="3" (
+    if "%e3%"=="%tuscias_langelis%" (
+	set e3=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="4" (
+    if "%e4%"=="%tuscias_langelis%" (
+	set e4=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="5" (
+    if "%e5%"=="%tuscias_langelis%" (
+	set e5=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="6" (
+    if "%e6%"=="%tuscias_langelis%" (
+	set e6=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="7" (
+    if "%e7%"=="%tuscias_langelis%" (
+	set e7=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="8" (
+    if "%e8%"=="%tuscias_langelis%" (
+	set e8=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+if "%ejimas%"=="9" (
+    if "%e9%"=="%tuscias_langelis%" (
+	set e9=%zenklas%
+    ) else (
+	set klaida=Such already exists!
+    )
+)
+rem if entered number is lower than 1, also that was an error!
+if /I %ejimas% LSS 1 (
+   set klaida=You have entered a bad coordinate
+)
+rem if entered number is greater than 9, also that was an error!
+if /I %ejimas% GTR 9 (
+   set klaida=You have entered a bad coordinate
+)
+rem checking if there was a previous error
+rem if that was the computer turn, we hide all errors
+if NOT "%klaida%"=="" (
+    if "%zenklas%"=="%zaidejas1%" (
+	goto braizom
+    ) else (
+	goto kompiuteris
+    )
+)
+
+rem here we are checking if somebody wins
+if "%e1%%e2%%e3%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+if "%e4%%e5%%e6%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+if "%e7%%e8%%e9%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+
+if "%e1%%e4%%e7%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+if "%e2%%e5%%e8%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+if "%e3%%e6%%e9%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+
+if "%e1%%e5%%e9%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+if "%e3%%e5%%e7%" == "%zenklas%%zenklas%%zenklas%" goto laimejimas
+
+if NOT "%e1%"=="%tuscias_langelis%" (
+   if NOT "%e2%"=="%tuscias_langelis%" (
+     if NOT "%e3%"=="%tuscias_langelis%" (
+        if NOT "%e4%"=="%tuscias_langelis%" (
+           if NOT "%e5%"=="%tuscias_langelis%" (
+             if NOT "%e6%"=="%tuscias_langelis%" (
+	        if NOT "%e7%"=="%tuscias_langelis%" (
+                   if NOT "%e8%"=="%tuscias_langelis%" (
+	              if NOT "%e9%"=="%tuscias_langelis%" (
+		         goto lygiosios
+                      )
+           	   )
+         	)
+    	     )
+  	   )
+	)
+     )
+   )
+)
+
+rem if you are in this place, it means you have places a mark sucessfully!
+rem now we thinking what to doo next
+if "%zenklas%"=="%zaidejas1%" goto kompiuteris
+set griztam=ivedimas
+goto braizom
+
+:kompiuteris
+rem here is a computer turn
+set zenklas=%zaidejas2%
+set /A ejimas=%RANDOM%/(32752/(9-1))+1
+goto tikrink
+
+:laimejimas
+if "%zenklas%"=="%zaidejas1%" (
+  set emsg=Player wins!
+) else (
+  set emsg=Computer wins!
+)
+
+set e_spc=arzaistidar
+echo.
+echo.
+goto braizom
+
+:lygiosios 
+set emsg=Draw
+set e_spc=arzaistidar
+echo.
+echo.
+goto braizom
+
+:arzaistidar
+echo Do You want to play again (yes/no)? 
+set /p ats=
+if "%ats%" == "yes" goto pradzia
+if "%ats%" == "YES" goto pradzia
+if "%ats%" == "y" goto pradzia
+if "%ats%" == "Y" goto pradzia
+if "%ats%" == "no" goto pabaiga
+if "%ats%" == "NO" goto pabaiga
+if "%ats%" == "n" goto pabaiga
+if "%ats%" == "N" goto pabaiga
+cls
+goto arzaistidar
+
+:pabaiga