@echo off
setlocal enabledelayedexpansion
title Soulstealer

:start
cls
echo Soulstealer
echo.
echo 1 Login
echo 2 Create Save File
echo.
echo.
set login=4
set /p login=
if %login% EQU 1 goto login
if %login% EQU 2 goto createuser
if %login% GEQ 3 goto menu
goto menu

:createuser
cls
echo Create your Username with no spaces:
set /p username=
goto variables

:login
cls
echo What is your Username?
set /p username=
if exist %username%.bat call %username%.bat & goto save

:variables
set load=2
set hp=4
set maxhp=4
set attack=5
set armor=0
set armorset=N/A

set location=Cave
set description=ok
set ndirection=false
set sdirection=false
set edirection=false
set wdirection=false
set direction=yeast

set wanted=2
set npcdeadalert=You see the corpse of %thenpc%.
set merchant=2
set npc=false
set npctalk=2
set dialogue=n
set essentialnpc=2
set thenpc=k
set attackedalert=%thenpc% faces you.
set npcdead=1
set npcalert=k
set npchealth=0
set npcattack=0
set npcarmor=0
set attacked=2
set npcexamine=k

set level=1
set totalsouls=0
set minedsouls=0
set soulgain=0

set object=8
goto save

:save
(
echo set load=%load%
echo set hp=%hp%
echo set maxhp=%maxhp%
echo set attack=%attack%
echo set armor=%armor%
echo set armorset=%armorset%

echo set location=%location%
echo set description=%description%
echo set ndirection=%ndirection%
echo set sdirection=%sdirection%
echo set edirection=%edirection%
echo set wdirection=%wdirection%
echo set direction=%direction%

echo set wanted=%wanted%
echo set npcdeadalert=You see the corpse of %thenpc%.
echo set merchant=%merchant%
echo set npc=%npc%
echo set npctalk=%npctalk%
echo set dialogue=%dialogue%
echo set essentialnpc=%essentialnpc%
echo set attackedalert=%thenpc% faces you.
echo set thenpc=%thenpc%
echo set npcdead=%npcdead%
echo set npcalert=%npcalert%
echo set npchealth=%npchealth%
echo set npcattack=%npcattack%
echo set npcarmor=%npcarmor%
echo set attacked=%attacked%
echo set npcexamine=%npcexamine%

echo set level=%level%
echo set totalsouls=%totalsouls%
echo set minedsouls=%minedsouls%
echo set soulgain=%soulgain%

echo set object=%object%
)>%username%.bat
:savevariables
if %load% EQU 2 goto locationgen
if %load% EQU 1 goto menu

:locationgen
set load=1
if %location% EQU Cave goto cavegen
if %location% EQU Mudroad goto muddyroadgen
if %location% EQU Cemetary goto cemetarygen

if %location% EQU Blackgrass goto fieldgen
if %location% EQU Valley goto valleygen
if %location% EQU Rockpath goto rockpathgen
if %location% EQU Cliff goto cliffgen

if %location% EQU Inn goto inngen

if %location% EQU Dustpath goto dustpathgen
if %location% EQU Deadwoods goto deadwoodsgen
if %location% EQU Thornthicket goto thornthicketgen
if %location% EQU Beholderden goto beholderdengen

if %location% EQU Goodpath goto goodpathgen
if %location% EQU Strangetrail goto strangetrailgen
if %location% EQU Crucifixiongrove goto crucifixiongrovegen
if %location% EQU Tunnelmaw goto tunnelmawgen
if %location% EQU Soulvein goto soulveingen
if %location% EQU Tunnel goto tunnelgen

:cavegen
set description=You are in a dark, wet, cold cave. Small, unseen creatures crawl across the rock walls.  The stench of decaying flesh contaminates the air.
set ndirection=2
set sdirection=2
set edirection=2
set wdirection=1
set npc=1
set npctalk=1
set dialogue=Cave Freak: "Bring me 10,000 Souls, and I shall help ye ascend."
set essentialnpc=2
set attacked=2
set thenpc=Cave Freak
set npcdead=2
set npcalert=The Cave Freak stares at you with large, fishlike eyes.
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=1
set npcattack=1
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=10
goto save

:muddyroadgen
set description=Your boots squelch in the mud, the smell of a fresh rain is in the air, and the sky is as grey as the mountains looming above you to the east and south. There is a path north, south, and east.
set ndirection=1
set sdirection=1
set edirection=1
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Starved Large Maggot
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=3
set npcattack=2
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=17
goto save

:cemetarygen
set description=Cracked gravestones poke out of the ground like teeth in the mouth of a giant. There is a path west and south.
set ndirection=2
set sdirection=1
set edirection=2
set wdirection=1
set npc=1
set npctalk=1
set dialogue=Gallant Knight: "It is peaceful, here, in a morbid way."
set essentialnpc=1
set attacked=2
set thenpc=Gallant Knight
set npcdead=2
set npcalert=A Gallant Knight sits on a long, flat tombstone, with his hands in his lap, and his head facing the ground.
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=1000
set npcattack=1000
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=100
goto save

:fieldgen
set description=The grass crunching beneath your boots is black as night, and the scent wafting from the ground is like blood and hay. There is a path south and east.
set ndirection=2
set sdirection=1
set edirection=1
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Hellhound
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=63
goto save

:rockpathgen
set description=The ground is uneven, full of trips and holes and snags, while green-backed skinks scuttle over the rocks. The mountains loom above. There are paths to the north and west.
set ndirection=1
set sdirection=2
set edirection=2
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=63
goto save

:cliffgen
set description=There is a sheer drop off to the south, and a howling wind. There are paths to the east and north.
set ndirection=1
set sdirection=2
set edirection=1
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Giant Deathwasp
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=160
set npcattack=129
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=276
goto save

:valleygen
set description=The sinister, colossal walls of the valley dwarf you. There is a path north, south, and west.
set ndirection=1
set sdirection=1
set edirection=2
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:inngen
set description=The inn is old and musty, and a couple of drunks doze in the corner.
set ndirection=1
set sdirection=2
set edirection=1
set wdirection=1
set npc=1
set npctalk=1
set dialogue=Bartender Boris: "I hate it here. I hate everything. I wish I was never born."
set essentialnpc=1
set attacked=2
set thenpc=Bartender Boris
set npcdead=2
set npcalert=The sickly-looking bartender mopes around.
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=10
set npcattack=5
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=20
goto save

:dustpathgen
set description=You kick up dust with every step. There is a path west and south.
set ndirection=2
set sdirection=1
set edirection=2
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:deadwoodsgen
set description=All the trees are black and dead, and they still have the smell of woodfire on them. Bones of animals litter the ground. There are paths east and north.
set ndirection=1
set sdirection=2
set edirection=1
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Stone Golem
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=256
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=100
goto save

:thornthicketgen
set description=Twisting, snakelike brambles cover the grey earth. They break and rustle and snap as you move through them, ripping into your clothes and skin. There is a path south and west.
set ndirection=2
set sdirection=1
set edirection=2
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:beholderdengen
set description=Nothing more than a cave with bits of bone and hair in front of it, you come across the foul-smelling aperture of the den of a many-eyed Beholder. There are paths east and south.
set ndirection=2
set sdirection=1
set edirection=1
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Beholder
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=136
set npcattack=33
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=149
goto save

:goodpathgen
set description=A lone, white flower sits defiantly on the side of the path. There is a way east and west.
set ndirection=2
set sdirection=2
set edirection=1
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:strangetrailgen
set description=There are bizarre markings on the ground. There is a path north and south.
set ndirection=1
set sdirection=1
set edirection=2
set wdirection=2
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:crucifixiongrovegen
set description=A light rain from the tombstone grey sky falls down on the crosses and the writhing, groaning cretins that are nailed to them. Vultures sqwuak, barely turning a beady eye your way as they feast. There is a path north and south.
set ndirection=1
set sdirection=1
set edirection=2
set wdirection=2
set npc=1
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=1
set thenpc=Gorged Large Maggot
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=98
set npcattack=18
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=80
goto save

:tunnelmawgen
set description=There is a gaping hole in the ground. You can see that it leads west. There is also a path north.
set ndirection=1
set sdirection=2
set edirection=2
set wdirection=1
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:tunnelgen
set description=It is too dark to see. The walls of the tunnel are dirt, but covered in a rank liquid substance. The tunnel is north and south.
set ndirection=1
set sdirection=1
set edirection=2
set wdirection=2
set npc=2
set npctalk=2
set dialogue=C
set essentialnpc=2
set attacked=2
set thenpc=k
set npcdead=2
set npcalert=k
set attackedalert=%thenpc% faces you.
set npcdeadalert=You see the corpse of %thenpc%.
set npchealth=55
set npcattack=13
set npcexamine=Health: %npchealth%; Attack: %npcattack%
set soulgain=60
goto save

:menu
cls
if %wanted% EQU 1 if %location% EQU Cemetary set attacked=1
if %attacked% EQU 1 set /a hp=%hp%-%npcattack%
if %npcdead% EQU 1 if %essentialnpc% EQU 1 set wanted=1
if %totalsouls% GEQ 0 set maxhp=4 & set attack=3 & set level=1
if %totalsouls% GTR 60 set maxhp=8 & set attack=6 & set level=2
if %totalsouls% GTR 200 set maxhp=15 & set attack=9 & set level=3
if %totalsouls% GTR 400 set maxhp=24 & set attack=17 & set level=4
if %totalsouls% GTR 700 set maxhp=40 & set attack=29 & set level=5
if %totalsouls% GTR 1000 set maxhp=50 & set attack=35 & set level=6
if %totalsouls% GTR 1450 set maxhp=70 & set attack=42 & set level=7
if %totalsouls% GTR 1800 set maxhp=87 & set attack=45 & set level=8
if %totalsouls% GTR 2000 set maxhp=100 & set attack=50 & set level=9
if %totalsouls% GTR 3000 set maxhp=110 & set attack=60 & set level=10
if %totalsouls% GTR 4000 set maxhp=120 & set attack=70 & set level=11
if %totalsouls% GTR 5000 set maxhp=130 & set attack=80 & set level=12
if %totalsouls% GTR 7000 set maxhp=140 & set attack=90 & set level=13
if %totalsouls% GTR 10000 set maxhp=150 & set attack=100 & set level=14
if %hp% GTR %maxhp% echo You leveled up!
if %location% EQU Thornthicket set /a hp=%hp%-10
if %hp% GTR %maxhp% set hp=%maxhp%
echo %location%                                                                                             Autosaved.
echo.
echo %description%
if %npc% EQU 1 if %npcdead% EQU 2 if %attacked% EQU 2 (echo %npcalert%)
if %npc% EQU 1 if %npcdead% EQU 2 if %attacked% EQU 1 (echo !attackedalert!)
if %npc% EQU 1 if %npcdead% EQU 1 (echo !npcdeadalert!)
if %attacked% EQU 1 echo %thenpc% hit you for %npcattack%.
echo.
if %ndirection% EQU 1 echo 1 (N)orth
if %sdirection% EQU 1 echo 2 (S)outh
if %edirection% EQU 1 echo 3 (E)ast
if %wdirection% EQU 1 echo 4 (W)est
echo 5 Stay
if %npc% EQU 1 if %npcdead% EQU 2 echo 6 Examine %thenpc%
if %npc% EQU 1 if %npcdead% EQU 2 if %npctalk% EQU 1 echo 7 Talk to %thenpc%
if %npc% EQU 1 if %npcdead% EQU 2 echo 8 Strike %thenpc%
if %npc% EQU 1 if %npcdead% EQU 2 if %totalsouls% GEQ 100 echo 9 Soul-Powered Strike %thenpc%
echo.


echo.
echo                           Name: %username%
echo                           Level: %level%
echo                           HP: %hp%/%maxhp%
echo                           Attack: %attack%
echo                           Souls: %totalsouls%
echo.
echo 99 Logout
if %hp% LEQ 0 goto death
echo.

set menuchoice=5
set /p menuchoice=
if %menuchoice% EQU 1 if %ndirection% EQU 1 (set direction=north & goto locationmover)
if %menuchoice% EQU n if %ndirection% EQU 1 (set direction=north & goto locationmover)
if %menuchoice% EQU 2 if %sdirection% EQU 1 (set direction=south & goto locationmover)
if %menuchoice% EQU s if %sdirection% EQU 1 (set direction=south & goto locationmover)
if %menuchoice% EQU 3 if %edirection% EQU 1 (set direction=east & goto locationmover)
if %menuchoice% EQU e if %edirection% EQU 1 (set direction=east & goto locationmover)
if %menuchoice% EQU 4 if %wdirection% EQU 1 (set direction=west & goto locationmover)
if %menuchoice% EQU w if %wdirection% EQU 1 (set direction=west & goto locationmover)
if %menuchoice% EQU 5 (if %hp% LSS %maxhp% set /a hp=%hp%+1 & goto menu)
if %menuchoice% EQU 6 if %npc% EQU 1 if %npcdead% EQU 2 goto examine
if %menuchoice% EQU 7 if %npc% EQU 1 if %npcdead% EQU 2 if %npctalk% EQU 1 goto talk
if %menuchoice% EQU 8 if %npc% EQU 1 if %npcdead% EQU 2 goto attack
if %menuchoice% EQU 9 if %npc% EQU 1 if %npcdead% EQU 2 if %totalsouls% GEQ 1000 goto soulattack
if %menuchoice% EQU 99 goto start


goto save

:locationmover
if %hp% LSS %maxhp% set /a hp=%hp%+1
if %location% EQU Cave if %direction% EQU north goto save
if %location% EQU Cave if %direction% EQU south goto save
if %location% EQU Cave if %direction% EQU east goto save
if %location% EQU Cave if %direction% EQU west set location=Mudroad & goto locationgen

if %location% EQU Mudroad if %direction% EQU north set location=Cemetary & goto locationgen
if %location% EQU Mudroad if %direction% EQU south set location=Rockpath & goto locationgen
if %location% EQU Mudroad if %direction% EQU east set location=Cave & goto locationgen
if %location% EQU Mudroad if %direction% EQU west goto save

if %location% EQU Cemetary if %direction% EQU north goto save
if %location% EQU Cemetary if %direction% EQU south set location=Mudroad & goto locationgen
if %location% EQU Cemetary if %direction% EQU east goto save
if %location% EQU Cemetary if %direction% EQU west set location=Blackgrass & goto locationgen

if %location% EQU Blackgrass if %direction% EQU north goto save
if %location% EQU Blackgrass if %direction% EQU south set location=Valley & goto locationgen
if %location% EQU Blackgrass if %direction% EQU east set location=Cemetary & goto locationgen
if %location% EQU Blackgrass if %direction% EQU west goto save

if %location% EQU Rockpath if %direction% EQU north set location=Mudroad & goto locationgen
if %location% EQU Rockpath if %direction% EQU south goto save
if %location% EQU Rockpath if %direction% EQU east goto save
if %location% EQU Rockpath if %direction% EQU west set location=Cliff & goto locationgen

if %location% EQU Cliff if %direction% EQU north set location=Valley & goto locationgen
if %location% EQU Cliff if %direction% EQU south goto save
if %location% EQU Cliff if %direction% EQU east set location=Rockpath & goto locationgen
if %location% EQU Cliff if %direction% EQU west goto save

if %location% EQU Valley if %direction% EQU north set location=Blackgrass & goto locationgen
if %location% EQU Valley if %direction% EQU south set location=Cliff & goto locationgen
if %location% EQU Valley if %direction% EQU east goto save
if %location% EQU Valley if %direction% EQU west set location=Inn & goto locationgen

if %location% EQU Inn if %direction% EQU north set location=Dustpath & goto locationgen
if %location% EQU Inn if %direction% EQU south goto save
if %location% EQU Inn if %direction% EQU east set location=Valley & goto locationgen
if %location% EQU Inn if %direction% EQU west set location=Goodpath & goto locationgen

if %location% EQU Dustpath if %direction% EQU north goto save
if %location% EQU Dustpath if %direction% EQU south set location=Inn & goto locationgen
if %location% EQU Dustpath if %direction% EQU east goto save
if %location% EQU Dustpath if %direction% EQU west set location=Deadwoods & goto locationgen

if %location% EQU Deadwoods if %direction% EQU north set location=Thornthicket & goto locationgen
if %location% EQU Deadwoods if %direction% EQU south goto save
if %location% EQU Deadwoods if %direction% EQU east set location=Dustpath & goto locationgen
if %location% EQU Deadwoods if %direction% EQU west goto save

if %location% EQU Thornthicket if %direction% EQU north goto save
if %location% EQU Thornthicket if %direction% EQU south set location=Deadwoods & goto locationgen
if %location% EQU Thornthicket if %direction% EQU east goto save
if %location% EQU Thornthicket if %direction% EQU west set location=Beholderden & goto locationgen

if %location% EQU Beholderden if %direction% EQU north goto save
if %location% EQU Beholderden if %direction% EQU south set location=Strangetrail & goto locationgen
if %location% EQU Beholderden if %direction% EQU east set location=Thornthicket & goto locationgen
if %location% EQU Beholderden if %direction% EQU west goto save

if %location% EQU Strangetrail if %direction% EQU north set location=Beholderden & goto locationgen
if %location% EQU Strangetrail if %direction% EQU south set location=Crucifixiongrove & goto locationgen
if %location% EQU Strangetrail if %direction% EQU east goto save
if %location% EQU Strangetrail if %direction% EQU west goto save

if %location% EQU Goodpath if %direction% EQU north goto save
if %location% EQU Goodpath if %direction% EQU south goto save
if %location% EQU Goodpath if %direction% EQU east set location=Inn & goto locationgen
if %location% EQU Goodpath if %direction% EQU west set location=Strangetrail & goto locationgen

if %location% EQU Crucifixiongrove if %direction% EQU north set location=Strangetrail & goto locationgen
if %location% EQU Crucifixiongrove if %direction% EQU south set location=Tunnelmaw & goto locationgen
if %location% EQU Crucifixiongrove if %direction% EQU east goto save
if %location% EQU Crucifixiongrove if %direction% EQU west goto save

if %location% EQU Tunnelmaw if %direction% EQU north set location=Crucifixiongrove & goto locationgen
if %location% EQU Tunnelmaw if %direction% EQU south goto save
if %location% EQU Tunnelmaw if %direction% EQU east goto save
if %location% EQU Tunnelmaw if %direction% EQU west set location=Tunnel & goto locationgen

if %location% EQU Tunnel if %direction% EQU north set location=Beholderden & goto locationgen
if %location% EQU Tunnel if %direction% EQU south set location=Tunnelmaw & goto locationgen
if %location% EQU Tunnel if %direction% EQU east goto save
if %location% EQU Tunnel if %direction% EQU west goto save

if %location% EQU  if %direction% EQU north goto save
if %location% EQU  if %direction% EQU south goto save
if %location% EQU  if %direction% EQU east goto save
if %location% EQU  if %direction% EQU west goto save


pause>nul
goto save

:examine
cls
echo %npcexamine%
pause>nul
goto save

:attack
if %location% EQU Cave goto mystickill
set attacked=1
set /a npchealth=%npchealth%-%attack%
echo You deal %attack% damage.
if %npchealth% LEQ 0 (set /a totalsouls=%totalsouls%+%soulgain% & set npcdead=1 & set npcattack=0 & set attacked=2 & echo You have killed %thenpc%. You acquire %soulgain% souls.)
pause>nul
goto save

:soulattack
set attacked=1
set /a npchealth=%npchealth%-(%attack%*2)
set /a totalsouls=%totalsouls%-25
echo %npchealth%
echo You deal (%attack%*2) damage.
echo You spend 25 souls.
if %npchealth% LEQ 0 (set /a totalsouls=%totalsouls%+%soulgain% & set npcdead=1 & set npcattack=0 & set attacked=2 & echo You have killed %thenpc%. You acquire %soulgain% souls.)
echo %npcdead%
pause>nul
goto save

:talk
if %location% EQU Cave if %totalsouls% GEQ 10000 goto finale
echo %dialogue%
pause>nul
goto save

:mining
cls
echo Mining Page
echo.
echo Total Souls Mined: %minedsouls%
echo Total Souls: %totalsouls%
echo.
echo 1 (M)ine
echo 2 Back
set x=3
set /p x=
if %x% EQU m goto miningaction
if %x% EQU 1 goto miningaction
if %x% EQU 2 goto save

goto mining

:miningaction
set x=0
set /a totalsouls=%totalsouls%+5
set /a minedsouls=%minedsouls%+5
echo You mined 5 Souls from the Soulore.
pause>nul
goto mining

:mystickill
echo The Cave Freak dodges and hits you with a bewitching spell.
echo Cave Freak: "Be wary of who you try to kill."
set totalsouls=0
echo Your Souls are set to 0.
pause>nul
goto save

:deny
echo You cannot do that.
pause>nul
goto save

:death
pause
cls
echo You were killed by %thenpc%.
set totalsouls=0
echo Your Souls are set to 0.
set wanted=1
set hp=%maxhp%
set location=Cave
pause>nul
goto locationgen

:finale
echo The Cave Freak takes the Souls and makes a strange gesture. Then, you are struck by a blinding white light, and the smell of fire and burning flesh permeates the atmosphere. Everything goes black. You have Ascended.
pause>nul
echo The End
pause>nul
goto menu

echo The game has crashed.
pause