COLOR TIME Color Time Screen Saver - China DOS Union Forum

Long time no see, long time no play batch processing. Post a recently written batch processing for everyone!

xp tested successfully!


Modified on the 29th
Modified code 
@echo off & setlocal EnableDelayedExpansion 
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓

:new
rem Main function.
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y

color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!

echo %nk%                  %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%!     !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%!     !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%!  · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%!     !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%!  · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk%             www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new


:rdline
rem Randomly change the number of lines and left-right position.
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% + %RANDOM:~-1%
set /A rdnb=%rdnb% * 2
set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do  set nk=!nk! 
set rdnb=0
goto :EOF

:gt
rem Get the time and replace it with a digital appearance.
if "%1"=="n" call :gt 0 n
if "%1"=="0" call set %2=a
if "%1"=="1" call set %2=b
if "%1"=="2" call set %2=c
if "%1"=="3" call set %2=d
if "%1"=="4" call set %2=e
if "%1"=="5" call set %2=f
if "%1"=="6" call set %2=g
if "%1"=="7" call set %2=h
if "%1"=="8" call set %2=i
if "%1"=="9" call set %2=j
goto :EOF



:tnb
rem 0-9 digital appearance.
set a1=█████
set a2=█      █
set a3=█      █
set a4=█      █
set a5=█████

set b1=  ██    
set b2=    █    
set b3=    █    
set b4=    █    
set b5=    █    

set c1=    ███
set c2=        █
set c3=█████
set c4=█        
set c5=█████

set d1=    ███
set d2=        █
set d3=█████
set d4=        █
set d5=█████

set e1=█        
set e2=█      █
set e3=█████
set e4=        █
set e5=        █

set f1=███    
set f2=█        
set f3=█████
set f4=        █
set f5=█████

set g1=███    
set g2=█        
set g3=█████
set g4=█      █
set g5=█████

set h1=█████
set h2=█      █
set h3=        █
set h4=        █
set h5=        █

set i1=█████
set i2=█      █
set i3=█████
set i4=█      █
set i5=█████

set j1=█████
set j2=█      █
set j3=█████
set j4=        █
set j5=  ████
goto :EOF


Original code
@echo off & setlocal EnableDelayedExpansion 
mode con cols=100 lines=40
title COLOR TIME
call :tnb
set font=█★●◆□◎◇¤⊙〓

:new
rem Main function.
call :rdline
call :gt %time:~0,1% n
call :gt %time:~1,1% m
call :gt %time:~3,1% z
call :gt %time:~4,1% y

color 0%RANDOM:~-1%
set rdfont=!font:~%RANDOM:~-1%,1!

echo %nk%                  %date%
echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%!     !%z%1:█=%rdfont%! !%y%1:█=%rdfont%!
echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%!     !%z%2:█=%rdfont%! !%y%2:█=%rdfont%!
echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%!  · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%!
echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%!     !%z%4:█=%rdfont%! !%y%4:█=%rdfont%!
echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%!  · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%!
echo %nk%             www.cn-dos.net DOSCC WINBY.
ping 127.1 -n 3 >NUL
cls
set nk=
goto :new


:rdline
rem Randomly change the number of lines and left-right position.
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (%rdnb% -1 1) do echo.
set rdnb=0
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% + %RANDOM:~-1%
call set /A rdnb=%rdnb% * 2
call set /A rdnb=%rdnb% + %RANDOM:~-1%
for /L %%a in (1 1 %rdnb%) do  set nk=!nk! 
set rdnb=0
goto :EOF

:gt
rem Get the time and replace it with a digital appearance.
set t1=%1
set t2=%2
if "%t1%"=="n" (set t1=0) && set t2=n
if "%t1%"=="0" call set %t2%=a
if "%t1%"=="1" call set %t2%=b
if "%t1%"=="2" call set %t2%=c
if "%t1%"=="3" call set %t2%=d
if "%t1%"=="4" call set %t2%=e
if "%t1%"=="5" call set %t2%=f
if "%t1%"=="6" call set %t2%=g
if "%t1%"=="7" call set %t2%=h
if "%t1%"=="8" call set %t2%=i
if "%t1%"=="9" call set %t2%=j
goto :EOF



:tnb
rem 0-9 digital appearance.
set a1=█████
set a2=█      █
set a3=█      █
set a4=█      █
set a5=█████

set b1=  ██    
set b2=    █    
set b3=    █    
set b4=    █    
set b5=    █    

set c1=    ███
set c2=        █
set c3=█████
set c4=█        
set c5=█████

set d1=    ███
set d2=        █
set d3=█████
set d4=        █
set d5=█████

set e1=█        
set e2=█      █
set e3=█████
set e4=        █
set e5=        █

set f1=███    
set f2=█        
set f3=█████
set f4=        █
set f5=█████

set g1=███    
set g2=█        
set g3=█████
set g4=█      █
set g5=█████

set h1=█████
set h2=█      █
set h3=        █
set h4=        █
set h5=        █

set i1=█████
set i2=█      █
set i3=█████
set i4=█      █
set i5=█████

set j1=█████
set j2=█      █
set j3=█████
set j4=        █
set j5=  ████
goto :EOF

[ Last edited by doscc on 2007-1-29 at 02:20 PM ]

Floor1　doscc	Posted 2007-01-28 06:09
中级用户　Posts 93　Credits 256　From 广东
Long time no see, long time no play batch processing. Post a recently written batch processing for everyone! xp tested successfully! Modified on the 29th Modified code @echo off & setlocal EnableDelayedExpansion mode con cols=100 lines=40 title COLOR TIME call :tnb set font=█★●◆□◎◇¤⊙〓 :new rem Main function. call :rdline call :gt %time:~0,1% n call :gt %time:~1,1% m call :gt %time:~3,1% z call :gt %time:~4,1% y color 0%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! echo %nk% %date% echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%! echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%! echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%! echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%! echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%! echo %nk% www.cn-dos.net DOSCC WINBY. ping 127.1 -n 3 >NUL cls set nk= goto :new :rdline rem Randomly change the number of lines and left-right position. set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% + %RANDOM:~-1% set /A rdnb=%rdnb% * 2 set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (1 1 %rdnb%) do set nk=!nk! set rdnb=0 goto :EOF :gt rem Get the time and replace it with a digital appearance. if "%1"=="n" call :gt 0 n if "%1"=="0" call set %2=a if "%1"=="1" call set %2=b if "%1"=="2" call set %2=c if "%1"=="3" call set %2=d if "%1"=="4" call set %2=e if "%1"=="5" call set %2=f if "%1"=="6" call set %2=g if "%1"=="7" call set %2=h if "%1"=="8" call set %2=i if "%1"=="9" call set %2=j goto :EOF :tnb rem 0-9 digital appearance. set a1=█████ set a2=█ █ set a3=█ █ set a4=█ █ set a5=█████ set b1= ██ set b2= █ set b3= █ set b4= █ set b5= █ set c1= ███ set c2= █ set c3=█████ set c4=█ set c5=█████ set d1= ███ set d2= █ set d3=█████ set d4= █ set d5=█████ set e1=█ set e2=█ █ set e3=█████ set e4= █ set e5= █ set f1=███ set f2=█ set f3=█████ set f4= █ set f5=█████ set g1=███ set g2=█ set g3=█████ set g4=█ █ set g5=█████ set h1=█████ set h2=█ █ set h3= █ set h4= █ set h5= █ set i1=█████ set i2=█ █ set i3=█████ set i4=█ █ set i5=█████ set j1=█████ set j2=█ █ set j3=█████ set j4= █ set j5= ████ goto :EOF Original code @echo off & setlocal EnableDelayedExpansion mode con cols=100 lines=40 title COLOR TIME call :tnb set font=█★●◆□◎◇¤⊙〓 :new rem Main function. call :rdline call :gt %time:~0,1% n call :gt %time:~1,1% m call :gt %time:~3,1% z call :gt %time:~4,1% y color 0%RANDOM:~-1% set rdfont=!font:~%RANDOM:~-1%,1! echo %nk% %date% echo %nk% !%n%1:█=%rdfont%! !%m%1:█=%rdfont%! !%z%1:█=%rdfont%! !%y%1:█=%rdfont%! echo %nk% !%n%2:█=%rdfont%! !%m%2:█=%rdfont%! !%z%2:█=%rdfont%! !%y%2:█=%rdfont%! echo %nk% !%n%3:█=%rdfont%! !%m%3:█=%rdfont%! · !%z%3:█=%rdfont%! !%y%3:█=%rdfont%! echo %nk% !%n%4:█=%rdfont%! !%m%4:█=%rdfont%! !%z%4:█=%rdfont%! !%y%4:█=%rdfont%! echo %nk% !%n%5:█=%rdfont%! !%m%5:█=%rdfont%! · !%z%5:█=%rdfont%! !%y%5:█=%rdfont%! echo %nk% www.cn-dos.net DOSCC WINBY. ping 127.1 -n 3 >NUL cls set nk= goto :new :rdline rem Randomly change the number of lines and left-right position. call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (1 1 %rdnb%) do set nk=!nk! set rdnb=0 goto :EOF :gt rem Get the time and replace it with a digital appearance. set t1=%1 set t2=%2 if "%t1%"=="n" (set t1=0) && set t2=n if "%t1%"=="0" call set %t2%=a if "%t1%"=="1" call set %t2%=b if "%t1%"=="2" call set %t2%=c if "%t1%"=="3" call set %t2%=d if "%t1%"=="4" call set %t2%=e if "%t1%"=="5" call set %t2%=f if "%t1%"=="6" call set %t2%=g if "%t1%"=="7" call set %t2%=h if "%t1%"=="8" call set %t2%=i if "%t1%"=="9" call set %t2%=j goto :EOF :tnb rem 0-9 digital appearance. set a1=█████ set a2=█ █ set a3=█ █ set a4=█ █ set a5=█████ set b1= ██ set b2= █ set b3= █ set b4= █ set b5= █ set c1= ███ set c2= █ set c3=█████ set c4=█ set c5=█████ set d1= ███ set d2= █ set d3=█████ set d4= █ set d5=█████ set e1=█ set e2=█ █ set e3=█████ set e4= █ set e5= █ set f1=███ set f2=█ set f3=█████ set f4= █ set f5=█████ set g1=███ set g2=█ set g3=█████ set g4=█ █ set g5=█████ set h1=█████ set h2=█ █ set h3= █ set h4= █ set h5= █ set i1=█████ set i2=█ █ set i3=█████ set i4=█ █ set i5=█████ set j1=█████ set j2=█ █ set j3=█████ set j4= █ set j5= ████ goto :EOF [ Last edited by doscc on 2007-1-29 at 02:20 PM ] Attachments a.JPG (19.62 KiB) COLOR TIME.bat.txt (2.75 KiB)

Floor2　doscc	Posted 2007-01-28 06:10
中级用户　Posts 93　Credits 256　From 广东
Attachments b.JPG (24.11 KiB)

Floor3　ccwan	Posted 2007-01-28 06:19
金牌会员　Posts 1,160　Credits 2,725　From 河北廊坊
Very interesting stuff, support it.

Floor4　redtek	Posted 2007-01-28 08:38
金牌会员　Posts 1,147　Credits 2,902
Appreciate~~ Dynamic time changes, very interesting code~: ) And it especially resembles an animated screen saver, very cute!!!

Floor5　Eblis	Posted 2007-01-28 08:58
中级用户　Posts 108　Credits 251　From 湖南==>广州
Good

Floor6　heicai	Posted 2007-01-28 09:34
中级用户　Posts 156　Credits 385
Great talent! You've reached such a high level in batch processing!

Floor7　wxjclh	Posted 2007-01-28 10:07
初级用户　Posts 32　Credits 65
High, really high!

Floor8　lxmxn	Posted 2007-01-28 11:25
版主　Posts 4,938　Credits 11,386
Well, not bad, just like a screensaver... ^_^

Floor9　electronixtar	Posted 2007-01-28 11:39
铂金会员　Posts 2,672　Credits 7,493

Floor10　0401	Posted 2007-01-28 13:04
中级用户　Posts 88　Credits 435
It's creative, and it also looks like a screensaver, heh heh.

Floor11　doscc	Posted 2007-01-28 14:50
中级用户　Posts 93　Credits 256　From 广东
Thank you everyone for your support! This batch script is inspired by the Nokia S60 mobile phone screensaver.

Floor12　PPdos	Posted 2007-01-28 21:39
高级用户　Posts 268　Credits 783
Support! But there is a question, please the original poster to answer call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% for /L %%a in (%rdnb% -1 1) do echo. set rdnb=0 call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% + %RANDOM:~-1% call set /A rdnb=%rdnb% * 2 call set /A rdnb=%rdnb% + %RANDOM:~-1% Why use call here?

Floor13　aspirer	Posted 2007-01-29 01:38
初级用户　Posts 35　Credits 72
Originally posted by doscc at 2007-1-28 01:50 AM: Thanks everyone for your support! This batch script was inspired by the Nokia S60 mobile phone screensaver. Wow! Do great people all come out at midnight? Can you provide some brief comments?

Floor14　redtek	Posted 2007-01-29 01:54
金牌会员　Posts 1,147　Credits 2,902
A little suggestion~ :) If brother's wonderful post can mark in the title that it contains "batch processing colored time animation" or "contains batch processing animation" and other title words, then in the future, when the forum is searched, it can quickly locate and find brother's post according to keywords such as "animation", "batch processing colored", "colored" and so on. (Because the title of COLOR TIME is very difficult for netizens who have never seen brother's post content to find the post containing "animation" type and content through the forum search. I very much hope that brother's wonderful post can be located and searched by the needed netizens very quickly~ :) (If the COLOR TIME title is still the name that brother likes very much or it represents the characteristics and theme spirit of the code in the post, in the post, you can also use a way similar to book classification search or file subject words so that more netizens can quickly find brother's post through the forum's search function in the future~ :) For example: And other related theme word lists that can quickly search for this post through the forum text content~ :) [ Last edited by redtek on 2007-1-28 at 01:22 PM ]

Floor15　redtek	Posted 2007-01-29 02:05
金牌会员　Posts 1,147　Credits 2,902
According to the topic word test, using the keyword "color animation" from the topic words on the 14th floor to apply the forum post retrieval function, a wonderful post from the brother has already been retrieved~ :) [ Last edited by redtek on 2007-1-28 at 01:07 PM ] Attachments 未命名.GIF (8.61 KiB)