(Now more than) Half an hour later...Hey - There's something to waste some time on...
Download Link V.3.0 - https://drive.google.com/uc?export=down ... XdVB7BYSPq
Youtube Demo: https://youtu.be/HasHBx1uAe8E (V1.0)
*Update* 07 July 2020 Archive updated with Version 3.0
- Animate.Bat added to the Archive **Improved version: viewtopic.php?p=62302#p62302**
- Palettes moved from main program to components folder to facilitate lasting palette editing.
[/u][/b]
- Archive Contents:
+BatchPaint\
- painter.bat v 3.0
-+ _Components\
- BG.EXE
- cursorsize.exe
- GetFontSize.exe
- GetKey.exe
--+ Palettes\
- Palette[0].bat
- ~ Palette[18].bat
--+ Sound\
- Kai_Engel_-_05_-_When_the_World_Falls_Down.mp3
- Kai_Engel_-_07_-_Downpour_Pon_X.mp3
- Kai_Engel_-_07_-_modum.mp3
- Kai_Engel_-_08_-_daemones.mp3
- Kai_Engel_-_08_-_Downfall.mp3
- Sentinel.mp3
--+ Paintings\
- readme.txt
- Animate.bat
---------------------------------------------------------------------------------------------------------------------------
! New ! + Features added for all you out there with ideas of creating batch animations the easy way!
- Features:
07/07/2020
Load multiple objects as layers in the Animate subprogram using {Insert} to name an object group to choose from, and switch between selected layers using {Tab}.
28/06/2020
Cells can now be individually deleted from the object file
Rotation and Mirroring of Image added to Animate.bat
Painting are now seperate objects from the canvas, And a new program has been added to the archive - Animate.bat,
which allows the paiting to be moved and repositioned - This isn't just a visual move, the X,Y values of each 'bit' are recalculated for
the desired direction of movement and the painting is replaced with the 'bits' in their new positions.
Paintings can be cloned using {INSERT}
'Draw' Mode is switched off automatically when cloning, switching paintings, or Moving paintings around the canvas.
When draw mode is off, the cursor will write to the screen, but not the file- Allowing you to see it's position without
affecting the painting. Simply TAB / SPACE to refresh the painting
Autosaves current painting - quickselect with {TAB} or {SPACE} to switch paintings and view / resume
Draw On/Off key {END} to selectively apply the brush
Customisable self saving Palette. Store the current color in index 1~8 using {ENTER}.. Select custom index 1-8 using {HOME} key
Move brush with Arrow Keys
18 Quickselect Color Palettes - {PAGE UP} or {PAGE DOWN} to scroll palettes, 1-8 to select a color in that Palette index
5 chill Background Music Tracks - use 't' 0-5 during painting to change track #
24 Bit Color, Selected by R G B values that can be independently adjusted using: R G B + -
Dynamic Display conveying current paint settings and all options
Single Press Maximisation / Reduction of Active Color Min:0 Max:9
5 Predefined Character Sets
2 stage selection of Character or Character Set by Index value
Single Press Color Inversion
Screen Size selection
Note: Script uses external .exe scripts. Download is Required for componentsBug Fix 23 June 2020 - Monitor.vbs Now supports Directories containing spaces
Painter.bat will be updated in the below code to reduce the need to download for minor revisions
Code: Select all
@REM:::::::::::::::::::::::::::: 24 Bit Batch Animation Studio by T3RRY ::::::::::::::::::::::::::::::::::
::: Download contains companion files required to run painter.bat This script is newest version :::
::: V3.0 07 July 2020 :::
::: Multiple Object Support added to Animate Mode. 'Insert' Key to select objects from an existing :::
::: project to add to the object to the layer group. 'Tab' Key to switch between layers. :::
::: V2.3 01 Jujy 2020 :::
::: Suite of features added for Animation creation: :::
::: - Painting and Canvas are now independent Objects. :::
::: - Single press cloning of current painting (Insert Key) :::
::: - *** Repositioning of Painting Coordinates **** ('P': 1 2 3 4 6 7 8 9 ) :::
::: Axis: SW S SE E W NW N NE :::
::: - As the painting is now an independent object, It can be 'Moved' to new coordinates :::
::: - The Axis positions for all 'bits' of the painting are recalculated and shifted :::
::: - Along the desired axis of movement - Horizontal, Vertical or Diagonal. :::
::: - *** Rotate (90 Degrees): 5. Mirror - Horizontal: M Vertical: F *** :::
::: - Cell Delete: 'K' Current cell position if present in file, Disables Draw Mode :::
::: - Refresh (Paint Studio): 'BackSpace'
::: Changed way paths of songs are set to allow users to replace with their own mp3 files :::
::: Supports up to 10 Custom Songs :::
::: V2.2 25 June 2020 :::
::: Implemented Autosave Custom Palette colors. :::
::: Images can be scrolled sing [Tab <<] or [Space >>] :::
::: Added Draw On/Off switch [End] to reposition cursor without modifying screen content :::
::: V2.1 23 June 2020 :::
::: monitor.vbs path quoting corrected to support directories with spaces :::
::: V2.0 22 June 2020 :::
::: Paintings now autosaved in indexed form and can be reloaded and resumed with Tab / Space :::
::: Primary input now uses GetKey.Exe :::
::: Canvas Background changed to white :::
::: Palette expansion. 18 color palettes selectable with spacebar :::
::: Removed forced cursor size by adjusting lines and columns calculation to compenstate for :::
::: Cursor size :::
::: V1.1 21 Sound Tracks may now be changed with 't' Key :::
::: 20 June 2020 :::
::: - Painter Program Adapted from my Matrix Scipt. :::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@Echo Off & CD "%~dp0"
CHCP 65001 >nul & REM Used for menu border characters
Set "ProgName=Painter by T3RRY"
::: - Hide Cursor
(For /F "Delims=" %%C in ('dir BG.exe /B /S') Do (Set "MOVECURSOR=%%C mouse" & "%%C" Cursor 0)) 2> Nul
(For /F "Delims=" %%C in ('dir GetKey.exe /B /S') Do (Set "GetKey="%%C" /n")) 2> Nul
(For /F "Delims=" %%C in ('dir GetKey.exe /B /S') Do (Set GetString="%%C")) 2> Nul
::: { Variable used in calling this script from the Self created resizing Batch.
Set "ThisFile=%~F0"
::: }
::: { Get screen Dimensions
For /f "delims=" %%# in ('"wmic path Win32_VideoController get CurrentHorizontalResolution,CurrentVerticalResolution /format:value"') do (
Set "%%#">nul
)
::: - Calculate scale Factor in effect. Registry value requires restart to update if scale has changed.
For /F "Tokens=3 Delims= " %%A in ('REG QUERY "HKCU\Control Panel\Desktop\WindowMetrics" /V AppliedDPI') Do Set /A SF=%%A / 100 + 1
::: Use the below to confirm values of screen resolution and scaling factor if screen is is not correctly centered
rem (For %%A ib (Current SF) Do Set %%A) & Pause
::: - Get Font Size
(For /F "Delims=" %%S in ('dir GetFontSize.exe /B /S') Do "%%S") 2> Nul
Set /A "Font.H=%errorlevel% >> 16, Font.W=%errorlevel% & 0xFF"
Set /A FH.Comp=4,FW.Comp=0
For /L %%# in (%Font.H%,1,16) Do Set /A FH.Comp+=1
For /L %%# in (%Font.W%,1,8) Do Set /A FW.Comp+=3
Set /A Max.Width= ( CurrentHorizontalResolution / ( Font.W * SF ) ) + FW.Comp
Set /A Max.hieght= ( ( CurrentVerticalResolution / Font.H ) / SF ) - FH.Comp
::: }
::: { Creates variable /AE = Ascii-27 escape code.
::: - http://www.dostips.com/forum/viewtopic.php?t=1733
::: - https://stackoverflow.com/a/34923514/12343998
::: - /AE (Alt 146) can be used with and without DelayedExpansion.
Setlocal
For /F "tokens=2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
Endlocal
Set "/AE=%%a"
)
::: }
::: { Set environment state for Macro Definitions
Setlocal DisableDelayedExpansion
(Set \n=^^^
%= Macro Definition Variable. Do Not Modify =%
)
::: { String length Macro %@strLen% <ResultVar> <"String">
Set @strLen=for /L %%n in (1 1 2) do if %%n==2 (%\n%
For /F "tokens=1,* delims={}" %%G in ("!argv!") do (%\n%
Set tmpLen=%%~H%\n%
Set result=%%G%\n%
Set LenTrim=Start%\n%
For /L %%a in (1,1,250) Do (%\n%
IF NOT "!LenTrim!"=="" (%\n%
Set LenTrim=!tmpLen:~0,-%%a!%\n%
If "!LenTrim!"=="" (%\n%
Set !result!=%%a%\n%
IF "Min.Text"=="" Set "Min.Text=%%a"%\n%
IF Not "Min.Text"=="" If Not %%a LSS !Min.Text! Set "Min.Text=%%a"%\n%
)%\n%
)%\n%
) %\n%
) %\n%
) ELSE set argv=
::: } Used to get length of menu options and calculate position needed to centre the string Horizontally
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Input / Color output Macros
::: { %MSG|% <"Your Message Value"> <%@Con%> <Y#;X#> <ColorName>
Set "MSG|=Set Args-In="
::: }
::: { <%MSG|%> <"Your Message Value"> %@CON% <Y#;X#> <ColorName>
Set @Con=^&for /L %%n in (1 1 2) do if %%n==2 (%\n%
For /F "tokens=1,2 delims=, " %%G in ("!argv!") do (%\n%
For %%O in (!Args-In!) do Echo(%/AE%[%%GH%/AE%[K!%%H!%%~O!Off!^&^&Endlocal%\n%
) %\n%
) ELSE setlocal enableDelayedExpansion ^& set argv=,
::: } Used to output Literal strings at target coordinates in specified Color
::: { %PAINT%{!Key!}
::: - Evaluate Keypress and enact appropriate option
Set PAINT=for /L %%n in (1 1 2) do if %%n==2 (%\n%
For /F "tokens=1 delims={}" %%G in ("!argv!") do (%\n%
IF /I "%%G"=="up" IF Not "!POS.Y!"=="1" Set /A Pos.Y-=1 ^> Nul%\n%
IF /I "%%G"=="down" IF Not "!POS.Y!"=="!H.Max!" Set /A Pos.Y+=1 ^> Nul%\n%
IF /I "%%G"=="left" IF Not "!POS.X!"=="1" Set /A Pos.X-=1 ^> Nul%\n%
IF /I "%%G"=="right" IF Not "!POS.X!"=="!W.Max!" Set /A Pos.X+=1 ^> Nul%\n%
IF /I "%%G"=="End" (IF "!Draw!"=="1" (Set "Draw=0") Else (Set "Draw=1"))%\n%
IF /I "%%G"=="r" Set "Key=" ^& Set PosCol=RR%\n%
IF /I "%%G"=="g" Set "Key=" ^& Set PosCol=GG%\n%
IF /I "%%G"=="b" Set "Key=" ^& Set PosCol=BB%\n%
IF /I "%%G"=="k" Set "Draw=0" ^& Call :DelCell%\n%
IF /I "%%G"=="w" Set /A "RR=255,GG=255,BB=255" ^> Nul%\n%
IF /I "%%G"=="PageUp" (%\n%
Set "Key="%\n%
Set /A "Pal#+=1" ^> Nul%\n%
IF !Pal#! GTR !Palettes! Set "Pal#=1"%\n%
For %%p in (!Pal#!) Do Call "!PalPATH:Pal#=%%p!"%\n%
)%\n%
IF /I "%%G"=="PageDown" (%\n%
Set "Key="%\n%
Set /A "Pal#-=1" ^> Nul%\n%
IF !Pal#! LEQ 0 Set "Pal#=!Palettes!"%\n%
For %%o in (!Pal#!) Do Call "!PalPATH:Pal#=%%o!"%\n%
)%\n%
IF "%%G"=="*" (CLS ^& Goto :Paint)%\n%
IF /I "%%G"=="i" If "!II!" == "38" (Set II=48) Else (Set II=38)%\n%
IF /I "%%G"=="p" Set "Draw=0" ^& CALL "!Animate!" "/D" "Painting[!Load#!]"%\n%
IF /I "%%G"=="t" Set "Key=" ^& TITLE %ProgName% Select Track [!TrackOPTS!] ^& For /F "Delims=" %%a in ('choice /N /C:!TrackOPTS!') Do Call :ChangeTrack %%a%\n%
IF /I "%%G"=="c" TITLE %ProgName% Select Character [0 - 9] ^& For /F "Delims=" %%b in ('choice /N /C:0123456789') Do Set "CHAR=!CHARACTERSET:~%%b,1!"%\n%
IF /I "%%G"=="x" Set "Key=" ^& TITLE %ProgName% Select Character Set [!CHARSETSMIN! - !CHARSETSMAX!] ^& For /F "Delims=" %%c in ('choice /N /C:!CHAROPTS!') Do Set "CHARACTERSET=!CHARACTERSET%%c!"%\n%
IF /I "%%G"=="plus" For %%? in (!PosCol!) Do If Not !%%?! GEQ 250 Set /A %%?+=5 ^> Nul%\n%
IF /I "%%G"=="minus" For %%# in (!PosCol!) Do If Not !%%#! LEQ 5 Set /A %%#-=5 ^> Nul%\n%
For /L %%d in (1,1,8) Do If "%%G"=="%%d" For %%v in (!Pal#!) Do !PalCol[%%v][%%d]! ^> Nul%\n%
IF /I "%%G"=="Tab" Call :Load %%G%\n%
IF /I "%%G"=="Space" Call :Load %%G%\n%
IF /I "%%G"=="BackSpace" Call :Load%\n%
IF /I "%%G"=="Insert" ((For %%f in (!Load#!) Do For %%P in ("!Painting[%%f]!") Do For /F "Tokens=2 Delims=_" %%N in ("%%~nP") Do For %%. in (!Copy#!) Do ( COPY "!Painting[%%f]!" /A "!Painting[%%f]:%%N=%%.!" /A ^> Nul 2^>Nul ) ) ^&^& Call :GetPaintFN ^& Set /A Copy#=!FN#!+1 ^> Nul ^& Call :Load)%\n%
IF "%%G"=="0" Set "!PosCol!=0"%\n%
IF /I "%%G"=="Home" TITLE %ProgName% Select Index [1 - 8] ^& For /F "Delims=" %%h in ('choice /N /C:12345678') Do !PalCol[0][%%h]! ^> Nul%\n%
IF /I "%%G"=="Enter" Set "CpalMod=1" ^& TITLE %ProgName% Store Index [1 - 8] ^& For /F "Delims=" %%i in ('choice /N /C:12345678') Do Set "PalCol[0][%%i]=Set /A RR=!RR!,GG=!GG!,BB=!BB!"%\n%
IF "%%G"=="9" Set "!PosCol!=255"%\n%
IF /I "%%G"=="ESC" Exit%\n%
) %\n%
) ELSE set argv=
::: } Used to output substrings at target coordinates usings Substring Modification
::: { ** End Macro Definitions ** }
::: { Identify when the program has been called by the resizing batch it creates and goes to label passed by call
If Not "%~3"=="" (
Set "Console_Hieght=%~1"
Set "Console_Width=%~2"
Set "ThisFile=%~4"
Goto :%~3
) Else (Goto :main)
::: }
::: ***************************************** Subroutines ******************************************
:GetPaintFN <Parameter used to differentiate between initialization and count adjustment for copying paintings>
:::{ Create / update array of painting paths
Set "Paintings=%CMP%\Paintings"
If not Exist "%Paintings%" MD "%Paintings%"
Set Paint#=0
PUSHD "%Paintings%"
(For /F "Delims=" %%A in ('dir /b !ProjectName!*.sav /O:N') Do (
Set "Painting[!Paint#!]=%Paintings%\%%A"
Set /A Paint#+=1
)
) >Nul 2> Nul
Set /A "Load#=Paint#,FN#=Paint#"
:GetPaintFN# <ensure unique filename>
If Exist "%Paintings%\!ProjectName!_!FN#!.sav" (Set /A FN#+=1 & Goto :GetPaintFN#)
Set "Painting[!Paint#!]=%Paintings%\!ProjectName!_!FN#!.sav"
POPD
If "%~1"=="" Set /A "Load#-=1,Paint#-=1,FN#-=1"
::: }
Exit /B
:Project
Set StrLen=0
TITLE Enter Project Name:
Call :GetName
Exit /B
:GetName
%GetString%
For %%F in (!Errorlevel!) Do (
If /I "!%%F!"=="Enter" Exit /B
If /I Not "!%%F!"=="BackSpace" (
Set /A StrLen+=1
If Not "!%%F!"=="" (Set "ProjectName=!ProjectName!!%%F!")
Set "ProjectName=!ProjectName:Space=-!"
Set "ProjectName=!ProjectName:_=-!"
) Else (
Set /A StrLen-=1
For %%L in (!StrLen!) Do Set "ProjectName=!ProjectName:~0,%%L!
)
)
TITLE Enter Project Name: !ProjectName!
Goto :GetName
::: { Subroutine to process output of wmic command into usable variables for screen dimensions (resolution)
:ChangeConsole <Lines> <Columns> <Label to Resume From> <If a 4th parameter is Defined, Aligns screen at top left>
::: - Calculation of X axis relative to screen resolution and console size. Resolution scales to Max Columns.
Set /A XresScale= CurrentHorizontalResolution / Max.Width
Set /A HorzCentre= CurrentHorizontalResolution / 2
Set /A CentreX= HorzCentre - ( ( %~2 * XresScale ) / 2 )
::: - Calculation of Y axis relative to screen resolution and console size. Resolution scales to Max Lines.
Set /A YresScale= CurrentVerticalResolution / Max.hieght
Set /A VertCentre= CurrentVerticalResolution / 2
Set /A CentreY= VertCentre - ( ( %~1 * YresScale ) / 2 )
::: - Optional 4th parameter can be used to align console at top left of screen instead of screen centre
If Not "%~4"=="" (Set /A CentreY=0,CentreX=-8)
::: - Creates a batch file to reopen the main script using Call with parameters to define properties for console change and the label to resume from.
>"%TEMP%\paintMH.sav" ECHO/%~1
>"%TEMP%\paintMW.sav" ECHO/%~2
(
Echo.@Mode Con: lines=%~1 cols=%~2
Echo.@Title %ProgName%
Echo.@Call "%ThisFile%" "%~1" "%~2" "%~3" "%ThisFile%"
)>"%temp%\ChangeConsole.bat"
::: - .Vbs script creation
(
Echo.Set objWMIService = GetObject^("winmgmts:\\.\root\cimv2"^)
Echo.Set objConfig = objWMIService.Get^("Win32_ProcessStartup"^)
Echo.objConfig.SpawnInstance_
Echo.objConfig.X = %CentreX%
Echo.objConfig.Y = %CentreY%
Echo.Set objNewProcess = objWMIService.Get^("Win32_Process"^)
Echo.intReturn = objNewProcess.Create^("%temp%\ChangeConsole.bat", Null, objConfig, intProcessID^)
)>"%temp%\Consolepos.vbs"
::: - .Vbs Starts the companion batch script to Change Console properties, ends the parent.
Start "" "%temp%\Consolepos.vbs" & Exit
::: }
::: { creates a companion batch file thats called with arguments for trackpath, volume and loop tf values
:Sound.Components
(
Echo.@ECHO OFF
Echo.Set "MusicPath=%%~1"
ECHO.IF Not Exist "%%MusicPath%%" Goto :Eof
Echo.Set "vol=%%~2"
Echo.Set "Loop_TF=%%~3"
::: - Change to the Directory you want to create the Music Launcher in.
Echo.PUSHD "%%Sounds%%"
::: - Ensure no Conflict with the Previous Script.
Echo.IF exist PlayMusic.vbs ^(
Echo.DEL PlayMusic.vbs
Echo.^)
::: - Creates a vbs Script to Launch the music (Occurs without any visual indication or prompting)
Echo.^( echo Set Sound = CreateObject^("WMPlayer.OCX.7"^^^)
Echo.echo Sound.URL = "%%MusicPath%%"
Echo.echo Sound.settings.volume = %%vol%%
Echo.echo Sound.settings.setMode "loop", %%Loop_TF%%
Echo.echo Sound.Controls.play
Echo.echo While Sound.playState ^^^<^^^> 1
Echo.echo WScript.Sleep 1000
Echo.echo Wend
Echo.^)^>PlayMusic.vbs
Echo.start /min PlayMusic.vbs
::: - Return to the Previous Directory
Echo.POPD
::: - Exit the Launcher and return to Previous batch program.
Echo.Goto :EOF
)>"%Player%"
::: { Monitor checks process status of cmd.exe every 1500 ms and calls StopMusic batch file to taskill all vbs scripts when
::: - cmd.exe process count is 0. Delay is to reduce CPU usage of the WMI service
(
ECHO Set objWMIService = GetObject ("winmgmts:"^)
ECHO Set proc = objWMIService.ExecQuery("select * from Win32_Process Where Name='cmd.exe'"^)
ECHO DO while proc.count ^> 0
ECHO Set proc = objWMIService.ExecQuery("select * from Win32_Process Where Name='cmd.exe'"^)
ECHO if proc.count ^< 1 then exit do
ECHO wscript.sleep 250
ECHO loop
ECHO Set WshShell=createobject("wscript.shell"^)
ECHO WshShell.run """%MusicStopper%""", 0, true
)>"%Monitor%"
::: }
::: { Simple taskkill script to terminate vbs scripts on program exit
(
Echo.@ECHO OFF
Echo.taskkill /pid WScript.exe /f /t ^>nul
Echo.Goto :EOF
)>"%MusicStopper%"
Exit /B
::: }
:Size-T <Smallest Dimensions supported with Border>
Call :ChangeConsole %T.hieght% %T.Width% PaintMenu
:Size-S
Call :ChangeConsole %S.hieght% %S.Width% PaintMenu
:Size-M
Call :ChangeConsole %M.hieght% %M.Width% PaintMenu
:Size-L
Call :ChangeConsole %Max.hieght% %Max.Width% PaintMenu TL
:main
::: { Call Subroutine to Resize and Position the Console
Call :ChangeConsole %Max.hieght% %Max.Width% PaintMenu TL
::: }
:Load
CLS & Set Key=
Set Draw=0
If /I "%~1"=="Tab" ( If !Load#! EQU 0 (Set "Load#=!Paint#!") Else Set /A "Load#-=1" > Nul )
If /I "%~1"=="Space" ( If !Load#! EQU !Paint#! (Set "Load#=0") Else Set /A "Load#+=1" > Nul )
TYPE "%Paintings%\Canvas_!H.Max!.dat"
Echo/%/AE%[0;1H!Off!
TYPE "!Painting[%Load#%]!" || (CLS & Set Painting[%Load#% & Pause)
Exit /B
:ChangeTrack
CALL "%MusicStopper%"
CALL "%Player%" "!Track%1!" "%Vol%" "true"
Start "" "%monitor%"
Exit /B
:Animate
::: { Manipulate color and characters used for border.
Set /A aCI+=1
::: - Loop through the Character set using String Substitution to Isolate a given Character
IF "%Char%" EQU "%Border[i]%" (Set Char=0) Else (Set /A Char+=1)
::: - Loop through the Color Array
IF "%aCI%"=="%CI#%" Set "aCI=1"
::: - Preface the Output string with the current Color
FOR %%A in (!C#[%aCI%]!) do Set "ANIM=Echo.!%%A!"
::: - Build the Border box
For /L %%X in (!BorderLeft!,1,!BorderRight!) do Set "ANIM=!ANIM!%/AE%[!BorderTop!;%%XH!BorderSet:~%Char%,1!%/AE%[!BorderBase!;%%XH!BorderSet:~%Char%,1!"
For /L %%Y in (!BorderTop!,1,!BorderBase!) Do Set "ANIM=!ANIM!%/AE%[%%Y;!BorderLeft!H!BorderSet:~%Char%,1!%/AE%[%%Y;!BorderRight!H!BorderSet:~%Char%,1!"
::: - Output the border
%ANIM%
::: }
Exit /B
:DelCell
Set "Input=!Painting[%Load#%]!"
For %%A in ("!Input!") Do (
Set "RenFile=Ren NewAnim.sav %%~nxA"
PUSHD "%%~dpA"
)
(For /F "UsebackQ Delims=" %%A in ("!Input!") Do (
For /F "Tokens=2 Delims=[;" %%Y in ("%%A") Do For /F "Tokens=2 Delims=;H" %%X in ("%%A") Do (
Echo/"%%Y;%%XH" | findstr "!Pos.Y!;!Pos.X!H" > Nul || Echo/%%A
)
)
)>"NewAnim.sav"
Del /Q "!Input!"
%RenFile% || (Echo Rename error in Cell Delete. & Pause)
POPD
If Not "%~1"=="Paint" (
CLS
Type "%Paintings%\Canvas_!H.Max!.dat" || (Echo Canvas Load Error & Pause) & rem // Display Canvas
Type "!Input!"
)
Exit /B
::: ********************************************************* Display Elements ***********************************************************
:PaintMenu
::: { Assigns ANSI color code values to each color, then builds an Array containing those color values to be accessed using random number.
Setlocal EnableDelayedExpansion
Set /A Red=31,Yellow=33,Green=32,Blue=34,Purple=35,Cyan=36,White=37,Gray=90,Pink=91,Beige=93,Aqua=94,Magenta=95,Teal=96,Off=0,Black=38,CI#=0
For %%A in (Red,Yellow,Green,Blue,Off,Pink,Beige,Gray,Purple,Cyan,White,Aqua,Magenta,Teal,Black) do (
Set "%%A=%/AE%[!%%A!m"
Set /A "CI#+=1"
Set "C#[!CI#!]=%%A"
)
::: }
::: { Define character Set to be used. Can be Selected via paint menu
::: rem // CHoice limitation restricts number of character Sets to 10 (0-9)
::: CharacterSet[N] 0,6,7,8,9 available for definition
::: CHARSETS MIN and MAX (Valid Set Ranges) must to be updated to reflect any new Sets.
Set "CharacterSet= ░▒▓█▀▄■⌂¶"
Set "CharacterSet1= ░▒▓█▀▄■⌂¶"
Set "CharacterSet2=•◘○☼◙►◄▲▼▬"
Set "CharacterSet3=☺☻♥♦♣♠♫♂♀§"
Set "CharacterSet4=╣║╗╝╔╩╦╬═┼"
Set "CharacterSet5=./|\_-+#Hv"
Set /A CHARSETSMIN=1,CHARSETSMAX=5
Set CHAROPTS=
For /L %%N in (%CHARSETSMIN%,1,%CHARSETSMAX%) Do Set "CHAROPTS=!CHAROPTS!%%N"
%= UTF-8 Codepage 65001 - ALT + 7;9;664;719 •○ʘ¤ =%
Set "BorderSet=•○ʘ¤"
Set "Border[i]=3" & REM 1 less than number of Characters Due to use in Substring Offset
::: }
::: { Define Variables For mapping errorlevel to Key.
::: - Differs by Case
::: ** Numbers within the below ranges must not be assigned as other variable Names **
Set /A Keypos=47 & REM [48 - 57]
For %%A in (0 1 2 3 4 5 6 7 8 9) Do (
Set /A Keypos+=1
Set "!Keypos!=%%A"
)
Set /A Keypos=64 & REM [65 - 90]
For %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) Do (
Set /A Keypos+=1
Set "!Keypos!=%%A"
)
Set /A Keypos=96 & REM [97 - 122]
For %%A in (a b c d e f g h i j k l m n o p q r s t u v w x y z) Do (
Set /A Keypos+=1
Set "!Keypos!=%%A"
)
Set "-82=Insert"
Set "-80=Down"
Set "-72=Up"
Set "-75=Left"
Set "-79=End"
Set "-73=PageUp"
Set "-81=PageDown"
Set "-77=Right"
Set "8=backspace"
Set "32=space"
Set "13=enter"
Set "43=plus"
Set "42=*"
Set "45=minus"
Set "27=ESC"
Set "-71=Home"
Set "9=Tab"
::: }
::: { Define pathways and create subfolders used for self generated component files
::: - calls subroutines to create component files.
For %%A in ("%ThisFile%") Do Set "ProgDir=%%~dpA"
rem If not exist "%ProgDir%_Components" MD "%ProgDir%_Components"
If not exist "%ProgDir%_Components" (Echo/Components required. Download full program from dostips.com to continue & Pause & Exit /B 1)
Set "CMP=%ProgDir%_Components"
Set "PalDir=%CMP%\Palettes"
Set "Sounds=%CMP%\Sound"
Set "Animate=%CMP%\Paintings\Animate.bat"
Set "PalPATH=%PalDir%\Palette[Pal#].bat"
Set "Player=%Sounds%\BatchMusicPlayer.bat"
Set "MusicStopper=%Sounds%\StopMusic.bat"
Set "Monitor=%Sounds%\BatchMonitor.vbs"
Call :Sound.Components
::: }
::: { Initiate script to close vbs scripts on exit
Start "" "%monitor%"
::: }
::: { Define variables for songs
Set /A Vol=50,AVTracks=0
Set TrackOPTS=
PUSHD "%Sounds%" || (Echo/Sound Component Folder Missing. & Pause & Exit /B 1)
(For /F "Delims=" %%A in ('dir /b *.mp3 /O:N 2^> Nul') Do (
Set "TrackOPTS=!TrackOPTS!!AVTracks!"
Set "TRACK!AVTracks!=%%~dpnxA"
Set /A AVTracks+=1
)
) || (Echo/ Songs not found in %Sounds%. & Pause & Exit /B 1)
If %AVTracks% GTR 9 Set "AVTracks=9"& REM Choice index only supports options 0-9
POPD
CALL :ChangeTrack 0
rem CALL "%Player%" "%Track0%" "%Vol%" "true"
::: }
::: { Variables used to define and animate Border
Set /A BorderLeft=Console_Width / 3,BorderRight=(Console_Width / 3) * 2,BorderTop=5,BorderBase=Console_Hieght - 5,aCI=0,Char=0
::: }
::: { Calculate X Y Coordinates required to Centre Text Horizontally using String Length and Border Dimensions
::: Define number of menu options. Used to calculate even Line spacing.
Set /A TextHCentre=Console_Width / 2
%@StrLen%{Line[1]}{[B]egin Painting}
%@StrLen%{Line[2]}{[S]creen Size}
%@StrLen%{Line[3]}{------------------------------}
%@StrLen%{Line[4]}{Actions with [] braces require}
%@StrLen%{Line[5]}{a second selection to complete}
%@StrLen%{Line[6]}{Change Track [!TrackOPTS!]}
Set "Menu.Options=6"
::: - Calculate Spacing available for Lines of text relative to border size and number of menu options
Set /A TextSpace.H= ( BorderBase - BorderTop ) / ( Menu.Options + 1 )
Set /A TextSpace.W= ( BorderRight-BorderLeft ) - 2
::: - Determine Scaling to be used. Ensures border size scaled to the longest string in menu options.
Set /A Scale.Text.W= ( Min.Text * 3 ) + 5 ,Scale.Screen.W= ( Max.Width / 7 ) * 3
Set /A Scale.Text.H= ( Menu.Options * 3 ) + 1 ,Scale.Screen.H= ( Max.Hieght / 7 ) * 3
::: - Factor Screen Width using the greater scale of text space or screen size.
If %Scale.Screen.W% GTR %Scale.Text.W% Set /A T.Width= ( Max.Width / 7 ) * 3,S.Width= Max.Width / 2,M.Width= ( Max.Width / 3 ) * 2
If %Scale.Text.W% GEQ %Scale.Screen.W% Set /A T.Width= ( Min.Text * 3 ) + 5,S.Width= ( Min.Text * 4 ) + 5,M.Width= ( Min.Text * 5 ) + 5
::: - Factor Screen Hieght using the greater scale of text space or screen size.
If %Scale.Screen.H% GTR %Scale.Text.H% Set /A T.hieght= ( Max.Hieght / 7 ) * 3, S.hieght= Max.Hieght / 2, M.hieght= ( Max.Hieght / 3 ) * 2
If %Scale.Text.H% GEQ %Scale.Screen.H% Set /A T.hieght= ( Menu.Options * 3 ) + 1,S.hieght= ( Menu.Options * 4 ) ,M.hieght= ( Menu.Options * 6 ) + 2
::: - Final Calculation of X Y values needed to centre text horizontaly and space / centre lines vertically.
For /L %%P in (1,1,%Menu.Options%) Do Set /A Column[%%P]=TextHCentre - (Line[%%P] / 2) & Set /A Line[%%P]=BorderTop + (%%P * TextSpace.H)
::: }
::: - Psuedo-pipe Strings for display into @Con Macro at [ARG 1 calculated Y;X Position] in [ARG 2 Color]
::: %MSG|% <"Qouted String" - Accepts additional Color codes> %@Con% <%Line[n]%;%Column[n]%> <Color>
%MSG|% "[B]egin Painting" %@Con% %Line[1]%;%Column[1]% green
%MSG|% "[S]creen Size" %@Con% %Line[2]%;%Column[2]% magenta
%MSG|% "------------------------------" %@Con% %Line[3]%;%Column[3]% gray
%MSG|% "Actions!aqua! with [] braces require" %@Con% %Line[4]%;%Column[4]% yellow
%MSG|% "a second selection to complete" %@Con% %Line[5]%;%Column[5]% aqua
%MSG|% "Change Track [%yellow%!TrackOPTS!%Pink%]" %@Con% %Line[6]%;%Column[6]% pink
:MainMenu
Call :Animate
::: { manipulate variables for color and line position to animate the prompt, with the aid of a Loop and Choice Timeout with Default Switch.
For /F "Delims=" %%C in ('Choice /T 1 /N /C BS%TrackOPTS%A /D A') Do (
For /L %%# in (0,1,%AVTracks%) Do If "%%C" == "%%#" (
CALL "%MusicStopper%"
CALL "%Player%" "!Track%%#!" "%Vol%" "true"
Start "" "%monitor%"
Goto :MainMenu
)
Set "Selection=%%C"
IF /I "%%C"=="A" Goto :MainMenu
)
::: }
CLS
If /I "%Selection%" == "S" Goto :SetSize
Start "" "%monitor%"
Goto :Paint
:SetSize
%@StrLen%{Line[1]}{Screen_Size:}
%@StrLen%{Line[2]}{[T]iny}
%@StrLen%{Line[3]}{[S]mall}
%@StrLen%{Line[4]}{[M]edium}
%@StrLen%{Line[5]}{[L]arge}
Set "Menu.Options=5"
::: - Calculate Spacing available for Lines of text relative to border size and number of menu options
Set /A TextSpace.H= ( BorderBase - BorderTop ) / ( Menu.Options + 1 )
::: - Final Calculation of X Y values needed to centre text horizontaly and space / centre lines vertically.
For /L %%P in (1,1,%Menu.Options%) Do Set /A Column[%%P]=TextHCentre - (Line[%%P] / 2) & Set /A Line[%%P]=BorderTop + (%%P * TextSpace.H)
::: }
%MSG|%"Screen Size:"%@Con% %Line[1]%;%Column[1]% blue
%MSG|% "[T]iny" %@Con% %Line[2]%;%Column[2]% pink
%MSG|% "[S]mall" %@Con% %Line[3]%;%Column[3]% pink
%MSG|% "[M]edium" %@Con% %Line[4]%;%Column[4]% magenta
%MSG|% "[L]arge" %@Con% %Line[5]%;%Column[5]% purple
Set Selection=
:SizeMenu
Call :Animate
::: { manipulate variables for color and line position to animate the prompt, with the aid of a Loop and Choice Timeout with Default Switch.
For /F "Delims=" %%C in ('Choice /T 1 /N /C:TSMLN /D N') Do (Set "Selection=%%C" & IF /I "%%C"=="N" Goto :SizeMenu)
CALL "%MusicStopper%"
Goto :Size-%Selection%
::: }
::: ******************************************************* Script Break ***************************************************
:Paint & REM Initialize some more Variables and Screen prep
Call :Project
Call :GetPaintFN InitRequired
Set /A Copy#=FN#+1
<"%TEMP%\paintMH.sav" (
Set /P "H.Max="
)
<"%TEMP%\paintMW.sav" (
Set /P W.Max=
)
Set /A H.Max-=5
Set PalOPTS=
PUSHD "%PalDir%"
(For /F "Delims=" %%A in ('dir /b Palette[*.bat /O:N 2^> Nul') Do (Set /A Palettes+=1)) || (Echo/ Palettes not found in %CMP%. & Pause & Exit /B 1)
POPD
Set /A II=48,RR=140,GG=90,BB=90,Pos.Y=H.Max / 2,Pos.X=W.Max / 2,Info1=H.Max + 1,Info2=H.Max + 2,Info3=H.Max + 3,Pal#=1,Palettes-=1,Draw=1,LYR#=0
Set "Draw[0]=Off"
Set "Draw[1]=On"
Set "CHAR=!CHARACTERSET:~0,1!"
Set "PosCol=RR"
Break>"!Painting[%Load#%]!"
(For /L %%A in (1,1,!H.Max!) Do Echo/%/AE%[48;2;255;255;255m%/AE%[K%/AE%[0m)>"%Paintings%\Canvas_!H.Max!.dat"
Type "%Paintings%\Canvas_!H.Max!.dat"& rem // Display Canvas
Echo/%/AE%[0;1H!Off!
Call "!PalPATH:Pal#=0!"& rem // Load customizable Palette
Call "!PalPATH:Pal#=%Pal#%!"& rem // Load starting Palette
For %%F in (!Painting[%Load#%]!) Do (
Set "ProjectLayers={%%~nxF}"
Set "Layer[%LYR#%]=%%~nxF"
)
:PaintStuff
For %%P in ("!Painting[%Load#%]!") Do For /F "Tokens=2 Delims=_" %%N in ("%%~nP") Do (TITLE * %ProgName% * Painting FN#=%%N Pos: !Pos.Y!;!Pos.X! & Set "CFN#=%%N")
(For %%V In (0 !Pal#!) Do Set "Palette[%%V]=")& rem // variable refreshed and built into a string containing a colored index representing the current palette color options
If /I "!Key!"=="k" (Echo/%/AE%[!Pos.Y!;!Pos.X!H!red!%/AE%[7m !Off!) Else Echo/%/AE%[!Pos.Y!;!Pos.X!H%/AE%[!II!;2;!RR!;!GG!;!BB!m!CHAR!!Off!
rem // Ensure Character not written to file unintentionally, prevent duplicate cell positions to improve animation speed
If /I "!Draw[%Draw%]!"=="On" If Not "!Key!"=="" (
REM Call :DelCell Paint & REM Improves animation speed at the expense of Draw speed.
>>"!Painting[%Load#%]!" Echo/%/AE%[!Pos.Y!;!Pos.X!H%/AE%[!II!;2;!RR!;!GG!;!BB!m!CHAR!!Off!
)
If /I Not "!key!"=="k" Set Key=
Set "CpalMod="& rem // used to indicate a change has been made to custom palette and trigger save of the new palette.
For %%V in (0 !Pal#!) Do For /L %%# in (1,1,8) Do For /F "Tokens=3,5,7 Delims==," %%i in ('Set PALcol[%%V][%%#') Do (set "PAL[%%V][%%#]=%/AE%[!II!;2;%%i;%%j;%%km%%#")
For %%V in (0 !Pal#!) Do For /L %%# in (1,1,8) Do Set "Palette[%%V]=!Palette[%%V]!!PAL[%%V][%%#]!"
Echo/%/AE%[!Info1!;1H%/AE%[K Move: !yellow!◄ ▲ ▼ ►!Off! Select Color:!PosCol! !red!R!Off!:!RR! !green!G!Off!:!GG! !blue!B!Off!:!BB! !Yellow!0!Off!/!Yellow!9!Off! Palette:{!yellow!▲PAGE▼!Off!} !Palette[%Pal#%]!!Off! {Shift FG:!Yellow!P!Off! [!Aqua!1!Off!-!Aqua!4!Off!,!Aqua!6!Off!-!Aqua!9!Off!]}
Echo/%/AE%[!Info2!;1H%/AE%[K Change Symbol: {!yellow!C!Off!:%/AE%[!II!;2;!RR!;!GG!;!BB!m!CHAR!!Off! [!Aqua!0-9!Off!]} Symbol Set: {!yellow!X!Off! [!Aqua!!CHARSETSMIN!-!CHARSETSMAX!!Off!]} %/AE%[!II!;2;!RR!;!GG!;!BB!m!CharacterSet!!Off! Edit Palette {Pick:!yellow!HOME!Off! !Palette[0]!!Off! Save:!yellow!ENTER!Off!}
Echo/%/AE%[!Info3!;1H%/AE%[K Invert Color: !yellow!I!Off!:!II! Change Color Intensity: !yellow!+!Off!/!yellow!-!Off! !red!Exit:!yellow!ESC!Off! {!green!^<^<!yellow!Tab!Off! Image:!Aqua!!CFN#! !yellow!Space!green!^>^>!Off!} Copy:!yellow!Insert!Off! {Draw:!Yellow!End!Aqua! !Draw[%Draw%]!!Off!}
%GetKey%
For %%E in (!Errorlevel!) Do Set "Key=!%%E!"
IF Not "!Key!" == "" %PAINT%{!Key!}
IF Not "!Key!" == "" If "!CpalMod!" == "1" (
(For /F "Delims=" %%V in ('Set PalCol[0][') Do Echo/Set %%V)>"%PalDir%\Palette[0].bat"
>>"%PalDir%\Palette[0].bat" Echo/Exit /B
)
Goto :PaintStuff
