Board logo

标题: [特效代码] [娱乐]Hope黑白动画 [打印本页]
作者: HOPE2021    时间: 2021-10-7 09:15     标题: [娱乐]Hope黑白动画

  1. @Echo off

  2. Mode Con: Cols=48 Lines=4

  3. Color 0f

  4. Chcp 936 > Nul

  5. Title Hope Art Studio

  6. @Goto :StartUp

  7. 

  8. :StartUp

  9. 	Echo.

  10. 	Echo.                     Please

  11. 	Echo.                      Wait

  12. 	For /l %%i in (1,1,144) do Call :Set_Bs

  13. 	Set "Hope=Hope"

  14. 	For /l %%i in (1,1,22) do Call :Set_Hope

  15. 	Set "Studio=Studio"

  16. 	For /l %%i in (1,1,21) do Call :Set_Studio

  17. 	Set "Arrow[1]=^<"

  18. 	For /l %%i in (1,1,11) do Call :Set_Arrow1

  19. 	Set "Arrow[2]=^>"

  20. 	For /l %%i in (1,1,11) do Call :Set_Arrow2

  21. 	Cls

  22. @Goto :Main

  23. 

  24. :Main

  25. 	Set /p String=%Bs_%   %Arrow[1]%%Hope%%Studio%%Arrow[2]%   <Nul

  26. 	Call :Sleep 512

  27. 	Set /p String=%Bs_%  %Arrow[1]% %Hope%%Studio% %Arrow[2]%  <Nul

  28. 	Call :Sleep 512

  29. 	Set /p String=%Bs_% %Arrow[1]%  %Hope%%Studio%  %Arrow[2]% <Nul

  30. 	Call :Sleep 512

  31. 	Set /p String=%Bs_%%Arrow[1]%   %Hope%%Studio%   %Arrow[2]%<Nul

  32. 	Call :Sleep 512

  33. @Goto :Main

  34. 

  35. :Set_Bs

  36. 	Set "Bs_=%Bs_%"

  37. @Goto :Eof

  38. 

  39. :Set_Hope

  40. 	Set "Hope= %Hope% "

  41. @Goto :Eof

  42. 

  43. :Set_Studio

  44. 	Set "Studio= %Studio% "

  45. @Goto :Eof

  46. 

  47. :Set_Arrow1

  48. 	Set "Arrow[1]=%Arrow[1]%   ^<"

  49. @Goto :Eof

  50. 

  51. :Set_Arrow2

  52. 	Set "Arrow[2]=%Arrow[2]%   ^>"

  53. @Goto :Eof

  54. 

  55. :Sleep <Num>

  56. 	For /l %%i in (1,1,%i) Do (

  57. 		Set ReturnKey=1

  58. 	)

  59. @Goto :Eof
复制代码
By Hope2021
谢谢
作者: zzz19760225    时间: 2021-10-7 09:42

这个也可以，还加上闪的那种。嘿嘿
作者: HOPE2021    时间: 2021-10-7 09:46

回复 2# zzz19760225
还加上闪的那种

指什么?
作者: zzz19760225    时间: 2021-10-7 09:51

本帖最后由 zzz19760225 于 2021-10-7 10:06 编辑

名字上下层交错闪白花点
蛮好蛮好，学习了学习了
有空作为样本抄写一部分
配上声音那个，可以做批处理动画了，要是模块化，可以做成简单软件，卖给业余居家的人，制作家庭简单影视，描述家庭情况或启蒙教育子女。


要一块钱那种，下载要原版的，就得去作者那里，一元微信，支付宝，或邮政，个人码什么的，简单又便宜。
全国大部分没多少钱，又喜欢丰富家庭生活，大有人在，但是必须得去别人的网络网站。单机的可以家内小群体记忆回忆，生日什么的各种纪念日可以有情淡泊的展示。总之我个人感觉需求量很大。
作者: HOPE2021    时间: 2021-10-7 09:55

回复 4# zzz19760225
谢谢您的建议,将来会继续改进.
作者: HOPE2021    时间: 2021-10-7 10:15

本帖最后由 HOPE2021 于 2021-10-7 10:19 编辑

回复 4# zzz19760225
可以做成简单软件

这是个远大的计划,需要上下求索.我只会一些界面设计,请参考[请在http://www.bathome.net/thread-60261-1-1.html下载配套的Colour.Exe]:
  1. chcp 437

  2. if "%1"=="" (

  3.   for %%a in (  FontSize:00100008

  4.                 FontFamily:00000030

  5.                 WindowSize:003d0050

  6.                 ScreenColors:0000000f

  7.                 CodePage:000001b5

  8.                 ScreenBufferSize:003d0050

  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (

  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f

  11.   )

  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

  13. 

  14. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

  15. 

  16. @Echo Off

  17. Mode Con: Cols=80 Lines=30

  18. Title Edit

  19. Color 70

  20. Chcp 936 > Nul

  21. @Goto :Title

  22. 

  23. :Title

  24. 	Colour 112

  25. 	Set /p Title=# <Nul

  26. 	Colour 15

  27. 	Set /p Title=# F<Nul

  28. 	Colour 8

  29. 	Set /p Title=ile <Nul

  30. 	Colour 112

  31. 	Set /p Title=# <Nul

  32. 	Call :TitleBar E dit

  33. 	Call :TitleBar S earch

  34. 	Call :TitleBar V iew

  35. 	Call :TitleBar O ptions

  36. 	Call :TitleBar H elp

  37. 	Set /p Title=#                                     <Nul

  38. @Goto :Main

  39. 

  40. :Main

  41. 	Colour 15

  42. 	Set /p Main=＋<Nul

  43. 	For /l %%i in (1,1,16) Do (

  44. 		Set /p Main=—<Nul

  45. 	)

  46. 	Colour 112

  47. 	Set /p Main=#  UNTITLED  <Nul

  48. 	Colour 15

  49. 	For /l %%i in (1,1,16) Do (

  50. 		Set /p Main=—<Nul

  51. 	)

  52. 	Set /p Main=↑<Nul

  53. 	For /l %%i in (1,1,26) Do (

  54. 		Call :MainBar

  55. 	)

  56. 	Colour 15

  57. 	Set /p Main=丨<Nul

  58. 	Colour 31

  59. 	For /l %%i in (1,1,38) Do (

  60. 		Set /p Main=#  <Nul

  61. 	)

  62. 	Colour 15

  63. 	Set /p Main=↓<Nul

  64. 	Colour 112

  65. 	Set /p Main=# Commands for manipulating files.<Nul

  66. 	Colour 0

  67. 	@Pause > Nul

  68. @Exit /b 0

  69. 

  70. :TitleBar <FirstString> <String>

  71. 	Colour 127

  72. 	Set /p Title=%1<Nul

  73. 	Colour 112

  74. 	Set /p Title=%2  <Nul

  75. @Goto :Eof

  76. 

  77. :MainBar

  78. 	Colour 15

  79. 	Set /p MainBar=丨<Nul

  80. 	Colour 23

  81. 	For /l %%i in (1,1,38) Do (

  82. 		Set /p Main=#  <Nul

  83. 	)

  84. 	Colour 119

  85. 	Set /p MainBar=■<Nul

  86. @Goto :Eof
复制代码
作者: zzz19760225    时间: 2021-10-7 10:33

本帖最后由 zzz19760225 于 2021-10-7 10:35 编辑

你太残忍了，我都忍不住去点击那个 edit 选项栏。你干嘛不显示tc2.0呢或者最好是debug。
我正想怎么弄个仿debug的汉字进制储存存取的，批处理伪数据存取。
不过计划嘛，总是比做的多，那是我的特征。
作者: cmd1152    时间: 2021-10-7 10:48

回复 4# zzz19760225


    服了你的商业头脑
作者: HOPE2021    时间: 2021-10-7 11:46

回复 7# zzz19760225
Tc2.0

Tc2.0界面:
windows 7版:
  1. chcp 437

  2. if "%1"=="" (

  3.   for %%a in (  FontSize:00100008

  4.                 FontFamily:00000030

  5.                 WindowSize:003d0050

  6.                 ScreenColors:0000000f

  7.                 CodePage:000001b5

  8.                 ScreenBufferSize:003d0050

  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (

  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f

  11.   )

  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

  13. 

  14. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

  15. 

  16. @Echo Off

  17. Mode Con: Cols=80 Lines=25

  18. Title Turbo C

  19. Color 70

  20. Chcp 936 > Nul

  21. @Goto :Title

  22. 

  23. :Title

  24. 	Colour 124

  25. 	Set /p Title=#  ≡  <Nul

  26. 	Call :TitleBar F ile

  27. 	Call :TitleBar E dit

  28. 	Call :TitleBar S earch

  29. 	Call :TitleBar R un

  30. 	Call :TitleBar C ompile

  31. 	Call :TitleBar D ebug

  32. 	Call :TitleBar P roject

  33. 	Call :TitleBar O ptions

  34. 	Set /p Title=# <Nul

  35. 	Call :TitleBar W indow

  36. 	Call :TitleBar H elp

  37. @Goto :Main

  38. 

  39. :Main

  40. 	Colour 31

  41. 	Set /p Main=╔<Nul

  42. 	For /l %%i in (1,1,16) Do (

  43. 		Set /p Main=═<Nul

  44. 	)

  45. 	Colour 112

  46. 	Set /p Main=#  UNTITLED  <Nul

  47. 	Colour 31

  48. 	For /l %%i in (1,1,13) Do (

  49. 		Set /p Main=═<Nul

  50. 	)

  51. 	Set /p Main=1=[↑]╗<Nul

  52. 	For /l %%i in (1,1,14) Do (

  53. 		Call :MainBar

  54. 	)

  55. 	Colour 31

  56. 	Set /p Main=║<Nul

  57. 	Colour 31

  58. 	For /l %%i in (1,1,38) Do (

  59. 		Set /p Main=#  <Nul

  60. 	)

  61. 	Colour 31

  62. 	Set /p Main=↓<Nul

  63. 	Set /p Main=╚<Nul

  64. 	For /l %%i in (1,1,38) Do (

  65. 		Set /p Main=═<Nul

  66. 	)

  67. 	Set /p Main=╝<Nul

  68. 	Colour 49

  69. 	Set /p Main=╔<Nul

  70. 	For /l %%i in (1,1,16) Do (

  71. 		Set /p Main=═<Nul

  72. 	)

  73. 	Colour 62

  74. 	Set /p Main=#  Message   <Nul

  75. 	Colour 49

  76. 	For /l %%i in (1,1,16) Do (

  77. 		Set /p Main=═<Nul

  78. 	)

  79. 	Set /p Main=╗<Nul

  80. 	For /l %%i in (1,1,4) Do (

  81. 		Call :MessageBar

  82. 	)

  83. 	Set /p Main=╚<Nul

  84. 	For /l %%i in (1,1,38) Do (

  85. 		Set /p Main=═<Nul

  86. 	)

  87. 	Set /p Main=╝<Nul

  88. 	Colour 116

  89. 	Set /p Main=# F1<Nul

  90. 	Colour 112

  91. 	Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul

  92. 	Colour 0

  93. 	Pause > Nul

  94. 	@Exit /b 0

  95. @Pause > Nul

  96. 

  97. :TitleBar <FirstString> <String>

  98. 	Colour 124

  99. 	Set /p Title=%1<Nul

  100. 	Colour 112

  101. 	Set /p Title=%2  <Nul

  102. @Goto :Eof

  103. 

  104. :MainBar

  105. 	Colour 31

  106. 	Set /p MainBar=║<Nul

  107. 	Colour 23

  108. 	For /l %%i in (1,1,38) Do (

  109. 		Set /p Main=#  <Nul

  110. 	)

  111. 	Colour 119

  112. 	Set /p MainBar=■<Nul

  113. @Goto :Eof

  114. 

  115. :MessageBar

  116. 	Colour 49

  117. 	Set /p MainBar=║<Nul

  118. 	Colour 49

  119. 	For /l %%i in (1,1,38) Do (

  120. 		Set /p Main=#  <Nul

  121. 	)

  122. 	Colour 49

  123. 	Set /p MainBar=║<Nul

  124. @Goto :Eof
复制代码
Windows 10 版:
  1. chcp 437

  2. if "%1"=="" (

  3.   for %%a in (  FontSize:00100008

  4.                 FontFamily:00000030

  5.                 WindowSize:003d0050

  6.                 ScreenColors:0000000f

  7.                 CodePage:000001b5

  8.                 ScreenBufferSize:003d0050

  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (

  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f

  11.   )

  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

  13. 

  14. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

  15. 

  16. @Echo Off

  17. Mode Con: Cols=80 Lines=25

  18. Title Turbo C

  19. Color 70

  20. Chcp 936 > Nul

  21. @Goto :Title

  22. 

  23. :Title

  24. 	Colour 124

  25. 	Set /p Title=#  ≡  <Nul

  26. 	Call :TitleBar F ile

  27. 	Call :TitleBar E dit

  28. 	Call :TitleBar S earch

  29. 	Call :TitleBar R un

  30. 	Call :TitleBar C ompile

  31. 	Call :TitleBar D ebug

  32. 	Call :TitleBar P roject

  33. 	Call :TitleBar O ptions

  34. 	Set /p Title=# <Nul

  35. 	Call :TitleBar W indow

  36. 	Call :TitleBar H elp

  37. @Goto :Main

  38. 

  39. :Main

  40. 	Colour 31

  41. 	Set /p Main=＋<Nul

  42. 	For /l %%i in (1,1,16) Do (

  43. 		Set /p Main=—<Nul

  44. 	)

  45. 	Colour 112

  46. 	Set /p Main=#  UNTITLED  <Nul

  47. 	Colour 31

  48. 	For /l %%i in (1,1,13) Do (

  49. 		Set /p Main=—<Nul

  50. 	)

  51. 	Set /p Main=1-[↑]＋<Nul

  52. 	For /l %%i in (1,1,14) Do (

  53. 		Call :MainBar

  54. 	)

  55. 	Colour 31

  56. 	Set /p Main=丨<Nul

  57. 	Colour 31

  58. 	For /l %%i in (1,1,38) Do (

  59. 		Set /p Main=#  <Nul

  60. 	)

  61. 	Colour 31

  62. 	Set /p Main=↓<Nul

  63. 	Set /p Main=＋<Nul

  64. 	For /l %%i in (1,1,38) Do (

  65. 		Set /p Main=—<Nul

  66. 	)

  67. 	Set /p Main=＋<Nul

  68. 	Colour 49

  69. 	Set /p Main=＋<Nul

  70. 	For /l %%i in (1,1,16) Do (

  71. 		Set /p Main=—<Nul

  72. 	)

  73. 	Colour 62

  74. 	Set /p Main=#  Message   <Nul

  75. 	Colour 49

  76. 	For /l %%i in (1,1,16) Do (

  77. 		Set /p Main=—<Nul

  78. 	)

  79. 	Set /p Main=＋<Nul

  80. 	For /l %%i in (1,1,4) Do (

  81. 		Call :MessageBar

  82. 	)

  83. 	Set /p Main=＋<Nul

  84. 	For /l %%i in (1,1,38) Do (

  85. 		Set /p Main=—<Nul

  86. 	)

  87. 	Set /p Main=＋<Nul

  88. 	Colour 116

  89. 	Set /p Main=# F1<Nul

  90. 	Colour 112

  91. 	Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul

  92. 	Colour 0

  93. 	Pause > Nul

  94. 	@Exit /b 0

  95. @Pause > Nul

  96. 

  97. :TitleBar <FirstString> <String>

  98. 	Colour 124

  99. 	Set /p Title=%1<Nul

  100. 	Colour 112

  101. 	Set /p Title=%2  <Nul

  102. @Goto :Eof

  103. 

  104. :MainBar

  105. 	Colour 31

  106. 	Set /p MainBar=丨<Nul

  107. 	Colour 23

  108. 	For /l %%i in (1,1,38) Do (

  109. 		Set /p Main=#  <Nul

  110. 	)

  111. 	Colour 119

  112. 	Set /p MainBar=■<Nul

  113. @Goto :Eof

  114. 

  115. :MessageBar

  116. 	Colour 49

  117. 	Set /p MainBar=丨<Nul

  118. 	Colour 49

  119. 	For /l %%i in (1,1,38) Do (

  120. 		Set /p Main=#  <Nul

  121. 	)

  122. 	Colour 49

  123. 	Set /p MainBar=丨<Nul

  124. @Goto :Eof
复制代码
作者: zzz19760225    时间: 2021-10-7 12:01

回复 9# HOPE2021


    居然真有！
作者: HOPE2021    时间: 2021-10-7 12:02

回复 10# zzz19760225
路漫漫(曼曼)其修远兮,吾将上下而求索。



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2