中国DOS联盟

@echo off mode con cols=40 lines=25 cls echo. echo TicTacToe (a.k.a. Noughts''''''''n''''''''Crosses) echo BATch Version 1.1 echo (c)2002 M0eRtH echo. echo Updates and more free stuff at echo http://m0erth.cjb.net echo. echo The keys: echo. echo - X - - O - echo. echo 7 ?8 ?9 Q ?W ?E echo 哪呐哪呐哪? 哪呐哪呐哪? echo 4 ?5 ?6 A ?S ?D echo 哪呐哪呐哪? 哪呐哪呐哪? echo 1 ?2 ?3 Z/Y?X ?C echo. echo Ctrl+R = Reset game Ctrl+Q = Quit echo. echo Note: echo X, make sure the NumLock is ON. ;-) echo. pause set a1=- set a2=- set a3=- set b1=- set b2=- set b3=- set c1=- set c2=- set c3=- set turn=X set win=- set result=- set scoreX=- set scoreO=- set games=- set maxgames=-++++++++++++++++++++ :draw cls echo. echo TicTacToe (a.k.a. Noughts''''''''n''''''''Crosses) echo BATch Version 1.1 echo (c)2002 M0eRtH echo. echo Score echo X:%scoreX% echo O:%scoreO% echo. echo %a1% ?%a2% ?%a3% echo 哪呐哪呐哪? echo %b1% ?%b2% ?%b3% echo 哪呐哪呐哪? echo %c1% ?%c2% ?%c3% echo. :chkWin set result=%a1%%a2%%a3% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%b1%%b2%%b3% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%c1%%c2%%c3% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%a1%%b1%%c1% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%a2%%b2%%c2% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%a3%%b3%%c3% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%a1%%b2%%c3% if %result%==XXX goto XWon if %result%==OOO goto OWon set result=%c1%%b2%%a3% if %result%==XXX goto XWon if %result%==OOO goto OWon :getKeys echo %turn%''''''''s turn choice /c:789456123qweasdzyxc /n : if errorlevel 21 goto reset if errorlevel 20 goto quit if errorlevel 19 goto setOC3 if errorlevel 18 goto setOC2 if errorlevel 17 goto setOC1 if errorlevel 16 goto setOC1 if errorlevel 15 goto setOB3 if errorlevel 14 goto setOB2 if errorlevel 13 goto setOB1 if errorlevel 12 goto setOA3 if errorlevel 11 goto setOA2 if errorlevel 10 goto setOA1 if errorlevel 9 goto setXC3 if errorlevel 8 goto setXC2 if errorlevel 7 goto setXC1 if errorlevel 6 goto setXB3 if errorlevel 5 goto setXB2 if errorlevel 4 goto setXB1 if errorlevel 3 goto setXA3 if errorlevel 2 goto setXA2 if errorlevel 1 goto setXA1 goto draw :reset set a1=- set a2=- set a3=- set b1=- set b2=- set b3=- set c1=- set c2=- set c3=- goto draw :setXA1 if not %a1%==- goto draw if %turn%==O goto draw set a1=X goto changeTurn :setXA2 if not %a2%==- goto draw if %turn%==O goto draw set a2=X goto changeTurn :setXA3 if not %a3%==- goto draw if %turn%==O goto draw set a3=X goto changeTurn :setXB1 if not %b1%==- goto draw if %turn%==O goto draw set b1=X goto changeTurn :setXB2 if not %b2%==- goto draw if %turn%==O goto draw set b2=X goto changeTurn :setXB3 if not %b3%==- goto draw if %turn%==O goto draw set b3=X goto changeTurn :setXC1 if not %c1%==- goto draw if %turn%==O goto draw set c1=X goto changeTurn :setXC2 if not %c2%==- goto draw if %turn%==O goto draw set c2=X goto changeTurn :setXC3 if not %c3%==- goto draw if %turn%==O goto draw set c3=X goto changeTurn :setOA1 if not %a1%==- goto draw if %turn%==X goto draw set a1=O goto changeTurn :setOA2 if not %a2%==- goto draw if %turn%==X goto draw set a2=O goto changeTurn :setOA3 if not %a3%==- goto draw if %turn%==X goto draw set a3=O goto changeTurn :setOB1 if not %b1%==- goto draw if %turn%==X goto draw set b1=O goto changeTurn :setOB2 if not %b2%==- goto draw if %turn%==X goto draw set b2=O goto changeTurn :setOB3 if not %b3%==- goto draw if %turn%==X goto draw set b3=O goto changeTurn :setOC1 if not %c1%==- goto draw if %turn%==X goto draw set c1=O goto changeTurn :setOC2 if not %c2%==- goto draw if %turn%==X goto draw set c2=O goto changeTurn :setOC3 if not %c3%==- goto draw if %turn%==X goto draw set c3=O goto changeTurn :changeTurn if %turn%==X goto setTurnO set turn=X goto draw :setTurnO set turn=O goto draw :XWon echo. echo - X won! - pause set scoreX=%scoreX%+ set games=%games%+ if %games%==%maxgames% goto quit goto reset :OWon echo. echo - O won! - pause set scoreO=%scoreO%+ set games=%games%+ if %games%==%maxgames% goto quit goto reset :quit mode con cols=80 lines=25 echo. echo TicTacToe (a.k.a. Noughts''''''''n''''''''Crosses) echo BATch Version 1.1 echo (c)2002 M0eRtH echo. echo Updates and more free stuff at echo http://m0erth.cjb.net echo. echo. echo X scored: %scoreX% echo O scored: %scoreO% echo. set a1= set a2= set a3= set b1= set b2= set b3= set c1= set c2= set c3= set turn= set win= set result= set scoreX= set scoreO= set games= set maxgames= pause

[此贴子已经被作者于2004-6-20 下午 05:42:48编辑过]

@ECHO OFF :START IF NOT [%3]==[] GOTO MAP%1 IF [%1]==[/?] GOTO MAPHELP CHOICE Initizing, Please waiting../C:. /T:.,1 /N IF [%1]==[R:] GOTO MAPRESTORE IF [%1]==[E:] GOTO MAPEXTRACT IF [%1]==[T:] GOTO MAPTRYSAVE MEM /C|FIND "ANSI">NUL IF ERRORLEVEL 1 GOTO MAPERR1 IF [%1]==[] GOTO MAPINIT IF [%2]==[] GOTO MAPERR2 IF [%1]==[C:] IF NOT [%2]==[/LINE] IF NOT [%2]==[/PIPE] SET $F=%2 IF [%1]==[C:] GOTO MAPSTART IF NOT EXIST %2.MAP GOTO MAPERR5 FIND "" %2.MAP>NUL IF ERRORLEVEL 1 GOTO MAPERR3 REM FIND "" %2.MAP>NUL REM IF ERRORLEVEL 1 GOTO MAPERR4 IF [%1]==[V:] GOTO MAPVIEW IF [%1]==[L:] GOTO MAPLOAD IF [%1]==[M:] GOTO MAPMAKE :MAPINIT CLS SET $F=? SET PRE=C GOTO MAPSTART :MAPHELP ECHO. ECHO Use: Draw a map with painter of characterS, and save to map file. ECHO Usage: %0 option: parameter ECHO Option: ECHO L Load map file from the specified location. ECHO M Make map file to selfexec map program. ECHO E Extract selfexec map to map file. ECHO T Try save map file from temporary location. ECHO R Restore the map backuped map file. ECHO V View the map file parameter specifle. ECHO C define painter with Character parameter specifle. ECHO. CHOICE View guide of draw: IF ERRORLEVEL 2 GOTO MAPEND ECHO. ECHO All operation control by keyboard keys. ECHO. ECHO Key: Use: ECHO 1 Left and down ----) ECHO 2 Down ) ECHO 3 Right and down ) ECHO 4 Left )---Painter Move keys ECHO 6 Right ) ECHO 7 Left and up ) ECHO 8 Up ) ECHO 9 Right and up------) ECHO 5 painter ECHO 0(Ins) change to draw state ECHO .(Del) change to delete state ECHO. GOTO MAPEND :MAPERR1 ECHO. ECHO Error 1 in %0: Not continue for not load ANSI. ECHO. GOTO MAPEND :MAPERR2 ECHO. ECHO Error 2 in %0: Not specified second parameter. ECHO. GOTO MAPEND :MAPERR3 ECHO. ECHO Error 3 in %0: False map file. ECHO. GOTO MAPEND :MAPERR4 ECHO. ECHO Error 4 in %0: Not accomplish map file. ECHO. GOTO MAPEND :MAPERR5 ECHO. ECHO Error 5 in %0: Not exist map file. ECHO. GOTO MAPEND :MAPERR6 ECHO. ECHO Error 6 in %0: Not backup map file. ECHO. GOTO MAPEND :MAPERR7 ECHO. ECHO Error 7 in %0: Not make selfexec map program. ECHO. GOTO MAPEND :MAPERR8 ECHO. ECHO Error 8 in %0: Not correctly pattern selfexec map program. ECHO. GOTO MAPEND :MAPERR9 ECHO. ECHO Error 9 in %0: Can''''t view map file. ECHO. GOTO MAPEND :MAPERR10 ECHO. ECHO Error 10 in %0: enviroment parameter PRE is null. ::MAPPICK IF EXIST %2.MAP CHOICE Modify this map file IF ERRORLEVEL 2 GOTO MAPEND ECHO @CLS>PAINTER.BAT ECHO @SET $F=%%1>>PAINTER.BAT ECHO @%0 START %2 /S>>PAINTER.BAT ECHO Please choose painter of character with style (PAINTER=char). PROMPT  GOTO MAPEND :MAPSAVEPRE ECHO @ECHO OFF>>SAVEFILE.BAT IF [%3]==[] ECHO IF NOT [%%1]==[] %0 SAVE %%1 /G>>SAVEFILE.BAT IF [%3]==[/L] ECHO IF NOT [%%1]==[] %0 SAVE %%1 /G %2>>SAVEFILE.BAT ECHO ECHO Please input save path again:>>SAVEFILE.BAT ECHO Please save file and path with (SAVEFILE=path\file) style: PROMPT  GOTO MAPEND :MAPSAVE IF NOT EXIST %2.MAP GOTO MAPSSUF IF NOT [%4]==[] GOTO MAPSSUF CHOICE Map name exist, rename IF ERRORLEVEL 2 GOTO MAPSSUF ECHO Please input save path again: GOTO MAPEND :MAPSSUF PROMPT $P$G IF EXIST SAVEFILE.BAT DEL SAVEFILE.BAT IF [%2]==[%4] COPY %4.MAP %4.MBK /Y>NUL COPY %TEMP%\TEMP.MP$ %2.MAP /Y>NUL DEL %TEMP%\TEMP.MP$ GOTO MAPEND :MAPLOAD COPY %2.MAP %TEMP%\%2.BAT>NUL ECHO @ECHO OFF>PAINTER.BAT ECHO CLS>>PAINTER.BAT ECHO IF [%%1]==[] GOTO PEND>>PAINTER.BAT ECHO SET $F=%%1>>PAINTER.BAT ECHO CALL %0 KEYON # /G>>PAINTER.BAT ECHO CALL %TEMP%\%2.BAT>>PAINTER.BAT ECHO %0 START %2 /L>>PAINTER.BAT ECHO END>>PAINTER.BAT ECHO Please choose painter of character with style (PAINTER=char). PROMPT  GOTO MAPEND :MAPVIEW IF NOT EXIST %2.MAP GOTO MAPERR5 COPY %2.MAP %TEMP%\%2.BAT>NUL CLS CALL %TEMP%\%2.BAT ECHO  DEL %TEMP%\%2.BAT GOTO MAPEND :MAPMAKE IF NOT EXIST %2.MAP GOTO MAPERR5 IF EXIST %2.BAT CHOICE Modify existed selfexec map file IF ERRORLEVEL 2 GOTO MAPEND ECHO Making... ECHO @ECHO OFF>MAP.H ECHO MEM/C|FIND "ANSI">>MAP.H ECHO IF NOT ERRORLEVEL 1 GOTO MAPAINT>>MAP.H ECHO.>>MAP.H ECHO :MAPERROR>>MAP.H ECHO ECHO.>>MAP.H ECHO ECHO Error 1: Not load this map file for not load ANSI.>>MAP.H ECHO ECHO.>>MAP.H ECHO GOTO MAPEND>>MAP.H ECHO.>>MAP.H ECHO :MAPAINT>>MAP.H ECHO CLS>>MAP.H IF EXIST %2.BAT ATTRIB -R %2.BAT COPY /B MAP.H+%2.MAP %2.BAT>NUL ECHO.>>%2.BAT ECHO :MAPEND>>%2.BAT ATTRIB +R %2.BAT DEL MAP.H ECHO Made success. GOTO MAPEND :MAPRESTORE IF NOT EXIST %2.MBK GOTO MAPERR6 IF EXIST %2.MAP CHOICE Realy restore and overwrite map file IF ERRORLEVEL 2 GOTO MAPEND COPY %2.MBK %2.MAP /Y>NUL DEL %2.MBK ECHO Restored. %0 V: %2 GOTO MAPERR9 :MAPEXTRACT IF NOT EXIST %2.BAT GOTO MAPERR7 IF EXIST %2.MAP CHOICE Realy extract and overwrite map file FIND ":MAPAINT" %2.BAT>NUL IF ERRORLEVEL 1 GOTO MAPERR8 TYPE %2.BAT|FIND "[">%2.MAP CHOICE Extracted. Delete selfexec map file IF NOT ERRORLEVEL 1 DEL %2.BAT %0 V: %2 GOTO MAPERR9 :MAPTRYSAVE IF NOT EXIST %TEMP%\TEMP.MP$ GOTO MAPEND IF EXIST %2.MAP CHOICE Realy try to save and overwrite map file COPY %TEMP%\TEMP.MP$ %2.MAP /Y>NUL ECHO Try success. %0 V: %2 GOTO MAPERR9 :MAPKEYON ECHO ["7";"U"p ECHO ["8";"I"p ECHO ["9";"O"p ECHO ["4";"J"p ECHO ["5";"K"p ECHO ["6";"L"p ECHO ["1";"M"p ECHO ["2";","p ECHO ["3";"."p ECHO ["0";"Y"p ECHO [".";"N"p ECHO [0;71;"U"p ECHO [0;72;"I"p ECHO [0;73;"O"p ECHO [0;75;"J"p ECHO [0;76;"K"p ECHO [0;77;"L"p ECHO [0;79;"M"p ECHO [0;80;","p ECHO [0;81;"."p ECHO [0;82;"Y"p ECHO [0;83;"N"p GOTO MAPEND :MAPKEYOFF ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO  ECHO ["7";"7"p ECHO ["8";"8"p ECHO ["9";"9"p ECHO ["4";"4"p ECHO ["5";"5"p ECHO ["6";"6"p ECHO ["1";"1"p ECHO ["2";"2"p ECHO ["3";"3"p ECHO ["0";"0"p ECHO [".";"."p GOTO MAPEND :MAPSTART IF EXIST PAINTER.BAT DEL PAINTER.BAT IF NOT [%3]==[/L] CALL %0 KEYON # /G IF [%2]==[/LINE] GOTO MAPEDIT IF [%2]==[/PIPE] GOTO MAPEDIT :MAPLENG SET $M= SET $CN=[1C SET $DN=[1D SET $LN= SET $A$=%$F% :MAPSET FOR %%A IN (/%$A$%) DO SET $B$=%%A IF [%$A$%]==[%$B$%] GOTO MAPEDIT SET $A$=%$B$% SET $DN=%$DN% SET $CN=%$CN% SET $LN=%$DN% SET $M=%$M% GOTO MAPSET :MAPCHANGE ECHO ? IF ERRORLEVEL 2 SET $F=? IF ERRORLEVEL 2 GOTO MAPPIPE SET $F=@ GOTO MAPLINE :MAPEDIT IF NOT [%3]==[/L] GOTO MAPNEW COPY %2.MAP %TEMP%\TEMP.MP$ /Y>NUL SET $SN=%$LN% SET $LN= SET $SF=%$F% SET $F= IF [%2]==[/LINE] GOTO MAPLINE IF [%2]==[/PIPE] GOTO MAPPIPE GOTO MAPCHAR :MAPNEW IF EXIST %TEMP%\TEMP.MP$ DEL %TEMP%\TEMP.MP$ ECHO  ECHO %$F% ECHO ECHO %$F%>>%TEMP%\TEMP.MP$ IF [%2]==[/LINE] GOTO MAPLINE IF [%2]==[/PIPE] GOTO MAPPIPE GOTO MAPCHAR :MAPCHAR ECHO %$F% CHOICE /C:QYNUOKM.IJ,L /N>NUL IF ERRORLEVEL 12 GOTO MAPCRIGHT IF ERRORLEVEL 11 GOTO MAPCDOWN IF ERRORLEVEL 10 GOTO MAPCLEFT IF ERRORLEVEL 9 GOTO MAPCUP IF ERRORLEVEL 8 GOTO MAPCRGDW IF ERRORLEVEL 7 GOTO MAPCLTDW IF ERRORLEVEL 6 GOTO MAPCTAB IF ERRORLEVEL 5 GOTO MAPCRGUP IF ERRORLEVEL 4 GOTO MAPCLTUP IF ERRORLEVEL 3 GOTO MAPCDEL IF ERRORLEVEL 2 GOTO MAPCINS GOTO MAPCLEAN :MAPCTAB REM ECHO %$F% IF NOT [%$F%]==[] GOTO MAPCOVER SET $LN=%$SN% SET $SN= SET $F=%$SF% SET $SF= GOTO MAPCHAR :MAPCOVER SET $SN=%$LN% SET $LN= SET $SF=%$F% SET $F= GOTO MAPCHAR :MAPCINS IF [%$F%]==[] GOTO MAPCOINS IF NOT [%$F%]==[%$M%] GOTO MAPCHAR SET $F=%$T% SET $T= GOTO MAPCHAR :MAPCOINS IF NOT [%$SF%]==[%$M%] GOTO MAPCHAR SET $SF=%$T% SET $T= GOTO MAPCHAR :MAPCDEL IF [%$F%]==[] GOTO MAPCODEL IF [%$F%]==[%$M%] GOTO MAPCHAR SET $T=%$F% SET $F=%$M% GOTO MAPCHAR :MAPCODEL IF [%$SF%]==[%$M%] GOTO MAPCHAR SET $T=%$SF% SET $SF=%$M% GOTO MAPCHAR :MAPCRGDW ECHO %$F% ECHO %$CN% ECHO ECHO %$CN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCLTDW ECHO %$F% ECHO %$DN% ECHO ECHO %$DN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCRGUP ECHO %$F% ECHO %$CN% ECHO ECHO %$CN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCLTUP ECHO %$F% ECHO %$DN% ECHO ECHO %$DN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCRIGHT ECHO %$F% ECHO %$CN% ECHO ECHO %$CN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCDOWN ECHO %$F% ECHO  ECHO ECHO %$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCLEFT ECHO %$F% ECHO %$DN% ECHO ECHO %$DN%%$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPCUP ECHO %$F% ECHO  ECHO ECHO %$F%%$LN%>>%TEMP%\TEMP.MP$ GOTO MAPCHAR :MAPLINE ECHO %$F% CHOICE /C:ZAWRXVSEFCDYNIJ,LKQP /N>NUL IF ERRORLEVEL 20 GOTO MAPCHANGE IF ERRORLEVEL 19 GOTO MAPCLEAN IF ERRORLEVEL 18 GOTO MAPLTAB IF ERRORLEVEL 17 GOTO MAPLRIGHT IF ERRORLEVEL 16 GOTO MAPLDOWN IF ERRORLEVEL 15 GOTO MAPLLEFT IF ERRORLEVEL 14 GOTO MAPLUP IF ERRORLEVEL 13 GOTO MAPLDEL IF ERRORLEVEL 12 GOTO MAPLINS SET HPF=1 ECHO  FOR %%A IN (1 2 3 4 5 6 7 8 9 10 11) DO IF ERRORLEVEL %%A GOTO MAPLP%%A ECHO  GOTO MAPLINE :MAPLP1 ECHO ? SET $F=? GOTO MAPLINE :MAPLP2 ECHO ? SET $F=? GOTO MAPLINE :MAPLP3 ECHO ? SET $F=? GOTO MAPLINE :MAPLP4 ECHO ? SET $F=? GOTO MAPLINE :MAPLP5 ECHO ? SET $F=? GOTO MAPLINE :MAPLP6 ECHO ? SET $F=? GOTO MAPLINE :MAPLP7 ECHO ? SET $F=? GOTO MAPLINE :MAPLP8 ECHO ? SET $F=? GOTO MAPLINE :MAPLP9 ECHO ? SET $F=? GOTO MAPLINE :MAPLP10 ECHO ? SET $F=? GOTO MAPLINE :MAPLP11 ECHO ? SET $F=? GOTO MAPLINE :MAPLTAB REM ECHO %$F% IF NOT [%$F%]==[] GOTO MAPLOVER SET $F=%$SF% SET $SF= GOTO MAPLINE :MAPLOVER SET $SF=%$F% SET $F= GOTO MAPLINE :MAPLINS IF [%$F%]==[] GOTO MAPLOINS IF NOT [%$F%]==[%$M%] GOTO MAPLINE SET $F=%$T% SET $T= GOTO MAPLINE :MAPLOINS IF NOT [%$SF%]==[%$M%] GOTO MAPLINE SET $SF=%$T% SET $T= GOTO MAPLINE :MAPLDEL IF [%$F%]==[] GOTO MAPLODEL IF [%$F%]==[%$M%] GOTO MAPLINE SET $T=%$F% SET $F=%$M% GOTO MAPLINE :MAPLODEL IF [%$SF%]==[%$M%] GOTO MAPLINE SET $T=%$SF% SET $SF=%$M% GOTO MAPLINE :MAPLRIGHT SET $BF=? IF [%PRE%]==[A] SET $BF=? IF [%PRE%]==[B] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=C GOTO MAPLINE :MAPLDOWN SET $BF=? IF [%PRE%]==[C] SET $BF=? IF [%PRE%]==[D] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=B GOTO MAPLINE :MAPLLEFT SET $BF=? IF [%PRE%]==[A] SET $BF=? IF [%PRE%]==[B] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=D GOTO MAPLINE :MAPLUP SET $BF=? IF [%PRE%]==[C] SET $BF=? IF [%PRE%]==[D] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=A GOTO MAPLINE :MAPPIPE ECHO %$F% CHOICE /C:ZAWRXVSEFCDYNIJ,LKQP /N>NUL IF ERRORLEVEL 20 GOTO MAPCHANGE IF ERRORLEVEL 19 GOTO MAPCLEAN IF ERRORLEVEL 18 GOTO MAPPTAB IF ERRORLEVEL 17 GOTO MAPPRIGHT IF ERRORLEVEL 16 GOTO MAPPDOWN IF ERRORLEVEL 15 GOTO MAPPLEFT IF ERRORLEVEL 14 GOTO MAPPUP IF ERRORLEVEL 13 GOTO MAPPDEL IF ERRORLEVEL 12 GOTO MAPPINS SET HPF=1 ECHO  FOR %%A IN (1 2 3 4 5 6 7 8 9 10 11) DO IF ERRORLEVEL %%A GOTO MAPPP%%A ECHO  GOTO MAPPIPE :MAPPP1 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP2 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP3 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP4 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP5 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP6 ECHO  SET $F= GOTO MAPPIPE :MAPPP7 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP8 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP9 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP10 ECHO ? SET $F=? GOTO MAPPIPE :MAPPP11 ECHO ? SET $F=? GOTO MAPPIPE :MAPPTAB REM ECHO %$F% IF NOT [%$F%]==[] GOTO MAPPOVER SET $F=%$SF% SET $SF= GOTO MAPPIPE :MAPPOVER SET $SF=%$F% SET $F= GOTO MAPPIPE :MAPPINS IF [%$F%]==[] GOTO MAPPOINS IF NOT [%$F%]==[%$M%] GOTO MAPPIPE SET $F=%$T% SET $T= GOTO MAPPIPE :MAPPOINS IF NOT [%$SF%]==[%$M%] GOTO MAPPIPE SET $SF=%$T% SET $T= GOTO MAPPIPE :MAPPDEL IF [%$F%]==[] GOTO MAPPODEL IF [%$F%]==[%$M%] GOTO MAPPIPE SET $T=%$F% SET $F=%$M% GOTO MAPPIPE :MAPPODEL IF [%$SF%]==[%$M%] GOTO MAPPIPE SET $T=%$SF% SET $SF=%$M% GOTO MAPPIPE :MAPPRIGHT SET $BF=? IF [%PRE%]==[A] SET $BF=? IF [%PRE%]==[B] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=C GOTO MAPPIPE :MAPPDOWN SET $BF=? IF [%PRE%]==[C] SET $BF=? IF [%PRE%]==[D] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=B GOTO MAPPIPE :MAPPLEFT SET $BF=? IF [%PRE%]==[A] SET $BF=? IF [%PRE%]==[B] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=D GOTO MAPPIPE :MAPPUP SET $BF=? IF [%PRE%]==[C] SET $BF=? IF [%PRE%]==[D] SET $BF=? IF [%HPF%]==[] SET $F=%$BF% ECHO %$F% ECHO ECHO [1%PRE%%$F%>>%TEMP%\TEMP.MP$ SET HPF= SET $F=? ECHO  SET PRE=A GOTO MAPPIPE :MAPCLEAN ECHO ::NEXT>>%TEMP%\TEMP.MP$ CLS CALL %0 KEYOFF # /G PROMPT $P$G ECHO  SET $F= SET $SF= SET $T= SET $N= SET $SN= SET $DN= SET $CN= SET $LN= SET $A$= SET $B$= SET $M= SET PRE= SET HPF= CLS CHOICE Save map to map file IF NOT ERRORLEVEL 2 GOTO MAPSAVEPRE :MAPEND

[此贴子已经被作者于2004-1-12 7:15:56编辑过]

@PROMPT { (\__ } ECHO  @PROMPT { (\ `\__ } ECHO  @PROMPT {(`, .------.,-' b $B } ECHO  @PROMPT {`-/ ',__,-"` } ECHO  @PROMPT { $B `; , $B } ECHO  @PROMPT { \ ;.----/ ,/ } ECHO  @PROMPT { ) // / ( ( \ } ECHO  @PROMPT { \ \`.`\ \ \ \ } ECHO  @PROMPT { `-` `" `-`" } ECHO  @PORMPT $P$G

::getvar.bat 
@if [%1]==[invoke] prompt set %2=%3 
@if [%1]==[invoke] goto end 
@echo off 
%comspec% /c %0 invoke %1 %2>tt.bat 
call tt 

:end 

:: GetVar.bat - Get from 'PROMPT' text to environment variable 
:: Will Sort - 10:29 2005-7-16 - CMD@XP/COMMAND@Win98/MSDOS6.22
@echo off
echo exit | %comspec% /k prompt set %1=%2$_:: > _GetVar.bat
call _GetVar.bat
for %%f in (_GetVar*.*) do del %%f

[此贴子已经被作者于2004-1-12 0:58:40编辑过]

::CURRENT.BAT @echo off echo Haha, it's the time to go!! ::TIMER.BAT @echo off :start echo.|time|find "10:30:00">run.bat choice /c:y /t:y,59 /n>nul call run.bat goto start

@echo off rem 保存系统时间 echo.|date>sysdate.bat echo.|time>systime.bat rem 修改系统时间为指定时间，日期为参数一，时间为参数二，文件名为参数三 date %1 time %2 rem 修改文件的时间 copy %3+,,>nul rem 恢复系统时间 echo date %%4>current.bat call sysdate echo time %%3>current.bat call systime rem 程序执行完毕 echo Success. del systime.bat del sysdate.bat del current.bat echo on

[此贴子已经被作者于2004-1-12 1:41:05编辑过]

@echo off rem ///////////////////搜索所有目录下的所有txt文件/////////////////// rem 找当前目录（根目录）的*.txt for %%a in (*.txt) do type %%a rem 以下为找当前目录（根目录）的所有子目录下的所有*.txt set i=1 set j=1 set filenum=0 set dirnum=0 varset root=FULL of . >temp.bat call temp.bat varset rootdir=string(3) %root% >temp.bat call temp.bat dir /ad /b /s >temp.txt varset dirnum=lines temp.txt >temp.bat call temp.bat :loop1 type %root%\temp.txt | %root%\LMOD /L%i% set curdir=[] >%root%\temp.bat call %root%\temp.bat varset curdir=string(3) %curdir% >%root%\temp.bat call %root%\temp.bat cd %curdir% echo %curdir% set j=1 :loop2 %root%\varset filenum=files *.txt >%root%\temp.bat call %root%\temp.bat if %filenum%==0 goto end2 dir *.txt /b | %root%\LMOD /L%j% set curfile=[] >%root%\temp.bat call %root%\temp.bat type %curfile% if %j%==%filenum% goto end2 %root%\varset j=%j%+1 >%root%\temp.bat call %root%\temp.bat goto loop2 :end2 cd %rootdir% if %i%==%dirnum% goto end1 %root%\varset i=%i%+1 >%root%\temp.bat call %root%\temp.bat goto loop1 :end1 del %root%\temp.bat del %root%\temp.txt set i= set j= set filenum= set dirnum= set root= set rootdir= set curdir= set curfile=

:: Get user input - includes error check @echo off echo e102'set %%1='> %temp%.\t1.dat for %%? in (w q) do echo %%?>> %temp%.\t1.dat :input echo. echo Type input: FC con nul /lb1 /n |FIND "1:" > %temp%.\t2.bat :: Error checking begins here FIND "|" %temp%.\t2.bat > nul if not errorlevel=1 goto error FIND "=" %temp%.\t2.bat > nul if not errorlevel=1 goto error FIND " nul if not errorlevel=1 goto error FIND ">" %temp%.\t2.bat > nul if not errorlevel=1 goto error :: Error checking end DEBUG %temp%.\t2.bat nul call %temp%.\t2.bat 字符串 for %%? in (t1.dat t2.bat) do del %temp%.\%%? echo 字符串=%字符串% goto eof :error echo. echo @PROMPT Invalid input. Invalid characters: $Q $L $G $B$_> %temp%.\t2.bat %comspec% /c %temp%.\t2.bat |FIND ":" goto input :eof

[此贴子已经被作者于2004-1-13 10:38:37编辑过]