property predictTrigger : "!PREDICT "
property predictList : {"That's not for me to say.", "Most likely.", "Ask me again later", "Well, uhm, er, no.", "ROTFL", "Sure", "My sources say no.", "Hmmm, that's a tough question.", "Not really.", "Yes.", "No.", "Outlook so so.", "Absolutely.", "Yes definitely.", "Very doubtful.", "Forget about it.", "Are you kidding?", "Who knows.", "I have my doubts."}

using terms from application "Colloquy"

    on process incoming chat message theMessage from theUser in theView
        set theText to HTML of theMessage as string
        set c to count of predictList
        set r to random number from 1 to c
        set i to item r of predictList
        set n to theUser's name
        if theText starts with predictTrigger then
            tell theView
                send message "" & n & ", " & i & ""
            end tell
        end if
    end process incoming chat message
end using terms from