Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ::: Author T3RRY : Created 09/04/2021 : Version 1.0.5
- ::: Version changes:
- ::: - ADDED random subarg for /C color switch.
- ::: - ADDED optional companion switch to /C - '/B'
- ::: - When /C random subarg is used, /B may be used with any ONE of the following: R G B C M Y
- ::: - To bias the output color towards Red Green Blue Cyan Magenta or Yellow
- ::: - Support REMOVED for switch usage pattern /Switch:value
- ::: - ADDED support for switches with common prefix.
- ::: - ADDED /T timeout switch for subsecond delays
- ::: - CORRECTED Switch validation method to handle Switches at EOL with no subargs
- ::: - ADDED /E Switch to allow /C value to be preserved or Color to be changed at EOL with an integer subarg.
- :::
- ::: Purpose : Color and cursor position macro for windows 10 batch files
- ::: - Allows rapid display of colored output at specified screen position.
- ::: For more information, read the usage.
- :::
- ::: Uses macro parameter and switch handling template.
- ::: - See : https://pastebin.com/gzL7AYpC
- @Echo off
- :# Windows Version control. Assigns flag true if system is windows 10.
- Set "Win10="
- Ver | Findstr /LIC:" 10." > nul && Set "Win10=true"
- :# Test if virtual terminal codes enabled ; enable if false
- :# removes win10 flag definition if version does not support Virtual Terminal sequences
- If defined Win10 (
- Reg Query HKCU\Console | %SystemRoot%\System32\findstr.exe /LIC:"VirtualTerminalLevel REG_DWORD 0x1" > nul || (
- Reg Add HKCU\Console /f /v VirtualTerminalLevel /t REG_DWORD /d 1
- ) > Nul || Set "Win10="
- )
- If not defined Win10 (
- Echo(Virtual terminal sequences not supported on your system
- Exit /B 1
- )
- If "%~1" == "" (
- Mode 200,150
- Cls
- )
- (Set \n=^^^
- %= \n macro newline variable. Do not modify =%)
- :# assign virtual terminal control character 0x27 'escape' variable \E
- For /F %%a in ( 'Echo prompt $E ^| cmd' )Do Set "\E=%%a"
- :# Virtual Terminal 'VT' sequence Resource :
- :# https://docs.microsoft.com/en-us/windows/console/console-virtual-terminal-sequences
- ::# usage: %$Cout% [/?] | [/Alt | /Main] [/H [-|+]] [/T Int] [/X Int | /L Int | /R Int]
- ::# [/Y Int | /U Int | /D Int] [/K |/Del Int | /I Int] [/N]
- ::# [/C Int | /C Int,Int | /C Int;Int | /C random] [/S "String"] [/E [Optional:{0}|{Int}]
- ::# -----------------------------------------------------------------------------------------------------
- ::# Available Switches : Description:
- ::# -----------------------------------------------------------------------------------------------------
- ::# /? : This help screen
- ::#
- ::# /S String : String to be output. Tested for strings of 500 characters.
- ::# /S String{Substituion} : The following characters must be substituted for output
- ::# /S ^!Variable:/={FS}^! : {AS}:* {DQ}:" {FS}:/ {EQ}:=
- ::#
- ::# /C Integer : Declare output color using VT sequence
- ::# /C Integer,Integer : Chain mulitple VT color sequences
- ::# /C Integer;Integer : Combine multiple VT values into the one sequence
- ::# /C random : Random RGB foreground color
- ::# /B R|G|B|C|M|Y : Bias /C random color toward Red Green Blue
- ::# : Cyan Magenta or Yellow. /C random must be used.
- ::# /E : Preserves /C Color value until /E 0 is used. /C must be used.
- ::# /E 0 : Restores color to Black BG White FG after string output.
- ::# /E Integer : Change color after string output to supplied value.
- ::#
- ::# /Y Integer : Move cursor to Line Integer [ absolute ]
- ::# /X Integer : Move cursor to Column Integer [ absolute ]
- ::# /U Integer : Move cursor Up by Integer
- ::# /D Integer : Move cursor Down by Integer
- ::# /R Integer : Move cursor Right by Integer
- ::# /L Integer : Move cursor Left by Integer
- ::#
- ::# /H - : Hide the cursor : Note - If Cursor state is changed during a code block
- ::# redirected to a file, it cannot be changed again except within a code block.
- ::# /H + : Show the cursor
- ::# /Alt : Switch to alternate buffer [ main buffer is preserved ]
- ::# /Main : Return to main screen buffer [ alternate buffer is cleared ]
- ::# /K : Clears text to right of current cursor position
- ::# /Del Integer : Deletes Integer columns right of the cursor, shifting existing text left
- ::# /I Integer : Inserts whitespace into Integer columns right of Cursor, shifting text right
- ::# /N : Output a newline after other switches are executed.
- ::# /T Integer : Subsecond Delay after output. 500 = ~1 Second [ Depending on clockspeed ]
- ::#
- ::# Note:
- ::# The size of $Cout Macro exceeds the ability of CMD's Parser to support Concatenation of Expansions.
- ::# -----------------------------------------------------------------------------------------------------
- Set $Cout_Switches="Y" "X" "U" "D" "R" "L" "H" "Alt" "Main" "K" "Del" "I" "N" "T" "B" "C" "E" "S"
- Set $Cout=For %%n in (1 2)Do if %%n==2 (%\n%
- For %%G in ( %$Cout_Switches% )Do Set "$Cout_Switch[%%~G]="%\n%
- Set "$Cout_leading.args=!$Cout_args:*/=!"%\n%
- For /F "Delims=" %%G in ("!$Cout_leading.args!")Do Set "$Cout_leading.args=!$Cout_args:/%%G=!"%\n%
- Set ^"$Cout_args=!$Cout_args:"=!"%\n%
- Set "$Cout_i.arg=0"%\n%
- For %%G in (!$Cout_leading.args!)Do (%\n%
- Set /A "$Cout_i.arg+=1"%\n%
- Set "$Cout_arg[!$Cout_i.arg!]=%%~G"%\n%
- )%\n%
- If "!$Cout_Args:~-2,1!" == "/" (%\n%
- Set "$Cout_Switch[!$Cout_Args:~-1!]=true"%\n%
- If not "!$Cout_Args:/?=!." == "!$Cout_Args!." Set "$Cout_Switch[help]=true"%\n%
- Set "$Cout_Args=!$Cout_Args:~0,-2!"%\n%
- )%\n%
- For %%G in ( %$Cout_Switches% )Do If not "!$Cout_args:/%%~G =!" == "!$Cout_args!" (%\n%
- Set "$Cout_Switch[%%~G]=!$Cout_Args:*/%%~G =!"%\n%
- If not "!$Cout_Switch[%%~G]:*/=!" == "!$Cout_Switch[%%~G]!" (%\n%
- Set "$Cout_Trail[%%~G]=!$Cout_Switch[%%~G]:*/=!"%\n%
- For %%v in ("!$Cout_Trail[%%~G]!")Do (%\n%
- Set "$Cout_Switch[%%~G]=!$Cout_Switch[%%~G]: /%%~v=!"%\n%
- Set "$Cout_Switch[%%~G]=!$Cout_Switch[%%~G]:/%%~v=!"%\n%
- )%\n%
- Set "$Cout_Trail[%%~G]="%\n%
- If "!$Cout_Switch[%%~G]:~-1!" == " " Set "$Cout_Switch[%%~G]=!$Cout_Switch[%%~G]:~0,-1!"%\n%
- If "!$Cout_Switch[%%~G]!" == "" Set "$Cout_Switch[%%~G]=true"%\n%
- )%\n%
- )%\n%
- If /I "!$Cout_Switch[C]!" == "random" (%\n%
- If not "!$Cout_Switch[B]!" == "" (Set "$Cout_MOD=100")Else Set "$Cout_MOD=200"%\n%
- Set /A "$Cout_RR=!random! %% !$Cout_MOD! + 50,$Cout_GG=!random! %% !$Cout_MOD! + 50,$Cout_BB=!random! %% !$Cout_MOD! + 50"%\n%
- If /I "!$Cout_Switch[B]!" == "R" Set "$Cout_RR=250"%\n%
- If /I "!$Cout_Switch[B]!" == "G" Set "$Cout_GG=250"%\n%
- If /I "!$Cout_Switch[B]!" == "B" Set "$Cout_BB=250"%\n%
- If /I "!$Cout_Switch[B]!" == "M" Set /A "$Cout_RR=!Random! %% 50 + 200,Cout_GG=0,$Cout_BB=!Random! %% 50 + 200"%\n%
- If /I "!$Cout_Switch[B]!" == "Y" Set /A "$Cout_RR=!Random! %% 90 + 100,Cout_GG=!Random! %% 90 + 90,$Cout_BB=0"%\n%
- If /I "!$Cout_Switch[B]!" == "C" Set /A "$Cout_RR=0,Cout_GG=!Random! %% 120 + 30,$Cout_BB=175"%\n%
- Set "$Cout_Switch[C]=38;2;!$Cout_RR!;!$Cout_GG!;!$Cout_BB!"%\n%
- )%\n%
- If "!$Cout_Switch[help]!" == "true" ((For /F "Tokens=1,2 Delims=#" %%Y in ('findstr /BLIC:"::#" "%~f0"')Do @Echo(%%Z)^| @More)%\n%
- If not "!$Cout_Switch[C]!" == "" (Set "$Cout_Color=%\E%[!$Cout_Switch[C]:,=m%\E%[!m")Else Set "$Cout_Color="%\n%
- If not "!$Cout_Switch[Y]!" == "" (Set "$Cout_Ypos=%\E%[!$Cout_Switch[Y]!d")Else Set "$Cout_Ypos="%\n%
- If not "!$Cout_Switch[X]!" == "" (Set "$Cout_Xpos=%\E%[!$Cout_Switch[X]!G")Else Set "$Cout_Xpos="%\n%
- If not "!$Cout_Switch[U]!" == "" (Set "$Cout_Yoffset=%\E%[!$Cout_Switch[U]!A")Else Set "$Cout_Yoffset="%\n%
- If not "!$Cout_Switch[D]!" == "" Set "$Cout_Yoffset=%\E%[!$Cout_Switch[D]!B"%\n%
- If not "!$Cout_Switch[R]!" == "" (Set "$Cout_Xoffset=%\E%[!$Cout_Switch[R]!C")Else Set "$Cout_Xoffset="%\n%
- If not "!$Cout_Switch[L]!" == "" Set "$Cout_Xoffset=%\E%[!$Cout_Switch[L]!D"%\n%
- If "!$Cout_Switch[H]!" == "-" Set "$Cout_Cursor=%\E%[?25l"%\n%
- If "!$Cout_Switch[H]!" == "+" Set "$Cout_Cursor=%\E%[?25h"%\n%
- If "!$Cout_Switch[Main]!" == "true" (Set "$Cout_Buffer=%\E%[?1049l")Else Set "$Cout_Buffer="%\n%
- If "!$Cout_Switch[Alt]!" == "true" Set "$Cout_Buffer=%\E%[?1049h"%\n%
- If not "!$Cout_Switch[K]!" == "" (Set "$Cout_LineClear=%\E%[K")Else Set "$Cout_LineClear="%\n%
- If not "!$Cout_Switch[Del]!" == "" (Set "$Cout_Delete=%\E%[!$Cout_Switch[Del]!P")Else Set "$Cout_Delete="%\n%
- If not "!$Cout_Switch[I]!" == "" (Set "$Cout_Insert=%\E%[!$Cout_Switch[I]!@")Else Set "$Cout_Insert="%\n%
- If not "!$Cout_Switch[S]!" == "" (%\n%
- Set "$Cout_String=!$Cout_Switch[S]:{FS}=/!"%\n%
- Set "$Cout_String=!$Cout_String:{EQ}==!"%\n%
- Set "$Cout_String=!$Cout_String:{AS}=*!"%\n%
- Set ^"$Cout_String=!$Cout_String:{DQ}="!"%\n%
- )Else (Set "$Cout_String=")%\n%
- If "!$Cout_Switch[E]!" == "true" (Set "$Cout_EOLC=!$Cout_Color!")%\n%
- If not "!$Cout_Switch[E]!" == "" (Set "$Cout_EOLC=%\E%[!$Cout_Switch[E]!m")%\n%
- If "!$Cout_EOLC!" == "" (Set "$Cout_EOLC=%\E%[0m")%\n%
- ^< nul set /P "=!$Cout_Buffer!!$Cout_Cursor!!$Cout_Ypos!!$Cout_YOffset!!$Cout_Xpos!!$Cout_XOffset!!$Cout_Delete!!$Cout_Insert!!$Cout_Color!!$Cout_LineClear!!$Cout_String!!$COUT_EOLC!"%\n%
- If "!$Cout_Switch[N]!" == "true" Echo(%\n%
- If not "!$Cout_Switch[T]!" == "" (For /L %%T in (1 1 !$Cout_Switch[T]!)Do Call :$Cout_Delay_FalseLabel 2^> nul)%\n%
- If "!$Cout_Switch[help]!" == "true" Pause%\n%
- ) Else Set $Cout_args=
- :# enable macro
- Setlocal EnableExtensions EnableDelayedExpansion
- :# facilitate testing of the macro using parameters from the command line
- if not "%~1" == "" (
- %$Cout% %*
- Exit /B !Errorlevel!
- )
- :# usage example
- (
- %$Cout% /H - /C 1,33 /S " , .-;" /N
- %$Cout% /C 1,33 /S " , |\ {FS} {FS} __," /N
- %$Cout% /C 1,33 /S " |\ '.`-.| |.'.-'" /N
- %$Cout% /C 1,33 /S " \`'-: `; : {FS}" /N
- %$Cout% /C 1,33 /S " `-._'. \'|" /N
- %$Cout% /C 1,33 /S " ,_.-` ` ` ~,_" /N
- %$Cout% /C 1,33 /S " '--,. "
- %$Cout% /C 31 /S ".-. "
- %$Cout% /C 1,33 /S ",-^{EQ}." /N
- %$Cout% /C 1,33 /S " {FS} "
- %$Cout% /C 31 /S "{ "
- %$Cout% /C 1,36 /S "} "
- %$Cout% /C 31 /S ")"
- %$Cout% /C 1,33 /S "`"
- %$Cout% /C 33 /S ";-."
- %$Cout% /C 1,33 /S "}" /N
- %$Cout% /C 1,33 /S " | "
- %$Cout% /C 31 /S "'-' "
- %$Cout% /C 33 /S "{FS}__ |" /N
- %$Cout% /C 1,33 /S " {FS} "
- %$Cout% /C 33 /S "\_,\|" /N
- %$Cout% /C 1,33 /S " | (" /N
- %$Cout% /C 1,33 /S " "
- %$Cout% /C 31 /S "__ "
- %$Cout% /C 1,33 /S "{FS} ' \" /N
- %$Cout% /C random /B G /S " {FS}\_ "
- %$Cout% /C 31 /S "{FS},'`"
- %$Cout% /C 1,33 /S "| ' "
- %$Cout% /C 31 /S ".-~^~~-." /N
- %$Cout% /C random /B G /S " |`.\_ "
- %$Cout% /C 31 /S "| "
- %$Cout% /C 1,33 /S "{FS} ' , "
- %$Cout% /C 31 /S "{FS} \" /N
- %$Cout% /C random /B G /S " _{FS} `, \"
- %$Cout% /C 31 /S "| "
- %$Cout% /C 1,33 /S "; , . "
- %$Cout% /C 31 /S "| , ' . |" /N
- %$Cout% /C random /B G /S " \ `, "
- %$Cout% /C 31 /S "| "
- %$Cout% /C 1,33 /S "| , , "
- %$Cout% /C 31 /S "| : !! : !!| /N
- %$Cout% /C random /B G /S " _\ `, "
- %$Cout% /C 31 /S "\ "
- %$Cout% /C 1,33 /S "|. , "
- %$Cout% /C 31 /S "| | | | |" /N
- %$Cout% /C random /B G /S " \` `. "
- %$Cout% /C 31 /S "\ "
- %$Cout% /C 1,33 /S "| ' "
- %$Cout% /C 1,32 /S "|"
- %$Cout% /C 31 /S "\_|-'|_,'\|" /N
- %$Cout% /C random /B G /S " _\ `, "
- %$Cout% /C 1,32 /S "`"
- %$Cout% /C 1,33 /S "\ ' . ' "
- %$Cout% /C 1,32 /S "| | | | | "
- %$Cout% /C random /B G /S "__" /N
- %$Cout% /C random /B G /S " \ `, "
- %$Cout% /C 33 /S "| , ' "
- %$Cout% /C 1,32 /S "|_{FS}'-|_\_{FS} "
- %$Cout% /C random /B G /S "__ ,-;` {FS}" /N
- %$Cout% /C random /B G /S " \ `, "
- %$Cout% /C 33 /S "\ . , ' .| | | | | "
- %$Cout% /C random /B G /S "_{FS}' ` _-`|" /N
- %$Cout% /C random /B G /S " `\ `, "
- %$Cout% /C 33 /S "\ , | | | | |"
- %$Cout% /C random /B G /S "_{FS}' .-^ {FS}" /N
- %$Cout% /C random /B G /S " \` `, "
- %$Cout% /C 33 /S "`\ \{FS}|,| ;"
- %$Cout% /C random /B G /S "{FS}' .-^ |" /N
- %$Cout% /C random /B G /S " \ `, "
- %$Cout% /C 33 /S "`\' , | ; "
- %$Cout% /C random /B G /S "{FS}' -^ _{FS}" /N
- %$Cout% /C random /B G /S " `\ `, "
- %$Cout% /C random /B M /S ".-^-. "
- %$Cout% /C 1,33 /S "': "
- %$Cout% /C random /B G /S "{FS}' -^ .{FS}" /N
- %$Cout% /C random /B G /S " jgs _`\ ;"
- %$Cout% /C random /B M /S "_{ ' ; "
- %$Cout% /C random /B G /S "{FS}' -^ {FS}" /N
- %$Cout% /C random /B G /S " _\`-{FS}__"
- %$Cout% /C random /B M /S ".~ `."
- %$Cout% /C 1,35,7,48;2;130;100;0 /S "8"
- %$Cout% /C random /B M /S ".'.^`~-. "
- %$Cout% /C random /B G /S "-^ _,{FS}" /N
- %$Cout% /C random /B G /S " __\ "
- %$Cout% /C random /B M /S "{ '-."
- %$Cout% /C 1,35,7,48;2;150;130;0 /S "|"
- %$Cout% /C random /B M /S ".'.--~'`}"
- %$Cout% /C random /B G /S " _{FS}" /N
- %$Cout% /C random /B G /S " \ .-^` "
- %$Cout% /C random /B M /S "}.-~^'"
- %$Cout% /C 1,35,7,48;2;170;150;0 /S "@"
- %$Cout% /C random /B M /S "'-. '-..' "
- %$Cout% /C random /B G /S "__{FS}" /N
- %$Cout% /C random /B G /S " _{FS} .^ "
- %$Cout% /C random /B M /S "{ -'.~('-._,.'"
- %$Cout% /C random /B G /S "\_,{FS}" /N
- %$Cout% /C random /B G /S " {FS} .^ _{FS}'"
- %$Cout% /C random /B M /S "`--; ; `. ;" /N
- %$Cout% /C random /B G /S " .-^ _{FS}' "
- %$Cout% /C random /B M /S "`-..__,-'" /N
- %$Cout% /C random /B G /S " __{FS}'" /N
- ) > "%~dp0parrot.brd"
- TYPE "%~dp0parrot.brd"
- DEL "%~dp0parrot.brd"
- :# Just a bit of animation
- For /L %%i in (1 1 50)Do (
- %$Cout% /T 25 /Y 8 /X 26 /C random /B C /S }
- %$Cout% /D 2 /R 5 /I 2
- %$Cout% /U 1 /R 1 /C 33 /S \
- %$Cout% /Y 25 /X 19 /C random /B M /S ".-^-. "
- %$Cout% /D 1 /X 17 /C random /B M /S "_{ ' ; "
- %$Cout% /D 1 /X 15 /C random /B M /S ".~ `."
- %$Cout% /R 1 /C random /B M /S ".'.^`~-. "
- %$Cout% /D 1 /X 14 /C random /B M /S "{ '-."
- %$Cout% /R 1 /C random /B M /S ".'.--~'`}"
- %$Cout% /D 1 /X 15 /C random /B M /S "}.-~^'"
- %$Cout% /R 1 /C random /B M /S "'-. '-..' "
- %$Cout% /D 1 /X 14 /C random /B M /S "{ -'.~('-._,.'"
- %$Cout% /D 1 /X 15 /C random /B M /S "`--; ; `. ;"
- %$Cout% /D 1 /X 19 /C random /B M /S "`-..__,-'"
- %$Cout% /T 25 /Y 8 /X 26 /C random /B B /S {EQ}
- %$Cout% /D 2 /R 5 /Del 2
- %$Cout% /U 1 /R 1 /C 33 /S "|"
- If %%i EQU 50 %$Cout% /H + /Y 34 /L 1
- )
- Goto :Eof
Add Comment
Please, Sign In to add comment