home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707A.ISO / OLS / Win32 / Wbat128p / WBAT128P.LZH / SAMPLE / GM0.BTW < prev    next >
Text File  |  1995-06-19  |  2KB  |  73 lines
  1. @echo off
  2. @batwnd off
  3. @executewnd off
  4. :/    --------------------------------------------------------------
  5. :/    WinBatchEh 数あてバッチ - GM0.BTW
  6. :/
  7. :/    Author : IYY
  8. :/    Version: 1.1
  9. :/    Date   : 1995/06/19
  10. :/
  11. :/    History: 1.0    1995/06/11
  12. :/            Initial Version
  13. :/         1.1    1995/06/19
  14. :/            RANDOM のパラメタを変更
  15. :/            他細かな変更
  16. :/    --------------------------------------------------------------
  17.  
  18. MESSAGEBOX=MB_ICONQUESTION 数あてゲームだよ。４けたのすうじをあててね(^^;)
  19.  
  20. set ERRORLEVEL=RANDOM 10
  21. set N1=%ERRORLEVEL%
  22. :L2
  23. set ERRORLEVEL=RANDOM 10
  24. set N2=%ERRORLEVEL%
  25. IF %N1%==%N2% GOTO L2 
  26. :L3
  27. set ERRORLEVEL=RANDOM 10
  28. set N3=%ERRORLEVEL%
  29. IF %N1%==%N3% GOTO L3 
  30. IF %N2%==%N3% GOTO L3
  31. :L4
  32. set ERRORLEVEL=RANDOM 10
  33. set N4=%ERRORLEVEL%
  34. IF %N1%==%N4% GOTO L4 
  35. IF %N2%==%N4% GOTO L4
  36. IF %N3%==%N4% GOTO L4
  37. set NN=%N1%%N2%%N3%%N4%
  38. echo %NN%
  39. set K=0
  40. :TOP
  41. INPUTSTRING MM いくつかな(^^; 数あてゲーム
  42. if %ERRORLEVEL%==1 GOTO END
  43. set WK=%MM%
  44. :/          Original 無茶版
  45. sprintf M1 %%1.1s "%WK%"
  46. sprintf WK %%03d 1%WK%-1%M1%000
  47. sprintf M2 %%1.1s "%WK%"
  48. sprintf WK %%02d 1%WK%-1%M2%00
  49. sprintf M3 %%1.1s "%WK%"
  50. sprintf M4 %%1d 1%WK%-1%M3%0
  51. :/          Paci氏の str.exe 版
  52. :str.exe MID M1 "%MM%" 1 1
  53. :str.exe MID M2 "%MM%" 2 1
  54. :str.exe MID M3 "%MM%" 3 1
  55. :str.exe MID M4 "%MM%" 4 1
  56. set N=0
  57. set M=0
  58. if %N1%==%M1% sprintf N %%d %N%+1
  59. if %N2%==%M2% sprintf N %%d %N%+1
  60. if %N3%==%M3% sprintf N %%d %N%+1
  61. if %N4%==%M4% sprintf N %%d %N%+1
  62. for %%I in (%M2% %M3% %M4%) do if %N1%==%%I sprintf M %%d %M%+1
  63. for %%I in (%M1% %M3% %M4%) do if %N2%==%%I sprintf M %%d %M%+1
  64. for %%I in (%M1% %M2% %M4%) do if %N3%==%%I sprintf M %%d %M%+1
  65. for %%I in (%M1% %M2% %M3%) do if %N4%==%%I sprintf M %%d %M%+1
  66. sprintf K %%d %K%+1
  67. if %NN%==%MM% GOTO OK
  68. MESSAGEBOX=MB_ICONINFORMATION いまは ☆ %N%個  ★ %M%個   %K%回目だよ。
  69. GOTO TOP
  70. :OK
  71. MESSAGEBOX=MB_ICONHAND そのとおり!! %NN% だよ。 %K%回目でしたよ(^^;
  72. :END
  73.