どうもです。batでタイピングゲームを作りました。
簡単な英単語のタイピングです。時間を競います。単語数は1365。ですが、自分専用の単語集を作ることができます。
バッチファイルの中身を掲載しておきますが、このバッチファイルは単体では動作しません、いろんなファイルが必要です。なので、axfcアップローダにフォルダをあげておきます。良かったら遊んでやってください。
今は表示された単語を入力するただのタイピングですが、そのうち日本語⇔英語の高校生向けテスト対策バッチ(笑)でも作る予定です。
typing.bat
@echo off
cd /d %~dp0
setlocal enabledelayedexpansion
title タイピングゲーム
:start
for /f "delims=" %%i in ('findstr /b [0-9] %cd%\score.txt') do set best=%%i
set /a bestsec=best/100
set /a bestms=best%%100
set que=0
set r=0
set w=0
for /f "delims=" %%i in ('findstr A %cd%\option.txt') do set temp1=%%i
set question=%temp1:~4%
for /f "delims=" %%i in ('findstr B %cd%\option.txt') do set temp2=%%i
set original=%temp2:~4%
for /f "delims=" %%i in ('findstr C %cd%\option.txt') do set temp3=%%i
set line=%temp3:~4%
set loop=0
set usedb=13
if %original% == 1 set usedb=14
if %original% == 2 set usedb=1
cls
echo タイピングゲーム
echo.
echo 1…start
echo 0…setting
choice /c 10 /n
if %errorlevel% == 1 goto top
start /wait %cd%\option.txt
cls
echo トップに戻ります。
timeout /t 2 /nobreak >nul
goto start
:top
cls
echo 準備中...
set /a loop+=1
set /a dbnum=(%random%*usedb/32768)+1
set /a num=(%random%*line/32768)+1
set count=1
if %original% == 2 set dbnum=14
for /f %%n in (%cd%\database\DB%dbnum%.txt) do (
call :check %%n
set /a count+=1
)
:check
if %count% == %num% set sentence=%1& goto setting
exit /b
:setting
set q%loop%=%sentence%
if %question% == %loop% (
call :wait
call :btime
goto ans
)
goto top
:ans
cls
set /a que+=1
echo Ｑ%que%.【!q%que%!】
set /p input="入力> "
set a%que%=%input%
if "!q%que%!" == "%input%" goto right
goto wrong
:right
set /a r+=1
set j%que%=〇
if %que% == %question% goto fin
goto ans
:wrong
set j%que%=×
if %que% == %question% goto fin
goto ans
:fin
cls
call :etime
if %elapse% lss %best% (set renewal=1) else (set renewal=0)
echo 正解数 :%r%問(%question%問中)
echo 経過時間:%diffsec%.%diffms%秒
echo 過去最高:%bestsec%.%bestms%秒
echo.
if %renewal% == 1 (
echo ベストスコア更新！
echo.
echo %elapse% >%cd%\score.txt
)
set loop=0
call :finloop
pause >nul
goto start
:finloop
set /a loop+=1
set echoque=%loop%
if %loop% leq 9 set echoque=0%loop%
echo Ｑ%echoque%...!j%loop%! 【!q%loop%!→!a%loop%!】
if %loop% == %question% exit /b
goto finloop
:btime
for /f "tokens=1,2,3,4 delims=:." %%a in ("%time%") do (
set hour=1%%a
set min=1%%b
set sec=1%%c
set ms=1%%d
set /a hour-=100
set /a min-=100
set /a sec-=100
set /a ms-=100
set /a begin=hour*360000+min*6000+sec*100+ms
)
exit /b
:etime
for /f "tokens=1,2,3,4 delims=:." %%a in ("%time%") do (
set hour=1%%a
set min=1%%b
set sec=1%%c
set ms=1%%d
set /a hour-=100
set /a min-=100
set /a sec-=100
set /a ms-=100
set /a end=hour*360000+min*6000+sec*100+ms
)
set /a elapse=end-begin
set /a diffsec=elapse/100
set /a diffms=elapse%%100
exit /b
:wait
cls
echo タイピングゲームを始めます。何かキーを押してください。
echo.
echo 問題数：%question%問
if %original% geq 1 (echo オリジナル問題あり) else (
echo オリジナル問題なし)
echo 過去最高:%bestsec%.%bestms%秒
pause >nul
cls
echo ３秒前...
choice /d y /n /t 1 >nul
echo ２秒前...
choice /d y /n /t 1 >nul
echo １秒前...
choice /d y /n /t 1 >nul
exit /b
以上です。不具合・感想などありましたら、是非コメントにて。