Simple War Simulator WIP Updated 11/11/22 3:38 PM v0.3 Release

@echo off
color 0e
title Simple War Simulator
mode con: cols=106 lines=31
rem Todo Complete Diplomacy sections Agreements
rem Reformulate how names are distrubuted for Bounty Hunting Ships.

:start
set msg=
set saveEntered=0
cls
echo :-------------------------------------------:
echo        Simple War Simulator
echo :-------------------------------------------:
echo 1) Start New
echo 2) Load Game
echo 0) Exit
echo :-------------------------------------------:
echo Version v0.3
choice /c 120 /n >nul
if %errorlevel% == 1 (
    call :player
    call :playerHunters
    call :gameVars
    goto startUP
 )
if %errorlevel% == 2 (
    goto loadGame
)
if %errorlevel% == 3 (
    exit
 )
goto start

:loadGame
cls
echo :-------------------:
echo       Load Game
echo :-------------------:
echo    1) Load Save
echo    2) Input Save Name %err%
echo    0) Cancel
echo :-------------------:
echo Info: %msg%
choice /c 120 /n >nul
if %errorlevel% == 1 (
    if %saveEntered% EQU 0 (
        set msg=Input Save Name First!
        goto loadGame
    )
    call :gameVars
    call :player
    call :load
    call :getShipStats1
    call :getShipStats2
    call :getShipStats3
    call :getShipStats4
    call :getShipStats5
    goto loadGame
)
if %errorlevel% == 2 (
    set /p callSave=Enter Desired Save to Load.
    set saveEntered=1
    if exist %callSave%.bat (
        set err=Matches
    ) else (set err=Not Recognized.)
)
if %errorlevel% == 3 (
    goto start
)
goto loadGame

:load
if exist %callSave%.bat (
    call %callSave%.bat
    set msg=%callSave% Found Loaded Data.
)
goto home
goto:eof

:saveGame
cls
echo :-------------------:
echo       Save Game
echo :-------------------:
echo    1) Save
echo    2) Name Save
echo    0) Cancel
echo :-------------------:
echo Info: %msg%
choice /c 120 /n >nul
if %errorlevel% == 1 (
    call :save
)
if %errorlevel% == 2 (
    set /p saveName=Enter Save Name:
    goto saveGame
)
if %errorlevel% == 3 (
    goto options
)
goto saveGame

:save
(
    echo set playername=%playername%
    echo set playerChoice=%playerChoice%
    echo set playerResult=%playerResult%
    echo set playerTarget=%playerTarget%
    echo set playerVoice=%playerVoice%
    echo set attackTarget=%attackTarget%
    echo set credits=%credits%
    echo set creditsBank=%creditsBank%
    echo set coffers=%coffers%
    echo set tax=%tax%
    echo set banking=%banking%
    echo set Ramount=%Ramount%
    echo set amount=%amount%
    echo set stationRank=%stationRank%
    echo set stationTopic=%stationTopic%
    echo set giftTo=%giftTo%
    echo set sectors=%sectors%
    echo set sectorsSet=%sectorsSet%
    echo set tactics=%tactics%
    echo set CP=%CP%
    echo set PF=%PF%
    echo set shipF=%shipF%
    echo set shipC=%shipC%
    echo set shipB=%shipB%
    echo set hunterSelect=%hunterSelect%
    echo set currentHuntee=%currentHuntee%
    echo set playerHunter=%playerHunter%
    echo set hunter1=%hunter1%
    echo set hunter2=%hunter2%
    echo set hunter3=%hunter3%
    echo set hunterHull=%hunterHull%
    echo set hunter1Hull=%hunter1Hull%
    echo set hunter2Hull=%hunter2Hull%
    echo set hunter3Hull=%hunter3Hull%
    echo set hunterHullMax=%hunterHullMax%
    echo set hunter1HullMax=%hunter1HullMax%
    echo set hunter2HullMax=%hunter2HullMax%
    echo set hunter3HullMax=%hunter3HullMax%
    echo set hullUpgrade1=%hullUpgrade1%
    echo set hullUpgrade2=%hullUpgrade2%
    echo set hullUpgrade3=%hullUpgrade3%
    echo set hullUpgrade4=%hullUpgrade4%
    echo set multiplier=%multiplier%
    echo set bountyMultiplier=%bountyMultiplier%
    echo set bountyAvail=%bountyAvail%
    echo set bountyCaught=%bountyCaught%
    echo set RshipF=%RshipF%
    echo set RshipC=%RshipC%
    echo set RshipB=%RshipB%
    echo set station1=%station1%
    echo set station2=%station2%
    echo set station3=%station3%
    echo set station4=%station4%
    echo set station5=%station5%
    echo set station1Tact=%station1Tact%
    echo set station2Tact=%station2Tact%
    echo set station3Tact=%station3Tact%
    echo set station4Tact=%station4Tact%
    echo set station5Tact=%station5Tact%
    echo set rep1=%rep1%
    echo set rep2=%rep2%
    echo set rep3=%rep3%
    echo set rep4=%rep4%
    echo set rep5=%rep5%
    echo set stance1=%stance1%
    echo set stance2=%stance2%
    echo set stance3=%stance3%
    echo set stance4=%stance4%
    echo set stance5=%stance5%
    echo set sectors1=%sectors1%
    echo set sectors2=%sectors2%
    echo set sectors3=%sectors3%
    echo set sectors4=%sectors4%
    echo set sectors5=%sectors5%
    echo set shipF1=%shipF1%
    echo set shipF2=%shipF2%
    echo set shipF3=%shipF3%
    echo set shipF4=%shipF4%
    echo set shipF5=%shipF5%
    echo set shipC1=%shipC1%
    echo set shipC2=%shipC2%
    echo set shipC3=%shipC3%
    echo set shipC4=%shipC4%
    echo set shipC5=%shipC5%
    echo set shipB1=%shipB1%
    echo set shipB2=%shipB2%
    echo set shipB3=%shipB3%
    echo set shipB4=%shipB4%
    echo set shipB5=%shipB5%
    ) > %saveName%.bat
    set msg=Saved to %saveName%.bat!
goto saveGame

:randomName
if %runName% EQU 1 (
    set name=Hermit
)
if %runName% EQU 2 (
    set name=Aries
)
if %runName% EQU 3 (
    set name=Jupiter
)
if %runName% EQU 4 (
    set name=Mars
)
if %runName% EQU 5 (
    set name=Luna
)
if %runName% EQU 6 (
    set name=Eve
)
if %runName% EQU 7 (
    set name=Pluto
)
if %runName% EQU 8 (
    set name=Uranus
)
if %runName% EQU 9 (
    set name=Earth
)
if %runName% EQU 10 (
    set name=Unity
)
if %runName% EQU 11 (
    set name=Voyager
)
if %runName% EQU 12 (
    set name=Atlas
)
if %runName% EQU 13 (
    set name=Cutler
)
if %runName% EQU 14 (
    set name=Vermit
)
if %runName% EQU 15 (
    set name=Mercury
)
if %runName% EQU 16 (
    set name=Venus
)
if %runName% EQU 17 (
    set name=Io
)
if %runName% EQU 18 (
    set name=Titan
)
if %runName% EQU 19 (
    set name=Europa
)
if %runName% EQU 20 (
    set name=Sheperd
)
goto:eof

:randomName2
if %runName2% EQU 1 (
    set name2=Prime
)
if %runName2% EQU 2 (
    set name2=Alpha
)
if %runName2% EQU 3 (
    set name2=Omega
)
if %runName2% EQU 4 (
    set name2=Centari
)
if %runName2% EQU 5 (
    set name2=Uber
)
goto:eof

:gameVars
set /a RshipF=%random%%%600+1
set /a RshipC=%random%%%100+1
set /a RshipB=%random%%%50+1

set /a shipFR=%random%%%75+1
set /a shipCR=%random%%%100+1
set /a shipBR=%random%%%145+1

rem /////////   OTHER STATION VARS   ///////

set /a stance1=%random%%%2+1
set /a stance2=%random%%%2+1
set /a stance3=%random%%%2+1
set /a stance4=%random%%%2+1
set /a stance5=%random%%%2+1

set /a rep1=%random%%%100+1
set /a rep2=%random%%%100+1
set /a rep3=%random%%%100+1
set /a rep4=%random%%%100+1
set /a rep5=%random%%%100+1

set /a sectors1=%random%%%12+1
set /a sectors2=%random%%%12+1
set /a sectors3=%random%%%12+1
set /a sectors4=%random%%%12+1
set /a sectors5=%random%%%12+1

set /a shipF1=%random%%%1800+1
set /a shipF2=%random%%%1800+1
set /a shipF3=%random%%%1800+1
set /a shipF4=%random%%%1800+1
set /a shipF5=%random%%%1800+1

set /a shipC1=%random%%%550+1
set /a shipC2=%random%%%550+1
set /a shipC3=%random%%%550+1
set /a shipC4=%random%%%550+1
set /a shipC5=%random%%%550+1

set /a shipB1=%random%%%155+1
set /a shipB2=%random%%%155+1
set /a shipB3=%random%%%155+1
set /a shipB4=%random%%%155+1
set /a shipB5=%random%%%155+1

set /a station1Tact=%random%%%5+1
set /a station2Tact=%random%%%5+1
set /a station3Tact=%random%%%5+1
set /a station4Tact=%random%%%5+1
set /a station5Tact=%random%%%5+1

set station1=
set station2=
set station3=
set station4=
set station5=

set attackTarget1=0
set attackTarget2=0
set attackTarget3=0
set attackTarget4=0
set attackTarget5=0

set attacker=0
set defending=0
set stance=0

call :getShipStats1
call :getShipStats2
call :getShipStats3
call :getShipStats4
call :getShipStats5

set /a year=%random%%%3000+1
set /a turnBount=%random%%%8+1
goto:eof

:player
set playername=Error
set playerChoice=2
set playerResult=0
set playerTarget=0
set playerVoice=Defend
set credits=0
set creditsBank=0
set coffers=0
set tax=1
set banking=1
set Ramount=0
set amount=0
set stationRank=1
set stationTopic=1
set attackTarget=1
set giftTo=1
set sectors=0
set sectorsSet=0
set tactics=1
set CP=0
set PF=0
set shipF=0
set shipC=0
set shipB=0
set hunterSelect=1
set currentHuntee=1
set playerHunter=0
set hunter1=0
set hunter2=0
set hunter3=0
set hunterHull=0
set hunter1Hull=0
set hunter2Hull=0
set hunter3Hull=0
set hunterHullMax=5
set hunter1HullMax=5
set hunter2HullMax=5
set hunter3HullMax=5
set hullUpgrade1=1
set hullUpgrade2=1
set hullUpgrade3=1
set hullUpgrade4=1
set multiplier=1
set bountyMultiplier=1
set bountyAvail=5
set bountyCaught=0
goto:eof

:startUP
cls
echo --------------------------------
echo What will be your Station Name?
echo --------------------------------
echo 1) Input
echo 2) Random
choice /c 12 /n >nul
if %errorlevel% EQU 1 (
    set /p playername=Station:
    goto startUP2
)
if %errorlevel% EQU 2 (
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set playername=%name2%%name%


    goto startUPConfirm
)
:startUPConfirm
cls
echo --------------------------------
echo Your Station will be: Station %playername%
echo 1) Yes
echo 2) No -Regenerate-
echo --------------------------------
choice /c 12 /n >nul
if %errorlevel% == 1 (
    goto startUP2
)
if %errorlevel% == 2 (
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set playername=%name2%%name%
    goto startUPConfirm
)
:startUP2
cls
echo -----------------------------------
echo  What will the 5 other Stations be?
echo -----------------------------------
echo 1) Input
echo 2) Random
choice /c 12 /n >nul
if %errorlevel% EQU 1 (
    set /p station1=Station:
    set /p station2=Station:
    set /p station3=Station:
    set /p station4=Station:
    set /p station5=Station:
    goto startUP3
)
if %errorlevel% EQU 2 (
    call :station1Name
    call :station2Name
    call :station3Name
    call :station4Name
    call :station5Name
    goto startUP2Confirm
)

goto startUP2

:station1Name
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set station1=%name2%%name%
goto:eof
:station2Name
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set station2=%name2%%name%
goto:eof
:station3Name
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set station3=%name2%%name%
goto:eof
:station4Name
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set station4=%name2%%name%
goto:eof
:station5Name
    set /a runName=%random%%%20+1
    set /a runName2=%random%%%5+1
    call :randomName
    call :randomName2
    set station5=%name2%%name%
goto:eof

:startUP2Confirm
cls
echo ----------------------
echo    Station %station1%
echo    Station %station2%
echo    Station %station3%
echo    Station %station4%
echo    Station %station5%
echo ----------------------
echo 1) Yes
echo 2) No -Regenerate-
choice /c 12 /n >nul
if %errorlevel% == 1 (
    goto startUP3
)
if %errorlevel% == 2 (
    call :station1Name
    call :station2Name
    call :station3Name
    call :station4Name
    call :station5Name
    goto startUP2Confirm
)
goto startUP2Confirm

:rivalList
if %ranNegRep% EQU 1 (
    set /a rep1-=150
)
if %ranNegRep% EQU 2 (
    set /a rep2-=150
)
if %ranNegRep% EQU 3 (
    set /a rep3-=150
)
if %ranNegRep% EQU 4 (
    set /a rep4-=150
)
if %ranNegRep% EQU 5 (
    set /a rep5-=150
)
goto:eof

:startUP3
cls
echo -------------------------
echo         Origins
echo -------------------------
echo What were your Beginnings like:
echo.
echo 1-Your Father was a Fleet Commander, he died leaving you in charge of Station %playername%.
echo `:-------------------------------------------------:'
echo  -Bonus Military- +6 Tactics +40 Favor +15000 Credits
echo.
echo 2-Your Father was a Garrison Captain, you stayed at the Garrison
echo with the other Pilots and watched how he worked hangers at Station %playername%.
echo `:-------------------------------------------------:'
echo -Bonus Tactics- +8 Tactics +20 Favor +5000 Credits
echo.
echo 3-Your parents were refugees from a nearby uncivil Station's rule
echo and formed an independant Stationing called Station %playername%.
echo `:-------------------------------------------------:'
echo -Rival Enemy- -150 Relations to ? +3 Tactics +10 Favor +2200 Credits
echo.
echo 4-Your parents raised you on Station %playername% during a peaceful
echo time; you grew up and graduated Fleet Commanding courses.
echo `:-------------------------------------------------:'
echo -Basic Start- +2 Tactics +15 Favor +2500 Credits
echo.
set /p act=Choice#:
if %act% EQU 1 (
    set /a sectors=%random%%%12+1
    set PF=40
    set tactics=6
    set credits=15000
    set /a shipF=%random%%%1800+1
    set /a shipC=%random%%%550+1
    set /a shipB=%random%%%155+1
    goto home
)
if %act% EQU 2 (
    set /a sectors=%random%%%9+1
    set PF=20
    set tactics=8
    set credits=5000
    set /a shipF=%random%%%1600+1
    set /a shipC=%random%%%350+1
    set /a shipB=%random%%%95+1
    goto home
)
if %act% EQU 3 (
    set /a sectors=%random%%%6+1
    set /a ranNegRep=%random%%%5+1
    call :rivalList
    set PF=10
    set tactics=3
    set credits=2200
    set /a shipF=%random%%%1000+1
    set /a shipC=%random%%%150+1
    set /a shipB=%random%%%45+1
    goto home
)
if %act% EQU 4 (
    set /a sectors=%random%%%9+1
    set PF=15
    set tactics=2
    set credits=2500
    set /a shipF=%random%%%1600+1
    set /a shipC=%random%%%350+1
    set /a shipB=%random%%%95+1
    goto home
)

rem ///// Extras ///////
if %act% EQU 5 (
    set /a sectors=%random%%%12+1
    set PF=40
    set tactics=6
    set credits=15000
    set /a shipF=%random%%%1800+1
    set /a shipC=%random%%%550+1
    set /a shipB=%random%%%155+1
    set stance1=2
    set stance2=2
    set stance3=2
    set stance4=2
    set stance5=2
    goto home
)
if %act% EQU 6 (
    set /a sectors=%random%%%12+1
    set PF=40
    set tactics=6
    set credits=15000
    set /a shipF=%random%%%1800+1
    set /a shipC=%random%%%550+1
    set /a shipB=%random%%%155+1
    set stance1=1
    set stance2=1
    set stance3=1
    set stance4=1
    set stance5=1
    goto home
)
goto startUP3

:getRecruitInflation
set /a FBase=25+%shipFR%
set /a CBase=40+%shipCR%
set /a BBase=80+%shipBR%
goto:eof

:getIsPlayerBroke
if %credits% LSS %FBase% (
    set b1=Not Affordable
) else (set b1=Affordable)
if %credits% LSS %CBase% (
    set b2=Not Affordable
) else (set b2=Affordable)
if %credits% LSS %BBase% (
    set b3=Not Affordable
) else (set b3=Affordable)
goto:eof

:recruitStation
call :getRecruitInflation
call :getIsPlayerBroke
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo    %playername% Ship Assembly
echo --------------------
echo    1) Recruit %playername% Fighter's -%RshipF%- %b1%
echo    2) Recruit %playername% Corvette's -%RshipC%- %b2%
echo    3) Recruit %playername% Battleship's -%RshipB%- %b3%
echo    0) Return
echo --------------------
choice /c 1230 /n >nul
if %errorlevel% == 1 (
    if %credits% LSS %FBase% (
        goto recruitStation
    )
    set W1=%playername% Fighter's
    set W2=1
    set W3=%RshipF%
    goto recruitWindow
)
if %errorlevel% == 2 (
    if %credits% LSS %CBase% (
        goto recruitStation
    )
    set W1=%playername% Corvette's
    set W2=2
    set W3=%RshipC%
    goto recruitWindow
)
if %errorlevel% == 3 (
    if %credits% LSS %BBase% (
        goto recruitStation
    )
    set W1=%playername% Battleship's
    set W2=3
    set W3=%RshipB%
    goto recruitWindow
)
if %errorlevel% == 4 (
    goto home
)
goto recruitStation

:getAvailable
rem Total Cost of Recruitable Ships
set /a CshipF=%RshipF%*%FBase%
set /a CshipC=%RshipC%*%CBase%
set /a CshipB=%RshipB%*%BBase%

if %W2% EQU 1 (
    set Aship=%CshipF%
    set /a W3=%RshipF%
    set W4=%FBase%
    set W5=%shipF%
)
if %W2% EQU 2 (
    set Aship=%CshipC%
    set /a W3=%RshipC%
    set W4=%CBase%
    set W5=%shipC%
)
if %W2% EQU 3 (
    set Aship=%CshipB%
    set /a W3=%RshipB%
    set W4=%BBase%
    set W5=%shipB%
)

set /a Gship=(%credits% / %W4%)

goto:eof

:isOverRecruiting
if %W2% EQU 1 (
if %Ramount% GTR %RshipF% (
        set Ramount=%RshipF%
      )
    )
if %W2% EQU 2 (
if %Ramount% GTR %RshipC% (
        set Ramount=%RshipC%
      )
    )
if %W2% EQU 3 (
if %Ramount% GTR %RshipB% (
        set Ramount=%RshipB%
      )
    )
goto:eof

:recruitWindow
call :getAvailable
call :getTotalShips
call :isOverRecruiting
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo    Recruiting:%W1%
echo ----------------------------------
echo There are %W3% %W1% Available the total cost
echo of all %W1% is %Aship% we have %credits% Credits
echo we can afford %Gship%, just one costs %W4% in
echo our fleet we have %W5%
echo ----------------------------------
echo 1) Recruit +%Ramount%
echo 2) Recruit Amount
echo 0) Return
choice /c 120 /n >nul

if %errorlevel% == 1 (
    if %W2% EQU 1 (
        if %credits% LSS %FBase% (
        goto recruitStation
     )
        if %RshipF% LEQ 0 (
            set RshipF=0
            goto recruitStation
        )
        if %Ramount% GTR %RshipF% (
            set Ramount=%RshipF%
        )
     set /a shipF+=%Ramount%
     set /a RshipF-=%Ramount%
     set /a credits-=%FBase%*%Ramount%
     goto recruitWindow
    )

    if %W2% EQU 2 (
        if %credits% LSS %CBase% (
        goto recruitStation
     )
        if %RshipC% LEQ 0 (
            set RshipC=0
            goto recruitStation
        )
        if %Ramount% GTR %RshipC% (
            set Ramount=%RshipC%
        )
     set /a shipC+=%Ramount%
     set /a RshipC-=%Ramount%
     set /a credits-=%CBase%*%Ramount%
     goto recruitWindow
    )

    if %W2% EQU 3 (
        if %credits% LSS %BBase% (
        goto recruitStation
     )
        if %RshipB% LEQ 0 (
            set RshipB=0
            goto recruitStation
        )
        if %Ramount% GTR %RshipB% (
            set Ramount=%RshipB%
        )
     set /a shipB+=%Ramount%
     set /a RshipB-=%Ramount%
     set /a credits-=%BBase%*%Ramount%
     goto recruitWindow
    )
)

if %errorlevel% == 2 (
    if %W2% EQU 1 (
        set /p Ramount=Amount of Fighters:
        if %credits% LSS %FBase% (
        goto recruitStation
      )
      if %Ramount% GTR %RshipF% (
        set Ramount=%RshipF%
        goto recruitWindow
      )
      goto recruitWindow
     )
     if %W2% EQU 2 (
        set /p Ramount=Amount of Corvettes:
        if %credits% LSS %CBase% (
        goto recruitStation
      )
      if %Ramount% GTR %RshipC% (
        set Ramount=%RshipC%
        goto recruitWindow
      )
      goto recruitWindow
     )
     if %W2% EQU 3 (
        set /p Ramount=Amount of Battleships:
        if %credits% LSS %BBase% (
        goto recruitStation
      )
      if %Ramount% GTR %RshipB% (
        set Ramount=%RshipB%
        goto recruitWindow
      )
      goto recruitWindow
     )
)
if %errorlevel% == 3 goto recruitStation
goto recruitStation

:stationStats
call :getTotalShips
call :getShipStats
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo Naval Combat Power is %CP%
echo Total Ships %ships%
echo Fighters:%shipF% CP:%shipFS%
echo Corvettes:%shipC% CP:%shipCS%
echo Battleships:%shipB% CP:%shipBS%
echo ----------------------
pause>nul
goto home

:getShipStats
set /a shipFS=15*%shipF%
set /a shipCS=65*%shipC%
set /a shipBS=145*%shipB%
goto:eof

:getTotalShips
set /a ships=%shipF%+%shipC%+%shipB%
set /a CP=%shipFS%+%shipCS%+%shipBS%
goto:eof

:getPlayerVoice
if %playerChoice% == 0 (
    set playerVoice=No Stance
)
if %playerChoice% == 1 (
    set playerVoice=Attack
)
if %playerChoice% == 2 (
    set playerVoice=Defend
)
if %playerChoice% == 3 (
    set playerVoice=Sector Discovery
)
goto:eof

:getIsBanking
if %banking% EQU 1 (
    set isBanking=Disabled
)
if %banking% EQU 2 (
    set isBanking=Enabled
)
goto:eof

:getInterestRate
set /a interest=%creditsBank% / 6
goto:eof

:isOverBanking
if %amount% GTR %credits% (
        set msg=Cannot Deposit More than what you Have!
        set amount=%credits%
        goto bank
    )
goto:eof

:bank
call :getIsBanking
call :getInterestRate
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo        Bank
echo ---------------------
echo Banked Credits:%creditsBank%
echo `:---------------------:'
echo.
echo Personal Credits:%credits%
echo `:---------------------:'
echo Interest Per Turn: %interest%
echo `:---------------------:'
echo Info:%msg%
echo `:---------------------:'
echo 1) %isBanking% Banking -Automatic Deposit After Turn-
echo 2) Set Amount %amount%
echo 3) Deposit
echo 4) Withdraw
echo 0) Return
choice /c 12340 /n >nul
if %errorlevel% == 1 (
    echo 1-Disable
    echo 2-Enable
    set /p banking=Input # Here:
)
if %errorlevel% == 2 (
    call :isOverBanking
    set /p amount=Set Amount:
    goto bank
)
if %errorlevel% == 3 (
    if %credits% LSS %amount% (
        set msg=Not Enough Credits to Deposit!
        goto bank
    )
    set /a credits-=%amount%
    set /a creditsBank+=%amount%
    goto bank
)
if %errorlevel% == 4 (
    if %creditsBank% LSS %amount% (
        set msg=Not Enough Credits to Withdraw!
        goto bank
    )
    set /a credits+=%amount%
    set /a creditsBank-=%amount%
    goto bank
)
if %errorlevel% == 5 (
goto home
)
goto bank

rem ////////////    HOME SECTION    ///////////////

:help
cls
echo -------------------------------------------
echo              Helping Hand
echo -------------------------------------------
echo How to make money: The Player Earns credits in two ways:
echo -Bounty Board is the Best Place to Make Money
echo -At The End of Each turn the Player Earns a small amount based on 250 x Sectors + Public Favor X2 + Bank Interest
echo -Your current Bank Credits Affect a LOT of your Wealth Generation, if you accumulate Negative Bank Credits you will be in debt and interest will start to consume you
echo if not paid off shortly. So Keep your Bank in the Positive and you'll be generating interest revenue.
echo -------------------------------------------
echo What to consider before ending a turn:
echo -Pressing 4 for -Action allows you to choose what your decision will be that Turn.
echo   -No Stance
echo   -Attack
echo   -Defend +2 Tactics
echo   -Sectoring +1 Sector
echo -Pressing 3 for -Diplomacy to Check the Diplomacy Tab; there is a chance you can make a deal with another Station to make Peace or even an Alliance to prevent future attacks.
echo -You can also choose which Station you'd like to attack Continously every Attack Turn in the Diplomacy Tab.
pause>nul
goto options

:options
cls
echo ---------------------
echo       Options
echo ---------------------
echo 1) Save
echo 2) Help
echo 0) Return
echo ---------------------
choice /c 120 /n >nul
if %errorlevel% == 1 (
    goto saveGame
)
if %errorlevel% == 2 (
    goto help
)
if %errorlevel% == 3 (
    goto home
)

goto options

:getStationStances
if %stance1% EQU 1 (
    set stanced1=At War
)
if %stance1% EQU 2 (
    set stanced1=At Peace
)
if %stance1% EQU 3 (
    set stanced1=Allied
)

if %stance2% EQU 1 (
    set stanced2=At War
)
if %stance2% EQU 2 (
    set stanced2=At Peace
)
if %stance2% EQU 3 (
    set stanced2=Allied
)

if %stance3% EQU 1 (
    set stanced3=At War
)
if %stance3% EQU 2 (
    set stanced3=At Peace
)
if %stance3% EQU 3 (
    set stanced3=Allied
)

if %stance4% EQU 1 (
    set stanced4=At War
)
if %stance4% EQU 2 (
    set stanced4=At Peace
)
if %stance4% EQU 3 (
    set stanced4=Allied
)

if %stance5% EQU 1 (
    set stanced5=At War
)
if %stance5% EQU 2 (
    set stanced5=At Peace
)
if %stance5% EQU 3 (
    set stanced5=Allied
)
goto:eof

:home
call :getStationStances
call :getShipStats
call :getTotalShips
call :getShipQuantity
call :getPlayerVoice
call :getPlayerDeath
call :getInterestRate
call :getUpkeep
call :getPlayerPay
call :getTopicStation
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo  Station %playername%
echo ---------------------
echo 1) Assemble Ships
echo 2) Station Statistics
echo 3) Diplomacy
echo 4) Action
echo 5) Bank
echo 6) Station Policies W
echo 7) Bounty Board
echo 8) Options -Help-
echo 0) End Turn
echo ----------------
echo Action:%playerVoice%
echo ----------------
echo Info:%msg%
echo ----------------
choice /c 123456780 /n >nul
if %errorlevel% == 1 (
    goto recruitStation
)
if %errorlevel% == 2 (
    goto stationStats
)
if %errorlevel% == 3 (
    goto diplomacy
)
if %errorlevel% == 4 (
    echo 0-No Stance
    echo 1-Attack
    echo 2-Defend
    echo 3-Sectoring
    set /p playerChoice=Action:
    if %playerChoice% EQU 0 (
        set playerVoice=No Stance
    )
    if %playerChoice% EQU 1 (
        set playerVoice=Attack
    )
    if %playerChoice% EQU 2 (
        set playerVoice=Defend
    )
    if %playerChoice% EQU 3 (
        set playerVoice=Sector Discovery.
    )
    goto home
)
if %errorlevel% == 5 (
    goto bank
)
if %errorlevel% == 6 (
    goto stationPolicies
)
if %errorlevel% == 7 (
    call :playerHunters
    goto bountyBoard
)
if %errorlevel% == 8 (
    goto options
)
if %errorlevel% == 9 (
    set /a year+=1
    set /a AI1=%random%%%5+1
    set /a AI2=%random%%%5+1
    set /a AI3=%random%%%5+1
    set /a AI4=%random%%%5+1
    set /a AI5=%random%%%5+1
    call :AIResultKind
    goto yearResults
)
goto home

rem /////////////// EVERYTHING ABOUT RESULT FUNCTION ////////////////

:AIResultKind
if %AI1% EQU 1 (
    set AIchoice1=Defend
)
if %AI1% EQU 2 (
    set AIchoice1=Attack
)
if %AI1% EQU 3 (
    set AIchoice1=Build Military
)
if %AI1% EQU 4 (
    set AIchoice1=Sector Discovery
)
if %AI1% EQU 5 (
    set AIchoice1=Declare
)

if %AI2% EQU 1 (
    set AIchoice2=Defend
)
if %AI2% EQU 2 (
    set AIchoice2=Attack
)
if %AI2% EQU 3 (
    set AIchoice2=Build Military
)
if %AI2% EQU 4 (
    set AIchoice2=Sector Discovery
)
if %AI2% EQU 5 (
    set AIchoice2=Declare
)

if %AI3% EQU 1 (
    set AIchoice3=Defend
)
if %AI3% EQU 2 (
    set AIchoice3=Attack
)
if %AI3% EQU 3 (
    set AIchoice3=Build Military
)
if %AI3% EQU 4 (
    set AIchoice3=Sector Discovery
)
if %AI3% EQU 5 (
    set AIchoice3=Declare
)

if %AI4% EQU 1 (
    set AIchoice4=Defend
)
if %AI4% EQU 2 (
    set AIchoice4=Attack
)
if %AI4% EQU 3 (
    set AIchoice4=Build Military
)
if %AI4% EQU 4 (
    set AIchoice4=Sector Discovery
)
if %AI4% EQU 5 (
    set AIchoice4=Declare
)

if %AI5% EQU 1 (
    set AIchoice5=Defend
)
if %AI5% EQU 2 (
    set AIchoice5=Attack
)
if %AI5% EQU 3 (
    set AIchoice5=Build Military
)
if %AI5% EQU 4 (
    set AIchoice5=Sector Discovery
)
if %AI5% EQU 5 (
    set AIchoice5=Declare
)

goto:eof

rem ///////// YEAR RESULTS ////////////

:getBanked
if %banking% EQU 1 (
set /a credits+=%yearlyKeep%
)
if %banking% EQU 2 (
set /a creditsBank+=%yearlyKeep%
)
goto:eof

:randomBounties
set /a turnBount=%random%%%8+1
set /a turnBounties=%turnBount%*%bountyMultiplier%
set /a bountyAvail+=%turnBounties%
goto:eof

:getUpkeep
set /a shipFUpkeep=5*%shipF%
set /a shipCUpkeep=8*%shipC%
set /a shipBUpkeep=12*%shipB%
set /a totalUpkeep=%shipFUpkeep%+%shipCUpkeep%+%shipBUpkeep%
goto:eof

:getRepLossRate
set enemyBase=3
set peaceBase=2
if %stance1% LSS 3 (
    if %stance1% EQU 1 (
    set /a rep1-=%enemyBase%
    set rep1Drift=%enemyBase%
    )
    set /a rep1-=%peaceBase%
    set rep1Drift=%peaceBase%
)
if %stance2% LSS 3 (
    if %stance2% EQU 1 (
    set /a rep2-=%enemyBase%
    set rep2Drift=%enemyBase%
    )
    set /a rep2-=%peaceBase%
    set rep2Drift=%peaceBase%
)
if %stance3% LSS 3 (
    if %stance3% EQU 1 (
    set /a rep3-=%enemyBase%
    set rep3Drift=%enemyBase%
    )
    set /a rep3-=%peaceBase%
    set rep3Drift=%peaceBase%
)
if %stance4% LSS 3 (
    if %stance4% EQU 1 (
    set /a rep4-=%enemyBase%
    set rep4Drift=%enemyBase%
    )
    set /a rep4-=%peaceBase%
    set rep4Drift=%peaceBase%
)
if %stance5% LSS 3 (
    if %stance5% EQU 1 (
    set /a rep5-=%enemyBase%
    set rep5Drift=%enemyBase%
    )
    set /a rep5-=%peaceBase%
    set rep5Drift=%peaceBase%
)
goto:eof

:gatherShipRecruits
set /a RshipF=%random%%%150+1
set /a RshipC=%random%%%25+1
set /a RshipB=%random%%%5+1
set /a RshipF=%RshipF%*%tactics%
set /a RshipC=%RshipC%*%tactics%
set /a RshipB=%RshipB%*%tactics%
goto:eof

:getPlayerPay
set /a yearly=250*%sectors%+(%PF%*2)+%tax%
set /a yearlyWithInterest=250*%sectors%+(%PF%*2)+%tax%+%interest%
set /a yearlyKeep=%yearly%-%totalUpkeep%
goto:eof

:yearResults
set playerResulted=1
set sectorsSet=0
set AI1Result=1
set AI2Result=1
set AI3Result=1
set AI4Result=1
set AI5Result=1
call :getShipStats1
call :getShipStats2
call :getShipStats3
call :getShipStats4
call :getShipStats5
call :attackList1
call :attacklist2
call :attacklist3
call :attacklist4
call :attacklist5
call :playerAttackList
call :getInterestRate
call :getUpkeep
call :getPlayerVoice
call :getPlayerPay
call :getBanked
call :randomBounties
call :gatherShipRecruits
call :getBuiltMilitary
call :getRepLossRate
call :gatherResults
call :getTopicStation
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo        Year Results
echo ----------------------------
echo Station %playername% will %playerVoice% this turn.
echo ----------------------------
echo Station %station1% will %AIchoice1% this turn.
echo ----------------------------
echo Station %station2% will %AIchoice2% this turn.
echo ----------------------------
echo Station %station3% will %AIchoice3% this turn.
echo ----------------------------
echo Station %station4% will %AIchoice4% this turn.
echo ----------------------------
echo Station %station5% will %AIchoice5% this turn.
echo ----------------------------
echo Interest:%interest% Credits
echo Income:%yearly% Credits
echo Income Compounded:%yearlyWithInterest% Credits
echo Upkeep:-%totalUpkeep% Credits
echo After Expense:=%yearlyKeep% Credits
echo New Bounties:+%turnBounties% Bounties
echo ----------------------------
echo Relations Drift:
echo Station %station1%: -%rep1Drift%
echo Station %station2%: -%rep2Drift%
echo Station %station3%: -%rep3Drift%
echo Station %station4%: -%rep4Drift%
echo Station %station5%: -%rep5Drift%
pause>nul
goto playerResult


rem ////// COLLECT OUTCOMES OF ALL CHOICES GENERATED FOR THE AI AND MADE BY THE PLAYER //////

:gatherResults
if %playerChoice% == 0 (
    set playerVoice=No Stance
    set playerResults=Station %playername% has no Stance.
)
if %playerChoice% == 1 (
    set playerTarget=%attackTarget%
    call :playerAttackList
    if %playerTarget% == 1 (
         goto gatherResults
    )
    set playerVoice=Attack
    call :resultsAttack
)
if %playerChoice% == 2 (
    set playerVoice=Defend
    set playerResult=1
    set /a tactics+=2
    set playerResults=Station %playername% decided to hold their position giving them a bonus +2 Tactics.
)
if %playerChoice% == 3 (
    if %sectorsSet% == 0 (
    set sectorsSet=1
    set playerVoice=Sector Discovery
    set /a sectors+=1
    set playerResults=Station %playername% explored deeper space gaining new territory +1 Sector
    )
)

if %AI1% EQU 1 (
    set AIchoice1=Defend
    set /a station1Tact+=2
    set result1=Station %station1% decided to hold their position giving them a bonus +2 Tactics.
)
if %AI1% EQU 2 (
    set /a attackTarget1=%random%%%5+1
    call :attackList1
    if %attackTarget1% EQU 1 (
        if %stance1% GEQ 2 goto gatherResults
    )
    set AIchoice1=Attack
    call :resultsAttack
)
if %AI1% EQU 3 (
    set AIchoice1=Build Military
    set /a shipF1+=%EshipF1%*%station1Tact%
    set /a shipC1+=%EshipC1%*%station1Tact%
    set /a shipB1+=%EshipB1%*%station1Tact%
    call :resultsBuild
)
if %AI1% EQU 4 (
    set AIchoice1=Sector Discovery
    set /a sectors1+=1
    set result1=Station %station1% explored deeper space gaining new territory +1 Sector
)
if %AI1% EQU 5 (
    if %rep1% LSS 0 (
        if %stance1% GTR 1 (
        set result1=Station %station1% has now Declared war on us!
        set stance1=1
        )
    )
    if %rep1% LSS 50 (
        if %stance1% GTR 2 (
        set result1=Station %station1% no longer sees benefit in our Alliance!
        set stance1=2
        )
    )
    if %rep1% GTR 75 (
        if %stance1% LSS 3 (
        set result1=Station %station1% Declares to form an Alliance with us!
        set stance1=3
        )
    )
    if %stance1% EQU 3 (
        set result1=Station %station1% See's interest in your Alliance and will Invest +1 Reputation with you.
        set /a rep1+=1
    )
    if %stance1% EQU 1 (
        set result1=Station %station1% See's negativity in your presence and will Invest -1 Reputation with you.
        set /a rep1-=1
    )
)

if %AI2% EQU 1 (
    set AI2Result=1
    set AIchoice2=Defend
    set /a station2Tact+=2
    set result2=Station %station2% decided to hold their position giving them a bonus +2 Tactics.
)
if %AI2% EQU 2 (
    set /a attackTarget2=%random%%%5+1
    call :attackList2
    if %attackTarget2% EQU 1 (
        if %stance2% GEQ 2 goto gatherResults
    )
    set AIchoice2=Attack
    call :resultsAttack
)
if %AI2% EQU 3 (
    set AIchoice2=Build Military
    set /a shipF2+=%EshipF2%*%station2Tact%
    set /a shipC2+=%EshipC2%*%station2Tact%
    set /a shipB2+=%EshipB2%*%station2Tact%
    call :resultsBuild
)
if %AI2% EQU 4 (
    set AIchoice2=Sector Discovery
    set /a sectors2+=1
    set result2=Station %station2% explored deeper space gaining new territory +1 Sector
)
if %AI2% EQU 5 (
    if %rep2% LSS 0 (
        if %stance2% GTR 1 (
        set result2=Station %station2% has now Declared war on us!
        set stance2=1
        )
    )
    if %rep2% LSS 50 (
        if %stance2% GTR 2 (
        set result2=Station %station2% no longer sees benefit in our Alliance!
        set stance2=2
        )
    )
    if %rep2% GTR 75 (
        if %stance2% LSS 3 (
        set result2=Station %station2% Declares to form an Alliance with us!
        set stance2=3
        )
    )
    if %stance2% EQU 3 (
        set result2=Station %station2% See's interest in your Alliance and will Invest +1 Reputation with you.
        set /a rep2+=1
    )
    if %stance2% EQU 1 (
        set result2=Station %station2% See's negativity in your presence and will Invest -1 Reputation with you.
        set /a rep2-=1
    )
)

if %AI3% EQU 1 (
    set AI3Result=1
    set AIchoice3=Defend
    set /a station3Tact+=2
    set result3=Station %station3% decided to hold their position giving them a bonus +2 Tactics.
)
if %AI3% EQU 2 (
    set /a attackTarget3=%random%%%5+1
    call :attackList3
    if %attackTarget3% EQU 1 (
        if %stance3% GEQ 2 goto gatherResults
    )
    set AIchoice3=Attack
    call :resultsAttack
)
if %AI3% EQU 3 (
    set AIchoice3=Build Military
    set /a shipF3+=%EshipF3%*%station3Tact%
    set /a shipC3+=%EshipC3%*%station3Tact%
    set /a shipB3+=%EshipB3%*%station3Tact%
    call :resultsBuild
)
if %AI3% EQU 4 (
    set AIchoice3=Sector Discovery
    set /a sectors3+=1
    set result3=Station %station3% explored deeper space gaining new territory +1 Sector
)
if %AI3% EQU 5 (
    if %rep3% LSS 0 (
        if %stance3% GTR 1 (
        set result3=Station %station3% has now Declared war on us!
        set stance3=1
        )
    )
    if %rep3% LSS 50 (
        if %stance3% GTR 2 (
        set result3=Station %station3% no longer sees benefit in our Alliance!
        set stance3=2
        )
    )
    if %rep3% GTR 75 (
        if %stance3% LSS 3 (
        set result3=Station %station3% Wishes to form an Alliance with us!
        set stance3=3
        )
    )
    if %stance3% EQU 3 (
        set result3=Station %station3% See's interest in your Alliance and will Invest +1 Reputation with you.
        set /a rep3+=1
    )
    if %stance3% EQU 1 (
        set result3=Station %station3% See's negativity in your presence and will Invest -1 Reputation with you.
        set /a rep3-=1
    )
)

if %AI4% EQU 1 (
    set AI4Result=1
    set AIchoice4=Defend
    set /a station4Tact+=2
    set result4=Station %station4% decided to hold their position giving them a bonus +2 Tactics.
)
if %AI4% EQU 2 (
    set /a attackTarget4=%random%%%5+1
    call :attackList4
    if %attackTarget4% EQU 1 (
        if %stance4% GEQ 2 goto gatherResults
    )
    set AIchoice4=Attack
    call :resultsAttack
)
if %AI4% EQU 3 (
    set AIchoice4=Build Military
    set /a shipF4+=%EshipF4%*%station4Tact%
    set /a shipC4+=%EshipC4%*%station4Tact%
    set /a shipB4+=%EshipB4%*%station4Tact%
    call :resultsBuild
)
if %AI4% EQU 4 (
    set AIchoice4=Sector Discovery
    set /a sectors4+=1
    set result4=Station %station4% explored deeper space gaining new territory +1 Sector
)
if %AI4% EQU 5 (
    if %rep4% LSS 0 (
        if %stance4% GTR 1 (
        set result4=Station %station4% has now Declared war on us!
        set stance4=1
        )
    )
    if %rep4% LSS 50 (
        if %stance4% GTR 2 (
        set result4=Station %station4% no longer sees benefit in our Alliance!
        set stance4=2
        )
    )
    if %rep4% GTR 75 (
        if %stance4% LSS 3 (
        set result4=Station %station4% Wishes to form an Alliance with us!
        set stance4=3
        )
    )
    if %stance4% EQU 3 (
        set result4=Station %station4% See's interest in your Alliance and will Invest +1 Reputation with you.
        set /a rep4+=1
    )
    if %stance4% EQU 1 (
        set result4=Station %station4% See's negativity in your presence and will Invest -1 Reputation with you.
        set /a rep4-=1
    )
)

if %AI5% EQU 1 (
    set AI5Result=1
    set AIchoice5=Defend
    set /a station5Tact+=2
    set result5=Station %station5% decided to hold their position giving them a bonus +2 Tactics.
)
if %AI5% EQU 2 (
    set /a attackTarget5=%random%%%5+1
    call :attackList5
    if %attackTarget5% EQU 1 (
        if %stance5% GEQ 2 goto gatherResults
    )
    set AIchoice5=Attack
    call :resultsAttack
)
if %AI5% EQU 3 (
    set AIchoice5=Build Military
    set /a shipF5+=%EshipF5%*%station5Tact%
    set /a shipC5+=%EshipC5%*%station5Tact%
    set /a shipB5+=%EshipB5%*%station5Tact%
    call :resultsBuild
)


if %AI5% EQU 4 (
    set AIchoice5=Sector Discovery
    set /a sectors5+=1
    set result5=Station %station5% explored deeper space gaining new territory +1 Sector
)

if %AI5% EQU 5 (
    if %rep5% LSS 0 (
        if %stance5% GTR 1 (
        set result5=Station %station5% has now Declared war on us!
        set stance5=1
        )
    )
    if %rep5% LSS 50 (
        if %stance5% GTR 2 (
        set result5=Station %station5% no longer sees benefit in our Alliance!
        set stance5=2
        )
    )
    if %rep5% GTR 75 (
        if %stance5% LSS 3 (
        set result5=Station %station5% Wishes to form an Alliance with us!
        set stance5=3
        )
    )
    if %stance5% EQU 3 (
        set result5=Station %station5% See's interest in your Alliance and will Invest +1 Reputation with you.
        set /a rep5+=1
    )
    if %stance5% EQU 1 (
        set result5=Station %station5% See's negativity in your presence and will Invest -1 Reputation with you.
        set /a rep5-=1
    )
)
goto:eof

:getBuiltMilitary
set /a EshipF1=%random%%%50+1*%station1Tact%
set /a EshipC1=%random%%%25+1*%station1Tact%
set /a EshipB1=%random%%%10+1*%station1Tact%

set /a EshipF2=%random%%%50+1*%station2Tact%
set /a EshipC2=%random%%%25+1*%station2Tact%
set /a EshipB2=%random%%%10+1*%station2Tact%

set /a EshipF3=%random%%%50+1*%station3Tact%
set /a EshipC3=%random%%%25+1*%station3Tact%
set /a EshipB3=%random%%%10+1*%station3Tact%

set /a EshipF4=%random%%%50+1*%station4Tact%
set /a EshipC4=%random%%%25+1*%station4Tact%
set /a EshipB4=%random%%%10+1*%station4Tact%

set /a EshipF5=%random%%%50+1*%station5Tact%
set /a EshipC5=%random%%%25+1*%station5Tact%
set /a EshipB5=%random%%%10+1*%station5Tact%
goto:eof

:resultsBuild
if %AI1% EQU 3 (
set result1=They increased their military by; Assembling %EshipF1% Fighters, %EshipC1% Corvettes, and %EshipB1% Battleships to their fleet.
)
if %AI2% EQU 3 (
set result2=They increased their military by; Assembling %EshipF2% Fighters, %EshipC2% Corvettes, and %EshipB2% Battleships to their fleet.
)
if %AI3% EQU 3 (
set result3=They increased their military by; Assembling %EshipF3% Fighters, %EshipC3% Corvettes, and %EshipB3% Battleships to their fleet.
)
if %AI4% EQU 3 (
set result4=They increased their military by; Assembling %EshipF4% Fighters, %EshipC4% Corvettes, and %EshipB4% Battleships to their fleet.
)
if %AI5% EQU 3 (
set result5=They increased their military by; Assembling %EshipF5% Fighters, %EshipC5% Corvettes, and %EshipB5% Battleships to their fleet.
)
goto:eof

:resultsAttack
if %playerChoice% EQU 1 (
set playerResults=Station %playername% has chosen to attack a Station specifically: Station %stationTarget%
)
if %AI1% EQU 2 (
set result1=Station %station1% has chosen to attack a Station specifically: Station %stationTarget1%
)
if %AI2% EQU 2 (
set result2=Station %station2% has chosen to attack a Station specifically: Station %stationTarget2%
)
if %AI3% EQU 2 (
set result3=Station %station3% has chosen to attack a Station specifically: Station %stationTarget3%
)
if %AI4% EQU 2 (
set result4=Station %station4% has chosen to attack a Station specifically: Station %stationTarget4%
)
if %AI5% EQU 2 (
set result5=Station %station5% has chosen to attack a Station specifically: Station %stationTarget5%
)
goto:eof

:getShipQuantity
if %shipF% LSS 0 (
    set shipF=0
)
if %shipC% LSS 0 (
    set shipC=0
)
if %shipB% LSS 0 (
    set shipB=0
)

rem ////// OTHER STATIONS ////
if %shipF1% LSS 0 (
    set shipF1=0
)
if %shipC1% LSS 0 (
    set shipC1=0
)
if %shipB1% LSS 0 (
    set shipB1=0
)
rem ////////
if %shipF2% LSS 0 (
    set shipF2=0
)
if %shipC2% LSS 0 (
    set shipC2=0
)
if %shipB2% LSS 0 (
    set shipB2=0
)
rem ///////
if %shipF3% LSS 0 (
    set shipF3=0
)
if %shipC3% LSS 0 (
    set shipC3=0
)
if %shipB3% LSS 0 (
    set shipB3=0
)
rem //////
if %shipF4% LSS 0 (
    set shipF4=0
)
if %shipC4% LSS 0 (
    set shipC4=0
)
if %shipB4% LSS 0 (
    set shipB4=0
)
rem /////
if %shipF5% LSS 0 (
    set shipF5=0
)
if %shipC5% LSS 0 (
    set shipC5=0
)
if %shipB5% LSS 0 (
    set shipB5=0
)
goto:eof

REM ///// GATHER ALL STATIONS INDIVIDUAL HIT LISTS AND DESIGNATE WHO THE DEFENDING STATION IS /////

:attackList1
if %attackTarget1% == 1 (
    set stationTarget1=%playername%
    set defending=1
)
if %attackTarget1% == 2 (
    set stationTarget1=%station2%
    set defending=3
)
if %attackTarget1% == 3 (
    set stationTarget1=%station3%
    set defending=4
)
if %attackTarget1% == 4 (
    set stationTarget1=%station4%
    set defending=5
)
if %attackTarget1% == 5 (
    set stationTarget1=%station5%
    set defending=6
)
goto:eof

:attackList2
if %attackTarget2% == 1 (
    set stationTarget2=%playername%
    set defending=1
)
if %attackTarget2% == 2 (
    set stationTarget2=%station1%
    set defending=2
)
if %attackTarget2% == 3 (
    set stationTarget2=%station3%
    set defending=4
)
if %attackTarget2% == 4 (
    set stationTarget2=%station4%
    set defending=5
)
if %attackTarget2% == 5 (
    set stationTarget2=%station5%
    set defending=6
)
goto:eof

:attackList3
if %attackTarget3% == 1 (
    set stationTarget3=%playername%
    set defending=1
)
if %attackTarget3% == 2 (
    set stationTarget3=%station1%
    set defending=2
)
if %attackTarget3% == 3 (
    set stationTarget3=%station2%
    set defending=3
)
if %attackTarget3% == 4 (
    set stationTarget3=%station4%
    set defending=5
)
if %attackTarget3% == 5 (
    set stationTarget3=%station5%
    set defending=6
)
goto:eof

:attackList4
if %attackTarget4% == 1 (
    set stationTarget4=%playername%
    set defending=1
)
if %attackTarget4% == 2 (
    set stationTarget4=%station1%
    set defending=2
)
if %attackTarget4% == 3 (
    set stationTarget4=%station2%
    set defending=3
)
if %attackTarget4% == 4 (
    set stationTarget4=%station3%
    set defending=4
)
if %attackTarget4% == 5 (
    set stationTarget4=%station5%
    set defending=6
)
goto:eof

:attackList5
if %attackTarget5% == 1 (
    set stationTarget5=%playername%
    set defending=1
)
if %attackTarget5% == 2 (
    set stationTarget5=%station1%
    set defending=2
)
if %attackTarget5% == 3 (
    set stationTarget5=%station2%
    set defending=3
)
if %attackTarget5% == 4 (
    set stationTarget5=%station3%
    set defending=4
)
if %attackTarget5% == 5 (
    set stationTarget5=%station4%
    set defending=5
)
goto:eof

:playerAttackList
if %playerTarget% == 1 (
    set stationTarget=%station1%
    set defending=2
)
if %playerTarget% == 2 (
    set stationTarget=%station2%
    set defending=3
)
if %playerTarget% == 3 (
    set stationTarget=%station3%
    set defending=4
)
if %playerTarget% == 4 (
    set stationTarget=%station4%
    set defending=5
)
if %playerTarget% == 5 (
    set stationTarget=%station5%
    set defending=6
)
goto:eof

REM ///// GATHER STATION STATISTICS OF DECIDED ATTACKER STATION AND DEFENDER STATION STATISTICS THEN PREPARE THEIR VARIABLES FOR ATTACK RESULTS DISPLAY /////

:gatherDefendStats
if %defending% == 1 (
    set shipsA2=%ships%
    set CPA2=%CP%
    set sectorDef=%sectors%
    set tact2=%tactics%
    set stationDefender=%playername%
)
if %defending% == 2 (
    set shipsA2=%ships1%
    set CPA2=%CP1%
    set sectorDef=%sectors1%
    set tact2=%station1Tact%
    set stationDefender=%station1%
)
if %defending% == 3 (
    set shipsA2=%ships2%
    set CPA2=%CP2%
    set sectorDef=%sectors2%
    set tact2=%station2Tact%
    set stationDefender=%station2%
)
if %defending% == 4 (
    set shipsA2=%ships3%
    set CPA2=%CP3%
    set sectorDef=%sectors3%
    set tact2=%station3Tact%
    set stationDefender=%station3%
)
if %defending% == 5 (
    set shipsA2=%ships4%
    set CPA2=%CP4%
    set sectorDef=%sectors4%
    set tact2=%station4Tact%
    set stationDefender=%station4%
)
if %defending% == 6 (
    set shipsA2=%ships5%
    set CPA2=%CP5%
    set sectorDef=%sectors5%
    set tact2=%station5Tact%
    set stationDefender=%station5%
)
goto:eof

:gatherAttackStats
if %attacker% == 1 (
    set stationAttacker=%playername%
    set shipsA1=%ships%
    set CPA1=%CP%
    set tact1=%tactics%
)
if %attacker% == 2 (
    set stationAttacker=%station1%
    set shipsA1=%ships1%
    set CPA1=%CP1%
    set tact1=%station1Tact%
)
if %attacker% == 3 (
    set stationAttacker=%station2%
    set shipsA1=%ships2%
    set CPA1=%CP2%
    set tact1=%station2Tact%
)
if %attacker% == 4 (
    set stationAttacker=%station3%
    set shipsA1=%ships3%
    set CPA1=%CP3%
    set tact1=%station3Tact%
)
if %attacker% == 5 (
    set stationAttacker=%station4%
    set shipsA1=%ships4%
    set CPA1=%CP4%
    set tact1=%station4Tact%
)
if %attacker% == 6 (
    set stationAttacker=%station5%
    set shipsA1=%ships5%
    set CPA1=%CP5%
    set tact1=%station5Tact%
)

goto:eof

REM ///// DISPLAY RANDOMIZED RESULTS BASED ON STATION CHOICES AND OTHER STATION STATISTICS DURING THEIR GENERATED OUTCOMES ////

:playerResult
call :gatherAttackStats
call :gatherDefendStats
call :playerAttackList
cls
echo ----------------------------
echo Station %playername% decided:%playerVoice%
echo.
echo %playerResults%
echo ----------------------------
pause>nul
if %playerChoice% EQU 1 (
    set attacker=1
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set playerResult=0
    goto attackResults
)
set playerResult=0
goto station1Result
goto home

:station1Result
call :gatherAttackStats
call :gatherDefendStats
call :attackList1
cls
echo ----------------------------
echo Station %station1% decided:%AIchoice1%
echo.
echo %result1%
echo ----------------------------
pause>nul
if %AI1% EQU 2 (
    set attacker=2
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set AI1Result=0
    goto attackResults
)
set AI1Result=0
goto station2Result
goto home

:station2Result
call :gatherAttackStats
call :gatherDefendStats
call :attackList2
cls
echo ----------------------------
echo Station %station2% decided:%AIchoice2%
echo.
echo %result2%
echo ----------------------------
pause>nul
if %AI2% EQU 2 (
    set attacker=3
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set AI2Result=0
    goto attackResults
)
set AI2Result=0
goto station3Result
goto home

:station3Result
call :gatherAttackStats
call :gatherDefendStats
call :attackList3
cls
echo ----------------------------
echo Station %station3% decided:%AIchoice3%
echo.
echo %result3%
echo ----------------------------
pause>nul
if %AI3% EQU 2 (
    set attacker=4
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set AI3Result=0
    goto attackResults
)
set AI3Result=0
goto station4Result
goto home

:station4Result
call :gatherAttackStats
call :gatherDefendStats
call :attackList4
cls
echo ----------------------------
echo Station %station4% decided:%AIchoice4%
echo.
echo %result4%
echo ----------------------------
pause>nul
if %AI4% EQU 2 (
    set attacker=5
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set AI4Result=0
    goto attackResults
)
set AI4Result=0
goto station5Result
goto home

:station5Result
call :gatherAttackStats
call :gatherDefendStats
call :attackList5
cls
echo ----------------------------
echo Station %station5% decided:%AIchoice5%
echo.
echo %result5%
echo ----------------------------
pause>nul
if %AI5% EQU 2 (
    set attacker=6
    call :gatherDefendStats
    call :gatherAttackStats
    call :gatherCasualties
    set AI5Result=0
    goto attackResults
)
set AI5Result=0
goto home

:attackResults
call :getShipStats1
call :getShipStats2
call :getShipStats3
call :getShipStats4
call :getShipStats5
call :gatherAttackStats
call :gatherDefendStats
call :getShipQuantity
call :cleanLossesAttacking
call :cleanLossesDefending
cls
echo ------------------------
echo    Station %stationAttacker%
echo           VS
echo    Station %stationDefender%
echo ------------------------
echo Station %stationAttacker% attacked %stationDefender% with their Fleet of %shipsA1% CP:%CPA1%
echo Station %stationDefender% defended %sectorDef% sectors with a Fleet of %shipsA2% CP:%CPA2%
echo ------------------------
echo Loss Results:
echo Station %stationAttacker%: Attacking Fleet, Tactics:%tact1%
echo -%LshipF1% Fighters
echo -%LshipC1% Corvettes
echo -%LshipB1% Battleships
echo :-----------------------:
echo Station %stationDefender%: Defending Fleet, Tactics:%tact2%
echo -%LshipF2% Fighters
echo -%LshipC2% Corvettes
echo -%LshipB2% Battleships
pause>nul
call :applyLosses
if %playerResult% EQU 1 (
    set playerResult=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto playerResulted
)
if %AI1Result% EQU 1 (
    set AI1Result=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto station1Result
)
if %AI2Result% EQU 1 (
    set AI2Result=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto station2Result
)
if %AI3Result% EQU 1 (
    set AI3Result=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto station3Result
)
if %AI4Result% EQU 1 (
    set AI4Result=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto station4Result
)
if %AI5Result% EQU 1 (
    set AI5Result=0
    call :gatherAttackStats
    call :gatherDefendStats
    goto station5Result
)
goto home

:cleanLossesAttacking
if %attacker% == 1 (
    if %shipF% LEQ 0 (
    set LshipF1=0
    )
    if %shipC% LEQ 0 (
    set LshipC1=0
    )
    if %shipB% LEQ 0 (
    set LshipB1=0
    )
)
if %attacker% == 2 (
    if %shipF1% LEQ 0 (
    set LshipF1=0
    )
    if %shipC1% LEQ 0 (
    set LshipC1=0
    )
    if %shipB1% LEQ 0 (
    set LshipB1=0
    )
)
if %attacker% == 3 (
    if %shipF2% LEQ 0 (
    set LshipF1=0
    )
    if %shipC2% LEQ 0 (
    set LshipC1=0
    )
    if %shipB2% LEQ 0 (
    set LshipB1=0
    )
)
if %attacker% == 4 (
    if %shipF3% LEQ 0 (
    set LshipF1=0
    )
    if %shipC3% LEQ 0 (
    set LshipC1=0
    )
    if %shipB3% LEQ 0 (
    set LshipB1=0
    )
)
if %attacker% == 5 (
    if %shipF4% LEQ 0 (
    set LshipF1=0
    )
    if %shipC4% LEQ 0 (
    set LshipC1=0
    )
    if %shipB4% LEQ 0 (
    set LshipB1=0
    )
)
if %attacker% == 6 (
    if %shipF5% LEQ 0 (
    set LshipF1=0
    )
    if %shipC5% LEQ 0 (
    set LshipC1=0
    )
    if %shipB5% LEQ 0 (
    set LshipB1=0
    )
)
goto:eof

:cleanLossesDefending
if %defending% == 1 (
    if %shipF% LEQ 0 (
    set LshipF2=0
    )
    if %shipC% LEQ 0 (
    set LshipC2=0
    )
    if %shipB% LEQ 0 (
    set LshipB2=0
    )
)
if %defending% == 2 (
    if %shipF1% LEQ 0 (
    set LshipF2=0
    )
    if %shipC1% LEQ 0 (
    set LshipC2=0
    )
    if %shipB1% LEQ 0 (
    set LshipB2=0
    )
)
if %defending% == 3 (
    if %shipF2% LEQ 0 (
    set LshipF2=0
    )
    if %shipC2% LEQ 0 (
    set LshipC2=0
    )
    if %shipB2% LEQ 0 (
    set LshipB2=0
    )
)
if %defending% == 4 (
    if %shipF3% LEQ 0 (
    set LshipF2=0
    )
    if %shipC3% LEQ 0 (
    set LshipC2=0
    )
    if %shipB3% LEQ 0 (
    set LshipB2=0
    )
)
if %defending% == 5 (
    if %shipF4% LEQ 0 (
    set LshipF2=0
    )
    if %shipC4% LEQ 0 (
    set LshipC2=0
    )
    if %shipB4% LEQ 0 (
    set LshipB2=0
    )
)
if %defending% == 6 (
    if %shipF5% LEQ 0 (
    set LshipF2=0
    )
    if %shipC5% LEQ 0 (
    set LshipC2=0
    )
    if %shipB5% LEQ 0 (
    set LshipB2=0
    )
)

goto:eof



:gatherCasualties
set /a RLshipF1=%random%%%25+1
set /a LshipF1=%RLshipF1%+(%tact2%*6)
set /a RLshipC1=%random%%%15+1
set /a LshipC1=%RLshipC1%+(%tact2%*5)
set /a RLshipB1=%random%%%5+1
set /a LshipB1=%RLshipB1%+(%tact2%*5)

set /a RLshipF2=%random%%%25+1
set /a LshipF2=%RLshipF2%+(%tact1%*4)
set /a RLshipC2=%random%%%15+1
set /a LshipC2=%RLshipC2%+(%tact1%*3)
set /a RLshipB2=%random%%%5+1
set /a LshipB2=%RLshipB2%+(%tact1%*3)
goto:eof

rem Prevent Casualties from applying when a Station not longer has a fleet.

:applyLosses
if %defending% == 1 (
    set /a shipF-=%LshipF2%
    set /a shipC-=%LshipC2%
    set /a shipB-=%LshipB2%
)
if %defending% == 2 (
    set /a shipF1-=%LshipF2%
    set /a shipC1-=%LshipC2%
    set /a shipB1-=%LshipB2%
)
if %defending% == 3 (
    set /a shipF2-=%LshipF2%
    set /a shipC2-=%LshipC2%
    set /a shipB2-=%LshipB2%
)
if %defending% == 4 (
    set /a shipF3-=%LshipF2%
    set /a shipC3-=%LshipC2%
    set /a shipB3-=%LshipB2%
)
if %defending% == 5 (
    set /a shipF4-=%LshipF2%
    set /a shipC4-=%LshipC2%
    set /a shipB4-=%LshipB2%
)
if %defending% == 6 (
    set /a shipF5-=%LshipF2%
    set /a shipC5-=%LshipC2%
    set /a shipB5-=%LshipB2%
)
if %attacker% == 1 (
    set /a shipF-=%LshipF1%
    set /a shipC-=%LshipC1%
    set /a shipB-=%LshipB1%
)
if %attacker% == 2 (
    set /a shipF1-=%LshipF1%
    set /a shipC1-=%LshipC1%
    set /a shipB1-=%LshipB1%
)
if %attacker% == 3 (
    set /a shipF2-=%LshipF1%
    set /a shipC2-=%LshipC1%
    set /a shipB2-=%LshipB1%
)
if %attacker% == 4 (
    set /a shipF3-=%LshipF1%
    set /a shipC3-=%LshipC1%
    set /a shipB3-=%LshipB1%
)
if %attacker% == 5 (
    set /a shipF4-=%LshipF1%
    set /a shipC4-=%LshipC1%
    set /a shipB4-=%LshipB1%
)
if %attacker% == 6 (
    set /a shipF5-=%LshipF1%
    set /a shipC5-=%LshipC1%
    set /a shipB5-=%LshipB1%
)
goto:eof

REM ///////            EVERYTHING FOR STATION DIPLOMACY                ////////

:getCurrentStance
if %stance% EQU 1 (
    set currentStance=At War
)
if %stance% EQU 2 (
    set currentStance=At Peace
)
if %stance% EQU 3 (
    set currentStance=Allied
)
goto:eof

:getAttackingTarget
if %attackTarget% EQU 1 (
    set playerAttackTarget=Station %station1% %stanced1%
)
if %attackTarget% EQU 2 (
    set playerAttackTarget=Station %station2% %stanced2%
)
if %attackTarget% EQU 3 (
    set playerAttackTarget=Station %station3% %stanced3%
)
if %attackTarget% EQU 4 (
    set playerAttackTarget=Station %station4% %stanced4%
)
if %attackTarget% EQU 5 (
    set playerAttackTarget=Station %station5% %stanced5%
)
goto:eof

:diplomacy
call :getStationStances
call :getAttackingTarget
call :getTopicStation
call :getCurrentStance
call :getPlayerDeath
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo  Diplomacy with Others
echo ------------------------
echo Station under Topic: Station %topicStation%
echo Current Standing:%currentStance%
echo Reputation:%currentRep%
echo Sectors:%currentSectors%
echo Combat Power:%currentCP%
echo ------------------------
echo 1) Agreements W
echo 2) Gifting
echo 3) Diplomatics
echo 4) Spy Station Roster
echo 5) Discuss another Station
echo 6) Select Target to Attack
echo       Attacking:%playerAttackTarget%
echo 0) Return
echo ------------------------
choice /c 1234560 /n >nul
if %errorlevel% == 1 (
    goto agreements
)
if %errorlevel% == 2 (
    goto gifting
)
if %errorlevel% == 3 (
    goto diplomatics
)
if %errorlevel% == 4 (
    call :getTopicStation
    goto stationInfo
)
if %errorlevel% == 5 (
    echo 1-Station %station1%
    echo 2-Station %station2%
    echo 3-Station %station3%
    echo 4-Station %station4%
    echo 5-Station %station5%
    set /p stationTopic=Which Station By # :
    goto diplomacy
)
if %errorlevel% == 6 (
    echo 1-Station %station1% %stanced1%
    echo 2-Station %station2% %stanced2%
    echo 3-Station %station3% %stanced3%
    echo 4-Station %station4% %stanced4%
    echo 5-Station %station5% %stanced5%
    set /p attackTarget=Set Attack Target:
)
if %errorlevel% == 7 (
    goto home
)
goto diplomacy

:getGiftingStation
if %giftTo% == 1 (
    set giftingStation=Station %station1%
    set giftingRep=%rep1%
)
if %giftTo% == 2 (
    set giftingStation=Station %station2%
    set giftingRep=%rep2%
)
if %giftTo% == 3 (
    set giftingStation=Station %station3%
    set giftingRep=%rep3%
)
if %giftTo% == 4 (
    set giftingStation=Station %station4%
    set giftingRep=%rep4%
)
if %giftTo% == 5 (
    set giftingStation=Station %station5%
    set giftingRep=%rep5%
)
goto:eof

:gifting
call :getGiftingStation
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo   Gifting to Others
echo ---------------------
echo 1) Select Target Station
echo 2) Gift Sector -1 +40 Relation
echo 3) Gift Tactical Knowledge -1 Tactics +55 Relation
echo 0) Return
echo ---------------------
echo Target: %giftingStation% Reputation:%giftingRep%
choice /c 1230 /n >nul
if %errorlevel% == 1 (
    echo 1-Station %station1%
    echo 2-Station %station2%
    echo 3-Station %station3%
    echo 4-Station %station4%
    echo 5-Station %station5%
    set /p giftTo=Choose by #:
)
if %errorlevel% == 2 (
    if %giftTo% EQU 1 (
        if %sectors% LSS 2 (
            set msg=Dangerously Low Sectors!
            goto gifting
        )
        set /a sectors-=1
        set /a rep1+=20
        set /a sectors1+=1
    )

    if %giftTo% EQU 2 (
        if %sectors% LSS 2 (
            set msg=Dangerously Low Sectors!
            goto gifting
        )
        set /a sectors-=1
        set /a rep2+=20
        set /a sectors2+=1
    )

    if %giftTo% EQU 3 (
        if %sectors% LSS 2 (
            set msg=Dangerously Low Sectors!
            goto gifting
        )
        set /a sectors-=1
        set /a rep3+=20
        set /a sectors3+=1
    )

    if %giftTo% EQU 4 (
        if %sectors% LSS 2 (
            set msg=Dangerously Low Sectors!
            goto gifting
        )
        set /a sectors-=1
        set /a rep4+=20
        set /a sectors4+=1
    )

    if %giftTo% EQU 5 (
        if %sectors% LSS 2 (
            set msg=Dangerously Low Sectors!
            goto gifting
        )
        set /a sectors-=1
        set /a rep5+=20
        set /a sectors5+=1
    )
)
if %errorlevel% == 3 (
if %giftTo% EQU 1 (
        if %tactics% LSS 1 (
            set msg=Not Enough Tactics!
            goto gifting
        )
        set /a tactics-=1
        set /a rep1+=35
        set /a station1Tact+=1
    )

    if %giftTo% EQU 2 (
        if %tactics% LSS 1 (
            set msg=Not Enough Tactics!
            goto gifting
        )
        set /a tactics-=1
        set /a rep2+=35
        set /a station2Tact+=1
    )

    if %giftTo% EQU 3 (
        if %tactics% LSS 1 (
            set msg=Not Enough Tactics!
            goto gifting
        )
        set /a tactics-=1
        set /a rep3+=35
        set /a station3Tact+=1
    )

    if %giftTo% EQU 4 (
        if %tactics% LSS 1 (
            set msg=Not Enough Tactics!
            goto gifting
        )
        set /a tactics-=1
        set /a rep4+=35
        set /a station4Tact+=1
    )

    if %giftTo% EQU 5 (
        if %tactics% LSS 1 (
            set msg=Not Enough Tactics!
            goto gifting
        )
        set /a tactics-=1
        set /a rep5+=35
        set /a station5Tact+=1
    )
)
if %errorlevel% == 4 (
goto diplomacy
)
goto gifting

:diplomatics
call :getTopicStation
call :getCurrentStance
call :getPlayerDeath
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo  Diplomacy with Others
echo ------------------------
echo Station under Topic: Station %topicStation%
echo Current Standing:%currentStance%
echo Reputation:%currentRep%
echo Sectors:%currentSectors%
echo Combat Power:%currentCP%
echo ------------------------
echo    1) Form Alliance +50 Reputation
echo    2) Propose Peace -1 Sector 0 Relation
echo    3) Declare War -75 Reputation
echo    0) Return
echo ------------------------
echo Info:%msg%
choice /c 1230 /n >nul

if %errorlevel% == 1 (
    if %stationTopic% EQU 1 (
        if %stance1% EQU 1 (
            set msg=Must Make Peace First.
            goto diplomatics
        )
        if %rep1% LSS 50 (
            set msg=Low Reputation!
            goto diplomatics
        )
        if %stance1% EQU 3 (
            set msg=Already Allied.
            goto diplomatics
        ) else (set msg= )
        set /a rep1+=50
        set stance1=3
        goto diplomatics
    )

    if %stationTopic% EQU 2 (
        if %stance2% EQU 1 (
            set msg=Must Make Peace First.
            goto diplomatics
        )
        if %rep2% LSS 50 (
            set msg=Low Reputation!
            goto diplomatics
        )
        if %stance2% EQU 3 (
            set msg=Already Allied.
            goto diplomatics
        ) else (set msg= )
        set /a rep2+=50
        set stance2=3
        goto diplomatics
    )

    if %stationTopic% EQU 3 (
        if %stance3% EQU 1 (
            set msg=Must Make Peace First.
            goto diplomatics
        )
        if %rep3% LSS 50 (
            set msg=Low Reputation!
            goto diplomatics
        )
        if %stance3% EQU 3 (
            set msg=Already Allied.
            goto diplomatics
        ) else (set msg= )
        set /a rep3+=50
        set stance3=3
        goto diplomatics
    )

    if %stationTopic% EQU 4 (
        if %stance4% EQU 1 (
            set msg=Must Make Peace First.
            goto diplomatics
        )
        if %rep4% LSS 50 (
            set msg=Low Reputation!
            goto diplomatics
        )
        if %stance4% EQU 3 (
            set msg=Already Allied.
            goto diplomatics
        ) else (set msg= )
        set /a rep4+=50
        set stance4=3
        goto diplomatics
    )

    if %stationTopic% EQU 5 (
        if %stance5% EQU 1 (
            set msg=Must Make Peace First.
            goto diplomatics
        )
        if %rep5% LSS 50 (
            set msg=Low Reputation!
            goto diplomatics
        )
        if %stance5% EQU 3 (
            set msg=Already Allied.
            goto diplomatics
        ) else (set msg= )
        set /a rep5+=50
        set stance5=3
    )
    goto diplomatics
)

if %errorlevel% == 2 (
    if %stationTopic% EQU 1 (
        if %stance1% EQU 2 (
            set msg=Already at Peace.
            goto diplomatics
        )
        set rep1=0
        set stance1=2
        set /a sectors-=1
        set /a sectors1+=1
        goto diplomatics
    )

    if %stationTopic% EQU 2 (
        if %stance2% EQU 2 (
            set msg=Already at Peace.
            goto diplomatics
        )
        set rep2=0
        set stance2=2
        set /a sectors-=1
        set /a sectors2+=1
        goto diplomatics
    )

    if %stationTopic% EQU 3 (
        if %stance3% EQU 2 (
            set msg=Already at Peace.
            goto diplomatics
        )
        set rep3=0
        set stance3=2
        set /a sectors-=1
        set /a sectors3+=1
        goto diplomatics
    )

    if %stationTopic% EQU 4 (
        if %stance4% EQU 2 (
            set msg=Already at Peace.
            goto diplomatics
        )
        set rep4=0
        set stance4=2
        set /a sectors-=1
        set /a sectors4+=1
        goto diplomatics
    )

    if %stationTopic% EQU 5 (
        if %stance5% EQU 2 (
            set msg=Already at Peace.
            goto diplomatics
        )
        set rep5=0
        set stance5=2
        set /a sectors-=1
        set /a sectors5+=1
    )
    goto diplomatics
)

if %errorlevel% == 3 (
    if %stationTopic% EQU 1 (
        if %stance1% EQU 1 (
            set msg=Already at War.
            goto diplomatics
        )
        set /a rep1-=75
        set stance1=1
    )

    if %stationTopic% EQU 2 (
        if %stance2% EQU 1 (
            set msg=Already at War.
            goto diplomatics
        )
        set /a rep2-=75
        set stance2=1
    )

    if %stationTopic% EQU 3 (
        if %stance3% EQU 1 (
            set msg=Already at War.
            goto diplomatics
        )
        set /a rep3-=75
        set stance3=1
    )

    if %stationTopic% EQU 4 (
        if %stance4% EQU 1 (
            set msg=Already at War.
            goto diplomatics
        )
        set /a rep4-=75
        set stance4=1
    )

    if %stationTopic% EQU 5 (
        if %stance5% EQU 1 (
            set msg=Already at War.
            goto diplomatics
        )
        set /a rep5-=75
        set stance5=1
    )
    goto diplomatics
)
if %errorlevel% == 4 (
goto diplomacy
)
goto diplomatics

:getAdvice
if %CP% GTR %currentCP% (
set A=we are stronger than them.
)
if %CP% EQU %currentCP% (
set A=they are of equal power we should have caution.
)
if %CP% LSS %currentCP% (
set A=if we face them we'll suffer casualities.
)
goto:eof

:stationInfo
cls
call :getAdvice
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Ships:%ships% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo CP:%currentCP%
echo Total Ships:%currentShips%
echo.
echo Fighters:%currentShipF%
echo Corvettes:%currentShipC%
echo Battleships:%currentShipB%
echo -----------------------
echo Advice: Our Current CP is %CP% -You:::Them- %currentCP% relative to theirs %A%
pause>nul
goto diplomacy

REM //// GET STATIONS INDIVIDUAL SHIP COMBAT POWER AND MULTIPLY PER SHIP FOR THAT STATIONS STATISTICS ////

:getShipStats1
set /a shipFS1=15*%shipF1%
set /a shipCS1=65*%shipC1%
set /a shipBS1=145*%shipB1%
set /a CP1=%shipFS1%+%shipCS1%+%shipBS1%
set /a ships1=%shipF1%+%shipC1%+%shipB1%
goto:eof

:getShipStats2
set /a shipFS2=15*%shipF2%
set /a shipCS2=65*%shipC2%
set /a shipBS2=145*%shipB2%
set /a CP2=%shipFS2%+%shipCS2%+%shipBS2%
set /a ships2=%shipF2%+%shipC2%+%shipB2%
goto:eof

:getShipStats3
set /a shipFS3=15*%shipF3%
set /a shipCS3=65*%shipC3%
set /a shipBS3=145*%shipB3%
set /a CP3=%shipFS3%+%shipCS3%+%shipBS3%
set /a ships3=%shipF3%+%shipC3%+%shipB3%
goto:eof

:getShipStats4
set /a shipFS4=15*%shipF4%
set /a shipCS4=65*%shipC4%
set /a shipBS4=145*%shipB4%
set /a CP4=%shipFS4%+%shipCS4%+%shipBS4%
set /a ships4=%shipF4%+%shipC4%+%shipB4%
goto:eof

:getShipStats5
set /a shipFS5=15*%shipF5%
set /a shipCS5=65*%shipC5%
set /a shipBS5=145*%shipB5%
set /a CP5=%shipFS5%+%shipCS5%+%shipBS5%
set /a ships5=%shipF5%+%shipC5%+%shipB5%
goto:eof

:getTopicStation
if %stationTopic% EQU 1 (
    set topicStation=%station1%
    set currentRep=%rep1%
    set currentSectors=%sectors1%
    set currentShipF=%shipF1%
    set currentShipC=%shipC1%
    set currentShipB=%shipB1%
    set /a currentShips=%shipF1%+%shipC1%+%shipB1%
    call :getShipStats1
    set /a currentCP=%shipFS1%+%shipCS1%+%shipBS1%
    if %stance1% EQU 1 (
        set stance=1
    )
    if %stance1% EQU 2 (
        set stance=2
    )
    if %stance1% EQU 3 (
        set stance=3
    )
)
if %stationTopic% EQU 2 (
    set topicStation=%station2%
    set currentRep=%rep2%
    set currentSectors=%sectors2%
    set currentShipF=%shipF2%
    set currentShipC=%shipC2%
    set currentShipB=%shipB2%
    set /a currentShips=%shipF2%+%shipC2%+%shipB2%
    call :getShipStats2
    set /a currentCP=%shipFS2%+%shipCS2%+%shipBS2%
    if %stance2% EQU 1 (
        set stance=1
    )
    if %stance2% EQU 2 (
        set stance=2
    )
    if %stance2% EQU 3 (
        set stance=3
    )
)
if %stationTopic% EQU 3 (
    set topicStation=%station3%
    set currentRep=%rep3%
    set currentSectors=%sectors3%
    set currentShipF=%shipF3%
    set currentShipC=%shipC3%
    set currentShipB=%shipB3%
    set /a currentShips=%shipF3%+%shipC3%+%shipB3%
    call :getShipStats3
    set /a currentCP=%shipFS3%+%shipCS3%+%shipBS3%
    if %stance3% EQU 1 (
        set stance=1
    )
    if %stance3% EQU 2 (
        set stance=2
    )
    if %stance3% EQU 3 (
        set stance=3
    )
)
if %stationTopic% EQU 4 (
    set topicStation=%station4%
    set currentRep=%rep4%
    set currentSectors=%sectors4%
    set currentShipF=%shipF4%
    set currentShipC=%shipC4%
    set currentShipB=%shipB4%
    set /a currentShips=%shipF4%+%shipC4%+%shipB4%
    call :getShipStats4
    set /a currentCP=%shipFS4%+%shipCS4%+%shipBS4%
    if %stance4% EQU 1 (
        set stance=1
    )
    if %stance4% EQU 2 (
        set stance=2
    )
    if %stance4% EQU 3 (
        set stance=3
    )
)
if %stationTopic% EQU 5 (
    set topicStation=%station5%
    set currentRep=%rep5%
    set currentSectors=%sectors5%
    set currentShipF=%shipF5%
    set currentShipC=%shipC5%
    set currentShipB=%shipB5%
    set /a currentShips=%shipF5%+%shipC5%+%shipB5%
    call :getShipStats5
    set /a currentCP=%shipFS5%+%shipCS5%+%shipBS5%
    if %stance5% EQU 1 (
        set stance=1
    )
    if %stance5% EQU 2 (
        set stance=2
    )
    if %stance5% EQU 3 (
        set stance=3
    )
)
goto:eof

:getPlayerDeath
if %sectors% LSS 0 (
            goto endgame
        )
goto:eof

:endgame
cls
echo -------------------------------
echo        Well that Sucks.
echo             R.I.P
echo -------------------------------
echo You lost all of your sectors...
echo -------------------------------
pause>nul
goto start

REM //////                      EVERYTHING FOR BOUNTY HUNTING                    /////

:getIfBountiesMultiplied
set /a bountyScore=25*%bountyMultiplier%
if %bountyCaught% GEQ %bountyScore% (
    set /a bountyMultiplier+=1
)
goto:eof

:bountyBoard
call :getSquadTotal
call :getIsShipDead
call :getPresetBountyData
call :getIfBountiesMultiplied
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo Bounties Caught:%bountyCaught%/%bountyScore%
echo ----------------------------
echo        Bounty Board
echo     -----------------
echo     /   U           \
echo     /          U    \
echo     /     U         \
echo     -----------------
echo Info:%msg%
echo ----------------------------
echo 1-Collect Reward %coffers%
echo 2-Find Bounties Available:%bountyAvail%
echo 3-Manage Squad
echo 0-Return
echo ----------------------------
choice /c 1230 /n >nul

if %errorlevel% == 1 (
    set /a credits+=%coffers%
    set /a coffers-=%coffers%
    set msg=Bounty Collected
)
if %errorlevel% == 2 (
    if %bountyAvail% LSS 1 (
        set msg=No Bounties Available End Current Turn.
        goto bountyBoard
    )
    if %currentHuntee% EQU 1 (
        if %playerHunter% EQU 0 (
            set msg=Change Current Hunter, this one is Dead!
            goto bountyBoard
        ) else (set msg=)
    )
    if %currentHuntee% EQU 2 (
        if %hunter1% EQU 0 (
            set msg=Change Current Hunter, this one is Dead!
            goto bountyBoard
        ) else (set msg=)
    )
    if %currentHuntee% EQU 3 (
        if %hunter2% EQU 0 (
            set msg=Change Current Hunter, this one is Dead!
            goto bountyBoard
        ) else (set msg=)
    )
    if %currentHuntee% EQU 4 (
        if %hunter3% EQU 0 (
            set msg=Change Current Hunter, this one is Dead!
            goto bountyBoard
        ) else (set msg=)
    )
    set /a bountyAvail-=1
    set /a bountyDiff=%random%%%3+1
    set /a bountyN1=%random%%%5+1
    set /a bountyN2=%random%%%5+1
    set /a bountyE=%random%%%2000+1000
    set /a bountyM=%random%%%6000+2000
    set /a bountyH=%random%%%8000+3000
    call :bountyDiffList
    call :bountyNaming
    set bountyName=%Bname1%%Bname2%
    goto bountyFind
)
if %errorlevel% == 3 (
    goto squadManage
)
if %errorlevel% == 4 (
    goto home
)
goto bountyBoard

:squadManage
call :getSquadTotal
call :getSelectedHunter
call :playerHunters
call :getIsShipDead
call :getCurrentHunteeData
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo   Station %playername%'s Bounty Hunting Vessels
echo ------------------
echo 1-%playername% Hunter -%playerShip%-
echo 2-%playername% Outlaw Hunter -%hunterShip1%-
echo 3-%playername% Crook Hunter -%hunterShip2%-
echo 4-%playername% Vermin Hunter -%hunterShip3%-
echo ------------------
echo 1) Select Ship to Outfit %hunterSelected%
echo 2) Select Ship for Hunts %currentHunter%
echo 3) Outfitter
echo 0) Return
echo ------------------
choice /c 1230 /n >nul

if %errorlevel% == 1 (
    echo 1-Hunter %playerShip%
    echo 2-Second Hunter %hunterShip1%
    echo 3-Third Hunter %hunterShip2%
    echo 4-Fourth Hunter %hunterShip3%
    set /p hunterSelect=Choice by #:
    goto squadManage
)
if %errorlevel% == 2 (
    echo 1-Hunter %playerShip%
    echo 2-Second Hunter %hunterShip1%
    echo 3-Third Hunter %hunterShip2%
    echo 4-Fourth Hunter%hunterShip3%
    set /p currentHuntee=Choice by #:
    goto squadManage
)
if %errorlevel% == 3 (
    goto outfitting
)
if %errorlevel% == 4 (
    goto bountyBoard
)
goto squadManage

:outfitting
call :getShipHulls
call :playerHunters
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo  Outfitting %hunterSelected% %hull%/%hullMax%
echo --------------------
echo 1) Repair Hull
echo 2) Upgrades
echo 3) Purchase Hunter -5000 Credits
echo 0) Return
echo --------------------
echo Info:%msg%
echo --------------------
choice /c 1230 /n >nul
if %errorlevel% == 1 (
    if %hunterSelect% EQU 1 (
        if %playerHunter% EQU 1 (
            if %hunterHull% GEQ %hunterHullMax% (
                set msg=Fully Repaired!
                set hunterHull=%hunterHullMax%
                goto outfitting
            ) else (set msg=)
            set hunterHull=%hunterHullMax%
        ) else (
            set msg=No Hunter Available!
            goto outfitting
        )
        goto outfitting
    )
    if %hunterSelect% EQU 2 (
        if %hunter1% EQU 1 (
            if %hunter1Hull% GEQ %hunter1HullMax% (
                set msg=Fully Repaired!
                set hunter1Hull=%hunter1HullMax%
                goto outfitting
            ) else (set msg=)
            set hunter1Hull=%hunter1HullMax%
        ) else (
            set msg=No Hunter Available!
            goto outfitting
        )
        goto outfitting
    )
    if %hunterSelect% EQU 3 (
        if %hunter2% EQU 1 (
            if %hunter2Hull% GEQ %hunter2HullMax% (
                set msg=Fully Repaired!
                set hunter2Hull=%hunter2HullMax%
                goto outfitting
            ) else (set msg=)
            set hunter2Hull=%hunter2HullMax%
        ) else (
            set msg=No Hunter Available!
            goto outfitting
        )
        goto outfitting
    )
    if %hunterSelect% EQU 4 (
        if %hunter3% EQU 1 (
            if %hunter3Hull% GEQ %hunter3HullMax% (
                set msg=Fully Repaired!
                set hunter3Hull=%hunter3HullMax%
                goto outfitting
            ) else (set msg=)
            set hunter3Hull=%hunter3HullMax%
        ) else (
            set msg=No Hunter Available!
            goto outfitting
        )
        goto outfitting
    )
    goto outfitting
)

if %errorlevel% == 2 (
    goto shipUpgrades
)
if %errorlevel% == 3 (
    if %credits% LSS 5000 goto outfitting

    if %hunterSelect% EQU 1 (
        if %playerHunter% EQU 1 (
            set msg=Slot Filled Already!
            goto outfitting
        )
        set /a credits-=5000
        set /a playerHunter+=1
        set msg=New Vessel Purchased!
        set hunterHull=%hunterHullMax%
    )
    if %hunterSelect% EQU 2 (
        if %hunter1% EQU 1 (
            set msg=Slot Filled Already!
            goto outfitting
        )
        set /a credits-=5000
        set /a hunter1+=1
        set msg=New Vessel Purchased!
        set hunter1Hull=%hunter1HullMax%
    )
    if %hunterSelect% EQU 3 (
        if %hunter2% EQU 1 (
            set msg=Slot Filled Already!
            goto outfitting
        )
        set /a credits-=5000
        set /a hunter2+=1
        set msg=New Vessel Purchased!
        set hunter2Hull=%hunter2HullMax%
    )
    if %hunterSelect% EQU 4 (
        if %hunter3% EQU 1 (
            set msg=Slot Filled Already!
            goto outfitting
        )
        set /a credits-=5000
        set /a hunter3+=1
        set msg=New Vessel Purchased!
        set hunter3Hull=%hunter3HullMax%
    )
    call :getSquadTotal
    goto outfitting
)
if %errorlevel% == 4 (
    goto squadManage
)
goto outfitting

:shipUpgrades
set /a rewardMulti=50000*%multiplier%
call :getShipHulls
call :getSelectedHunter
call :getCurrentHunteeData
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo    Upgrading %hunterSelected%
echo ---------------------
echo 1) Upgrade Hull +5 Health -%hullUpgradeX%
echo 2) Upgrade Reward Multiplier -%rewardMulti%
echo 0) Return
echo ---------------------
echo Info:%msg%
echo ---------------------
choice /c 120 /n >nul
if %errorlevel% == 1 (
    if %credits% LSS %hullUpgradeX% (
        set msg=Not enough credits to Upgrade!
        goto shipUpgrades
    ) else (set msg=)
    set /a credits-=%hullUpgradeX%
    if %hunterSelect% EQU 1 (
        set /a hullUpgrade1+=1
        call :getCurrentHunteeData
        set hunterHull=%hunterHullMax%
    )
    if %hunterSelect% EQU 2 (
        set /a hullUpgrade2+=1
        call :getCurrentHunteeData
        set hunter1Hull=%hunter1HullMax%
    )
    if %hunterSelect% EQU 3 (
        set /a hullUpgrade3+=1
        call :getCurrentHunteeData
        set hunter2Hull=%hunter2HullMax%
    )
    if %hunterSelect% EQU 4 (
        set /a hullUpgrade4+=1
        call :getCurrentHunteeData
        set hunter3Hull=%hunter3HullMax%
    )
    goto shipUpgrades
)
if %errorlevel% == 2 (
    if %credits% LSS %rewardMulti% (
        set msg=Not enough credits to Upgrade!
        goto shipUpgrades
    )
    set /a credits-=%rewardMulti%
    set /a multiplier+=1
    goto shipUpgrades
)
if %errorlevel% == 3 (
    goto outfitting
)
pause>nul
goto shipUpgrades

:bountyFind
call :bountyNaming
call :bountyDiffList
call :getBountyMultiplier
call :getSquadTotal
call :playerHunters
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo We have found a potential bounty take a look:
echo Name:%bountyName%
echo `:---:'
echo Difficulty:%bountyChall%
echo Reward:%bountyPot%
echo -----------------------
echo 1) Take on Bounty
echo 2) Leave Bounty
choice /c 12 /n >nul
if %errorlevel% == 1 (
    if %squadSize% LSS 1 (
        set msg=No Hunters Available, repair or buy Hunters!
        goto bountyBoard
    ) else (set msg=)
    set dmg=%bountyDiff%
    set /a coffers+=%bountyPot%*%bountyMultiplier%
    goto bountyResult
)
if %errorlevel% == 2 (
    set /a bountyAvail+=1
    goto bountyBoard
)
pause>nul
goto bountyBoard

:bountyResult
call :getCurrentHuntee
call :getAppliedDamage
call :getIsShipDead
call :playerHunters
cls
echo ----------------------------------------------------------------------------------------------
echo  Credits:%credits% /\ Squad:%squadSize% /\ Sectors:%sectors% /\ Public Favor:%PF% /\ Tactics:%tactics% /\ Year:%year%
echo ----------------------------------------------------------------------------------------------
echo Captured %bountyName% adding +%bountyPot% to your Unclaimed Bounty Rewards which now total:%coffers%
echo.
echo %currentHunter% %hullHealth%/%hullHealthMax%
echo Suffered %bountyDiff% Damage to their hull.
pause>nul
set /a PF+=1
set /a bountyCaught+=1
goto bountyBoard

:getShipHulls
set hullBaseUp=4500
if %hunterSelect% EQU 1 (
    set hull=%hunterHull%
    set hullMax=%hunterHullMax%
    set /a hullUpgradeX=%hullBaseUp%*%hullUpgrade1%
)
if %hunterSelect% EQU 2 (
    set hull=%hunter1Hull%
    set hullMax=%hunter1HullMax%
    set /a hullUpgradeX=%hullBaseUp%*%hullUpgrade2%
)
if %hunterSelect% EQU 3 (
    set hull=%hunter2Hull%
    set hullMax=%hunter2HullMax%
    set /a hullUpgradeX=%hullBaseUp%*%hullUpgrade3%
)
if %hunterSelect% EQU 4 (
    set hull=%hunter3Hull%
    set hullMax=%hunter3HullMax%
    set /a hullUpgradeX=%hullBaseUp%*%hullUpgrade4%
)
goto:eof

:getSquadTotal
set /a squadSize=%playerHunter%+%hunter1%+%hunter2%+%hunter3%
goto:eof

:getSelectedHunter
if %hunterSelect% EQU 1 (
    set hunterSelected=Hunter
)
if %hunterSelect% EQU 2 (
    set hunterSelected=Second Hunter
)
if %hunterSelect% EQU 3 (
    set hunterSelected=Third Hunter
)
if %hunterSelect% EQU 4 (
    set hunterSelected=Fourth Hunter
)
goto:eof

:getCurrentHunteeData
if %currentHuntee% EQU 1 (
    set currentHunter=Hunter
    set /a hunterHullMax=5*%hullUpgrade1%
)
if %currentHuntee% EQU 2 (
    set currentHunter=Second Hunter
    set /a hunter1HullMax=5*%hullUpgrade2%
)
if %currentHuntee% EQU 3 (
    set currentHunter=Third Hunter
    set /a hunter2HullMax=5*%hullUpgrade3%
)
if %currentHuntee% EQU 4 (
    set currentHunter=Fourth Hunter
    set /a hunter3HullMax=5*%hullUpgrade4%
)
goto:eof

:getPresetBountyData
rem Used to fill Empty First Variable's when first Finding Bounty
set /a bountyDiff=%random%%%3+1
    set /a bountyN1=%random%%%5+1
    set /a bountyN2=%random%%%5+1
    set /a bountyE=%random%%%2000+1000
    set /a bountyM=%random%%%6000+2000
    set /a bountyH=%random%%%8000+3000
    set bountyName=%Bname1%%Bname2%
call :bountyNaming
call :bountyDiffList
goto:eof

:getAppliedDamage
set /a hullHealth-=%bountyDiff%
goto:eof

:getBountyMultiplier
set bountyRMulti=25
if %bountyCaught% EQU %bountyRMulti% (
    set /a bountyMultiplier+=1
    set bountyCaught=0
)
goto:eof

:getIsShipDead
if %hunterHull% LSS 0 (
    set playerHunter=0
    set playerShip=Not Ready
    set hunterHull=0
    set hunterHullMax=5
    set hullUpgrade1=1
)
if %hunter1Hull% LSS 0 (
    set hunter1=0
    set hunterShip1=Not Ready
    set hunter1Hull=0
    set hunter1HullMax=5
    set hullUpgrade2=1
)
if %hunter2Hull% LSS 0 (
    set hunter2=0
    set hunterShip2=Not Ready
    set hunter2Hull=0
    set hunter2HullMax=5
    set hullUpgrade3=1
)
if %hunter3Hull% LSS 0 (
    set hunter3=0
    set hunterShip3=Not Ready
    set hunter3Hull=0
    set hunter3HullMax=5
    set hullUpgrade4=1
)
goto:eof

:getCurrentHuntee
if %currentHuntee% EQU 1 (
    set /a hunterHull-=%bountyDiff%
    set currentHunter=Hunter
    set hullHealth=%hunterHull%
    set hullHealthMax=%hunterHullMax%
)
if %currentHuntee% EQU 2 (
    set /a hunterHull-=%bountyDiff%
    set currentHunter=Second Hunter
    set hullHealth=%hunter1Hull%
    set hullHealthMax=%hunter1HullMax%
)
if %currentHuntee% EQU 3 (
    set /a hunterHull-=%bountyDiff%
    set currentHunter=Third Hunter
    set hullHealth=%hunter2Hull%
    set hullHealthMax=%hunter2HullMax%
)
if %currentHuntee% EQU 4 (
    set /a hunterHull-=%bountyDiff%
    set currentHunter=Fourth Hunter
    set hullHealth=%hunter3Hull%
    set hullHealthMax=%hunter3HullMax%
)
goto:eof

:bountyDiffList
if %bountyDiff% EQU 1 (
    set bountyChall=Easy
    set /a bountyPot=%bountyE%*%multiplier%
)
if %bountyDiff% EQU 2 (
    set bountyChall=Medium
    set /a bountyPot=%bountyM%*%multiplier%
)
if %bountyDiff% EQU 3 (
    set bountyChall=Hard
    set /a bountyPot=%bountyH%*%multiplier%
)
goto:eof

:bountyNaming
if %bountyN1% EQU 1 (
    set Bname1=Jack
)
if %bountyN1% EQU 2 (
    set Bname1=Able
)
if %bountyN1% EQU 3 (
    set Bname1=Endo
)
if %bountyN1% EQU 4 (
    set Bname1=Endous
)
if %bountyN1% EQU 5 (
    set Bname1=Venom
)

if %bountyN2% EQU 1 (
    set Bname2=the Cannibal
)
if %bountyN2% EQU 2 (
    set Bname2=the Hated
)
if %bountyN2% EQU 3 (
    set Bname2=the Outlaw
)
if %bountyN2% EQU 4 (
    set Bname2=the Raider
)
if %bountyN2% EQU 5 (
    set Bname2=the Petty
)
goto:eof

:playerHunters
if %playerHunter% EQU 0 (
    set playerShip=Not Ready
)
if %playerHunter% EQU 1 (
    set playerShip=Ready
)

if %hunter1% EQU 0 (
    set hunterShip1=Not Ready
)
if %hunter1% EQU 1 (
    set hunterShip1=Ready
)

if %hunter2% EQU 0 (
    set hunterShip2=Not Ready
)
if %hunter2% EQU 1 (
    set hunterShip2=Ready
)

if %hunter3% EQU 0 (
    set hunterShip3=Not Ready
)
if %hunter3% EQU 1 (
    set hunterShip3=Ready
)
goto:eof