Imagemagick scaling scripts (VBS)

dirlist.txt

attrib *.*

A            GuiOverlay\traffic2\10loading(1).png
    H        GuiOverlay\traffic2\10loading(1).png.mftc
    H        GuiOverlay\traffic2\10loading(1).png.size
A            GuiOverlay\traffic2\10loading(2).png
    H        GuiOverlay\traffic2\10loading(2).png.mftc
    H        GuiOverlay\traffic2\10loading(2).png.size
A            GuiOverlay\traffic2\10loading(3).png
    H        GuiOverlay\traffic2\10loading(3).png.mftc
    H        GuiOverlay\traffic2\10loading(3).png.size
A            GuiOverlay\traffic2\10loading(4).png
    H        GuiOverlay\traffic2\10loading(4).png.mftc
    H        GuiOverlay\traffic2\10loading(4).png.size
A            GuiOverlay\traffic2\10loading(5).png
    H        GuiOverlay\traffic2\10loading(5).png.mftc
    H        GuiOverlay\traffic2\10loading(5).png.size
A            GuiOverlay\traffic2\10loading(q).png
A            GuiOverlay\traffic2\11loading(1).png
    H        GuiOverlay\traffic2\11loading(1).png.mftc
    H        GuiOverlay\traffic2\11loading(1).png.size
A            GuiOverlay\traffic2\11loading(2).png
    H        GuiOverlay\traffic2\11loading(2).png.mftc
    H        GuiOverlay\traffic2\11loading(2).png.size
A            GuiOverlay\traffic2\11loading(3).png
    H        GuiOverlay\traffic2\11loading(3).png.mftc
    H        GuiOverlay\traffic2\11loading(3).png.size
A            GuiOverlay\traffic2\11loading(4).png
    H        GuiOverlay\traffic2\11loading(4).png.mftc
    H        GuiOverlay\traffic2\11loading(4).png.size
A            GuiOverlay\traffic2\11loading(5).png
    H        GuiOverlay\traffic2\11loading(5).png.mftc
    H        GuiOverlay\traffic2\11loading(5).png.size
A            GuiOverlay\traffic2\11loading(q).png
A            GuiOverlay\traffic2\12loading(1).png
    H        GuiOverlay\traffic2\12loading(1).png.mftc
    H        GuiOverlay\traffic2\12loading(1).png.size
A            GuiOverlay\traffic2\12loading(2).png
    H        GuiOverlay\traffic2\12loading(2).png.mftc
    H        GuiOverlay\traffic2\12loading(2).png.size
A            GuiOverlay\traffic2\12loading(3).png
    H        GuiOverlay\traffic2\12loading(3).png.mftc
    H        GuiOverlay\traffic2\12loading(3).png.size
A            GuiOverlay\traffic2\12loading(4).png
    H        GuiOverlay\traffic2\12loading(4).png.mftc
    H        GuiOverlay\traffic2\12loading(4).png.size
A            GuiOverlay\traffic2\12loading(5).png
    H        GuiOverlay\traffic2\12loading(5).png.mftc
    H        GuiOverlay\traffic2\12loading(5).png.size
A            GuiOverlay\traffic2\12loading(q).png
A            GuiOverlay\traffic2\1loading(1).png
    H        GuiOverlay\traffic2\1loading(1).png.mftc
    H        GuiOverlay\traffic2\1loading(1).png.size
A            GuiOverlay\traffic2\1loading(2).png
    H        GuiOverlay\traffic2\1loading(2).png.mftc
    H        GuiOverlay\traffic2\1loading(2).png.size
A            GuiOverlay\traffic2\1loading(3).png
    H        GuiOverlay\traffic2\1loading(3).png.mftc
    H        GuiOverlay\traffic2\1loading(3).png.size
A            GuiOverlay\traffic2\1loading(4).png
    H        GuiOverlay\traffic2\1loading(4).png.mftc
    H        GuiOverlay\traffic2\1loading(4).png.size
A            GuiOverlay\traffic2\1loading(5).png
    H        GuiOverlay\traffic2\1loading(5).png.mftc
    H        GuiOverlay\traffic2\1loading(5).png.size
A            GuiOverlay\traffic2\1loading(q).png
A            GuiOverlay\traffic2\2loading(1).png
    H        GuiOverlay\traffic2\2loading(1).png.mftc
    H        GuiOverlay\traffic2\2loading(1).png.size
A            GuiOverlay\traffic2\2loading(2).png
    H        GuiOverlay\traffic2\2loading(2).png.mftc
    H        GuiOverlay\traffic2\2loading(2).png.size
A            GuiOverlay\traffic2\2loading(3).png
    H        GuiOverlay\traffic2\2loading(3).png.mftc
    H        GuiOverlay\traffic2\2loading(3).png.size
A            GuiOverlay\traffic2\2loading(4).png
    H        GuiOverlay\traffic2\2loading(4).png.mftc
    H        GuiOverlay\traffic2\2loading(4).png.size
A            GuiOverlay\traffic2\2loading(5).png
    H        GuiOverlay\traffic2\2loading(5).png.mftc
    H        GuiOverlay\traffic2\2loading(5).png.size
A            GuiOverlay\traffic2\2loading(q).png
A            GuiOverlay\traffic2\3loading(1).png
    H        GuiOverlay\traffic2\3loading(1).png.mftc
    H        GuiOverlay\traffic2\3loading(1).png.size
A            GuiOverlay\traffic2\3loading(2).png
    H        GuiOverlay\traffic2\3loading(2).png.mftc
    H        GuiOverlay\traffic2\3loading(2).png.size
A            GuiOverlay\traffic2\3loading(3).png
    H        GuiOverlay\traffic2\3loading(3).png.mftc
    H        GuiOverlay\traffic2\3loading(3).png.size
A            GuiOverlay\traffic2\3loading(4).png
    H        GuiOverlay\traffic2\3loading(4).png.mftc
    H        GuiOverlay\traffic2\3loading(4).png.size
A            GuiOverlay\traffic2\3loading(5).png
    H        GuiOverlay\traffic2\3loading(5).png.mftc
    H        GuiOverlay\traffic2\3loading(5).png.size
A            GuiOverlay\traffic2\3loading(q).png
A            GuiOverlay\traffic2\4loading(1).png
    H        GuiOverlay\traffic2\4loading(1).png.mftc
    H        GuiOverlay\traffic2\4loading(1).png.size
A            GuiOverlay\traffic2\4loading(2).png
    H        GuiOverlay\traffic2\4loading(2).png.mftc
    H        GuiOverlay\traffic2\4loading(2).png.size
A            GuiOverlay\traffic2\4loading(3).png
    H        GuiOverlay\traffic2\4loading(3).png.mftc
    H        GuiOverlay\traffic2\4loading(3).png.size
A            GuiOverlay\traffic2\4loading(4).png
    H        GuiOverlay\traffic2\4loading(4).png.mftc
    H        GuiOverlay\traffic2\4loading(4).png.size
A            GuiOverlay\traffic2\4loading(5).png
    H        GuiOverlay\traffic2\4loading(5).png.mftc
    H        GuiOverlay\traffic2\4loading(5).png.size
A            GuiOverlay\traffic2\4loading(q).png
A            GuiOverlay\traffic2\5loading(1).png
    H        GuiOverlay\traffic2\5loading(1).png.mftc
    H        GuiOverlay\traffic2\5loading(1).png.size
A            GuiOverlay\traffic2\5loading(2).png
    H        GuiOverlay\traffic2\5loading(2).png.mftc
    H        GuiOverlay\traffic2\5loading(2).png.size
A            GuiOverlay\traffic2\5loading(3).png
    H        GuiOverlay\traffic2\5loading(3).png.mftc
    H        GuiOverlay\traffic2\5loading(3).png.size
A            GuiOverlay\traffic2\5loading(4).png
    H        GuiOverlay\traffic2\5loading(4).png.mftc
    H        GuiOverlay\traffic2\5loading(4).png.size
A            GuiOverlay\traffic2\5loading(5).png
    H        GuiOverlay\traffic2\5loading(5).png.mftc
    H        GuiOverlay\traffic2\5loading(5).png.size
A            GuiOverlay\traffic2\5loading(q).png
A            GuiOverlay\traffic2\6loading(1).png
    H        GuiOverlay\traffic2\6loading(1).png.mftc
    H        GuiOverlay\traffic2\6loading(1).png.size
A            GuiOverlay\traffic2\6loading(2).png
    H        GuiOverlay\traffic2\6loading(2).png.mftc
    H        GuiOverlay\traffic2\6loading(2).png.size
A            GuiOverlay\traffic2\6loading(3).png
    H        GuiOverlay\traffic2\6loading(3).png.mftc
    H        GuiOverlay\traffic2\6loading(3).png.size
A            GuiOverlay\traffic2\6loading(4).png
    H        GuiOverlay\traffic2\6loading(4).png.mftc
    H        GuiOverlay\traffic2\6loading(4).png.size
A            GuiOverlay\traffic2\6loading(5).png
    H        GuiOverlay\traffic2\6loading(5).png.mftc
    H        GuiOverlay\traffic2\6loading(5).png.size
A            GuiOverlay\traffic2\6loading(q).png
A            GuiOverlay\traffic2\7loading(1).png
    H        GuiOverlay\traffic2\7loading(1).png.mftc
    H        GuiOverlay\traffic2\7loading(1).png.size
A            GuiOverlay\traffic2\7loading(2).png
    H        GuiOverlay\traffic2\7loading(2).png.mftc
    H        GuiOverlay\traffic2\7loading(2).png.size
A            GuiOverlay\traffic2\7loading(3).png
    H        GuiOverlay\traffic2\7loading(3).png.mftc
    H        GuiOverlay\traffic2\7loading(3).png.size
A            GuiOverlay\traffic2\7loading(4).png
    H        GuiOverlay\traffic2\7loading(4).png.mftc
    H        GuiOverlay\traffic2\7loading(4).png.size
A            GuiOverlay\traffic2\7loading(5).png
    H        GuiOverlay\traffic2\7loading(5).png.mftc
    H        GuiOverlay\traffic2\7loading(5).png.size
A            GuiOverlay\traffic2\7loading(q).png
A            GuiOverlay\traffic2\8loading(1).png
    H        GuiOverlay\traffic2\8loading(1).png.mftc
    H        GuiOverlay\traffic2\8loading(1).png.size
A            GuiOverlay\traffic2\8loading(2).png
    H        GuiOverlay\traffic2\8loading(2).png.mftc
    H        GuiOverlay\traffic2\8loading(2).png.size
A            GuiOverlay\traffic2\8loading(3).png
    H        GuiOverlay\traffic2\8loading(3).png.mftc
    H        GuiOverlay\traffic2\8loading(3).png.size
A            GuiOverlay\traffic2\8loading(4).png
    H        GuiOverlay\traffic2\8loading(4).png.mftc
    H        GuiOverlay\traffic2\8loading(4).png.size
A            GuiOverlay\traffic2\8loading(5).png
    H        GuiOverlay\traffic2\8loading(5).png.mftc
    H        GuiOverlay\traffic2\8loading(5).png.size
A            GuiOverlay\traffic2\8loading(q).png
A            GuiOverlay\traffic2\9loading(1).png
    H        GuiOverlay\traffic2\9loading(1).png.mftc
    H        GuiOverlay\traffic2\9loading(1).png.size
A            GuiOverlay\traffic2\9loading(2).png
    H        GuiOverlay\traffic2\9loading(2).png.mftc
    H        GuiOverlay\traffic2\9loading(2).png.size
A            GuiOverlay\traffic2\9loading(3).png
    H        GuiOverlay\traffic2\9loading(3).png.mftc
    H        GuiOverlay\traffic2\9loading(3).png.size
A            GuiOverlay\traffic2\9loading(4).png
    H        GuiOverlay\traffic2\9loading(4).png.mftc
    H        GuiOverlay\traffic2\9loading(4).png.size
A            GuiOverlay\traffic2\9loading(5).png
    H        GuiOverlay\traffic2\9loading(5).png.mftc
    H        GuiOverlay\traffic2\9loading(5).png.size
A            GuiOverlay\traffic2\9loading(q).png
A            GuiOverlay\traffic2\dirlist
A            GuiOverlay\traffic2\left_panel_flat(1).png
    H        GuiOverlay\traffic2\left_panel_flat(1).png.mftc
    H        GuiOverlay\traffic2\left_panel_flat(1).png.size
A            GuiOverlay\traffic2\left_panel_flat(2).png
    H        GuiOverlay\traffic2\left_panel_flat(2).png.mftc
    H        GuiOverlay\traffic2\left_panel_flat(2).png.size
A            GuiOverlay\traffic2\left_panel_flat(3).png
    H        GuiOverlay\traffic2\left_panel_flat(3).png.mftc
    H        GuiOverlay\traffic2\left_panel_flat(3).png.size
A            GuiOverlay\traffic2\left_panel_flat(4).png
    H        GuiOverlay\traffic2\left_panel_flat(4).png.mftc
    H        GuiOverlay\traffic2\left_panel_flat(4).png.size
A            GuiOverlay\traffic2\left_panel_flat(5).png
    H        GuiOverlay\traffic2\left_panel_flat(5).png.mftc
    H        GuiOverlay\traffic2\left_panel_flat(5).png.size
A            GuiOverlay\traffic2\left_panel_flat(r).png
A            GuiOverlay\traffic2\left_panel_round(1).png
    H        GuiOverlay\traffic2\left_panel_round(1).png.mftc
    H        GuiOverlay\traffic2\left_panel_round(1).png.size
A            GuiOverlay\traffic2\left_panel_round(2).png
    H        GuiOverlay\traffic2\left_panel_round(2).png.mftc
    H        GuiOverlay\traffic2\left_panel_round(2).png.size
A            GuiOverlay\traffic2\left_panel_round(3).png
    H        GuiOverlay\traffic2\left_panel_round(3).png.mftc
    H        GuiOverlay\traffic2\left_panel_round(3).png.size
A            GuiOverlay\traffic2\left_panel_round(4).png
    H        GuiOverlay\traffic2\left_panel_round(4).png.mftc
    H        GuiOverlay\traffic2\left_panel_round(4).png.size
A            GuiOverlay\traffic2\left_panel_round(5).png
    H        GuiOverlay\traffic2\left_panel_round(5).png.mftc
    H        GuiOverlay\traffic2\left_panel_round(5).png.size
A            GuiOverlay\traffic2\left_panel_round(r).png
A            GuiOverlay\traffic2\plus_orange(1).png
    H        GuiOverlay\traffic2\plus_orange(1).png.mftc
    H        GuiOverlay\traffic2\plus_orange(1).png.size
A            GuiOverlay\traffic2\plus_orange(2).png
    H        GuiOverlay\traffic2\plus_orange(2).png.mftc
    H        GuiOverlay\traffic2\plus_orange(2).png.size
A            GuiOverlay\traffic2\plus_orange(3).png
    H        GuiOverlay\traffic2\plus_orange(3).png.mftc
    H        GuiOverlay\traffic2\plus_orange(3).png.size
A            GuiOverlay\traffic2\plus_orange(4).png
    H        GuiOverlay\traffic2\plus_orange(4).png.mftc
    H        GuiOverlay\traffic2\plus_orange(4).png.size
A            GuiOverlay\traffic2\plus_orange(5).png
    H        GuiOverlay\traffic2\plus_orange(5).png.mftc
    H        GuiOverlay\traffic2\plus_orange(5).png.size
A            GuiOverlay\traffic2\plus_orange(r).png
A            GuiOverlay\traffic2\plus_red(1).png
    H        GuiOverlay\traffic2\plus_red(1).png.mftc
    H        GuiOverlay\traffic2\plus_red(1).png.size
A            GuiOverlay\traffic2\plus_red(2).png
    H        GuiOverlay\traffic2\plus_red(2).png.mftc
    H        GuiOverlay\traffic2\plus_red(2).png.size
A            GuiOverlay\traffic2\plus_red(3).png
    H        GuiOverlay\traffic2\plus_red(3).png.mftc
    H        GuiOverlay\traffic2\plus_red(3).png.size
A            GuiOverlay\traffic2\plus_red(4).png
    H        GuiOverlay\traffic2\plus_red(4).png.mftc
    H        GuiOverlay\traffic2\plus_red(4).png.size
A            GuiOverlay\traffic2\plus_red(5).png
    H        GuiOverlay\traffic2\plus_red(5).png.mftc
    H        GuiOverlay\traffic2\plus_red(5).png.size
A            GuiOverlay\traffic2\plus_red(r).png
A            GuiOverlay\traffic2\plus_white(1).png
    H        GuiOverlay\traffic2\plus_white(1).png.mftc
    H        GuiOverlay\traffic2\plus_white(1).png.size
A            GuiOverlay\traffic2\plus_white(2).png
    H        GuiOverlay\traffic2\plus_white(2).png.mftc
    H        GuiOverlay\traffic2\plus_white(2).png.size
A            GuiOverlay\traffic2\plus_white(3).png
    H        GuiOverlay\traffic2\plus_white(3).png.mftc
    H        GuiOverlay\traffic2\plus_white(3).png.size
A            GuiOverlay\traffic2\plus_white(4).png
    H        GuiOverlay\traffic2\plus_white(4).png.mftc
    H        GuiOverlay\traffic2\plus_white(4).png.size
A            GuiOverlay\traffic2\plus_white(5).png
    H        GuiOverlay\traffic2\plus_white(5).png.mftc
    H        GuiOverlay\traffic2\plus_white(5).png.size
A            GuiOverlay\traffic2\plus_white(r).png
A            GuiOverlay\traffic2\providerYandex(1).png
    H        GuiOverlay\traffic2\providerYandex(1).png.mftc
    H        GuiOverlay\traffic2\providerYandex(1).png.size
A            GuiOverlay\traffic2\providerYandex(2).png
    H        GuiOverlay\traffic2\providerYandex(2).png.mftc
    H        GuiOverlay\traffic2\providerYandex(2).png.size
A            GuiOverlay\traffic2\providerYandex(3).png
    H        GuiOverlay\traffic2\providerYandex(3).png.mftc
    H        GuiOverlay\traffic2\providerYandex(3).png.size
A            GuiOverlay\traffic2\providerYandex(4).png
    H        GuiOverlay\traffic2\providerYandex(4).png.mftc
    H        GuiOverlay\traffic2\providerYandex(4).png.size
A            GuiOverlay\traffic2\providerYandex(5).png
    H        GuiOverlay\traffic2\providerYandex(5).png.mftc
    H        GuiOverlay\traffic2\providerYandex(5).png.size
A            GuiOverlay\traffic2\providerYandex(q).png
A            GuiOverlay\traffic2\rules.vbs
A            GuiOverlay\traffic2\symbol(1).png
    H        GuiOverlay\traffic2\symbol(1).png.mftc
    H        GuiOverlay\traffic2\symbol(1).png.size
A            GuiOverlay\traffic2\symbol(2).png
    H        GuiOverlay\traffic2\symbol(2).png.mftc
    H        GuiOverlay\traffic2\symbol(2).png.size
A            GuiOverlay\traffic2\symbol(3).png
    H        GuiOverlay\traffic2\symbol(3).png.mftc
    H        GuiOverlay\traffic2\symbol(3).png.size
A            GuiOverlay\traffic2\symbol(4).png
    H        GuiOverlay\traffic2\symbol(4).png.mftc
    H        GuiOverlay\traffic2\symbol(4).png.size
A            GuiOverlay\traffic2\symbol(5).png
    H        GuiOverlay\traffic2\symbol(5).png.mftc
    H        GuiOverlay\traffic2\symbol(5).png.size
A            GuiOverlay\traffic2\symbol(q).png
A            GuiOverlay\traffic2\symbolOffline(1).png
    H        GuiOverlay\traffic2\symbolOffline(1).png.mftc
    H        GuiOverlay\traffic2\symbolOffline(1).png.size
A            GuiOverlay\traffic2\symbolOffline(2).png
    H        GuiOverlay\traffic2\symbolOffline(2).png.mftc
    H        GuiOverlay\traffic2\symbolOffline(2).png.size
A            GuiOverlay\traffic2\symbolOffline(3).png
    H        GuiOverlay\traffic2\symbolOffline(3).png.mftc
    H        GuiOverlay\traffic2\symbolOffline(3).png.size
A            GuiOverlay\traffic2\symbolOffline(4).png
    H        GuiOverlay\traffic2\symbolOffline(4).png.mftc
    H        GuiOverlay\traffic2\symbolOffline(4).png.size
A            GuiOverlay\traffic2\symbolOffline(5).png
    H        GuiOverlay\traffic2\symbolOffline(5).png.mftc
    H        GuiOverlay\traffic2\symbolOffline(5).png.size
A            GuiOverlay\traffic2\symbolOffline(q).png

process.bat

@echo off
set imagemagick=%CD%\ImageMagick\ImageMagick-6.8.6-9\
cscript //nologo %~dp0process.vbs %*

process.lib

Const bFailAfterAssert = 1
Const bDebugOut = 0
Const bDebugExecOut = 0

' tools
function Exec(cmd, echo)
  Redim arrResult(200)
  nResult = 0

  cmd = Replace(cmd, "\'", chr(34))
  if echo = 1 or bDebugExecOut = 1 then
    WScript.Echo "{"&cmd&"}"
  end if
  Set objExecObject = goShell.Exec( cmd )
  Response = ""

  Do Until objExecObject.StdOut.AtEndOfStream
    Result = objExecObject.StdOut.ReadLine() 
    if echo = 1 then
      WScript.Echo Result
    end if
    if nResult > UBound(arrResult) then
      Redim Preserve arrResult(nResult + 200)
    end if 
    arrResult( nResult ) = Result
    nResult = nResult + 1
  Loop  

  Redim Preserve arrResult(nResult-1)
  Exec = arrResult
end function

Sub Echo( str )
  WScript.echo(str)
End Sub

Sub Print( str )
  WScript.echo(str)
End Sub

sub Quit ( errorlevel )
  WScript.Quit errorlevel
end sub


function GetFoldersIn( path )
  Dim files
  files = Exec("cmd /c dir /b /ad " & path, bDebugOut)
  GetFoldersIn= files
end function

function GetFilesRecursive( path, suffix )
  Dim files
  files = Exec("cmd /c dir /b /s """ & path & "\" & suffix & """", bDebugOut)
  GetFilesRecursive = files
end function

function GetFilesIn( path, suffix )
  Dim files
  files = Exec("cmd /c dir /b """ & path & "\" & suffix & """", bDebugOut)
  GetFilesIn = files
end function

function GetHiddenFilesIn( path, suffix )
  Dim files
  files = Exec("cmd /c dir /ah /b """ & path & "\" & suffix & """", bDebugOut)
  GetHiddenFilesIn = files
end function

function GetHiddenFilesRecursive( path, suffix )
  Dim files
  files = Exec("cmd /c dir /ah /b /s """ & path & "\" & suffix & """", bDebugOut)
  GetFilesRecursive = files
end function

Function GetFileContents( file )
  Dim objFile, i
  Set objFile = goFso.OpenTextFile( file, ForReading )
  Dim arrFileLines()
  i = 0
  Do Until objFile.AtEndOfStream
    Redim Preserve arrFileLines(i)
    arrFileLines(i) = objFile.ReadLine
  i = i + 1
  Loop
  objFile.Close
  GetFileContents = arrFileLines
end Function

Function Assert( bool, msg )
  if not bool then
    Echo "Assert! : " & msg
    if bFailAfterAssert then 
      Quit 1
    end if
  end if 
End Function

Function FileExists( file )
  FileExists = goFso.FileExists(file)
End Function

Function FolderExists( file )
  FolderExists = goFso.FolderExists(file)
End Function

function CreateDirectory(sPath)
  if not FolderExists(sPath) then
    goFso.CreateFolder(sPath)
  end if
end function

Function Copy( sFrom, sTo )
  On Error Resume Next
  goFso.CopyFile sFrom, sTo
  if ErrorHandler( Err ) then
    Print "When calling Copy('" & sFrom & "', '" & sTo & "')"
    Quit 1
  end if
End Function

Function Delete( sFile )
  goFso.DeleteFile sFile, true 'DeleteReadOnly 
End Function

Function ErrorHandler( e )
  if e.Number = 0 then
    ErrorHandler = False
    exit function
  end if

  WScript.Echo "Error: " & e.Number
  WScript.Echo "Error (Hex): " & Hex(e.Number)
  WScript.Echo "Source: " &  e.Source
  WScript.Echo "Description: " &  e.Description
  e.Clear
  ErrorHandler = True
End Function

Function FileSize( sFile )
  Set File = goFso.GetFile(sFile)
  FileSize = File.Size
End Function

Function FunctionExists( func_name )
	FunctionExists = False 

	On Error Resume Next

	Dim f : Set f = GetRef(func_name)

	If Err.number = 0 Then
		FunctionExists = True
	End If 	
	On Error GoTo 0
End Function

process.vbs

Option Explicit

Const ForReading = 1

Dim goFso, goShell, goXml, goNet, objEnvironment
Set goFso = CreateObject("Scripting.FileSystemObject")
Set goShell = CreateObject("WScript.Shell")
Set goXml = CreateObject("Microsoft.XMLDOM")
Set goNet = CreateObject("WScript.Network")
Set objEnvironment = goShell.Environment( "PROCESS" )

Dim strScriptRoot, strProject, strImRoot, strCurrentScript, strCurrentRoot, strAction
strScriptRoot = Replace(WScript.ScriptFullName, WScript.ScriptName, "") 

Dim bConfigEmbedIndex
Dim strMark
ExecuteGlobal goFso.OpenTextFile(strScriptRoot & "process.lib", ForReading).ReadAll()

strMark = ""
strAction = "process"
'strAction = "clean"
bConfigEmbedIndex = false
Main

function Main
  dim arrRules, sRuleFile

  strImRoot = objEnvironment( "IMAGEMAGICK" )
  if strImRoot = "" then
    Print "Cannot find image magick!"
    Quit(1)
  end if

  if Wscript.Arguments.Count = 1 Then
    sRuleFile = Wscript.Arguments(0)
    strCurrentScript = sRuleFile
    strCurrentRoot = goFso.GetParentFolderName(sRuleFile)
    Print "Executing script: " & sRuleFile
    ExecuteGlobal goFso.OpenTextFile(sRuleFile, ForReading).ReadAll()
    exit function
  end if

  arrRules = GetFilesRecursive( strScriptRoot, "rules.vbs" )

  Assert IsEmpty(arrRules) = False, "Neviem najst ziadne pravidla"

  for each sRuleFile in arrRules
    strCurrentScript = sRuleFile
    strCurrentRoot = goFso.GetParentFolderName(sRuleFile)
    Print "Executing script: " & sRuleFile
    ExecuteGlobal goFso.OpenTextFile(sRuleFile, ForReading).ReadAll()
  next
end function

function getFiles(sFileMask)
  dim arrFiles, i
  arrFiles = GetFilesIn( strCurrentRoot, sFileMask )
  for i = 0 to ubound(arrFiles)
    arrFiles(i) = strCurrentRoot & "\" & arrFiles(i)
  next
  getFiles = arrFiles
end function

function processFile(sSource, sTargetMask, arrIndices, arrSizes, strMethod1)
  dim i, strTargetFile, sExtra, bNui, strMethod
  Assert UBound(arrIndices) = UBound(arrSizes), "array sizes does not match"
  bNui = False
  strMethod = strMethod1
  if Right(strMethod, 3) = "Nui" then
    strMethod = Mid(strMethod, 1, Len(strMethod)-3)
    bNui = true
  end if

  for i = 0 to ubound(arrSizes)
   do
    ' pre zmensenie velkosti datka, lebo v app je kus odveci kodu ktory nedovoli pouzit vacsi image index ako je 5 !!!
    if NOT bNui Then
      if arrIndices(i) > 5 then exit do
    End if
'    if arrIndices(i) = 6 or arrIndices(i) > 7 then exit do

    strTargetFile = Replace( sTargetMask, "?", CStr(arrIndices(i)) )
    if bConfigEmbedIndex then
      sExtra = "-pointsize 20 -fill white -stroke black -strokewidth 2"
      sExtra = sExtra & " -draw ""text 2,22 '" & CStr(arrIndices(i)) & "'"""
      sExtra = sExtra & " -stroke none "
      sExtra = sExtra & " -draw ""text 2,22 '" & CStr(arrIndices(i)) & "'"""
    end if
    if strMark <> "" then
      sExtra = "-pointsize 20 -fill white -stroke black -strokewidth 2"
      sExtra = sExtra & " -draw ""text 2,22 '" & strMark & "'"""
      sExtra = sExtra & " -stroke none "
      sExtra = sExtra & " -draw ""text 2,22 '" & strMark & "'"""
    end if

    select case strAction
      case "process":      
        CleanMaterial strTargetFile

        select case strMethod
          case "ScaleWidth": Exec strImRoot & "\convert.exe" & " " & sSource & " -strip -resize " & arrSizes(i) & " " & sExtra & " " & strTargetFile, 1
          case "ScaleHeight": Exec strImRoot & "\convert.exe" & " " & sSource & " -strip -resize x" & arrSizes(i) & " " & sExtra & " " & strTargetFile, 1
          case "Relative": Exec strImRoot & "\convert.exe" & " " & sSource & " -strip -resize " & arrSizes(i) & "% " & sExtra & " " & strTargetFile, 1
          case else: Assert False, "unknown scaling method: " & strMethod
        end select

        SetFileAttribute strTargetFile, 2

      case "clean":
        'ClearFileAttribute strTargetFile, 2
'Print "deleting: " & strTargetFile
        CleanMaterial strTargetFile
    end select
   loop while false
  next
'  Echo sSource & " - " & sTargetMask & " - " & arrSizes(1)
end function

function CleanMaterial(strFile)
  if FileExists( strFile ) then
    Delete strFile
  end if
  if FileExists(strFile & ".mftc") then
    Delete strFile & ".mftc"
  end if
  if FileExists(strFile & ".size") then
    Delete strFile & ".size"
  end if
end function

function processFiles(arrSrcFileMask, arrDstFileMask, arrIndices, arrSizes, strMethod)
  Dim sFileMask, i
  Assert UBound(arrSrcFileMask) = UBound(arrDstFileMask), "array sizes does not match"
  for i = 0 to UBound(arrSrcFileMask)
    processFile arrSrcFileMask(i), arrDstFileMask(i), arrIndices, arrSizes, strMethod
  next
end function

function replaceEach(arrAll, strFind, strReplace)
  dim sString, i
  dim arrResult()
  Redim arrResult(ubound(arrAll))

  for i = 0 to UBound(arrAll)
    arrResult(i) = Replace( arrAll(i), strFind, strReplace )
  next
  replaceEach = arrResult
end function

function multiplyEach(arrAll, factor)
  dim arrResult()
  dim i
  Redim arrResult(ubound(arrAll))

  for i = 0 to UBound(arrAll)
    arrResult(i) = Int(CInt(arrAll(i)) * factor)
  next
  multiplyEach = arrResult
end function

function addEach(arrAll, value)
  dim arrResult()
  dim i
  Redim arrResult(ubound(arrAll))

  for i = 0 to UBound(arrAll)
    arrResult(i) = Int(CInt(arrAll(i)) + value)
  next
  addEach = arrResult
end function

function SetFileAttribute(strName, nAttr)
  Dim fFile
  Set fFile = goFso.GetFile(strName) 'goFso.GetFileName(filespec)) 
  fFile.attributes = fFile.attributes or nAttr ' hidden
end function

function ClearFileAttribute(strName, nAttr)
  if not FileExists( strName ) then
    exit function
  end if
  Dim fFile
  Set fFile = goFso.GetFile(strName) 'goFso.GetFileName(filespec)) 
  fFile.attributes = fFile.attributes and not nAttr ' hidden
end function

rules.vbs

k = 51/640

refs    = Array(240, 320, 480, 640, 768, 1080, 1536)
indices = Array(1,   2,   3,   4,   5,   7,    10  )
sizes   = multiplyEach( refs, k )

filesSrc = getFiles("providerYandex(q).png")
filesDst = replaceEach( filesSrc, "(q)", "(?)" )
processFiles filesSrc, filesDst, indices, sizes, "ScaleHeight"

k = 25/640

refs    = Array(240, 320, 480, 640, 768, 1080, 1536)
indices = Array(1,   2,   3,   4,   5,   7,    10  )
sizes   = multiplyEach( refs, k )

filesSrc = getFiles("*loading(q).png")
filesDst = replaceEach( filesSrc, "(q)", "(?)" )
processFiles filesSrc, filesDst, indices, sizes, "ScaleWidth"

k = 50/640

refs    = Array(240, 320, 480, 640, 768, 1080, 1536)
indices = Array(1,   2,   3,   4,   5,   7,    10  )
sizes   = multiplyEach( refs, k )

filesSrc = getFiles("symbol*(q).png")
filesDst = replaceEach( filesSrc, "(q)", "(?)" )
processFiles filesSrc, filesDst, indices, sizes, "ScaleWidth"


k = 100/640  ' index 4 => 100%

refs    = Array(240, 320, 480, 640, 768, 1080, 1536)
indices = Array(1,   2,   3,   4,   5,   7,    10  )
sizes   = multiplyEach( refs, k )

filesSrc = getFiles("*(r).png")
filesDst = replaceEach( filesSrc, "(r)", "(?)" )
processFiles filesSrc, filesDst, indices, sizes, "Relative"