Swordsmen RPG Batch Game Updated 4:27 PM 6/21/21

title Tale of A Swordsmen
color 0e
@echo off

:menu
cls
mode con COLS=38 LINES=26
echo ---------------------------------
echo          Start your tale
echo ---------------------------------
echo  1) New Game
echo  2) Load Game
echo  3) Exit Game
echo ----------------------------------
choice /c 123 /n >nul
if %ERRORLEVEL%==1 call :VARS
if %ERRORLEVEL%==2 (
   call :LOAD
   goto HOME
   )
if %ERRORLEVEL%==3 exit
goto menu



:LVLUP
set /a LVL+=1
set EXP=0
set /a EXPM= %EXPM% * 120 / 100
if %EXPM% GEQ 70000 set EXPM=70000
set /a STMM+=50
set /a HPM+=125+(%LVL% * 2)
set /a HPOTM+=5
set /a SPOTM+=5
set /a SHPOTM+=5
goto:eof

rem --------------------------------------------------------------------------------- Tavern where you interact with the rest of the game

:HOME
mode con COLS=55 LINES=26
if %EXP% GEQ %EXPM% call :LVLUP
if %SMKB% GEQ 2 set SMKB=2
set HPD=2
set /a HPD=2+%STR%
set /a STMD=4+%LVL%
if %HP% LSS 1 set /a HP=0
if %HPOT% LSS 1 (
 set MSG2=Buy some Health Potions!
)
if %HPOT% GEQ 1 (
 set MSG2=
)
if %HPOT% LSS 1 set HPOT=0
if %SPOT% LSS 1 set SPOT=0
if %SHPOT% LSS 1 set SHPOT=0
if %HP% GEQ %HPM% set /a HP=%HPM%
if %STM% GEQ %STMM% set /a STM=%STMM%
if %COIN% LSS 1 set COIN=0
call :WEPSET
call :ARMSET
cls
echo 1) Go To Store    2) Fight!
echo 3) Options        4) Exit
if %LVL% GEQ 30 echo 5) Royal Smith
echo 6) To Rest Up
echo --------------------------------
echo           %name%
echo  Level:%LVL%
echo  Experience:%EXP%/%EXPM%
echo  Health:%HP%/%HPM%
echo  Stamina:%STM%/%STMM%
echo  Weapon:%WEPD%
echo  Strength:%STR%
echo  Armour:%ARMD%
echo  Defence:%DEF%
echo  Coin:%COIN%
echo  Health Potions:%HPOT%/%HPOTM% %MSG2%
echo  Stamina Potions:%SPOT%/%SPOTM%
echo  Smoke Bombs:%SMKB%/2
if %SHPOT% GTR 0 echo  S Health Potions:%SHPOT%/%SHPOTM%
if %CRYT% GTR 0 echo  Crystal Teeth:%CRYT% Eat to Level (C)
echo  Total Kills:%KILLS%
echo --------------------------------
echo Message:%MSG%:%MSG3%:
choice /d 6 /t 2 /c 123456c /n >nul
set MSG=
if %ERRORLEVEL%==1 goto STORE
if %ERRORLEVEL%==2 goto FIGHT1
if %ERRORLEVEL%==3 goto OPTIONS
if %ERRORLEVEL%==4 exit
if %ERRORLEVEL%==5 (
   if %LVL% LSS 30 set MSG3=Not High Enough Level!
   if %LVL% LSS 30 goto HOME
   goto ROYALSMITH
)
set /a HP+=%HPD%
set /a STM+=%STMD%
if %ERRORLEVEL%==6 (
  set MSG=Regenerating +%HPD% HP and +%STMD% Stamina
  set MSG3=
  )
if %ERRORLEVEL%==7 (
 set /a CRYT-=1
 call :LVLUP
)
goto HOME

rem Options Menu

:OPTIONS
cls
mode con COLS=35 LINES=24
echo        %name%
echo ----------------------
echo        Options
echo ----------------------
echo Kills:%KILLS% Coin:%COIN%
echo Level:%LVL%
if %CRYT% GTR 0 echo     Crystal Teeth:%CRYT%
echo ----------------------
echo 1) Return
echo 2) New Game
echo 3) Save Game
echo 4) Load Game
echo 5) Change Name
echo 6) Exit
echo 7) Set Kills
echo 8) Set Coin
echo 9) Set Teeth
echo 0) Level Up
echo ----------------------
echo Message:%MSG%:
choice /c 1234567890 /n >nul
if %ERRORLEVEL%==1 goto HOME
if %ERRORLEVEL%==2 goto VARS
if %ERRORLEVEL%==3 call :SAVE
if %ERRORLEVEL%==4 (
   call :LOAD
   set MSG=Progress Loaded...
)
if %ERRORLEVEL%==5 (
   set /p name=Change your name to something else:
)
if %ERRORLEVEL%==6 exit
if %ERRORLEVEL%==7 (
   set /p KILLS=For Debug Set Kills:
)
if %ERRORLEVEL%==8 (
   set /p COIN=For Debug Set Coin:
)
if %ERRORLEVEL%==9 (
   set /p CRYT=For Debug Set Teeth:
)
if %ERRORLEVEL%==10 call :LVLUP

goto OPTIONS

rem Character Sets

:CHARSET
if %CHAR% == 1 set CHARD=Highlander
if %CHAR% == 1 set CHARB=20
if %CHAR% == 1 set CHARDM=6
if %CHAR% == 2 set CHARD=Lowlander
if %CHAR% == 2 set CHARB=10
if %CHAR% == 2 set CHARDM=5
if %CHAR% == 3 set CHARD=Darklander
if %CHAR% == 3 set CHARB=35
if %CHAR% == 3 set CHARDM=8
if %CHAR% == 4 set CHARD=Deadlander
if %CHAR% == 4 set CHARB=40
if %CHAR% == 4 set CHARDM=9
if %CHAR% == 5 set CHARD=Bandit
if %CHAR% == 5 set CHARB=25
if %CHAR% == 5 set CHARDM=8
if %CHAR% == 6 set CHARD=Rogue Axe Man
if %CHAR% == 6 set CHARB=30
if %CHAR% == 6 set CHARDM=7
if %CHAR% == 7 set CHARD=Rogue Spear Man
if %CHAR% == 7 set CHARB=35
if %CHAR% == 7 set CHARDM=7
if %CHAR% == 8 set CHARD=Troll
if %CHAR% == 8 set CHARB=200
if %CHAR% == 8 set CHARDM=12
if %CHAR% == 9 set CHARD=Cave Troll
if %CHAR% == 9 set CHARB=250
if %CHAR% == 9 set CHARDM=14
if %CHAR% == 10 set CHARD=Mountain Troll
if %CHAR% == 10 set CHARB=325
if %CHAR% == 10 set CHARDM=16
if %CHAR% == 11 set CHARD=Rogue Bladesmen
if %CHAR% == 11 set CHARB=65
if %CHAR% == 11 set CHARDM=8
if %CHAR% == 12 set CHARD=Giant
if %CHAR% == 12 set CHARB=400
if %CHAR% == 12 set CHARDM=20
if %CHAR% == 13 set CHARD=Mountain Giant
if %CHAR% == 13 set CHARB=650
if %CHAR% == 13 set CHARDM=25
if %CHAR% == 14 set CHARD=Wild Wolf
if %CHAR% == 14 set CHARB=5
if %CHAR% == 14 set CHARDM=5
if %CHAR% == 15 set CHARD=Assassin
if %CHAR% == 15 set CHARB=100
if %CHAR% == 15 set CHARDM=15
if %CHAR% == 16 set CHARD=Wild Boar
if %CHAR% == 16 set CHARB=30
if %CHAR% == 16 set CHARDM=4
if %CHAR% == 17 set CHARD=Challenger
if %CHAR% == 17 set CHARB=%HPM%
if %CHAR% == 17 set CHARDM=%STR%
if %CHAR% == 18 set CHARD=Feral Dragon
if %CHAR% == 18 set CHARB=1250
if %CHAR% == 18 set CHARDM=30
if %CHAR% == 19 set CHARD=Evil Summon!
if %CHAR% == 19 set CHARB=1150
if %CHAR% == 19 set CHARDM=35
if %CHAR% == 20 set CHARD=Rogue Horsemen
if %CHAR% == 20 set CHARB=155
if %CHAR% == 20 set CHARDM=10
if %CHAR% == 21 set CHARD=Thief
if %CHAR% == 21 set CHARB=5
if %CHAR% == 21 set CHARDM=3
if %CHAR% == 22 set CHARD=Lesser Highlander
if %CHAR% == 22 set CHARB=5
if %CHAR% == 22 set CHARDM=3
if %CHAR% == 23 set CHARD=Lesser Darklander
if %CHAR% == 23 set CHARB=5
if %CHAR% == 23 set CHARDM=4
if %CHAR% == 24 set CHARD=Lesser Lowlander
if %CHAR% == 24 set CHARB=2
if %CHAR% == 24 set CHARDM=2
if %CHAR% == 25 set CHARD=Lesser Deadlander
if %CHAR% == 25 set CHARB=20
if %CHAR% == 25 set CHARDM=4
if %CHAR% == 26 set CHARD=Lesser Bandit
if %CHAR% == 26 set CHARB=10
if %CHAR% == 26 set CHARDM=4
goto:eof

:HARDCHARSET
if %CHAR% == 27 set CHARD=Demon of Voices
if %CHAR% == 27 set CHARB=3565
if %CHAR% == 27 set CHARDM=50
if %CHAR% == 28 set CHARD=Grand Oathsmen
if %CHAR% == 28 set CHARB=2451
if %CHAR% == 28 set CHARDM=24
if %CHAR% == 29 set CHARD=Master Bladesmen
if %CHAR% == 29 set CHARB=4231
if %CHAR% == 29 set CHARDM=34
if %CHAR% == 30 set CHARD=Summoner of Evil
if %CHAR% == 30 set CHARB=3142
if %CHAR% == 30 set CHARDM=51
if %CHAR% == 31 set CHARD=Empty Armour of Hate
if %CHAR% == 31 set CHARB=1243
if %CHAR% == 31 set CHARDM=34
if %CHAR% == 32 set CHARD=Banished God
if %CHAR% == 32 set CHARB=5425
if %CHAR% == 32 set CHARDM=55
if %CHAR% == 33 set CHARD=Demon of Pain
if %CHAR% == 33 set CHARB=6154
if %CHAR% == 33 set CHARDM=60
if %CHAR% == 34 set CHARD=Cursed King's Guard
if %CHAR% == 34 set CHARB=2975
if %CHAR% == 34 set CHARDM=25
if %CHAR% == 35 set CHARD=Cursed King
if %CHAR% == 35 set CHARB=6135
if %CHAR% == 35 set CHARDM=45
if %CHAR% == 36 set CHARD=Banished Royal Knight
if %CHAR% == 36 set CHARB=2125
if %CHAR% == 36 set CHARDM=22
if %CHAR% == 37 set CHARD=Enraged Beserker
if %CHAR% == 37 set CHARB=1407
if %CHAR% == 37 set CHARDM=34
if %CHAR% == 38 set CHARD=Lunatic King
if %CHAR% == 38 set CHARB=4204
if %CHAR% == 38 set CHARDM=24
if %CHAR% == 39 set CHARD=Lunatic King's Guard
if %CHAR% == 39 set CHARB=2546
if %CHAR% == 39 set CHARDM=23
if %CHAR% == 40 set CHARD=Tree Ent of Dark Wood
if %CHAR% == 40 set CHARB=3254
if %CHAR% == 40 set CHARDM=39
if %CHAR% == 41 set CHARD=White Scaled Feral Dragon
if %CHAR% == 41 set CHARB=7253
if %CHAR% == 41 set CHARDM=57
if %CHAR% == 42 set CHARD=Broken Horned Feral Dragon
if %CHAR% == 42 set CHARB=6145
if %CHAR% == 42 set CHARDM=52
if %CHAR% == 43 set CHARD=Dark Royal Knight
if %CHAR% == 43 set CHARB=3125
if %CHAR% == 43 set CHARDM=26
if %CHAR% == 44 set CHARD=Armoured Mountain Troll
if %CHAR% == 44 set CHARB=1554
if %CHAR% == 44 set CHARDM=32
if %CHAR% == 45 set CHARD=Armoured Royal Giant
if %CHAR% == 45 set CHARB=2465
if %CHAR% == 45 set CHARDM=43
if %CHAR% == 46 set CHARD=Armoured Royal Dragon
if %CHAR% == 46 set CHARB=6854
if %CHAR% == 46 set CHARDM=54
if %CHAR% == 47 set CHARD=Minotaur
if %CHAR% == 47 set CHARB=1254
if %CHAR% == 47 set CHARDM=28
if %CHAR% == 48 set CHARD=Giant Centipede
if %CHAR% == 48 set CHARB=1756
if %CHAR% == 48 set CHARDM=28
if %CHAR% == 49 set CHARD=Armoured Minotaur
if %CHAR% == 49 set CHARB=2150
if %CHAR% == 49 set CHARDM=34
if %CHAR% == 50 set CHARD=Feral Minotaur
if %CHAR% == 50 set CHARB=1745
if %CHAR% == 50 set CHARDM=33
if %CHAR% == 51 set CHARD=Bandit Boss
if %CHAR% == 51 set CHARB=2134
if %CHAR% == 51 set CHARDM=20
if %CHAR% == 52 set CHARD=Undead Bladesmen
if %CHAR% == 52 set CHARB=3124
if %CHAR% == 52 set CHARDM=19
goto:eof

rem Sets the players opponent to be a random # between 1-52 then calls
rem that # from the data sets above from set descriptors, bonuses, and max dmg output

:FIGHT2
set /a CHAR=%random%%%52+1
call :HARDCHARSET
call :CHARSET
set ENHP=150
set /a ENEMYHP=%ENHP%+(%DEF% * 4)+(%STR% * 4)+(%KILLS% * 150 / 100)+(%CHARB%)+(%LVL% * 4)
goto FIGHT

:FIGHT1
if %LVL% GTR 25 goto FIGHT2
set /a CHAR=%random%%%26+1
call :CHARSET
set ENHP=100
set /a ENEMYHP=%ENHP%+(%DEF% * 4)+(%STR% * 4)+(%KILLS% * 150 / 100)+(%CHARB%)+(%LVL% * 4)
goto FIGHT

rem ----------------------------------------------------------------------------------------------------------------------Fighting Area

:FIGHT
mode con COLS=57 LINES=39
call :ENUMSET
call :NUMSET
set /a ENEMYHP=%ENEMYHP%
set /a PNUM=%NUM%+%LVL%
if %SMKB% GEQ 2 set SMKB=2
if %HPOT% GEQ %HPOTM% set /a HPOT=%HPOTM%
if %SPOT% GEQ %SPOTM% set /a SPOT=%SPOTM%
if %SPOT% EQU 0 set MSG4=Out of Stamina Potions!
if %HPOT% EQU 0 set MSG3=Out of Health Potions!
if %SPOT% GTR 0 set MSG4=
if %HPOT% GTR 0 set MSG3=
if %HP% LEQ 40 set MSG5=Low Health!
if %HP% LSS 1 set MSG5=No Health left!
if %HP% GTR 40 set MSG5=
if %STM% LEQ 10 set MSG6=Low Stamina!
if %STM% LSS 1 set MSG6=No Stamina left!
if %STM% GTR 10 set MSG6=
if %EXP% GEQ %EXPM% call :LVLUP
if %HP% GTR %HPM% set HP=%HPM%
if %STM% GTR %STMM% set STM=%STMM%
if %STM% LSS 0 set STM=0
if %STM% LSS 1 set MSG=I'm too Tired to Hit hard!
if %STM% GTR 5 set MSG=
if %HP% LSS 1 call :DEAD
set CHARD=%CHARD%
set PNUM=%PNUM%
set EXPGD=%EXPGD%
cls
echo --------------------------------
echo You come across a %CHARD% HP:%ENEMYHP%:
echo Damage Base From Enemy:%CHARDM%:
echo Damage Guaranteed On Player:%ENUM%:
echo --------------------------------
echo Experience Gained:%EXPGD%
echo Damage Dealt to Enemy:
echo Basic Attack:%NUM%
echo Heavy Strike:%PNUM%
echo --------------------------------
echo Your Stats:
echo %name%
echo Level:%LVL%
echo Experience:%EXP%/%EXPM%
echo Health:%HP%/%HPM% %MSG5% -%ENUM%:Health
echo Stamina:%STM%/%STMM% %MSG6%
echo Health Potions:%HPOT%/%HPOTM% %MSG3%
echo Stamina Potions:%SPOT%/%SPOTM% %MSG4%
if %SMKB% GTR 0 echo Smoke Bombs:%SMKB%/2
if %SHPOT% GTR 0 echo S Health Potions:%SHPOT%
echo Weapon:%WEPD%
echo Strength:%STR%
echo Armour:%ARMD%
echo Defence:%DEF%
echo Kill Count:%KILLS%
if %CRYT% GTR 0 echo Crystal Teeth:%CRYT%
echo --------------------------------
echo Message:%MSG%:
echo --------------------------------
echo 1) Find Opponent
echo E) Attack  (D) Heavy Strike
echo F) Stamina Potion +50
if %CRYT% GTR 0 echo (C) Crystal Magic :Instant Killer:
echo 3) Drink Health Potion +55
if %SHPOT% GTR 0 echo W) Drink S Health Potion +125
echo 4) Flee -25C
if %SMKB% GTR 0 echo Z) Smoke Bomb Escape -0 C
echo 5) Debug Win
echo 6) Debug LVLUP
choice /c 1e345w6dcfz /n >nul
if %ERRORLEVEL%==1 (
   goto FIGHT1
   )
if %ERRORLEVEL%==2 (
   if %ENEMYHP% LSS 1 set ENEMYHP=0
   if %ENEMYHP% LSS 1 goto WIN
   set /a ENUM= %ENUM% - %DEF%
   set /a ENEMYHP= %ENEMYHP% - %NUM%
   set /a HP= %HP% - %ENUM%
   set /a EXP+=1+%KILLS%
   set /a EXPG=1+%KILLS%
   set /a EXPGD=%EXPG%
   goto FIGHT
)
if %ERRORLEVEL%==3 (
   if %HP% EQU %HPM% goto FIGHT
   if %HPOT% LSS 1 goto FIGHT
   if %HPOT% LSS 1 set HPOT=0
   set /a HPOT-=1
   set /a HP+=55
   goto FIGHT
   )
if %ERRORLEVEL%==4 (
   set /a COIN-=25
   goto HOME
)
if %ERRORLEVEL%==5 goto WIN
if %ERRORLEVEL%==6 (
   if %HP% EQU %HPM% goto FIGHT
   if %SHPOT% LSS 1 goto FIGHT
   if %SHPOT% LSS 1 set SHPOT=0
   set /a SHPOT-=1
   set /a HP+=125
   goto FIGHT
   )
if %ERRORLEVEL%==7 call :LVLUP
if %ERRORLEVEL%==8 (
   if %STM% LSS 1 goto FIGHT
   if %ENEMYHP% LSS 1 set ENEMYHP=0
   if %ENEMYHP% LSS 1 goto WIN
   set /a PNUM=%NUM%+%LVL%
   set /a PNUM+=2
   set /a ENUM= %ENUM% - %DEF%
   set /a ENEMYHP= %ENEMYHP% - %PNUM%
   set /a HP= %HP% - %ENUM%
   set /a STM-=5
   set /a EXP+=2+%KILLS%
   set /a EXPG=2+%KILLS%
   set /a EXPGD=%EXPG%
   goto FIGHT
)
if %ERRORLEVEL%==9 (
    set /a ENEMYHP=0
    set /a CRYT-=1
    if %ENEMYHP% LSS 1 set ENEMYHP=0
    if %ENEMYHP% LSS 1 goto WIN
    )
if %ERRORLEVEL%==10 (
    if %STM% EQU %STMM% goto FIGHT
    if %SPOT% LSS 1 goto FIGHT
    set /a SPOT-=1
    set /a STM+=50
    )
if %ERRORLEVEL%==11 (
    if %SMKB% LSS 1 goto FIGHT
    set /a SMKB-=1
    goto HOME
    )
goto FIGHT

:NUMSET
set /a NUM=%random%%%200+1
if %NUM% LSS %STR% set /a NUM=%STR%
if %NUM% GTR %STR% set /a NUM=%STR%
goto:eof

:ENUMSET
set /a TS=%DEF%+%LVL%
set /a ENUM=%random%%%200+1
set /a CHARDMB=%CHARDM%+(%LVL% * 50 / 100)
if %ENUM% GTR %CHARDM% set /a ENUM=%CHARDM% + (%LVL% * 50 / 100)
if %ENUM% LSS 1 set /a ENUM=0
if %ENUM% GTR %CHARDMB% set /a ENUM=%CHARDM%
goto:eof

:WIN
set /a LOOT=%random%%%34+1
call :LOOTSET
set /a COINB=%CHARB%+(%KILLS%)
set LOOTD=%LOOTD%
set /a TOTAL=%COIND%+%COINB%
cls
echo --------------------------------
echo         Defeated The %CHARD%
echo --------------------------------
echo       Looted:%LOOTD%:
echo.
echo       Kill:%COINB%C
echo.
echo       Total:%TOTAL%C
echo.
echo --------------------------------
pause >nul
set TOTAL=
set COINB=%CHARB%+(%KILLS%)
set /a KILLS+=1
set /a COIN+=%COINB%
set /a EXP+=10
set /a EXP+=%CHARDM%
goto FIGHT1

rem ------------------------------------------------ Loot sets

:LOOTSET
if %LOOT%== 1 set LOOTD=300 Coins
if %LOOT%== 1 set /a COIN+=300
if %LOOT%== 1 set /a COIND=300
if %LOOT%== 2 set LOOTD=Old Materials 75C
if %LOOT%== 2 set /a COIN+=75
if %LOOT%== 2 set /a COIND=75
if %LOOT%== 3 set LOOTD=Scrap Blade 50C
if %LOOT%== 3 set /a COIN+=50
if %LOOT%== 3 set /a COIND=50
if %LOOT%== 4 set LOOTD=Scrap Armour 65C
if %LOOT%== 4 set /a COIN+=65
if %LOOT%== 4 set /a COIND=65
if %LOOT%== 5 set LOOTD=200 Coins
if %LOOT%== 5 set /a COIN+=200
if %LOOT%== 5 set /a COIND=200
if %LOOT%== 6 set LOOTD=Old Wrapped Dagger 25C
if %LOOT%== 6 set /a COIN+=25
if %LOOT%== 6 set /a COIND=25
if %LOOT%== 7 set LOOTD=Stolen Stash! 1000C
if %LOOT%== 7 set /a COIN+=1000
if %LOOT%== 7 set /a COIND=1000
if %LOOT%== 8 set LOOTD=Old Attire 45C
if %LOOT%== 8 set /a COIN+=45
if %LOOT%== 8 set /a COIND=45
if %LOOT%== 9 set LOOTD=Bent Blade 25C
if %LOOT%== 9 set /a COIN+=25
if %LOOT%== 9 set /a COIND=25
if %LOOT%== 10 set LOOTD=Heirloom 85C
if %LOOT%== 10 set /a COIN+=85
if %LOOT%== 10 set /a COIND=85
if %LOOT%== 11 set LOOTD=2 Health Potions
if %LOOT%== 11 set /a HPOT+=2
if %LOOT%== 11 set COIND=
if %LOOT%== 12 set LOOTD=4 Health Potions
if %LOOT%== 12 set /a HPOT+=4
if %LOOT%== 12 set COIND=
if %LOOT%== 13 set LOOTD=6 Health Potions
if %LOOT%== 13 set /a HPOT+=6
if %LOOT%== 13 set COIND=
if %LOOT%== 14 set LOOTD=1 Health Potion
if %LOOT%== 14 set /a HPOT+=1
if %LOOT%== 14 set COIND=
if %LOOT%== 15 set LOOTD=Broken Jewel 100C
if %LOOT%== 15 set /a COIN+=100
if %LOOT%== 15 set /a COIND=100
if %LOOT%== 16 set LOOTD=Rare Gem 175C
if %LOOT%== 16 set /a COIN+=175
if %LOOT%== 16 set /a COIND=175
if %LOOT%== 17 set LOOTD=Shattered Blade 45C
if %LOOT%== 17 set /a COIN+=45
if %LOOT%== 17 set /a COIND=45
if %LOOT%== 18 set LOOTD=Fine Materials 145C
if %LOOT%== 18 set /a COIN+=145
if %LOOT%== 18 set /a COIND=145
if %LOOT%== 19 set LOOTD=Exotic Materials 350C
if %LOOT%== 19 set /a COIN+=350
if %LOOT%== 19 set /a COIND=350
if %LOOT%== 20 set LOOTD=Scrap Material 15C
if %LOOT%== 20 set /a COIN+=15
if %LOOT%== 20 set /a COIND=15
if %LOOT%== 21 set LOOTD=Stolen Safe! 500C
if %LOOT%== 21 set /a COIN+=500
if %LOOT%== 21 set /a COIND=500
if %LOOT%== 22 set LOOTD=Old Blade 65C
if %LOOT%== 22 set /a COIN+=65
if %LOOT%== 22 set /a COIND=65
if %LOOT%== 23 set LOOTD=Crystal Tooth!
if %LOOT%== 23 set /a CRYT+=1
if %LOOT%== 23 set COIND=
if %LOOT%== 24 set LOOTD=Dented Armour 150C
if %LOOT%== 24 set /a COIN+=150
if %LOOT%== 24 set /a COIND=150
if %LOOT%== 25 set LOOTD=2 Crystal Teeth!
if %LOOT%== 25 set /a CRYT+=2
if %LOOT%== 25 set COIND=
if %LOOT%== 26 set LOOTD=Satchel of Old Books 40C
if %LOOT%== 26 set /a COIN+=40
if %LOOT%== 26 set /a COIND=40
if %LOOT%== 27 set LOOTD=1 S Grade Potion!
if %LOOT%== 27 set /a SHPOT+=1
if %LOOT%== 27 set COIND=
if %LOOT%== 28 set LOOTD=Stolen Treasury! 2500C
if %LOOT%== 28 set /a COIN+=2500
if %LOOT%== 28 set /a COIND=2500
if %LOOT%== 29 set LOOTD=Ruined Book 15C
if %LOOT%== 29 set /a COIN+=15
if %LOOT%== 29 set /a COIND=15
if %LOOT%== 30 set LOOTD=Raw Gem 75C
if %LOOT%== 30 set /a COIN+=75
if %LOOT%== 30 set /a COIND=75
if %LOOT%== 31 set LOOTD=1 Stamina Potion!
if %LOOT%== 31 set /a SPOT+=1
if %LOOT%== 31 set COIND=
if %LOOT%== 32 set LOOTD=3 Stamina Potions!
if %LOOT%== 32 set /a SPOT+=3
if %LOOT%== 32 set COIND=
if %LOOT%== 33 set LOOTD=1 Smoke Bomb!
if %LOOT%== 33 set /a SMKB+=1
if %LOOT%== 33 set COIND=
if %LOOT%== 34 set LOOTD=2 Smoke Bombs!
if %LOOT%== 34 set /a SMKB+=2
if %LOOT%== 34 set COIND=
goto:eof



:DEAD
set /a HP+=100
set /a COIN-=100
set MSG= You Died and lost -100 Coins!
goto HOME

:ROYALSMITH
if %COIN% LSS 1 set COIN=0
cls
echo --------------------------------
echo          Royal Smith Shop
echo  Q (Armour)          (Weapons) E
echo --------------------------------
echo  Welcome to the Royal Smith Shop
echo        (W) Return (W)
echo    ------------------------
echo   (S) Buy Health Potion (S) 25 C
echo      Health Potions:%HPOT%/%HPOTM%
echo   (D) Buy Stamina Potion (D) 20 C
echo      Stamina Potions:%SPOT%/%SPOTM%
echo Coin:%COIN%:
echo ----------------------------------
echo Buy a Level:%BLVL%  (X)
echo -----------------------------------
echo Unlock more shops as you progress.
echo -----------------------------------
if %LVL% GEQ 65 echo (R) Royal Under Forge
echo -----------------------------------
choice /c qewsrxd /n >nul
if %ERRORLEVEL%==1 goto ROYALSMITH2
if %ERRORLEVEL%==2 goto ROYALSMITH3
if %ERRORLEVEL%==3 goto HOME
if %ERRORLEVEL%==4 (
   if %HPOT% GEQ %HPOTM% goto ROYALSMITH
   if %COIN% LSS 25 goto ROYALSMITH
   set /a HPOT+=1
   set /a COIN-=25
   )
if %ERRORLEVEL%==5 (
   if %LVL% LSS 65 goto ROYALSMITH
   goto ROYALUNDER
)
if %ERRORLEVEL%==6 (
    if %COIN% LSS %BLVL% goto ROYALSMITH
    set /a COIN-=%BLVL%
    set /a LVL+=1
    set /a BLVL=%BLVL% * 120 / 100
    goto ROYALSMITH
    )
if %ERRORLEVEL%==7 (
    if %COIN% LSS 20 goto ROYALSMITH
    if %SPOT% GEQ %SPOTM% goto ROYALSMITH
    set /a COIN-=20
    set /a SPOT+=1
    )

goto ROYALSMITH

:ROYALSMITH2
call :ARMSET
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo Q (Weapons)  Armour  (Royal Smith) E
echo ---------------------------------
echo Coin:%COIN%:  Armour:%ARMD%:
echo ---------------------------------
echo  1) Steel Armour 3425 C
echo.
echo  2) Plated Steel Armour 4235 C
echo.
echo  3) Royal Skysteel Armour 5450 C
echo.
echo  4) Primed Royal Skysteel Armour 7355 C
echo ---------------------------------
choice /c qe1234 /n >nul
if %ERRORLEVEL%==1 goto :ROYALSMITH3
if %ERRORLEVEL%==2 goto :ROYALSMITH
if %ERRORLEVEL%==3 (
   if %COIN% LSS 3425 goto ROYALSMITH2
   set /a COIN-=3425
   set /a HPM=945
   set ARM=5
   goto ROYALSMITH2
   )
if %ERRORLEVEL%==4 (
   if %COIN% LSS 4235 goto ROYALSMITH2
   set /a COIN-=4235
   set ARM=6
   set /a HPM=1145
   goto ROYALSMITH2
   )
if %ERRORLEVEL%==5 (
   if %COIN% LSS 5450 goto ROYALSMITH2
   set /a COIN-=5450
   set ARM=7
   set /a HPM=1425
   goto ROYALSMITH2
   )
if %ERRORLEVEL%==6 (
   if %COIN% LSS 7355 goto ROYALSMITH2
   set /a COIN-=7355
   set ARM=8
   set /a HPM=1765
   goto ROYALSMITH2
   )
goto ROYALSMITH2

:ROYALSMITH3
call :WEPSET
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo Q (Royal Smith)  Weapons  (Armour) E
echo ---------------------------------
echo Coin:%COIN%: Weapon:%WEPD%:
echo ---------------------------------
echo  1) Scorched Blade 1495 C
echo.
echo  2) Royal Blade 1755 C
echo.
echo  3) Sharpened Royal Blade 2145 C
echo.
echo  4) Hardened Royal Blade 2545 C
echo.
echo  5) Scorched Royal Blade 2950 C
echo -----------------------------------
choice /c qe12345 /n >nul
if %ERRORLEVEL%==1 goto ROYALSMITH
if %ERRORLEVEL%==2 goto ROYALSMITH2
if %ERRORLEVEL%==3 (
  if %COIN% LSS 1495 goto ROYALSMITH3
  set /a COIN-=1495
  set WEP=5
  goto ROYALSMITH3
)
if %ERRORLEVEL%==4 (
  if %COIN% LSS 1755 goto ROYALSMITH3
  set /a COIN-=1755
  set WEP=6
  goto ROYALSMITH3
)
if %ERRORLEVEL%==5 (
  if %COIN% LSS 2145 goto ROYALSMITH3
  set /a COIN-=2145
  set WEP=7
  goto ROYALSMITH3
)
if %ERRORLEVEL%==6 (
  if %COIN% LSS 2545 goto ROYALSMITH3
  set /a COIN-=2545
  set WEP=8
  goto ROYALSMITH3
)
if %ERRORLEVEL%==7 (
  if %COIN% LSS 2950 goto ROYALSMITH3
  set /a COIN-=2950
  set WEP=9
  goto ROYALSMITH3
)

goto ROYALSMITH3

:ROYALUNDER
if %HPOT% GEQ %HPOTM% set /a HPOT=%HPOTM%
if %SPOT% GEQ %SPOTM% set /a SPOT=%SPOTM%
if %COIN% LSS 1 set COIN=0
cls
echo --------------------------------
echo         Royal Under Forge
echo  Q (Armour)          (Weapons) E
echo --------------------------------
echo          Aye welcome
echo   to the Royal Under Forge
echo  I'm Orva just buy somethin.
echo        (W) Return (W)
echo    ------------------------
echo (S) Buy 2 Health Potion (S) 15 C
echo      Health Potions:%HPOT%/%HPOTM%:
echo (F) Buy 1 S Grade HP Potion (F) 75 C
echo      S Health Potions:%SHPOT%/%SHPOTM%:
echo (C) Buy 2 Stamina Potions (C) 10 C
echo        Stamina Potions:%SPOT%/%SPOTM%:
echo Coin:%COIN%:
echo -----------------------------------
echo Unlock more shops as you progress.
choice /c qewsfc /n >nul
if %ERRORLEVEL%==1 goto ROYALUNDER2
if %ERRORLEVEL%==2 goto ROYALUNDER3
if %ERRORLEVEL%==3 goto HOME
if %ERRORLEVEL%==4 (
   if %HPOT% GEQ %HPOTM% goto ROYALUNDER
   if %COIN% LSS 15 goto ROYALUNDER
   set /a HPOT+=2
   set /a COIN-=15
   goto ROYALUNDER
   )
   if %ERRORLEVEL%==5 (
   if %SHPOT% GEQ %SHPOTM% goto ROYALUNDER
   if %COIN% LSS 75 goto ROYALUNDER
   set /a SHPOT+=1
   set /a COIN-=75
   goto ROYALUNDER
   )
   if %ERRORLEVEL%==6 (
   if %SPOT% GEQ %SPOTM% goto ROYALUNDER
   if %COIN% LSS 10 goto ROYALUNDER
   set /a SPOT+=2
   set /a COIN-=10
   )
goto ROYALUNDER

:ROYALUNDER2
call :ARMSET
set MSG=
set MSG2=
if %LVL% GEQ 60 set MSG=Heh check out these special sets of armour, you're pretty tough heh
if %LVL% GEQ 60 set MSG2=(R) Orva's Basic Sets
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo Q (Weapons)  Armour  (Royal Under) E
echo ---------------------------------
echo Coin:%COIN%:  Armour:%ARMD%:
echo ---------------------------------
echo  1) Hellsteel Armour 8235 C
echo.
echo  2) Plated Hellsteel Armour 8856 C
echo.
echo  3) Royal Hellsteel Armour 9255 C
echo.
echo  4) Doomsteel Armour 9875 C
echo ---------------------------------
echo :%MSG%:
echo :%MSG2%:
echo ---------------------------------
choice /c qe1234r /n >nul
if %ERRORLEVEL%==1 goto :ROYALUNDER3
if %ERRORLEVEL%==2 goto :ROYALUNDER
if %ERRORLEVEL%==3 (
   if %COIN% LSS 8235 goto ROYALUNDER2
   set /a COIN-=8235
   set /a HPM=1985
   set ARM=9
   goto ROYALUNDER2
   )
if %ERRORLEVEL%==4 (
   if %COIN% LSS 8856 goto ROYALUNDER2
   set /a COIN-=8856
   set ARM=10
   set /a HPM=2195
   goto ROYALUNDER2
   )
if %ERRORLEVEL%==5 (
   if %COIN% LSS 9255 goto ROYALUNDER2
   set /a COIN-=9255
   set ARM=11
   set /a HPM=2655
   goto ROYALUNDER2
   )
if %ERRORLEVEL%==6 (
   if %COIN% LSS 9875 goto ROYALUNDER2
   set /a COIN-=9875
   set ARM=12
   set /a HPM=3125
   goto ROYALUNDER2
   )
if %ERRORLEVEL%==7 (
   if %LVL% LSS 60 goto ROYALUNDER2
   goto ORVASPECIAL
)
goto ROYALUNDER2

:ROYALUNDER3
call :WEPSET
if %COIN% LSS 1 set COIN=0
set MSG=
set MSG2=
if %LVL% GEQ 65 set MSG=Aye you're tough take this it'll help heh
if %LVL% GEQ 75 set MSG2=7) Orva's Weapon Sets
cls
echo ---------------------------------
echo Q (Royal Under)  Weapons  (Armour) E
echo ---------------------------------
echo Coin:%COIN%: Weapon:%WEPD%:
echo ---------------------------------
echo  1) Malachite Blade 3255 C
echo.
echo  2) Refined Malachite Blade 3725 C
echo.
echo  3) Gem Edged Malachite Blade 4350 C
echo.
echo  4) Obsidion Blade 4965 C
echo.
echo  5) Reinforced Obsidion Blade 5254 C
echo.
echo Message:%MSG%:
echo ----------------------------------
if %LVL% GEQ 65 echo :6) Orva's Forged Blade  6275 C
echo :%MSG2%
echo -----------------------------------
choice /c qe1234567 /n >nul
if %ERRORLEVEL%==1 goto ROYALUNDER
if %ERRORLEVEL%==2 goto ROYALUNDER2
if %ERRORLEVEL%==3 (
  if %COIN% LSS 3255 goto ROYALUNDER3
  set /a COIN-=3255
  set WEP=10
  goto ROYALUNDER3
)
if %ERRORLEVEL%==4 (
  if %COIN% LSS 3725 goto ROYALUNDER3
  set /a COIN-=3725
  set WEP=11
  goto ROYALUNDER3
)
if %ERRORLEVEL%==5 (
  if %COIN% LSS 4350 goto ROYALUNDER3
  set /a COIN-=4350
  set WEP=12
  goto ROYALUNDER3
)
if %ERRORLEVEL%==6 (
  if %COIN% LSS 4965 goto ROYALUNDER3
  set /a COIN-=4965
  set WEP=13
  goto ROYALUNDER3
)
if %ERRORLEVEL%==7 (
  if %COIN% LSS 5254 goto ROYALUNDER3
  set /a COIN-=5254
  set WEP=14
  goto ROYALUNDER3
)
if %ERRORLEVEL%==8 (
  if %LVL% LSS 65 goto ROYALUNDER3
  if %COIN% LSS 6275 goto ROYALUNDER3
  set /a COIN-=6275
  set WEP=15
  goto ROYALUNDER3
)
if %ERRORLEVEL%==9 (
  if %LVL% LSS 75 goto ROYALUNDER3
  goto ORVASPECIAL2
  )
goto ROYALUNDER3

:ORVASPECIAL
call :ARMSET
set MSG=
set MSG2=
if %COIN% LSS 1 set COIN=0
if %LVL% GEQ 90 set MSG=Heh You're getting stronger, check out these very special armour sets hehe.
if %LVL% GEQ 90 set MSG2=5) Orva's Special Armour Sets
cls
echo ---------------------------------
echo         Orva's Basic Sets
echo ---------------------------------
echo (Q)(W) Return to Underforge (W)(E)
echo ---------------------------------
echo Coin:%COIN%:  Armour:%ARMD%:
echo ---------------------------------
echo  1) Plated Doomsteel Armour 10125 C
echo.
echo  2) Royal Doomsteel Armour 11245 C
echo.
echo  3) Orva's Blacksteel Armour 12850 C
echo.
echo  4) Orva's Purecrest Armour 13450 C
echo ---------------------------------
echo :%MSG2%:
echo :%MSG%:
echo ---------------------------------
choice /c qe1234w5 /n >nul
if %ERRORLEVEL%==1 goto :ROYALUNDER2
if %ERRORLEVEL%==2 goto :ROYALUNDER2
if %ERRORLEVEL%==3 (
   if %COIN% LSS 10125 goto ORVASPECIAL
   set /a COIN-=10125
   set /a HPM=3455
   set ARM=13
   goto ORVASPECIAL
   )
if %ERRORLEVEL%==4 (
   if %COIN% LSS 11245 goto ORVASPECIAL
   set /a COIN-=11245
   set ARM=14
   set /a HPM=3785
   goto ORVASPECIAL
   )
if %ERRORLEVEL%==5 (
   if %COIN% LSS 12850 goto ORVASPECIAL
   set /a COIN-=12850
   set ARM=15
   set /a HPM=4125
   goto ORVASPECIAL
   )
if %ERRORLEVEL%==6 (
   if %COIN% LSS 13450 goto ORVASPECIAL
   set /a COIN-=13450
   set ARM=16
   set /a HPM=4535
   goto ORVASPECIAL
   )
if %ERRORLEVEL%==7 goto ROYALUNDER2
if %ERRORLEVEL%==8 (
   if %LVL% LSS 90 goto ORVASPECIAL
   goto ORVASPECIAL3
)

goto ORVASPECIAL

:ORVASPECIAL2
call :WEPSET
if %COIN% LSS 1 set COIN=0
set MSG=
cls
echo ---------------------------------
echo        Orva's Weapon Sets
echo ---------------------------------
echo   (Q)(W) Return to UnderForge (W)(E)
echo ---------------------------------
echo Coin:%COIN%: Weapon:%WEPD%:
echo ---------------------------------
echo  1) War Mongers Blade 7025 C
echo.
echo  2) Minamoto Blade 7855 C
echo.
echo  3) Yoshitsune Blade 8445 C
echo.
echo  4) Kamiizumi Blade 9240 C
echo.
echo  5) Nobutsuna Blade 10420 C
echo.
echo Message:%MSG%:
echo ----------------------------------
echo ----------------------------------
choice /c qe123456w /n >nul
if %ERRORLEVEL%==1 goto ROYALUNDER3
if %ERRORLEVEL%==2 goto ROYALUNDER3
if %ERRORLEVEL%==3 (
  if %COIN% LSS 7025 goto ORVASPECIAL2
  set /a COIN-=7025
  set WEP=16
  goto ORVASPECIAL2
)
if %ERRORLEVEL%==4 (
  if %COIN% LSS 7855 goto ORVASPECIAL2
  set /a COIN-=7855
  set WEP=17
  goto ORVASPECIAL2
)
if %ERRORLEVEL%==5 (
  if %COIN% LSS 8445 goto ORVASPECIAL2
  set /a COIN-=8445
  set WEP=18
  goto ORVASPECIAL2
)
if %ERRORLEVEL%==6 (
  if %COIN% LSS 9240 goto ORVASPECIAL2
  set /a COIN-=9240
  set WEP=19
  goto ORVASPECIAL2
)
if %ERRORLEVEL%==7 (
  if %COIN% LSS 10420 goto ORVASPECIAL2
  set /a COIN-=10420
  set WEP=20
  goto ORVASPECIAL2
)
if %ERRORLEVEL%==8 goto ROYALUNDER3
goto ROYALUNDER3

:ORVASPECIAL3
call :ARMSET
set MSG=
set MSG2=
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo         Orva's Armour Sets
echo ---------------------------------
echo (Q)(W) Return to Underforge (W)(E)
echo ---------------------------------
echo Coin:%COIN%:  Armour:%ARMD%:
echo ---------------------------------
echo  1) War Mongers Armour 15450 C
echo.
echo  2) Minamoto's Armour 16535 C
echo.
echo  3) Yoshitsune's Armour 17650 C
echo.
echo  4) Kamiizumi's Armour 18745 C
echo.
echo  5) Nobutsuna's Armour 19656 C
echo ---------------------------------
choice /c qe12345w /n >nul
if %ERRORLEVEL%==1 goto :ORVASPECIAL
if %ERRORLEVEL%==2 goto :ORVASPECIAL
if %ERRORLEVEL%==3 (
   if %COIN% LSS 15450 goto ORVASPECIAL3
   set /a COIN-=15450
   set /a HPM=5265
   set ARM=17
   goto ORVASPECIAL3
   )
if %ERRORLEVEL%==4 (
   if %COIN% LSS 16535 goto ORVASPECIAL3
   set /a COIN-=16535
   set ARM=18
   set /a HPM=6254
   goto ORVASPECIAL3
   )
if %ERRORLEVEL%==5 (
   if %COIN% LSS 17650 goto ORVASPECIAL3
   set /a COIN-=17650
   set ARM=19
   set /a HPM=6670
   goto ORVASPECIAL3
   )
if %ERRORLEVEL%==6 (
   if %COIN% LSS 18745 goto ORVASPECIAL3
   set /a COIN-=18745
   set ARM=20
   set /a HPM=7235
   goto ORVASPECIAL3
   )
if %ERRORLEVEL%==7 (
   if %COIN% LSS 19656 goto ORVASPECIAL3
   set /a COIN-=19656
   set ARM=21
   set /a HPM=7985
   goto ORVASPECIAL3
   )
if %ERRORLEVEL%==8 goto ORVASPECIAL


goto ORVASPECIAL

:STORE
if %COIN% LSS 1 set COIN=0
if %SMKB% GEQ 2 set SMKB=2
if %HPOT% GEQ %HPOTM% set /a HPOT=%HPOTM%
if %SPOT% GEQ %SPOTM% set /a SPOT=%SPOTM%
cls
echo --------------------------------
echo  Q (Armour) Smith Shop (Weapons) E
echo --------------------------------
echo   Welcome to the Smith shop
echo        (W) Return (W)
echo    ------------------------
echo   (S) Buy Health Potion (S) 50 C
echo      Health Potions:%HPOT%/%HPOTM%
echo   (F) Buy Stamina Potion (F) 45 C
echo      Stamina Potions:%SPOT%/%SPOTM%
if %SMKB% LSS 2 echo   (Z) Buy Smoke Bomb (Z) 5 C
echo      Smoke Bombs:%SMKB%/2
echo Coin:%COIN%:
echo -----------------------------------
echo Unlock more shops as you progress.
choice /c qewsfz /n >nul
if %ERRORLEVEL%==1 goto STORE2
if %ERRORLEVEL%==2 goto STORE3
if %ERRORLEVEL%==3 goto HOME
if %ERRORLEVEL%==4 (
   if %HPOT% GEQ %HPOTM% goto STORE
   if %COIN% LSS 50 goto STORE
   set /a HPOT+=1
   set /a COIN-=50
   goto STORE
   )
if %ERRORLEVEL%==5 (
    if %SPOT% GEQ %SPOTM% goto STORE
    if %COIN% LSS 45 goto STORE
    set /a SPOT+=1
    set /a COIN-=45
    )
if %ERRORLEVEL%==6 (
    if %SMKB% GEQ 2 goto STORE
    if %COIN% LSS 5 goto STORE
    set /a SMKB+=1
    set /a COIN-=5
    )
goto STORE

:STORE2
call :ARMSET
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo Q (Weapons)  Armour  (SmithShop) E
echo ---------------------------------
echo Coin:%COIN%:  Armour:%ARMD%:
echo ---------------------------------
echo  1) Battered Leather Armour 125 C
echo.
echo  2) Padded Leather Armour 350 C
echo.
echo  3) Iron Armour 1230 C
echo.
echo  4) Braced Iron Armour 2134 C
echo ---------------------------------
choice /c qe1234 /n >nul
if %ERRORLEVEL%==1 goto :STORE3
if %ERRORLEVEL%==2 goto :STORE
if %ERRORLEVEL%==3 (
   if %COIN% LSS 125 goto STORE2
   set /a COIN-=125
   set /a HPM=125
   set ARM=1
   goto STORE2
   )
if %ERRORLEVEL%==4 (
   if %COIN% LSS 350 goto STORE2
   set /a COIN-=350
   set ARM=2
   set /a HPM=350
   goto STORE2
   )
if %ERRORLEVEL%==5 (
   if %COIN% LSS 1230 goto STORE2
   set /a COIN-=1230
   set ARM=3
   set /a HPM=560
   goto STORE2
   )
if %ERRORLEVEL%==6 (
   if %COIN% LSS 2134 goto STORE2
   set /a COIN-=2134
   set ARM=4
   set /a HPM=745
   goto STORE2
   )
goto STORE2

:STORE3
call :WEPSET
if %COIN% LSS 1 set COIN=0
cls
echo ---------------------------------
echo Q (SmithShop)  Weapons  (Armour) E
echo ---------------------------------
echo Coin:%COIN%: Weapon:%WEPD%:
echo ---------------------------------
echo  1) Dull Blade 50 C
echo.
echo  2) Average Blade 200 C
echo.
echo  3) Sharpened Blade 800 C
echo.
echo  4) Hardened Blade 1250 C
choice /c qe1234 /n >nul
if %ERRORLEVEL%==1 goto STORE
if %ERRORLEVEL%==2 goto STORE2
if %ERRORLEVEL%==3 (
  if %COIN% LSS 50 goto STORE3
  set /a COIN-=50
  set WEP=1
  goto STORE3
)
if %ERRORLEVEL%==4 (
  if %COIN% LSS 200 goto STORE3
  set /a COIN-=200
  set WEP=2
  goto STORE3
)
if %ERRORLEVEL%==5 (
  if %COIN% LSS 800 goto STORE3
  set /a COIN-=800
  set WEP=3
  goto STORE3
)
if %ERRORLEVEL%==6 (
  if %COIN% LSS 1250 goto STORE3
  set /a COIN-=1250
  set WEP=4
  goto STORE3
)
goto STORE3

:WEPSET
if %WEP%== 1 set WEPD=Dull Blade
if %WEP%== 1 set STR=5
if %WEP%== 2 set WEPD=Average Blade
if %WEP%== 2 set STR=7
if %WEP%== 3 set WEPD=Sharpened Blade
if %WEP%== 3 set STR=10
if %WEP%== 4 set WEPD=Hardened Blade
if %WEP%== 4 set STR=14
if %WEP%== 5 set WEPD=Scorched Blade
if %WEP%== 5 set STR=18
if %WEP%== 6 set WEPD=Royal Blade
if %WEP%== 6 set STR=22
if %WEP%== 7 set WEPD=Sharpened Royal Blade
if %WEP%== 7 set STR=25
if %WEP%== 8 set WEPD=Hardened Royal Blade
if %WEP%== 8 set STR=27
if %WEP%== 9 set WEPD=Scorched Royal Blade
if %WEP%== 9 set STR=32
if %WEP%== 10 set WEPD=Malachite Blade
if %WEP%== 10 set STR=37
if %WEP%== 11 set WEPD=Refined Malachite Blade
if %WEP%== 11 set STR=42
if %WEP%== 12 set WEPD=Gem Edged Malachite Blade
if %WEP%== 12 set STR=47
if %WEP%== 13 set WEPD=Obsidion Blade
if %WEP%== 13 set STR=53
if %WEP%== 14 set WEPD=Reinforced Obsidion Blade
if %WEP%== 14 set STR=58
if %WEP%== 15 set WEPD=Orva's Forged Blade
if %WEP%== 15 set STR=70
if %WEP%== 16 set WEPD=War Mongers Blade
if %WEP%== 16 set STR=77
if %WEP%== 17 set WEPD=Minamoto Blade
if %WEP%== 17 set STR=85
if %WEP%== 18 set WEPD=Yoshitsune Blade
if %WEP%== 18 set STR=90
if %WEP%== 19 set WEPD=Kamiizumi Blade
if %WEP%== 19 set STR=98
if %WEP%== 20 set WEPD=Nobutsuna Blade
if %WEP%== 20 set STR=106
goto:eof

:ARMSET
if %ARM%== 1 set ARMD=Battered Leather Armour
if %ARM%== 1 set DEF=2
if %ARM%== 2 set ARMD=Padded Leather Armour
if %ARM%== 2 set DEF=5
if %ARM%== 3 set ARMD=Iron Armour
if %ARM%== 3 set DEF=7
if %ARM%== 4 set ARMD=Braced Iron Armour
if %ARM%== 4 set DEF=11
if %ARM%== 5 set ARMD=Steel Armour
if %ARM%== 5 set DEF=15
if %ARM%== 6 set ARMD=Plated Steel Armour
if %ARM%== 6 set DEF=19
if %ARM%== 7 set ARMD=Royal Skysteel Armour
if %ARM%== 7 set DEF=25
if %ARM%== 8 set ARMD=Primed Royal Skysteel Armour
if %ARM%== 8 set DEF=34
if %ARM%== 9 set ARMD=Hellsteel Armour
if %ARM%== 9 set DEF=37
if %ARM%== 10 set ARMD=Plated Hellsteel Armour
if %ARM%== 10 set DEF=40
if %ARM%== 11 set ARMD=Royal Hellsteel Armour
if %ARM%== 11 set DEF=48
if %ARM%== 12 set ARMD=Doomsteel Armour
if %ARM%== 12 set DEF=54
if %ARM%== 13 set ARMD=Plated Doomsteel Armour
if %ARM%== 13 set DEF=60
if %ARM%== 14 set ARMD=Royal Doomsteel Armour
if %ARM%== 14 set DEF=69
if %ARM%== 15 set ARMD=Orva's Blacksteel Armour
if %ARM%== 15 set DEF=78
if %ARM%== 16 set ARMD=Orva's Purecrest Armour
if %ARM%== 16 set DEF=85
if %ARM%== 17 set ARMD=War Mongers Armour
if %ARM%== 17 set DEF=87
if %ARM%== 18 set ARMD=Minamoto Armour
if %ARM%== 18 set DEF=91
if %ARM%== 19 set ARMD=Yoshitsune Armour
if %ARM%== 19 set DEF=96
if %ARM%== 20 set ARMD=Kamiizumi Armour
if %ARM%== 20 set DEF=102
if %ARM%== 21 set ARMD=Nobutsuna Armour
if %ARM%== 21 set DEF=111
goto:eof


:VARS
set LVL=0
set BLVL=1250
set EXP=0
set EXPM=200
set DEF=1
set STR=2
set STM=100
set STMM=100
set COIN=500
set ARM=0
set ARMD=None
set WEP=0
set WEPD=None
set HP=100
set STA=50
set HPM=100
set HPD=2
set HPOT=2
set HPOTM=25
set SHPOT=0
set SHPOTM=25
set SPOT=1
set SPOTM=25
set SMKB=2
set KILLS=0
set CRYT=0

set /p name= What will be your name:
goto OPENER

:LOAD
if exist save.bat (
call save.bat
set MSG=Progress Loaded!
) else (set MSG=No Game Data Found.)
goto:eof

:SAVE
(
echo set STM=%STM%
echo set STMM=%STMM%
echo set LVL=%LVL%
echo set BLVL=%BLVL%
echo set EXP=%EXP%
echo set EXPM=%EXPM%
echo set name=%name%
echo set ARM=%ARM%
echo set ARMD=%ARMD%
echo set WEP=%WEP%
echo set WEPD=%WEPD%
echo set HP=%HP%
echo set HPM=%HPM%
echo set HPD=%HPD%
echo set STA=%STA%
echo set COIN=%COIN%
echo set STR=%STR%
echo set DEF=%DEF%
echo set HPOT=%HPOT%
echo set HPOTM=%HPOTM%
echo set SHPOT=%SHPOT%
echo set SHPOTM=%SHPOTM%
echo set SPOT=%SPOT%
echo set SPOTM=%SPOTM%
echo set SMKB=%SMKB%
echo set KILLS=%KILLS%
echo set CRYT=%CRYT%
) > save.bat
set MSG=Progress Saved.
goto:eof

:OPENER
mode con COLS=74 LINES=11
cls
echo ---------------------------------------------------------------
echo     %name% awakes in a strange land, startled by the crows;
echo   who were just about to eat %name% for sleeping. %name% stands
echo    up, brushes the earth off that covered their shoulders
echo    and went to the village not far away from the hill %name% awoke
echo    upon.
echo ----------------------------------------------------------------
echo  Press Any Key to Continue
pause >nul
goto HOME