مجموعه ترفندهای ♦ تحت داس ♦

@echo off
title TARFANDESTAN.com - Number guessing game
rem www.TARFANDESTAN.com

setlocal
set /a curbest=99999

:newgame
  set /a cur=0
  set /a num=%RANDOM%%%1000+1
  set left=1
  set right=1000

  :repeat
    set /p guess=Please guess[%left%,%right%]:
    set /a cur=cur+1
    if %guess% EQU %num% (
      echo You have guessed %cur% times to get it right!
      if %cur% LSS %curbest% (
        set /a curbest=cur
      )
      goto ask
    )
    if %guess% LSS %num% (
      echo It is a bigger number!
      set /a left=%guess%+1
      goto repeat
    )
    echo It is a smaller number!
    set /a right=%guess%-1
    goto repeat

:ask
  choice /c:yn /n /m "Do you want to play again?"
  if %errorlevel% EQU 1 goto newgame

:bye
  echo Thank you! Bye!
  if not %curbest% EQU 99999 echo Best Guess = %curbest%

endlocal