TheGameCreators - CodeBase - Mad Libs Game A

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 18th Jun 2005 10:14

Modified: 25th Jan 2006 13:34

Author: Computer Nerd

Summary

I made this when I was a n00b. Hope it teaches you some new stuff probably won't enjoy.

Full Description

None

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Mad Libs A

`By Jonathan Skinner

set text size 8

set text font "arial"

Print "Mad Libs!"

input "Enter A Male Name: ",name$

input "Enter A Cool Word: ",cool$

input "Enter Your Favorite Food: ",food$

input "A Spooky Monster Name: ",monster$

input "Enter Your Job: ",job$

Input "Enter A Number: ",number

Input "Enter A Noun: ",noun$

Input "A Favorite Quote: ",quote$

Input "Your Favorite Hero: ",hero$

Input "Someone you know's name: ",friend$

Input "A Object You Use Frequently: ",object$

Input "Your Favorite Video Game: ",game$

Input "A Crazy Name: ",crazy$

Input "A characteristic: ",char$

Print "Thank you"

Print "Please press any key to erase the screen"

wait key

cls

Print "Once Upon a time"

Print "there was a fellow named ";name$

Print name$;" Was branded a ";cool$

Print "By everyone since"

Print "he was such a ";noun$

Print "One day a evil"

Print "spooky thing called a ";monster$

Print "Came Along and ate "

Print name$;"'s only good ";object$

Print "Then the ";monster$

Print "ate ";name$;"'s ";food$

Print "Everyone stopped thinking"

Print name$;" as a cool ";noun$

Print "Press any key to see more"

wait key

cls

Print "Instead they thought "

Print friend$;" was cool"

Print "Because of this ";name$

Print " lost his job which was a ";job$

Print "So, ";name$;" took his "

Print number;" ";object$;"s"

Print "And he became ";hero$

Print "Everyone thought "

Print name$;

Print  "was the best ";noun$;" ever!"

Print name$;

Print "Press any key to see more"

wait key

cls

Print " changed his name to ";crazy$

Print "Because of his ";char$;" he won a copy of ";game$

Print "Everyone remembered his "

Print "coolest quote ever ";quote$

Print friend$;" ended up as a "

Print object$;" and grew ";number;" legs"

Print "The End!"

Download

Please login to download

Comments

No comments yet.

Author Name:	Computer Nerd
CodeBase Entries:	4

CodeBase - Mad Libs Game A

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments