Bat Dosyası nedir bu sorunun cevabı Windows toplu iş dosyası demektir size örnek bir kod vereyim bu kod size bu dosyayı açtığınızda yeşil renkli bir yazı açacak.
echo off
Color a
Cls
Echo gordugunuz gibi bu arada alpha-numeric karakter desteklemiyor.
Not:alpha-numeric dediğim ü-ğ-ı-ö-ç-ş bu harfleri desteklemiyor
basit bir kod bu şimdi işlere biraz eğlence katalım.
echo off
cls
title WhatsApp online (buraya kimle olduğunu yazın ben gerçekçi oldun diye ekledim) ile mesajlasiyorsun
echo nasilsin
set/p=
echo iyiyim bende ne yapiyorsun
set/p=
echo hayat nasil gidiyor
set/p=
echo cok sikildim ya ne yapsam yazsana bi
set/p=
echo onerin icin tesekkurler yanliz ben bir yapay zekayim hee unutma bu arada yanliz misin
set/p=
echo ah be ben tek basimayim sonucta ben bir yapay zekayim
set/p=
echo sen suanda ne yapmayi tercih ederdin
set/p=
echo seninle sabaha kadar sohbet etme ozelligim mevcut
set/p=
echo kapanmak istiyom ya direk enter a bas
echo tamam ben kacar
echo birseye bas
pause
Set/p= demek sizin bir cevap veya herhangi bir metin yazmanızı sağlar şimdi geldik işinize yarayacak kodlara
Aşağıdaki kod sistem bilgilerini Sistem bilgilerim diye bir dosyaya kaydeder bu dosyanın bulunduğu yer de masaüstü dür
echo off
systeminfo>>%userprofile%\desktop"Sistem Bilgilerim".txt
echo Donanim ve Sistem Bilgileriniz Masaustunuze Yuklenmistir!
pause
Bu kod ile bilgisayar isminizi falan filan bunları öğrenebilirsiniz
Şimdi bilgisayarım kasıyor oyunlarda fps alamıyorum diyenlere çok işe yarayan bir kod bu
Bu arada bu işlem baya bi uzun sürebilir bende bi ara bir buçuk saat sürdü
echo off
echo Gereksiz dosyalar temizleniyor lutfen bekleyin.
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.*
del /f /s /q %userprofile%\Local Settings\Temp\*.*
del /f /s /q %userprofile%\recent\*.*
echo Temizlik tamamlandi.
pause
Bu kod bilgisayarınızı temizliyor hemde 20-30-40-50 civarı fps arttırabiliyor (bu bilgisayarınızdaki çöp dosya miktarına göre değişir)
Şimdi geldik internet hızlandırmaya arkadaşlar bu makaleyi size indirtmemin sebebi aslında bu çünkü işe yaramazsa internetiniz kopabilir ve bir daha bağlanamayabilirsiniz
ama tabiki çözümü mevcuttur
1- İlk olarak CMD(komut satırını) yönetici olarak başlatıyoruz
2- Sonrasında " netsh int tcp show global " komutunu giriyoruz
3- Daha sonra herhangi bir text editörünü açmamız lazım örneğin notepad++ ama not defteri de olur ve şu komutları aynen yazıyoruz
cd\
netsh int tcp show global
netsh int tcp set global chimney=enabled
netsh int tcp set heuristics disabled
netsh int tcp set global autotuninglevel=normal
netsh int tcp set global congestionprovider=ctcp
kopyala yapıştır yaptıktan sonra dosyayı " Boostspeed.bat " adıyla kaydediyoruz ve sonrasında bu kaydettiğimiz dosyayı sağ tık -> yönetici olarak çalıştırıyoruz ve işlemimiz bitiyor.
Testlere başlayabilirsiniz
Rahatsız olursanız yada ben bi problem yaşamadım ama bir problem yaşayan olursa aynı dosya ismiyle alttaki komutları yazıp aynı şekilde yönetici olarak çalıştırdınızmı default ayarlarına almış olursunuz.
cd\
netsh int tcp show global
netsh int tcp set global chimney=default
netsh int tcp set heuristics enabled
netsh int tcp set global congestionprovider=none
Detaylı bir anlatım anlamayana yuh
Ama cmd falan dedimde bakmayın bat dosyasına kaydedip yönetici olarak çalıştırsanız da olur
şimdi full türkçe bir yılan oyunu sunuyorum size
echo off
if "%~1" == "startGame" goto :game
if "%~1" == "startController" goto :controller
::------------------------------------------------------------
:: verify existence of CHOICE command
:: set up a macro appropriately depending on available version
set "choice="
2>nul >nul choice /c:yn /t 0 /d y
if errorlevel 1 if not errorlevel 2 set "choice=choice /cs"
if not defined choice (
2>nul >nul choice /c:yn /t:y,1
if errorlevel 1 if not errorlevel 2 set "choice=choice /s"
)
if not defined choice (
echo ERROR: This game requires the CHOICE command, but it is missing.
echo Game aborted.
echo(
echo A 16 bit port of CHOICE.EXE from FREEDOS is available at
echo http://winsupport.org/utilities/freedos-choice.html
echo(
echo A 32 bit version from ??? suitable for 64 bit machines is available at
echo About choice.com and choice.exe
echo(
exit /b
)
::---------------------------------------------------------------------
:: setup some global variables used by both the game and the controller
set "keys=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
set "keyFile=key.txt"
set "cmdFile=cmd.txt"
::------------------------------------------
:: launch the game and the controller
copy nul "%keyFile%" >nul
start "" /b "%~f0" startController 9^>^>%keyFile% 2^>nul ^>nul
cmd /c "%~f0" startGame 9^<%keyFile% ^<nul
echo(
::--------------------------------------------------------------------------------
:: Upon exit, wait for the controller to close before deleting the temp input file
:close
2>nul (>>"%keyFile%" call )||goto :close
del "%keyFile%"
exit /b
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:game
setlocal disableDelayedExpansion
title %~nx0
cls
::----------------------------
:: user configurable options
set "up=W"
set "down=S"
set "left=A"
set "right=D"
set "width=40" max=99
set "height=25" max=99
:: max playing field: (width-2)*(height-2) <= 1365
::----------------------------
:: resize the console window
set /a cols=width+1, lines=height+10, area=(width-2)*(height-2)
if %area% gtr 1365 (
echo ERROR: Playfield area too large
>"%cmdFile%" (echo quit)
exit
)
if %lines% lss 14 set lines=14
if %cols% lss 46 set cols=46
mode con: cols=%cols% lines=%lines%
::----------------------------
:: define variables
set "spinner1=-"
set "spinner2="
set "spinner3=|"
set "spinner4=/"
set "spinner= spinner1 spinner2 spinner3 spinner4 "
set "space= "
set "bound=#"
set "food=+"
set "head=@"
set "body=O"
set "death=X"
set "playerSpace=%space%%food%"
set "xDiff%up%=+0"
set "xDiff%down%=+0"
set "xDiff%left%=-1"
set "xDiff%right%=+1"
set "yDiff%up%=-1"
set "yDiff%down%=+1"
set "yDiff%left%=+0"
set "yDiff%right%=+0"
set "%up%Axis=Y"
set "%down%Axis=Y"
set "%left%Axis=X"
set "%right%Axis=X"
set "delay1=20"
set "delay2=15"
set "delay3=10"
set "delay4=7"
set "delay5=5"
set "delay6=3"
set "delay0=0"
set "desc1=Sluggard"
set "desc2=Crawl"
set "desc3=Slow"
set "desc4=Normal"
set "desc5=Fast"
set "desc6=Insane"
set "desc0=Unplayable"
set "spinnerDelay=3"
set /a "width-=1, height-=1"
::---------------------------
:: define macros
::define a Line Feed (newline) string (normally only used as !LF!)
set LF=^
::Above 2 blank lines are required - do not remove
::define a newline with line continuation
set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
:: setErr
::: Sets the ERRORLEVEL to 1
set "setErr=(call)"
:: clrErr
::: Sets the ERRORLEVEL to 0
set "clrErr=(call )"
:: getKey ValidKeys
::: Check for keypress. Only accept keys listed in ValidKeys
::: Return result in Key variable. Key is undefined if no valid keypress.
set getKey=%\n%
for %%# in (1 2) do if %%#==2 (for /f "eol= delims= " %%1 in ("!args!") do (%\n%
set "validKeys=%%1"%\n%
set "key="%\n%
^<^&9 set /p "key="%\n%
if defined key if "!key!" neq ":" (%\n%
set /a key-=1%\n%
for %%K in (!key!) do set "key=!keys:~%%K,1!"%\n%
)%\n%
for %%K in (!key!) do if "!validKeys:%%K=!" equ "!validKeys!" set "key="%\n%
)) else set args=
:: draw
::: draws the board
set draw=%\n%
cls%\n%
for /l %%Y in (0,1,%height%) do echo(!line%%Y!%\n%
echo Speed=!Difficulty!%\n%
echo Score=!score!
:: test X Y ValueListVar
::: tests if value at coordinates X,Y is within contents of ValueListVar
set test=%\n%
for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%
for %%A in ("!line%%2:~%%1,1!") do if "!%%3:%%~A=!" neq "!%%3!" %clrErr% else %setErr%%\n%
)) else set args=
:: plot X Y ValueVar
::: places contents of ValueVar at coordinates X,Y
set plot=%\n%
for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%
set "part2=!line%%2:~%%1!"%\n%
set "line%%2=!line%%2:~0,%%1!!%%3!!part2:~1!"%\n%
)) else set args=
::--------------------------------------
:: start the game
setlocal enableDelayedExpansion
call :initialize
::--------------------------------------
:: main loop (infinite loop)
for /l %%. in (1 0 1) do (
%=== compute time since last move ===%
for /f "tokens=1-4 delims=:.," %%a in ("!time: =0!") do set /a "t2=(((1%%a*60)+1%%b)*60+1%%c)*100+1%%d-36610100, tDiff=t2-t1"
if !tDiff! lss 0 set /a tDiff+=24*60*60*100
if !tDiff! geq !delay! (
%=== delay has expired, so time for movement ===%
%=== establish direction ===%
%getKey% ASDW
for %%K in (!key!) do if "!%%KAxis!" neq "!axis!" (
set /a "xDiff=xDiff%%K, yDiff=yDiff%%K"
set "axis=!%%KAxis!"
)
%=== erase the tail ===%
set "TX=!snakeX:~-2!"
set "TY=!snakeY:~-2!"
set "snakeX=!snakeX:~0,-2!"
set "snakeY=!snakeY:~0,-2!"
%plot% !TX! !TY! space
%=== compute new head ******** and attempt to move ===%
set /a "X=PX+xDiff, Y=PY+yDiff"
set "X= !X!"
set "Y= !Y!"
set "X=!X:~-2!"
set "Y=!Y:~-2!"
(%test% !X! !Y! playerSpace) && (
%=== move successful ===%
%=== remove the new head ******** from the empty list ===%
for %%X in ("!X!") do for %%Y in ("!Y!") do set "empty=!empty:#%%~X %%~Y=!"
(%test% !X! !Y! food) && (
%=== moving to food - eat it ===%
%=== restore the tail ===%
%plot% !TX! !TY! body
set "snakeX=!snakeX!!TX!"
set "snakeY=!snakeY!!TY!"
%=== increment score and locate and draw new food ===%
set /a "score+=1, F=(!random!%%(emptyCnt-=1))*6+1"
for %%F in (!F!) do (%plot% !empty:~%%F,5! food)
) || (
%=== moving to empty space ===%
%=== add the former tail position to the empty list ===%
set "empty=!empty!#!TX! !TY!"
)
%=== draw the new head ===%
if defined snakeX (%plot% !PX! !PY! body)
%plot% !X! !Y! head
%=== Add the new head position to the snake strings ===%
set "snakeX=!X!!snakeX!"
set "snakeY=!Y!!snakeY!"
set "PX=!X!"
set "PY=!Y!"
%draw%
) || (
%=== failed move - game over ===%
%plot% !TX! !TY! body
call :spinner !PX! !PY! death
%draw%
echo(
call :ask "Would you like to play again? (Y/N)" YN
if /i "!key!" equ "N" (
>"%cmdFile%" (echo quit)
exit
) else (
call :initialize
)
)
set /a t1=t2
)
)
:ask Prompt ValidKeys
:: Prompt for a keypress. ValidKeys is a list of acceptable keys
:: Wait until a valid key is pressed and return result in Key variable
>"%cmdFile%" (echo prompt)
<nul set /p "=%~1 "
urge
(%getKey%
if not defined key gotourge
:getResponse
(%getKey% %2)
if not defined key (
>"%cmdFile%" (echo one)
goto :getResponse
)
exit /b
:spinner X Y ValueVar
set /a d1=-1000000
for /l %%N in (1 1 5) do for %%C in (%spinner%) do (
call :spinnerDelay
%plot% %1 %2 %%C
%draw%
)
call :spinnerDelay
(%plot% %1 %2 %3)
exit /b
:spinnerDelay
for /f "tokens=1-4 delims=:.," %%a in ("!time: =0!") do set /a "d2=(((1%%a*60)+1%%b)*60+1%%c)*100+1%%d-36610100, dDiff=d2-d1"
if %dDiff% lss 0 set /a dDiff+=24*60*60*100
if %dDiff% lss %spinnerDelay% goto :spinnerDelay
set /a d1=d2
exit /b
::-------------------------------------
:initialize
cls
echo Hiz Ayarlari:
echo delay
echo # Aciklama (saniyeler)
echo --- ----------- ---------
echo 1 Asiri Asiri Yavas 0.20
echo 2 Asiri Yavas 0.15
echo 3 Yavas 0.10
echo 4 Normal 0.07
echo 5 Hizli 0.05
echo 6 İmkansiz 0.03
echo 0 Oynanamaz none
echo(
call :ask "bir hiz sec (1-6, 0):" 1234560
set "difficulty=!desc%key%!"
set "delay=!delay%key%!"
echo %key% - %difficulty%
echo(
<nul set /p "=Baslatiliyor."
set "axis=X"
set "xDiff=+1"
set "yDiff=+0"
set "empty="
set /a "PX=1, PY=height/2, FX=width/2+1, FY=PY, score=0, emptyCnt=0, t1=-1000000"
set "snakeX= %PX%"
set "snakeY= %PY%"
set "snakeX=%snakeX:~-2%"
set "snakeY=%snakeY:~-2%"
for /l %%Y in (0 1 %height%) do (
<nul set /p "=."
set "line%%Y="
for /l %%X in (0,1,%width%) do (
set "cell="
if %%Y equ 0 set "cell=%bound%"
if %%Y equ %height% set "cell=%bound%"
if %%X equ 0 set "cell=%bound%"
if %%X equ %width% set "cell=%bound%"
if %%X equ %PX% if %%Y equ %PY% set "cell=%head%"
if not defined cell (
set "cell=%space%"
set "eX= %%X"
set "eY= %%Y"
set "empty=!empty!#!eX:~-2! !eY:~-2!"
set /a emptyCnt+=1
)
if %%X equ %FX% if %%Y equ %FY% set "cell=%food%"
set "line%%Y=!line%%Y!!cell!"
)
)
(%draw%)
echo(
echo Yurume tuslari: %up%=up %down%=down %left%=left %right%=right
echo Kendinize kacmaktan kacinin (%body%%body%%head%) or wall (%bound%)
echo Yemek ye (%food%) ve buyu.
echo(
call :ask "Baslamak icin herhangi bir alfa-sayisal tusa basin ..." %keys%
>"%cmdFile%" (echo go)
exit /b
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:controller
setlocal enableDelayedExpansion
set "cmd=hold"
set "key="
for /l %%. in (1 0 1) do (
if "!cmd!" neq "hold" (
%choice% /n /c:!keys!
set "key=!errorlevel!"
)
if exist "%cmdFile%" (
<"%cmdFile%" set /p "cmd="
del "%cmdFile%"
)
if "!cmd!" equ "quit" exit
if defined key (
if "!cmd!" equ "prompt" >&9 (echo
>&9 (echo !key!)
if "!cmd!" neq "go" set "cmd=hold"
set "key="
)
)
Evet ilk makalemiz bukadardı
Bu arada Yanlışlıkla İnternet Hızlandırma kısmında indirtmemin yazmışım
echo off
Color a
Cls
Echo gordugunuz gibi bu arada alpha-numeric karakter desteklemiyor.
Not:alpha-numeric dediğim ü-ğ-ı-ö-ç-ş bu harfleri desteklemiyor
basit bir kod bu şimdi işlere biraz eğlence katalım.
echo off
cls
title WhatsApp online (buraya kimle olduğunu yazın ben gerçekçi oldun diye ekledim) ile mesajlasiyorsun
echo nasilsin
set/p=
echo iyiyim bende ne yapiyorsun
set/p=
echo hayat nasil gidiyor
set/p=
echo cok sikildim ya ne yapsam yazsana bi
set/p=
echo onerin icin tesekkurler yanliz ben bir yapay zekayim hee unutma bu arada yanliz misin
set/p=
echo ah be ben tek basimayim sonucta ben bir yapay zekayim
set/p=
echo sen suanda ne yapmayi tercih ederdin
set/p=
echo seninle sabaha kadar sohbet etme ozelligim mevcut
set/p=
echo kapanmak istiyom ya direk enter a bas
echo tamam ben kacar
echo birseye bas
pause
Set/p= demek sizin bir cevap veya herhangi bir metin yazmanızı sağlar şimdi geldik işinize yarayacak kodlara
Aşağıdaki kod sistem bilgilerini Sistem bilgilerim diye bir dosyaya kaydeder bu dosyanın bulunduğu yer de masaüstü dür
echo off
systeminfo>>%userprofile%\desktop"Sistem Bilgilerim".txt
echo Donanim ve Sistem Bilgileriniz Masaustunuze Yuklenmistir!
pause
Bu kod ile bilgisayar isminizi falan filan bunları öğrenebilirsiniz
Şimdi bilgisayarım kasıyor oyunlarda fps alamıyorum diyenlere çok işe yarayan bir kod bu
Bu arada bu işlem baya bi uzun sürebilir bende bi ara bir buçuk saat sürdü
echo off
echo Gereksiz dosyalar temizleniyor lutfen bekleyin.
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q %userprofile%\Local Settings\Temporary Internet Files\*.*
del /f /s /q %userprofile%\Local Settings\Temp\*.*
del /f /s /q %userprofile%\recent\*.*
echo Temizlik tamamlandi.
pause
Bu kod bilgisayarınızı temizliyor hemde 20-30-40-50 civarı fps arttırabiliyor (bu bilgisayarınızdaki çöp dosya miktarına göre değişir)
Şimdi geldik internet hızlandırmaya arkadaşlar bu makaleyi size indirtmemin sebebi aslında bu çünkü işe yaramazsa internetiniz kopabilir ve bir daha bağlanamayabilirsiniz
ama tabiki çözümü mevcuttur
1- İlk olarak CMD(komut satırını) yönetici olarak başlatıyoruz
2- Sonrasında " netsh int tcp show global " komutunu giriyoruz
3- Daha sonra herhangi bir text editörünü açmamız lazım örneğin notepad++ ama not defteri de olur ve şu komutları aynen yazıyoruz
cd\
netsh int tcp show global
netsh int tcp set global chimney=enabled
netsh int tcp set heuristics disabled
netsh int tcp set global autotuninglevel=normal
netsh int tcp set global congestionprovider=ctcp
kopyala yapıştır yaptıktan sonra dosyayı " Boostspeed.bat " adıyla kaydediyoruz ve sonrasında bu kaydettiğimiz dosyayı sağ tık -> yönetici olarak çalıştırıyoruz ve işlemimiz bitiyor.
Testlere başlayabilirsiniz
Rahatsız olursanız yada ben bi problem yaşamadım ama bir problem yaşayan olursa aynı dosya ismiyle alttaki komutları yazıp aynı şekilde yönetici olarak çalıştırdınızmı default ayarlarına almış olursunuz.
cd\
netsh int tcp show global
netsh int tcp set global chimney=default
netsh int tcp set heuristics enabled
netsh int tcp set global congestionprovider=none
Detaylı bir anlatım anlamayana yuh
Ama cmd falan dedimde bakmayın bat dosyasına kaydedip yönetici olarak çalıştırsanız da olur
şimdi full türkçe bir yılan oyunu sunuyorum size
echo off
if "%~1" == "startGame" goto :game
if "%~1" == "startController" goto :controller
::------------------------------------------------------------
:: verify existence of CHOICE command
:: set up a macro appropriately depending on available version
set "choice="
2>nul >nul choice /c:yn /t 0 /d y
if errorlevel 1 if not errorlevel 2 set "choice=choice /cs"
if not defined choice (
2>nul >nul choice /c:yn /t:y,1
if errorlevel 1 if not errorlevel 2 set "choice=choice /s"
)
if not defined choice (
echo ERROR: This game requires the CHOICE command, but it is missing.
echo Game aborted.
echo(
echo A 16 bit port of CHOICE.EXE from FREEDOS is available at
echo http://winsupport.org/utilities/freedos-choice.html
echo(
echo A 32 bit version from ??? suitable for 64 bit machines is available at
echo About choice.com and choice.exe
echo(
exit /b
)
::---------------------------------------------------------------------
:: setup some global variables used by both the game and the controller
set "keys=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
set "keyFile=key.txt"
set "cmdFile=cmd.txt"
::------------------------------------------
:: launch the game and the controller
copy nul "%keyFile%" >nul
start "" /b "%~f0" startController 9^>^>%keyFile% 2^>nul ^>nul
cmd /c "%~f0" startGame 9^<%keyFile% ^<nul
echo(
::--------------------------------------------------------------------------------
:: Upon exit, wait for the controller to close before deleting the temp input file
:close
2>nul (>>"%keyFile%" call )||goto :close
del "%keyFile%"
exit /b
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:game
setlocal disableDelayedExpansion
title %~nx0
cls
::----------------------------
:: user configurable options
set "up=W"
set "down=S"
set "left=A"
set "right=D"
set "width=40" max=99
set "height=25" max=99
:: max playing field: (width-2)*(height-2) <= 1365
::----------------------------
:: resize the console window
set /a cols=width+1, lines=height+10, area=(width-2)*(height-2)
if %area% gtr 1365 (
echo ERROR: Playfield area too large
>"%cmdFile%" (echo quit)
exit
)
if %lines% lss 14 set lines=14
if %cols% lss 46 set cols=46
mode con: cols=%cols% lines=%lines%
::----------------------------
:: define variables
set "spinner1=-"
set "spinner2="
set "spinner3=|"
set "spinner4=/"
set "spinner= spinner1 spinner2 spinner3 spinner4 "
set "space= "
set "bound=#"
set "food=+"
set "head=@"
set "body=O"
set "death=X"
set "playerSpace=%space%%food%"
set "xDiff%up%=+0"
set "xDiff%down%=+0"
set "xDiff%left%=-1"
set "xDiff%right%=+1"
set "yDiff%up%=-1"
set "yDiff%down%=+1"
set "yDiff%left%=+0"
set "yDiff%right%=+0"
set "%up%Axis=Y"
set "%down%Axis=Y"
set "%left%Axis=X"
set "%right%Axis=X"
set "delay1=20"
set "delay2=15"
set "delay3=10"
set "delay4=7"
set "delay5=5"
set "delay6=3"
set "delay0=0"
set "desc1=Sluggard"
set "desc2=Crawl"
set "desc3=Slow"
set "desc4=Normal"
set "desc5=Fast"
set "desc6=Insane"
set "desc0=Unplayable"
set "spinnerDelay=3"
set /a "width-=1, height-=1"
::---------------------------
:: define macros
::define a Line Feed (newline) string (normally only used as !LF!)
set LF=^
::Above 2 blank lines are required - do not remove
::define a newline with line continuation
set ^"\n=^^^%LF%%LF%^%LF%%LF%^^"
:: setErr
::: Sets the ERRORLEVEL to 1
set "setErr=(call)"
:: clrErr
::: Sets the ERRORLEVEL to 0
set "clrErr=(call )"
:: getKey ValidKeys
::: Check for keypress. Only accept keys listed in ValidKeys
::: Return result in Key variable. Key is undefined if no valid keypress.
set getKey=%\n%
for %%# in (1 2) do if %%#==2 (for /f "eol= delims= " %%1 in ("!args!") do (%\n%
set "validKeys=%%1"%\n%
set "key="%\n%
^<^&9 set /p "key="%\n%
if defined key if "!key!" neq ":" (%\n%
set /a key-=1%\n%
for %%K in (!key!) do set "key=!keys:~%%K,1!"%\n%
)%\n%
for %%K in (!key!) do if "!validKeys:%%K=!" equ "!validKeys!" set "key="%\n%
)) else set args=
:: draw
::: draws the board
set draw=%\n%
cls%\n%
for /l %%Y in (0,1,%height%) do echo(!line%%Y!%\n%
echo Speed=!Difficulty!%\n%
echo Score=!score!
:: test X Y ValueListVar
::: tests if value at coordinates X,Y is within contents of ValueListVar
set test=%\n%
for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%
for %%A in ("!line%%2:~%%1,1!") do if "!%%3:%%~A=!" neq "!%%3!" %clrErr% else %setErr%%\n%
)) else set args=
:: plot X Y ValueVar
::: places contents of ValueVar at coordinates X,Y
set plot=%\n%
for %%# in (1 2) do if %%#==2 (for /f "tokens=1-3" %%1 in ("!args!") do (%\n%
set "part2=!line%%2:~%%1!"%\n%
set "line%%2=!line%%2:~0,%%1!!%%3!!part2:~1!"%\n%
)) else set args=
::--------------------------------------
:: start the game
setlocal enableDelayedExpansion
call :initialize
::--------------------------------------
:: main loop (infinite loop)
for /l %%. in (1 0 1) do (
%=== compute time since last move ===%
for /f "tokens=1-4 delims=:.," %%a in ("!time: =0!") do set /a "t2=(((1%%a*60)+1%%b)*60+1%%c)*100+1%%d-36610100, tDiff=t2-t1"
if !tDiff! lss 0 set /a tDiff+=24*60*60*100
if !tDiff! geq !delay! (
%=== delay has expired, so time for movement ===%
%=== establish direction ===%
%getKey% ASDW
for %%K in (!key!) do if "!%%KAxis!" neq "!axis!" (
set /a "xDiff=xDiff%%K, yDiff=yDiff%%K"
set "axis=!%%KAxis!"
)
%=== erase the tail ===%
set "TX=!snakeX:~-2!"
set "TY=!snakeY:~-2!"
set "snakeX=!snakeX:~0,-2!"
set "snakeY=!snakeY:~0,-2!"
%plot% !TX! !TY! space
%=== compute new head ******** and attempt to move ===%
set /a "X=PX+xDiff, Y=PY+yDiff"
set "X= !X!"
set "Y= !Y!"
set "X=!X:~-2!"
set "Y=!Y:~-2!"
(%test% !X! !Y! playerSpace) && (
%=== move successful ===%
%=== remove the new head ******** from the empty list ===%
for %%X in ("!X!") do for %%Y in ("!Y!") do set "empty=!empty:#%%~X %%~Y=!"
(%test% !X! !Y! food) && (
%=== moving to food - eat it ===%
%=== restore the tail ===%
%plot% !TX! !TY! body
set "snakeX=!snakeX!!TX!"
set "snakeY=!snakeY!!TY!"
%=== increment score and locate and draw new food ===%
set /a "score+=1, F=(!random!%%(emptyCnt-=1))*6+1"
for %%F in (!F!) do (%plot% !empty:~%%F,5! food)
) || (
%=== moving to empty space ===%
%=== add the former tail position to the empty list ===%
set "empty=!empty!#!TX! !TY!"
)
%=== draw the new head ===%
if defined snakeX (%plot% !PX! !PY! body)
%plot% !X! !Y! head
%=== Add the new head position to the snake strings ===%
set "snakeX=!X!!snakeX!"
set "snakeY=!Y!!snakeY!"
set "PX=!X!"
set "PY=!Y!"
%draw%
) || (
%=== failed move - game over ===%
%plot% !TX! !TY! body
call :spinner !PX! !PY! death
%draw%
echo(
call :ask "Would you like to play again? (Y/N)" YN
if /i "!key!" equ "N" (
>"%cmdFile%" (echo quit)
exit
) else (
call :initialize
)
)
set /a t1=t2
)
)
:ask Prompt ValidKeys
:: Prompt for a keypress. ValidKeys is a list of acceptable keys
:: Wait until a valid key is pressed and return result in Key variable
>"%cmdFile%" (echo prompt)
<nul set /p "=%~1 "
urge(%getKey%
if not defined key goto
urge:getResponse
(%getKey% %2)
if not defined key (
>"%cmdFile%" (echo one)
goto :getResponse
)
exit /b
:spinner X Y ValueVar
set /a d1=-1000000
for /l %%N in (1 1 5) do for %%C in (%spinner%) do (
call :spinnerDelay
%plot% %1 %2 %%C
%draw%
)
call :spinnerDelay
(%plot% %1 %2 %3)
exit /b
:spinnerDelay
for /f "tokens=1-4 delims=:.," %%a in ("!time: =0!") do set /a "d2=(((1%%a*60)+1%%b)*60+1%%c)*100+1%%d-36610100, dDiff=d2-d1"
if %dDiff% lss 0 set /a dDiff+=24*60*60*100
if %dDiff% lss %spinnerDelay% goto :spinnerDelay
set /a d1=d2
exit /b
::-------------------------------------
:initialize
cls
echo Hiz Ayarlari:
echo delay
echo # Aciklama (saniyeler)
echo --- ----------- ---------
echo 1 Asiri Asiri Yavas 0.20
echo 2 Asiri Yavas 0.15
echo 3 Yavas 0.10
echo 4 Normal 0.07
echo 5 Hizli 0.05
echo 6 İmkansiz 0.03
echo 0 Oynanamaz none
echo(
call :ask "bir hiz sec (1-6, 0):" 1234560
set "difficulty=!desc%key%!"
set "delay=!delay%key%!"
echo %key% - %difficulty%
echo(
<nul set /p "=Baslatiliyor."
set "axis=X"
set "xDiff=+1"
set "yDiff=+0"
set "empty="
set /a "PX=1, PY=height/2, FX=width/2+1, FY=PY, score=0, emptyCnt=0, t1=-1000000"
set "snakeX= %PX%"
set "snakeY= %PY%"
set "snakeX=%snakeX:~-2%"
set "snakeY=%snakeY:~-2%"
for /l %%Y in (0 1 %height%) do (
<nul set /p "=."
set "line%%Y="
for /l %%X in (0,1,%width%) do (
set "cell="
if %%Y equ 0 set "cell=%bound%"
if %%Y equ %height% set "cell=%bound%"
if %%X equ 0 set "cell=%bound%"
if %%X equ %width% set "cell=%bound%"
if %%X equ %PX% if %%Y equ %PY% set "cell=%head%"
if not defined cell (
set "cell=%space%"
set "eX= %%X"
set "eY= %%Y"
set "empty=!empty!#!eX:~-2! !eY:~-2!"
set /a emptyCnt+=1
)
if %%X equ %FX% if %%Y equ %FY% set "cell=%food%"
set "line%%Y=!line%%Y!!cell!"
)
)
(%draw%)
echo(
echo Yurume tuslari: %up%=up %down%=down %left%=left %right%=right
echo Kendinize kacmaktan kacinin (%body%%body%%head%) or wall (%bound%)
echo Yemek ye (%food%) ve buyu.
echo(
call :ask "Baslamak icin herhangi bir alfa-sayisal tusa basin ..." %keys%
>"%cmdFile%" (echo go)
exit /b
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:controller
setlocal enableDelayedExpansion
set "cmd=hold"
set "key="
for /l %%. in (1 0 1) do (
if "!cmd!" neq "hold" (
%choice% /n /c:!keys!
set "key=!errorlevel!"
)
if exist "%cmdFile%" (
<"%cmdFile%" set /p "cmd="
del "%cmdFile%"
)
if "!cmd!" equ "quit" exit
if defined key (
if "!cmd!" equ "prompt" >&9 (echo
>&9 (echo !key!)
if "!cmd!" neq "go" set "cmd=hold"
set "key="
)
)
Evet ilk makalemiz bukadardı
Bu arada Yanlışlıkla İnternet Hızlandırma kısmında indirtmemin yazmışım
Moderatör tarafında düzenlendi:
