+- QB64 Phoenix Edition (https://staging.qb64phoenix.com)
+-- Forum: QB64 Rising (https://staging.qb64phoenix.com/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://staging.qb64phoenix.com/forumdisplay.php?fid=3)
+---- Forum: Programs (https://staging.qb64phoenix.com/forumdisplay.php?fid=7)
+---- Thread: Funny Random Sentence Generator (/showthread.php?tid=725)
Funny Random Sentence Generator - SierraKen - 08-04-2022
I believe there's 79 different variations of sentences than can be made with this. Possibly more. Most of it is very bad grammar lol. But try to look over that if you can. I'm just having some fun. I added mouse support to left click for another sentence. If you right click it ends. Tell me what you think, thanks. I'm no English professor lol. It's more of a poetry-type of writing or something like the start of a haiku almost, in one sentence.
Code: (Select All)
Dim a$(22)
start:
Cls
Print " Random Sentence Generator"
Print
Print " By SierraKen"
Randomize Timer
Print: Print
a = Int(Rnd * 22) + 1
For aa = 1 To 22
Read a$(aa)
If aa = a Then Print a$(aa);
Next aa
a = Int(Rnd * 22) + 1
For aa = 1 To 22
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
a = Int(Rnd * 7) + 1
For aa = 1 To 7
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
a = Int(Rnd * 12) + 1
For aa = 1 To 12
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
a = Int(Rnd * 4) + 1
For aa = 1 To 4
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
a = Int(Rnd * 5) + 1
For aa = 1 To 5
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
a = Int(Rnd * 7) + 1
For aa = 1 To 7
Read a$(aa)
If aa = a Then Print " " + a$(aa);
Next aa
Locate 22, 1
Print "Click left mouse button for another one."
Print "Click right mouse button to quit."
Do
While _MouseInput: Wend
mouseLeftButton = _MouseButton(1)
mouseRightButton = _MouseButton(2)
Clear_MB 1
If mouseLeftButton Then Restore: GoTo start:
If mouseRightButton Then End
Loop
Data "He","She","I","You","Animals","People","They","Birds","Dogs","A dog","A cat","Cats","A bird","Fish","A fish","Squirrels","A squirrel","Chipmunks","A chipmunk","Crowds","A crowd","A person"
Data "hit","ran","hunted","looked","walked","roamed","journeyed","swam","read","programmed","typed","laughed","listened","flew","ate","drove","bit","smiled","chewed","stared","yawned","slept"
Data "to","until","when","more to","less to","faster to","slower to"
Data "Lucy","Edward","Ralph","Cindy","people","they","a woman","a man","a kid","animals","they","someone"
Data "but","or","as if","and when"
Data "saw","looked","ignored","yelled","talked"
Data "to nothing.","to a star.","to another person.","to themself.","to nobody.","to everyone.","to the world."
Sub Clear_MB (var As Integer)
Do Until Not _MouseButton(var)
While _MouseInput: Wend
Loop
End Sub 'Clear_MBRE: Funny Random Sentence Generator - BSpinoza - 08-04-2022
In this way you can make a Poem / Haiku -Generator!
https://www.poem-generator.org.uk/haiku/