SetWorkingDir %A_ScriptDir%

FileRead, slopeStr, % A_ScriptDir "\d3.txt"

slopeLines := StrSplit(slopeStr, "`r`n")

count := 0

xPos := 0
for yPos, Line in slopeLines {
    if SubStr(Line, xPos + 1, 1) = "#"
        count += 1
    xPos := Mod(xPos + 3, StrLen(Line))
}

Clipboard := count