@ECHO OFF
REM QBFC Project Options Begin
REM HasVersionInfo: Yes
REM Companyname: 吕润发
REM Productname: Don't Tap The White Tile
REM Filedescription:
REM Copyrights:
REM Trademarks:
REM Originalname:
REM Comments:
REM Productversion: 1. 0. 0. 0
REM Fileversion: 0. 0. 0. 0
REM Internalname:
REM Appicon: Image\ico.ico
REM AdministratorManifest: No
REM QBFC Project Options End
ECHO ON
@echo off
color 2f
:界面初始化
set i=0
for %%i in (0,75,150,225) do (for %%l in (0,100,200) do (image White.bmp %%i %%l))
for %%i in (0,75,150,225) do (image Yellow.bmp %%i 300)
set /a c=%random%%%(12-9+1)+9
if %c% equ 9 (image Black.bmp 0 200)
if %c% equ 10 (image Black.bmp 75 200)
if %c% equ 11 (image Black.bmp 150 200)
if %c% equ 12 (image Black.bmp 225 200)
set /a b=%random%%%(8-5+1)+5
if %b% equ 5 (image Black.bmp 0 100)
if %b% equ 6 (image Black.bmp 75 100)
if %b% equ 7 (image Black.bmp 150 100)
if %b% equ 8 (image Black.bmp 225 100)
:Game
title bat版别踩白块儿 by 命幽 2015-2-25-0:46~3:58
set /a a=%random%%%(4-1+1)+1
if %a% equ 1 (image Black.bmp 0 0)
if %a% equ 2 (image Black.bmp 75 0)
if %a% equ 3 (image Black.bmp 150 0)
if %a% equ 4 (image Black.bmp 225 0)
choice /c DFJK >nul
if %errorlevel%==1 (if %c% equ 9 (call :Sub))
if %errorlevel%==2 (if %c% equ 10 (call :Sub))
if %errorlevel%==3 (if %c% equ 11 (call :Sub))
if %errorlevel%==4 (if %c% equ 12 (call :Sub))
msg * you are lost!&exit
:Sub
set /a i+=1
if %i% equ 50 (title 请按任意键结束游戏!&pause>nul&exit)
for %%i in (0,75,150,225) do (for %%l in (0,100,200,200) do (image White.bmp %%i %%l))
for %%i in (0,75,150,225) do (image Yellow.bmp %%i 300)
if %c% equ 9 (image Grey.bmp 0 300)
if %c% equ 10 (image Grey.bmp 75 300)
if %c% equ 11 (image Grey.bmp 150 300)
if %c% equ 12 (image Grey.bmp 225 300)
if %b% equ 5 (image Black.bmp 0 200)&set c=9
if %b% equ 6 (image Black.bmp 75 200)&set c=10
if %b% equ 7 (image Black.bmp 150 200)&set c=11
if %b% equ 8 (image Black.bmp 225 200)&set c=12
if %a% equ 1 (image Black.bmp 0 100)&set b=5
if %a% equ 2 (image Black.bmp 75 100)&set b=6
if %a% equ 3 (image Black.bmp 150 100)&set b=7
if %a% equ 4 (image Black.bmp 225 100)&set b=8
goto Game