Four-in-a-row (FlashPascal program)

[Roland Chastain]

AI simply follows certain path were it even prevents you to prepare any posible winning situation.

Yes, it's a very good observation.

    if Max(a) >= 2500 then
      result := IndexOf(a, Min(a))

The a variable is an array of the maximal opponent's score at next move. And 2500 means three stones aligned.

And this is a joy killer.

Yes, I see what you mean. I will keep it in mind. Anyway thank you for trying my program and for your instructive report.