|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
 『楼 主』:
再次挑战数码雨(已更新)
使用 LLM 解释/回答一下
就是速度慢了点，要睡觉了，先不提速了。
@echo off&mode con cols=42 lines=20&color 0c
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]
Just a bit slow, going to sleep, won't speed up for now.
@echo off&mode con cols=42 lines=20&color 0c
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]
|
批处理之家新域名：www.bathome.net |
|
 2008-5-25 02:32 |
|
|
26933062
银牌会员
积分 2268
发帖 879
注册 2006-12-19
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
果然有下雨的感觉，加满分！
It really feels like it's going to rain, full marks!
|
致精致简！ |
|
|
2008-5-25 02:43 |
|
|
cad55
高级用户
积分 620
发帖 329
注册 2007-12-5
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
为什么"雨"换成中文,下几下,就卡呢
Last edited by cad55 on 2008-5-25 at 08:40 AM ]
Why does "Rain" change to Chinese, type it a few times, and then it freezes?
Last edited by cad55 on 2008-5-25 at 08:40 AM ]
|
|
|
2008-5-25 08:33 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
能否像黑客帝国里面那样，每一列都是对齐的？
Can each column be aligned like in The Matrix?
|
 |
|
|
2008-5-25 08:33 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
|
|
2008-5-25 08:48 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
我 觉得 对齐的话 开头的 字符不变 后面的字符在变 就 会 很像
最主要的是下落的速度 但是越完美就越难
这个数码雨很不错的了
I think for alignment, if the starting characters remain unchanged and the following characters change, it will be very similar. The most important thing is the falling speed. But the more perfect it is, the harder it is. This digital rain is pretty good already.
|
|
|
2008-5-25 09:21 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 7 楼』:
加入雨量控制：
使用 LLM 解释/回答一下
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%16,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title Digital Rain - zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo The default press Enter will set the rainfall to 20
set /p num=Please set the rainfall (1-40):
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title Current heavy rain, rainfall: %num1%
) else (
if %num% leq 10 (
title Current moderate rain, rainfall: %num1%
) else (
if %num% leq 20 (
title Current light rain, rainfall: %num1%
) else (
if %num% leq 40 (
title Current drizzle, rainfall: %num1%
) else (
title Current very light rain, rainfall: %num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%16,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
|
批处理之家新域名：www.bathome.net |
|
|
2008-5-25 09:24 |
|
|
cad55
高级用户
积分 620
发帖 329
注册 2007-12-5
状态 离线
|
『第 8 楼』:
使用 LLM 解释/回答一下
楼主.
是下雨专家呀........
怎样才能下中文呢...........
LZ.
You are an expert in rain...
How can I get Chinese characters to appear...
|
|
|
2008-5-25 10:27 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
|
|
2008-5-25 10:31 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 10 楼』:
下咒语：
使用 LLM 解释/回答一下
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 天下咒语-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo 默认回车将设置咒级为20
set /p num=请设置咒级(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title 当前咒级：%num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title Tianxia Spell-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo The default will set the spell level to 20 when pressing Enter
set /p num=Please set the spell level (1-40):
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title Current spell level: %num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
|
批处理之家新域名：www.bathome.net |
|
|
2008-5-25 11:25 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第 11 楼』:
使用 LLM 解释/回答一下
兴奋！！！！！这可是我的建议啊！！！！我是功臣！！（吹牛没打草稿）
一时间忘了 --完美 这个单词怎么写 唉~~~
Excited!!!!! This is actually my suggestion!!!!! I'm a hero! (Boasting without thinking)
For a moment, I forgot -- how to write the word "perfect". Alas~~~
|
|
|
2008-5-25 12:43 |
|
|
faultcode
初级用户
积分 120
发帖 60
注册 2007-10-26
状态 离线
|
|
|
2008-5-25 12:52 |
|
|
huahua0919
银牌会员
积分 1608
发帖 780
注册 2007-10-7
状态 离线
|
|
|
2008-5-25 12:53 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第 14 楼』:
再来一个：
使用 LLM 解释/回答一下
@echo off&mode con cols=42 lines=20&color 02
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=!a!"
) else (
set "b= "
)
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 02:10 PM ]
@echo off&mode con cols=42 lines=20&color 02
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo The default press Enter will set the rainfall to 20
set /p num=Please set the rainfall (1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title Current heavy rain, rainfall：%num1%
) else (
if %num% leq 10 (
title Current moderate rain, rainfall：%num1%
) else (
if %num% leq 20 (
title Current light rain, rainfall：%num1%
) else (
if %num% leq 40 (
title Current drizzle, rainfall：%num1%
) else (
title Current very light rain, rainfall：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=!a!"
) else (
set "b= "
)
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
Last edited by zw19750516 on 2008-5-25 at 02:10 PM ]
|
批处理之家新域名：www.bathome.net |
|
|
2008-5-25 14:07 |
|
|
hansom
初级用户
积分 161
发帖 87
注册 2008-5-25
状态 离线
|
|
|
2008-5-25 18:05 |
|
