Random Name Generation

title Random Name Generation
color 0e
@echo off

:main_menu
cls
echo ----------------------------------
echo         Game Main Menu
echo ----------------------------------
echo 1) New Game
echo 2) Load Game Data
echo 3) Exit Game
echo ----------------------------------
choice /c 123 /n >nul
if %errorlevel% == 1 (
    call :PVs
    goto create_Player
)
if %errorlevel% == 2 goto data_loader
if %errorlevel% == 3 exit
goto main_menu

:data_loader
cls
echo -------------------------
echo   Load Save Files Here
echo --------------------------
echo 1) Load Save File One
echo 2) Load Save File Two
echo 3) Go to Interaction
echo 4) Return to Main Menu
echo --------------------------
echo Message:%msg%:
echo --------------------------
echo Current Load: %fname% %lname% %tname%
choice /c 1234 /n >nul
if %errorlevel% == 1 call :load
if %errorlevel% == 2 call :load2
if %errorlevel% == 3 goto game_menu
if %errorlevel% == 4 goto main_menu
goto data_loader

:create_Player
cls
echo -----------------------------------
echo       Create a Player Menu
echo -----------------------------------
echo 1) Create One By Hand
echo 2) Randomize One
echo 3) Return to Main Menu
echo -----------------------------------
choice /c 123 /n >nul
if %errorlevel% == 1 (
    call :PVs
    set /p fname=Enter a First Name:::
    set /p lname=Enter a Last Name:::
    set /p pYear=Enter a Birth Year:::
    set /p cYear=What Year is it now:::
    set /p pMonth=Enter a Birth Month:::
    set /p pDay=Enter a Birth Day:::
    goto game_menu
)
if %errorlevel% == 2 (
    set rfname=0
    set rlname=0
    set rtname=0
    call :nameRandomizer
    call :numberRand
    goto game_menu
)
if %errorlevel% == 3 goto main_menu



:PVs
set fname=
set lname=
set tname=
set myBook=
set myBook2=
set myBook3=
set myBook4=
set myBook5=
set myBook6=
set myBook7=
set myBook8=
set myBook9=
set myBook10=
set myBook11=
set myBook12=
set myBook13=
set myBook14=
set pYear=0
set pMonth=0
set pDay=0
set AGE=1
set WISE=0
set cYear=0
set cMonth=0
set cmMonth=12
set cDay=0
set cmDay=31
goto:eof



:game_menu
set /a AGE=%cYear%-%pYear%
if %AGE% LEQ 0 set cYear=%pYear%
if %cDay% GEQ %cmDay% (
    set /a cMonth+=1
    set cDay=1
)
if %cMonth% GTR %cmMonth% (
    set cMonth=1
    set /a cYear+=1
)

set cmDay=31
call :cMonthName
call :ifCMonth


cls
echo -------------------------------
echo     Game Interaction Menu
echo -------------------------------
echo Name: %fname% %lname% %tname%
echo Wisdom:%WISE%
echo Age: %AGE%
echo Birth Year: %pMonth%/%pDay%/%pYear%
echo Year Now: %cYear%
echo Month to Year:%cMonth%/%cmMonth% %cMonthD%
echo Day To Month:%cDay%/%cmDay%
echo --------------------------------------------
echo Current World Date: %cMonthD%/%cDay%/%cYear%
echo --------------------------------------------
echo 1) Randomize Player Name
echo 2) Open Options
echo 3) Go to Learning Options
echo 4) View Book Collection
echo -------------------------------
echo L) Fast Forward
echo -------------------------------
echo Message:%msg%:%msg4%
echo -------------------------------
choice /t 2 /d l /c l1234 /n >nul

set /a cDay+=1
if %errorlevel% == 1 (
    set msg=1 Day Will Pass
)
if %errorlevel% == 2 call :nameRandomizer
if %errorlevel% == 3 goto game_options
if %errorlevel% == 4 goto learn_options
if %errorlevel% == 5 goto book_collection
goto game_menu

:book_collection
cls
echo -------------------------------------------------------------
echo   Here is %fname% %lname% %tname%'s Collection of Titles
echo -------------------------------------------------------------
echo Books:
echo  Book 1: %myBook%
echo  Book 2: %myBook2%
echo  Book 3: %myBook3%
echo  Book 4: %myBook4%
echo  Book 5: %myBook5%
echo  Book 6: %myBook6%
echo  Book 7: %myBook7%
echo  Book 8: %myBook8%
echo  Book 9: %myBook9%
echo  Book 10: %myBook10%
echo  Book 11: %myBook11%
echo  Book 12: %myBook12%
echo  Book 13: %myBook13%
echo  Book 14: %myBook14%
echo 1) Return
echo -------------------------------------------------------------
choice /c 1 /n >nul
if %errorlevel% == 1 goto game_menu
goto book_collection


:game_options
cls
echo -------------------------------
echo         Options Menu
echo -------------------------------
echo 1) Return To Interaction
echo 2) Save To Slot 1
echo 3) Save To Slot 2
echo 4) Go to Main Menu
echo 5) Exit the Program
echo -------------------------------
echo Message:%msg%:
echo -------------------------------
choice /c 12345 /n >nul
if %errorlevel% == 1 goto game_menu
if %errorlevel% == 2 call :save
if %errorlevel% == 3 call :save2
if %errorlevel% == 4 goto main_menu
if %errorlevel% == 5 exit
goto game_options

:learn_options
cls
echo ------------------------------
echo  Where Will You Seek Knowledge?
echo ------------------------------
echo 1) Library
echo 2) Discover Books
echo 3) Return to Interaction
echo ------------------------------
choice /c 123 /n >nul
if %errorlevel% == 1 goto Library
if %errorlevel% == 2 goto book_pit
if %errorlevel% == 3 goto game_menu
goto learn_options

:Library
cls
echo ------------------------------
echo It's Pretty Quiet in the Library
echo I should read as much as I can
echo while I'm here.
echo ------------------------------
echo Wisdom:%WISE%
echo ------------------------------
echo 1) Read 1st Level Books
echo 2) Return to Learn Options
echo ------------------------------
choice /c 12 /n >nul
if %errorlevel% == 1 set /a WISE+=1
if %errorlevel% == 2 goto learn_options
goto Library

:book_pit
set GenBook=%randombooktitle% %randombookplot%
cls
echo ---------------------------------------------
echo In front of me is an immeasurable book pit...
echo I can't see the bottom and I hear hissing,
echo wierd I hope there's something good!
echo ---------------------------------------------
echo Collected Book:
echo In Hand: %takenBook%
echo ---------------------------------------------
echo 1) Dig in the Pit
echo 2) Take The Book
echo 3) Add Taken to Collection
echo 4) Leave the Book Pit
echo ---------------------------------------------
echo Book: %GenBook%
echo ---------------------------------------------
choice /c 1234 /n >nul
if %errorlevel% == 1 (
    set /a rbookt=%random%%%35+1
    set /a rbookp=%random%%%35+1
    call :randomBooks
)
if %errorlevel% == 2 (
    set takenBook=%GenBook%
)
if %errorlevel% == 3 goto collect_Books
if %errorlevel% == 4 goto learn_options
goto book_pit

:collect_Books
cls
echo ----------------------------
echo    Here is my Collection
echo ----------------------------
echo Taken Book :%takenBook%
echo ----------------------------
echo 1) Book Slot 1:%myBook%
echo 2) Book Slot 2:%myBook2%
echo 3) Book Slot 3:%myBook3%
echo 4) Book Slot 4:%myBook4%
echo 5) Book Slot 5:%myBook5%
echo 6) Book Slot 6:%myBook6%
echo 7) Book Slot 7:%myBook7%
echo 8) Book Slot 8:%myBook8%
echo 9) Book Slot 9:%myBook9%
echo S) Return to the Book Pit
echo D) - NEXT PAGE -
echo ----------------------------
choice /c 123456789sd /n >nul
if %errorlevel% == 1 (
    set myBook=%takenBook%
    set takenBook=
)
if %errorlevel% == 2 (
    set myBook2=%takenBook%
    set takenBook=
)
if %errorlevel% == 3 (
    set myBook3=%takenBook%
    set takenBook=
)
if %errorlevel% == 4 (
    set myBook4=%takenBook%
    set takenBook=
)
if %errorlevel% == 5 (
    set myBook5=%takenBook%
    set takenBook=
)
if %errorlevel% == 6 (
    set myBook6=%takenBook%
    set takenBook=
)
if %errorlevel% == 7 (
    set myBook7=%takenBook%
    set takenBook=
)
if %errorlevel% == 8 (
    set myBook8=%takenBook%
    set takenBook=
)
if %errorlevel% == 9 (
    set myBook9=%takenBook%
    set takenBook=
)
if %errorlevel% == 10 goto book_pit
if %errorlevel% == 11 goto collect_Books2
goto collect_Books

:collect_Books2
cls
echo ----------------------------
echo           Page 2
echo ----------------------------
echo Taken Book :%takenBook%
echo ----------------------------
echo 1) Book Slot 10:%myBook10%
echo 2) Book Slot 11:%myBook11%
echo 3) Book Slot 12:%myBook12%
echo 4) Book Slot 13:%myBook13%
echo 5) Book Slot 14:%myBook14%
echo S) Back One Page
echo ----------------------------
choice /c 12345s /n >nul
if %errorlevel% == 1 (
    set myBook10=%takenBook%
    set takenBook=
)
if %errorlevel% == 2 (
    set myBook11=%takenBook%
    set takenBook=
)
if %errorlevel% == 3 (
    set myBook12=%takenBook%
    set takenBook=
)
if %errorlevel% == 4 (
    set myBook13=%takenBook%
    set takenBook=
)
if %errorlevel% == 5 (
    set myBook14=%takenBook%
    set takenBook=
)
if %errorlevel% == 6 goto collect_Books
goto collect_Books2


:randomBooks
if %rbookt% == 1 set randombooktitle=Novel about
if %rbookp% == 1 set randombookplot=the Crimson Hero
if %rbookt% == 2 set randombooktitle=Journal on
if %rbookp% == 2 set randombookplot=the Lost Lion Warriors
if %rbookt% == 3 set randombooktitle=Scripture of
if %rbookp% == 3 set randombookplot=the Broken Blade
if %rbookt% == 4 set randombooktitle=Manuscript of
if %rbookp% == 4 set randombookplot=the Heartless Witch Lair
if %rbookt% == 5 set randombooktitle=Book on
if %rbookp% == 5 set randombookplot=the Hidden Valley Vipers
if %rbookt% == 6 set randombooktitle=Dossier about
if %rbookp% == 6 set randombookplot=the Lost War Wolf
if %rbookt% == 7 set randombooktitle=Old Text About
if %rbookp% == 7 set randombookplot=the Shattered Lands
if %rbookt% == 8 set randombooktitle=Atlas Depicting
if %rbookp% == 8 set randombookplot=the Gold Safe
if %rbookt% == 9 set randombooktitle=Chronicle of
if %rbookp% == 9 set randombookplot=the Mystery Shadowmen
if %rbookt% == 10 set randombooktitle=Book about
if %rbookp% == 10 set randombookplot=the Hidden Dagger Clan
if %rbookt% == 11 set randombooktitle=Volume I of
if %rbookp% == 11 set randombookplot=the Darkened Kings Heart
if %rbookt% == 12 set randombooktitle=Volume II of
if %rbookp% == 12 set randombookplot=the Cruel Kings Rule
if %rbookt% == 13 set randombooktitle=Volume III of
if %rbookp% == 13 set randombookplot=the Afterlife
if %rbookt% == 14 set randombooktitle=Volume IV of
if %rbookp% == 14 set randombookplot=Hidden Powers
if %rbookt% == 15 set randombooktitle=Ledger of
if %rbookp% == 15 set randombookplot=the Great Jewel Trade
if %rbookt% == 16 set randombooktitle=Volume V of
if %rbookp% == 16 set randombookplot=Okhana's Purge
if %rbookt% == 17 set randombooktitle=Tome of
if %rbookp% == 17 set randombookplot=Okhana's Pillage
if %rbookt% == 18 set randombooktitle=Opus about
if %rbookp% == 18 set randombookplot=the Jaguars Night Raid
if %rbookt% == 19 set randombooktitle=Archive on
if %rbookp% == 19 set randombookplot=the Ideal Battle Strategy
if %rbookt% == 20 set randombooktitle=Volume VI of
if %rbookp% == 20 set randombookplot=the Blood Feud
if %rbookt% == 21 set randombooktitle=Volume VII of
if %rbookp% == 21 set randombookplot=the Lost Shadow Relic
if %rbookt% == 22 set randombooktitle=Volume VIII of
if %rbookp% == 22 set randombookplot=the Vile War
if %rbookt% == 23 set randombooktitle=Volume IX of
if %rbookp% == 23 set randombookplot=the Forbidden Shadow Arts
if %rbookt% == 24 set randombooktitle=Omnibus of
if %rbookp% == 24 set randombookplot=the Great Wolf War
if %rbookt% == 25 set randombooktitle=Ledger about
if %rbookp% == 25 set randombookplot=the Unending Book Pit
if %rbookt% == 26 set randombooktitle=Notes on
if %rbookp% == 26 set randombookplot=the Legendary White Ninja
if %rbookt% == 27 set randombooktitle=Volume X of
if %rbookp% == 27 set randombookplot=the Ancient Sage Beasts
if %rbookt% == 28 set randombooktitle=Volume XI of
if %rbookp% == 28 set randombookplot=the Lucid Whispers
if %rbookt% == 29 set randombooktitle=Edition I of
if %rbookp% == 29 set randombookplot=the Black Fog
if %rbookt% == 30 set randombooktitle=Edition II of
if %rbookp% == 30 set randombookplot=the Red Alder Glade
if %rbookt% == 31 set randombooktitle=Edition III of
if %rbookp% == 31 set randombookplot=the Death Seal Formula
if %rbookt% == 32 set randombooktitle=Edition IV of
if %rbookp% == 32 set randombookplot=the 30 Year War
if %rbookt% == 33 set randombooktitle=Scroll on
if %rbookp% == 33 set randombookplot=the Eternity Leaf
if %rbookt% == 34 set randombooktitle=Compendium about
if %rbookp% == 34 set randombookplot=the Distraught Fish
if %rbookt% == 35 set randombooktitle=Octavo on
if %rbookp% == 35 set randombookplot=the Endless Moonlight
rem if %rbookt% ==  set randombooktitle=
rem if %rbookp% ==  set randombookplot=
goto:eof


:ifCMonth
if %cMonth% EQU 9 set cmDay=30
if %cMonth% EQU 4 set cmDay=30
if %cMonth% EQU 6 set cmDay=30
if %cMonth% EQU 11 set cmDay=30
if %cMonth% EQU 2 set cmDay=28
goto:eof

:nameRandomizer
set /a rfname=%random%%%35+1
set /a rlname=%random%%%35+1
set /a rtname=%random%%%35+1
call :RFnames
call :RLnames
call :RTnames
goto:eof

:numberRand
set /a cDay=%random%%%28+1
set /a cMonth=%random%%%12+1
set /a cYear=%random%%%2040+1
set /a pYear=%random%%%2040+1
set /a pMonth=%random%%%12+1
set /a pDay=%random%%%28+1
if %pYear%-%cYear% GTR 122 set pYear=%cYear%
goto:eof

:cMonthName
if %cMonth% EQU == 1 set cMonthD=January
if %cMonth% EQU == 2 set cMonthD=February
if %cMonth% EQU == 3 set cMonthD=March
if %cMonth% EQU == 4 set cMonthD=April
if %cMonth% EQU == 5 set cMonthD=May
if %cMonth% EQU == 6 set cMonthD=June
if %cMonth% EQU == 7 set cMonthD=July
if %cMonth% EQU == 8 set cMonthD=August
if %cMonth% EQU == 9 set cMonthD=September
if %cMonth% EQU == 10 set cMonthD=October
if %cMonth% EQU == 11 set cMonthD=November
if %cMonth% EQU == 12 set cMonthD=December
goto:eof

:RFnames
if %rfname% == 1 set fname=James
if %rfname% == 2 set fname=Paul
if %rfname% == 3 set fname=Taylor
if %rfname% == 4 set fname=Mark
if %rfname% == 5 set fname=Ethan
if %rfname% == 6 set fname=Ariel
if %rfname% == 7 set fname=Matt
if %rfname% == 8 set fname=Darson
if %rfname% == 9 set fname=Julius
if %rfname% == 10 set fname=Castro
if %rfname% == 11 set fname=Jaxon
if %rfname% == 12 set fname=Layla
if %rfname% == 13 set fname=Asia
if %rfname% == 14 set fname=Chris
if %rfname% == 15 set fname=Lucy
if %rfname% == 16 set fname=Charles
if %rfname% == 17 set fname=Nate
if %rfname% == 18 set fname=Jesse
if %rfname% == 19 set fname=Natasha
if %rfname% == 20 set fname=Dani
if %rfname% == 21 set fname=Joseph
if %rfname% == 22 set fname=Joey
if %rfname% == 23 set fname=Jose
if %rfname% == 24 set fname=Jennett
if %rfname% == 25 set fname=Rose
if %rfname% == 26 set fname=Jamie
if %rfname% == 27 set fname=Bryson
if %rfname% == 28 set fname=Conner
if %rfname% == 29 set fname=Aurthur
if %rfname% == 30 set fname=Cameron
if %rfname% == 31 set fname=Nicole
if %rfname% == 32 set fname=Nicolas
if %rfname% == 33 set fname=Gadge
if %rfname% == 34 set fname=Marcus
if %rfname% == 35 set fname=Nathaniel
rem if %rfname% ==  set fname=
goto:eof

:RLnames
if %rlname% == 1 set lname=Madisons
if %rlname% == 2 set lname=Payton
if %rlname% == 3 set lname=Miller
if %rlname% == 4 set lname=Barns
if %rlname% == 5 set lname=Wyckoff
if %rlname% == 6 set lname=Scott
if %rlname% == 7 set lname=Hall
if %rlname% == 8 set lname=Stonedream
if %rlname% == 9 set lname=Wildheart
if %rlname% == 10 set lname=Featherfoot
if %rlname% == 11 set lname=Windstone
if %rlname% == 12 set lname=Miller
if %rlname% == 13 set lname=Edwards
if %rlname% == 14 set lname=Kinsley
if %rlname% == 15 set lname=Castice
if %rlname% == 16 set lname=Ravenn
if %rlname% == 17 set lname=Jones
if %rlname% == 18 set lname=Masoners
if %rlname% == 19 set lname=Johnson
if %rlname% == 20 set lname=Garcia
if %rlname% == 21 set lname=Cassidy
if %rlname% == 22 set lname=Addison
if %rlname% == 23 set lname=Lane
if %rlname% == 24 set lname=Harlow
if %rlname% == 25 set lname=Monroe
if %rlname% == 26 set lname=Wilson
if %rlname% == 27 set lname=White
if %rlname% == 28 set lname=Cooper
if %rlname% == 29 set lname=Hughes
if %rlname% == 30 set lname=Harris
if %rlname% == 31 set lname=Carter
if %rlname% == 32 set lname=Ward
if %rlname% == 33 set lname=Gray
if %rlname% == 34 set lname=Ross
if %rlname% == 35 set lname=Allen
rem if %rlname% ==  set lname=
goto:eof

:RTnames
if %rtname% == 1 set tname=the Wicked
if %rtname% == 2 set tname=the Tortured
if %rtname% == 3 set tname=the Loving
if %rtname% == 4 set tname=the Agonized
if %rtname% == 5 set tname=the Joyous
if %rtname% == 6 set tname=the Swift
if %rtname% == 7 set tname=the Kind
if %rtname% == 8 set tname=the Devious
if %rtname% == 9 set tname=the Loyal
if %rtname% == 10 set tname=the Jokster
if %rtname% == 11 set tname=the Traitor
if %rtname% == 12 set tname=the Lonely
if %rtname% == 13 set tname=the Traveller
if %rtname% == 14 set tname=the Bard
if %rtname% == 15 set tname=the Hated
if %rtname% == 16 set tname=the Fearful
if %rtname% == 17 set tname=the Mindless
if %rtname% == 18 set tname=the Willful
if %rtname% == 19 set tname=the Charming
if %rtname% == 20 set tname=the Virtous
if %rtname% == 21 set tname=the Valiant
if %rtname% == 22 set tname=the Curious
if %rtname% == 23 set tname=the Intuitive
if %rtname% == 24 set tname=the Genius
if %rtname% == 25 set tname=the Outcast
if %rtname% == 26 set tname=the Vile
if %rtname% == 27 set tname=the Heretic
if %rtname% == 28 set tname=the Hypocrite
if %rtname% == 29 set tname=the Prideful
if %rtname% == 30 set tname=the Outlaw
if %rtname% == 31 set tname=the Cyborg
if %rtname% == 32 set tname=the Mutant
if %rtname% == 33 set tname=the Brutal
if %rtname% == 34 set tname=the Merciless
if %rtname% == 35 set tname=the Savage
rem if %rtname% ==  set tname=
goto:eof

:load
call :PVs
if exist save.bat (
call save.bat
set msg=Save Data has been Loaded!
) else (set msg=No File Could be found!)
goto:eof

:load2
call :PVs
if exist save.bat (
call save2.bat
set msg=Save Data has been Loaded!
) else (set msg=No File Could be found!)
goto:eof

:save
(
echo set fname=%fname%
echo set lname=%lname%
echo set tname=%tname%
echo set AGE=%AGE%
echo set WISE=%WISE%
echo set myBook=%myBook%
echo set myBook2=%myBook2%
echo set myBook3=%myBook3%
echo set myBook4=%myBook4%
echo set myBook5=%myBook5%
echo set myBook6=%myBook6%
echo set myBook7=%myBook7%
echo set myBook8=%myBook8%
echo set myBook9=%myBook9%
echo set myBook10=%myBook10%
echo set myBook11=%myBook11%
echo set myBook12=%myBook12%
echo set myBook13=%myBook13%
echo set myBook14=%myBook14%
echo set pYear=%pYear%
echo set cYear=%cYear%
echo set cMonth=%cMonth%
echo set cmMonth=%cmMonth%
echo set cDay=%cDay%
echo set cmDay=%cmDay%
) > save.bat
set msg= Data Saved to "save.bat"
goto:eof

:save2
(
echo set fname=%fname%
echo set lname=%lname%
echo set tname=%tname%
echo set AGE=%AGE%
echo set WISE=%WISE%
echo set myBook=%myBook%
echo set myBook2=%myBook2%
echo set myBook3=%myBook3%
echo set myBook4=%myBook4%
echo set myBook5=%myBook5%
echo set myBook6=%myBook6%
echo set myBook7=%myBook7%
echo set myBook8=%myBook8%
echo set myBook9=%myBook9%
echo set myBook10=%myBook10%
echo set myBook11=%myBook11%
echo set myBook12=%myBook12%
echo set myBook13=%myBook13%
echo set myBook14=%myBook14%
echo set pYear=%pYear%
echo set cYear=%cYear%
echo set cMonth=%cMonth%
echo set cmMonth=%cmMonth%
echo set cDay=%cDay%
echo set cmDay=%cmDay%
) > save2.bat
set msg= Data Saved to "save2.bat"
goto:eof