NG+ upscaler

Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading
Imports System.Drawing

Module Module1
    Dim Logs As StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(Environment.CurrentDirectory & "\NGUpscaler-log.txt", True, System.Text.Encoding.UTF8)
    Dim NGDir As String
    Dim RemasterDir As String
    Dim ParentDir As String = Environment.CurrentDirectory
    Dim SharedDir As String = ParentDir & "\SharedFiles"
    Dim scalefraction As String
    Dim ScaleFactor As Double
    Dim mode As String
    Dim choice As String
    Dim ShouldMerge As Boolean
    Dim ListOfMerges As List(Of String) = {"tamamo_st21.bmp", "gnome_st33r.png",
        "008.bmp", "009a_05.bmp", "015_01.bmp", "015_01.jpg",
        "015_02.bmp", "015_02.jpg",
        "015_03.bmp", "015_03.jpg",
        "015_04.bmp", "015_04.jpg",
        "017_01.bmp", "017_01.jpg",
        "017_02.bmp", "017_02.jpg",
        "017_03.bmp", "017_03.jpg",
        "017_04.bmp", "017_04.jpg",
        "017_05.bmp", "017_05.jpg", "blackwind.bmp",
        "elm_poison.bmp", "logo.bmp", "poseidoness.bmp", "poseidoness2.bmp", "window1f.bmp"}.ToList


    Sub Main()
        Logs.AutoFlush = True
        Logs.WriteLine(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & DateTime.Now.ToShortDateString & " - " & Now.TimeOfDay.ToString & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf)


        Console.WriteLine("To use this installer the following folder structure is required:")
        Console.WriteLine(">Parent directory")
        Console.WriteLine("     >Directory where the NG+ zip was extracted")
        Console.WriteLine("     >Directory where the Remaster is installed")
        Console.WriteLine("This file must be placed inside the parent directory.")
        Console.WriteLine("Press Enter to continue.")
        Console.ReadLine()
        Console.Clear()
        Do
            Console.WriteLine("Please input the folder name of where NG+ was extracted:")
            NGDir = Console.ReadLine()
            NGDir = ParentDir & "\" & NGDir
            If Not (Directory.Exists(NGDir)) Then
                Console.WriteLine("That folder does not exist. Try again.")
            ElseIf Not (File.Exists(NGDir & "\mon_que_ng+.exe")) Then

                Console.WriteLine("The folder does not contain NG+.")
            End If

        Loop While Not Directory.Exists(NGDir) Or Not File.Exists(NGDir & "\mon_que_ng+.exe")
        Console.Clear()
        Do
            Console.WriteLine("Please input the folder name of where the Remaster was installed:")
            RemasterDir = Console.ReadLine()
            RemasterDir = ParentDir & "\" & RemasterDir
            If Not (Directory.Exists(RemasterDir)) Then
                Console.WriteLine("That folder does not exist. Try again.")
            ElseIf Not (File.Exists(RemasterDir & "\Monster Girl Quest Remastered.exe")) Then
                Console.WriteLine("The folder does not contain the remaster.")
            End If

        Loop While Not Directory.Exists(RemasterDir) Or Not File.Exists(RemasterDir & "\Monster Girl Quest Remastered.exe")

        Do
            Console.WriteLine("Use GPU acceleration? (Note: Requires an Nvidia GPU and CUDA, run cuda.exe to install it if you haven't already, it's in the mod folder of the remaster)")
            Console.WriteLine("1) Yes")
            Console.WriteLine("2) No")
            choice = Console.ReadLine()
            If choice = "1" Then
                mode = "gpu"
                Console.Clear()
                Exit Do
            ElseIf choice = "2" Then
                mode = "cpu"
                Console.Clear()
                Exit Do
            End If
            Console.Clear()
        Loop

        Do
            Console.WriteLine("Please enter the number corresponding to your resolution then press Enter to confirm.")
            Console.WriteLine("1) 1080p")
            Console.WriteLine("2) 720p")
            choice = Console.ReadLine()
            If choice = "1" Then
                ScaleFactor = 1.8
                scalefraction = "*18/10"
                Console.Clear()
                Exit Do
            ElseIf choice = "2" Then
                ScaleFactor = 1.5
                scalefraction = "*15/10"
                Console.Clear()
                Exit Do
            End If
            Console.Clear()
        Loop

        If Not (File.Exists(RemasterDir & "\mod\SideStoryUpscaler.exe")) Then
            Console.WriteLine("THIS PROGRAM REQUIRES THAT YOU HAVE THE SIDESTORYUPSCALER INSTALLED.")
            Console.WriteLine("PLEASE DOWNLOAD IT FROM THE UPDATES LINK IN THE PASTEBIN AND INSTALL IT IN THE CORRECT LOCATION.")
            Return
        End If



        If Not (Directory.Exists(SharedDir)) Then
            Directory.CreateDirectory(SharedDir)
            Directory.Move(RemasterDir & "\bg", SharedDir & "\bg")
            Directory.Move(RemasterDir & "\chara", SharedDir & "\chara")
            Directory.Move(RemasterDir & "\effect", SharedDir & "\effect")
            Directory.Move(RemasterDir & "\ency", SharedDir & "\ency")
            Directory.Move(RemasterDir & "\se", SharedDir & "\se")
            Directory.Move(RemasterDir & "\system", SharedDir & "\system")
        End If
        'We have established where NG+ and the remaster are installed. Let's start moving the folders.
        'Now we have all the dirs moved. Junctions time.
        MakeJunction(SharedDir & "\bg", RemasterDir & "\bg")
        MakeJunction(SharedDir & "\chara", RemasterDir & "\chara")
        MakeJunction(SharedDir & "\effect", RemasterDir & "\effect")
        MakeJunction(SharedDir & "\ency", RemasterDir & "\ency")
        MakeJunction(SharedDir & "\se", RemasterDir & "\se")
        MakeJunction(SharedDir & "\system", RemasterDir & "\system")

        MakeJunction(SharedDir & "\bg", NGDir & "\bg")
        MakeJunction(SharedDir & "\chara", NGDir & "\chara")
        MakeJunction(SharedDir & "\effect", NGDir & "\effect")
        MakeJunction(SharedDir & "\ency", NGDir & "\ency")
        MakeJunction(SharedDir & "\se", NGDir & "\se")
        MakeJunction(SharedDir & "\system", NGDir & "\system")


        'Now the remaster is back where it was, only with junctions. Time to copy the miscellaneous files.
        File.Copy(RemasterDir & "\arc.nsa", NGDir & "\arc.nsa", True)
        File.Copy(RemasterDir & "\arc1.nsa", NGDir & "\arc1.nsa", True)
        File.Copy(RemasterDir & "\arc2.nsa", NGDir & "\arc2.nsa", True)
        File.Copy(RemasterDir & "\NSFont.dll", NGDir & "\NSFont.dll", True)
        File.Copy(RemasterDir & "\nslua.dll", NGDir & "\nslua.dll", True)
        File.Copy(RemasterDir & "\nsogg2.dll", NGDir & "\nsogg2.dll", True)
        File.Copy(RemasterDir & "\nspng.dll", NGDir & "\nspng.dll", True)
        File.Copy(RemasterDir & "\SDL.dll", NGDir & "\SDL.dll", True)

        Directory.CreateDirectory(NGDir & "\save")

        'Time to upscale.

        If File.Exists(NGDir & "\2Q\effect\015_01.bmp") Then
            Dim frtemp As FileInfo = New FileInfo(NGDir & "\2Q\effect\015_01.bmp")
            ShouldMerge = MaskCheck(frtemp)
        End If

        Dim di As New DirectoryInfo(NGDir & "\2Q")
        Dim count As Integer = 0
        For Each subfolder As DirectoryInfo In di.GetDirectories("*", SearchOption.AllDirectories)
            If subfolder.Name = "bgm" Or subfolder.Name = "se" Then
                Continue For
            End If
            count = 0
            Dim fiArr As FileInfo() = subfolder.GetFiles()
            Dim listoflines As List(Of String)

            If Not (File.Exists(subfolder.FullName & "\filelist.txt")) Then
                Dim sw2 As StreamWriter = New StreamWriter(subfolder.FullName & "\filelist.txt")
                sw2.Write("")
                sw2.Flush()
                sw2.Close()
            End If

            listoflines = File.ReadAllLines(subfolder.FullName & "\filelist.txt").ToList

            For Each fri In fiArr
                count = count + 1
                If subfolder.Name = "effect" Or subfolder.Name = "system" Or subfolder.Name = "chara" Then
                    If ListOfMerges.Contains(fri.Name) And ShouldMerge = True Then
                        Dim tempfriname = fri.FullName
                        SplitAndMerge(fri)
                        fri = New FileInfo(fri.FullName.Substring(0, fri.FullName.Length - 4) & ".png")
                    End If
                End If
                If fri.Name = "minccubus_hd1.jpg.png" Or fri.Name = "minccubus_hd1.jpg" Then
                    Continue For
                End If
                Console.WriteLine("File " & count & " out of " & fiArr.Length)
                If fri.Extension <> ".bmp" And fri.Extension <> ".png" And fri.Extension <> ".jpg" And fri.Extension <> ".jpeg" Then
                    Continue For
                End If
                If listoflines.Contains(fri.Name & ",1") Then   'was in progress, grab the copy
                    Dim tempfriname As String = fri.FullName
                    File.Delete(tempfriname)
                    File.Copy(tempfriname & "_temp", tempfriname)
                    fri = New FileInfo(tempfriname)
                    Console.WriteLine("File " & fri.Name & " was interrupted, restarting")
                ElseIf listoflines.Contains(fri.Name & ",0") Then   'already upscaled
                    Console.WriteLine("Already upscaled.")
                    Continue For
                Else    'It never started upscaling
                    listoflines.Add(fri.Name & ",1")
                    Dim sw As StreamWriter = File.AppendText(subfolder.FullName & "\filelist.txt")
                    sw.WriteLine(fri.Name & ",1")
                    sw.Close()
                    File.Copy(fri.FullName, fri.FullName & "_temp")
                End If
                'Upscale.
                Console.WriteLine("Upscaling file " & fri.Name)
                Upscale(fri)
                listoflines.Item(listoflines.Count() - 1) = listoflines.Item(listoflines.Count() - 1).Replace(",1", ",0").Replace(".jpg", ".png").Replace(".bmp", ".png").Replace(".jpeg", ".png")

                File.Delete(subfolder.FullName & "\filelist.txt")
                File.WriteAllLines(subfolder.FullName & "\filelist.txt", listoflines.ToArray)
                If File.Exists(fri.FullName & "_temp") Then
                    File.Delete(fri.FullName & "_temp")
                End If
            Next
        Next

        Dim CurrentFile As Integer = 0
        count = 0

        If Not (Directory.Exists(NGDir & "\txtbackups")) Then
            Directory.CreateDirectory(NGDir & "\txtbackups")
        Else    'Means it already started running at some point. Starts over.
            Do While File.Exists(NGDir & "\txtbackups\" & CurrentFile & ".txt")
                File.Delete(NGDir & "\" & CurrentFile & ".txt")
                File.Copy(NGDir & "\txtbackups\" & CurrentFile & ".txt", NGDir & "\" & CurrentFile & ".txt")
                CurrentFile = CurrentFile + 1
            Loop
            CurrentFile = 0
        End If

        Console.WriteLine("Done with the upscaling.")
        Console.WriteLine("Starting txt file edits.")

        Do While File.Exists(NGDir & "\" & CurrentFile & ".txt")
            Console.WriteLine("File " & CurrentFile & ".txt")
            If Not (File.Exists(NGDir & "\txtbackups\" & CurrentFile & ".txt")) Then
                File.Move(NGDir & "\" & CurrentFile & ".txt", NGDir & "\txtbackups\" & CurrentFile & ".txt")
            Else
                File.Delete(NGDir & "\" & CurrentFile & ".txt")
            End If

            Dim reader As StreamReader = New StreamReader(NGDir & "\txtbackups\" & CurrentFile & ".txt")
            Dim writer As StreamWriter = New StreamWriter(NGDir & "\" & CurrentFile & ".txt")
            Dim a As String
            Do
                a = reader.ReadLine
                If a = ";$V50000G6750S800,600L10000		;?????800*600????????%1500~" Then           'Special case for the resolution setting
                    writer.WriteLine(";$V10000G1500S1440,1080L10000		;TCY800*600AO[o%1500`")
                    Continue Do
                End If
                If a Is Nothing Then
                    Exit Do
                End If
                If a.Contains(".bmp") Then
                    a = a.Replace(".bmp", ".png")
                End If
                If a.Contains(".jpg") Then
                    a = a.Replace(".jpg", ".png")
                End If
                If a.Contains(".jpeg") Then
                    a = a.Replace(".jpeg", ".png")
                End If

                If a.Contains("lsp ") Then
                    Dim bodge As Boolean = False
                    If a.IndexOf("lsp") > 0 Then
                        Console.WriteLine(a)
                        Console.WriteLine(GetChar(a, a.IndexOf("lsp")))
                        If GetChar(a, a.IndexOf("lsp")) = ";" Or GetChar(a, a.IndexOf("lsp")) = ">" Then
                            Console.WriteLine("it's a comment/whatever the fuck the one with > is.")
                            bodge = True
                        End If
                    End If
                    If bodge = False Then
                        Dim i As Integer = a.IndexOf("lsp")
                        i = a.IndexOf("""", i)
                        Console.WriteLine(a.Substring(i + 1, 3))


                        If a.Substring(i + 1, 3) = ":s/" Then

                            Dim i3 As Integer = a.IndexOf(":s/") + 3
                            Dim i2 As Integer = a.IndexOf(",", i3)

                            i2 = a.IndexOf(",", i2 + 1)
                            Dim currenttextsize As String = a.Substring(i3, i2 - i3)
                            Console.WriteLine(currenttextsize)

                            Dim size1, size2 As Integer
                            Console.WriteLine(currenttextsize.Substring(0, currenttextsize.Length - currenttextsize.IndexOf(",") - 1))
                            Console.WriteLine(currenttextsize.Substring(currenttextsize.IndexOf(",") + 1))

                            size1 = currenttextsize.Substring(0, currenttextsize.Length - currenttextsize.IndexOf(",") - 1)
                            size2 = currenttextsize.Substring(currenttextsize.IndexOf(",") + 1)
                            If ScaleFactor = "1.8" Then
                                a = a.Replace(":s/" & size1 & "," & size2, ":s/" & size1 + 10 & "," & size2 + 10)
                            Else
                                a = a.Replace(":s/" & size1 & "," & size2, ":s/" & size1 + 7 & "," & size2 + 7)
                            End If
                            'Text sizes should now be fixed.
                            Console.WriteLine(a)

                        End If


                        i = a.IndexOf("""", i + 1) + 1      'i is now after the " close
                        If i = 0 Then
                            i = a.IndexOf(",", i) + 1
                        End If
                        i = a.IndexOf(",", i) + 1
                        a = a.Insert(i, "(")
                        a = a.Insert(a.IndexOf(",", i), ")" & scalefraction)
                        Dim i4 As Integer = a.IndexOf(",", i) + 1   'i4 should be just after the ,
                        a = a.Insert(i4, "(")
                        Console.WriteLine((GetChar(a, i4)))

                        Console.WriteLine(a.IndexOf(":", i4))
                        Console.WriteLine(a.IndexOf(";", i4))
                        If a.IndexOf(":", i4) <> -1 Then
                            i4 = a.IndexOf(":", i4)
                            a = a.Insert(i4, ")" & scalefraction)
                        ElseIf a.IndexOf(";", i4) <> -1 Then
                            i4 = a.IndexOf(";", i4)
                            Do While Not (Char.IsNumber(GetChar(a, i4)))
                                Console.WriteLine(GetChar(a, i4))
                                i4 = i4 - 1
                            Loop


                            If GetChar(a, i4 + 1) = "," Then
                                Console.WriteLine(a)
                                Console.WriteLine(GetChar(a, i4 + 3))
                                'Console.ReadLine()
                                If GetChar(a, i4 + 3) = "%" Then
                                    i4 = i4 + 3
                                    Dim r As Regex = New Regex("[^a-zA-Z0-9()%+]", RegexOptions.IgnoreCase)
                                    Dim m As Match
                                    m = r.Match(GetChar(a, i4))
                                    Do Until m.Success
                                        i4 = i4 + 1
                                        m = r.Match(GetChar(a, i4))
                                    Loop
                                    a = a.Insert(i4 - 1, ")" & scalefraction)
                                    Console.WriteLine(a)
                                    'Console.ReadLine()
                                End If

                            Else
                                Dim i5 As Integer = i4
                                Do While Char.IsNumber(GetChar(a, i5))
                                    i5 = i5 - 1
                                Loop
                                If GetChar(a, i5) = "+" Then
                                    a = a.Insert(i4, ")" & scalefraction)
                                Else
                                    a = a.Insert(i4, ")" & scalefraction)
                                End If
                                Console.WriteLine(a)
                                'Console.ReadLine()
                            End If

                            Console.WriteLine(a)
                        Else
                            a = a & ")" & scalefraction
                        End If

                        Console.WriteLine(a)

                        If a.Contains("**") Or a.Contains(",*") Or a.Contains(":*") Then
                            Console.ReadLine()
                        End If
                        'Positions should now be multiplied correctly.

                    End If

                End If

                If a.Contains("strsp") Then
                    Console.WriteLine(a)
                    Dim i As Integer = a.IndexOf("strsp")
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    a = a.Insert(i, "(")
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, ")" & scalefraction)
                    i = a.IndexOf(",", i) + 1
                    a = a.Insert(i, "(")
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, ")" & scalefraction)
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+12")
                    Else
                        a = a.Insert(i, "+5")
                    End If
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+12")
                    Else
                        a = a.Insert(i, "+5")
                    End If
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+18")
                    Else
                        a = a.Insert(i, "+12")
                    End If
                    Console.WriteLine(a)
                End If

                If a.Contains("getscreenshot") Then
                    Console.WriteLine(a)
                    Dim i As Integer = a.IndexOf("getscreenshot")
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, scalefraction)
                    i = a.IndexOf(",", i) + 1
                    Console.WriteLine(GetChar(a, i))
                    i = i + 1
                    Dim bodge As Boolean = False
                    Do While Char.IsNumber(GetChar(a, i))
                        Console.WriteLine(GetChar(a, i))
                        i = i + 1
                        If i = a.Length Then
                            a = a & scalefraction
                            bodge = True
                        End If
                    Loop
                    If Not (bodge) Then
                        a = a.Insert(i - 1, scalefraction)
                    End If


                    Console.WriteLine(a)
                End If

                If a.Contains("mov $savetime," & """" & ":s/") Or a.Contains("mov $savenum," & """" & ":s/") Then
                    Console.WriteLine(a)
                    Dim i As Integer = a.IndexOf("""")
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+10")
                    Else
                        a = a.Insert(i, "+7")
                    End If
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+10")
                    Else
                        a = a.Insert(i, "+7")
                    End If
                    Console.WriteLine(a)
                End If

                If a.Contains("btn ") Then
                    Console.WriteLine(a)
                    Dim r As Regex = New Regex("[^a-zA-Z0-9]btn ", RegexOptions.IgnoreCase)
                    Dim m As Match
                    m = r.Match(a)
                    If m.Success Then
                        Dim i As Integer = a.IndexOf("btn ")
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        Console.WriteLine(a)
                    End If
                End If

                If a.Contains("setwindow3") Then
                    Dim i As Integer = a.IndexOf(",")
                    a = a.Insert(a.IndexOf(","), scalefraction)
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, scalefraction)
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+10")
                    Else
                        a = a.Insert(i, "+4")
                    End If
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    If ScaleFactor = "1.8" Then
                        a = a.Insert(i, "+10")
                    Else
                        a = a.Insert(i, "+4")
                    End If
                    i = a.IndexOf("#")
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, scalefraction)
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, scalefraction)
                    i = a.IndexOf(",", i) + 1
                    i = a.IndexOf(",", i)
                    a = a.Insert(i, scalefraction)
                    i = a.IndexOf(":", i) - 1
                    a = a.Insert(i, scalefraction)

                    Console.WriteLine(a)

                End If

                If a.Contains("bar ") Then
                    Dim i As Integer = a.IndexOf("bar ") + 4
                    Console.WriteLine(a)
                    Console.WriteLine(GetChar(a, i + 1))

                    If Char.IsNumber(GetChar(a, i + 1)) Then
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i + 1) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i + 1) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        i = a.IndexOf(",", i + 1) + 1
                        i = a.IndexOf(",", i)
                        a = a.Insert(i, scalefraction)
                        Console.WriteLine(a)

                    End If
                End If

                If a.Contains("mov %monster_x") Then
                    Dim i As Integer = a.IndexOf(",")
                    Dim indexchar As String
                    Console.WriteLine(GetChar(a, i))
                    If GetChar(a, i) <> "x" Then        'This handles the cases where it's %monster_xb etc.
                        indexchar = GetChar(a, i)
                    Else
                        indexchar = ""
                    End If
                    If a.Contains(":") Then         'if there is a command following this one
                        i = a.IndexOf(":")
                        a = a.Insert(i, ":mul %monster_x" & indexchar & "," & ScaleFactor)
                    Else
                        a = a & ":mul %monster_x" & indexchar & "," & ScaleFactor
                    End If
                    Console.WriteLine(a)

                End If

                If a.Contains("mov %monster_y") Then
                    Dim i As Integer = a.IndexOf(",")
                    Dim indexchar As String
                    Console.WriteLine(GetChar(a, i))
                    If GetChar(a, i) <> "y" Then        'This handles the cases where it's %monster_xb etc.
                        indexchar = GetChar(a, i)
                    Else
                        indexchar = ""
                    End If
                    If a.Contains(":") Then         'if there is a command following this one
                        i = a.IndexOf(":")
                        a = a.Insert(i, ":mul %monster_y" & indexchar & "," & ScaleFactor)
                    Else
                        a = a & ":mul %monster_y" & indexchar & "," & ScaleFactor
                    End If
                    Console.WriteLine(a)

                End If


                writer.WriteLine(a)
            Loop Until a Is Nothing
            reader.Close()
            writer.Close()




            Console.WriteLine("Loop end.")

            CurrentFile = CurrentFile + 1
        Loop





        Logs.Close()
    End Sub

    Sub MakeJunction(Link As String, Target As String)
        If Not (Directory.Exists(Target)) Then
            RunCommandH("""C:\Windows\System32\cmd.exe""", " /c mklink /J " & """" & Target & """" & " """ & Link & """")
        End If

    End Sub




    Function RunCommandH(Command As String, Arguments As String) As String
        'Console.WriteLine(Command)
        Logs.WriteLine(Command & Arguments)
        'Console.ReadLine()
        Dim oProcess As New Process()
        Dim oStartInfo As New ProcessStartInfo(Command, Arguments)
        oStartInfo.UseShellExecute = False
        oStartInfo.RedirectStandardOutput = True
        oProcess.StartInfo = oStartInfo
        Try
            oProcess.Start()
        Catch ex As Exception
            File.WriteAllText(ParentDir & "crashreport.txt", ex.ToString)
            Console.WriteLine(ParentDir)
            Console.WriteLine(ex.ToString)
            Console.WriteLine("Something went wrong.")
            Console.WriteLine("Please message me on discord (you can find me on the NG+ server, check ecstasywastaken.blogspot.com for the link) and send me the crashreport.txt and NGupscaler-log.txt files.")
            Console.ReadLine()
        End Try



        Dim sOutput As String
        Using oStreamReader As System.IO.StreamReader = oProcess.StandardOutput
            sOutput = oStreamReader.ReadToEnd()
        End Using
        If Not Arguments.Contains("verbose") Or Arguments.Contains("[1x1") Then
            Logs.Writeline(sOutput)
            'Console.WriteLine(sOutput)
        End If


        oProcess.WaitForExit()
        Return sOutput
        oProcess.WaitForExit()

        oProcess.Dispose()

    End Function

    Sub Upscale(fri As FileInfo)

        RunCommandH("""" & RemasterDir & "\mod\waifu2x\waifu2x-caffe-cui.exe""", "-p " & mode & " -s " & ScaleFactor & " --Model_dir """ & RemasterDir & "\mod\waifu2x\models\anime_style_art_rgb"" -i """ & fri.FullName & """ -o """ & fri.FullName.Substring(0, fri.FullName.Length - 4) & ".png""")
        If fri.Extension <> ".png" Then
            fri.Delete()
        End If
    End Sub




    Function MaskCheck(fri As FileInfo) As Boolean

        If fri.Extension <> ".bmp" Then
            Return False
        End If

        If fri.FullName.Contains("black.bmp") Or fri.FullName.Contains("Marco1") Then
            Return True
        End If
        Dim bmp As New Bitmap(fri.FullName)
        Dim FileNameOnly As String = fri.FullName.Substring(0, fri.FullName.Length - 4)
        Dim Corner1, Corner2, Corner3, Corner4 As Boolean

        If Getcolor(fri.FullName, "Red", 0, 0) = 0 And Getcolor(fri.FullName, "Green", 0, 0) = 255 And Getcolor(fri.FullName, "Blue", 0, 0) = 0 Then
            Corner1 = True
        Else
            Corner1 = False
        End If

        If Getcolor(fri.FullName, "Red", 0, bmp.Height - 1) = 0 And Getcolor(fri.FullName, "Green", 0, bmp.Height - 1) = 255 And Getcolor(fri.FullName, "Blue", 0, bmp.Height - 1) = 0 Then
            Corner2 = True
        Else
            Corner2 = False
        End If

        If Getcolor(fri.FullName, "Red", bmp.Width / 2 - 1, 0) = 0 And Getcolor(fri.FullName, "Green", bmp.Width / 2 - 1, 0) = 255 And Getcolor(fri.FullName, "Blue", bmp.Width / 2 - 1, 0) = 0 Then
            Corner3 = True
        Else
            Corner3 = False
        End If

        If Getcolor(fri.FullName, "Red", bmp.Width / 2 - 1, bmp.Height - 1) = 0 And Getcolor(fri.FullName, "Green", bmp.Width / 2 - 1, bmp.Height - 1) = 255 And Getcolor(fri.FullName, "Blue", bmp.Width / 2 - 1, bmp.Height - 1) = 0 Then
            Corner4 = True
        Else
            Corner4 = False
        End If

        bmp.Dispose()
        If Corner1 Or Corner2 Or Corner3 Or Corner4 Then
            Return True
        Else
            Return False
        End If

    End Function

    Sub SplitAndMerge(fri As FileInfo)
        Dim filenameonly As String = fri.FullName.Substring(0, fri.FullName.Length - 4)
        RunCommandH("""" & RemasterDir & "\mod\ImageMagick\magick.exe""", "convert -crop 50%x100% """ & fri.FullName & """ """ & filenameonly & "_%d.png""")
        RunCommandH("""" & RemasterDir & "\mod\ImageMagick\magick.exe""", "convert """ & filenameonly & "_0.png"" ( """ & filenameonly & "_1.png"" -colorspace gray -alpha off -negate ) -compose copy-opacity -composite """ & fri.FullName.Substring(0, fri.FullName.Length - 4) & ".png""")

        File.Delete(filenameonly & "_1.png")
        File.Delete(filenameonly & "_0.png")
        If fri.Extension <> ".png" Then
            File.Delete(fri.FullName)
        End If
    End Sub

    Function Getcolor(File As String, Color As String, X As Double, Y As Double) As Int32
        Select Case Color
            Case "Red"
                Color = "r"
            Case "Green"
                Color = "g"
            Case "Blue"
                Color = "b"
        End Select
        Return Convert.ToInt32(RunCommandH("""" & RemasterDir & "\mod\ImageMagick\magick.exe""", "convert """ & File & """[1x1+" & X & "+" & Y & "] -format ""%[fx: floor(255 * u." & Color & ")]"" info:"))
    End Function

End Module