[原创代码] [Perl]Win32::Console版生命游戏

河豚火车

反射器

又该耕地了

饲养员

ALPHA 星入侵, 来势凶悍啊

不用出动这多战舰, 给我四驾战车, GO, 占领整个宇宙吧

set "M=20"
if "%1"=="" (
    for %%a in ( FontSize:00080008 FontFamily:00000030 WindowSize:00%M%00%M%
              ScreenColors:0000000f CodePage:000001b5 ScreenBufferSize:00%M%00%M%
    ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
        >nul reg add HKCU\Console\LIFEGAME /v %%b /t reg_dword /d 0x%%c /f
    )

    start "LIFEGAME" /max "%ComSpec%" /c "%~s0" 1&goto:eof
) else (
    >nul reg delete HKCU\Console\LIFEGAME /f
)

@echo off & setlocal enableDelayedExpansion
for /f "delims==" %%a in ('set') do if "%%a" neq "M" set "%%a="

set /a "M=0x%M%, L=M-2, im=M*M, _P=M+1, _Q=L*M+1"
for /l %%a in (1 1 !im!) do (
    if !random! lss 0x3fff (set "W= !W!") else set "W=#!W!"
	if %%a lss !M! set "ET= !ET!"
)

for /l %%a in () do (
    set "U="
    for /l %%i in (!_P! !M! !_Q!) do (
        set /a "a=%%i-1+L"& for /f "tokens=1-3" %%a in ("!a! %%i !L!") do set "U=!U!!W:~%%a,1!!W:~%%b,%%c!!W:~%%b,1!"
    )
    for %%a in (!M!) do set "U=!U:~-%%a!!U!!U:~0,%%a!"

    set "W="
    for /l %%i in (!_P! !M! !_Q!) do (
        set /a "_b=%%i-2, _a=_b-m, _c=_b+m, _i=%%i-1"
        for /l %%a in (1 1 !L!) do (
            set /a "_b+=1, _a+=1, _c+=1, _i+=1"
            for /f "tokens=1-4" %%a in ("!_a! !_b! !_c! !_i!") do (
                set "_t=!U:~%%a,3!!U:~%%b,3!!U:~%%c,3!"
                set "_t=!_t: =!     !U:~%%d,1!#   " & set "W=!W!!_t:~9,1!"
            )
        )
        set "W=!W!  "
    )
    set "W=!ET!  !W!!ET!"
	cls & echo !W:~0,-%_P%!
)
复制代码

@echo off
setlocal enabledelayedexpansion
for /r %%a in (*.lif) do (
set var=%%a
set var=!var:~-8!
if !var!==_106.lif del %%a
)
pause
复制代码

import sys
import os
import random
import time
cols=100
rows=80
dict={' ':0,'*':1}
cells=[[' ' for x in range(cols)] for y in range(rows)]
grid=[[' ' for x in range(cols)] for y in range(rows)]
if len(sys.argv)>1:
    f=sys.argv[1]
    try:
        txt=open(f,'r')
    except:
        print('file not found')
        os.system('pause >nul')
        exit()
    y=1
    for line in txt.readlines():
        if y==rows-1:
            print('err:too much lines')
            break
        if line[0]=='#':continue
        for x in range(cols-2):
            try:
                if line[x]=='*':cells[y][x+1]='*'
            except:
                y+=1
                break
else:
    print('cmdline:cell.py *.lif')
    while True:
        level=input('larger number,less cells ( >0 ):')
        try:
            if int(level)>0:
                for y in range(1,rows-1):
                    for x in range(1,cols-1):
                        r=random.randint(0,int(level))
                        if r==0:cells[y][x]='*'
                break
        except:pass

for y in cells:print(' '.join(y))
print("press key to begin...")
os.system('pause >nul')
i=0
while True:
    for y in range(1,rows-1):
        for x in range(1,cols-1):
            num=dict[cells[y-1][x-1]]+\
                dict[cells[y-1][x+1]]+\
		dict[cells[y-1][x]]+\
		dict[cells[y+1][x-1]]+\
		dict[cells[y+1][x+1]]+\
		dict[cells[y+1][x]]+\
		dict[cells[y][x-1]]+\
		dict[cells[y][x+1]]
            if num==3:grid[y][x]='*'
            elif num==2:grid[y][x]=cells[y][x]
            else:grid[y][x]=' '
    for y in range(1,rows-1):
        for x in range(1,cols-1):
            cells[y][x]=grid[y][x]
    time.sleep(0.01)
    os.system('cls')
    i+=1
    print('time: '+str(i))
    num=0
    for y in range(1,rows-1):
        for x in range(1,cols-1):
            num+=dict[cells[y][x]]
    if num==0:
        print('cells all dead,press key to exit...')
        break
    else:
        for y in cells:print(' '.join(y))
os.system('pause >nul')
复制代码

@echo off & setlocal enabledelayedexpansion & color 0a & title PYTHON CELL

if "%2"=="" (

for %%a in (FontSize:00080005  WindowSize:005c00c8  ScreenColors:0000000f  CodePage:000003a8  ScreenBufferSize::005c00c8) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (

>nul reg add HKCU\Console\PYTHON_CELL /v %%b /t reg_dword /d 0x%%c /f)

start "PYTHON_CELL" /max "%ComSpec%" /c "%~s0" %1 1&goto:eof

) else (

>nul reg delete HKCU\Console\PYTHON_CELL /f

)
python %~dp0cell.py %1
复制代码