バッチファイルで湯婆婆を実装してみる

はじめに

バッチファイルで書いてみました。

元ネタ：Javaで湯婆婆を実装してみる

コード

バッチファイルは文字コードを Shift_JIS にして保存してください。

湯.bat（湯婆っち）

@echo off

setlocal enabledelayedexpansion
  :BOL
    echo.
    echo 湯婆っち：契約書だよ。そこに名前を書きな。

    set /p A=
    if "%A%" == "" call :die

    call :Q "湯婆っち：フン。「%A%」というのかい？" || goto :BOL

  call :length "%A%"
  set l=%ERRORLEVEL%
  set /a i="%RANDOM% %% %l% - 1"
  set s=!A:~%i%,1!

  echo.
  echo 湯婆っち：贅沢な名だねぇ。今からおまえの名前は「%s%」だ。いいかい、「%s%」だよ。分かったら返事をするんだ、「%s%」！
endlocal
goto :EOF

:die
setlocal
  call %~0
endlocal
goto :EOF

:length
setlocal
  set s=%~1

  if "%s%" == "" (
    exit /b 0
  )

  set i=0
  :BOL_length
    call set c=%%s:~%i%,1%%
    if "%c%" == "" goto EOL_length
    set /a i+=1
    goto BOL_length
  :EOL_length

  exit /b %i%
endlocal
goto :EOF

:Q
setlocal
  :BOL_Q
    echo.
    set /p A=%~1 ^(Y/n^) 
    if /i "%A%" == "Y" exit /b 0
    if /i "%A%" == "N" exit /b 1
  goto :BOL_Q
endlocal
goto :EOF

実行結果

念のため再入力とエラーも実装しています。

おわりに

むかし夢中になった「どう書く.org」というウェブサイトを思いだしました。

いつになっても自分の好きな言語で書くのはたのしいものですね。