MyArray  := ["_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━", "━", "━", "━", "━", "┓", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━", "━", "┓", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━"]
MyArray2 := ["_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━", "━", "━", "━", "━", "┓", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━", "━", "┓", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "_", "┏", "━"]

Count  := 2

Loop
{
    ArrayCount := 55
    ArrayIndex := 0
    Character  := 1

    if GetKeyState("F2")
    {
        Send {Up}
        Sleep, 100
        Send ^a
        Sleep, 100

        Loop %ArrayCount%
        {

            ArrayCount -= 1
            ArrayIndex += 1

            if (Character = 1)
            {
                MyArray[Count + 0]  := MyArray2[Count + 0]
                MyArray[Count + 1]  := "╰"
                MyArray[Count + 2]  := "("
                MyArray[Count + 3]  := "°"
                MyArray[Count + 4]  := "□"
                MyArray[Count + 5]  := "°"
                MyArray[Count + 6]  := "）"
                MyArray[Count + 7]  := "╯"

                Character = 0
            }

            Send, % MyArray[ArrayIndex]
        }

        Send {Enter}
        Sleep, 100

        Count += 1
    }
}