[娛樂]Hope黑白動畫
- @Echo off
- Mode Con: Cols=48 Lines=4
- Color 0f
- Chcp 936 > Nul
- Title Hope Art Studio
- @Goto :StartUp
- :StartUp
- Echo.
- Echo. Please
- Echo.Wait
- For /l %%i in (1,1,144) do Call :Set_Bs
- Set Hope=Hope
- For /l %%i in (1,1,22) do Call :Set_Hope
- Set Studio=Studio
- For /l %%i in (1,1,21) do Call :Set_Studio
- Set Arrow[1]=^<
- For /l %%i in (1,1,11) do Call :Set_Arrow1
- Set Arrow[2]=^>
- For /l %%i in (1,1,11) do Call :Set_Arrow2
- Cls
- @Goto :Main
- :Main
- Set /p String=%Bs_% %Arrow[1]%%Hope%%Studio%%Arrow[2]% <Nul
- Call :Sleep 512
- Set /p String=%Bs_%%Arrow[1]% %Hope%%Studio% %Arrow[2]%<Nul
- Call :Sleep 512
- Set /p String=%Bs_% %Arrow[1]%%Hope%%Studio%%Arrow[2]% <Nul
- Call :Sleep 512
- Set /p String=%Bs_%%Arrow[1]% %Hope%%Studio% %Arrow[2]%<Nul
- Call :Sleep 512
- @Goto :Main
- :Set_Bs
- Set Bs_=%Bs_%
- @Goto :Eof
- :Set_Hope
- Set Hope= %Hope%
- @Goto :Eof
- :Set_Studio
- Set Studio= %Studio%
- @Goto :Eof
- :Set_Arrow1
- Set Arrow[1]=%Arrow[1]% ^<
- @Goto :Eof
- :Set_Arrow2
- Set Arrow[2]=%Arrow[2]% ^>
- @Goto :Eof
- :Sleep <Num>
- For /l %%i in (1,1,%i) Do (
- Set ReturnKey=1
- )
- @Goto :Eof
nclick="copycode($('code0'));">復制代碼
By Hope謝謝
