@echo off

title FinalWorld v1.0
call Data\config.bat
call Data\setquestions.bat
color %clr%
call :loading
if %soun% equ + if not exist "Data\sounds" call :nosounds
if %firlau% == 1 call :about
goto start

:loading
echo @echo off > Data\helpforbar.bat
set typbaru=loadbar
set mezp=50
set vyn=5
set ohp=20
set tloustkabaru=20
set cas=1
set comm=Loading...
call Data\bar.bat
exit /b

:config
(
echo set "lan=%lan%"
echo set "clr=%clr%"
echo set "soun=%soun%"
echo set "firlau=0"
)>Data\config.bat
exit /b

:start
cls
call :config
echo Quallarinda!
echo(
set skip=13 & call :vypis
echo(
set /p "st=%inputnumb% "
if "%st%"=="" goto start
if %st% == 1 goto load
if %st% == 2 goto new
if %st% == 3 call :nast
if %st% == 4 call :about
if %st% == 5 exit
goto start

:new
cls
set /p "savnick=%inputsave% "
set savenick=%savnick: =_%
if exist "Data\save\%savenick%.bat" (
	set skip=25 & call :vypis
	pause>nul
	goto start
	)
set /p "password=%inputpass% "
call :setface
call Data\editface.bat
call :setall
call :savegame
goto game

:load
cls
set /p "savnick=%inputsave% "
set savenick=%savnick: =_%
if not exist "Data\save\%savenick%.bat" (
	set skip=23 & call :vypis
	pause>nul
	goto start
	)
call Data\save\%savenick%.bat
goto setpass

:setpass
set /p "pass=%inputpass% "
if %password% neq %pass% (
	set skip=19 & call :vypis
	pause>nul
	goto start
	)
goto game

:nast
cls
call :settings
echo(
set /p "nast=%inputnumb% "
if "%nast%"=="" goto nast
if %nast% == 1 goto lang
if %nast% == 2 goto color
if %nast% == 3 call :soundset
if %nast% == 4 goto veradmin
if %nast% == 5 call :config & exit /b
goto nast

:settings
cls
set "setfirlinpr=%setfirlin% %lan%"
set "setseclinpr=%setseclin% %clr%"
set "setthilinpr=%setthilin% %soun%"
echo %setfirlinpr%
echo %setseclinpr%
echo %setthilinpr%
set skip=66 & call :vypis
echo(
set skip=68 & call :vypis
exit /b

:lang
cls
echo %l%
echo(
for %%a in (Data\language\*.lng) do ´(
	set "l="
	if not defined l set "l=%%a"
	echo %l:~14,-4%
	)
echo(
set /p "lanp=%inputlang% "
if not exist "Data\language\%lanp%.lng" (
	set skip=27 & call :vypis
	pause>nul
	goto nast
	)
set lan=%lanp%
call :config
call Data\setquestions.bat
goto nast

:color
cls
set skip=45 & call :vypis
echo(
echo(
set /p "clrp=%inputcolr% "
if %clrp% equ -x goto nast
set clr=%clrp%
color %clr%
call :config
goto color

:about
cls
set skip=215 & call :vypis
pause>nul
exit /b

:veradmin
cls
set /p "adkod=%inputadmincode% "
if "%adkod%" neq "a9re5c42o9e" (
	set skip=189 & call :vypis
	pause>nul
	goto nast
	)
set /p "adpin=%inputadminpin% "
if "%adpin%" neq "8167" (
	set skip=191 & call :vypis
	pause>nul
	goto nast
	)
goto admin

:admin
cls
set skip=193 & call :vypis
echo(
set /p "cmd=set "
if "%cmd%" equ "-x" goto nast
set /p "cmd2=set %cmd%="
set %cmd%=%cmd2%
goto admin

::==============================================================GAME===============================================================::

:game
set "todaday=%date%"
if "%todaday%" neq "%prevday%" call :nextday
call :lvlup
call :celkovyarmor
call :vypocetdmg
call :savegame
set /a mhp=vyd*5*(lvl+1)
if %mhp% lss 0 set /a mhp=(mhp)*(-1)
set hp=%mhp%
set "npcub="
set "ub="
set "aex="
cls
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł
echo      ł %uch1%^| %oko% ^|%uch2% ł
echo      ł  ^|   %nos%   ^|  ł
echo      ł   \ %pus% /   ł
echo      ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo       %savenick:_= %
echo(
echo       %z% %g%
echo       Level: %lvl%
echo       XP: %xp%/%xpnexlvl%
echo       HP: %hp%
echo(
echo       1. %arena%: %dsva%/10
set skip=30 & call :vypis
echo(
set /p "game=>     %inputnumb% "
if "%game%"=="" goto game
if %game% == 1 goto arena
if %game% == 2 goto hospoda
if %game% == 3 goto kovar
if %game% == 4 call :obchoddialog & goto obchod
if %game% == 5 goto mazlic
if %game% == 6 goto pevnost
if %game% == 7 goto postava
if %game% == 8 goto podzemi
if %game% == 9 goto banka
if %game% == 10 goto hlidka
if %game% == 11 goto barak
if %game% == 97 set skip=213 & call :vypis & pause>nul
if %game% == 98 call :nast
if %game% == 99 call :savegame & goto start
rem Cheats:
if "%game%" equ "moneytome" set /p "pocet=>     Cheat activated: " & set /a g=g+pocet
if "%game%" equ "lvlupplease" set /p "pocet=>     Cheat activated: " & set /a lvl=lvl+pocet
if "%game%" equ "heybronextday" echo ^>     Cheat activated. & call :nextday
if "%game%" equ "resetmepls" echo ^>     Cheat activated. & call :setall & pause>nul
goto game

:lvlup
set /a xpnexlvl=(lvl*lvl*lvl)+(lvl*lvl*lvl)+(lvl*(lvl*(lvl*5)))
if %xp% geq %xpnexlvl% goto levelup
exit /b

:levelup
set /a lvl=lvl+1
set /a xp=xp-xpnexlvl
set /a vyd=vyd+1
set /a ohe=ohe+1
set /a ste=ste+1
set /a hp=vyd*5*(lvl+1)
set mhp=%hp%
cls
call :echoface
echo(
echo       %gdjl% %lvl%!
pause>nul
set /a xpnexlvl=(lvl*lvl*lvl)+(lvl*lvl*lvl)+(lvl*(lvl*(lvl*5)))
goto lvlup

:arena
cls
if %dsva% == 10 (
	call :echoface
	echo(
	set skip=160 & call :vypis
	pause>nul
	goto game
	)
set skip=110 & call :vypis
echo(
timeout /t 2 >nul
call :npcsel
set "sel=%arensel% %npclvl% %npc%."
echo %sel%
timeout /t 2 >nul
goto plfig

:plfig
set "mezi=            "
set "ub="
call :echoenemy
set /a dmg=%random% %% uto + minuto
if %dmg% lss 0 set /a dmg=dmg*(-1)
if %soun% equ + set "sounum=1" & call :soundstart
ping localhost -n 1 >nul
set "mezi=^>           "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=-^>          "
call :echoenemy
ping localhost -n 1 >nul
set "mezi= -^>         "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=  -^>        "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=   -^>       "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=    -^>      "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=     -^>     "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=      -^>    "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=       -^>   "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=        -^>  "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=         -^> "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=          -^>"
call :echoenemy
ping localhost -n 1 >nul
set "mezi=           -"
call :echoenemy
set "mezi=            "
goto npcoheb
:npcnotstesti
call :zablokovaniutokuar
call :ste
if %soun% equ + call :randomfightsounds
set "enpusp=%enpus%"
set "enobop=%enobo%"
set "enpus= O "
set "enobo=/   \"
set /a npchp=npchp-dmg
set /a aex=((dmg/4)*3)
if %aex% lss 0 set /a aex=aex*(-1)
set /a xp=xp+aex
ping localhost -n 1 >nul
call :echoenemy
ping localhost -n 2 >nul
set "enpus=%enpusp%"
set "enobo=%enobop%"
set "aex="
:npcstesti
call :echoenemy
timeout /t 2 >nul
if %npchp% leq 0 goto arwin
goto npfig

:npcoheb
set /a npcprohe=npcohe*5/(lvl*2)
if %npcprohe% gtr 50 set npcprohe=50
set /a arohe=%random% %% 100 + 1
if %arohe% gtr %npcprohe% goto npcnotstesti
set "npcub=%vyhnul%"
goto npcstesti

:ste
set /a prste=ste*5/(npclvl*2)
if %prste% gtr 75 set prste=75
set /a arste=%random% %% 100 + 1
if %dmg% gtr %uto% set dmg=%uto%
if %arste% gtr %prste% set "npcub=%dmg% HP" & set "kr=n" & exit /B
set /a dmg=dmg*2+(lvl*2)
set "npcub=%dmg% HP - %krithit%"
set "kr=y"
exit /b

:npfig
set "mezi=            "
set "npcub="
call :echoenemy
set /a npcdmg=%random% %% npcuto + npcminuto
if %npcdmg% lss 0 set /a npcdmg=npcdmg*(-1)
if %soun% equ + set "sounum=1" & call :soundstart
ping localhost -n 1 >nul
set "mezi=           ^<"
call :echoenemy
ping localhost -n 1 >nul
set "mezi=          ^<-"
call :echoenemy
ping localhost -n 1 >nul
set "mezi=         ^<- "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=        ^<-  "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=       ^<-   "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=      ^<-    "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=     ^<-     "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=    ^<-      "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=   ^<-       "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=  ^<-        "
call :echoenemy
ping localhost -n 1 >nul
set "mezi= ^<-         "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=^<-          "
call :echoenemy
ping localhost -n 1 >nul
set "mezi=-           "
call :echoenemy
set "mezi=            "
goto oheb
:notstesti
call :zablokovaninpcutokuar
call :npcste
if %soun% equ + call :randomfightsounds
set "pusp=%pus%"
set "pus= O "
set "obop=%obo%"
set "obo=/   \"
set "ub=%npcdmg% HP"
set /a hp=hp-npcdmg
ping localhost -n 1 >nul
call :echoenemy
ping localhost -n 2 >nul
set "pus=%pusp%"
set "obo=%obop%"
:stesti
call :echoenemy
timeout /t 2 >nul
if %hp% leq 0 goto arlos
goto plfig

:oheb
set /a prohe=ohe*5/(npclvl*2)
if %prohe% gtr 50 set prohe=50
set /a arohe=%random% %% 100 + 1
if %arohe% gtr %prohe% goto notstesti
set "ub=%vyhnul%"
goto stesti

:npcste
set /a nprste=npcste*5/(lvl*2)
if %nprste% gtr 75 set nprste=75
set /a arste=%random% %% 100 + 1
if %arste% gtr %nprste% set "ub=%npcdmg% HP" & set "kr=n" & exit /b
set /a npcdmg=npcdmg*2+(npclvl*2)
set "ub=%npcdmg% HP - %krithit%"
set "kr=y"
exit /b

:zablokovaninpcutokuar
set /a x=npcdmg*celblok/100
set /a npcdmg=npcdmg-x
if %npcdmg% lss 0 set npcdmg=0
exit /b

:zablokovaniutokuar
set /a x=dmg*celbloknpc/100
set /a dmg=dmg-x
if %dmg% lss 0 set dmg=0
exit /b

:arwin
cls
if %soun% equ + set "sounum=6" & call :soundstart
set skip=126 & call :vypis
echo(
if %vyh% == 1 echo + 1 %z1%
if %vyh% geq 2 if %vyh% leq 4 echo + %vyh% %z24%
if %vyh% geq 5 echo + %vyh% %zvic%
set /a aex=((uto/4)*3)
echo + %aex% XP
set /a g=g+vyh
set /a xp=xp+aex
set /a dsva=dsva+1
pause>nul
goto game

:arlos
cls
if %soun% equ + set "sounum=7" & call :soundstart
set skip=128 & call :vypis
echo(
if %vyh% lss 0 set vyh=0
if %vyh% == 1 echo - 1 %z1%
if %vyh% geq 2 if %vyh% leq 4 echo - %vyh% %z24%
if %vyh% geq 5 echo - %vyh% %zvic%
set /a g=g-vyh
if %g% lss 0 set g=0
set /a dsva=dsva+1
pause>nul
goto game

:npcsel
call Data\createenemy.bat
set /a np=%random% %% 6 + 1
if %np% == 1 set "npc=%aren1%"
if %np% == 2 set "npc=%aren2%"
if %np% == 3 set "npc=%aren3%"
if %np% == 4 set "npc=%aren4%"
if %np% == 5 set "npc=%aren5%"
if %np% == 6 set "npc=%aren6%"

if %lvl% lss 11 (set minlvl=1) else (set /a minlvl=lvl-9)
set /a npclvl=%random% %% lvl + minlvl
set /a npcvyd=npclvl*2
set /a npchp=npcvyd*5*(npclvl+1)
set /a npcsil=%random% %% lvl + 1
set /a npcuto=(npcsil*20)/np
set /a npcminuto=(npcuto+npclvl)/10
set /a npcblo=npcsil-lvl
if %npcblo% lss 1 set npcblo=1
set /a npcste=%random% %% lvl + 1
set /a npcohe=%random% %% lvl + npclvl
set /a npclvlfar=lvl*3
set /a npcarmor=%random% %% npclvlfar + npcminuto
set /a vyh=%random% %% np + npclvl
set /a celbloknpc=(npcarmor/(lvl*2))*(npcblo/10)
set celbloknpc=50
if %celbloknpc% gtr 50 set celbloknpc=50
exit /b

:postava
call :celkovyarmor
call :vypocetdmg
set /a mhp=vyd*5*(lvl+1)
if %mhp% lss 0 set /a mhp=(mhp)*(-1)
set /a utodmgpru=(minuto+uto)/2
set hp=%mhp%
call :lvlup
cls
call :echoface
echo(
echo       %z% %g%
echo       Level: %lvl%
echo       XP: %xp%/%xpnexlvl%
echo       HP: %hp%
echo       %ebrn% %armor%
echo       %eblk% %celblok% %%
echo       %echodmg% %minuto% - %uto% HP (~ %utodmgpru%)
echo(
echo       1. %esil% %sil% - %cen% %csil% %zvic%
echo       2. %eblo% %blo% - %cen% %cblo% %zvic%
echo       3. %eohe% %ohe% - %cen% %cohe% %zvic%
echo       4. %este% %ste% - %cen% %cste% %zvic%
echo       5. %evyd% %vyd% - %cen% %cvyd% %zvic%
set skip=21 & call :vypis
echo(
echo       7. ^<-
echo(
set /p "pos=>     %inputnumb% "
if "%pos%"=="" goto postava
if %pos% == 1 if %g% geq %csil% goto upgsil
if %pos% == 2 if %g% geq %cblo% goto upgblo
if %pos% == 3 if %g% geq %cohe% goto upgohe
if %pos% == 4 if %g% geq %cste% goto upgste
if %pos% == 5 if %g% geq %cvyd% goto upgvyd
if %pos% == 6 call Data\editface.bat
if %pos% == 7 goto game
goto postava

:upgsil
set /a g=g-csil
set /a csil=csil+5
set /a sil=sil+1
set /a xp=xp+(csil/sil)
set /a uto=wuto*(1+sil/10)
set /a minuto=wminuto*(1+sil/10)
goto postava

:upgblo
set /a g=g-cblo
set /a cblo=cblo+5
set /a blo=blo+1
set /a xp=xp+(cblo/blo)
goto postava

:upgohe
set /a g=g-cohe
set /a cohe=cohe+5
set /a ohe=ohe+1
set /a xp=xp+(cohe/ohe)
goto postava

:upgste
set /a g=g-cste
set /a cste=cste+5
set /a ste=ste+1
set /a xp=xp+(cste/ste)
goto postava

:upgvyd
set /a g=g-cvyd
set /a cvyd=cvyd+5
set /a vyd=vyd+1
set /a xp=xp+(cvyd/vyd)
goto postava

:obchod
cls
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł            ł  ooOooOooO  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł            ł o^| _   \ ^|O ł
echo      ł %uch1%^| %oko% ^|%uch2% ł            ł [^| O   o ^|] ł
echo      ł  ^|   %nos%   ^|  ł            ł  ^|   c   ^|  ł
echo      ł   \ %pus% /   ł            ł   \ ŔÄŮ /   ł
echo      ł    \___/    ł            ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ            ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo       %savenick:_= %
echo       %z% %g%
echo                                  %obch%
echo(
echo(
set skip=152 & call :vypis
echo(
set /p "obc=>     %inputnumb% "
if "%obc%"=="" goto obchod
if %obc% == 1 goto weap
if %obc% == 2 goto armo
if %obc% == 3 goto vzac
if %obc% == 4 goto poti
if %obc% == 5 goto amul
if %obc% == 6 goto game
goto obchod

:weap
call :weaponprumer
cls
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł            ł  ooOooOooO  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł            ł o^| _   \ ^|O ł
echo      ł %uch1%^| %oko% ^|%uch2% ł            ł [^| O   o ^|] ł
echo      ł  ^|   %nos%   ^|  ł            ł  ^|   c   ^|  ł
echo      ł   \ %pus% /   ł            ł   \ ŔÄŮ /   ł
echo      ł    \___/    ł            ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ            ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo       %savenick:_= %
echo       %z% %g%
echo                                  %obch%
echo       %echodmg% %wuto% - %wminuto% (~ %prumdmg%)
echo(
echo(
echo(
if %maxwea1dmg% neq -222 echo       1. %echodmg% %maxwea1dmg% - %minwea1dmg% (~ %wea1prum%), %cen% %wea1pri%
if %maxwea1dmg% equ -222 echo       1. %pdvpz%
if %maxwea2dmg% neq -222 echo       2. %echodmg% %maxwea2dmg% - %minwea2dmg% (~ %wea2prum%), %cen% %wea2pri%
if %maxwea2dmg% equ -222 echo       2. %pdvpz%
if %maxwea3dmg% neq -222 echo       3. %echodmg% %maxwea3dmg% - %minwea3dmg% (~ %wea3prum%), %cen% %wea3pri%
if %maxwea3dmg% equ -222 echo       3. %pdvpz%
if %maxwea4dmg% neq -222 echo       4. %echodmg% %maxwea4dmg% - %minwea4dmg% (~ %wea4prum%), %cen% %wea4pri%
if %maxwea4dmg% equ -222 echo       4. %pdvpz%
if %maxwea5dmg% neq -222 echo       5. %echodmg% %maxwea5dmg% - %minwea5dmg% (~ %wea5prum%), %cen% %wea5pri%
if %maxwea5dmg% equ -222 echo       5. %pdvpz%
if %maxwea6dmg% neq -222 echo       6. %echodmg% %maxwea6dmg% - %minwea6dmg% (~ %wea6prum%), %cen% %wea6pri%
if %maxwea6dmg% equ -222 echo       6. %pdvpz%
echo(
echo       7. ^<-
echo(
set /p "w=>     %inputnumb% "
if %w% == 7 goto obchod
if %w% == 1 (
	if %maxwea1dmg% neq -222 (
		if %g% geq %wea1pri% (
			set wuto=%maxwea1dmg%
			set wminuto=%minwea1dmg%
			set maxwea1dmg=-222
			set /a g=g-wea1pri
			goto weap
			)
		)
	)
if %w% == 2 (
	if %maxwea2dmg% neq -222 (
		if %g% geq %wea2pri% (
			set wuto=%maxwea2dmg%
			set wminuto=%minwea2dmg%
			set maxwea2dmg=-222
			set /a g=g-wea2pri
			goto weap
			)
		)
	)
if %w% == 3 (
	if %maxwea3dmg% neq -222 (
		if %g% geq %wea3pri% (
			set wuto=%maxwea3dmg%
			set wminuto=%minwea3dmg%
			set maxwea3dmg=-222
			set /a g=g-wea3pri
			goto weap
			)
		)
	)
if %w% == 4 (
	if %maxwea4dmg% neq -222 (
		if %g% geq %wea4pri% (
			set wuto=%maxwea4dmg%
			set wminuto=%minwea4dmg%
			set maxwea4dmg=-222
			set /a g=g-wea4pri
			goto weap
			)
		)
	)
if %w% == 5 (
	if %maxwea5dmg% neq -222 (
		if %g% geq %wea5pri% (
			set wuto=%maxwea5dmg%
			set wminuto=%minwea5dmg%
			set maxwea5dmg=-222
			set /a g=g-wea5pri
			goto weap
			)
		)
	)
if %w% == 6 (
	if %maxwea6dmg% neq -222 (
		if %g% geq %wea6pri% (
			set wuto=%maxwea6dmg%
			set wminuto=%minwea6dmg%
			set maxwea6dmg=-222
			set /a g=g-wea6pri
			goto weap
			)
		)
	)
goto weap

:armo
cls
set skip=213 & call :vypis
pause>nul
goto game

:vzac
cls
set skip=213 & call :vypis
pause>nul
goto game

:poti
cls
set skip=213 & call :vypis
pause>nul
goto game

:amul
cls
set skip=213 & call :vypis
pause>nul
goto game

:obchoddialog
cls
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł            ł  ooOooOooO  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł            ł o^| _   \ ^|O ł
echo      ł %uch1%^| %oko% ^|%uch2% ł            ł [^| O   o ^|] ł
echo      ł  ^|   %nos%   ^|  ł            ł  ^|   c   ^|  ł
echo      ł   \ %pus% /   ł            ł   \ ŔÄŮ /   ł
echo      ł    \___/    ł            ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ            ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo       %savenick:_= %
echo       %z% %g%
echo                                  %obch%
echo(
timeout /t 1 >nul
echo       %savenick:_= %: %obdia1%
timeout /t 1 >nul
echo       Raggonus: %obdia2%
timeout /t 1 >nul
echo       %savenick:_= %: %obdia3%
timeout /t 1 >nul
echo(
exit /b

:mazlic
cls
call :mazlicprice
call :echoface
echo(
if %lvl% lss 50 (
	set skip=183 & call :vypis
	pause>nul
	goto game
	)
echo       %mpm% %zabmpm%/%maxmpm%
echo       %z% %g%
if %prmaxmpm% neq -222 echo       %cen% %prmaxmpm%
echo(
set skip=174 & call :vypis
echo(
set /p "pet=>     %inputnumb% "
if "%pet%" equ "" goto mazlic
if %pet% == 1 goto buypet
if %pet% == 2 goto sellpet
if %pet% == 3 goto starat
if %pet% == 4 goto buyplace
if %pet% == 5 goto game
goto mazlic

:buyplace
if %maxmpm% == 10 cls & set skip=185 & call :vypis & pause>nul & goto mazlic
if %g% leq %prmaxmpm% goto mazlic
set /a maxmpm=maxmpm+1
goto mazlic

:mazlicprice
if %maxmpm% == 0 set prmaxmpm=500
if %maxmpm% == 1 set prmaxmpm=1000
if %maxmpm% == 2 set prmaxmpm=2000
if %maxmpm% == 3 set prmaxmpm=5000
if %maxmpm% == 4 set prmaxmpm=10000
if %maxmpm% == 5 set prmaxmpm=20000
if %maxmpm% == 6 set prmaxmpm=50000
if %maxmpm% == 7 set prmaxmpm=100000
if %maxmpm% == 8 set prmaxmpm=200000
if %maxmpm% == 9 set prmaxmpm=500000
if %maxmpm% == 10 set prmaxmpm=-222
exit /b

:buypet
cls
set skip=213 & call :vypis
pause>nul
goto game

:sellpet
cls
set skip=213 & call :vypis
pause>nul
goto game

:starat
cls
set skip=213 & call :vypis
pause>nul
goto game

:pevnost
cls
set skip=213 & call :vypis
pause>nul

:banka
cls
set skip=213 & call :vypis
pause>nul
goto game

:hospoda
cls
set skip=213 & call :vypis
pause>nul
goto game

:kovar
cls
set skip=213 & call :vypis
pause>nul
goto game

:podzemi
cls
set skip=213 & call :vypis
pause>nul
goto game

:hlidka
cls
set skip=213 & call :vypis
pause>nul
goto game

:barak
cls
set skip=213 & call :vypis
pause>nul
goto game

:nextday
set dsva=0
call :dailyrewards
call :generateweapon
call :generatearmor
call :generatecennost
call :generatepotions
call :generateamulets
set "prevday=%date%"
exit /b

:dailyrewards
set "dailyrewa=%dailyrew% %dailyrewchos%"
call :dailyrewecho
ping localhost -n 3 >nul
call :createdailyrew
call :dailyrewecho
pause>nul
exit /b

:dailyrewecho
cls
call :echoface
echo(
echo       %dailyrewa%
exit /b

:createdailyrew
set /a drw=%random% %% 15 + 1
if %drw% gtr 15 goto createdailyrew
if %drw% lss 1 goto createdailyrew
if %drw% == 1 set "drwp=1" & set drwc=%z1%
if %drw% == 2 set "drwp=2" & set drwc=%z24%
if %drw% == 3 set "drwp=3" & set drwc=%z24%
if %drw% == 4 set "drwp=4" & set drwc=%z24%
if %drw% == 5 set "drwp=5" & set drwc=%zvic%
if %drw% == 6 set "drwp=10" & set drwc=%zvic%
if %drw% == 7 set "drwp=15" & set drwc=%zvic%
if %drw% == 8 set "drwp=20" & set drwc=%zvic%
if %drw% == 9 set "drwp=25" & set drwc=%zvic%
if %drw% == 10 set "drwp=40" & set drwc=%zvic%
if %drw% == 11 set "drwp=50" & set drwc=%zvic%
if %drw% == 12 set "drwp=100" & set drwc=%zvic%
if %drw% == 13 set "drwp=100" & set drwc=XP
if %drw% == 14 set "drwp=500" & set drwc=XP
if %drw% == 15 set "drwp=1000" & set drwc=XP
set "dailyrewa=%dailyrew% %dailyrewget% %drwp% %drwc%!"
if %drwc% neq XP (set /a g=g+drwp) else (set /a xp=xp+drwp)
exit /b

:generateweapon
set genw=1
set /a lvlforw=lvl*8+(lvl/2)
:genwc
if %genw% gtr 6 exit /b
set /a maxwea%genw%dmg=%random% %% lvlforw + 1
set /a minwea%genw%dmg=%random% %% maxwea%genw%dmg + 1
set /a wea%genw%pri=%random% %% maxwea%genw%dmg + minwea%genw%dmg
set /a genw=genw+1
goto genwc

:generatearmor
set gena=1
set /a lvlfora=lvl*3+(lvl/3)
:genac
if %gena% gtr 6 exit /b
set /a arm%gena%blk=%random% %% lvlfora + 1
set /a arm%gena%pri=%random% %% lvlfora + lvl
set /a gena=gena+1
goto genac

:generatecennost
set genc=1
set /a lvlf=lvl*3
:gencc
if %genc% gtr 6 exit /b
set /a typ=%random% %% 3 + 1
if %typ% == 1 set sp%genc%=ohe
if %typ% == 2 set sp%genc%=ste
if %typ% == 3 set sp%genc%=vyd
if %lvl% lss 50 set /a plus%genc%=%random% %% 10 + 1
if %lvl% gtr 50 if %lvl% lss 100 set /a plus%genc%=%random% %% 15 + 1
if %lvl% gtr 100 if %lvl% lss 200 set /a plus%genc%=%random% %% 20 + 1
if %lvl% gtr 200 if %lvl% lss 500 set /a plus%genc%=%random% %% 50 + 1
if %lvl% gtr 500 set /a plus%genc%=%random% %% 100 + 1
set /a cen%genc%pri=%random% %% lvlf + plus%genc%
set /a genc=genc+1
goto gencc

:generatepotions
set genp=1
set /a lvlf=lvl*4
:genpc
if %genp% gtr 6 del Data\potion.bat & del Data\potihelp.bat & exit /b
set /a pottyp=%random% %% 5 + 1
if %pottyp% lss 1 goto genpc
if %pottyp% gtr 5 goto genpc
if %pottyp% == 1 set poti%genp%=sil
if %pottyp% == 2 set poti%genp%=blo
if %pottyp% == 3 set poti%genp%=ohe
if %pottyp% == 4 set poti%genp%=ste
if %pottyp% == 5 set poti%genp%=vyd
set /a pot%genp%pri=%random% %% lvlf + pottyp
:ppluscyk
set /a potplus=%random% %% 20 + 1
if %potplus% gtr 20 goto ppluscyk
if %potplus% lss 1 goto ppluscyk
if %potplus% leq 10 set pot%genp%plus=10
if %potplus% gtr 10 if %potplus% leq 15 set pot%genp%plus=25
if %potplus% gtr 15 if %potplus% leq 19 set pot%genp%plus=35
if %potplus% equ 20 set pot%genp%plus=50
(
echo echo set /a pot%genp%celplus=%%poti%genp%%%*%%pot%genp%plus%%/100^>Data\potihelp.bat
)>Data\potion.bat
call Data\potion.bat
call Data\potihelp.bat
set /a genp=genp+1
goto genpc

:generateamulets
exit /b

:soundstart
(
echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
echo Sound.URL = "Data\sounds\sound%sounum%.mp3"
echo Sound.Controls.play
echo do while Sound.currentmedia.duration = 0
echo wscript.sleep 100
echo loop
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000
)>Data\playsound.vbs
start /min Data\playsound.vbs
exit /b

:randomfightsounds
if %kr% equ y set "sounum=5" & call :soundstart & exit /b
set /a tsn=%random% %% 4 + 2
if %tsn% leq 1 goto randomfightsounds
if %tsn% geq 5 goto randomfightsounds
set sounum=%tsn%
call :soundstart
exit /b

:celkovyarmor
set /a celblok=(armor/(lvl*2))*(blo/10)
if %celblok% gtr 50 set celblok=50
exit /b

:vypocetdmg
set /a uto=wuto*(1+sil/10)
set /a minuto=wminuto*(1+sil/10)
exit /b

:vypis
for /F "skip=%skip% delims=" %%i in (Data\language\%lan%.lng) do (
	if %%i equ # exit /b
	if %%i equ --- echo(
	if %%i neq --- echo %%i
	)

:setface
set hs=1
set os=1
set ns=1
set ps=1
set us=1
set obs=1
set "hair1=/"
set "hair2=\"
set "oko=@   @"
set "nos=U"
set "pus=---"
set "uch1=E"
set "uch2=3"
set "obo=_   _"
exit /b

:nosounds
cls
set skip=203 & call :vypis
pause>nul
exit /b

:soundset
if %soun% equ - (
	if not exist "Data\sounds" (
		call :nosounds
		set soun=-
		exit /b
		)
	set soun=+
	exit /b
	)
if %soun% equ + set soun=-
exit /b

:weaponprumer
set /a wea1prum=(maxwea1dmg+minwea1dmg)/2
set /a wea2prum=(maxwea2dmg+minwea2dmg)/2
set /a wea3prum=(maxwea3dmg+minwea3dmg)/2
set /a wea4prum=(maxwea4dmg+minwea4dmg)/2
set /a wea5prum=(maxwea5dmg+minwea5dmg)/2
set /a wea6prum=(maxwea6dmg+minwea6dmg)/2
set /a prumdmg=(wuto+wminuto)/2
exit /b

:echoenemy
cls
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż            ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł            ł  %enhair1%%enhair1%%enhair2%%enhair1%%enhair1%%enhair2%%enhair1%%enhair1%%enhair2%  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł            ł %enhair1%^| %enobo% ^|%enhair2% ł
echo      ł %uch1%^| %oko% ^|%uch2% ł%mezi%ł %enuch1%^| %enoko% ^|%enuch2% ł
echo      ł  ^|   %nos%   ^|  ł   VERSUS   ł  ^|   %ennos%   ^|  ł
echo      ł   \ %pus% /   ł            ł   \ %enpus% /   ł
echo      ł    \___/    ł            ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ            ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo(
if "%aex%" neq "" echo       + %aex% XP
if "%aex%" equ "" echo(
if "%ub%" neq "" echo       - %ub%
if "%npcub%" neq "" echo                                  - %npcub%
if "%npcub%" equ "" if "%ub%" equ "" echo(
echo(
echo       HP: %hp%
echo                                  HP: %npchp%
echo       Level: %lvl%
echo                                  Level: %npclvl%
echo(
echo(
echo       %euto% %uto%
echo                                  %euto% %npcuto%
echo       %eblo% %celblok% %%
echo                                  %eblo% %celbloknpc% %%
echo       %eohe% %ohe%
echo                                  %eohe% %npcohe%
echo       %este% %ste%
echo                                  %este% %npcste%
echo       %evyd% %vyd%
echo                                  %evyd% %npcvyd%
exit /b

:echoface
echo(
echo(
echo      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄż
echo      ł  %hair1%%hair1%%hair2%%hair1%%hair1%%hair2%%hair1%%hair1%%hair2%  ł
echo      ł %hair1%^| %obo% ^|%hair2% ł
echo      ł %uch1%^| %oko% ^|%uch2% ł
echo      ł  ^|   %nos%   ^|  ł
echo      ł   \ %pus% /   ł
echo      ł    \___/    ł
echo      ŔÄÄÄÄÄÄÄÄÄÄÄÄÄŮ
echo       %savenick:_= %
exit /b

:setall
set g=50
set lvl=1
set xp=0
set wuto=5
set wminuto=1
set sil=1
set armor=0
set blo=1
set ohe=1
set ste=1
set vyd=1
set csil=0
set cblo=0
set cohe=0
set cste=0
set cvyd=0
set hp=5
set mhp=5
set dsva=0
set maxwea1dmg=4
set maxwea2dmg=3
set maxwea3dmg=2
set maxwea4dmg=5
set maxwea5dmg=6
set maxwea6dmg=7
set minwea1dmg=1
set minwea2dmg=2
set minwea3dmg=1
set minwea4dmg=1
set minwea5dmg=2
set minwea6dmg=3
set wea1pri=3
set wea2pri=3
set wea3pri=2
set wea4pri=5
set wea5pri=6
set wea6pri=7
set zabmpm=0
set maxmpm=0
set daily=1
exit /b

:savegame
(
echo set "savenick=%savenick%"
echo set "password=%password%"
echo set lvl=%lvl%
echo set xp=%xp%
echo set g=%g%
echo set csil=%csil%
echo set cblo=%cblo%
echo set cohe=%cohe%
echo set cste=%cste%
echo set cvyd=%cvyd%
echo set "hair1=%hair1%"
echo set "hair2=%hair2%"
echo set "oko=%oko%"
echo set "nos=%nos%"
echo set "pus=%pus%"
echo set "uch1=%uch1%"
echo set "uch2=%uch2%"
echo set "obo=%obo%"
echo set wuto=%wuto%
echo set wminuto=%wminuto%
echo set sil=%sil%
echo set armor=%armor%
echo set blo=%blo%
echo set ohe=%ohe%
echo set ste=%ste%
echo set vyd=%vyd%
echo set hp=%hp%
echo set mhp=%mhp%
echo set dsva=%dsva%
echo set "prevday=%prevday%"
echo set "todaday=%date%"
echo set maxwea1dmg=%maxwea1dmg%
echo set maxwea2dmg=%maxwea2dmg%
echo set maxwea3dmg=%maxwea3dmg%
echo set maxwea4dmg=%maxwea4dmg%
echo set maxwea5dmg=%maxwea5dmg%
echo set maxwea6dmg=%maxwea6dmg%
echo set minwea1dmg=%minwea1dmg%
echo set minwea2dmg=%minwea2dmg%
echo set minwea3dmg=%minwea3dmg%
echo set minwea4dmg=%minwea4dmg%
echo set minwea5dmg=%minwea5dmg%
echo set minwea6dmg=%minwea6dmg%
echo set wea1pri=%wea1pri%
echo set wea2pri=%wea2pri%
echo set wea3pri=%wea3pri%
echo set wea4pri=%wea4pri%
echo set wea5pri=%wea5pri%
echo set wea6pri=%wea6pri%
echo set maxmpm=%maxmpm%
echo set zabmpm=%zabmpm%
echo set hs=%hs%
echo set os=%os%
echo set ns=%ns%
echo set ps=%ps%
echo set us=%us%
echo set obs=%obs%
echo set daily=%daily%
)>Data\save\%savenick%.bat
exit /b