@echo off
setlocal
set #15galFuelTank=0
:shop -- where is this supposed to be?
:a10barn
cls
call :ListOptions "First"
echo:
set /p a10barn=
if "%a10barn%"=="1" goto :a11fueltank
if "%a10barn%"=="2" goto :a11flywheel
if "%a10barn%"=="3" goto :a11transmission
if "%a10barn%"=="4" goto :a11carborator
if "%a10barn%"=="5" goto :a11engine
if "%a10barn%"=="6" goto :a11battery
if "%a10barn%"=="7" goto :a11toolshed
if "%a10barn%"=="8" goto :startfarmallsuperh
goto :a10barn
:a11fueltank
cls
if defined #15galFuelTank if %#15galFuelTank% geq 1 goto :a11transmissionfixed
echo:
echo The fuel tank is rotted out you will need x1 "Fuel Tank 15 Gallon" from the shop or the toolsheds storage to crank the tractor.
echo:
call :ListOptions "Next"
echo:
set /p a11fueltank=
if "%a11fueltank%"=="1" goto :a11fueltank
if "%a11fueltank%"=="2" goto :a11flywheel
if "%a11fueltank%"=="3" goto :a11transmission
if "%a11fueltank%"=="4" goto :a11carborator
if "%a11fueltank%"=="5" goto :a11engine
if "%a11fueltank%"=="6" goto :a11battery
if "%a11fueltank%"=="7" goto :a11toolshed
goto :a11fueltank
:a11flywheel
cls
if defined Hammers if %Hammers% geq 1 goto :a11flywheelfixed
echo:
echo The flywheel is stuck! You will need a hammer to fix it.
echo:
call :ListOptions "Next"
echo:
set /p a11flywheel=
if "%a11flywheel%"=="1" goto :a11fueltank
if "%a11flywheel%"=="2" goto :a11flywheel
if "%a11flywheel%"=="3" goto :a11transmission
if "%a11flywheel%"=="4" goto :a11carborator
if "%a11flywheel%"=="5" goto :a11engine
if "%a11flywheel%"=="6" goto :a11battery
if "%a11flywheel%"=="7" goto :a11toolshed
goto :a11flywheel
:a11transmission
cls
if defined Wrenchs if %Wrenchs% geq 1 goto :a11transmissionfixed
echo:
echo The transmission is stuck in "Reverse Gear", to fix this you manually have to turn the Transmission to "Nuetral", you will need Wrench Size 2 to manually turn the Transmission.
echo You can find it the the toolshed if you have it.
call :ListOptions "Next"
set /p a11transmission=
if "%a11transmission%"=="1" goto :a11fueltank
if "%a11transmission%"=="2" goto :a11flywheel
if "%a11transmission%"=="3" goto :a11transmission
if "%a11transmission%"=="4" goto :a11carborator
if "%a11transmission%"=="5" goto :a11engine
if "%a11transmission%"=="6" goto :a11battery
if "%a11transmission%"=="7" goto :a11toolshed
goto :a11transmission
:a11carborator
cls
if defined Wrenchs if %Wrenchs% geq 1 goto :a11carboratorfixed
echo:
echo The carborator is clogged, you will need a "Wrench Size 4" to unscrew the hose clamps.
call :ListOptions "Next"
set /p a11carborator=
if "%a11carborator%"=="1" goto :a11fueltank
if "%a11carborator%"=="2" goto :a11flywheel
if "%a11carborator%"=="3" goto :a11transmission
if "%a11carborator%"=="4" goto :a11carborator
if "%a11carborator%"=="5" goto :a11engine
if "%a11carborator%"=="6" goto :a11battery
if "%a11carborator%"=="7" goto :a11toolshed
goto :a11carborator
:a11engine
cls
if defined Bottleofrustremover if %Bottleofrustremover% geq 1 goto :a11enginefixed
echo:
echo The engine block is starting to get some surface rust, all you need is a "Bottle of Rust Remover", you probably have it in the shed.
call :ListOptions "Next"
set /p a11engine=
if "%a11engine%"=="1" goto :a11fueltank
if "%a11engine%"=="2" goto :a11flywheel
if "%a11engine%"=="3" goto :a11transmission
if "%a11engine%"=="4" goto :a11carborator
if "%a11engine%"=="5" goto :a11engine
if "%a11engine%"=="6" goto :a11battery
if "%a11engine%"=="7" goto :a11toolshed
goto :a11engine
:a11battery
cls
if defined BatteryTester if %BatteryTester% geq 1 goto :a11batteryfixed
echo:
echo The battery needs to be tested, use a "Battery Tester" to test your battery. You might have one in your toolshed.
call :ListOptions "Next"
echo:
set /p a11battery=
if "%a11battery%"=="1" goto :a11fueltank
if "%a11battery%"=="2" goto :a11flywheel
if "%a11battery%"=="3" goto :a11transmission
if "%a11battery%"=="4" goto :a11carborator
if "%a11battery%"=="5" goto :a11engine
if "%a11battery%"=="6" goto :a11battery
if "%a11battery%"=="7" goto :a11toolshed
goto :a11battery
:a11transmissionfixed
cls
set transmissionstartfsh=1
call :FixOnePart "Transmission"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11flywheelfixed
cls
set flywheelstartfsh=1
call :FixOnePart "Flywheel"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11batteryfixed
cls
set batterystartfsh=1
call :FixOnePart "Battery"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11carboratorfixed
cls
set carboratorstartfsh=1
call :FixOnePart "Carborator"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11enginefixed
cls
set enginestartfsh=1
call :FixOnePart "Engine"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11fueltankfixed
cls
set fueltankstartfsh=1
call :FixOnePart "Fuel Tank"
set /p fix=
if "%fix%"=="1" goto :a10barn
:a11toolshed
cls
echo:
echo This place is a mess, I have to clean it before I can find any tools. Press 1 to load.
echo:
set /p a11toolshed=
if "%a11toolshed%"=="1" goto :loadtoolshed
goto :a11toolshed
:loadtoolshed
cls
echo Loading Complete, press 1 to continue.
set Wrenchs=3
set Hammers=1
set Nuts=16
set Washers=9
set BatteryTester=0
set Tirepump=0
set BottleOfRustRemover=1
set #15galFuelTank=0
set /p load=
if "%load%"=="1" goto :toolshed
:toolshed
echo:
echo You have %Wrenchs% wrenchs, %Hammers% hammers, %Nuts% nuts, %Washers% washers,
echo %BatteryTester% battery testers, %Tirepump% tire pumps, %#15galFuelTank% 15 gallon fuel tanks, and %BottleOfRustRemover% Bottles of rust remover.
echo:
echo Go to? 1. Barn 2. Shop
echo:
set /p toolshed=
if "%toolshed%"=="1" goto :a10barn
if "%toolshed%"=="2" goto :shop
goto :toolshed
:startfarmallsuperh
cls
if "%fueltankstartfsh%"=="1" echo What is supposed to happen here?
if "%batterystartfsh%"=="1" echo What is supposed to happen here?
if "%carboratorstartfsh%"=="1" echo What is supposed to happen here?
if "%enginestartfsh%"=="1" echo What is supposed to happen here?
if "%flywheelstartfsh%"=="1" echo What is supposed to happen here?
if "%transmissionstartfsh%"=="1" echo What is supposed to happen here?
echo Press 1 To Start
echo:
set /p starting=
if "%starting%"=="1" goto :fsh
goto :a10barn
:fsh
cls
echo test
echo:
set /p fff=
if "%fff%"=="1" goto :startfarmallsuperh
:ListOptions -- %1 = "First" or some other entry
echo:
if /i "%~1"=="First" (
set "#msg1=What do you want to check first?"
set "#msg2=7. Go to Toolshed first instead."
set "#msg3=8. Try to start Farmall Super H"
) else (
set "#msg1=What do you want to check next?"
set "#msg2=7. Toolshed."
set "#msg3="
)
echo:%#msg1%
echo:
echo 1. The Fuel Tank.
echo 2. The flywheel.
echo 3. The Transmission
echo 4. The carborator
echo 5. The engine
echo 6. Battery
echo:%#msg2%
echo:%#msg3%
echo:
goto :EOF
:FixOnePart -- %1 = "{Part to be fixed}"
echo:
echo You have the correct parts to fix the %~1! Press 1 to fix.
echo:
goto :EOF
