SetWorkingDir %A_ScriptDir%

FileRead, tiStr, % A_ScriptDir "\d16.txt"

tiA := StrSplit(tiStr, "`r`n`r`n")

ruA := {}
for i, j in StrSplit(tiA[1], "`r`n") {
    rA := StrSplit(j, [": "])
    rA[2] := StrSplit(rA[2], " or ")
    for k, l in rA[2] {
        rA[2][k] := StrSplit(l, "-")
    }
    ruA[i] := rA
}

ticA := {}
ticA[1] := StrSplit(StrSplit(tiA[2], ":`r`n")[2], ",")

for i, j in StrSplit(tiA[3], "`r`n") {
    if (i = 1)
        Continue
    ticA[i] := StrSplit(j, ",")
}

errorRate := 0
for i, ticket in ticA {
    if (i = 1)
        Continue
    for j, value in ticket {
        valid := 0
        for k, rule in ruA {
            for l, values in rule[2] {
                if (value >= values[1]) and (value <= values[2]) {
                    valid := 1
                }
            }
        }
        if !valid
            errorRate += value
    }
}
Clipboard := errorRate