Ok, this is somewhat amusing so I thought I'd post it,
.
Dim tpastverb$(5):Dim tverb$(5):Dim tname$(5):Dim tadjective$(7):Dim tbrain$(5):Dim tplace$(5):Dim tnoone$(2):Dim tgoodobad$(2):Dim tobject$(5):Dim tstandosit$(3)
INPUT "Welcome to the sentence generator v1.2!! Please enter a verb ending with 'ed' ", tpastverb$(1):INPUT "And another: ", tpastverb$(2):INPUT "And another: ", tpastverb$(3):INPUT "And another: ", tpastverb$(4):INPUT "And another: ", tpastverb$(5)
INPUT "Excellent! Now, enter a present tense verb: ", tverb$(1):INPUT "And another: ", tverb$(2):INPUT "And another: ", tverb$(3):INPUT "And another: ", tverb$(4):INPUT "And another: ", tverb$(5)
INPUT "Now, enter a name (More fun if you put people you know): ", tname$(1):INPUT "And another: ", tname$(2):INPUT "And another: ", tname$(3):INPUT "And another: ", tname$(4):INPUT "And another: ", tname$(5)
INPUT "Ok, now enter an adjective: ", tadjective$(1):INPUT "And another: ", tadjective$(2):INPUT "And another: ", tadjective$(3):INPUT "And another: ", tadjective$(4):INPUT "And another: ", tadjective$(5):INPUT "And another: ", tadjective$(6):INPUT "And another: ", tadjective$(7)
INPUT "We're almost done! Ok, now, enter something with a brain (hyena, student): ", tbrain$(1):INPUT "And another: ", tbrain$(2):INPUT "And another: ", tbrain$(3):INPUT "And another: ", tbrain$(4):INPUT "And another: ", tbrain$(5)
INPUT "Ok, second to last one! Enter a non-specific place: ", tplace$(1):INPUT "And another: ", tplace$(2):INPUT "And another: ", tplace$(3):INPUT "And another: ", tplace$(4):INPUT "And another: ", tplace$(5)
INPUT "Ok, last one!! Enter an in-animate object: ", tobject$(1):INPUT "And another: ", tobject$(2):INPUT "And another: ", tobject$(3):INPUT "And another: ", tobject$(4):INPUT "And another: ", tobject$(5)
cls
Print "Press any key to recieve a sentence...":do:suspend for key:randomize timer()
T=rnd(4)+1:T2=rnd(4)+1:T6=rnd(1)+1:tnoone$(1)="everyone":tnoone$(2)="no one":T7=rnd(1)+1:tgoodobad$(1)="good":tgoodobad$(2)="bad":tstandosit$(1)="sitting":tstandosit$(2)="standing":tstandosit$(3)="jumping"
T3=rnd(4)+1:T8=rnd(2)+1:T4=rnd(4)+1:T5=rnd(4)+1:T10=rnd(4)+1:RS#=rnd(6)+1
If RS#=1 then Print "The ";tadjective$(T);" ";tbrain$(T2);" ";tpastverb$(T3);" ";tname$(T4);" ";rnd(3)+2;" times."
If RS#=2 then Print "Don't ";tverb$(T);" in the ";tplace$(T2);" please! Take your ";tadjective$(T3);" ";tbrain$(T4);" and go ";tverb$(T);" somewhere else!"
If RS#=3 then Print "The ";tplace$(T);" is a ";tgoodobad$(T7);" place to ";tverb$(T3);" with a ";tbrain$(T4);" ."
If RS#=4 then T=rnd(1)+1:T4=rnd(2)+3:Print tname$(T);" ";tpastverb$(T2);" a ";tadjective$(T3);" ";tbrain$(T5);" while ";tname$(T4);" watched on top of the ";tobject$(T10);"."
If RS#=5 then T4=rnd(1)+1:T=rnd(2)+3:Print tname$(T);" ";tpastverb$(T2);" ";tname$(T4);" in the ";tplace$(T3);" when ";tnoone$(T6);" was watching."
If RS#=6 then T4=rnd(1)+1:T=rnd(2)+3:Print "While ";tstandosit$(T8);" on a ";tobject$(T2);", ";tname$(T);" chucked a ";tadjective$(T3);" ";tbrain$(T5);" at ";tname$(T4);"."
If RS#=7 then Print "A ";tadjective$(T);" ";tbrain$(T2);" is a ";tgoodobad$(T7);" substitute for a ";tobject$(T3);"."
loop
Try to think of the most humorous words that you can! The sentences will work about 75% of the time
.
