::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::                                                ::READ ME::                                                     ::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::VERSION # 1.0
::
::This is the game Legend. Not everything is perfect, so if you find a bug, please tell me about it! 
::
::You may contact me via email, at rcaproductionmaster@gmail.com
::As the subject, ensure you have the word LEGEND.
::
::This Version Includes:
::-Character Name
::-Character Gender
::-Forest Fights
::-Arena Fights (Bosses, kill them to level up)
::-Random events in the forest
::-Several secrets (If you enter certain letters at menus, you may get some clues)
::-A new remade fight calculator
::-A new graphical technique, to show special characters (Lines, etc)
::-All options actually go places now in the town
::-The entire game is playable up to level 6
::
::To run the game:
::Download the attached Legend.txt file. Open it in notepad (Just double click it). Click File>Save As... then 
::pick a location. Change the "Save as Type" option from "Text Documents (*.txt)" to "All Files (*.*)". 
::Now, name the file "Legend.bat" (Don't use the quotes. If you don't name it correctly, the game won't work.). 
::Finally, just double click the file (It should look like a set of gears). The game will open! 
::
::To Play:
::Just read carefully, and press the corresponding keys to do things. If you have this menu:
::
::'E'nter building
::'M'ove along
::Your Choice? [E,M]
::
::Press e to enter the building, and press m to move on.
::
::If you are given menus where you are asked to enter a number value, the game will only accept numbers in the 
::format of 1 2 3 4 5 6 7 8 9 0. If you use text, the game will error and/or close.
::
::If you want to keep your progress, you must save before you exit. Otherwise, it will be reset to your last save.
::
::Enjoy!
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::




@ECHO OFF
chcp 850
::ATTRIB +R Legend.bat
::ATTRIB +H Legend.bat
ATTRIB +H settings.meow
title Legend
COLOR 0A

if exist Legend!.bat (ATTRIB -R Legend!.bat)
::echo. Legend.bat>Legend!.bat
::ATTRIB +R Legend!.bat

for /f "tokens=1-4 delims=/ " %%i in ("%date%") do (
     set dow=%%i
     set month=%%j
     set day=%%k
     set year=%%l
   )
set "date=%day%/%month%/%year%"

set name=Legend
set /a health=20
set /a defense=0
set /a level=0
set /a gold=0
set weapon=Stick
set /a kills=0
set armor=Shirt
set /a bank=0
set indeath=0
set /a kiss=0
set barg=false
set /a weplev=0
set /a lastdate=0
set forestgo=false
set pasturevisted=false
set castlecheck=false
set peanuts=false

:beginning
CLS
color 0a
choice /c ELGCI /n /m "'E'nter the realm; 'L'eave; 'G'raphics; 'C'ontributors; 'I'nstall new version;"
if %errorlevel%==1 (goto entered)
if %errorlevel%==2 (exit)
if %errorlevel%==3 (goto encoding)
if %errorlevel%==4 (goto contributors)
if %errorlevel%==5 (goto replacefile)

:replacefile
color 0f
CLS
echo Instructions:
echo.
echo   To play a new version of Legend, you
echo must download the NEW copy of Legend.
echo It should come in a text file, with 
echo the version number at the top of the
echo READ ME section. Check that you have
echo a newer version.
echo   Once this is done, you must delete
echo this version of Legend, so that you 
echo can name the new .bat file 'Legend.bat'.
echo If you have the new version, and are ready
echo to replace this file, continue. Otherwise,
echo press 'N' on the next page to return 
echo to the main menu.
echo.
echo   Unless otherwise noted, you will NOT 
echo lose any of your saved data by getting a
echo new version.
echo.
pause
CLS
echo WARNING: THIS DELETES YOUR COPY OF LEGEND!
echo.
echo ONLY PROCEED IF YOU HAVE A NEW VERSION TO REPLACE THIS ONE!
echo.
choice /c YN /m "DELETE LEGEND? "
if %errorlevel%==2 (goto beginning)
choice /c YN /m "ARE YOU SURE? "
if %errorlevel%==2 (goto beginning)
CLS
echo IF YOU ARE SURE, TYPE THIS AND PRESS ENTER:
echo.
echo delete
echo.
set deletefile=no
set /p deletefile=">"
if %deletefile%==delete (goto deletefile)
goto beginning

:deletefile
ATTRIB -H Legend.bat
ATTRIB -R Legend.bat
DEL Legend.bat
exit

:contributors
CLS
echo DESIGNER, CONCEPT MANAGER, MAIN PROGRAMMER:
echo.
echo      RCAProduction (2016)
echo.
echo BETA TESTER:
echo.
echo      Winner Inc. (2015)
echo.
pause
goto beginning

:encoding
color 0a
CLS
echo Which option appears more like a box?
echo.
echo "           A.)
echo "                _
echo "               !_!
echo "
echo "           B.)
echo "               ÚÄ¿
echo "               ³ ³
echo "               ÀÄÙ
echo.
choice /c AB /n /m ">"
if %errorlevel%==1 (goto plaintext)

:entered
set ur=³
set st=Ä
set lt=Ú
set lb=À
set rt=¿
set rb=Ù
set mbr=Ã
set mt=Å
set mtb=Â
set mb=Á
set mbl=´
set btt=Ò
set bbt=Ð
set tp=º
set mtbt=×
set squiggle=ô
set lowshade=°
set mshade=±
set hshade=²
set tc=Í
goto intro

:plaintext
set ur=!
set st=-
set lt=!
set lb=!
set rt=!
set rb=!
set mbr=!
set mt=!
set mtb=!
set mb=!
set mbl=!
set btt=!
set bbt=!
set tp=!
set mtbt=!
set squiggle=$
set lowshade=#
set mshade=#
set hshade=#
set tc=-
goto intro

:intro
CLS
echo "   
echo "   %lt%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%st%%st%%tc%%tc%%st%%st%%st%%st%%st%%st%%rt%
echo "   %ur%       /\_\      /\ \      /\ \      /\ \      /\_\      /\ \     %ur% 
echo "   %ur%      /:/ /     /::\ \    /::\ \    /::\ \    /::|_|    /::\ \    %ur% 
echo "   %ur%     /:/ /     /:/\:\_\  /:/\:\_\  /:/\:\_\  /:|:/\_\  /:/\:\ \   %ur% 
echo "   %ur%    /:/ /     /::\_\/_/ /:/ /\/_/ /::\_\/_/ /:/|::/ / /:/ /|:| |  %ur% 
echo "   %ur%   /:/ /     /:/\/_/   /:/ /_    /:/\/_/   /:/ |:/ / /:/ / |:| |  %ur% 
echo "   %ur%   \:\ \     \:\ \     \:\/\_\   \:\ \     \/_/:/ /  \:\ \/:/ /   %ur% 
echo "   %ur%    \:\_\     \:\ \     \::/ /    \:\_\      /:/ /    \:\/:/ /    %ur% 
echo "   %ur%     \/_/      \/_/      \/_/      \/_/      \/_/      \__/_/     %ur% 
echo "   %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo "    %squiggle%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%lowshade%%squiggle%
echo "   %squiggle%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%mshade%%squiggle%
echo "  %squiggle%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%hshade%%squiggle%
echo "           __________    ________   __
echo "       |   | |    |  \  /     |  \ /  \  |\  |   
echo "       |   | |__  |   | \__   |   |    | | \ |   
echo "       |   | |    |__/     \  |   |    | |  \|  _|_|_
echo "       |   | |    |  \     |  |   |    | |   |  _|_|_
echo "        \_/  |___ |   |___/ _____  \__/ \|   |   | |   1.0 RELEASE
echo.
echo      (C)
echo         RCAPRODUCTION 2016
echo.
choice /c ELM /n /m "'E'nter your name if you are new, or 'L'ogin."

if %errorlevel% == 2 (goto login)
if %errorlevel%==3 (goto meowliz)
color 0c
CLS
echo Entering a name or gender resets any other progress, with any other player.
echo Only continue if you are new, or want to play from the beginning!
echo.
echo What gender are you, and what's your name?
echo.
choice /c MFE /n /m "'M'ale, 'F'emale, 'E'xit"
if %errorlevel%==3 (goto entered)
if %errorlevel%==1 (
set gen=M
goto namee)
set gen=F

:namee
set name=NA
set /p user="Your name:"
ATTRIB -H settings.meow
ATTRIB -R settings.meow
CLS
echo Gender: %gen%
echo Name  : %user%
echo.
echo Remember that you must manually save your progress!
echo.
choice /c YN /m "Save?"
if %errorlevel%==2 (goto entered)
(
echo %user% 
echo %gen%
echo %gold%
echo %health%
echo %weapon%
echo %level%
echo %kills%
echo %armor%
echo %defense%
echo %bank%
echo %kiss%
echo %weplev%
echo %date%
)>settings.meow
ATTRIB +R settings.meow
ATTRIB +H settings.meow
pause
goto town

:meowlizz
CLS
echo You... You know me?
echo If you kiss me more than once, I'll give you 50 health...
echo Don't forget...
echo.
pause
CLS
echo You have three choices. Pick wisely.
echo.
echo 'G'o on to game
echo 'B'e in love
echo 'C'heers and broccoli
choice /c GBC /n /m ">"
if %errorlevel%==3 (goto entered)
set /a indeath=1
goto entered

:meowliz
set kjhjsdf=v
CLS
set /p kjhjsdf="So you think you're smart, eh?"
if %kjhjsdf%==money (goto bankhint)
if %kjhjsdf%==Lindsey (goto meowlizz)
CLS
echo You have no idea who I am! Go away!
echo.
pause
goto entered

:bankhint
CLS
echo In thee bank, when yee deposit or withdrawal,
echo place yonder a 1, and all yee gold shall be used!
echo.
pause
goto entered


:login
(
set /p user=
set /p gen=
set /p gold=
set /p health=
set /p weapon=
set /p level=
set /p kills=
set /p armor=
set /p defense=
set /p bank=
set /p kiss=
set /p weplev=
set /p lastdate=
)<settings.meow

if %gen%==M (goto maleset)

set they=she
set theyy=her

goto aftergenset
:maleset
set they=he
set theyy=him

:aftergenset

if %date%==%lastdate% (
CLS
echo Welcome back to Legend, %user%
echo.
echo You gain no interest from the bank since previous visit.
echo.
pause
goto continuelogin)
set /a math=%bank%*1000
set /a math=%math%/30
set /a math=%math%/1000
set /a bank=%bank%+%math%
:continuelogin
CLS
::rcaproductionmaster@gmail.com
echo Welcome, %user%
echo.
echo Today's Date: %date%
echo Last visit  : %lastdate%
echo.
echo Gender  : %gen%
echo Health  : %health%
echo Weapon  : %weapon%
echo Kills   : %kills%
echo Armor   : %armor%
echo Defense : %defense%
echo Gold    : %gold%
echo Bank    : %bank%
echo.
echo Level   : %level%
echo.
echo Remember that you must manually save your progress!
echo.
pause
if %gold% LSS 0 (goto beating)
goto town

:beating
set /a health=%health%-5
CLS
echo The innkeeper is mad with you!! 
echo.
echo You are beaten with a wooden club for your debt,
echo and lose 5 health.
echo.
pause
if %health% LEQ 0 (goto lose)

:town
color 0a
set /a math=%level%*10+20
if %health% GTR %math% (set /a health=%math%)
if %health% LEQ 0 (goto lose)
CLS
echo You walk into the small town square. You are surrounded by fantastic smells, 
echo colors, and goods. Many people go about their business, as you look at the
echo signs. You decide where to go next.
echo.
echo 'G'o to forest                  'R'iver Crossing
echo 'T'horin's Armory               'M'arket of Secrets
echo 'H'edge's Weapon Shoppe         'D'octer Handsome Hansel
echo 'I'nn                           'W'est towards Hungria
echo 'B'ank                          'N'orth towards the Dark Forest
echo 'V'iew stats                    'Z'en's News Paper and Bulletin
echo 'S'ave
echo 'E'xit
echo.
choice /c GTHIBVSERMDWNZ /n /m "Where to?"
set foreststart=false
if %errorlevel%==1 (goto forest)
if %errorlevel%==2 (goto thorins)
if %errorlevel%==3 (goto hedges)
if %errorlevel%==4 (goto inn)
if %errorlevel%==5 (goto bank)
if %errorlevel%==6 (goto pstat)
if %errorlevel%==7 (goto save)
if %errorlevel%==8 (goto exit)
if %errorlevel%==9 (goto rivercrossing)
if %errorlevel%==10 (goto marketofsecrets)
if %errorlevel%==11 (goto doctorhandsome)
if %errorlevel%==12 (goto hungrianpass)
if %errorlevel%==13 (goto northtown)
if %errorlevel%==14 (goto zensnews)

pause
exit

:marketofsecrets
CLS
echo The market is closed due to new laws. It may not be open for a long time. 
echo.
echo You return to town.
echo.
pause
goto town

:hungrianpass
CLS
echo The pass is closed due to snow for the year.
echo.
pause
goto town

:northtown
CLS
echo You head north of town, and enter the Dark Forest.
echo.
pause
CLS
echo You come across a great castle... The Castle of Queen Greycliffe!
echo       __  _  __                                             __  _  __
echo      [__][_][__]                    / \                    [__][_][__]
echo       []   # []                   / /\  \                   [] #   []
echo       []#    []                 /___/_____\                 []   ##[]
echo       [] #  #[]                 []  .'.  []                 [] #   []
echo       [] ##  []                 []  :-:  []                 []   # []
echo       []   # []               /[_]  :_:  [_]\               []  # #[]
echo      _[]_#___[]___________  /:/[]         []\:\  ___________[]##___[]_
echo     // /   /      /   /   /:/  []~IIIIIII~[]  \:\    \  \  \   \  \  \\
echo    [] /  / / /\ /   /   /:/    [].........[]    \:\     \   /\  \ \   []
echo    []IIIIIIII[]IIIIIIIII[]IIIIII!   ..    !IIIIII[]IIIIIIIII[]IIIIIIII[]
echo   /!-       -[]-       -[]-    ~I  !      I~    -[]         []         !\
echo  /!! _/TT\_  [] _/TT\_  []GREY  I   ''    I  CLIF[] [=====] [] [=====] !!\
echo  [_] !O  O!  [] !O  O!  []    /II _______ II\    []         []         [_]
echo  [_]\IIIIII//!!\IIIIII//!!IIIII  L__J L__J  IIIII!!\IIIIIIII!!\IIIIIIII[_]
echo  [_] \    / [_] \    / [_]O  O L__J     L__J O  O[_]/      \[_]/      \[_]
echo  [_] .'``'. [_] .'``'. [_] II L__J       L__J II [_]  .''.  [_]  .''.  [_]
echo  [_]:      :[_]:      :[_]I  IL__J       L__JI  I[_] :-..-: [_] :-..-: [_]
echo  L_J! "    !L_J!      !L_J!  !L__J       L__J!  !L_J !-||-! L_J !-||-! L_J
echo  L_J!   "  !L_J!      !L_J!  !L__J       L__J!  !L_J !-||-! L_J !-||-! L_J
echo  L_J!  "   !L_J!      !L_J!  !L__J       L__J!  !L_J !-||-! L_J !-||-! L_J
echo ------------------------------------------------------------------------------
echo.
choice /c CG /n /m "'C'ontinue, 'G'o back"
if %errorlevel%==2 (goto town)

CLS
echo You walk up to the massive gates, and are met by a young guard.
echo.
echo "Who comes?"
echo.
echo "It is me, %user% of the Old Town. I come to see the Queen!"
echo.
echo "No one sees the queen! Be gone!"
echo.
choice /c GS /n /m "'G'o back, 'S'neak around"
if %errorlevel%==1 (goto town)
CLS
if %castlecheck%==true (
echo You've already tried this! Go back!
echo.
pause
goto town)
echo You walk away, but quickly cut back to the castle. 
echo.
echo You may only pick ONE place to look today, the guard is walking
echo around the corner of the castle!
echo.
echo        A                B                C
echo.
choice /c ABC /n /m "Well?"
if %errorlevel%==2 (goto qgcenter)
CLS
set castlecheck=true
echo You look for any way through the wall, but all you find
echo is hard grey stone! The guard is coming, better run away!
echo.
pause
goto town

:qgcenter
CLS
echo You find a small crack in the wall, and slip into it.
echo The crack forms a small passageway, near the ground. It is
echo very dark, but you can feel your way along. At the end of
echo the passage, is a set of metal bars...
echo.
echo 'A'ttack the bars with your weapon
echo 'H'it the stone with your weapon
echo 'G'o back to town!
echo.
choice /c AHG /n /m "Well?"
if %errorlevel%==1 (
CLS
set castlecheck=true
echo The guard heard you and is running to alert others!
echo.
echo You scramble back out of the tunnels, and run nback to town.
echo.
pause
goto town)
if %errorlevel%==3 (goto town)
CLS
echo You hit the stone surrounding the bars. Suddenly, the 
echo bars side out of the way!
echo.
choice /c CG /n /m "'G'o back, 'C'ontinue"
if %errorlevel%==2 (goto northtown)
CLS
color 0b
echo You follow the small passageway on your hands and knees.
echo It suddenly opens into a grand hall. You look around...
echo.
echo There are suits of armor, lining the walls. The area is
echo grey, and dim. It is like an overcast day, except eternal.
echo.
echo Suddenly, at the end of the great hall, you see the throne.
echo The great queen, queen Greycliffe, is staring at you with a
echo deadly silence.
echo.
echo "COME FORTH!" she demands, her voice echoing through the hall.
echo.
choice /c RHWT /n /m "'R'un back, 'H'umbly approach, 'W'alk towards her, 'T'alk"
if %errorlevel%==1 (
CLS
echo You quickly run back into the passageway!
echo.
echo You reach the bars, but they have closed again!
echo.
echo Desperately, you hit the stone with your weapon, but nothing happens....
echo.
echo Behind you, dogs are rushing forth. In no time, they are upon you....
echo.
pause
goto lose)
if %errorlevel%==3 (
CLS
echo You walk towards her, and stand before the thrown.
echo.
echo "WHO ARE YOU?"
echo.
echo "I am a warrior, seeking fame and fortune!"
echo.
echo "HOW DARE YOU SNEAK INTO MY LAIR! OFF WITH YOUR HEAD!"
echo.
echo "But..."
echo.
echo *CHOP!*
echo.
pause
goto lose)
if %errorlevel%==4 (
CLS
echo "I'm sorry to have intruded! Spare me!"
echo.
echo The queen is silent.
echo.
echo "Please!"
echo.
echo She whispers to a guard.
echo.
echo Suddenly, you are covered in burning tar! Flames lick the stone
echo floor, and temporarily light the hall.
echo.
pause
goto lose)
CLS
echo You humbly walk towards the queen. Bowing before the throne, you wait.
echo.
echo "How did you enter my castle?"
echo.
echo "There was a small passage, I followed it."
echo.
echo "I like you for that..."
echo "Here is 50 gold. Be gone, now. You have passage through my lands."
set /a gold=%gold%+50
echo.
pause
goto northtown


:rivercrossing
CLS
echo You come to the powerful river. There is a single stone bridge,
echo crossing to the other side.
echo.
echo An old sign on the shore, faintly says,
echo.
echo "BEW RE: G BLINS"
echo.
echo.
echo      !
echo "    #    __...----...__
echo "=======''# #.-''''-. # ''================
echo "%%%%%%\# #  #.'        '.# # #  #/%%%%%%%%%% %%
echo " %%%%%%\# # :            :# # #/%%%%%%%%     %%
echo " %%%%%%%%%%\# :            : ##/%%%%%%%%%%  %% %%
echo "%%%%%%%%%%%%%%\#:~~~~~~~~~~~~:#/%%%%%%%%%%%%%%%%% %%
echo.
choice /c CR /n /m "'C'ross, or 'R'eturn to town?"
if %errorlevel%==2 (goto town)
set /a math=%random%*2/32767+1
if %math%==1 (goto crossed)
CLS
echo A group of Goblins jumps in front of you!!
echo.
echo Quick!
echo.
echo 'F'ight
echo 'G'ive up your gold
choice /c FG /n /m "Hurry!"
if %errorlevel%==2 (
set gold=0
echo You lose to the goblins, but you make it across.
echo.
pause
goto crossed)
CLS
if %gold% LEQ 0 (
echo You try to fight the goblins, but they are too powerful!
echo.
echo Since you have no money, the goblins tie you to a heavy
echo boulder, and push you into the river... You promptly drown.
echo.
pause
goto lose)
set /a gold=%gold%-10
echo You grab 10 gold coins, and throw them over the edge of
echo the bridge. The goblins, enthrawled with the money, rush
echo to grab it, only to fall into the river!
echo.
echo You quickly run across the bridge, and arrive safely on
echo the other side.
echo.
pause
:crossed
CLS
echo On the other side of the bridge, is a series of large pastures,
echo cleared of forest. In the pastures, various crops are growing.
echo A small road winds through the middle of the rows of pastures,
echo going past several small farming huts. A few chimneys puff
echo whisps of smoke.
echo.
echo "                     .
echo "                  .' 
echo "       ^^ ^______._____ _____________^ ^^^^
echo "       ^^^       #     '.        .    ^
echo "     ^  ^   .   _.   .'.'      .'    ^^^ ^^
echo "       ^ ^     _     '.'.     #      ^  ^^
echo "      ^^^     .      .'  '.    -    ^ ^^^ ^
echo "        ^^         .'    .'     _       ^^
echo "     ^   ^        /      /    .     ^^^ ^ ^^
choice /c CR /n /m "'C'ontinue, 'R'eturn"
if %errorlevel%==2 (goto town)
CLS
:pasturehut
color 0a
CLS
echo Mid-way through the pastures, you near a small hut.
echo.
echo 'S'top in        "   "    "      "     "
echo 'K'eep going       "  "      .''''.   "       "
echo 'G'o back      "        "   #__!!__#      "
choice /c SKG /n /m "Well?"
if %errorlevel%==1 (goto overriverhut)
if %errorlevel%==2 (goto endofpastures)
if %errorlevel%==3 (goto crossed)

:overriverhut
if "%pasturevisited%" EQU "true" (
CLS
echo You have already been here.
echo.
pause
goto pasturehut)

set /a math=%random%*2/32767+1
CLS
echo You knock on the door.
echo.
if %math%==1 (
echo No one is home. 
echo.
pause
set pasturevisited=true
CLS
goto pasturehut
)
echo An old man opens the door, and invites you for tea.
echo.
echo You gain 5 health.
set /a health=%health%+5
set pasturevisited=true
echo.
pause
CLS
goto pasturehut

:endofpastures
color 4b
CLS
echo               $$
echo    $$$     $$$$ $
echo  $$  $$$ $$$$   $
echo $     $$$$$
echo     $$$$$$$$$
echo    $$  ** $$$$
echo   $    **   $$
echo         **  $
echo         **
echo        **
echo       **
echo       **   ________          ______
echo       **             :;''-.
echo       **..,;'."".;..::  .. '':;,..''.
echo You reach the end of the pastures. Now, the forest begins
echo to change. Instead of the tall, strong pines, the foliage is 
echo becoming thicker and the trees are different than any other
echo that you have seen before. You smell salt, and see a thin blue
echo line on the horizon.
echo.
choice /c CG /n /m "'C'ontinue, 'G'o back"
if %errorlevel%==2 (goto pasturehut)
cls

echo You come to a vast body of salty water, and walk along the 
echo sandy shore. 
echo.
echo After an hour of travel, you come across a cluster of huts.
echo A small sign reads:
echo.
echo "  ,----------------------,
echo "  |  -,-  -,-  , ,  -,-  |
echo "  |   :    :   :{    :   |
echo "  |   '   -'-  ' '  -'-  |
echo "  '----------------------'
echo.
choice /c CG /n /m "'C'ontinue, 'G'o back"
if %errorlevel%==2 (goto endofpastures)

:tiki
cls
echo You enter the small town named Tiki, and are greeted by the 
echo residents. Several people are selling wares outside, and a 
echo few huts are used as stores.
echo.
echo 'R'eturn
echo 'M'agic Hut
echo 'F'ood Hut
echo 'W'ork
echo.
choice /c RMFW /n /m "What will you do?"
if %errorlevel%==1 (goto endofpastures)
if %errorlevel%==2 (goto magichut)
if %errorlevel%==3 (goto foodhut)
if %errorlevel%==4 (goto seawork)

:magichut
cls
echo You enter a small dark hut. A purple light whisps out from
echo a crystal ball on a table, and smoke sits in the air like
echo perfume. An old eccentric woman greets you.
echo.
echo "How mayyy I help you todayy?" she asks.
echo.
echo 'R'eturn to Tiki
echo 'A'sk to buy magic
echo.
choice /c RA /n /m "Well?"
if %errorlevel%==1 (goto tiki)
cls
echo She looks at you strangely, and touches your arm.
echo.
echo "Oooh, my dear... I'm afraid you aren't strong enough for
echo magic... Very few are... Run away now, and stayy clear of
echo all magic!!"
echo.
echo Slightly disappointed, you return to Tiki.
echo.
pause
goto tiki

:foodhut
cls 
echo You enter the food hut, and see many thingas for sale.
echo A young man stands in the middle, eager to sell. 
echo.
echo 'R'eturn
echo 'G'rasshopper    80 Gold
echo 'F'ish           260 Gold
echo 'W'hole Pig      999 Gold
echo 'M'assive Fruit  450 Gold
echo 'P'eanuts        300 Gold
echo.
choice /c RGFWMP /n /m "Take your pick!"
cls
if %errorlevel%==1 (goto tiki)
if %errorlevel%==2 (
if %gold% LSS 80 goto tiki
set /a gold=%gold%-80
set /a health=%health%+1
echo You bought and ate Grasshopper.
echo.
echo You gain 1 health.
echo.
pause
goto tiki
)
if %errorlevel%==3 (
if %gold% LSS 260 goto tiki
set /a gold=%gold%-260
set /a health=%health%+3
echo You bought and ate Fish.
echo.
echo You gain 3 health.
echo.
pause
goto tiki
)
if %errorlevel%==4 (
if %gold% LSS 999 goto tiki
set /a gold=%gold%-999
set /a health=%health%+10
echo You bought and ate Whole Pig.
echo.
echo You gain 10 health.
echo.
pause
goto tiki
)
if %errorlevel%==5 (
if %gold% LSS 450 goto tiki
set /a gold=%gold%-450
set /a health=%health%+5
echo You bought and ate Massive Fruit.
echo.
echo You gain 5 health.
echo.
pause
goto tiki
)
if %errorlevel%==6 (
if %gold% LSS 300 goto tiki
set /a gold=%gold%-300
set peanuts=true
echo You bought Peanuts, but did not eat them.
echo.
pause
goto tiki
)

:seawork
cls
echo You walk down to the water, and ask for work.
echo.
echo There is currently no work available.
echo.
pause
goto tiki

:doctorhandsome
CLS
color f0
echo -----------------------------------------------------------
echo ! -.- .        .-.                     -.- .-.    -.- . . !
echo !  !  !-. .=~  !  ) .-. .- .!. .-. !'.  !  '-.  *  !  !\! !
echo !  '  ' ' '-'  '-'  '-' '-  '  '-' '   -'- '-'  * -'- ' ' !
echo -----------------------------------------------------------
echo.
echo "Welcome to my handsome establishment!" a handsome man in a lab coat says.
echo.
echo His name tag shows his name as 'Hansel.'
echo.
echo "My lab coat here is realll velourrrrr!" he says with a devilish smirk,
echo and a wink.
echo.
echo 'H'eal
::echo 'G'et a job?
echo 'L'eave
choice /c HGL /n /m "Well now?"
if %errorlevel%==1 (goto handsomeheal)
if %errorlevel%==2 (goto handsomejob)
goto town

:handsomeheal
CLS
echo "Ohhh, yessss. I can heal you for sure! It will cost you though..."
echo.
echo He points to a tiny sign, stating he charges 101 gold per health.
echo.
echo 'H'eal all possible
echo 'L'eave
choice /c HL /n /m ">"
if %errorlevel%==2 (goto town)
set /a math=%level%*10+20
if %math% LSS %health% (
set health=%math%)
:handsomehealloop
set /a math=%level%*10+20
if %health% GEQ %math% (goto handsomehealed)
set /a math=%math%-%health%
set /a math2=%gold%-101
if %math2% LSS 0 (goto handsomehealed)
set /a gold=%gold%-101
set /a health=%health%+1
goto handsomehealloop

:handsomehealed
CLS
echo Healed.
pause
goto doctorhandsome

:zensnews
CLS
color 2a
echo  ___-_----____.'---_
echo ! --. .-- . . , .-. !
echo !  /  !-  !\!   '-. !
echo ! '-- '-- ' '   '-' !
echo  '------------------'
echo.
echo 'D'aily News: 10 Gold
echo 'F'ree Bulletin
echo 'L'eave
echo.
choice /c DFL /n /m "!NEWS! >"
if %errorlevel%==1 (goto buyzennews) 
if %errorlevel%==2 (goto bulletin)
goto town

:bulletin
CLS
echo WANTED: Peanuts! Will pay $$$ -R. Turner
echo.
echo FOR SALE: Darke Majik, Assorted ingredient set  -5000 gold -Ms. Rodney
echo.
echo Buy news from Zen's! Only 10 gold!
echo.
echo MISSING: Child, 6, red hair, last seen %date%
echo.
echo HELP WANTED: Warrior to kill my husband. $$. -Meet at river
echo.
echo "--_-.-'^.------.___.-'`.-.__.`.------..-''------'~''`._------
echo.
pause
goto zensnews
:buyzennews
CLS
if %gold% LSS 10 (
echo "Not enough gold. GET OUT!!"
echo.
pause
goto town)
set /a gold=%gold%-10
set /a math=%random%*5/32767+1
if %math%==1 (
echo %date%
echo.
echo          CHILDREN MISSING
echo.
echo Today, more children have gone missing.
echo Several claim the children wandered into
echo the forest, however this claim is not 
echo backed up. A single witness claims that
echo a large scaly bird snatched them, but
echo the witness is a known rum drinker.
echo  Based on his description, the snatcher
echo is either a massive eagle, or... Or a 
echo dragon!
echo.
pause
goto zensnews
)
if %math%==2 (
echo %date%
echo.
echo       GIANT PEANUT FOUND!
echo.
echo During this year's annual nut fest,
echo resident Kitty Cinnamon found a 
echo massive peanut. How it was grown,
echo is yet unknown. Due to her discovery,
echo all regular size peanuts have been 
echo bought up. 
echo  Normally, this is not an issue,
echo but Mr. Ryan Turner has a reverse
echo peanut allergy, making him wholly
echo dependant on peanuts. Anyone who has
echo peanuts, will be paid handsomely
echo for them!
echo.
pause
goto zensnews

)
if %math%==3 (
echo %date%
echo.
echo       QUEEN BEHEADS TRAITORS
echo.
echo Today, Queen Greycliffe the Powerful
echo issued a decree to the people of her
echo Dark Forest Kingdom. In the decree, she 
echo set the penalty for any form of
echo unlawfullness as beheading. 
echo  For all who plan to travel, it is
echo suggested that you avoid the Dark
echo Forest unless on official business.
echo Although the decree only applies to 
echo the citizens there, you may be found 
echo to be a traitor. Two days ago, she
echo beheaded three travellers, under 
echo speculation that they were traitors.
echo.
pause
goto zensnews
)
if %math%==4 (
echo %date%
echo.
echo       NEW CITIZENS ARRIVE
echo.
echo One new citizen, %user%, 
echo was quoted saying, "Some day, I will
echo slay the dragon which plagues this land!"
echo Although no one has ever returned from
echo such a quest, %they% is dead set on
echo surviving.
echo  Our reporter attempted to talk %theyy%
echo out of the idea, but %they% would not budge.
echo We wish %theyy% luck, and hope %they% will
echo return alive, and perhaps with our missing
echo children.
echo.
pause
goto zensnews
)
if %math%==5 (
echo %date%
echo.
echo      RIVER GOBLINS ATTACK
echo.
echo Yesterday, yet another band of river
echo goblins attacked travellers crossing the
echo bridge. In an exclusive interview with
echo Ghibliggcvok, the goblin leader, we
echo talked about why he was attacking
echo travellers on the bridge, which is out 
echo of the river.
echo  Ghibliggcvok stated that since the 
echo construction of the bridge, travellers
echo no longer drown in the river. Because
echo the goblins no longer have corpses in 
echo the river to rob, they must rob the
echo living who cross the bridge.
echo.
pause
goto zensnews
)

:save
ATTRIB -H settings.meow
ATTRIB -R settings.meow
CLS
choice /c YN /m "Save?"
if %errorlevel%==2 (goto town)
(
echo %user%
echo %gen%
echo %gold%
echo %health%
echo %weapon%
echo %level%
echo %kills%
echo %armor%
echo %defense%
echo %bank%
echo %kiss%
echo %weplev%
echo %date%
)>settings.meow
ATTRIB +R settings.meow
ATTRIB +H settings.meow
echo Saved.
set savetime=%time:~0,2%:%time:~3,2%:%time:~6,2%
set savedate=%date%
pause
goto town

:exit
for /f "tokens=1-4 delims=/ " %%i in ("%date%") do (
     set dow=%%i
     set month=%%j
     set day=%%k
     set year=%%l
   )
set "date=%day%/%month%/%year%"
CLS
color 0c
echo "               %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rt%
echo "               %ur%   ______         _______ _______  %ur%
echo "               %ur%  |       \     /    |       |     %ur%
echo "               %ur%  |        \   /     |       |     %ur%
echo "               %ur%  |____     \ /      |       |     %ur%
echo "               %ur%  |          X       |       |     %ur%
echo "               %ur%  |         / \      |       |     %ur%
echo "               %ur%  |        /   \     |       |     %ur%
echo "               %ur%  |______ /     \ ___|___    |     %ur%
echo "               %ur%                                   %ur%
echo "               %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo GAME LAST SAVED AT %savetime% %savedate%.
echo.
echo IT IS CURRENTLY %time:~0,2%:%time:~3,2%:%time:~6,2% %date%.
echo.
choice /c YN /m "Are you sure you want to exit? Progress will not be saved automatically."
if %errorlevel%==2 (goto town)
exit

:stats
(
set /p user=
set /p gold=
set /p health=
set /p weapon=
set /p level=
set /p kills=
set /p armor=
set /p defense=
)<settings.meow
CLS
echo Here are the game stats.
echo.
echo Player: %user%     Level: %level%      Kills: %kills%
pause
goto beginning

::::::::PLACES::::::::
:forest
if %forestgo%==true (goto forestentered)
CLS
echo "                        .'`'.    .'`'.   .'`/\'.      ..'`'.      ..  .
echo "                    .,.'^    `'.'     `'`  /%%%%\ `/\'      `'..'`  '`
echo "          .'``'.,.'`      ^         ^     /%%%%%%%%\/%%%%\    You enter the forest
echo "       .'` ^          ^    ^     /\    ^  /%%%%%%%%\/%%%%\    outside of the town.
echo "    ..'       ^      /\         /%%%%\  /\ /%%%%%%%%%%%%/\%%%%\   It is beautiful,
echo "  .'   /\        ^  /%%%%\ ^ /\   /%%%%\ /%%%%\%%/\%%/\/%%%%\%%/\  yet with beauty
echo ".'    /%%%%\ /\       /%%%%\  /%%%%\ /%%%%%%%%\/%%%%\/%%%%\%%%%\%%%%%%/%%%%\ comes danger.
echo "   ^  /%%%%\/%%%%\ /\  /%%%%%%%%\/%%%%%%%%/%%%%%%%%%%%%\%%%%/%%%%%%%%\%%%%\%%/%%%%%%%%\ 
echo "  ^  /%%%%%%%%\%%%%%%/%%%%\ /%%%%%%%%\/%%%%/\/%%%%/\%%%%\%%%%/%%%%%%%%\%%%%\/%%%%%%%%%%%%\ 
echo "    /%%%%%%%%%%%%\/\/%%%%\/%%%%%%%%%%%%\%%/%%%%\%%/%%%%\%%%%\/%%%%%%%%%%%%\%%%%/%%%%%%%%%%%%\
echo "___ /%%%%%%%%%%%%/%%%%\%%%%/%%%%%%%%%%%%%%%%\/%%%%\%%/%%%%\%%%%\/%%%%%%%%%%%%\%%/%%%%%%%%%%%%%%%%\   'E'nter
echo "   /%%%%%%%%%%%%%%/%%%%\%%%%/%%%%/\%%%%%%%%/%%%%%%%%\%%%%%%%%\%%/%%%%%%%%%%%%%%%%\/%%%%%%%%%%%%%%%%\   'L'eave
echo "  /%%%%%%%%%%%%%%/%%%%%%%%\/%%%%/%%%%\%%%%%%/%%%%%%%%\%%%%%%%%\/%%%%%%%%%%%%%%%%%%%%\%%%%%%%%%%%%%%%%%%\
echo "  /%%%%%%%%%%%%/%%%%%%%%%%/\%%%%/%%%%\%%%%/%%%%%%%%%%%%\%%%%%%%%/%%%%%%%%%%%%%%%%%%%%\%%%%%%%%%%%%%%%%%%%%\___.'____
echo " /%%%%%%%%%%%%%%/%%%%%%%%/%%%%\/%%%%%%%%\/%%%%%%%%%%%%%%%%\%%%%/%%%%%%%%%%%%%%%%%%%%%%%%\^^^#^^^^^^
echo " /%%%%%%%%%%%%/%%%%%%%%%%/%%%%\/%%%%%%%%\/%%%%%%%%%%%%%%%%\%%/%%%%%%%%%%%%%%%%%%%%%%%%%%%%\_- %%\%% _-    #%^
echo "/%%%%,";,%%/%%%%%%%%/%%%%%%%%\%%%%%%%%/%%%%%%%%%%%%%%%%%%%%\/%%%%%%%%%%%%%%%%%%%%%%%%lc\     !%%
echo "^^'~%%%%;%%^^^^^/%%%%%%%%\^^^^/%%%%%%%%%%%%%%%%%%%%\^^^^^^^#^^^^^^^^    %%!%%%% 
echo "  ~%%\/%%%%~ _- ^^#^^^ -_ ^^^^^#%%/%%^^^  _-       %%/%% /%%     _~~-
echo "  ;%%\ /%%'                      !/`             %%\!%%    _-
echo "    !(`   /%% /%%  _-  %%\%%/%%    %%!%%%%     %%    -    \/%%                 
echo "    !\   %%\!%%         %%!%%%%    -~~-    %%\\%%      -~~~-          
echo "   _!!_ -  \/_-      %%\!/%%            %%\!/%%                 
echo "          -~~         -~~-    _-       ~~    
choice /c EL /n /m "Well?"
if %errorlevel%==1 (goto forestentered)
goto town

:forestentered
set forestgo=true
CLS
echo 'L'ook around                         ."  /\
echo 'G'o to arena                      .`"   /%%%%\
echo 'R'eturn to town                .."      /^#\
echo 'V'iew stats                  ."    %%   /%%/#\\
echo 'H'ealers Den            ...'"    %%!    ^^^#^^^
choice /c LGRVH /m "Your choice?"
set foreststart=true
if %errorlevel%==2 (goto arena)
if %errorlevel%==3 (goto town)
if %errorlevel%==4 (goto pstat)
if %errorlevel%==5 (goto healer)
CLS
set firstfight=true
set /a elevel=%level%*5+6
set /a enemy=%random% * %elevel% / 32768 +1
if %enemy%==1 (goto rat)
if %enemy%==2 (goto fatkid)
if %enemy%==3 (goto oldman)
if %enemy%==4 (goto hark)
if %enemy%==5 (goto hcat)
if %enemy%==6 (goto fairy)
if %enemy%==7 (goto event)
if %enemy%==8 (goto pig)
if %enemy%==9 (goto sbear)
if %enemy%==10 (goto evilk)
if %enemy%==11 (goto hark)
if %enemy%==12 (goto evilk)
if %enemy%==13 (goto sentienttree)
if %enemy%==14 (goto smellycouch)
if %enemy%==15 (goto crazyman)
if %enemy%==16 (goto polititian)
if %enemy%==17 (goto knight)
if %enemy%==18 (goto dwarf)
if %enemy%==19 (goto drunkensoldier)
if %enemy%==20 (goto witch)
if %enemy%==21 (goto snake)
if %enemy%==22 (goto zork)
if %enemy%==23 (goto teddyroosevelt)
if %enemy%==24 (goto wakingup)
if %enemy%==25 (goto pillowcase)
if %enemy%==26 (goto kingarthur)
if %enemy%==27 (goto bucketofwater)
if %enemy%==28 (goto internetexplorer)
if %enemy%==29 (goto wizard)
if %enemy%==30 (goto darkwizardoftheeast)
if %enemy%==31 (goto elf)
if %enemy%==32 (goto rokoroztheterrible)
if %enemy%==33 (goto buffgerman)
if %enemy%==34 (goto nobleofdragostea)
if %enemy%==35 (goto dragon)
goto rat

:hedges
color 0e
CLS
echo "Welcome to my wonderous shoppe of death!"
echo a portly man exclaimed, as you entered. 
echo.
echo 'B'uy weapon
echo 'S'ell weapon
echo 'L'eave
choice /c BSL /m "What can I do for you today?"
if %errorlevel%==1 (goto bweapon)
if %errorlevel%==2 (goto sweapon)
goto town

:sweapon
CLS
if %weapon%==none (
echo You don't have anything to sell.
pause
goto hedges
)
if %weapon%==Stick (set sell=100)
if %weapon%==LargeStick (set sell=2500)
if %weapon%==Dagger (set sell=5000)
if %weapon%==Sword (set sell=25000)
if %weapon%==LongSword (set sell=50000)
if %weapon%==Axe (set sell=57000)
if %weapon%==BattleAxe (set sell=100000)
if %weapon%==none (set sell=0)
choice /c YN /m "I will buy %weapon% for %sell% gold. Ok?"
if %errorlevel%==1 (
set weapon=none
set /a gold=%gold%+%sell%
goto hedges
)
goto hedges

:bweapon
CLS
echo You see a wall covered in various weapons, each with a price tag.
echo %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mtb%%st%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur%    WEAPON             %ur% PRICE  %ur%
echo %mbr%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mt%%st%%st%%st%%st%%st%%st%%st%%st%%mbl%
echo %ur%1.) Large Stick        %ur% 5000   %ur%
echo %ur%2.) Dagger             %ur% 10000  %ur%
echo %ur%3.) Sword              %ur% 50000  %ur%
echo %ur%4.) Long Sword         %ur% 100000 %ur%
echo %ur%5.) Axe                %ur% 125000 %ur%
echo %ur%6.) Battle Axe         %ur% 200000 %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mb%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo You currently have %weapon%.
echo.
if %weapon%==none (goto buy)
echo You already have a weapon, you can't carry two!
pause
goto hedges
:buy
echo You have %gold% gold.
echo.
set buy=0
set /p buy="Which would you like to buy?"
if %buy%==1 (
set /a price=5000
set bweapon=LargeStick
set blevel=1
)
if %buy%==2 (
set /a price=10000
set bweapon=Dagger
set blevel=2
)
if %buy%==3 (
set /a price=50000
set bweapon=Sword
set blevel=3
)
if %buy%==4 (
set /a price=100000
set bweapon=LongSword
set blevel=5
)
if %buy%==5 (
set /a price=125000
set bweapon=Axe
set blevel=6
)
if %buy%==6 (
set /a price=200000
set bweapon=BattleAxe
set blevel=7
)
if %buy%==0 (goto hedges)
if %gold% LSS %price% (
echo Not enough gold!
echo.
pause
goto hedges
)
set /a weplev=%blevel%
set /a gold=%gold%-%price%
set weapon=%bweapon%
echo You take your weapon in hand, and go forth!
echo.
pause
goto hedges

:thorins
color 0b
CLS
echo A burly man and a young woman greet you at the door.
echo The woman asks how she can help you.
echo.
echo 'B'uy armor
echo 'S'ell armor
echo 'L'eave
choice /c BSL /m "Your choice?"
if %errorlevel%==1 (goto barmor)
if %errorlevel%==2 (goto sarmor)
goto town

:sarmor
CLS
if %armor%==none (
echo You don't have any armor!
pause
goto thorins
)
if %armor%==Shirt (set sell=50)
if %armor%==LightJacket (set sell=100)
if %armor%==LeatherJacket (set sell=1500)
if %armor%==ChainMesh (set sell=4500)
if %armor%==IronArmor (set sell=15000)
if %armor%==SteelArmor (set sell=50000)
if %armor%==KnightsArmor (set sell=250000)

choice /c YN /m "I will buy your %armor% for %sell% gold. Ok?"
if %errorlevel%==1 (
set armor=none
set /a gold=%gold%+%sell%
goto thorins
)
goto thorins

:barmor
CLS
echo The store is filled with amazing armor. Each has a large sign with the price.
echo %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mtb%%st%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur%    ARMOR              %ur% PRICE  %ur%
echo %mbr%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mt%%st%%st%%st%%st%%st%%st%%st%%st%%mbl%
echo %ur%1.) Light Jacket       %ur% 300    %ur%
echo %ur%2.) Leather Jacket     %ur% 2500   %ur%
echo %ur%3.) Chain Mesh         %ur% 10000  %ur%
echo %ur%4.) Iron Armor         %ur% 30000  %ur%
echo %ur%5.) Steel Armor        %ur% 100000 %ur%
echo %ur%6.) Knight's Armor     %ur% 500000 %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mb%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo You currently have %armor%.
echo.
if %armor%==none (goto abuy)
echo "You already have armor, silly!" the woman exclaims, amused.
pause
goto thorins
:abuy
echo You have %gold% gold.
echo.
set buy=0
set /p buy="Which would you like to buy?"
if %buy%==1 (
set /a price=300
set barmor=LightJacket
set bdefense=3
)
if %buy%==2 (
set /a price=2500
set barmor=LeatherJacket
set bdefense=7
)
if %buy%==3 (
set /a price=10000
set barmor=ChainMesh
set bdefense=15
)
if %buy%==4 (
set /a price=30000
set barmor=IronArmor
set bdefense=30
)
if %buy%==5 (
set /a price=100000
set barmor=SteelArmor
set bdefense=60
)
if %buy%==6 (
set /a price=500000
set barmor=KnightsArmor
set bdefense=150
)
if %buy%==0 (goto thorins)
if %gold% LSS %price% (
echo Not enough gold!
echo.
pause
goto thorins
)
set /a gold=%gold%-%price%
set armor=%barmor%
set defense=%bdefense%
CLS
echo You take your armor, and put in on.
echo.
pause
goto thorins

:clock
color 0b
set top= 
set middle= 
set bottom= 
:clockstart
CLS
set loop=6
set pm=false
echo %top%
echo %middle%
echo %bottom%
echo.
echo %date%
set top= 
set middle= 
set bottom= 
set ctime=%time:~0,2%%time:~3,2%%time:~6,2%
set str=%time:~0,2%%time:~3,2%%time:~6,2%
set n=0

set hour=%time:~0,2%

if %hour% LEQ 9 (goto am)
if %hour% LEQ 12 (goto charloop)
set /a hour=%hour%-12
set pm=true
goto charloop

:am
set loop=5

:charloop

set str=%time:~0,2%%time:~3,2%%time:~6,2%
set str=%str: =%
call set str=%%str:~%n%,1%%
set /a n=%n%+1

set top=%top% 
set middle=%middle% 
set bottom=%bottom% 

set /a math=%loop%-3
if %n%==%math% (goto hy)
set /a math=%loop%-1
if %n%==%math% (goto hy)

:returnhy
if %str%==0 (goto char0)
if %str%==1 (goto char1)
if %str%==2 (goto char2)
if %str%==3 (goto char3)
if %str%==4 (goto char4)
if %str%==5 (goto char5)
if %str%==6 (goto char6)
if %str%==7 (goto char7)
if %str%==8 (goto char8)
if %str%==9 (goto char9)
:charreturn

if %n% LSS %loop% (goto charloop)

if %pm%==false (goto setam)
set top=%top%   PM
goto timeloop

:setam
set top=%top% AM


:timeloop
set checktime=%time:~0,2%%time:~3,2%%time:~6,2%
if %ctime%==%checktime% (goto timeloop)
goto clockstart

:hy
set top=%top%  
set middle=%middle%* 
set bottom=%bottom%* 
goto returnhy

:char0
set top=%top%ÚÄ¿
set middle=%middle%³ ³
set bottom=%bottom%ÀÄÙ
goto charreturn

:char1
set top=%top%   
set middle=%middle%  ³
set bottom=%bottom%   
goto charreturn

:char2
set top=%top% Ä¿
set middle=%middle%ÚÄÙ
set bottom=%bottom%ÀÄ 
goto charreturn

:char3
set top=%top% Ä¿
set middle=%middle% ij
set bottom=%bottom% ÄÙ
goto charreturn

:char4
set top=%top%   
set middle=%middle%Àij
set bottom=%bottom%   
goto charreturn

:char5
set top=%top%ÚÄ 
set middle=%middle%ÀÄ¿
set bottom=%bottom% ÄÙ
goto charreturn

:char6
set top=%top%ÚÄ 
set middle=%middle%³Ä¿
set bottom=%bottom%ÀÄÙ
goto charreturn

:char7
set top=%top% Ä¿
set middle=%middle%  ³
set bottom=%bottom%   
goto charreturn

:char8
set top=%top%ÚÄ¿
set middle=%middle%³Ä³
set bottom=%bottom%ÀÄÙ
goto charreturn

:char9
set top=%top%ÚÄ¿
set middle=%middle%Àij
set bottom=%bottom%  Ù
goto charreturn


:bank
color 09
CLS
echo A beautiful woman is standing behind the counter. 
echo "How may I help you?" she asks.
echo.
echo A sign states that gold in the bank increases in
echo value every day. Might be worth it...
echo.
echo 'D'eposit gold
echo 'W'ithdraw gold
echo 'V'iew gold in account
echo 'L'eave
echo.
choice /c DWVL /m "Which will you do?"
if %errorlevel%==1 (goto deposit)
if %errorlevel%==2 (goto withdraw)
if %errorlevel%==3 (goto viewgold)
goto town

:viewgold
CLS
echo You have %bank% gold in the bank. You have %gold% gold in hand.
echo.
pause
goto bank
::rcaproductionmaster@gmail.com
:deposit
CLS
echo "How much would you like to deposit?" she asks.
echo.
echo There is %bank% gold in the bank, and you have %gold% in hand.
echo.
set deposit=0
set /p deposit=">"
if %deposit%==1 (
set /a bank=%bank%+%gold%
set /a gold=0
CLS
echo She gladly places all of your gold in the vault, and smiles.
echo.
pause
goto bank
)
if %gold% LSS %deposit% (
color 0c
CLS
echo "You don't have that much gold! Get out!!"
echo.
pause
goto town
)
set /a gold=%gold%-%deposit%
set /a bank=%bank%+%deposit%
CLS
echo She smiles, and puts your gold in the vault.
echo.
pause
goto bank

:withdraw
CLS
echo "How much would you like to withdraw?" she asks kindly.
echo.
echo There is %bank% gold in the bank, and you have %gold% in hand.
echo.
set withdraw=0
set /p withdraw=">"
if %withdraw%==1 (
set /a gold=%gold%+%bank%
set /a bank=0
CLS
echo She opens the vault, and gives you all of your gold...
echo.
pause
goto bank
)
if %bank% LSS %withdraw% (
color 0c
CLS
echo "You don't have that much gold! Get out!!"
echo.
pause
goto town
)
set /a bank=%bank%-%withdraw%
set /a gold=%gold%+%withdraw%
CLS
echo She opens the vault, and gives you your gold.
echo.
pause
goto bank

:inn
color 84
CLS
echo A slender young man meets you at the door, and welcomes you!
echo.
echo The room is dark, lit by old lamps. Many people sit at tables
echo around the room, talking, eating, and drinking. The bar has a
echo few open seats. In the corner, a lyre is being played.
echo.
echo 'B'ar
echo 'G'et a room
echo 'T'alk with other patrons
echo 'S'tand in the corner
echo 'L'eave
echo.
choice /c BGTSCL /m "Where are you going?"
if %errorlevel%==1 (goto ib)
if %errorlevel%==2 (goto ir)
if %errorlevel%==3 (goto it)
if %errorlevel%==4 (goto is)
if %errorlevel%==5 (goto clock)
goto town
:ib
if %barg%==true (
CLS
echo You've already been to the bar today.
echo.
pause
goto inn)
CLS
echo The bartender slides over to you. 
echo.
echo "What's yer poison today?" he asks in a gruff voice.
echo.
echo 'R'um
echo 'W'ine
echo 'A'le
echo 'J'ust here for water
echo 'G'et away from the bar
echo.
choice /c RWAJG /n /m "Well?"
if %errorlevel%==1 (goto rum)
if %errorlevel%==2 (goto wine)
if %errorlevel%==3 (goto ale)
if %errorlevel%==4 (goto water)
if %errorlevel%==5 (goto inn)
:rum
set /a gold=%gold%-10
set /a health=%health%-1
if %health% LEQ 0 (goto lose)
CLS
echo You owe the bartender 10 gold.
echo.
echo He hands you your rum, and you drink it heartily.
echo.
echo You lose 1 health, but it's worth it.
echo.
echo You get wasted, and pass out...
echo.
pause
CLS
ATTRIB -H settings.meow
ATTRIB -R settings.meow
if %errorlevel%==2 (goto town)
(
echo %user% 
echo %gen%
echo %gold%
echo %health%
echo %weapon%
echo %level%
echo %kills%
echo %armor%
echo %defense%
echo %bank%
echo %kiss%
echo %weplev%
echo %date%
)>settings.meow
ATTRIB +R settings.meow
ATTRIB +H settings.meow
echo Don't worry, your game is saved.
echo.
pause
exit
:wine
set /a gold=%gold%-100
set /a health=%health%+5
CLS
echo You owe the bartender 100 gold.
echo.
echo He gives you a large goblet of wine, and half a
echo loaf of bread. You are refreshed.
echo.
pause
CLS
set barg=true
echo You sit at the bar for a while, then leave.
echo.
pause
goto inn
:ale
CLS
echo You owe the bartender 50 gold.
echo.
echo You feel a bit weak, and lose a health.
echo.
pause
set barg=true
goto inn
:water
CLS
echo The bartender asks for only 1 gold.
echo.
echo You feel more at home.
echo.
pause
goto inn

:ir
CLS
echo You go to the innkeeper, and ask for a room.
echo.
echo "A room'll cost ya 250 gold."
echo.
echo 'B'uy a room, and go to sleep
echo 'L'eave
echo.
choice /c BL /n /m ">"
if %errorlevel%==2 (goto inn)
set /a gold=%gold%-250
set /a health=%health%+30
ATTRIB -H settings.meow
ATTRIB -R settings.meow
if %errorlevel%==2 (goto town)
(
echo %user% 
echo %gen%
echo %gold%
echo %health%
echo %weapon%
echo %level%
echo %kills%
echo %armor%
echo %defense%
echo %bank%
echo %kiss%
echo %weplev%
echo %date%
)>settings.meow
ATTRIB +R settings.meow
ATTRIB +H settings.meow
CLS
echo You drift to sleep...
echo.
echo Your progress is saved, and you become refreshed.
echo.
pause
exit

:it
CLS
echo 'B'art the Barbarian
echo 'R'onald the Crazy
echo 'O'ld Man
echo 'G'amblers
echo 'L'eave
choice /c BROGL /n /m "Who do you want to talk with?"
CLS
if %errorlevel%==1 (
echo You walk up to Bart, and say hello. He responds gruffly,
echo.
echo "Whuts yur bizness here?"
echo.
echo "Well, I just wanted to talk..."
echo.
echo "Not hear to kill meh?"
echo.
echo "No..."
echo.
echo "Well, in dat case, I have a tid ov abvise fur ya. If ya
echo relly want tu find yur fame, slay da dra...g...nnnnnnmmf"
echo he responded, and then passed out from his rum.
echo.
pause
goto inn
)
if %errorlevel%==2 (
echo You wearily approach the nutjob. He sees you before you have a chance to 
echo say hello.
echo.
echo "AYYYYY! YOU THERE!!!" he yelled.
echo "AYEEEEEE SEE YOU!"
echo.
echo "Uh... Hello?"
echo.
echo "HAHAHAHA!"
echo.
echo "..."
echo.
echo "Better leave the fairies ALONE! HAHAHA!!"
echo.
echo With that, you decided to leave.
echo.
pause
goto inn
)
if %errorlevel%==3 (
echo You say hello to the old man.
echo.
echo "Ohhhh... Hello there little child..." he mumbled.
echo "Heeeeere, have a peanut... If you find one, you'll be rich..."
echo.
echo A little creeped out, you leave.
echo.
pause
goto inn
)
if %errorlevel%==4 (goto betting)

:betting
CLS
echo 'A'strology Betting
echo 'D'ice
echo 'G'uess the Queen
echo 'R'eturn to inn
choice /c ADGR /n /m ">"
if %errorlevel%==1 (goto astrologybetting)
if %errorlevel%==2 (goto dice)
if %errorlevel%==4 (goto inn)
if %errorlevel%==3 (goto guessthequeen)

:guessthequeen

:q1
color 0f
cls
echo        ############### Guess the Queen ############### 
echo.
echo RULES: In this game you may bet up to 1,000 gold.
echo        3 cards will be delt, containing 2 Aces and 
echo        1 Queen. Pick a card, then one of the aces will
echo        be revealed. You then have the choice to keep your
echo        card or switch your card. If you lose, you will 
echo        lose your wager and an additional 50 percent of 
echo        your wager. If you win you will get all of the 
echo        wager back, and an additional 50 percent of 
echo        your wager.
echo.

:choiceq
choice /m "Do you want to play?"
if %errorlevel%==2 (goto inn)
if %errorlevel%==1 (goto playqueen)

:playqueen
CLS
set wagerq=0
echo You have %gold% gold.
echo.
set /p wagerq="Your Wager>"
CLS
if %wagerq% GTR %gold% (goto nomoney)
if %wagerq% LEQ 0 (goto zeromoney)
goto dabet

:nomoney
echo You ain't got that much money!
echo You can still bet this, but if you lose the 
echo gamblers won't like it, so be WARNED.
echo.
choice /m "Do you want still want to bet this?" 
if %errorlevel%==2 (goto choiceq)
if %errorlevel%==1 (goto dabet)

:zeromoney
echo Gamblers do not appreciate this.
echo.
echo The Gamblers beat you up and you lose one health!
echo They then take all your money!
pause 
set /a gold=%gold%-%gold%
set /a health=%health%-1
goto inn

:dabet
set /a ranchoice=%RANDOM% * 3 / 32767 +1
set /a realcard=%RANDOM% * 3 / 32767
if %realcard%==0 (set /a realcard=0)
if %realcard%==1 (set /a realcard=1)
if %realcard%==2 (set /a realcard=2)
set /a fakecard1=%realcard%-1
set /a fakecard2=%realcard%-2
if %fakecard1% LSS 0 (set /a fakecard1=%fakecard1% * -1)
if %fakecard2% LSS 0 (set /a fakecard2=%fakecard2% * -1)
echo Which card?
echo  0      1      2 
echo  _      _      _
echo ! !    ! !    ! !
echo !_!    !_!    !_!	
set /p unum="Your choice:"
CLS
goto checkq

:checkq
if %unum% GTR 2 (goto zeromoney)
if %unum% LSS 0 (goto zeromoney)
CLS
goto cards

:cards
if %unum%==%realcard% (goto rand1)
if NOT %unum%==%realcard% (goto rand2)

:rand1
if %ranchoice%==1 (goto fake1)
if NOT %ranchoice%==1 (goto fake2)

:fake1
echo %fakecard1% is an Ace
echo  0      1      2 
echo  _      _      _
echo ! !    ! !    ! !
echo !_!    !_!    !_!
echo.
goto cq

:fake2
echo %fakecard2% is an Ace
echo  0      1      2 
echo  _      _      _
echo ! !    ! !    ! !
echo !_!    !_!    !_!
echo.
goto cq

:rand2
if NOT %unum%==%fakecard1% (goto fake3)
if %unum%==%fakecard1% (goto fake4)

:fake3
echo %fakecard1% is an Ace
echo  0      1      2 
echo  _      _      _
echo ! !    ! !    ! !
echo !_!    !_!    !_!
echo.
goto cq
	
:fake4
echo %fakecard2% is an Ace
echo  0      1      2 
echo  _      _      _
echo ! !    ! !    ! !
echo !_!    !_!    !_!
echo.
goto cq

:cq
choice /m "Do you wish to change your card?"
if %errorlevel%==2 (goto nodeal)
if %errorlevel%==1 (goto deal)

:nodeal
echo .
if %realcard%==%unum% (goto winq)
if NOT %realcard%==%unum% (goto loseq) 

:deal
echo.
echo Your current card is %unum%.
echo.
set /p unum="Which card would you like to change to?"
if %realcard%==%unum% (goto winq)
if NOT %realcard%==%unum% (goto loseq) 

:winq
cls
set /a winamount=%wagerq% + (%wagerq% / 2 )
echo YAY! You WON!
echo Your wager was %wagerq%!
echo You won %winamount%!
echo You have %gold% gold
echo.
if %winamount%==1500 (goto zeromoney)
set /a gold=%gold% + %winamount%
choice /m "Play Again?"
if %errorlevel%==2 (goto inn)
if %errorlevel%==1 (goto q1)

:loseq
cls
set /a loseamount=%wagerq% + (%wagerq% / 2 )
set /a gold=%gold% - %loseamount%
if %gold% LSS 0 (goto yodead)
echo You lost! 
echo Better Luck next time!
echo The real card was %realcard%
echo You lost %loseamount% gold
echo You have %gold% gold
choice /m "Play Again?"
if %errorlevel%==2 (goto inn)
if %errorlevel%==1 (goto q1)

:yodead
echo The gamblers do not appreciate being bet money you don't have.
echo Not Cool
echo .
goto zeromoney


:dice
color 5e
set win1=false
set win2=false
CLS
echo                  $  $ -*{ Welcome to DICE version 1.0! }*- $  $
echo.
echo RULES: There are two dice. You may wage up
echo        to 5000 gold. After you place your
echo        gold, you must pick two numbers, 1-6.
echo        You will roll the dice, and if the 
echo        numbers match, you will triple your
echo        wager. However, if only one matches,
echo        you will only double your wager.
echo        If you get both wrong, you lose your
echo        wager.
echo.
echo 'L'eave
echo 'G'amble
choice /c LG /n /m ">"
if %errorlevel%==1 (goto inn)
CLS
set num1=0
set num2=0
set bet=0
echo You have %gold% gold.
echo.
set /p bet="Wager.........>"
if %bet% GTR 5000 (
CLS
echo That is an illegal move!
echo.
pause
goto town)
set /p num1="Number 1 [1-6]>"
set /p num2="Number 2 [1-6]>"
echo.

set /a die1=%random%*6/32767+1
set /a die2=%random%*6/32767+1

set return=return1
if %die1%==1 (goto dice1)
if %die1%==2 (goto dice2)
if %die1%==3 (goto dice3)
if %die1%==4 (goto dice4)
if %die1%==5 (goto dice5)
if %die1%==6 (goto dice6)
:return1
echo.
set return=return2
if %die2%==1 (goto dice1)
if %die2%==2 (goto dice2)
if %die2%==3 (goto dice3)
if %die2%==4 (goto dice4)
if %die2%==5 (goto dice5)
if %die2%==6 (goto dice6)
:return2
echo.

if %die1% EQU %num1% (goto win1)
:win1o
if %die2% EQU %num2% (goto win2)
:win2o
if %win1% EQU %win2% (goto dicelose)
echo.
pause
goto dice


pause
goto dice

:dicelose
echo You lose.
set /a gold=%gold%-%bet%
echo.
pause
goto dice

:bwin
echo You won both!
set /a gold=%gold%+%bet%+%bet%
echo.
pause
goto dice

:win1
echo You won die 1!
set win1=true
set /a gold=%gold%+%bet%
goto win1o

:win2
set win2=true
if %win1% EQU %win2% (goto bwin)
echo You won die 2!
set /a gold=%gold%+%bet%
goto win2o

:dice1
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur%       %ur%
echo %ur%   *   %ur% 
echo %ur%       %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice2
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur% *     %ur%
echo %ur%       %ur% 
echo %ur%     * %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice3
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur% *     %ur%
echo %ur%   *   %ur% 
echo %ur%     * %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice4
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur% *   * %ur%
echo %ur%       %ur% 
echo %ur% *   * %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice5
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur% *   * %ur%
echo %ur%   *   %ur% 
echo %ur% *   * %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice6
echo %lt%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur% *   * %ur%
echo %ur% *   * %ur% 
echo %ur% *   * %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%rb%
goto %return%
:dice6

:astrologybetting
color 75
set number0=NA
set number1=NA
set number2=NA
set number3=NA
set number4=NA
set /a n=0
set /a m=0
CLS
echo                   %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rt%
echo                    Welcome to ASTROLOGY BETTING version 1.1!
echo                   %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo RULES: There are 3 other gamblers. Each has only 1 guess.
echo        You begin with 5 guesses. Each 10 gold you wager,
echo        you will lose one of your guesses, until you only
echo        have one left. This means you will always have at 
echo        least one guess. There is no limit to the amount
echo        that you can wager.
echo.
echo 'P'lay
echo 'L'eave
choice /c PL /n /m ">"
if %errorlevel%==2 (goto inn)
CLS
echo How much do you wish to wager? You have %gold% gold.
echo.
set bet=0
set /p bet=">"
if %bet% GTR %gold% (goto toohighbet)
set /a guessamount=%bet%/10
set /a guessamount=5-%guessamount%
if %guessamount% LEQ 0 (goto resetguesses)
goto skipreset

:resetguesses
set /a guessamount=1

:skipreset

set /a origguess=%guessamount%

:guessagain
CLS
echo You have %guessamount%/5 guesses left!
echo.
echo Guess 1: %number0%
echo Guess 2: %number1%
echo Guess 3: %number2%
echo Guess 4: %number3%
echo Guess 5: %number4%
echo.
echo Pick a number between 0 and 1000!
echo.
set /p number%n%=">"

set /a n=%n%+1
set /a guessamount=%guessamount%-1
if %guessamount% GTR 0 (goto guessagain)
set /a n=0

CLS

set /a realnum=%random%*999/32767+1
set /a othernum0=%random%*1000/32767
set /a othernum1=%random%*1000/32767
set /a othernum2=%random%*1000/32767

echo Guess 1: %number0%
echo Guess 2: %number1%
echo Guess 3: %number2%
echo Guess 4: %number3%
echo Guess 5: %number4%
echo Real Number : %realnum%
echo Computer    : %othernum0%
echo Computer    : %othernum1%
echo Computer    : %othernum2%

set /a n=0
set /a m=0

set /a origg=%origguess%

::::::::::::::::::::::::::::CALC LOOP:::::::::::::::::::::::::::::
:calculationloop

set number=number%n%

call set /a number=%%number%%
set /a math=%realnum%-%number%
set /a math=%math%*%math%
set /a number%n%=%math%

set /a n=%n%+1
set /a origg=%origg%-1
if %origg% GTR 0 (goto calculationloop)

set /a origg=3

:calculationloop2

set othernum=othernum%m%

call set /a othernum=%%othernum%%
set /a math=%realnum%-%othernum%
set /a math=%math%*%math%
set /a othernum%m%=%math%

set /a m=%m%+1
set /a origg=%origg%-1
if %origg% GTR 0 (goto calculationloop2)

:::::::::::::::::::::::::::::::END OF CALC LP::::::::::::::::::::::::::

set /a n=0
set /a m=0
set /a ltotal=0
set /a wtotal=0
set /a origg=%origguess%-1

::::::::::::::::::::::::CHECK LOOP::::::::::::::::::::::::::::

:checkloop

set number=number%n%
set othernumber=othernum%m%

call set /a numberr=%%number%%
call set /a othernumberr=%%othernumber%%

if %numberr% LSS %othernumberr% (goto winner)
:returnwinner

if %othernumberr% LSS %numberr% (goto loser)
:returnloser

set /a m=%m%+1
if %m% LSS 3 (goto checkloop)

if %origg% LEQ 0 (goto endofcheckloop)
set /a origg=%origg%-1

set /a m=0
set /a n=%n%+1
if %n% LSS 5 (goto checkloop)

:endofcheckloop

::::::::::::::::::::::::END CHK LP:::::::::::::::::::::::::::::

set /a wtotal=%wtotal%/%origguess%
set /a ltotal=%ltotal%/3
set /a finalresult=%wtotal%-%ltotal%
CLS
if %finalresult% LSS 0 (goto win)

echo You lose!
echo.
echo The real number was %realnum%. The other betters were closer.
echo.
echo You lost %bet% gold.
echo.
set /a gold=%gold%-%bet%
pause
goto astrologybetting
:win
echo You win!
echo.
echo You gain %bet% gold!
echo.
set /a gold=%gold%+%bet%
pause
goto astrologybetting

:winner
set /a wtotal=%wtotal%+%numberr%
goto returnwinner

:loser
set /a ltotal=%ltotal%+%othernumberr%
goto returnloser

:toohighbet
echo You can't bet more than you have!
pause
goto astrologybetting

:is

CLS
echo You stand in the corner, and watch.
echo.
echo A few men at a small round table are gambling, an
echo old woman sits in the opposite corner, and several
echo people sit at the bar. 
echo.
echo 'G'amble
echo 'K'eep looking
echo 'R'eturn
choice /c GKR /n /m ">"
if %errorlevel%==1 (goto astrologybetting)
if %errorlevel%==3 (goto inn)
CLS
if %gen%==M (goto mi)
echo Behind the gamblers, you see a young attractive man.
echo.
echo 'T'alk to him
echo 'F'orget it
choice /c TF /n /m "What are you going to do?"
if %errorlevel%==1 (goto ftalk)
goto inn
:ftalk
CLS
echo You walk up to him, and he smiles.
echo.
echo 'T'alk
echo 'F'lirt
echo 'W'alk away
choice /c TFW /n /m "He gazes expectingly..."
if %errorlevel%==1 (goto ftalkk)
if %errorlevel%==2 (goto laid)
goto inn
:ftalkk
set /a health=%health%+1
CLS
echo You talk for a while, and get a kiss. Your relationship 
echo is taking off!
echo.
pause
goto inn

:mi
echo Behind the gamblers, you see an attractive young woman.
echo.
echo 'T'alk to her
echo 'F'orget it
choice /c TF /n /m "What are you going to do?"
if %errorlevel%==1 (goto mtalk)
goto inn
:mtalk
CLS
echo You walk up to her, and she smiles.
echo.
echo 'T'alk
echo 'F'lirt
echo 'W'alk away
choice /c TFW /n /m "She gazes expectingly..."
if %errorlevel%==1 (goto mtalkk)
if %errorlevel%==2 (goto laid)
goto inn
:mtalkk
set /a health=%health%+1
CLS
echo You talk for a while, and get a kiss. Your relationship 
echo is taking off!
echo.
pause
goto inn


:laid
color 0d
set /a health=%health%+10
CLS
echo The two of you flirt for a while, then sneak off to a room...
echo.
pause
CLS
echo You just got laid! Congrats!
echo.
echo You feel great.
echo.
pause
goto inn

:arena
if %level% GTR 6 (goto arenachecked)
set /a math=%level%*10+20
if %health% GTR %math% (set /a health=%math%)
:arenachecked
if %health% LEQ 0 (goto lose)
CLS
echo A small sign states that if you win a battle, your
echo level increases.
echo.
echo 'F'ight
echo 'R'eturn to forest
choice /c FR /m "Beware."
if %errorlevel%==2 (goto forest)
CLS
set firstfight=true

if %level%==0 (goto level0)
if %level%==1 (goto level1)
if %level%==2 (goto level2)
if %level%==3 (goto level3)
if %level%==4 (goto level4)
if %level%==5 (goto level5)
if %level%==6 (goto level6)
if %level%==7 (goto level7)

:level0
set enemy=Zoidberg
set ehealth=40
set /a tough=22
set /a eattack=15-%defense%
set /a elow=5
set ewep=his Claws
set bonus=10000
goto afight

:level1
set enemy=Mr. Gordon
set ehealth=72
set /a tough=26
set /a eattack=30-%defense%
set /a elow=10
set ewep=his Gun
set bonus=15000
goto afight

:level2
set enemy=Richard Nixon
set ehealth=150
set /a tough=40+(5*%level%)
set /a eattack=60-%defense%
set /a elow=10
set ewep=Scandals
set bonus=30000
goto afight

:level3
set enemy=Cyclops
set ehealth=200
set /a tough=50+(5*%level%)
set /a eattack=60-%defense%
set /a elow=13
set ewep=Big Bat
set bonus=100000
goto afight

:level4
set enemy=Rogneck The Terrible
set ehealth=225
set /a tough=50+(5*%level%)
set /a eattack=60-%defense%
set /a elow=25
set ewep=his Massive Sword
set bonus=105000
goto afight

:level5
set enemy=Bongledor
set ehealth=250
set /a tough=50+(5*%level%)
set /a eattack=60-%defense%
set /a elow=30
set ewep=his Giant Bong
set bonus=150000
goto afight

:level6
set enemy=Hitler
set ehealth=500
set /a tough=50+(5*%level%)
set /a eattack=70-%defense%
set /a elow=15
set ewep=Gas
set bonus=205000
goto afight

:level7
set enemy=Eskibar
set ehealth=600
set /a tough=50+(5*%level%)
set /a eattack=80-%defense%
set /a elow=50
set ewep=his Giant Mandables
set bonus=300000
goto afight

:afight
CLS
echo Computing...

set myString=%health%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe jhgfjhsa

set myString=%ehealth%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe1 jhgfjhsa

set myString=%enemy%A
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=21-%jhgfjhsa%
call :extrachar extrahe2 jhgfjhsa

set myString=%defense%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe3 jhgfjhsa

set myString=%tough%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe4 jhgfjhsa

set myString=%weapon%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe5 jhgfjhsa

set myString=%bonus%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe6 jhgfjhsa

CLS
if %indeath%==1 (goto lose)
if %firstfight%==false (goto lkhff)
set firstfight=false
echo You see %enemy% lurking in the corner of the arena...
echo.
:lkhff
echo %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%btt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rt%
echo %ur%You:                %tp%%enemy%:%extrahe2%%ur%
echo %mbr%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%×%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mbl%
echo %ur%Health :%health%%extrahe%%tp%Health :%ehealth%%extrahe1%%ur%
echo %ur%Defense:%defense%%extrahe3%%tp%Tough  :%tough%%extrahe4%%ur%
echo %ur%Weapon :%weapon%%extrahe5%%tp%Bonus  :%bonus%%extrahe6%%ur%
echo %ur%                    %tp%                    %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%Ð%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo 'A'ttack
echo 'R'un
choice /c AR /m "Your choice?"
if %errorlevel%==2 (goto arena)
CLS
set /a damage=%random% * %tough% / 32767 +%level%+(%weplev%*2)
echo You attack %enemy% with your %weapon% and hit with %damage% damage!
set /a ehealth=%ehealth%-%damage%
echo.
set /a edamage=%random%*%eattack%/32767+%elow%-%level%
if %edamage% LEQ 0 (set /a edamage=0)
echo %enemy% hit you with %ewep% for %edamage% damage!
set /a health=%health%-%edamage%
echo.
pause
if %health% LEQ 0 (goto lose)
if %ehealth% LEQ 0 (goto levelup)
goto afight

:levelup
CLS
echo %enemy% lies dead in the dust of another long fight.
echo.
set /a gain=%random%*500/32767+%bonus%
echo You recieve %gain% gold!
set /a gold=%gold%+%gain%
echo.
set /a kills=%kills%+1
set /a level=%level%+1
pause
goto forest




::::::::::::::FOREST ENEMIES:::::::::::::::
::enemy    : Set enemy name
::ehealth  : Set enemy health
::tough    : Set max value that enemy can be hit with
::eattack  : Set max value enemy can attack with (Minus your defense value)
::elow     : Set minimum value enemy can attack with (Minus your defense value)
::ewep     : Enemy weapon name
::bonus    : Set a specific money bonus (Minimum amount to be given)
:::::::::::::::::::::::::::::::::::::::::::

set enemy=
set ehealth=
set /a tough=+(5*%level%)
set /a eattack=-%defense%
set /a elow=
set ewep=
set bonus=
goto fight

set /a math=%random%*3/32767
if %math% LSS 1 (goto event)

:rat
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Rat
set ehealth=4
set /a tough=3+(5*%level%)
set /a eattack=2-%defense%
set /a elow=0-%defense%
set ewep=its sewage-soaked fur
set bonus=1
goto fight

:fatkid
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Fat Kid
set ehealth=5
set /a tough=6+(5*%level%)
set /a eattack=4-%defense%
set /a elow=2-%defense%
set ewep=her extreme flatulence
set bonus=50
goto fight

:oldman
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Old Man
set ehealth=5
set /a tough=7+%level%
set /a eattack=3-%defense%
set /a elow=0-%defense%
set ewep=his old cane
set bonus=200
goto fight

:hark
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Hark
set ehealth=22
set /a tough=7+(5*%level%)
set /a eattack=7-%defense%
set /a elow=2-%defense%
set ewep=his huge muscles
set bonus=500
goto fight

:hcat
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Heavy Cat
set ehealth=6
set /a tough=7+(5*%level%)
set /a eattack=5-%defense%
set /a elow=1-%defense%
set ewep=its awkward belly
set bonus=12
goto fight

:pig
set enemy=Pig
set ehealth=17
set /a tough=3+(5*%level%)
set /a eattack=20-%defense%
set /a elow=1
set ewep=its big nose
set bonus=5
goto fight 
:::rcaproductionmaster@gmail.com
:sbear
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Small Bear
set ehealth=21
set /a tough=2+(5*%level%)
set /a eattack=25-%defense%
set /a elow=3
set ewep=its teeth and claws
set bonus=100
goto fight

:evilk
set enemy=Evil Child
set ehealth=23
set /a tough=4+(5*%level%)
set /a eattack=25-%defense%
set /a elow=2-%defense%
set ewep=his devil worshipping
set bonus=270
goto fight

:fairy
CLS
echo You come across a hidden clearing, filled with fairies.
echo You step into the open, and you are immediately scolded
echo for spying!
echo.
echo One of the smaller fairies comes up to, curiously. 
echo She examines you, but you are unsure what to do.
echo You may either 'G'o on your way, or 'S'tay a while.
echo.
choice /c GS
set /a stay=2
if %errorlevel%==1 (goto trueee)
set /a stay=1
:trueee
set /a math=%random%*(%stay%+1)/32767
if %math% GTR 0 (goto blessing)
echo The fairies are mad, and take 5 of your health! 
echo They then disappear laughing, leaving you in a bad mood.
set /a health=%health%-5
echo. 
pause
if %health% LEQ 0 (goto lose)
goto forest
:blessing
set /a gift=%random%*6/32767+1
echo The fairies take a liking to you, and award you with %gift% health.
set /a health=%health%+%gift%
echo.
pause
goto forest

:event
set /a math=%random%*6/32767+1
if %math%==1 (goto edwarf)
if %math%==2 (goto tavern)
if %math%==3 (goto liz)
if %math%==4 (goto ancientbook)
if %math%==5 (goto eoldman)
if %math%==6 (goto emoneyforest)
goto forest

:eoldman
CLS
set /a health=%health%+1
echo An old man ambushes you!
echo.
echo Old man hits you with a jar of olives!
echo.
echo Before you can hit him back, he disappears!
echo.
echo You gain 1 health!
echo.
pause
goto forest

:emoneyforest
CLS
set /a math=%random%*500/32767
echo You find a sack of %math% gold!
set /a gold=%gold%+%math%
echo.
pause
goto forest

echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo 
echo.
pause
CLS

:ancientbook
color 27
CLS
echo !        /\         /\    /\
echo !          !          !     !_________
echo !          !          !     !
echo !          !          !     !
echo !          !          !     !
echo !          !       _  !     !
echo !          !   ___/   !     !
echo !          !__/       !     !
echo !    @     !    @@    !     !
echo !    @     !           \/   !_________
echo.
echo ---------------------------------------
echo ---------------------------------------
echo.
echo THE COMPLETE CHRONICLES OF LEGEND $$$$$
echo.
echo.
echo H. J. ROCKWELL
echo.
echo.
echo.
echo ---------------------------------------
echo.
pause
CLS


:edwarf
CLS
echo A portly, and well armed, dwarf walks into you!
echo "Sorrae der sir, I'll be on ma way now..." he says.
echo You suddenly realize you lost one health!
set /a health=%health%-1
echo.
if %health% LEQ 0 (goto lose)
pause
goto forest

:tavern
set /a health=%health%+10
CLS
echo You see a whisp of white smoke, coming from through the woods.
echo You walk towards it, and come across a charming old tavern.
echo It is made of stone, and has a beautiful garden surrounding
echo it's gates.
echo.
echo You stop in, and gain a few health.
echo.
echo 'S'tay a bit longer
echo 'C'ontinue on your quest
echo 'W'ait here
choice /c SCW /n /m "What now?"
if %errorlevel%==1 (goto tavernstay)
if %errorlevel%==3 (goto tavernwait)
goto forest
:tavernstay
CLS
color 5f
echo You stay for a little while. An old man at the bar
echo is talking. 
echo.
echo 'L'isten
echo 'G'o on your way
choice /c LG /n /m "Well?"
color 0a
if %errorlevel%==2 (goto forest)
CLS
color 5f
echo He is talking to himself, as he leans on the bar near
echo the fire.
echo.
echo "Ah, yes... Instead of login, I said m, then Lindsey, 
echo and finally I had a beer with a vegetable... She told me
echo a secret, so dear! Ah! You! Do as I have done! Remember,
echo m, Lindsey, and then..." he trailed off.
echo.
pause
color 0a
goto forest
:tavernwait
CLS
set /a math=%random%*3/32767
if %math% LSS 1 (goto extrahealth)
echo You wait a while. Not much happens.
echo.
pause
goto forest
:extrahealth
set /a health=%health%+3
CLS
echo You gain three health!
echo.
pause
goto forest


:liz
color 0d
CLS
echo You hear moaning, coming from behind a grove of trees...
echo.
echo 'I'nvestigate
echo 'B'e smart and run away
choice /c IB
if %errorlevel%==2 (
color 0a
CLS
goto forest)
CLS
echo You find your way through the trees, and see the opening to a large cave...
echo The demonic moaning is louder than ever!
echo.
echo 'E'nter the cave
echo 'D'ecide to not be an idiot, and run away!
choice /c ED
if %errorlevel%==2 (
color 0a
CLS
goto forest)
CLS
echo You enter the cave, and the sounds stop!
echo.
echo In the corner, you see a young woman. She is chained to the
echo wall, bloody. Upon further inspection, a vulture has been 
echo knawing on her leg.
echo.
echo 'S'tab her
echo 'K'ick the vulture
choice /c SK /m "Be smart "
if %errorlevel%==1 (
echo You stab her with a stick, and run away. She swears at you,
echo and sets a curse upon you! You will be doomed to die
echo in your next fight!
echo.
pause
set indeath=1
color 0a
CLS
goto forest)
CLS
echo You kick the vulture, and she immediately begins to heal.
echo "Who are you?" she implores.
echo.
echo 'R'espond
echo 'Y'ell at her for being stupid
echo.
choice /c RY
if %errorlevel%==2 (
echo You wake up, remember screeching, but nothing else.
echo Better continue on then. Stupid Ale!
::::rcaproductionmaster@gmail.com
echo.
pause
color 0a
goto forest)
CLS
echo "I am a warrior, seeking fame and fortune. Who are you?"
echo.
echo She responds, "I am Liz, you stupid fool!"
echo.
echo "What a silly name!"
echo.
echo 'K'iss her
echo 'R'un away from this madwoman!
choice /c KR
if %errorlevel%==2 (
color 0a
CLS
goto forest)

if %kiss%==1 (goto lizkiss)
set /a kiss=1
set /a health=%health%-1
CLS
echo She yells at you, and you lose one health!
echo.
pause
if %health% LEQ 0 (goto lose)
ATTRIB -H settings.meow
ATTRIB -R settings.meow
(
echo %user% 
echo %gen%
echo %gold%
echo %health%
echo %weapon%
echo %level%
echo %kills%
echo %armor%
echo %defense%
echo %bank%
echo %kiss%
echo %weplev%
echo %date%
)>settings.meow
ATTRIB +R settings.meow
ATTRIB +H settings.meow
color 0a
goto forest

:lizkiss
set /a math=%random%*2/32767+1
if %math% LEQ 1 (
CLS
echo She isn't too happy with you today.
echo.
echo She tells you to leave before she kills you.
echo.
pause
color 0a
goto forest)
set /a health=%health%+50
CLS
echo Since your last kiss, she has come to like you...
echo You gain 50 health!
echo.
echo "Keep this color for a while, to remember me..."
pause
goto forest


:sentienttree
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=The Sentient Tree sentree
set ehealth=41
set /a tough=5+(5*%level%)
set /a eattack=24-%defense%
set /a elow=6
set ewep=his rude words
set bonus=0
goto fight

:smellycouch
set enemy=Smelly Couch
set ehealth=43
set /a tough=12+(5*%level%)
set /a eattack=32-%defense%
set /a elow=8
set ewep=its terribleness
set bonus=0
goto fight

:crazyman
set enemy=Crazy Dude
set ehealth=27
set /a tough=5+(5*%level%)
set /a eattack=40-%defense%
set /a elow=4
set ewep=his insane dancing
set bonus=200
goto fight

:polititian
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Politition
set ehealth=27
set /a tough=6+(5*%level%)
set /a eattack=43-%defense%
set /a elow=5
set ewep=red tape
set bonus=5000
goto fight

:knight
set enemy=Knight
set ehealth=50
set /a tough=10+(5*%level%)
set /a eattack=70-%defense%
set /a elow=10
set ewep=his Long Sword
set bonus=2500
goto fight

:dwarf
set /a math=%random%*3/32767
if %math% LSS 1 (goto event)
set enemy=Dwarf
set ehealth=50
set /a tough=17+(5*%level%)
set /a eattack=78-%defense%
set /a elow=6
set ewep=his small battle axe
set bonus=700
goto fight

:drunkensoldier
set enemy=Drunken Soldier
set ehealth=19
set /a tough=19+(5*%level%)
set /a eattack=71-%defense%
set /a elow=9
set ewep=ale bottles
set bonus=400
goto fight

:witch
set enemy=Witch
set ehealth=50
set /a tough=12+(5*%level%)
set /a eattack=75-%defense%
set /a elow=10
set ewep=her witchcraft
set bonus=570
goto fight

:snake
set enemy=Snake
set ehealth=34
set /a tough=20+(5*%level%)
set /a eattack=160-%defense%
set /a elow=5
set ewep=its venom
set bonus=0
goto fight

:zork
set enemy=Zork
set ehealth=52
set /a tough=10+(5*%level%)
set /a eattack=172-%defense%
set /a elow=4
set ewep=Broad Sword
set bonus=5100
goto fight

:teddyroosevelt
set enemy=Teddy Roosevelt
set ehealth=150
set /a tough=5+(5*%level%)
set /a eattack=190-%defense%
set /a elow=23
set ewep=Moose Riding
set bonus=10000
goto fight

:wakingup
set enemy=Waking Up
set ehealth=32
set /a tough=10+(5*%level%)
set /a eattack=161-%defense%
set /a elow=10
set ewep=awful morning light
set bonus=0
goto fight

:pillowcase
set enemy=Pillowcase
set ehealth=47
set /a tough=47+(5*%level%)
set /a eattack=167-%defense%
set /a elow=5
set ewep=pillowcaseyness
set bonus=25
goto fight

:kingarthur
set enemy=King Arthur
set ehealth=100
set /a tough=10+(5*%level%)
set /a eattack=170-%defense%
set /a elow=5
set ewep=Excaliber
set bonus=10500
goto fight

:bucketofwater
set enemy=Bucket Of Water
set ehealth=89
set /a tough=89+(5*%level%)
set /a eattack=182-%defense%
set /a elow=4
set ewep=wetness
set bonus=25
goto fight

:internetexplorer
set enemy=Internet Explorer
set ehealth=100
set /a tough=50+(5*%level%)
set /a eattack=25
set /a elow=5
set ewep=it's slow speeds
set bonus=10000
goto fight

:wizard
set enemy=wizard
set ehealth=132
set /a tough=20+(5*%level%)
set /a eattack=32
set /a elow=13
set ewep=his Staff of Light
set bonus=12500
goto fight

:darkwizardoftheeast
set enemy=Dark Wiz of the East
set ehealth=154
set /a tough=19+(5*%level%)
set /a eattack=37
set /a elow=15
set ewep=his Staff of Evil
set bonus=12432
goto fight

:elf
set enemy=Elf
set ehealth=60
set /a tough=0+(5*%level%)
set /a eattack=25
set /a elow=5
set ewep=her small elven sword
set bonus=50
goto fight

:rokoroztheterrible
set enemy=Rokoroz The Terrible
set ehealth=200
set /a tough=100+(5*%level%)
set /a eattack=42
set /a elow=1
set ewep=his Massive Sword
set bonus=8943
goto fight

:buffgerman
set enemy=Buff German
set ehealth=88
set /a tough=0+(5*%level%)
set /a eattack=23
set /a elow=13
set ewep=his Luger
set bonus=15000
goto fight

:nobleofdragostea
set enemy=Noble of Dragostea
set ehealth=203
set /a tough=0+(5*%level%)
set /a eattack=52
set /a elow=9
set ewep=his Army of Minions
set bonus=52000
goto fight

:dragon
set enemy=The Dragon
set ehealth=1000
set /a tough=100+(5*%level%)
set /a eattack=100
set /a elow=20
set ewep=his flames, claws, and evasions
set bonus=1000000
goto fight



:fight
CLS
echo Computing...
set /a toughh=100-%tough%
set myString=%health%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe jhgfjhsa

set myString=%ehealth%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe1 jhgfjhsa

set myString=%enemy%A
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=21-%jhgfjhsa%
call :extrachar extrahe2 jhgfjhsa

set myString=%defense%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe3 jhgfjhsa

set myString=%toughh%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe4 jhgfjhsa

set myString=%weapon%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe5 jhgfjhsa

set myString=%bonus%
call :strlen hexsub myString
set /a jhgfjhsa=%hexsub%
set /a jhgfjhsa=13-%jhgfjhsa%
call :extrachar extrahe6 jhgfjhsa

CLS
if %indeath%==1 (goto lose)
if %firstfight%==false (goto lkhf)
set firstfight=false
echo You see %enemy% come out of the shadows!
echo.
:lkhf
echo %lt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%btt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rt%      "%%%%%%%%%%\%%%%%%%%%%%%%%%%%%%%%%%%%%
echo %ur%You:                %tp%%enemy%:%extrahe2%%ur%      "%%%%%%%%%%%%%%%%%%__%%%%%%%%%%%%
echo %mbr%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mtbt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%mbl%       "%%%%%%%%%%/-   \%%%%%%%%%%%%%%%%
echo %ur%Health :%health%%extrahe%%tp%Health :%ehealth%%extrahe1%%ur%       "%%%%%%/  O O !%%%%%%%%%%
echo %ur%Defense:%defense%%extrahe3%%tp%Tough  :%toughh%%extrahe4%%ur%        "%%/   ###   \_%%%%%%%%%%
echo %ur%Weapon :%weapon%%extrahe5%%tp%Bonus  :%bonus%%extrahe6%%ur%     "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
echo %ur%                    %tp%                    %ur%
echo %lb%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%bbt%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%st%%rb%
echo.
echo 'A'ttack
echo 'R'un
choice /c AR /m "Your choice?"
if %errorlevel%==2 (goto forest)
CLS
set /a damage=%random% * %tough% / 32767 +%level%+(%weplev%*2)
echo You attack %enemy% with your %weapon% and hit with %damage% damage!
set /a ehealth=%ehealth%-%damage%
echo.
set /a edamage=%random%*%eattack%/32767+%elow%-%level%
if %edamage% LEQ 0 (set /a edamage=0)
echo %enemy% hit you with %ewep% for %edamage% damage!
set /a health=%health%-%edamage%
echo.
pause
if %health% LEQ 0 (goto lose)
if %ehealth% LEQ 0 (goto win)
goto fight

:win
CLS
echo %enemy% lies dead on the ground.
echo.
set /a gain=%random%*500/32767+%bonus%
echo You recieve %gain% gold!
set /a gold=%gold%+%gain%
echo.
set /a kills=%kills%+1
pause
goto forest

:pstat
set /a mathtwo=%level%*10+20
CLS
echo User   : %user%
echo Gender : %gen%
echo Health : %health%/%mathtwo%
echo Gold   : %gold%
echo Level  : %level%
echo Weapon : %weapon%
echo Armor  : %armor%
echo Defense: %defense%
echo Kills  : %kills%
echo.
pause
if %foreststart%==true (goto forest)
goto town

::::::::::::::FOREST PLACES:::::::::::::::

:healer
color 40
CLS
echo You enter the humble shack, hoping to be healed.
echo A small sign in the corner states that healing costs 100 gold
echo for every health point. You have %gold% gold.
echo.
set /a ggg=%random%*2/32767
if %ggg%==1 (set person=short man)
if %ggg%==2 (set person=old woman)
echo A %person% comes up to you, and offers you three options.
echo.
echo 'H'eal all
echo 'O'nly heal a little
echo 'L'eave
choice /c HOL /m "Which will it be now?"
if %errorlevel%==2 (goto healbit)
if %errorlevel%==3 (
color 0a
goto forest)
color 40

set /a mathtwo=%level%*10+20
set /a math=mathtwo-%health%
set /a math=%math%*100
set /a math=%gold%/%math%
if %math% LEQ 0 (
CLS
echo We won't do that for so little gold.
echo.
pause
goto healer
)
set /a mathtwo=%level%*10+20
set /a math=%mathtwo%-%health%
set /a math2=%math%*100
set /a gold=%gold%-%math2%
set /a health=%health%+%math%
echo.
echo You are healed.
echo.
pause
color 0a
goto forest

:healbit
color 40
set hpheal=0
set /p hpheal="How much to heal? You have %health% health and %gold% gold. 100 gold per health. >"
set /a math=%hpheal%*100
set /a math=%gold%/%math%
if %math% LEQ 0 (
echo You need more gold!
echo.
pause
goto healer
)
set /a math=%health%+%hpheal%
set /a mathtwo=%level%*10+20
if %math% GTR %mathtwo% (
echo You can't have more than %mathtwo% health.
echo.
pause
goto healer
)
set /a math=%hpheal%*100
set /a gold=%gold%-%math%
set /a health=%health%+%hpheal%
echo.
echo You are healed.
echo.
pause
color 0a
goto forest

:lose
CLS
color 0c
echo Oh Ratz! Looks like you were killed!
echo Maybe next time, warrior.
echo.
pause
exit

:::::::::::::FUNCTIONS::::::::::::::

:strlen <resultVar> <stringVar>
(   
    setlocal EnableDelayedExpansion
    set "s=!%~2!#"
    set "len=0"
    for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
        if "!s:~%%P,1!" NEQ "" ( 
            set /a "len+=%%P"
            set "s=!s:~%%P!"
        )
    )
)
( 
    endlocal
    set "%~1=%len%"
    exit /b
)

:extrachar <resultVar> <stringVar>
(
	::rcaproductionmaster@gmail.com
    setlocal EnableDelayedExpansion
    set "ytrr= "
:extracharloop
    if %jhgfjhsa% GTR 1 (
        set /a jhgfjhsa=%jhgfjhsa%-1
	set ytrr=%ytrr% 
	goto extracharloop   
    )
)
( 
    endlocal
    set "%~1=%ytrr%"
    exit /b
)


::rcaproductionmaster@gmail.com