For those of you who missed it here's the logic for answering questions in the other forums ( yes they do exist ) :
As you can tell I was bored when I wrote this. Thanks to honeybee for being a pendantic pain.Code:
Private Type PostType
SimpleQuestion As Boolean
FoundItFirst As Boolean
MessID As Long
End Type
Public Bored As Boolean
Public FallAsleep As Boolean
Private Sub AnswerPosts(IAmInABadMood As Boolean, IAmAnArseHole As Boolean)
' August 2001, Paul Warren
Dim Post As PostType
Call SearchForNewPost(Post)
With Post
Do
If .SimpleQuestion Then
' Let's work out if I'm a tw*t first
If IAmInABadMood Or IAmAnArseHole Then
' This bit will only ever be run by morons
Call AbusePoster(.MessID, "You Are Fik")
Else
If .FoundItFirst Then
' YES !!!
Call PostSolutionAndBeSmugAboutIt(.MessID)
Else
' hmmm, I'm sure there's a more obscure way of doing it
Call FindBarelyRelatedCodeAndPostIt(.MessID)
End If
End If
Else
' Damn, a hard question - find another quick
Call SearchForNextPost(Post)
End If
Loop Until Bored Or FallAsleep ' ZZzzzz
End With
End Sub
