Bobacus/QuoteGenerator

BNF: Bobacus/QuoteGenerator

With apologies to Mike. (See NokkyQuotes/MikeJeggo.) No reason why more people's quotes couldn't be integrated, but it will make it substantially more complicated to make convincing, as people have their styles, don't they Mike? :-)

: *Grrrrr....* --MJ

BwaHaHaHa!!
mike: my game of Go is multi-storeyed
- nagi : ... What?
- mike: Yes, a multi-storeyed turnover replaces all my puns after a while, didn't you know? ( 17. 1. 04 )

mike: It was a fruit fly experiment where my game of Go had gone bananas
- will : As a children's worker or as a musician ?
- mike: Yes, a giant apple turnover replaces all the genes after a while, didn't you know? ( 3. 10. 03 )

mike: You could redefine my puns as vegetables ( 5. 4. 00 )

This is inspired. I'm going to expand it, unless Bobacus objects... --AlexChurchill
Have tinkered. Will debug if necessary. Could certainly expand more, although I think leaving it mostly restricted to food quotes will give better results. Bobacus, if you don't think certain bits work, feel free to remove them. --AC

Thanks. Please feel free to tinker. It's quite difficult to get it to work well - need lots of semantic state, as to what sort of things work together. With 60 hours less free time a week, I doubt I'll spend an awful lot of time on it for now!

: 60 hours?! What's happened, you've suddenly taken two jobs? A job with a two-hour commute each way? :) Have attempted to add a little semantic state, although as you say it could use a lot more. --AC

There's an unexpected degree of believability about this one:
mike: Admittedly restaurants confuse me.
- will : ... What?
- mike: As someone who doesn't understand coal... ( 20. 10. 04 )


bnf ::= quote <br>

quote ::= _choosesubjects quote_struc "(" date ")"

quote_struc ::= quote_aba | quote_decl

quote_aba ::= "mike: " mike <br> "-" name ":" query <br> "- mike:" mikerep
quote_decl ::= "mike: " mike
quote_mikerep ::= name ":" innocent_statement <br> "- mike:" mikerep

name ::= "alex" | "will" | "morag" | "serge" | "rob" | "ben" | "alan" | "nagi"

mike ::= mike_1 | mike_2 | mike_3 | mike_4 | mike_5 | mike_6 | mike_7 | mike_8 | mike_9
mikerep ::= mikerep_1 | mikerep_2 | mikerep_3 

query ::= query_1 | query_2 

mike_1 ::= optional_prefix stored_subject_pl "confuse me."
query_1 ::= "As" subject "or as" subject "?"
query_2 ::= "... What?"
# query_3 ::= "No, you just have to persuade it to gallop..."
mikerep_1 ::= "As someone who doesn't understand" comparitor_pl "..."
mikerep_2 ::= "It contains many " subject_pl "."
^ new subject, not stored 
mikerep_3 ::= "Yes," silly_adj_indef noun "replaces all" stored_subject_pl "after a while, didn't you know?"
# mikerep_4 ::= "Presumably by dangling some " comparitor_pl " in front of it?"

mike_2 ::= optional_prefix stored_subject_pl "are not" comparitor_pl{c} ". Some people might /prefer/ " c " to " stored_subject_pl ", but that's beside the point."
mike_3 ::= optional_prefix stored_subject "is" silly_adj
mike_4 ::= optional_prefix stored_subject_pl "are" silly_adj
mike_5 ::= "It was " stored_subject " where " where
mike_6 ::= "Have you never had " silly_adj noun " ? It's quite tasty..."
mike_7 ::= "You could redefine " stored_subject_pl " as " subject_pl
mike_8 ::= "The concept of " silly_adj noun " is quite an intriguing one"
mike_9 ::= "There appear to be no " silly_adj stored_subject_pl " in Cambridge, or if there are they evaded me"


Convention: tags beginning with "_" output no text. Should this be "nt"?
_choosesubjects ::= <stored_subject_pl::=subject_pl> <stored_subject::=subject>

subject_pl ::= "minors" | "my puns" | "restaurants" | "genes" | "French mountains" | cows | vegetables | carrots  | flaws
comparitor_pl ::= "hallucinogenic drugs" | money | coal
Singular
subject ::= articlesingular noun 

Needs to work as a predicate; unfortunately "made of Brie" doesn't 
silly_adj ::= "multi-storeyed" | "quite hard" | roast | "Brie" | remote | vibrating

articlesingular ::= "a" | "a" | "a" | "a" | "my " 

Hmmm, duplication. Could create puns using tagging...
noun ::= turnover | farmhouse | "fruit fly experiment" | "musician" | "children's worker" | "game of Go"

where ::= stored_subject_pl "had gone bananas"

innocent_statement ::= "There's a" potential_collective "of" subject_pl "around here...?"

potential_collective ::= "high turnover"

Include indef. article
silly_adj_indef  ::= "a giant apple" | "a" silly_adj 



optional_prefix ::= nothing | nothing | nothing | nothing | "Admittedly " | "For some reason, " | "I think you'll find " | "Okay, so " 
nothing ::= ""

date ::= date_d date_m date_y
date_d ::= 1. | 2. | 3. | 4. | 5. | 6. | 7. | 8. | 9. | 10. | 11. | 12. | 13. | 14. | 15. | 16. | 17. | 18. | 19. | 20. | 21. | 22. | 23. | 24. | 25. | 26. | 27. | 28.
date_m ::= 1. | 2. | 3. | 4. | 5. | 6. | 7. | 8. | 9. | 10. | 11. | 12.
date_y ::= 00 | 01 | 02 | 03 | 04

CategoryGenerator