Batch Game

Ingat Angka
Terinspirasi dari permainan HP teman saya, tapi lupa namanya.
Jika program ini berkata 4, maka masukkan 4, lalu jika program berkata 5, maka masukkan 45 dan seterusnya.

@echo off

set ans=

set score=0

:start

set /a score=%score% + 1

set /a r=( %random% %% 9 ) + 1

:game

cls

set ans=%ans%%r%

echo %r%

set /p in=Nomor:  

if %in%==%ans% goto start

if not %in%==%ans% goto lose

:lose

echo Skor akhir: %score%

pause

BatuGuntingKertas
Permainan sederhana yang biasa digunakan untuk "siapa yang duluan?" dan rebutan, tapi disini tidak ada yang diperebutkan karena anda bermain dengan komputer. Bila anda salah memasukkan maka skor komputer + 1

@echo off

set c=0

set hp=0

:com

set /a ValRange= ( 3 - 1 ) + 1

set /a c1= ( %random% %% %ValRange% ) + 1

:h

cls

echo manusia=%hp% komputer=%c%

set /p h=1/2/3(batu/gunting/kertas):  

if %h%==1 goto 1

if %h%==2 goto 2

if %h%==3 goto 3

if not %h%==3 (

set /a c=%c% + 2

goto com

)

:1

if %c1%==1 (

echo seri

pause

goto com

)

if %c1%==2 (

set /a hp=%hp% + 1

echo manusa menang.

pause

goto com

)

if %c1%==3 (

set /a c=%c% + 1

echo komputer menang.

pause

goto com

)

:2

if %c1%==1 (

set /a c=%c% + 1

echo komputer menang.

pause

goto com

)

if %c1%==2 (

echo seri

pause

goto com

)

if %c1%==3 (

set /a hp=%hp% + 1

echo manusia menang

pause

goto com

)

:3

if %c1%==1 (

set /a hp=%hp% + 1

echo manusia menang

pause

goto com

)

if %c1%==2 (

set /a c=%c% + 1

echo komputer menang

pause

goto com

)

if %c1%==3 (

echo seri

pause

goto com

)

Ready Typer
(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
 
Tic Tac Toe
(ide dari Doni Syahputera)
Game Batch command prompt Tic Tac Toe sederhana.

@echo off
setlocal enabledelayedexpansion

set a,a=-
set a,b=-
set a,c=-
set b,a=-
set b,b=-
set b,c=-
set c,a=-
set c,b=-
set c,c=-

set turn=player1
:display
cls
echo   x:   a     b     c
echo.y
echo.^|
echo a      %a,a%  ^|  %b,a%  ^|  %c,a%
echo      __________________
echo b      %a,b%  ^|  %b,b%  ^|  %c,b%
echo      __________________
echo c      %a,c%  ^|  %b,c%  ^|  %c,c%
echo.
goto %turn%

:player1
set sel=X
echo Giliran P1 (%sel%)
set /p coord=Pilih (x,y): 
if "!%coord%!"=="-" (
set %coord%=%sel%
set turn=player2
goto checkwin
goto display
) else if "%coord%"=="" (
echo Harus diisi...
pause
goto %turn%
) else (
echo Kotak sudah dipilih...
pause
goto %turn%
)



:player2
set sel=O
echo Giliran P2 (%sel%)
set /p coord=Pilih (x,y): 
if "!%coord%!"=="-" (
set %coord%=%sel%
set turn=player1
goto checkwin
goto display
) else if "%coord%"=="" (
echo Harus diisi...
pause
goto %turn%
) else (
echo Kotak sudah dipilih...
pause
goto %turn%
)



:checkwin
if "%a,a%%a,b%%a,c%"=="XXX" (
set win=p1
)
if "%b,a%%b,b%%b,c%"=="XXX" (
set win=p1
)
if "%c,a%%c,b%%c,c%"=="XXX" (
set win=p1
)

if "%a,a%%b,a%%c,a%"=="XXX" (
set win=p1
)
if "%a,b%%b,b%%c,b%"=="XXX" (
set win=p1
)
if "%a,c%%b,c%%c,c%"=="XXX" (
set win=p1
)

if "%a,a%%b,b%%c,c%"=="XXX" (
set win=p1
)
if "%a,c%%b,b%%c,a%"=="XXX" (
set win=p1
)



if "%a,a%%a,b%%a,c%"=="OOO" (
set win=P2
)
if "%b,a%%b,b%%b,c%"=="OOO" (
set win=P2
)
if "%c,a%%c,b%%c,c%"=="OOO" (
set win=P2
)

if "%a,a%%b,a%%c,a%"=="OOO" (
set win=P2
)
if "%a,b%%b,b%%c,b%"=="OOO" (
set win=P2
)
if "%a,c%%b,c%%c,c%"=="OOO" (
set win=P2
)

if "%a,a%%b,b%%c,c%"=="OOO" (
set win=P2
)
if "%a,c%%b,b%%c,a%"=="OOO" (
set win=P2
)
if defined win goto fin
goto display

:fin
echo Selamat!!!
echo Pemenang: %win%
pause
exit