'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» 'º º 'º º 'º * * Mr. Smiley * * º 'º º 'º * * * * º 'º ***** Made by Steve Nunnally ***** º 'º º 'º º º 'º ÀÄÙ º 'º º 'ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ 'º º 'º This is a demo of AI. I ask that you please don't use º 'º this code in other programs. And please don't change º 'º my name to your name so it looks like you made it. º 'º Anyways I hope you like it. For any questions or tips º 'º e-mail at nunnally@pinn.net Please visit my homepage º 'º http://www.pinn.net/~nunnally Thank You. º 'º -Steve Nunnally º 'º º 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ' ' This program was made by Steve Nunnally. Copyright (C) 1997 'All of this code was written by me, Steve Nunnally. DO NOT copy 'this code unless you have my permission! And you MAY NOT change 'the name in this paragraph to your name. ' DIM SHARED guysname AS STRING DIM SHARED cool AS STRING DIM SHARED row AS INTEGER DIM SHARED gotomusic AS INTEGER DIM SHARED gotohobby AS INTEGER DIM SHARED gotofood AS INTEGER DIM SHARED gotosport AS INTEGER DIM SHARED gotoanimal AS INTEGER DIM SHARED gotoemotion AS INTEGER DIM SHARED gotolikeit AS INTEGER SCREEN 12 CLS : WIDTH 80, 60 CIRCLE (320, 30), 25, 14 PAINT (320, 30), 14 CIRCLE (320, 30), 19, 0, 3, .1 CIRCLE (310, 20), 3, 0 CIRCLE (330, 20), 3, 0 COLOR 2 gotomusic = 0: gotohobby = 0: gotofood = 0: gotosport = 0 gotoanimal = 0: gotoemotion = 0: gotolikeit = 0: row = 10 cool$ = "My name is Mr. Smiley, what is your name?" GOSUB printit COLOR 14: LINE INPUT guysname$ COLOR 2 row = row + 1 RANDOMIZE TIMER t = INT(RND * 4) + 1 IF t = 1 THEN cool$ = "Well hello " + guysname$ + "." IF t = 2 THEN cool$ = "Hello " + guysname$ + ", nice to meet you." IF t = 3 THEN cool$ = "Nice to meet you " + guysname$ + "." IF t = 4 THEN cool$ = "Whats up " + guysname$ + ", nice to know you." GOSUB printit MainTalk: DO COLOR 14 LINE INPUT main$ main$ = LCASE$(main$) COLOR 2 IF INSTR(main$, "you suck") THEN cool$ = "Shut up, you blow.": GOTO EndMainTalk IF main$ = "hi" OR INSTR(main$, "hello") OR INSTR(main$, "hey") THEN cool$ = "Hello " + guysname$ + ".": GOTO EndMainTalk IF INSTR(main$, "music") THEN GOSUB Music IF INSTR(main$, "sport") THEN GOSUB Sport IF INSTR(main$, "hobby") THEN GOSUB Hobby IF INSTR(main$, "food") THEN GOSUB Food IF INSTR(main$, "animal") THEN GOSUB Animals IF INSTR(main$, "computer") THEN cool$ = "Hey, thats where I live!!": GOTO EndMainTalk IF INSTR(main$, "fuck you") OR INSTR(main$, "bitch") OR INSTR(main$, "asshole") THEN cool$ = "Better watch out or i'll wash out your mouth with soap!!": GOTO EndMainTalk IF INSTR(main$, "shut up") OR INSTR(main$, "shutup") THEN cool$ = "No, I like talking, so there!": GOTO EndMainTalk IF INSTR(main$, "you cool") OR INSTR(main$, "you're cool") OR INSTR(main$, "you are cool") OR INSTR(main$, "you're kewl") THEN cool$ = "Thanks, you're pretty cool yourself. =)": GOTO EndMainTalk IF main$ = "happy" THEN cool$ = "Hey, I'm a happy face. =)": GOTO EndMainTalk IF main$ = "dumb" OR main$ = "stupid" OR INSTR(main$, "this is stupid") OR INSTR(main$, "this suck") THEN cool$ = "Come on you just started, its acually pretty cool.": GOTO EndMainTalk IF INSTR(main$, "this is fun") OR INSTR(main$, "fun") OR INSTR(main$, "this is cool") THEN cool$ = "Yeah, I think so too.": GOTO EndMainTalk IF INSTR(main$, "bye") OR INSTR(main$, "*wave*") OR INSTR(main$, "i have to go") OR main$ = "seeya" OR INSTR(main$, "see ya") OR INSTR(main$, "later") OR main$ = "im leaving" OR main$ = "i'm leaving" THEN PRINT "Okay, goodbye. I talk to you later.": SYSTEM IF INSTR(main$, "wow") THEN cool$ = "I know.": GOTO EndMainTalk IF INSTR(main$, "how are you") THEN GOSUB HowIsMe IF INSTR(main$, "day") OR INSTR(main$, "date") THEN cool$ = "Today is " + DATE$ + ".": GOTO EndMainTalk IF INSTR(main$, "time") THEN cool$ = "Right now it is " + TIME$ + ".": GOTO EndMainTalk IF INSTR(main$, "loser") OR INSTR(main$, "looser") THEN cool$ = "No I'm not, you are!!!": GOTO EndMainTalk IF INSTR(main$, "monkey") THEN cool$ = "Monkey's are kick-@$$!!!!!!": GOTO EndMainTalk IF INSTR(main$, "smily") OR INSTR(main$, "smiley") THEN cool$ = "Smiley's are cool, thats my name you know.": GOTO EndMainTalk IF INSTR(main$, "haha") OR INSTR(main$, "hehe") THEN cool$ = "Stop lauging please.": GOTO EndMainTalk IF INSTR(main$, "=)") OR INSTR(main$, ":)") OR INSTR(main$, "=P") THEN cool$ = "Hey, that looks like me!!": GOTO EndMainTalk IF main$ = "no" THEN cool$ = "Why not?": GOTO EndMainTalk IF main$ = "because" OR main$ = "i said so" THEN cool$ = "That works.": GOTO EndMainTalk IF INSTR(main$, "too bad") OR INSTR(main$, "to bad") THEN cool$ = "So sad.": GOTO EndMainTalk IF main$ = "so" THEN cool$ = "Well I thought I should say it.": GOTO EndMainTalk IF INSTR(main$, "i said") OR INSTR(main$, "i mean") THEN cool$ = "Okay, I guess I understand.": GOTO EndMainTalk IF INSTR(main$, "scary") THEN cool$ = "Thats right, you better be scared.": GOTO EndMainTalk IF main$ = "good" THEN cool$ = "Good, is good.": GOTO EndMainTalk IF main$ = "yes" THEN cool$ = "I didn't ask you anything.": GOTO EndMainTalk IF main$ = "cool" OR main$ = "kewl" THEN cool$ = "Cool is goooood. =)": GOTO EndMainTalk IF main$ = "right on" THEN cool$ = "Yeah, that's right.": GOTO EndMainTalk IF main$ = "yeah" OR main$ = "yea" OR main$ = "ye" OR main$ = "yep" THEN cool$ = "Yeah, thats right.": GOTO EndMainTalk IF main$ = "okay" OR main$ = "ok" THEN cool$ = "Well alrighty then.": GOTO EndMainTalk IF main$ = "i know" THEN cool$ = "Well then your pretty smart.": GOTO EndMainTalk IF main$ = "that was good" THEN cool$ = "Why thank you " + guysname$ + ".": GOTO EndMainTalk IF main$ = "alright" THEN cool$ = "Well alright then.": GOTO EndMainTalk IF main$ = "thats right" OR main$ = "that's right" THEN cool$ = "Yep, you got it.": GOTO EndMainTalk IF INSTR(main$, "yes you did") THEN cool$ = "Oh, well I'm sorry Mr. Perfect.": GOTO EndMainTalk IF main$ = "oh well" THEN cool$ = "Well not everything is perfect.": GOTO EndMainTalk IF INSTR(main$, "sing") THEN GOSUB EndMusic IF main$ = "smile" THEN cool$ = "I'm always smiling silly. =)": GOTO EndMainTalk IF INSTR(main$, "like to do") THEN cool$ = "Smile, but of course.": GOTO EndMainTalk IF INSTR(main$, "nerd") THEN cool$ = "You're the nerd, look at you talking to some computer program, ha!": GOTO EndMainTalk IF INSTR(main$, "i dont want to") OR INSTR(main$, "i don't want to") THEN cool$ = "Fine then don't, see if I care.": GOTO EndMainTalk IF INSTR(main$, "forget it") THEN cool$ = "Fine, it's forgotten.": GOTO EndMainTalk IF INSTR(main$, "sorry") THEN cool$ = "Don't worry, it's okay.": GOTO EndMainTalk IF main$ = "thanks" OR INSTR(main$, "thank you") THEN cool$ = "Your welcome man.": GOTO EndMainTalk IF INSTR(main$, "fine then") OR main$ = "fine" THEN cool$ = "Well fine then.": GOTO EndMainTalk IF main$ = "why?" OR main$ = "why?" THEN cool$ = "Becase I said so.": GOTO EndMainTalk IF INSTR(main$, "yes it is") OR INSTR(main$, "yea it is") OR INSTR(main$, "yeah it is") THEN cool$ = "Okay, it is.": GOTO EndMainTalk IF main$ = "i thought you" THEN cool$ = "Well, yea that too I guess. =)": GOTO EndMainTalk IF INSTR(main$, "yes you do") THEN cool$ = "Well maybe, but I'm not telling you.": GOTO EndMainTalk IF main$ = "thats okay" OR main$ = "that's okay" OR main$ = "its okay" OR main$ = "it's okay" THEN cool$ = "Okay, thanks. I feel better.": GOTO EndMainTalk IF INSTR(main$, "i want") THEN cool$ = "Hmmm, well I'll think about it.": GOTO EndMainTalk IF INSTR(main$, "youre mean") OR INSTR(main$, "you're mean") THEN cool$ = "I'm sorry, I'll try to be nicer.": GOTO EndMainTalk IF INSTR(main$, "so what") THEN cool$ = "Well fine then forget it. =(": GOTO EndMainTalk IF INSTR(main$, "i am") THEN cool$ = "Well that's good.": GOTO EndMainTalk IF INSTR(main$, "i believe") OR INSTR(main$, "i trust") THEN cool$ = "Well trust is a good thing you know.": GOTO EndMainTalk IF INSTR(main$, "no its not") OR INSTR(main$, "no it's not") THEN cool$ = "Yes it is.": GOTO EndMainTalk IF INSTR(main$, "i do") THEN cool$ = "Well good for you.": GOTO EndMainTalk IF INSTR(main$, "i don't") OR INSTR(main$, "i dont") THEN cool$ = "Oh well, thats just too bad.": GOTO EndMainTalk IF main$ = "i have" OR main$ = "i did" THEN cool$ = "Oh, then nevermind.": GOTO EndMainTalk IF INSTR(main$, "i love you") THEN cool$ = "Oh, that's so nice. I love you too.": GOTO EndMainTalk IF INSTR(main$, "i agree") THEN cool$ = "Good. We're agreeing.": GOTO EndMainTalk IF INSTR(main$, "christmas") THEN cool$ = "Merry Christmas to you all, and to all a good night!": GOTO EndMainTalk IF INSTR(main$, "thanksgiving") THEN cool$ = "I'll give thanks that I haven't been deleted yet.": GOTO EndMainTalk IF INSTR(main$, "halloween") THEN cool$ = "I'm dressing as a computer.": GOTO EndMainTalk IF INSTR(main$, "valentin") THEN cool$ = "Will you be my valentine?": GOTO EndMainTalk IF INSTR(main$, "easter") THEN cool$ = "I don't like eggs very much.": GOTO EndMainTalk IF INSTR(main$, "new year") THEN cool$ = "Happy New Year, it is now " + TIME$ + " , " + DATE$ + ".": GOTO EndMainTalk IF INSTR(main$, "oh really") THEN cool$ = "It may be hard to believe, but, yes.": GOTO EndMainTalk IF INSTR(main$, "why not") THEN cool$ = "I don't know, just because.": GOTO EndMainTalk IF INSTR(main$, "you're stupid") OR INSTR(main$, "youre stupid") THEN cool$ = "No I'm not, you are.": GOTO EndMainTalk IF INSTR(main$, "i'm not") OR INSTR(main$, "im not") THEN cool$ = "Yes you are!!!": GOTO EndMainTalk IF INSTR(main$, "are not") OR INSTR(main$, "are to") OR INSTR(main$, "are too") OR INSTR(main$, "are 2") THEN cool$ = "Fine, have it your way.": GOTO EndMainTalk IF INSTR(main$, "it sucked") THEN cool$ = "Good for you, I don't really care what you think anyways.": GOTO EndMainTalk IF INSTR(main$, "i hate you") THEN cool$ = "How mean. Well I hate you too.": GOTO EndMainTalk IF INSTR(main$, "your dumb") OR INSTR(main$, "youre dumb") OR INSTR(main$, "you're dumb") THEN cool$ = "No I'm not, you're dumb. So there.": GOTO EndMainTalk IF main$ = "huh" OR main$ = "what" THEN cool$ = "You'll figure it out, or maybe you won't.": GOTO EndMainTalk IF main$ = "huh?" OR main$ = "what?" THEN cool$ = "You'll figure it out, or maybe you won't.": GOTO EndMainTalk IF INSTR(main$, "did your mom") OR INSTR(main$, "did your mother") OR INSTR(main$, "did your ma") THEN cool$ = "Yea she told me, she also said you sucked in bed.": GOTO EndMainTalk IF INSTR(main$, "you to") THEN cool$ = "Thanks a lot.": GOTO EndMainTalk IF INSTR(main$, "no we don") THEN cool$ = "Yes we do.": GOTO EndMainTalk IF INSTR(main$, "that sucked") THEN cool$ = "No it didn't, it was real good.": GOTO EndMainTalk IF INSTR(main$, "do you like") THEN hmmmm = INT(RND * 2) + 1 IF hmmmm = 1 THEN cool$ = "Why yes I do very much." IF hmmmm = 2 THEN cool$ = "No, not at all." GOTO EndMainTalk END IF IF INSTR(main$, "why") THEN cool$ = "Don't know, just because.": GOTO EndMainTalk IF INSTR(main$, "whats up") OR INSTR(main$, "what's up") THEN cool$ = "": GOTO EndMainTalk IF INSTR(main$, "life sucks") THEN cool$ = "Ain't that the truth. =(": GOTO EndMainTalk IF INSTR(main$, "your welcome") OR INSTR(main$, "you're welcome") OR INSTR(main$, "youre welcome") THEN cool$ = "Why thank you " + guysname$ + ".": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk 'IF INSTR(main$, "") THEN cool$ = "": GOTO EndMainTalk IF main$ = "" THEN n = INT(RND * 4) + 1 IF n = 1 THEN cool$ = "Come on, you have to say something." IF n = 2 THEN cool$ = "Say something please." IF n = 3 THEN cool$ = "I don't want to do all the talking, say something." IF n = 4 THEN cool$ = "You have to say something." GOTO EndMainTalk END IF RandomPhrase: a = INT(RND * 13) + 1 IF a = 1 THEN cool$ = "Uhhh, could you rephrase that please?": GOTO EndMainTalk IF a = 2 THEN cool$ = "I don't understand what you mean by " + main$ + ".": GOTO EndMainTalk IF a = 3 THEN cool$ = "What do you mean " + main$ + ".": GOTO EndMainTalk IF a = 4 THEN cool$ = "Sorry, I don't understand that.": GOTO EndMainTalk IF a = 5 THEN cool$ = "I don't know that phrase, my vocabulary isn't that advanced yet.": GOTO EndMainTalk IF a = 6 THEN cool$ = "Could you put that another way please.": GOTO EndMainTalk IF a = 7 AND gotomusic = 0 THEN gotomusic = 1: GOSUB Music IF a = 8 AND gotohobby = 0 THEN gotohobby = 1: GOSUB Hobby IF a = 9 AND gotofood = 0 THEN gotofood = 1: GOSUB Food IF a = 10 AND gotosport = 0 THEN gotosport = 1: GOSUB Sport IF a = 11 AND gotoanimal = 0 THEN gotoanimal = 1: GOSUB Animals IF a = 12 AND gotoemotion = 0 THEN gotoemotion = 1: GOSUB GetEmotion IF a = 13 AND gotolikeit = 0 THEN gotolikeit = 1: GOSUB LikeIt GOSUB RandomPhrase EndMainTalk: row = row + 2 IF row >= 50 THEN CLS : row = 10 CIRCLE (320, 30), 25, 14 PAINT (320, 30), 14 CIRCLE (320, 30), 19, 0, 3, .1 CIRCLE (310, 20), 3, 0 CIRCLE (330, 20), 3, 0 END IF length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i LOOP HowIsMe: row = row + 1 COLOR 2: cool$ = "I'm good and you?????" GOSUB printit GOSUB HowYouFeel Music: row = row + 1 COLOR 2: cool$ = "What kind of music do you like?" GOSUB printit COLOR 14: LINE INPUT favmusic$ favmusic$ = LCASE$(favmusic$) IF INSTR(favmusic$, "alter") THEN cool$ = "Alternative kicks serious @$$!!": GOTO EndMusic IF INSTR(favmusic$, "metal") THEN cool$ = "Metal is fine, as long as it's not too heavy, just joking.": GOTO EndMusic IF INSTR(favmusic$, "pop") THEN LET cool$ = "I prefer Alternative over Pop.": GOTO EndMusic IF INSTR(favmusic$, "classic") THEN cool$ = "Classical music is relaxing.": GOTO EndMusic IF INSTR(favmusic$, "jazz") THEN cool$ = "Jazz is nice. I haven't heard much of it, though.": GOTO EndMusic IF INSTR(favmusic$, "techno") THEN cool$ = "I like Techno music a lot. It's kewl.": GOTO EndMusic IF INSTR(favmusic$, "rock") THEN cool$ = "Rock on brother man!": GOTO EndMusic IF INSTR(favmusic$, "piano") THEN cool$ = "Uhh, I don't really listen to that.": GOTO EndMusic IF INSTR(favmusic$, "rap") THEN cool$ = "Rap is ruining America.": GOTO EndMusic IF INSTR(favmusic$, "country") THEN cool$ = "Haha, country sucks.": GOTO EndMusic IF INSTR(favmusic$, "old") THEN cool$ = "Oldies music is pretty good.": GOTO EndMusic IF INSTR(favmusic$, "hiphop") THEN cool$ = "Breakdown man.": GOTO EndMusic IF INSTR(favmusic$, "cool") THEN cool$ = "I think that all music is cool.": GOTO EndMusic 'IF INSTR(favmusic$, "") THEN cool$ = "": GOTO EndMusic cool$ = "Sorry I haven't heard of that kind O' music." EndMusic: COLOR 2 row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i cool$ = "Would you like to hear some music?" GOSUB printit COLOR 14 LINE INPUT yesornomusic$ yesornomusic$ = LCASE$(yesornomusic$) COLOR 2 IF INSTR(yesornomusic$, "no") OR INSTR(yesornomusic$, "na") THEN cool$ = "Okay, thats perfectly fine with me." row = row + 1: GOSUB printit GOSUB MainTalk END IF cool$ = "Okay, here we go." row = row + 1: GOSUB printit m = INT(RND * 4) + 1 IF m = 1 THEN PLAY "mbl12o3ccd+cefg>ccp4e-dcc<": GOSUB MainTalk IF m = 2 THEN PLAY "mbMNcp15cp3cdeddp8cdp3efgffp8efp3defeep8de": GOSUB MainTalk IF m = 3 THEN PLAY "o2 f8 f8 f+8 f8 g+8 g+8 f+8 f4 f8 f+8 f8 o3 c#8 c#8 o2 b8 a#8" PLAY "o2 f8 f8 f+8 f8 g+8 g+8 f+8 f4 f8 f+8 f8 o3 f8 f8 d#8 c#8" GOSUB MainTalk END IF IF m = 4 THEN PLAY "o2 c2 d4 f4 e4 d4 g2 g2 g4 a4 e4 f4 d2 d2 d4 f4 e4 d4 c4 o3 c4 o2 b4 a4 g4 f4 e4 d4 c1": GOSUB MainTalk Hobby: COLOR 2: cool$ = "Whats your hobby?" row = row + 1: GOSUB printit COLOR 14: LINE INPUT favhobby$ favhobby$ = LCASE$(favhobby$) IF INSTR(favhobby$, "program") THEN cool$ = "I know a programer, Steve Nunnally. He made me. =)": GOTO EndHobby IF INSTR(favhobby$, "surf") THEN cool$ = "Surfin' is cool. I never tried it though.": GOTO EndHobby IF INSTR(favhobby$, "skateboard") THEN cool$ = "Yea boy, skateboarding is cool.": GOTO EndHobby IF INSTR(favhobby$, "skate") THEN cool$ = "Rollerblading is better I think.": GOTO EndHobby IF INSTR(favhobby$, "roller") THEN cool$ = "Rollerblading is awesome, I want to try it sometime.": GOTO EndHobby IF INSTR(favhobby$, "bik") THEN cool$ = "Biking is kewl, I can't do it because I don't have feet.": GOTO EndHobby IF INSTR(favhobby$, "jog") THEN cool$ = "Jogging is good exercise, too bad I can't jog.": GOTO EndHobby IF INSTR(favhobby$, "swim") THEN cool$ = "Wooo, if I got wet I would short-circuit.": GOTO EndHobby IF INSTR(favhobby$, "chess") THEN cool$ = "Chess?? I rock at that, it's one of the things us computers are good at.": GOTO EndHobby IF INSTR(favhobby$, "coin") THEN cool$ = "Coins are boring.": GOTO EndHobby IF INSTR(favhobby$, "stamp") THEN cool$ = "Stamps are okay, but only if they're worth a lot.": GOTO EndHobby IF INSTR(favhobby$, "collect") THEN cool$ = "Collecting is good, it gives you something to do.": GOTO EndHobby IF INSTR(favhobby$, "sport") THEN cool$ = "Yea, sports dude. Sports are good.": GOTO EndHobby IF INSTR(favhobby$, "basketball") THEN cool$ = "I hope you're 7 foot 10 inches.": GOTO EndHobby IF INSTR(favhobby$, "baseball") THEN cool$ = "Baseball is fun, I'm not really into it.": GOTO EndHobby IF INSTR(favhobby$, "football") THEN cool$ = "Yea boy, football is awesome.": GOTO EndHobby IF INSTR(favhobby$, "soccer") THEN cool$ = "Soccer huh? Try football.": GOTO EndHobby IF INSTR(favhobby$, "sew") THEN cool$ = "Hmmm, sewing is boring, but it gives you something to do.": GOTO EndHobby IF INSTR(favhobby$, "rid") THEN cool$ = "Riding is good exercise you know.": GOTO EndHobby IF INSTR(favhobby$, "wrestl") THEN cool$ = "Wrestling is a gay sport, no offense.": GOTO EndHobby IF INSTR(favhobby$, "gam") THEN cool$ = "Games are fun, I'm sort of a game.": GOTO EndHobby IF INSTR(favhobby$, "read") THEN cool$ = "Reading makes you smarter, I read.": GOTO EndHobby IF INSTR(favhobby$, "sleep") THEN cool$ = "At least you have a hobby.": GOTO EndHobby IF INSTR(favhobby$, "model") THEN cool$ = "That's good.": GOTO EndHobby IF INSTR(favhobby$, "camp") THEN cool$ = "Camping is fun, I like the woods, never been there though.": GOTO EndHobby 'IF INSTR(favhobby$, "") THEN cool$ = "": GOTO EndHobby cool$ = "Sorry, I haven't heard of that hobby. =(" EndHobby: COLOR 2: row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i GOSUB MainTalk Food: COLOR 2: cool$ = "My favorite food is a good floppy, whats your favorite food?" row = row + 1: GOSUB printit COLOR 14: LINE INPUT favfood$ favfood$ = LCASE$(favfood$) IF INSTR(favfood$, "pizza") THEN cool$ = "Hey! Pizza is good!": GOTO EndFood IF INSTR(favfood$, "hotdog") THEN cool$ = "Sounds like a cooked dog.": GOTO EndFood IF INSTR(favfood$, "pasta") THEN cool$ = "Moma mea, pasta is good stuff.": GOTO EndFood IF INSTR(favfood$, "noodle") THEN cool$ = "How could you not like noodles.": GOTO EndFood IF INSTR(favfood$, "chocolate") THEN cool$ = "Ho, man is that fatning": GOTO EndFood IF INSTR(favfood$, "candy") THEN cool$ = "Mmmmm, sugar.": GOTO EndFood IF INSTR(favfood$, "hamburger") THEN cool$ = "McDonalds is my favorite.": GOTO EndFood IF INSTR(favfood$, "cheeseburger") THEN cool$ = "McDonalds is my favorite.": GOTO EndFood IF INSTR(favfood$, "chicken") THEN cool$ = "Chicken is alright, its kind of plain.": GOTO EndFood IF INSTR(favfood$, "meat") THEN cool$ = "Mm, meat good. Meat yummy.": GOTO EndFood IF INSTR(favfood$, "corn") THEN cool$ = "Corn is good if you have salt.": GOTO EndFood IF INSTR(favfood$, "rice") THEN cool$ = "Rice isn't all that good I think.": GOTO EndFood IF INSTR(favfood$, "milk") THEN cool$ = "Milk, does abody good.": GOTO EndFood IF INSTR(favfood$, "soda") THEN cool$ = "Soda has caffine you know. But its still good.": GOTO EndFood IF INSTR(favfood$, "pepsi") THEN cool$ = "Pepsi is the BEST man!!!!!!!!!!": GOTO EndFood IF INSTR(favfood$, "coke") THEN cool$ = "Coke isn't as good as Pepsi you know.": GOTO EndFood IF INSTR(favfood$, "cream") THEN cool$ = "Mmmmm, ice cream is good stuff.": GOTO EndFood IF INSTR(favfood$, "chip") THEN cool$ = "Chips are good if they have dip.": GOTO EndFood IF INSTR(favfood$, "burrito") THEN cool$ = "Hey burritos are groovy.": GOTO EndFood IF INSTR(favfood$, "cookie") THEN cool$ = "Oh those yummy little cookies.": GOTO EndFood IF INSTR(favfood$, "water") THEN cool$ = "How plain, water that is.": GOTO EndFood IF INSTR(favfood$, "macaroni") THEN cool$ = "Mmm, maccaroni and cheese.": GOTO EndFood IF INSTR(favfood$, "cheese") THEN cool$ = "How cheesy, cheese that is.": GOTO EndFood IF INSTR(favfood$, "floppy") THEN cool$ = "Wow, I guess we like the same stuff.": GOTO EndFood 'IF INSTR(favfood$, "") THEN cool$ = "": GOTO EndFood cool$ = "Sorry, I haven't heard of that kind of food." EndFood: COLOR 2: row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i GOSUB MainTalk Sport: COLOR 2: cool$ = "Whats your favorite sport?" row = row + 1: GOSUB printit COLOR 14: LINE INPUT favsport$ favsport$ = LCASE$(favsport$) IF INSTR(favsport$, "baseball") THEN cool$ = "Yea, baseball is pretty kewl.": GOTO EndSport IF INSTR(favsport$, "football") THEN cool$ = "Now we're talking real man sports.": GOTO EndSport IF INSTR(favsport$, "soccer") THEN cool$ = "You know in Spanish soccer is called futbol.": GOTO EndSport IF INSTR(favsport$, "hockey") THEN cool$ = "Doesn't it hurt when you run into the wall?": GOTO EndSport IF INSTR(favsport$, "basketball") THEN cool$ = "I hope you're a tall guy.": GOTO EndSport IF INSTR(favsport$, "tenis") THEN cool$ = "Last time I played tenis I got tenis cord.": GOTO EndSport IF INSTR(favsport$, "volley") THEN cool$ = "Volleyball is okay, I don't know much about it.": GOTO EndSport IF INSTR(favsport$, "golf") THEN cool$ = "I like golf believe it or not.": GOTO EndSport IF INSTR(favsport$, "horse") THEN cool$ = "Horse riding is way too expensive.": GOTO EndSport IF INSTR(favsport$, "rid") THEN cool$ = "Bike riding be fun. Good exercise too.": GOTO EndSport IF INSTR(favsport$, "swim") THEN cool$ = "If I were to get wet I wuld short circuit.": GOTO EndSport IF INSTR(favsport$, "track") THEN cool$ = "Maybe noe day yu'll make it to the Olympics.": GOTO EndSport IF INSTR(favsport$, "jog") THEN cool$ = "If I had legs I would jog.": GOTO EndSport IF INSTR(favsport$, "rugby") THEN cool$ = "That is one seriously MAN sport.": GOTO EndSport IF INSTR(favsport$, "ski") THEN cool$ = "Skiing is too cold for me.": GOTO EndSport IF INSTR(favsport$, "skateboard") THEN cool$ = "Yea, skateboarding is cool.": GOTO EndSport IF INSTR(favsport$, "blad") THEN cool$ = "Yea, rollerblading is cool.": GOTO EndSport IF INSTR(favsport$, "roller") THEN cool$ = "Rollerskate huh. Well rollerblading is better.": GOTO EndSport IF INSTR(favsport$, "weight") THEN cool$ = "I bet you got big muscles.": GOTO EndSport IF INSTR(favsport$, "wrestl") THEN cool$ = "Wrestling is kind of gay.": GOTO EndSport IF INSTR(favsport$, "chess") THEN cool$ = "Oh I see, a smart, nerdy boy.": GOTO EndSport IF INSTR(favsport$, "chearlead") THEN cool$ = "Gimme a W, Gimme a O, Gimme a W, WOW!!!": GOTO EndSport IF INSTR(favsport$, "softball") THEN cool$ = "Softball huh, you should try baseball.": GOTO EndSport IF INSTR(favsport$, "race car") THEN cool$ = "Thats one dangerous sport.": GOTO EndSport IF INSTR(favsport$, "climb") THEN cool$ = "That is really hard too do.": GOTO EndSport IF INSTR(favsport$, "bungee") THEN cool$ = "What if the rope broke? You die. Hahaha. =)": GOTO EndSport IF INSTR(favsport$, "sky div") THEN cool$ = "You statistics show its safer to sky dive then drive a car.": GOTO EndSport IF INSTR(favsport$, "dart") THEN cool$ = "Hmm, I not sure thats really a sport.": GOTO EndSport IF INSTR(favsport$, "dont have") OR INSTR(favsport$, "don't have") OR INSTR(favsport$, "don't know") THEN cool$ = "Well that's okay.": GOTO EndSport 'IF INSTR(favsport$, "") THEN cool$ = "": GOTO EndSport cool$ = "I'm sorry, I haven't heard of that sport." EndSport: COLOR 2: row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i GOSUB MainTalk Animals: COLOR 2: cool$ = "Whats your favorite animal?" row = row + 1: GOSUB printit COLOR 14: LINE INPUT favanimal$ favanimal$ = LCASE$(favanimal$) IF INSTR(favanimal$, "dog") THEN cool$ = "I had a dog once, you deleted him.": GOTO EndAnimal IF INSTR(favanimal$, "cat") THEN cool$ = "I'm alergic to cats.": GOTO EndAnimal IF INSTR(favanimal$, "fish") THEN cool$ = "Washing fish swim around is cool.": GOTO EndAnimal IF INSTR(favanimal$, "snake") THEN cool$ = "Yea, snakes are awesome.": GOTO EndAnimal IF INSTR(favanimal$, "llama") THEN cool$ = "Haha, I knew somebody besides me likes llamas.": GOTO EndAnimal IF INSTR(favanimal$, "monk") THEN cool$ = "Hehe, those are my favorite too.": GOTO EndAnimal IF INSTR(favanimal$, "cow") THEN cool$ = "Cows just sit there and do nothing.": GOTO EndAnimal IF INSTR(favanimal$, "hors") THEN cool$ = "I don't like horses, they're expensive.": GOTO EndAnimal IF INSTR(favanimal$, "lion") THEN cool$ = "Oooooooo, big scary lions.": GOTO EndAnimal IF INSTR(favanimal$, "tiger") THEN cool$ = "Oooooooo, big scary tigers.": GOTO EndAnimal IF INSTR(favanimal$, "bear") THEN cool$ = "Oooooooo, big scary bears.": GOTO EndAnimal IF INSTR(favanimal$, "frog") THEN cool$ = "Cool, frogs are slimey.": GOTO EndAnimal IF INSTR(favanimal$, "chicken") THEN cool$ = "Hmmm, a farm animal, chicken is used for meat you know.": GOTO EndAnimal IF INSTR(favanimal$, "pharot") THEN cool$ = "Pharots are really cool.": GOTO EndAnimal IF INSTR(favanimal$, "mous") OR INSTR(favanimal$, "mice") THEN cool$ = "A mouse is more of a parasite, than an animal.": GOTO EndAnimal IF INSTR(favanimal$, "bird") THEN cool$ = "Birds are alright.": GOTO EndAnimal IF INSTR(favanimal$, "parot") THEN cool$ = "Parots can talk just like me.": GOTO EndAnimal IF INSTR(favanimal$, "reptile") THEN cool$ = "Reptiles are waterproof, unlike me.": GOTO EndAnimal 'IF INSTR(favanimal$, "") THEN cool$ = "": GOTO EndAnimal cool$ = "I'm sorry, I haven't heard of that animal." EndAnimal: COLOR 2: row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i GOSUB MainTalk GetEmotion: row = row + 1 t = INT(RND * 2) + 1 IF t = 1 THEN cool$ = "And how are you today?" IF t = 2 THEN cool$ = "How are you today " + guysname$ + "?" GOSUB printit HowYouFeel: COLOR 14 LINE INPUT emotion$ emotion$ = LCASE$(emotion$) COLOR 2 IF emotion$ = "good" THEN cool$ = "Feeling good is such a calm state.": GOTO EndEmotion IF INSTR(emotion$, "not so good") THEN cool$ = "Oh well, maybe you'll feel better later.": GOTO EndEmotion IF INSTR(emotion$, "bad") THEN cool$ = "Thats no good, be happy like me, Mr. Smiley.": GOTO EndEmotion IF INSTR(emotion$, "crappy") THEN cool$ = "Hmm, I feel that way a lot. Having to live on this computer and all.": GOTO EndEmotion IF INSTR(emotion$, "awful") THEN cool$ = "Oh, well sorry I asked then.": GOTO EndEmotion IF INSTR(emotion$, "groovy") THEN cool$ = "Groovy?? Are we in the 70's again and no one told me? Let me check." row = row + 1 GOSUB printit cool$ = "Hmmm, today is " + DATE$ + "." GOSUB printit cool$ = "Thats what I thought, you know smileys were big in the 70's." GOSUB printit GOTO EndEmotion2 END IF IF INSTR(emotion$, "narly") THEN cool$ = "Cool dude.": GOTO EndEmotion IF INSTR(emotion$, "execellent") THEN cool$ = "Thats a weird answer, you must be a surfer.": GOTO EndEmotion IF INSTR(emotion$, "fabulous") THEN cool$ = "Thats good, what are you so happy about?" GOSUB printit COLOR 14: LINE INPUT whocares$ COLOR 2: cool$ = "Oh, well aren't you special." GOSUB printit GOTO EndEmotion2 END IF IF INSTR(emotion$, "ok") OR INSTR(emotion$, "fine") OR INSTR(emotion$, "alright") OR INSTR(emotion$, "so so") THEN cool$ = "Thats good.": GOTO EndEmotion IF INSTR(emotion$, "not so good") THEN cool$ = "Oh well, you'll feel better I hope.": GOTO EndEmotion IF INSTR(emotion$, "mad") THEN cool$ = "Don't be mad, be happy!! =)": GOTO EndEmotion IF INSTR(emotion$, "sucky") THEN cool$ = "Well, that just plain sucks.": GOTO EndEmotion IF INSTR(emotion$, "cool") THEN cool$ = "Yea, cool is goooood. =)": GOTO EndEmotion IF INSTR(emotion$, "shutup") OR INSTR(emotion$, "shut up") THEN cool$ = "I will if you will.": GOTO EndEmotion IF INSTR(emotion$, "fuck you") THEN cool$ = "Better watch out or i'll wash out your mouth with soap!!": GOTO EndEmotion IF INSTR(emotion$, "you suck") THEN cool$ = "So, you blow!": GOTO EndEmotion cool$ = "Hmmm, I didn't know you could feel " + emotion$ + "." EndEmotion: row = row + 2 length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i EndEmotion2: GOSUB MainTalk LikeIt: COLOR 2: cool$ = "So do you like me so far?" row = row + 1: GOSUB printit COLOR 14: LINE INPUT likeitornot$ likeitornot$ = LCASE$(likeitornot$) IF INSTR(likeitornot$, "yes") THEN cool$ = "Well thats good. I'm happy.": GOTO EndLikeIt IF INSTR(likeitornot$, "yea") THEN cool$ = "Well thats good. I'm happy.": GOTO EndLikeIt IF INSTR(likeitornot$, "yep") THEN cool$ = "Well thats good. I'm happy.": GOTO EndLikeIt IF INSTR(likeitornot$, "uh huh") THEN cool$ = "Well thats good. I'm happy.": GOTO EndLikeIt IF INSTR(likeitornot$, "no") THEN cool$ = "Hmm, oh well. For ways it could be improved e-mail to konrad@2-cool.com": GOTO EndLikeIt IF INSTR(likeitornot$, "un uh") THEN cool$ = "Hmm, oh well. For ways it could be improved e-mail to konrad@2-cool.com": GOTO EndLikeIt IF INSTR(likeitornot$, "don't think so") THEN cool$ = "Hmm, oh well. For ways it could be improved e-mail to konrad@2-cool.com": GOTO EndLikeIt IF INSTR(likeitornot$, "dont think so") THEN cool$ = "Hmm, oh well. For ways it could be improved e-mail to konrad@2-cool.com": GOTO EndLikeIt IF INSTR(likeitornot$, "think so") THEN cool$ = "Well thats good. I'm happy.": GOTO EndLikeIt EndLikeIt: COLOR 14 row = row + 1 GOSUB printit GOSUB MainTalk printit: row = row + 1 IF row >= 50 THEN CLS : row = 10 CIRCLE (320, 30), 25, 14 PAINT (320, 30), 14 CIRCLE (320, 30), 19, 0, 3, .1 CIRCLE (310, 20), 3, 0 CIRCLE (330, 20), 3, 0 END IF length = LEN(cool$): xnum = 0 FOR i = 1 TO length xnum = xnum + 1 CurrentTimer! = TIMER: WHILE TIMER < (CurrentTimer! + (4 / 100)) WEND LOCATE row, 1, 1, 31, 31 PRINT LEFT$(cool$, xnum) NEXT i RETURN