なんJ民に頼らずサクサクセススレを作る方法

@echo off

set hoge=%random%
call :func_sebango

set position=
echo +-------------------------------------------------------+
echo  投手ですか？野手ですか？
echo （1: 投手　2: 野手)
echo +-------------------------------------------------------+
set /P position=

rem 変数定義

rem ゼロ埋め用文字列(3桁)
set zeros=000
call :func_var

call :func_zero
call :func_zero_num

call :func_name
call :func_birth

call :func_form
call :func_form_num
call :func_pref

call :finish

pause
exit /b


:func_var
rem 変数定義

set /a year=%random%*24/32767+1979
set /a month=%random%*12/32767+1

if %month%==2 set /a day=%random%*28/32767+1

set TRUE_FALSE=FALSE
IF "%month%"=="4" set TRUE_FALSE=TRUE
IF "%month%"=="6" set TRUE_FALSE=TRUE
IF "%month%"=="9" set TRUE_FALSE=TRUE
IF "%month%"=="11" set TRUE_FALSE=TRUE
IF %TRUE_FALSE%==TRUE (
	set /a day=%random%*30/32767+1
) else (
	set /a day=%random%*31/32767+1
)

if "%position%"=="1" (
	rem 1から473までの乱数の生成
	set /a pitch_form=%random%*473/32767+1
rem 	set /a pitch_form=94

	set /a over=189
	set /a quoutor=321
	set /a side=426
	set /a under=465
	set /a tomio=466
	set /a tamura=467
	set /a aoi=468
	set /a yasushi=469
	set /a mizuki=470
	set /a itsutaro=471
	set /a sana=472
	set /a pawa=473
) else if "%position%"=="2" (
	rem 1から332までの乱数の生成
	set /a bat_form=%random%*332/32767+1

	set /a standard=176
	set /a open=298
	set /a clow=309
	set /a god=310
	set /a ichiro=311
	set /a baster=312
	set /a oh=313
	set /a org=319
	set /a gedo=320
	set /a masaru=321
	set /a yaben=322
	set /a sachiko=323
	set /a hijiri=324
	set /a hanyo=329
	set /a saki=330
	set /a ayumi=331
	set /a shina=332
)

rem 1から47までの乱数の生成
set /a pref=%random%*47/32767+1

exit /b


:func_zero
if "%position%"=="1" (
	rem ゼロ埋め用文字列と引数を結合
	set zero_pitch_form_num=%zeros%%pitch_form%
) else if "%position%"=="2" (
	rem ゼロ埋め用文字列と引数を結合
	set zero_bat_form_num=%zeros%%bat_form%
)
exit /b

:func_zero_num
if "%position%"=="1" (
	rem 既定の桁数に削り(右から3桁)、出力
	set zero_pitch_form=%zero_pitch_form_num:~-3%
) else if "%position%"=="2" (
	rem 既定の桁数に削り(右から3桁)、出力
	set zero_bat_form=%zero_bat_form_num:~-3%
)
exit /b

:func_name
echo "氏名"
rem for /f "usebackq delims=" %%A in (`curl -s https://green.adam.ne.jp/roomazi/cgi-bin/randomname.cgi | jq.exe`) do set name=%%A
curl -s https://green.adam.ne.jp/roomazi/cgi-bin/randomname.cgi


echo ""

exit /b

:func_birth

echo "生年月日"
echo %year%/%month%/%day%

exit /b


:func_sebango

rem 0から99までの乱数の生成
set /a sebango=%random%*100/32767

rem 乱数の表示
echo "背番号は↓です"
echo %sebango%

exit /b


:func_form
echo "フォーム"
rem echo DEBUG:zero_pitch_form_num=%zero_pitch_form_num%
rem echo DEBUG:pitchフォーム=%pitch_form%
rem echo DEBUG:batフォーム=%bat_form%
rem echo DEBUG:zero_pitchフォーム=%zero_pitch_form%
rem echo DEBUG:zero_batフォーム=%zero_bat_form%
if "%position%"=="1" (
	if "%zero_pitch_form%" leq "%over%" (
		set /a pitch_form_num=%pitch_form%
		exit /b
	) else if "%zero_pitch_form%" leq "%quoutor%" (
		set /a pitch_form_num=%pitch_form%-189
		exit /b
	) else if "%zero_pitch_form%" leq "%side%" (
		set /a pitch_form_num=%pitch_form%-321
		exit /b
	) else if "%zero_pitch_form%" leq "%under%" (
		set /a pitch_form_num=%pitch_form%-426
		exit /b
	) else if "%zero_pitch_form%"=="%tomio%" (
		exit /b
	) else if "%zero_pitch_form%"=="%tamura%" (
		exit /b
	) else if "%zero_pitch_form%"=="%aoi%" (
		exit /b
	) else if "%zero_pitch_form%"=="%yasushi%" (
		exit /b
	) else if "%zero_pitch_form%"=="%mizuki%" (
		exit /b
	) else if "%zero_pitch_form%"=="%itsutaro%" (
		exit /b
	) else if "%zero_pitch_form%"=="%sana%" (
		exit /b
	) else if "%zero_pitch_form%"=="%pawa%" (
		exit /b
	)
) else if "%position%"=="2" (
	if "%zero_bat_form%" leq "%standard%" (
		set /a bat_form_num=%bat_form%
		exit /b
	) else if "%zero_bat_form%" leq "%open%" (
		set /a bat_form_num=%bat_form%-176
		exit /b
	) else if "%zero_bat_form%" leq "%clow%" (
		set /a bat_form_num=%bat_form%-298
		exit /b
	) else if "%zero_bat_form%"=="%god%" (
		exit /b
	) else if "%zero_bat_form%"=="%ichiro%" (
		exit /b
	) else if "%zero_bat_form%"=="%baster%" (
		exit /b
	) else if "%zero_bat_form%"=="%oh%" (
		exit /b
	) else if "%zero_bat_form%" leq "%org%" (
		set /a bat_form_num=%bat_form%-313
		exit /b
	) else if "%zero_bat_form%"=="%gedo%" (
		exit /b
	) else if "%zero_bat_form%"=="%masaru%" (
		exit /b
	) else if "%zero_bat_form%"=="%yaben%" (
		exit /b
	) else if "%zero_bat_form%"=="%sachiko%" (
		exit /b
	) else if "%zero_bat_form%"=="%hijiri%" (
		exit /b
	) else if "%zero_bat_form%" leq "%hanyo%" (
		set /a bat_form_num=%bat_form%-324
		exit /b
	) else if "%zero_bat_form%"=="%saki%" (
		exit /b
	) else if "%zero_bat_form%"=="%ayumi%" (
		exit /b
	) else if "%zero_bat_form%"=="%shina%" (
		exit /b
	)
)
exit /b

:func_form_num
rem echo DEBUG:pitchフォームnum=%pitch_form_num%
rem echo DEBUG:pitchフォーム=%pitch_form%
rem echo DEBUG:batフォームnum=%bat_form_num%
rem echo DEBUG:bayフォーム=%bat_form%
if "%position%"=="1" (
	if "%zero_pitch_form%" leq "%over%" (
		echo "オーバースロー%pitch_form_num%"
		exit /b
	) else if "%zero_pitch_form%" leq "%quoutor%" (
		echo "スリークォーター%pitch_form_num%"
		exit /b
	) else if "%zero_pitch_form%" leq "%side%" (
		echo "サイドスロー%pitch_form_num%"
		exit /b
	) else if "%zero_pitch_form%" leq "%under%" (
		echo "アンダースロー%pitch_form_num%"
		exit /b
	) else if "%zero_pitch_form%"=="%tomio%" (
		echo "松崎　トミオ"
		exit /b
	) else if "%zero_pitch_form%"=="%tamura%" (
		echo "田　村"
		exit /b
	) else if "%zero_pitch_form%"=="%aoi%" (
		echo "早川　あおい"
		exit /b
	) else if "%zero_pitch_form%"=="%yasushi%" (
		echo "阿畑　やすし"
		exit /b
	) else if "%zero_pitch_form%"=="%mizuki%" (
		echo "橘　みずき"
		exit /b
	) else if "%zero_pitch_form%"=="%itsutaro%" (
		echo "白名　逸多郎"
		exit /b
	) else if "%zero_pitch_form%"=="%sana%" (
		echo "佐菜　あゆみ"
		exit /b
	) else if "%zero_pitch_form%"=="%pawa%" (
		echo "パワプロ"
		exit /b
	)
) else if "%position%"=="2" (
	if "%zero_bat_form%" leq "%standard%" (
		echo "スタンダード%bat_form_num%"
		exit /b
	) else if "%zero_bat_form%" leq "%open%" (
		echo "オープンスタンス%bat_form_num%"
		exit /b
	) else if "%zero_bat_form%" leq "%clow%" (
		echo "クラウチング%bat_form_num%"
		exit /b
	) else if "%zero_bat_form%"=="%god%" (
		echo "神主1"
		exit /b
	) else if "%zero_bat_form%"=="%ichiro%" (
		echo "振り子1"
		exit /b
	) else if "%zero_bat_form%"=="%baster%" (
		echo "バスター1"
		exit /b
	) else if "%zero_bat_form%"=="%oh%" (
		echo "一本足1"
		exit /b
	) else if "%zero_bat_form%" leq "%org%" (
		echo "オリジナル%bat_form_num%"
		exit /b
	) else if "%zero_bat_form%"=="%gedo%" (
		echo "外藤　侠二"
		exit /b
	) else if "%zero_bat_form%"=="%masaru%" (
		echo "田中　まさる"
		exit /b
	) else if "%zero_bat_form%"=="%yaben%" (
		echo "ヤーベン"
		exit /b
	) else if "%zero_bat_form%"=="%sachiko%" (
		echo "海野　幸子"
		exit /b
	) else if "%zero_bat_form%"=="%hijiri%" (
		echo "六道　聖"
		exit /b
	) else if "%zero_bat_form%" leq "%hanyo%" (
		echo "汎用%bat_form_num%"
		exit /b
	) else if "%zero_bat_form%"=="%saki%" (
		echo "新島　早紀"
		exit /b
	) else if "%zero_bat_form%"=="%ayumi%" (
		echo "佐菜　あゆみ"
		exit /b
	) else if "%zero_bat_form%"=="%shina%" (
		echo "にじさんじ/椎名唯華"
		exit /b
	)
)
exit /b


:func_pref
rem 乱数の表示
echo "出身都道府県"
type pref.txt | findstr -i ":%pref%:"

exit /b



:finish
set INPUT_STR=
echo +-------------------------------------------------------+
rem echo "実行結果："
rem echo "name=%name%"
echo  処理を終了しますか？
echo （0: 終了　1: 氏名を作り直す　2: 生年月日を作り直す
echo （3:背番号を作り直す　4: フォームを作り直す　5: 出身都道府県を作り直す）
echo +-------------------------------------------------------+
set /P INPUT_STR=
 
if "%INPUT_STR%"=="0" (
	echo "終了"
	exit /b
) else if "%INPUT_STR%"=="1" (
	call :func_var
	call :func_name
	call :finish
	exit /b
) else if "%INPUT_STR%"=="2" (
	call :func_var
	call :func_birth
	call :finish
	exit /b
) else if "%INPUT_STR%"=="3" (
	call :func_var
	call :func_sebango
	call :finish
	exit /b
) else if "%INPUT_STR%"=="4" (
	call :func_var
	call :func_zero
	call :func_zero_num
	call :func_form
	call :func_form_num
	call :finish
	exit /b
) else if "%INPUT_STR%"=="5" (
	call :func_var
	call :func_pref
	call :finish
	exit /b
) else (
	echo "0~5を入力してください"
	call :finish
	exit /b
)
 
exit /b