@verb #1971:"reflex_rules" this none this rxdo #9342
@program #1971:"reflex_rules" this none this
"Detects potential three in a rows.  Used to both make and block them."
go = {}
for big_rule in ({"+11??????", "1+1??????", "???+11???", "???1+1???", "1???1???+", "1???+???1"})
  suspend(0)
  for rule in (this:mirror(big_rule))
    ok = 0
    for pointer in [1..9]
      if ((letter = rule[pointer]) == "?" || (letter == "1" && args[1] == this.board[pointer]) || (letter == "+" && this.board[pointer] == " "))
        ok = ok + 1
      endif
    endfor
    if (ok == 9)
      go = setadd(go, index(rule, "+"))
    endif
  endfor
endfor
return go ? go[random(length(go))] | 0
.