TheGameCreators - CodeBase

Category: Text

Version: 1.0

Information

Uploaded: 18th Jun 2005 10:18

Modified: 18th Jun 2005 10:18

Author: Computer Nerd

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 to anything you want!

Full Description

DarkBASIC Source 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

Download

Please login to download

Comments

No comments yet.

CodeBase - Mad Libs B

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Computer Nerd
CodeBase Entries:	4