Funny Random Sentence Generator

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_MB