Ready Typer - Batch Game

(Game ini hanya bisa untuk Windows 7)
Tes kecepatan mengetik Anda! Tentukan sendiri kalimat yang Anda inginkan, dan cek kecepatan mengetik Anda.
Catatan:
-Kalimat tidak boleh terdapat huruf &,^,>,<,|,titik,koma, dan tanda baca lainnya, kecuali spasi
-Tombol spasi tidak dianggap jika ditekan dalam permainan, jadi dapat langsung mengetik kata selanjutnya.
-Kalimat yang ditentukan adalah case-sensitive. "A" berbeda dengan "a".

Kodenya:
@echo off
setlocal enabledelayedexpansion

:start
set word=Kalimat yang Anda inginkan dan Anda dapat mengganti kalimat ini
set c=0

set "s=!word!#"
set "len=0"
for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
    if "!s:~%%P,1!" NEQ "" (
        set /a "len+=%%P"
        set "s=!s:~%%P!"
    )
)
)
(
set "wordlen=%len%"
)

set typed=
echo Siap?
pause
set starttime=%time%
:type
cls
echo %word%
echo.%typed%^|
echo (%c%/%wordlen%)
choice /n /cs /c !word:~%c%,1%!
set typed=%typed%!word:~%c%,1%!
set /a c=%c%+1
if %c%==%wordlen% goto startcounting
goto type


:startcounting
set endtime=%time%
cls
if %endtime:~0,1%]==] set endhrs=%endtime:~1,1%
if not %endtime:~0,1%]==] set endhrs=%endtime:~0,2%
if %endtime:~3,1%==0 set endmin=%endtime:~4,1%
if not %endtime:~3,1%==0 set endmin=%endtime:~3,2%
if %endtime:~6,1%==0 set endsec=%endtime:~6,1%
if not %endtime:~6,1%==0 set endsec=%endtime:~6,2%
if %endtime:~9,1%==0 set endmsec=%endtime:~-1%
if not %endtime:~9,1%==0 set endmsec=%endtime:~-2%
set /a endsec=%endsec% * 1000
set /a endmin=%endmin% * 60000
set /a endhrs=%endhrs% * 3600000
set /a endmsec=%endmsec% + %endhrs% + %endmin% + %endsec%
if %starttime:~0,1%]==] set starthrs=%starttime:~1,1%
if not %starttime:~0,1%]==] set starthrs=%starttime:~0,2%
if %starttime:~3,1%==0 set startmin=%starttime:~4,1%
if not %starttime:~3,1%==0 set startmin=%starttime:~3,2%
if %starttime:~6,1%==0 set startsec=%starttime:~6,1%
if not %starttime:~6,1%==0 set startsec=%starttime:~6,2%
if %starttime:~9,1%==0 set startmsec=%starttime:~-1%
if not %starttime:~9,1%==0 set startmsec=%starttime:~-2%
set /a startsec=%startsec% * 1000
set /a startmin=%startmin% * 60000
set /a starthrs=%starthrs% * 3600000
set /a startmsec=%startmsec% + %starthrs% + %startmin% + %startsec%
if %startmsec% gtr %endmsec% set /a endmsec=%endmsec% + 86400000
set /a finaltime=%endmsec% - %startmsec%
set decfinaltime=%finaltime%
set /a finalhrs=%finaltime% / 3600000
if %finalhrs% gtr 0 set /a finaltime=%finaltime% - 3600000 * %finalhrs%
set /a finalmin=%finaltime% / 60000
if %finalmin% gtr 0 set /a finaltime=%finaltime% - 60000 * %finalmin%
set /a finalsec=%finaltime% / 1000
if %finalsec% gtr 0 set /a finaltime=%finaltime% - 1000 * %finalsec%
set finalmsec=%finaltime%
set /a totalseconds=%finalhrs% * 3600 + %finalmin% * 60 + %finalsec%

echo Selamat!!!
echo Statistik:
echo %finalhrs% jam, %finalmin% menit, %finalsec% detik, %finalmsec% ms.
set /a totalseconds=%finalhrs% * 3600 + %finalmin% * 60 + %finalsec%
set /a speed=%wordlen%/%totalseconds%
echo %wordlen% karakter, total %totalseconds% detik
echo Kecepatan ketik:     %speed% karakter per detik
pause

Selamat Mengetik!!!