TGC Codebase Backup



Mad Libs B by Computer Nerd

18th Jun 2005 10:18
Summary

Yet other mad libs game this one a bit more crazy. Anyways you might use this for something one day or waste your time playing it. Just kidding! I insist that you change the code t



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `Mad Libs B
`By Jonathan Skinner of Magick Software

Input "Enter a name: ",name$
Input "Enter An Animal Name: ",animal$
Input "Enter A Type Pet: ",petkind$
Input "Enter An Age: ",age
Input "Enter A Verb: ",verb$
Input "Enter A Noun: ",noun$
Input "Enter Your Hobby: ",hobby$
Input "Enter A Sport: ",sport$
Input "Enter A Kind of Ice Cream: ",food$
Input "A Pet's Name: ",pet$
Input "A TV Show: ",tv$
Input "A Character's Name: ",char$
Input "A Kind of Dog: ",dog$
Input "Your enemy's name: ",enemy$
Input "Another noun: ",noun2$
Print "Press Any Key When Done"
wait key
cls

Print "There once was a person named ";name$
Print name$;" only goal in life was to become a ";animal$
Print "Others such as ";enemy$;" hated him for this dream"
Print "Secretly they were jealous because they were all ";noun$
Print "One day while playing ";sport$;" it came to ";name$
Print "He had to rush home to watch ";tv$
Print "On tv, it had the answer to his problem!"
Print "Press Any Key To Continue"
wait key
cls

Print "While watching ";tv$;" ";name$;" learned how to..."
Print hobby$;" which became ";name$;" new hobby!"
Print "So he decided to play ";sport$;" with his pet"
Print petkind$;" named ";pet$
Print "Finally ";name$;" dream of becoming a ";animal$
Print "Became true when he was eating his"
Print "Favorite ice cream type which was ";food$
Print "The main character from ";tv$
Print char$;" told him by ";verb$;" he could achieve this goal!"
print "press any key to continue"
wait key
cls
Print "Finally at age ";age;" ";name$;" tried this and"
print "Became much better then a ";noun$
Print "Like his worst foe ";enemy$;" was"
Print "Instead he was finally a ";animal$
Print "After he retired he hung out with"
print "His ";petkind$;" ";pet$;" and was friends with "
print char$;
Print "press any key to continue"
wait key
cls
Print "Finally ";enemy$;" stopped being mean"
Print "So, ";name$;" married ";enemy$
Print "They lived as happy as a ";noun2$
Print "Press any key to end"
wait key
cls
Print "Crazy story eh?"
wait 500
end