Piano-FX-Studio.bat

Setlocal enabledelayedexpansion
cd "%~dp0"
CHCP 65001 >nul
title Piano FX Studio v3.05
color 0f
echo off
for /l %%a in (3 1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=
goto Setup
:MAIN
ECHO.[?25l
ECHO.                                                                                
ECHO.       ╔════════════════════════════════════════════════════════════════╗       
ECHO.       ║                   ┌────────────────────────┐                   ║       
ECHO.       ║ »»»»»»»»»»»»»»»»» │ Piano-FX Studio v3.05  │ ««««««««««««««««« ║       
ECHO.       ║                   │ Made by: Happy_mimimix │                   ║       
ECHO.       ║                   └────────────────────────┘                   ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ║                                                                ║       
ECHO.       ╚════════════════════════════════════════════════════════════════╝       
ECHO.                                                                                
exit /b
:Setup
call :MAIN
ECHO|set/p=┌───────────┐ ┌─────────────┐ ┌───────────┐
ECHO|set/p=│ (1) Setup │ │ (2) Animate │ │ (3) Color │
ECHO|set/p=╧═══════════╧═╧═════════════╧═╧═══════════╧
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Install Black MIDI templates for FL Studio 12.3       
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Download Cheat Engine from official website           
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Run Piano-FX GDI Overlay                              
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Run Piano-FX Pro v3.05                                
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
CHOICE /C 23abcd /N >nul
if "%errorlevel%" equ "1" (goto Animate)
if "%errorlevel%" equ "2" (goto Color)
if "%errorlevel%" equ "3" (call :SA & goto Setup)
if "%errorlevel%" equ "4" (call :SB & goto Setup)
if "%errorlevel%" equ "5" (call :SC & goto Setup)
if "%errorlevel%" equ "6" (call :SD & goto Setup)
:Animate
call :MAIN
ECHO|set/p=┌───────────┐ ┌─────────────┐ ┌───────────┐
ECHO|set/p=│ (1) Setup │ │ (2) Animate │ │ (3) Color │
ECHO|set/p=╧═══════════╧═╧═════════════╧═╧═══════════╧
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Copy lua script template to clipboard                 
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Generate animation code with fields                   
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Advanced visualize pitch bend tricks tutorial         
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Cheat engine lua scripting tutorial                   
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
CHOICE /C 13abcd /N >nul
if "%errorlevel%" equ "1" (goto Setup)
if "%errorlevel%" equ "2" (goto Color)
if "%errorlevel%" equ "3" (call :AA & goto Animate)
if "%errorlevel%" equ "4" (call :AB & goto Animate)
if "%errorlevel%" equ "5" (call :AC & goto Animate)
if "%errorlevel%" equ "6" (call :AD & goto Animate)
:Color
call :MAIN
ECHO|set/p=┌───────────┐ ┌─────────────┐ ┌───────────┐
ECHO|set/p=│ (1) Setup │ │ (2) Animate │ │ (3) Color │
ECHO|set/p=╧═══════════╧═╧═════════════╧═╧═══════════╧
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Generate color events from lyrics                     
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Restore editable lyrics from color events             
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Make a gradient color effect                          
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Convert PFA config to color events                    
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
CHOICE /C 12abcd /N >nul
if "%errorlevel%" equ "1" (goto Setup)
if "%errorlevel%" equ "2" (goto Animate)
if "%errorlevel%" equ "3" (call :CA & goto Color)
if "%errorlevel%" equ "4" (call :CB & goto Color)
if "%errorlevel%" equ "5" (call :CC & goto Color)
if "%errorlevel%" equ "6" (call :CD & goto Color)
:SA
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Install Black MIDI templates for FL Studio 12.3       
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
ECHO|set/p=╔════════════════════════════════════════════════════════════════════════╗
ECHO|set/p=║ Fl Studio installation DIR:                                            ║
ECHO|set/p=║                                                                        ║
ECHO|set/p=║                                                                        ║
ECHO|set/p=║                                                                        ║
ECHO|set/p=╚════════════════════════════════════════════════════════════════════════╝
set /P flpath=[?25h
POWERSHELL -Command "Expand-Archive -Path "^""%~dp0FlTemplates.zip"^"" -DestinationPath "^""%flpath%\Data\Projects\Templates"^"" -Force"
exit /b
:SB
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Download Cheat Engine from official website           
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
explorer http://www.cheatengine.org/
exit /b
:SC
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Run Piano-FX GDI Overlay                              
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
start "" "%~dp0Piano-FX-GDI-Overlay.exe"
exit /b
:SD
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Run Piano FX Pro v3.05                                
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
start "" "%~dp0Piano-FX-Pro.exe"
exit /b
:AA
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Copy lua script template to clipboard                 
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
ECHO.-- Definitions: (DO NOT CHANGE^^^!) >"%~dp0x"
ECHO.openProcess(^"Piano-FX-Pro.exe^") >>"%~dp0x"
ECHO.Microseconds=^"Piano-FX-Pro.exe+99A6B0^" >>"%~dp0x"
ECHO.Ticks=^"Piano-FX-Pro.exe+99A754^" >>"%~dp0x"
ECHO.Resolution=^"Piano-FX-Pro.exe+996318^" >>"%~dp0x"
ECHO.Volume=^"Piano-FX-Pro.exe+99A568^" >>"%~dp0x"
ECHO.Mute=^"Piano-FX-Pro.exe+99A556^" >>"%~dp0x"
ECHO.PlaybackSpeed=^"Piano-FX-Pro.exe+99A558^" >>"%~dp0x"
ECHO.NoteSpeed=^"Piano-FX-Pro.exe+99A560^" >>"%~dp0x"
ECHO.OffsetX=^"Piano-FX-Pro.exe+99A580^" >>"%~dp0x"
ECHO.OffsetY=^"Piano-FX-Pro.exe+99A584^" >>"%~dp0x"
ECHO.Zoom=^"Piano-FX-Pro.exe+99A588^" >>"%~dp0x"
ECHO.StartKey=^"Piano-FX-Pro.exe+99A484^" >>"%~dp0x"
ECHO.EndKey=^"Piano-FX-Pro.exe+99A488^" >>"%~dp0x"
ECHO.KeyMode=^"Piano-FX-Pro.exe+99A480^" >>"%~dp0x"
ECHO.Width=^"Piano-FX-Pro.exe+996310^" >>"%~dp0x"
ECHO.Height=^"Piano-FX-Pro.exe+996314^" >>"%~dp0x"
ECHO.Paused=^"Piano-FX-Pro.exe+99A555^" >>"%~dp0x"
ECHO.Keyboard=^"Piano-FX-Pro.exe+99A579^" >>"%~dp0x"
ECHO.VisualizePitchBends=^"Piano-FX-Pro.exe+99A5D8^" >>"%~dp0x"
ECHO.PhigrosMode=^"Piano-FX-Pro.exe+99A5B0^" >>"%~dp0x"
ECHO.ShowMarkers=^"Piano-FX-Pro.exe+99A5A9^" >>"%~dp0x"
ECHO.TickBased=^"Piano-FX-Pro.exe+99A5A8^" >>"%~dp0x"
ECHO.DisableUI=^"Piano-FX-Pro.exe+99A602^" >>"%~dp0x"
ECHO.LimitFPS=^"Piano-FX-Pro.exe+99A529^" >>"%~dp0x"
ECHO.Caption=^"Piano-FX-Pro.exe+996320^" >>"%~dp0x"
ECHO.MS=1e+3 >>"%~dp0x"
ECHO.S=1e+6 >>"%~dp0x"
ECHO.LastUpdate=os.time()*S+os.clock()*S >>"%~dp0x"
ECHO.EXE=executeCodeLocalEx >>"%~dp0x"
ECHO.hPFX=EXE(^"FindWindowA^",^"PFX^",0) >>"%~dp0x"
ECHO.hGFX=EXE(^"FindWindowExA^",hPFX,0,^"PFXGFX^",0) >>"%~dp0x"
ECHO.hGDI=EXE(^"FindWindowA^",^"PFXGDI^",0) >>"%~dp0x"
ECHO.PFXdc=EXE(^"GetDC^",hGFX) >>"%~dp0x"
ECHO.GDIdc=EXE(^"GetDC^",hGDI) >>"%~dp0x"
ECHO.SRCCOPY=0x00CC0020 >>"%~dp0x"
ECHO.SRCPAINT=0x00EE0086 >>"%~dp0x"
ECHO.SRCAND=0x008800C6 >>"%~dp0x"
ECHO.SRCINVERT=0x00660046 >>"%~dp0x"
ECHO.SRCERASE=0x00440328 >>"%~dp0x"
ECHO.NOTSRCCOPY=0x00330008 >>"%~dp0x"
ECHO.NOTSRCERASE=0x001100A6 >>"%~dp0x"
ECHO.MERGECOPY=0x00C000CA >>"%~dp0x"
ECHO.MERGEPAINT=0x00BB0226 >>"%~dp0x"
ECHO.PATCOPY=0x00F00021 >>"%~dp0x"
ECHO.PATPAINT=0x00FB0A09 >>"%~dp0x"
ECHO.PATINVERT=0x005A0049 >>"%~dp0x"
ECHO.DSTINVERT=0x00550009 >>"%~dp0x"
ECHO.BLACKNESS=0x00000042 >>"%~dp0x"
ECHO.WHITENESS=0x00FF0062 >>"%~dp0x"
ECHO.BS_SOLID=0 >>"%~dp0x"
ECHO.BS_NULL=1 >>"%~dp0x"
ECHO.BS_HOLLOW=BS_NULL >>"%~dp0x"
ECHO.BS_HATCHED=2 >>"%~dp0x"
ECHO.BS_PATTERN=3 >>"%~dp0x"
ECHO.BS_INDEXED=4 >>"%~dp0x"
ECHO.BS_DIBPATTERN=5 >>"%~dp0x"
ECHO.BS_DIBPATTERNPT=6 >>"%~dp0x"
ECHO.BS_PATTERN8X8=7 >>"%~dp0x"
ECHO.BS_DIBPATTERN8X8=8 >>"%~dp0x"
ECHO.BS_MONOPATTERN=9 >>"%~dp0x"
ECHO.HS_HORIZONTAL=0 >>"%~dp0x"
ECHO.HS_VERTICAL=1 >>"%~dp0x"
ECHO.HS_FDIAGONAL=2 >>"%~dp0x"
ECHO.HS_BDIAGONAL=3 >>"%~dp0x"
ECHO.HS_CROSS=4 >>"%~dp0x"
ECHO.HS_DIAGCROSS=5 >>"%~dp0x"
ECHO.HS_API_MAX=12 >>"%~dp0x"
ECHO.PS_SOLID=0 >>"%~dp0x"
ECHO.PS_DASH=1 >>"%~dp0x"
ECHO.PS_DOT=2 >>"%~dp0x"
ECHO.PS_DASHDOT=3 >>"%~dp0x"
ECHO.PS_DASHDOTDOT=4 >>"%~dp0x"
ECHO.PS_NULL=5 >>"%~dp0x"
ECHO.PS_INSIDEFRAME=6 >>"%~dp0x"
ECHO.PS_USERSTYLE=7 >>"%~dp0x"
ECHO.PS_ALTERNATE=8 >>"%~dp0x"
ECHO.PS_STYLE_MASK=0x0000000F >>"%~dp0x"
ECHO.PS_ENDCAP_ROUND=0x00000000 >>"%~dp0x"
ECHO.PS_ENDCAP_SQUARE=0x00000100 >>"%~dp0x"
ECHO.PS_ENDCAP_FLAT=0x00000200 >>"%~dp0x"
ECHO.PS_ENDCAP_MASK=0x00000F00 >>"%~dp0x"
ECHO.PS_JOIN_ROUND=0x00000000 >>"%~dp0x"
ECHO.PS_JOIN_BEVEL=0x00001000 >>"%~dp0x"
ECHO.PS_JOIN_MITER=0x00002000 >>"%~dp0x"
ECHO.PS_JOIN_MASK=0x0000F000 >>"%~dp0x"
ECHO.PS_COSMETIC=0x00000000 >>"%~dp0x"
ECHO.PS_GEOMETRIC=0x00010000 >>"%~dp0x"
ECHO.PS_TYPE_MASK=0x000F0000 >>"%~dp0x"
ECHO.ALIGN_LEFT=0x0100 >>"%~dp0x"
ECHO.ALIGN_CENTER=0x0200 >>"%~dp0x"
ECHO.ALIGN_RIGHT=0x0300 >>"%~dp0x"
ECHO.ALIGN_TOP=0x0001 >>"%~dp0x"
ECHO.ALIGN_MIDDLE=0x0002 >>"%~dp0x"
ECHO.ALIGN_BOTTOM=0x0003 >>"%~dp0x"
ECHO.WHITE_BRUSH=0 >>"%~dp0x"
ECHO.LTGRAY_BRUSH=1 >>"%~dp0x"
ECHO.GRAY_BRUSH=2 >>"%~dp0x"
ECHO.DKGRAY_BRUSH=3 >>"%~dp0x"
ECHO.BLACK_BRUSH=4 >>"%~dp0x"
ECHO.NULL_BRUSH=5 >>"%~dp0x"
ECHO.HOLLOW_BRUSH=NULL_BRUSH >>"%~dp0x"
ECHO.WHITE_PEN=6 >>"%~dp0x"
ECHO.BLACK_PEN=7 >>"%~dp0x"
ECHO.NULL_PEN=8 >>"%~dp0x"
ECHO.MEM=createMemoryStream() >>"%~dp0x"
ECHO.function GetMicroseconds() >>"%~dp0x"
ECHO.return readQword(Microseconds) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetTicks() >>"%~dp0x"
ECHO.return readInteger(Ticks,true) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetPPQ() >>"%~dp0x"
ECHO.return readInteger(Resolution) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetVolume() >>"%~dp0x"
ECHO.return readDouble(Volume) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetMute() >>"%~dp0x"
ECHO.return readByte(Mute) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetPlaybackSpeed() >>"%~dp0x"
ECHO.return readDouble(PlaybackSpeed) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetNoteSpeed() >>"%~dp0x"
ECHO.return readDouble(NoteSpeed) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetStartKey() >>"%~dp0x"
ECHO.return readInteger(StartKey) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetEndKey() >>"%~dp0x"
ECHO.return readInteger(EndKey) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetKeyMode() >>"%~dp0x"
ECHO.return readInteger(KeyMod) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetOffsetX() >>"%~dp0x"
ECHO.return readFloat(OffsetX) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetOffsetY() >>"%~dp0x"
ECHO.return readFloat(OffsetY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetZoom() >>"%~dp0x"
ECHO.return readFloat(Zoom) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetWidth() >>"%~dp0x"
ECHO.return readInteger(Width) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetHeight() >>"%~dp0x"
ECHO.return readInteger(Height) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetPaused() >>"%~dp0x"
ECHO.return readByte(Paused) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetKeyboard() >>"%~dp0x"
ECHO.return readByte(Keyboard) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetVisualizePitchBends() >>"%~dp0x"
ECHO.return readByte(VisualizePitchBends) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetPhigrosMode() >>"%~dp0x"
ECHO.return readByte(PhigrosMode) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetShowMarkers() >>"%~dp0x"
ECHO.return readByte(ShowMarkers) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetTickBased() >>"%~dp0x"
ECHO.return readByte(TickBased) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetDisableUI() >>"%~dp0x"
ECHO.return readByte(DisableUI) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetLimitFPS() >>"%~dp0x"
ECHO.return readByte(LimitFPS) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GetCaption() >>"%~dp0x"
ECHO.return readString(Caption) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetMicroseconds(VAL) >>"%~dp0x"
ECHO.writeQword(Microseconds,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetVolume(VAL) >>"%~dp0x"
ECHO.writeDouble(Volume,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetMute(VAL) >>"%~dp0x"
ECHO.writeByte(Mute,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetPlaybackSpeed(VAL) >>"%~dp0x"
ECHO.writeDouble(PlaybackSpeed,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetNoteSpeed(VAL) >>"%~dp0x"
ECHO.writeDouble(NoteSpeed,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetStartKey(VAL) >>"%~dp0x"
ECHO.writeInteger(StartKey,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetEndKey(VAL) >>"%~dp0x"
ECHO.writeInteger(EndKey,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetKeyMode(VAL) >>"%~dp0x"
ECHO.writeInteger(KeyMode,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetOffsetX(VAL) >>"%~dp0x"
ECHO.writeFloat(OffsetX,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetOffsetY(VAL) >>"%~dp0x"
ECHO.writeFloat(OffsetY,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetZoom(VAL) >>"%~dp0x"
ECHO.writeFloat(Zoom,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetWidth(VAL) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=16 >>"%~dp0x"
ECHO.EXE(^"GetWindowRect^",hPFX,MEM.Memory) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local Px=MEM.readDword() >>"%~dp0x"
ECHO.local Py=MEM.readDword() >>"%~dp0x"
ECHO.local Pw=MEM.readDword()-Px >>"%~dp0x"
ECHO.local Ph=MEM.readDword()-Py >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=16 >>"%~dp0x"
ECHO.EXE(^"GetWindowRect^",hGFX,MEM.Memory) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local Gx=MEM.readDword() >>"%~dp0x"
ECHO.local Gy=MEM.readDword() >>"%~dp0x"
ECHO.local Gw=MEM.readDword()-Gx >>"%~dp0x"
ECHO.local Gh=MEM.readDword()-Gy >>"%~dp0x"
ECHO.local Margin=Pw-Gw >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"SetWindowPos^",hPFX,-2,Px,Py,VAL+Margin,Ph,0) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetHeight(VAL) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=16 >>"%~dp0x"
ECHO.EXE(^"GetWindowRect^",hPFX,MEM.Memory) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local Px=MEM.readDword() >>"%~dp0x"
ECHO.local Py=MEM.readDword() >>"%~dp0x"
ECHO.local Pw=MEM.readDword()-Px >>"%~dp0x"
ECHO.local Ph=MEM.readDword()-Py >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=16 >>"%~dp0x"
ECHO.EXE(^"GetWindowRect^",hGFX,MEM.Memory) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local Gx=MEM.readDword() >>"%~dp0x"
ECHO.local Gy=MEM.readDword() >>"%~dp0x"
ECHO.local Gw=MEM.readDword()-Gx >>"%~dp0x"
ECHO.local Gh=MEM.readDword()-Gy >>"%~dp0x"
ECHO.local Margin=Ph-Gh >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"SetWindowPos^",hPFX,-2,Px,Py,Pw,VAL+Margin,0) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetPaused(VAL) >>"%~dp0x"
ECHO.writeByte(Paused,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetKeyboard(VAL) >>"%~dp0x"
ECHO.writeByte(Keyboard,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetVisualizePitchBends(VAL) >>"%~dp0x"
ECHO.writeByte(VisualizePitchBends,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetPhigrosMode(VAL) >>"%~dp0x"
ECHO.writeByte(PhigrosMode,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetShowMarkers(VAL) >>"%~dp0x"
ECHO.writeByte(ShowMarkers,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetTickBased(VAL) >>"%~dp0x"
ECHO.writeByte(TickBased,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetDisableUI(VAL) >>"%~dp0x"
ECHO.writeByte(DisableUI,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetLimitFPS(VAL) >>"%~dp0x"
ECHO.writeByte(LimitFPS,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SetCaption(VAL) >>"%~dp0x"
ECHO.writeByte(getAddress(Caption)+#VAL,0);writeString(Caption,VAL) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseLinear(x) >>"%~dp0x"
ECHO.return x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInSine(x) >>"%~dp0x"
ECHO.return 1-math.cos((x*math.pi)/2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutSine(x) >>"%~dp0x"
ECHO.return math.sin((x*math.pi)/2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutSine(x) >>"%~dp0x"
ECHO.return -(math.cos(math.pi*x)-1)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInQuad(x) >>"%~dp0x"
ECHO.return x*x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutQuad(x) >>"%~dp0x"
ECHO.return 1-(1-x)*(1-x) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutQuad(x) >>"%~dp0x"
ECHO.return x^<0.5 and 2*x*x or 1-math.pow(-2*x+2,2)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInCubic(x) >>"%~dp0x"
ECHO.return x*x*x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutCubic(x) >>"%~dp0x"
ECHO.return 1-math.pow(1-x,3) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutCubic(x) >>"%~dp0x"
ECHO.return x^<0.5 and 4*x*x*x or 1-math.pow(-2*x+2,3)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInQuart(x) >>"%~dp0x"
ECHO.return x*x*x*x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutQuart(x) >>"%~dp0x"
ECHO.return 1-math.pow(1-x,4) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutQuart(x) >>"%~dp0x"
ECHO.return x^<0.5 and 8*x*x*x*x or 1-math.pow(-2*x+2,4)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInQuint(x) >>"%~dp0x"
ECHO.return x*x*x*x*x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutQuint(x) >>"%~dp0x"
ECHO.return 1-math.pow(1-x,5) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutQuint(x) >>"%~dp0x"
ECHO.return x^<0.5 and 16*x*x*x*x*x or 1-math.pow(-2*x+2,5)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInExpo(x) >>"%~dp0x"
ECHO.return x == 0 and 0 or math.pow(2,10*x-10) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutExpo(x) >>"%~dp0x"
ECHO.return x == 1 and 1 or 1-math.pow(2,-10*x) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutExpo(x) >>"%~dp0x"
ECHO.return x == 0 and 0 or x == 1 and 1 or x^<0.5 and math.pow(2,20*x-10)/2 or (2-math.pow(2,-20*x+10))/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInCirc(x) >>"%~dp0x"
ECHO.return 1-math.sqrt(1-math.pow(x,2)) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutCirc(x) >>"%~dp0x"
ECHO.return math.sqrt(1-math.pow(x-1,2)) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutCirc(x) >>"%~dp0x"
ECHO.return x^<0.5 and (1-math.sqrt(1-math.pow(2*x,2)))/2 or (math.sqrt(1-math.pow(-2*x+2,2))+1)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInBack(x) >>"%~dp0x"
ECHO.local c1=1.70158 >>"%~dp0x"
ECHO.local c3=c1+1 >>"%~dp0x"
ECHO.return c3*x*x*x-c1*x*x >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutBack(x) >>"%~dp0x"
ECHO.local c1=1.70158 >>"%~dp0x"
ECHO.local c3=c1+1 >>"%~dp0x"
ECHO.return 1+c3*math.pow(x-1,3)+c1*math.pow(x-1,2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutBack(x) >>"%~dp0x"
ECHO.local c1=1.70158 >>"%~dp0x"
ECHO.local c2=c1*1.525 >>"%~dp0x"
ECHO.return x^<0.5 and (math.pow(2*x,2)*((c2+1)*2*x-c2))/2 or (math.pow(2*x-2,2)*((c2+1)*(x*2-2)+c2)+2)/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInElastic(x) >>"%~dp0x"
ECHO.local c4=(2*math.pi)/3 >>"%~dp0x"
ECHO.return x == 0 and 0 or x == 1 and 1 or -math.pow(2,10*x-10)*math.sin((x*10-10.75)*c4) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutElastic(x) >>"%~dp0x"
ECHO.local c4=(2*math.pi)/3 >>"%~dp0x"
ECHO.return x == 0 and 0 or x == 1 and 1 or math.pow(2,-10*x)*math.sin((x*10-0.75)*c4)+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutElastic(x) >>"%~dp0x"
ECHO.local c5=(2*math.pi)/4.5 >>"%~dp0x"
ECHO.return x == 0 and 0 or x == 1 and 1 or x^<0.5 and -(math.pow(2,20*x-10)*math.sin((20*x-11.125)*c5))/2 or (math.pow(2,-20*x+10)*math.sin((20*x-11.125)*c5))/2+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInBounce(x) >>"%~dp0x"
ECHO.return 1-EaseOutBounce(1-x) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseOutBounce(x) >>"%~dp0x"
ECHO.local n1=7.5625 >>"%~dp0x"
ECHO.local d1=2.75 >>"%~dp0x"
ECHO.if x^<1/d1 then >>"%~dp0x"
ECHO.return n1*x*x >>"%~dp0x"
ECHO.elseif x^<2/d1 then >>"%~dp0x"
ECHO.return n1*(x-1.5/d1)*(x-1.5/d1)+0.75 >>"%~dp0x"
ECHO.elseif x^<2.5/d1 then >>"%~dp0x"
ECHO.return n1*(x-2.25/d1)*(x-2.25/d1)+0.9375 >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.return n1*(x-2.625/d1)*(x-2.625/d1)+0.984375 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function EaseInOutBounce(x) >>"%~dp0x"
ECHO.return x^<0.5 and (1-EaseOutBounce(1-2*x))/2 or (1+EaseOutBounce(2*x-1))/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SmoothAnimationByTime(StartValue,EndValue,StartTime,EndTime,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.while (GetMicroseconds() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime))*(EndValue-StartValue)) >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(EndValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TargetAnimationByTime(GetValueFunction,TargetValue,StartTime,EndTime,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local StartValue=GetValueFunction() >>"%~dp0x"
ECHO.while (GetMicroseconds() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime))*(TargetValue-StartValue)) >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(TargetValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SlicedSmoothAnimationByTime(StartValue,EndValue,StartTime,EndTime,Spacing,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local SliceIndex=1 >>"%~dp0x"
ECHO.while (GetMicroseconds() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime))*(EndValue-StartValue)) >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime+Spacing*SliceIndex and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SliceIndex=SliceIndex+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(EndValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SlicedTargetAnimationByTime(GetValueFunction,TargetValue,StartTime,EndTime,Spacing,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local StartValue=GetValueFunction() >>"%~dp0x"
ECHO.local SliceIndex=1 >>"%~dp0x"
ECHO.while (GetMicroseconds() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime))*(TargetValue-StartValue)) >>"%~dp0x"
ECHO.while (GetMicroseconds()^<StartTime+Spacing*SliceIndex and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SliceIndex=SliceIndex+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(TargetValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function InstantaneousAnimationByTime(Value,Time,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetMicroseconds()^<Time and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(Value) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SmoothAnimationByTick(StartValue,EndValue,StartTime,EndTime,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.while (GetTicks() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetTicks()-StartTime)/(EndTime-StartTime))*(EndValue-StartValue)) >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(EndValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TargetAnimationByTick(GetValueFunction,TargetValue,StartTime,EndTime,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local StartValue=GetValueFunction() >>"%~dp0x"
ECHO.while (GetTicks() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetTicks()-StartTime)/(EndTime-StartTime))*(TargetValue-StartValue)) >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(TargetValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SlicedSmoothAnimationByTick(StartValue,EndValue,StartTime,EndTime,Spacing,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local SliceIndex=1 >>"%~dp0x"
ECHO.while (GetTicks() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetTicks()-StartTime)/(EndTime-StartTime))*(EndValue-StartValue)) >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime+Spacing*SliceIndex and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SliceIndex=SliceIndex+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(EndValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function SlicedTargetAnimationByTick(GetValueFunction,TargetValue,StartTime,EndTime,Spacing,EasingFunction,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local StartValue=GetValueFunction() >>"%~dp0x"
ECHO.local SliceIndex=1 >>"%~dp0x"
ECHO.while (GetTicks() ^<= EndTime and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.SetValueFunction(StartValue+EasingFunction((GetTicks()-StartTime)/(EndTime-StartTime))*(TargetValue-StartValue)) >>"%~dp0x"
ECHO.while (GetTicks()^<StartTime+Spacing*SliceIndex and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SliceIndex=SliceIndex+1 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(TargetValue) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function InstantaneousAnimationByTick(Value,Time,SetValueFunction) >>"%~dp0x"
ECHO.return coroutine.create(function() >>"%~dp0x"
ECHO.while (GetTicks()^<Time and GetTicks()^<TotalTicks) do >>"%~dp0x"
ECHO.coroutine.yield() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.SetValueFunction(Value) >>"%~dp0x"
ECHO.end) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function CenterX(Zoom) >>"%~dp0x"
ECHO.return (GetWidth()*(1-Zoom))/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function CenterY(Zoom) >>"%~dp0x"
ECHO.return -(GetHeight()*(1-Zoom))/2 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RunThreads(Threads) >>"%~dp0x"
ECHO.local Working=true >>"%~dp0x"
ECHO.while Working do >>"%~dp0x"
ECHO.Working=false >>"%~dp0x"
ECHO.for _,ThisThread in pairs(Threads) do >>"%~dp0x"
ECHO.if coroutine.status(ThisThread) ~= ^"dead^" then >>"%~dp0x"
ECHO.coroutine.resume(ThisThread) >>"%~dp0x"
ECHO.Working=true >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function UpdateShaderFPSDisplay() >>"%~dp0x"
ECHO.if DisplayShaderFPS then >>"%~dp0x"
ECHO.local FrameTime=(os.time()*S+os.clock()*S)-LastUpdate+1 >>"%~dp0x"
ECHO.local FPS=math.ceil((S/FrameTime)*100.0)/100.0 >>"%~dp0x"
ECHO.local Text=^"Shader FPS: ^"..FPS >>"%~dp0x"
ECHO.local Font=EXE(^"CreateFontA^", >>"%~dp0x"
ECHO.16,-- FontHeight >>"%~dp0x"
ECHO.0,-- FontWidth >>"%~dp0x"
ECHO.0,-- Escapement >>"%~dp0x"
ECHO.0,-- Orientation >>"%~dp0x"
ECHO.400,-- FontWeight >>"%~dp0x"
ECHO.0,-- Italic >>"%~dp0x"
ECHO.0,-- Underline >>"%~dp0x"
ECHO.0,-- StrikeOut >>"%~dp0x"
ECHO.1,-- CharSet >>"%~dp0x"
ECHO.0,-- OutPrecision >>"%~dp0x"
ECHO.0,-- ClipPrecision >>"%~dp0x"
ECHO.0,-- Quality >>"%~dp0x"
ECHO.0,-- PitchAndFamily >>"%~dp0x"
ECHO.^"Fixedsys^")-- FaceName >>"%~dp0x"
ECHO.EXE(^"SelectObject^",GDIdc,Font) >>"%~dp0x"
ECHO.EXE(^"SetBkMode^",GDIdc,1) >>"%~dp0x"
ECHO.EXE(^"SetTextColor^",GDIdc,0x000000) >>"%~dp0x"
ECHO.EXE(^"TextOutA^",GDIdc,16,16,Text,#Text) >>"%~dp0x"
ECHO.EXE(^"SetTextColor^",GDIdc,0xFFFFFF) >>"%~dp0x"
ECHO.EXE(^"TextOutA^",GDIdc,15,15,Text,#Text) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Font) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.LastUpdate=os.time()*S+os.clock()*S >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RunShaderByTime(StartTime,EndTime,ShaderFunction,...) >>"%~dp0x"
ECHO.local EffectParameters={...} >>"%~dp0x"
ECHO.if hGDI==0 then return end >>"%~dp0x"
ECHO.createThread(function() >>"%~dp0x"
ECHO.while GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks do end >>"%~dp0x"
ECHO.while GetMicroseconds()^<=EndTime and GetTicks()^<TotalTicks do >>"%~dp0x"
ECHO.ShaderFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime),table.unpack(EffectParameters)) >>"%~dp0x"
ECHO.UpdateShaderFPSDisplay() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end).resume() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RunShaderByTick(StartTime,EndTime,ShaderFunction,...) >>"%~dp0x"
ECHO.local EffectParameters={...} >>"%~dp0x"
ECHO.if hGDI==0 then return end >>"%~dp0x"
ECHO.createThread(function() >>"%~dp0x"
ECHO.while GetTicks()^<StartTime and GetTicks()^<TotalTicks do end >>"%~dp0x"
ECHO.while GetTicks()^<=EndTime and GetTicks()^<TotalTicks do >>"%~dp0x"
ECHO.ShaderFunction((GetTicks()-StartTime)/(EndTime-StartTime),table.unpack(EffectParameters)) >>"%~dp0x"
ECHO.UpdateShaderFPSDisplay() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end).resume() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RunShaderByTimeAndWait(StartTime,EndTime,ShaderFunction,...) >>"%~dp0x"
ECHO.local EffectParameters={...} >>"%~dp0x"
ECHO.if hGDI==0 then return end >>"%~dp0x"
ECHO.while GetMicroseconds()^<StartTime and GetTicks()^<TotalTicks do end >>"%~dp0x"
ECHO.while GetMicroseconds()^<=EndTime and GetTicks()^<TotalTicks do >>"%~dp0x"
ECHO.ShaderFunction((GetMicroseconds()-StartTime)/(EndTime-StartTime),table.unpack(EffectParameters)) >>"%~dp0x"
ECHO.UpdateShaderFPSDisplay() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RunShaderByTickAndWait(StartTime,EndTime,ShaderFunction,...) >>"%~dp0x"
ECHO.local EffectParameters={...} >>"%~dp0x"
ECHO.if hGDI==0 then return end >>"%~dp0x"
ECHO.while GetTicks()^<StartTime and GetTicks()^<TotalTicks do end >>"%~dp0x"
ECHO.while GetTicks()^<=EndTime and GetTicks()^<TotalTicks do >>"%~dp0x"
ECHO.ShaderFunction((GetTicks()-StartTime)/(EndTime-StartTime),table.unpack(EffectParameters)) >>"%~dp0x"
ECHO.UpdateShaderFPSDisplay() >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.-- Custom Definitions: (Version: x.xx) >>"%~dp0x"
ECHO.>>"%~dp0x"
ECHO.-- GDI Shaders: >>"%~dp0x"
ECHO.function PlainShader(t) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function DarkBlankShader(t) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",GDIdc,0,0,GetWidth(),GetHeight(),BLACKNESS) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function BrightBlankShader(t) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",GDIdc,0,0,GetWidth(),GetHeight(),WHITENESS) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function WaveShader(t,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,GetWidth(),MaxWaveHeight,PFXdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function WaveGlitchShader(t,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.if math.random(0,1)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,GetWidth(),MaxWaveHeight,PFXdc,0,i,SRCPAINT) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,GetWidth(),MaxWaveHeight,PFXdc,0,i,SRCAND) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function GlitchShader(t,MaxSectionWidth,MinSectionWidth,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxSectionWidth==nil then MaxSectionWidth=150 end >>"%~dp0x"
ECHO.if MinSectionWidth==nil then MinSectionWidth=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetWidth() do >>"%~dp0x"
ECHO.if math.random(0,1)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCPAINT) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCAND) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.i=i+math.random(MinSectionWidth,MaxSectionWidth) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function ColorBurnShader(t,R,G,B) >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function ColorOffsetShader(t,OffsettingAmount) >>"%~dp0x"
ECHO.if OffsettingAmount==nil then OffsettingAmount=20 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x00FFFF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFF00FF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFFFF00) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function ColorOffsetWaveShader(t,OffsettingAmount,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if OffsettingAmount==nil then OffsettingAmount=20 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=40 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x00FFFF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFF00FF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFFFF00) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc2,0,0,W,H,PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=H do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,PFXdc,0,i,SRCAND) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function BetterColorOffsetShader(t,OffsettingAmount) >>"%~dp0x"
ECHO.if OffsettingAmount==nil then OffsettingAmount=5 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc_R=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_R=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_G=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_G=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_B=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_B=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_Main=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_Main=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,BMP_R) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x0000FF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_R,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_R,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,BMP_G) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x00FF00) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_G,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_G,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,BMP_B) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFF0000) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_B,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_B,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_Main,BMP_Main) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc_R,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc_G,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)),W,H,MEMdc_B,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc_Main,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_R) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_R) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_G) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_G) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_B) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_B) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_Main) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_Main) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function BetterColorOffsetWaveShader(t,OffsettingAmount,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if OffsettingAmount==nil then OffsettingAmount=5 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=40 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc_R=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_R=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_G=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_G=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_B=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_B=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_Main=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_Main=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,BMP_R) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x0000FF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_R,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_R,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,BMP_G) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x00FF00) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_G,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_G,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,BMP_B) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFF0000) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_B,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_B,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_Main,BMP_Main) >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.local OffsetRX=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.local OffsetRY=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.local OffsetGX=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.local OffsetGY=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.local OffsetBX=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.local OffsetBY=math.random(-math.abs(OffsettingAmount),math.abs(OffsettingAmount)) >>"%~dp0x"
ECHO.while i^<=H do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc_R,OffsetRX,i+OffsetRY,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc_G,OffsetRX,i+OffsetRY,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc_B,OffsetRX,i+OffsetRY,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,i,W,MaxWaveHeight,MEMdc_Main,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_R) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_R) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_G) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_G) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_B) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_B) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_Main) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_Main) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function MEMZTunnelShader(t,TunnelDelay,TunnelScale,ClearScreenChance,FlipColorChance) >>"%~dp0x"
ECHO.if TunnelDelay==nil then TunnelDelay=10 end >>"%~dp0x"
ECHO.if TunnelScale==nil then TunnelScale=0.9 end >>"%~dp0x"
ECHO.if ClearScreenChance==nil then ClearScreenChance=40 end >>"%~dp0x"
ECHO.if FlipColorChance==nil then FlipColorChance=4 end >>"%~dp0x"
ECHO.if math.random(0,ClearScreenChance)==0 or layer==nil or delay==nil then >>"%~dp0x"
ECHO.if math.random(0,FlipColorChance)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,NOTSRCCOPY) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.layer=1 >>"%~dp0x"
ECHO.delay=0 >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.delay=delay+1 >>"%~dp0x"
ECHO.if delay^>=TunnelDelay then >>"%~dp0x"
ECHO.layer=layer*TunnelScale >>"%~dp0x"
ECHO.delay=0 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if math.random(0,FlipColorChance)==0 then >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",GDIdc,math.floor((GetWidth()-GetWidth()*layer)/2),math.floor((GetHeight()-GetHeight()*layer)/2),math.floor(GetWidth()*layer),math.floor(GetHeight()*layer),PFXdc,0,0,GetWidth(),GetHeight(),NOTSRCCOPY) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",GDIdc,math.floor((GetWidth()-GetWidth()*layer)/2),math.floor((GetHeight()-GetHeight()*layer)/2),math.floor(GetWidth()*layer),math.floor(GetHeight()*layer),PFXdc,0,0,GetWidth(),GetHeight(),SRCCOPY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function DarkenShader(t,MaxAlpha,MinAlpha) >>"%~dp0x"
ECHO.if MaxAlpha==nil then MaxAlpha=255.0 end >>"%~dp0x"
ECHO.if MinAlpha==nil then MinAlpha=0.0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),BLACKNESS) >>"%~dp0x"
ECHO.local Alpha=math.ceil((MaxAlpha-MinAlpha)*(1.0-t)+MinAlpha) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function LightenShader(t,MaxAlpha,MinAlpha) >>"%~dp0x"
ECHO.if MaxAlpha==nil then MaxAlpha=255.0 end >>"%~dp0x"
ECHO.if MinAlpha==nil then MinAlpha=0.0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),WHITENESS) >>"%~dp0x"
ECHO.local Alpha=math.ceil((MaxAlpha-MinAlpha)*(1.0-t)+MinAlpha) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function LightenFromDarkShader(t,MaxAlpha,MinAlpha) >>"%~dp0x"
ECHO.if MaxAlpha==nil then MaxAlpha=255.0 end >>"%~dp0x"
ECHO.if MinAlpha==nil then MinAlpha=0.0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),BLACKNESS) >>"%~dp0x"
ECHO.local Alpha=math.ceil((MaxAlpha-MinAlpha)*t+MinAlpha) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function DarkenFromLightShader(t,MaxAlpha,MinAlpha) >>"%~dp0x"
ECHO.if MaxAlpha==nil then MaxAlpha=255.0 end >>"%~dp0x"
ECHO.if MinAlpha==nil then MinAlpha=0.0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),WHITENESS) >>"%~dp0x"
ECHO.local Alpha=math.ceil((MaxAlpha-MinAlpha)*t+MinAlpha) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function HatchBrushShader(t,R,G,B,BkR,BkG,BkB) >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.if BkR==nil then BkR=255 end >>"%~dp0x"
ECHO.if BkG==nil then BkG=0 end >>"%~dp0x"
ECHO.if BkB==nil then BkB=0 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateHatchBrush^",math.random(0,5),Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.local BkColor=(BkB^<^<16)^|(BkG^<^<8)^|BkR >>"%~dp0x"
ECHO.EXE(^"SetBKColor^",MEMdc,BkColor) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TextShader(t,Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.if Text==nil then Text=^"Hello World^" end >>"%~dp0x"
ECHO.if FontHeight==nil then FontHeight=50 end >>"%~dp0x"
ECHO.if FontWidth==nil then FontWidth=30 end >>"%~dp0x"
ECHO.if FontWeight==nil then FontWeight=400 end >>"%~dp0x"
ECHO.if FaceName==nil then FaceName=^"Fixedsys^" end >>"%~dp0x"
ECHO.if Alignment==nil then Alignment=ALIGN_LEFT^|ALIGN_TOP end >>"%~dp0x"
ECHO.if Italic==nil then Italic=0 end >>"%~dp0x"
ECHO.if Underline==nil then Underline=0 end >>"%~dp0x"
ECHO.if StrikeOut==nil then StrikeOut=0 end >>"%~dp0x"
ECHO.if PosX==nil then PosX=0 end >>"%~dp0x"
ECHO.if PosY==nil then PosY=0 end >>"%~dp0x"
ECHO.if NoBackground==nil then NoBackground=false end >>"%~dp0x"
ECHO.if TextR==nil then TextR=255 end >>"%~dp0x"
ECHO.if TextG==nil then TextG=255 end >>"%~dp0x"
ECHO.if TextB==nil then TextB=255 end >>"%~dp0x"
ECHO.if BkR==nil then BkR=255 end >>"%~dp0x"
ECHO.if BkG==nil then BkG=0 end >>"%~dp0x"
ECHO.if BkB==nil then BkB=0 end >>"%~dp0x"
ECHO.TextShaderBase(#Text,Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TypeTextShader(t,Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.if Text==nil then Text=^"Hello World^" end >>"%~dp0x"
ECHO.if FontHeight==nil then FontHeight=50 end >>"%~dp0x"
ECHO.if FontWidth==nil then FontWidth=30 end >>"%~dp0x"
ECHO.if FontWeight==nil then FontWeight=400 end >>"%~dp0x"
ECHO.if FaceName==nil then FaceName=^"Fixedsys^" end >>"%~dp0x"
ECHO.if Alignment==nil then Alignment=ALIGN_LEFT^|ALIGN_TOP end >>"%~dp0x"
ECHO.if Italic==nil then Italic=0 end >>"%~dp0x"
ECHO.if Underline==nil then Underline=0 end >>"%~dp0x"
ECHO.if StrikeOut==nil then StrikeOut=0 end >>"%~dp0x"
ECHO.if PosX==nil then PosX=0 end >>"%~dp0x"
ECHO.if PosY==nil then PosY=0 end >>"%~dp0x"
ECHO.if NoBackground==nil then NoBackground=false end >>"%~dp0x"
ECHO.if TextR==nil then TextR=255 end >>"%~dp0x"
ECHO.if TextG==nil then TextG=255 end >>"%~dp0x"
ECHO.if TextB==nil then TextB=255 end >>"%~dp0x"
ECHO.if BkR==nil then BkR=255 end >>"%~dp0x"
ECHO.if BkG==nil then BkG=0 end >>"%~dp0x"
ECHO.if BkB==nil then BkB=0 end >>"%~dp0x"
ECHO.TextShaderBase(math.ceil(#Text*t),Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function DeleteTextShader(t,Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.if Text==nil then Text=^"Hello World^" end >>"%~dp0x"
ECHO.if FontHeight==nil then FontHeight=50 end >>"%~dp0x"
ECHO.if FontWidth==nil then FontWidth=30 end >>"%~dp0x"
ECHO.if FontWeight==nil then FontWeight=400 end >>"%~dp0x"
ECHO.if FaceName==nil then FaceName=^"Fixedsys^" end >>"%~dp0x"
ECHO.if Alignment==nil then Alignment=ALIGN_LEFT^|ALIGN_TOP end >>"%~dp0x"
ECHO.if Italic==nil then Italic=0 end >>"%~dp0x"
ECHO.if Underline==nil then Underline=0 end >>"%~dp0x"
ECHO.if StrikeOut==nil then StrikeOut=0 end >>"%~dp0x"
ECHO.if PosX==nil then PosX=0 end >>"%~dp0x"
ECHO.if PosY==nil then PosY=0 end >>"%~dp0x"
ECHO.if NoBackground==nil then NoBackground=false end >>"%~dp0x"
ECHO.if TextR==nil then TextR=255 end >>"%~dp0x"
ECHO.if TextG==nil then TextG=255 end >>"%~dp0x"
ECHO.if TextB==nil then TextB=255 end >>"%~dp0x"
ECHO.if BkR==nil then BkR=255 end >>"%~dp0x"
ECHO.if BkG==nil then BkG=0 end >>"%~dp0x"
ECHO.if BkB==nil then BkB=0 end >>"%~dp0x"
ECHO.TextShaderBase(math.ceil(#Text*(1.0-t)),Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TextShaderBase(Length,Text,FontHeight,FontWidth,FontWeight,FaceName,Alignment,Italic,Underline,StrikeOut,PosX,PosY,NoBackground,TextR,TextG,TextB,BkR,BkG,BkB) >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(TextB^<^<16)^|(TextG^<^<8)^|TextR >>"%~dp0x"
ECHO.EXE(^"SetTextColor^",MEMdc,Color) >>"%~dp0x"
ECHO.if NoBackground then >>"%~dp0x"
ECHO.EXE(^"SetBkMode^",MEMdc,1) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"SetBkMode^",MEMdc,2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local BkColor=(BkB^<^<16)^|(BkG^<^<8)^|BkR >>"%~dp0x"
ECHO.EXE(^"SetBKColor^",MEMdc,BkColor) >>"%~dp0x"
ECHO.local Font=EXE(^"CreateFontA^", >>"%~dp0x"
ECHO.FontHeight,-- FontHeight >>"%~dp0x"
ECHO.FontWidth,-- FontWidth >>"%~dp0x"
ECHO.0,-- Escapement >>"%~dp0x"
ECHO.0,-- Orientation >>"%~dp0x"
ECHO.FontWeight,-- FontWeight >>"%~dp0x"
ECHO.Italic,-- Italic >>"%~dp0x"
ECHO.Underline,-- Underline >>"%~dp0x"
ECHO.StrikeOut,-- StrikeOut >>"%~dp0x"
ECHO.1,-- CharSet >>"%~dp0x"
ECHO.0,-- OutPrecision >>"%~dp0x"
ECHO.0,-- ClipPrecision >>"%~dp0x"
ECHO.0,-- Quality >>"%~dp0x"
ECHO.0,-- PitchAndFamily >>"%~dp0x"
ECHO.FaceName)-- FaceName >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Font) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=8 >>"%~dp0x"
ECHO.EXE(^"GetTextExtentPoint32A^",MEMdc,Text,Length,MEM.Memory) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local W=MEM.readDword() >>"%~dp0x"
ECHO.local H=MEM.readDword() >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local X=math.floor(PosX) >>"%~dp0x"
ECHO.local Y=math.floor(PosY) >>"%~dp0x"
ECHO.if Alignment==0x0101 then >>"%~dp0x"
ECHO.X=math.floor(PosX) >>"%~dp0x"
ECHO.Y=math.floor(PosY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0102 then >>"%~dp0x"
ECHO.X=math.floor(PosX) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H/2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0103 then >>"%~dp0x"
ECHO.X=math.floor(PosX) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0201 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W/2) >>"%~dp0x"
ECHO.Y=math.floor(PosY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0202 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W/2) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H/2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0203 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W/2) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0301 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W) >>"%~dp0x"
ECHO.Y=math.floor(PosY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0302 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H/2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.if Alignment==0x0303 then >>"%~dp0x"
ECHO.X=math.floor(PosX-W) >>"%~dp0x"
ECHO.Y=math.floor(PosY-H) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"TextOutA^",MEMdc,X,Y,Text,Length) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Font) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RotatePoint(X,Y,Angle,OriginX,OriginY) >>"%~dp0x"
ECHO.return OriginX+(X-OriginX)*math.cos(Angle)-(Y-OriginY)*math.sin(Angle),OriginY+(X-OriginX)*math.sin(Angle)+(Y-OriginY)*math.cos(Angle) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialBlurShader(t,MaxRotation,BlendAlpha,Iteration) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if BlendAlpha==nil then BlendAlpha=1^<^<6 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local BlendFunc=(BlendAlpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,W,H,MEMdc2,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialPaintShader(t,MaxRotation,Iteration) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialAndShader(t,MaxRotation,Iteration) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialBlurColorBurnShader(t,MaxRotation,BlendAlpha,Iteration,R,G,B) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if BlendAlpha==nil then BlendAlpha=1^<^<6 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local BlendFunc=(BlendAlpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,W,H,MEMdc2,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialPaintColorBurnShader(t,MaxRotation,Iteration,R,G,B) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialAndColorBurnShader(t,MaxRotation,Iteration,R,G,B) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialBlurWaveShader(t,MaxRotation,BlendAlpha,Iteration,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if BlendAlpha==nil then BlendAlpha=1^<^<6 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local BlendFunc=(BlendAlpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,W,H,MEMdc2,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialPaintWaveShader(t,MaxRotation,Iteration,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialAndWaveShader(t,MaxRotation,Iteration,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialBlurColorBurnWaveShader(t,MaxRotation,BlendAlpha,Iteration,R,G,B,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if BlendAlpha==nil then BlendAlpha=1^<^<6 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local BlendFunc=(BlendAlpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,W,H,MEMdc2,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialPaintColorBurnWaveShader(t,MaxRotation,Iteration,R,G,B,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RadialAndColorBurnWaveShader(t,MaxRotation,Iteration,R,G,B,MaxWaveHeight,MinWaveHeight,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxRotation==nil then MaxRotation=0.02 end >>"%~dp0x"
ECHO.if Iteration==nil then Iteration=3 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.if MaxWaveHeight==nil then MaxWaveHeight=10 end >>"%~dp0x"
ECHO.if MinWaveHeight==nil then MinWaveHeight=5 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc,0,0,GetWidth(),GetHeight(),PATINVERT) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.for i=1,Iteration do >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.local Rotation=math.random(-math.abs(MaxRotation*1000.0),math.abs(MaxRotation*1000.0))/1000.0 >>"%~dp0x"
ECHO.local TopLeftX,TopLeftY=RotatePoint(0,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local TopRightX,TopRightY=RotatePoint(W,0,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.local BottomLeftX,BottomLeftY=RotatePoint(0,H,Rotation,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopLeftY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(TopRightY)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftX)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(BottomLeftY)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"PlgBlt^",MEMdc2,MEM.Memory,MEMdc,0,0,W,H,0,0,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,MEMdc2,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetHeight() do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),i,W,MaxWaveHeight,MEMdc,0,i,SRCCOPY) >>"%~dp0x"
ECHO.i=i+math.random(MinWaveHeight,MaxWaveHeight) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function InvertPolygonShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=150 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.Radius=Radius-50 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"InvertRgn^",GDIdc,ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function ColorPolygonShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay,R,G,B) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=150 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.Radius=Radius-100 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Pen=EXE(^"CreatePen^",PS_SOLID,0,Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",GDIdc,Pen) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"FrameRgn^",GDIdc,ThisPolygon,Pen,25,25) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Pen) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RandomColorPolygonShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=150 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.local Colors={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.local R=math.random(0,255) >>"%~dp0x"
ECHO.local G=math.random(0,255) >>"%~dp0x"
ECHO.local B=math.random(0,255) >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Colors,(B^<^<16)^|(G^<^<8)^|R) >>"%~dp0x"
ECHO.Radius=Radius-100 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.for PolygonID,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.local Pen=EXE(^"CreatePen^",PS_SOLID,0,Colors[PolygonID]) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",GDIdc,Pen) >>"%~dp0x"
ECHO.EXE(^"FrameRgn^",GDIdc,ThisPolygon,Pen,25,25) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Pen) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function InvertPolygonGlitchShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay,MaxSectionWidth,MinSectionWidth,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=20 end >>"%~dp0x"
ECHO.if MaxSectionWidth==nil then MaxSectionWidth=150 end >>"%~dp0x"
ECHO.if MinSectionWidth==nil then MinSectionWidth=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.Radius=Radius-50 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetWidth() do >>"%~dp0x"
ECHO.if math.random(0,1)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCPAINT) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCAND) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.i=i+math.random(MinSectionWidth,MaxSectionWidth) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"InvertRgn^",GDIdc,ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function ColorPolygonGlitchShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay,R,G,B,MaxSectionWidth,MinSectionWidth,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=20 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=255 end >>"%~dp0x"
ECHO.if B==nil then B=0 end >>"%~dp0x"
ECHO.if MaxSectionWidth==nil then MaxSectionWidth=150 end >>"%~dp0x"
ECHO.if MinSectionWidth==nil then MinSectionWidth=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.Radius=Radius-100 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Pen=EXE(^"CreatePen^",PS_SOLID,0,Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",GDIdc,Pen) >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetWidth() do >>"%~dp0x"
ECHO.if math.random(0,1)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCPAINT) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCAND) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.i=i+math.random(MinSectionWidth,MaxSectionWidth) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"FrameRgn^",GDIdc,ThisPolygon,Pen,25,25) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Pen) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function RandomColorPolygonGlitchShader(t,MaxSides,MinSides,MaxRadius,MinRadius,MaxCount,MinCount,Delay,MaxSectionWidth,MinSectionWidth,ShiftingAmount) >>"%~dp0x"
ECHO.if MaxSides==nil then MaxSides=10 end >>"%~dp0x"
ECHO.if MinSides==nil then MinSides=3 end >>"%~dp0x"
ECHO.if MaxRadius==nil then MaxRadius=400 end >>"%~dp0x"
ECHO.if MinRadius==nil then MinRadius=100 end >>"%~dp0x"
ECHO.if MaxCount==nil then MaxCount=3 end >>"%~dp0x"
ECHO.if MinCount==nil then MinCount=0 end >>"%~dp0x"
ECHO.if Delay==nil then Delay=20 end >>"%~dp0x"
ECHO.if MaxSectionWidth==nil then MaxSectionWidth=150 end >>"%~dp0x"
ECHO.if MinSectionWidth==nil then MinSectionWidth=10 end >>"%~dp0x"
ECHO.if ShiftingAmount==nil then ShiftingAmount=10 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local Count=math.random(MinCount,MaxCount) >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.local Colors={} >>"%~dp0x"
ECHO.for i=1,Count do >>"%~dp0x"
ECHO.local Sides=math.random(MinSides,MaxSides) >>"%~dp0x"
ECHO.local Radius=math.random(MinRadius,MaxRadius) >>"%~dp0x"
ECHO.local X=math.random(0,W) >>"%~dp0x"
ECHO.local Y=math.random(0,H) >>"%~dp0x"
ECHO.local Rotation=math.random()*(2*math.pi) >>"%~dp0x"
ECHO.local AngleStep=2*math.pi/Sides >>"%~dp0x"
ECHO.local R=math.random(0,255) >>"%~dp0x"
ECHO.local G=math.random(0,255) >>"%~dp0x"
ECHO.local B=math.random(0,255) >>"%~dp0x"
ECHO.while Radius^>0 do >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=0 >>"%~dp0x"
ECHO.for i=0,Sides-1 do >>"%~dp0x"
ECHO.MEM.size=MEM.size+8 >>"%~dp0x"
ECHO.MEM.writeDword(X+math.floor(Radius*math.cos(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.MEM.writeDword(Y+math.floor(Radius*math.sin(i*AngleStep+Rotation))) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,Sides,2)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Colors,(B^<^<16)^|(G^<^<8)^|R) >>"%~dp0x"
ECHO.Radius=Radius-100 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for i=1,Delay do >>"%~dp0x"
ECHO.local i=0 >>"%~dp0x"
ECHO.while i^<=GetWidth() do >>"%~dp0x"
ECHO.if math.random(0,1)==0 then >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCPAINT) >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,i,math.random(-math.abs(ShiftingAmount),math.abs(ShiftingAmount)),MaxSectionWidth,GetHeight(),PFXdc,i,0,SRCAND) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.i=i+math.random(MinSectionWidth,MaxSectionWidth) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for PolygonID,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.local Pen=EXE(^"CreatePen^",PS_SOLID,0,Colors[PolygonID]) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",GDIdc,Pen) >>"%~dp0x"
ECHO.EXE(^"FrameRgn^",GDIdc,ThisPolygon,Pen,25,25) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Pen) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function TriangleFrameShader(t,Size,Speed,Transparency,R,G,B) >>"%~dp0x"
ECHO.if Size==nil then Size=200 end >>"%~dp0x"
ECHO.if Speed==nil then Speed=5 end >>"%~dp0x"
ECHO.if Transparency==nil then Transparency=191 end >>"%~dp0x"
ECHO.if R==nil then R=0 end >>"%~dp0x"
ECHO.if G==nil then G=127 end >>"%~dp0x"
ECHO.if B==nil then B=255 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.if GlobalOffset==nil then >>"%~dp0x"
ECHO.GlobalOffset=0 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local CurrentOffset=GlobalOffset >>"%~dp0x"
ECHO.while CurrentOffset ^> 0 do >>"%~dp0x"
ECHO.CurrentOffset=CurrentOffset-Size >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local Polygons={} >>"%~dp0x"
ECHO.while CurrentOffset ^<= W+Size do >>"%~dp0x"
ECHO.local X1,Y1=CurrentOffset,Size >>"%~dp0x"
ECHO.local X2,Y2=RotatePoint(X1,Y1,2*math.pi/3,CurrentOffset,0) >>"%~dp0x"
ECHO.local X3,Y3=RotatePoint(X2,Y2,2*math.pi/3,CurrentOffset,0) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X1)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y1)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X2)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y2)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X3)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y3)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,3,2)) >>"%~dp0x"
ECHO.X1,Y1=RotatePoint(X1,Y1,math.pi,W/2,H/2) >>"%~dp0x"
ECHO.X2,Y2=RotatePoint(X2,Y2,math.pi,W/2,H/2) >>"%~dp0x"
ECHO.X3,Y3=RotatePoint(X3,Y3,math.pi,W/2,H/2) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.MEM.size=24 >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X1)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y1)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X2)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y2)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(X3)) >>"%~dp0x"
ECHO.MEM.writeDword(math.floor(Y3)) >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.table.insert(Polygons,EXE(^"CreatePolygonRgn^",MEM.Memory,3,2)) >>"%~dp0x"
ECHO.CurrentOffset=CurrentOffset+Size >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.MEM.Position=0 >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc2,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.local Color=(B^<^<16)^|(G^<^<8)^|R >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",Color) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,Brush) >>"%~dp0x"
ECHO.for _,ThisPolygon in pairs(Polygons) do >>"%~dp0x"
ECHO.EXE(^"FillRgn^",MEMdc2,ThisPolygon,Brush) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",ThisPolygon) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.local BlendFunc=(Transparency^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,W,H,MEMdc2,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.GlobalOffset=GlobalOffset+Speed >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function CRTShader(t,ColorOffsetAmount,Transparency) >>"%~dp0x"
ECHO.if ColorOffsetAmount==nil then ColorOffsetAmount=2 end >>"%~dp0x"
ECHO.if Transparency==nil then Transparency=127 end >>"%~dp0x"
ECHO.local W=GetWidth() >>"%~dp0x"
ECHO.local H=GetHeight() >>"%~dp0x"
ECHO.local MEMdc_R=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_R=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_G=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_G=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_B=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_B=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.local MEMdc_Main=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP_Main=EXE(^"CreateCompatibleBitmap^",GDIdc,W,H) >>"%~dp0x"
ECHO.if Transparency^<255 and ColorOffsetAmount~=0 then >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,BMP_R) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x0000FF) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_R,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_R,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_R,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,BMP_G) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x00FF00) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_G,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_G,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_G,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,BMP_B) >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0xFF0000) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_B,Brush) >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_B,0,0,W,H,PATCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_B,0,0,W,H,PFXdc,0,0,SRCAND) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_Main,BMP_Main) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,ColorOffsetAmount,0,W,H,MEMdc_R,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,-ColorOffsetAmount,0,W,H,MEMdc_G,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,0,ColorOffsetAmount,W,H,MEMdc_B,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,0,-ColorOffsetAmount,W,H,MEMdc_R,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,ColorOffsetAmount,-ColorOffsetAmount,W,H,MEMdc_G,0,0,SRCPAINT) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,-ColorOffsetAmount,ColorOffsetAmount,W,H,MEMdc_B,0,0,SRCPAINT) >>"%~dp0x"
ECHO.if Transparency^>0 then >>"%~dp0x"
ECHO.local BlendFunc=(Transparency^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc_Main,0,0,W,H,PFXdc,0,0,W,H,BlendFunc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.else >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_Main,BMP_Main) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",MEMdc_Main,0,0,W,H,PFXdc,0,0,SRCCOPY) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.local Brush=EXE(^"CreateSolidBrush^",0x000000) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc_Main,Brush) >>"%~dp0x"
ECHO.local i=math.random(0,2) >>"%~dp0x"
ECHO.while i^<=H do >>"%~dp0x"
ECHO.EXE(^"PatBlt^",MEMdc_Main,0,i,W,1,PATCOPY) >>"%~dp0x"
ECHO.i=i+3 >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",Brush) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,W,H,MEMdc_Main,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_R) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_R) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_G) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_G) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_B) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_B) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP_Main) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc_Main) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function PixelateShader(t,Multiplier) >>"%~dp0x"
ECHO.if Multiplier==nil then Multiplier=4 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier)) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),PFXdc,0,0,GetWidth(),GetHeight(),SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function AlphaPixelateShader(t,Multiplier,Alpha) >>"%~dp0x"
ECHO.if Multiplier==nil then Multiplier=4 end >>"%~dp0x"
ECHO.if Alpha==nil then Alpha=63 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier)) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),PFXdc,0,0,GetWidth(),GetHeight(),SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"StretchBlt^",MEMdc2,0,0,GetWidth(),GetHeight(),MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),SRCCOPY) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc2,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc2,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function BetterPixelateShader(t,Multiplier) >>"%~dp0x"
ECHO.if Multiplier==nil then Multiplier=4 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier)) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),PFXdc,0,0,GetWidth(),GetHeight(),0x00FF0000) >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),0x00FF0000) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.function BetterAlphaPixelateShader(t,Multiplier,Alpha) >>"%~dp0x"
ECHO.if Multiplier==nil then Multiplier=4 end >>"%~dp0x"
ECHO.if Alpha==nil then Alpha=63 end >>"%~dp0x"
ECHO.local MEMdc=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP=EXE(^"CreateCompatibleBitmap^",GDIdc,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier)) >>"%~dp0x"
ECHO.local MEMdc2=EXE(^"CreateCompatibleDC^",GDIdc) >>"%~dp0x"
ECHO.local BMP2=EXE(^"CreateCompatibleBitmap^",GDIdc,GetWidth(),GetHeight()) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc,BMP) >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),PFXdc,0,0,GetWidth(),GetHeight(),0x00FF0000) >>"%~dp0x"
ECHO.EXE(^"SelectObject^",MEMdc2,BMP2) >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc2,0,0,GetWidth(),GetHeight(),MEMdc,0,0,math.floor(GetWidth()/Multiplier),math.floor(GetHeight()/Multiplier),0x00FF0000) >>"%~dp0x"
ECHO.local BlendFunc=(Alpha^<^<16)^|0x00000000 >>"%~dp0x"
ECHO.EXE(^"AlphaBlend^",MEMdc2,0,0,GetWidth(),GetHeight(),PFXdc,0,0,GetWidth(),GetHeight(),BlendFunc) >>"%~dp0x"
ECHO.EXE(^"BitBlt^",GDIdc,0,0,GetWidth(),GetHeight(),MEMdc2,0,0,SRCCOPY) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc) >>"%~dp0x"
ECHO.EXE(^"DeleteObject^",BMP2) >>"%~dp0x"
ECHO.EXE(^"DeleteDC^",MEMdc2) >>"%~dp0x"
ECHO.end >>"%~dp0x"
ECHO.-- Initialization: >>"%~dp0x"
ECHO.TotalTicks=GetPPQ()*4*10 >>"%~dp0x"
ECHO.SetMicroseconds(-3*S) >>"%~dp0x"
ECHO.SetVolume(1.00) >>"%~dp0x"
ECHO.SetMute(0) >>"%~dp0x"
ECHO.SetPlaybackSpeed(1.00) >>"%~dp0x"
ECHO.SetNoteSpeed(0.25) >>"%~dp0x"
ECHO.SetStartKey(0) >>"%~dp0x"
ECHO.SetEndKey(127) >>"%~dp0x"
ECHO.SetKeyMode(0) >>"%~dp0x"
ECHO.SetOffsetX(0.00) >>"%~dp0x"
ECHO.SetOffsetY(0.00) >>"%~dp0x"
ECHO.SetZoom(-1.00) >>"%~dp0x"
ECHO.SetPaused(0) >>"%~dp0x"
ECHO.SetKeyboard(1) >>"%~dp0x"
ECHO.SetVisualizePitchBends(1) >>"%~dp0x"
ECHO.SetPhigrosMode(1) >>"%~dp0x"
ECHO.SetShowMarkers(1) >>"%~dp0x"
ECHO.SetTickBased(1) >>"%~dp0x"
ECHO.SetDisableUI(0) >>"%~dp0x"
ECHO.SetLimitFPS(1) >>"%~dp0x"
ECHO.SetCaption(^"Welcome to Piano-FX Pro^") >>"%~dp0x"
ECHO.DisplayShaderFPS=true >>"%~dp0x"
ECHO.-- Do this if you have color events on the first tick: >>"%~dp0x"
ECHO.SetMicroseconds(0) >>"%~dp0x"
ECHO.while (GetMicroseconds()^<1) do end >>"%~dp0x"
ECHO.SetMicroseconds(-3*S) >>"%~dp0x"
ECHO.-- Main Program: >>"%~dp0x"
ECHO.ThreadList={} >>"%~dp0x"
ECHO.table.insert(ThreadList,SmoothAnimationByTime(0,1,-S,0,EaseOutBack,SetZoom)) >>"%~dp0x"
ECHO.table.insert(ThreadList,SmoothAnimationByTime(CenterX(0),CenterX(1),-S,0,EaseOutBack,SetOffsetX)) >>"%~dp0x"
ECHO.table.insert(ThreadList,SmoothAnimationByTime(CenterY(0),CenterY(1),-S,0,EaseOutBack,SetOffsetY)) >>"%~dp0x"
ECHO.table.insert(ThreadList,InstantaneousAnimationByTime(^"^",0,SetCaption)) >>"%~dp0x"
ECHO.RunShaderByTime(-3*S,-2*S,DarkBlankShader) >>"%~dp0x"
ECHO.RunShaderByTime(-2*S,0,LightenFromDarkShader) >>"%~dp0x"
ECHO.RunThreads(ThreadList) >>"%~dp0x"
ECHO.RunShaderByTick(0,TotalTicks,PlainShader) >>"%~dp0x"
ECHO.while GetTicks()^<=TotalTicks do end >>"%~dp0x"
ECHO.MEM.destroy() >>"%~dp0x"
ECHO.MEM.destroy() >>"%~dp0x"
ECHO.--[[ >>"%~dp0x"
ECHO.Notice: >>"%~dp0x"
ECHO.Cheat Engine's UI may freeze and stop responding while the script is running. >>"%~dp0x"
ECHO.This is a normal phenomenon, please do not kill this process^^^! >>"%~dp0x"
ECHO.]] >>"%~dp0x"
type "%~dp0x" | clip
del "%~dp0x" /f /q
mshta vbscript:msgbox("Cheat Engine lua code template has been copied to clipboard."+vbCrLf+"Open Cheat Engine and paste them into Table -> Show Cheat Table Lua Script."+vbCrLf,48,"Success")(window.close)
exit /b
:AB
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Generate animation code with fields                   
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
for /l %%a in (25 1 40) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=[?25h
set Output=echo.ThreadList={} ^>"x"
:Again
echo.Animation type: 
echo.1. Smooth
echo.2. Target
echo.3. Instantaneous
echo|set/p=^^^>
choice /C 123 /n
echo.
if "%errorlevel%" equ "1" (goto Smooth)
if "%errorlevel%" equ "2" (goto Target)
if "%errorlevel%" equ "3" (goto Instantaneous)
:Smooth
echo.Timing unit: 
echo.1. Tick
echo.2. Microseconds
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (set TimingUnit=Tick)
if "%errorlevel%" equ "2" (set TimingUnit=Time)
set "Input= "
set /P "Input=Start value: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "StartValue=!Input!"
set "Input= "
set /P "Input=End value: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "EndValue=!Input!"
set "Input= "
set /P "Input=Start time: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "StartTime=!Input!"
set "Input= "
set /P "Input=End time: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "EndTime=!Input!"
echo.Easing type: 
echo.1. Sine
echo.2. Quad
echo.3. Cubic
echo.4. Quart
echo.5. Quint
echo.6. Expo
echo.7. Circ
echo.8. Back
echo.9. Elastic
echo.0. Bounce
echo.A. Linear
echo|set/p=^^^>
choice /C 1234567890a /n
echo.
if "%errorlevel%" equ "1" (set EasingType=Sine)
if "%errorlevel%" equ "2" (set EasingType=Quad)
if "%errorlevel%" equ "3" (set EasingType=Cubic)
if "%errorlevel%" equ "4" (set EasingType=Quart)
if "%errorlevel%" equ "5" (set EasingType=Quint)
if "%errorlevel%" equ "6" (set EasingType=Expo)
if "%errorlevel%" equ "7" (set EasingType=Circ)
if "%errorlevel%" equ "8" (set EasingType=Back)
if "%errorlevel%" equ "9" (set EasingType=Elastic)
if "%errorlevel%" equ "10" (set EasingType=Bounce)
if "%errorlevel%" equ "11" (set EasingDirection=&set EasingType=Linear&goto LinearSmooth)
echo.Easing direction: 
echo.1. In
echo.2. Out
echo.3. In ^& Out
echo|set/p=^^^>
choice /C 123 /n
echo.
if "%errorlevel%" equ "1" (set EasingDirection=In)
if "%errorlevel%" equ "2" (set EasingDirection=Out)
if "%errorlevel%" equ "3" (set EasingDirection=InOut)
:LinearSmooth
echo.Animation target: 
echo.1. Volume
echo.2. PlaybackSpeed
echo.3. NoteSpeed
echo.4. StartKey
echo.5. EndKey
echo.6. Offset-X
echo.7. Offset-Y
echo.8. Zoom
echo|set/p=^^^>
choice /C 12345678 /n
echo.
if "%errorlevel%" equ "1" (set AnimationTarget=SetVolume)
if "%errorlevel%" equ "2" (set AnimationTarget=SetPlaybackSpeed)
if "%errorlevel%" equ "3" (set AnimationTarget=SetNoteSpeed)
if "%errorlevel%" equ "4" (set AnimationTarget=SetStartKey)
if "%errorlevel%" equ "5" (set AnimationTarget=SetEndKey)
if "%errorlevel%" equ "6" (set AnimationTarget=SetOffsetX)
if "%errorlevel%" equ "7" (set AnimationTarget=SetOffsetY)
if "%errorlevel%" equ "8" (set AnimationTarget=SetZoom)
echo.Slicing: 
echo.1. Sliced
echo.2. Normal
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (goto SlicedSmooth)
if "%errorlevel%" equ "2" (goto UnslicedSmooth)
:SlicedSmooth
set "Input= "
set /P "Input=Spacing: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "Spacing=!Input!"
set "Output=!Output!^&echo.table.insert(ThreadList,SlicedSmoothAnimationBy!TimingUnit!(!StartValue!,!EndValue!,!StartTime!,!EndTime!,!Spacing!,Ease!EasingDirection!!EasingType!,!AnimationTarget!)) >>^"%~dp0x^""
goto Finish
:UnslicedSmooth
set "Output=!Output!^&echo.table.insert(ThreadList,SmoothAnimationBy!TimingUnit!(!StartValue!,!EndValue!,!StartTime!,!EndTime!,Ease!EasingDirection!!EasingType!,!AnimationTarget!)) >>^"%~dp0x^""
goto Finish
:Target
echo.Timing unit: 
echo.1. Tick
echo.2. Microseconds
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (set TimingUnit=Tick)
if "%errorlevel%" equ "2" (set TimingUnit=Time)
set "Input= "
set /P "Input=Target value: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "TargetValue=!Input!"
set "Input= "
set /P "Input=Start time: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "StartTime=!Input!"
set "Input= "
set /P "Input=End time: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "EndTime=!Input!"
echo.Easing type: 
echo.1. Sine
echo.2. Quad
echo.3. Cubic
echo.4. Quart
echo.5. Quint
echo.6. Expo
echo.7. Circ
echo.8. Back
echo.9. Elastic
echo.0. Bounce
echo.A. Linear
echo|set/p=^^^>
choice /C 1234567890a /n
echo.
if "%errorlevel%" equ "1" (set EasingType=Sine)
if "%errorlevel%" equ "2" (set EasingType=Quad)
if "%errorlevel%" equ "3" (set EasingType=Cubic)
if "%errorlevel%" equ "4" (set EasingType=Quart)
if "%errorlevel%" equ "5" (set EasingType=Quint)
if "%errorlevel%" equ "6" (set EasingType=Expo)
if "%errorlevel%" equ "7" (set EasingType=Circ)
if "%errorlevel%" equ "8" (set EasingType=Back)
if "%errorlevel%" equ "9" (set EasingType=Elastic)
if "%errorlevel%" equ "10" (set EasingType=Bounce)
if "%errorlevel%" equ "11" (set EasingDirection=&set EasingType=Linear&goto LinearTarget)
echo.Easing direction: 
echo.1. In
echo.2. Out
echo.3. In ^& Out
echo|set/p=^^^>
choice /C 123 /n
echo.
if "%errorlevel%" equ "1" (set EasingDirection=In)
if "%errorlevel%" equ "2" (set EasingDirection=Out)
if "%errorlevel%" equ "3" (set EasingDirection=InOut)
:LinearTarget
echo.Animation target: 
echo.1. Volume
echo.2. PlaybackSpeed
echo.3. NoteSpeed
echo.4. StartKey
echo.5. EndKey
echo.6. Offset-X
echo.7. Offset-Y
echo.8. Zoom
echo|set/p=^^^>
choice /C 12345678 /n
echo.
if "%errorlevel%" equ "1" (set AnimationTarget=SetVolume&set AnimationSource=GetVolume)
if "%errorlevel%" equ "2" (set AnimationTarget=SetPlaybackSpeed&set AnimationSource=GetPlaybackSpeed)
if "%errorlevel%" equ "3" (set AnimationTarget=SetNoteSpeed&set AnimationSource=GetNoteSpeed)
if "%errorlevel%" equ "4" (set AnimationTarget=SetStartKey&set AnimationSource=GetStartKey)
if "%errorlevel%" equ "5" (set AnimationTarget=SetEndKey&set AnimationSource=GetEndKey)
if "%errorlevel%" equ "6" (set AnimationTarget=SetOffsetX&set AnimationSource=GetOffsetX)
if "%errorlevel%" equ "7" (set AnimationTarget=SetOffsetY&set AnimationSource=GetOffsetY)
if "%errorlevel%" equ "8" (set AnimationTarget=SetZoom&set AnimationSource=GetZoom)
echo.Slicing: 
echo.1. Sliced
echo.2. Normal
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (goto SlicedTarget)
if "%errorlevel%" equ "2" (goto UnslicedTarget)
:SlicedTarget
set "Input= "
set /P "Input=Spacing: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "Spacing=!Input!"
set "Output=!Output!^&echo.table.insert(ThreadList,SlicedTargetAnimationBy!TimingUnit!(!AnimationSource!,!TargetValue!,!StartTime!,!EndTime!,!Spacing!,Ease!EasingDirection!!EasingType!,!AnimationTarget!)) >>^"%~dp0x^""
goto Finish
:UnslicedTarget
set "Output=!Output!^&echo.table.insert(ThreadList,TargetAnimationBy!TimingUnit!(!AnimationSource!,!TargetValue!,!StartTime!,!EndTime!,Ease!EasingDirection!!EasingType!,!AnimationTarget!)) >>^"%~dp0x^""
goto Finish
:Instantaneous
echo.Timing unit: 
echo.1. Tick
echo.2. Microseconds
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (set TimingUnit=Tick)
if "%errorlevel%" equ "2" (set TimingUnit=Time)
set "Input= "
set /P "Input=Value: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "Value=!Input!"
set "Input= "
set /P "Input=Time: "
set "Input=!Input:^=^^!"
set "Input=!Input:"=^^^"!"
set "Input=!Input:&=^&!"
set "Input=!Input:<=^<!"
set "Input=!Input:>=^>!"
set "Input=!Input:|=^|!"
set "Time=!Input!"
echo.Animation target: 
echo.1. Microseconds 
echo.2. Volume
echo.3. Mute
echo.4. PlaybackSpeed
echo.5. NoteSpeed
echo.6. StartKey
echo.7. EndKey
echo.8. KeyMode
echo.9. Offset-X
echo.0. Offset-Y
echo.A. Zoom
echo.B. Paused
echo.C. Keyboard
echo.D. VisualizePitchBends
echo.E. PhigrosMode
echo.F. ShorMarkers
echo.G. TickBased
echo.H. DisableUI
echo.I. LimitFPS
echo.J. Caption
echo|set/p=^^^>
choice /C 1234567890abcdefghij /n
echo.
if "%errorlevel%" equ "1" (set AnimationTarget=SetMicroseconds)
if "%errorlevel%" equ "2" (set AnimationTarget=SetVolume)
if "%errorlevel%" equ "3" (set AnimationTarget=SetMute)
if "%errorlevel%" equ "4" (set AnimationTarget=SetPlaybackSpeed)
if "%errorlevel%" equ "5" (set AnimationTarget=SetNoteSpeed)
if "%errorlevel%" equ "6" (set AnimationTarget=SetStartKey)
if "%errorlevel%" equ "7" (set AnimationTarget=SetEndKey)
if "%errorlevel%" equ "8" (set AnimationTarget=SetKeyMode)
if "%errorlevel%" equ "9" (set AnimationTarget=SetOffsetX)
if "%errorlevel%" equ "10" (set AnimationTarget=SetOffsetY)
if "%errorlevel%" equ "11" (set AnimationTarget=SetZoom)
if "%errorlevel%" equ "12" (set AnimationTarget=SetPaused)
if "%errorlevel%" equ "13" (set AnimationTarget=SetKeyboard)
if "%errorlevel%" equ "14" (set AnimationTarget=SetVisualizePitchBends)
if "%errorlevel%" equ "15" (set AnimationTarget=SetPhigrosMode)
if "%errorlevel%" equ "16" (set AnimationTarget=SetShowMarkers)
if "%errorlevel%" equ "17" (set AnimationTarget=SetTickBased)
if "%errorlevel%" equ "18" (set AnimationTarget=SetDisableUI)
if "%errorlevel%" equ "19" (set AnimationTarget=SetLimitFPS)
if "%errorlevel%" equ "20" (set AnimationTarget=SetCaption)
set "Output=!Output!^&echo.table.insert(ThreadList,InstantaneousAnimationBy!TimingUnit!(!Value!,!Time!,!AnimationTarget!)) >>^"%~dp0x^""
:Finish
echo|set/p=Do you want to add another animation? 
choice
if "%errorlevel%" equ "1" (goto Again)
if "%errorlevel%" equ "2" (goto Generate)
:Generate
set "Output=!Output!^&echo.RunThreads(ThreadList) >>^"%~dp0x^""
%Output%
type "%~dp0x" | clip
del "%~dp0x" /f /q
mshta vbscript:msgbox("The generated lua code has been copied to clipboard.",48,"Success")(window.close)
for /l %%a in (40 -1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
exit/b
:AC
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Advanced visualize pitch bend tricks tutorial         
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
IF EXIST "%~dp0Tutorials.zip" (
POWERSHELL -Command "Expand-Archive -Path "^""%~dp0Tutorials.zip"^"" -DestinationPath "^""%~dp0Tutorials"^"" -Force"
DEL "%~dp0Tutorials.zip" /f /q
)
start "" "%~dp0Tutorials\PitchBendTutorial.rtf"
exit /b
:AD
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Cheat engine lua scripting tutorial                   
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
IF EXIST "%~dp0Tutorials.zip" (
POWERSHELL -Command "Expand-Archive -Path "^""%~dp0Tutorials.zip"^"" -DestinationPath "^""%~dp0Tutorials"^"" -Force"
DEL "%~dp0Tutorials.zip" /f /q
)
start "" "%~dp0Tutorials\CheatEngineTutorial.rtf"
exit /b
:CA
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (A) Generate color events from lyrics                     
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
for /l %%a in (25 1 40) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=[?25h
@echo on
"%~dp0Colorizer.exe" generate
@echo off
echo.
set /P "InputMIDI=MIDI file path: "
echo.
@echo on
"%~dp0Colorizer.exe" "!InputMIDI!" generate
@echo off
echo.
pause
for /l %%a in (40 -1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
exit/b
:CB
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (B) Restore editable lyrics from color events             
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
for /l %%a in (25 1 40) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=[?25h
@echo on
"%~dp0Colorizer.exe" restore
@echo off
echo.
set /P "InputMIDI=MIDI file path: "
echo.
@echo on
"%~dp0Colorizer.exe" "!InputMIDI!" restore
@echo off
echo.
pause
for /l %%a in (40 -1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
exit/b
:CC
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (C) Make a gradient color effect                          
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
for /l %%a in (25 1 40) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=[?25h
@echo on
"%~dp0Colorizer.exe" gradient
@echo off
echo.
set /P "Channel=Channel: "
set /P "StartColorR=Start color (R): "
set /P "StartColorG=Start color (G): "
set /P "StartColorB=Start color (B): "
set /P "StartColorA=Start color (A): "
set /P "EndColorR=End color (R): "
set /P "EndColorG=End color (G): "
set /P "EndColorB=End color (B): "
set /P "EndColorA=End color (A): "
set /P "Duration=Duration: "
set /P "Spacing=Spacing: "
set /P "OutputMIDI=MIDI file path: "
echo.
@echo on
"%~dp0Colorizer.exe" "!Channel!" "!StartColorR!" "!StartColorG!" "!StartColorB!" "!StartColorA!" "!EndColorR!" "!EndColorG!" "!EndColorB!" "!EndColorA!" "!Duration!" "!Spacing!" "!OutputMIDI!" gradient
@echo off
echo.
pause
for /l %%a in (40 -1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
exit/b
:CD
ECHO|set/p=▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
ECHO|set/p= (D) Convert PFA config to color events                    
ECHO|set/p=▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ 
timeout 1 /nobreak >nul
for /l %%a in (25 1 40) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
echo|set/p=[?25h
@echo on
"%~dp0Colorizer.exe" config
@echo off
echo.
echo.Color mode: 
echo.1. Color MIDI by track
echo.2. Color MIDI by channel
echo|set/p=^^^>
choice /C 12 /n
echo.
if "%errorlevel%" equ "1" (set ColorMode=track)
if "%errorlevel%" equ "2" (set ColorMode=channel)
set /P "OutputMIDI=MIDI file path: "
echo.
@echo on
"%~dp0Colorizer.exe" "!OutputMIDI!" "!ColorMode!" config
@echo off
echo.
pause
for /l %%a in (40 -1 25) do (
set /a "cols=30+%%a*2"
call mode con:cols=%%cols%% lines=%%a >nul
)
exit/b