'                        Warped Tour 99   (version 1.0)
'                             By Armadillo Programming, 1999
'                       "We don't have a cool slogan yet"
'
'
'                      This game rated Teen
'                       Press Shift+F5 to play
'               
'
'               The object of the game is simple: You want to go to the
'               Warped Tour, but there are many things in the way. Parents,
'               lack of transportation, and no tickets(!!) prevent you from
'               going. Find your way through it all to go to the Warped Tour!
'
'               (Based very loosely on real people and real events)
'
'               Send comments to: dijonsrup@aol.com
'               Visit the website: http://members.aol.com/dijonsyrup
'


COLOR 1, 7
CLS
LOCATE 12, 25
PRINT "Warped Tour 99"
LOCATE 23, 21
PRINT "Press any key to begin your journey"
1 key$ = INKEY$: IF key$ = "" THEN GOTO 1

CLS
LOCATE 5, 5
PRINT "You want to go to the Warped Tour to see Blink 182, but"
LOCATE 6, 5
PRINT "you don't have tickets, a ride, and your parents don't want"
LOCATE 7, 5
PRINT "you to go. You must out-wit your enemies and find a way to"
LOCATE 8, 5
PRINT "get to the Warped Tour 99!!"
LOCATE 23, 25
PRINT "Hit a key to go on..."
3 key$ = INKEY$: IF key$ = "" THEN GOTO 3

4 CLS
PRINT "DAY 1,10:00 AM-Convince the Parents"
PRINT "Your parents don't want you to go. What do you do?"
PRINT "TELL them you have to go to a friend's house that day,"
PRINT "EXPLAIN calmly why you want to go,"
PRINT "GET on your knees and beg them to go,"
INPUT "or SLIP your dad a $20 and suavely ask him if you can go"; ask$
IF LCASE$(ask$) = "tell" THEN PRINT "Your parents don't believe you! You're grounded!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(ask$) = "explain" THEN PRINT "Your parents reluctantly let you go. Good job!": SLEEP 15: GOTO 5
IF LCASE$(ask$) = "get" THEN PRINT "Your parents find your attempts pitiful. You're grounded!":  LOCATE 15, 5: PRINT "YOU LOSE!": END
IF LCASE$(ask$) = "slip" THEN PRINT "It works! Your dad agrees to let you go. Good job!": SLEEP 15: GOTO 5
IF LCASE$(ask$) = "hmm thread forever" THEN GOTO 16
GOTO 4

5 CLS
PRINT "DAY 1,2:25 PM-Find the Froman"
PRINT "You're going to the Warped Tour with the Froman,"
PRINT "but you can't find him. What do you do?"
PRINT "CALL him at home,"
PRINT "RIDE your bike to his house,"
PRINT "FIND him at the mall,"
INPUT "or WAIT for him to call you"; fro$
IF LCASE$(fro$) = "call" THEN PRINT "No good. He's on the Internet for hours and you can't get through.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(fro$) = "ride" THEN PRINT "Tough luck. The Froman's at work.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(fro$) = "find" THEN PRINT "You crash his date with his girlfriend, but found him! Good job!":  SLEEP 15: GOTO 6
IF LCASE$(fro$) = "wait" THEN PRINT "It takes a while, but he eventually calls you. Congratulations!": SLEEP 15: GOTO 6
GOTO 5

6 CLS
PRINT "DAY 1,8:19 PM-Movies"
PRINT "The Froman invites you to his house to watch movies."
PRINT "What should you rent?"
PRINT "The STAR WARS trilogy,"
PRINT "The PROFESSIONAL,"
PRINT "Spider-Man CARTOONS,"
INPUT "or PORN videos"; video$
IF LCASE$(video$) = "star wars" THEN PRINT "Ya! The Star Wars legacy will never die!": SLEEP 15: GOTO 7
IF LCASE$(video$) = "professional" THEN PRINT "That girl in the movie is very cute. You have fun!": SLEEP 15: GOTO 7
IF LCASE$(video$) = "cartoons" THEN PRINT "You get bored, fall asleep, and sleep through the Warped Tour!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(video$) = "porn" THEN PRINT "Fro's mom caught you and grounded both of you!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 6

7 CLS
PRINT "DAY 2,5:47 PM-Get hot chicks to go with you"
PRINT "There's no way you're going to the Warped Tour without hot chicks."
PRINT "How do you convince them to go?"
PRINT "PAY them money,"
PRINT "PROMISE you'll get tickets for them,"
PRINT "BEG them to come along,"
INPUT "or OFFER them sex if they come along"; chicks$
IF LCASE$(chicks$) = "pay" THEN PRINT "They were planning on going already, but now they're going with you!": SLEEP 15: GOTO 8
IF LCASE$(chicks$) = "promise" THEN PRINT "Good job! They've agreed to go!": SLEEP 15: GOTO 8
IF LCASE$(chicks$) = "beg" THEN PRINT "They think you are pitiful for begging. Too bad!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(chicks$) = "offer" THEN PRINT "They would rather do each other than you. Too bad!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 7

8 CLS
PRINT "DAY 3,11:58 AM-Get transportation"
PRINT "With the Warped Tour only three days away, you still don't have a ride!"
PRINT "What are you going to do?"
PRINT "DRIVE yourself,"
PRINT "TAKE the bus,"
PRINT "GET your parents to drive,"
INPUT "or WALK to the Warped Tour"; trans$
IF LCASE$(trans$) = "drive" THEN PRINT "You forgot you don't have a driver's license!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(trans$) = "take" THEN PRINT "Groovy idea! The Froman loves your idea too! Good Job!": SLEEP 15: GOTO 9
IF LCASE$(trans$) = "get" THEN PRINT "No! Your parents won't drive you! Too bad!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(trans$) = "walk" THEN PRINT "The chicks don't wanna walk, so they won't go with you.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 8

9 CLS
PRINT "DAY 3,7:56 PM-You're hungry"
PRINT "Your parents are gone and now you're hungry. What to do?"
PRINT "FORGET about food for the night and play N64,"
PRINT "TAKE a walk to get your mind off food,"
PRINT "GO to bed early,"
INPUT "or WALK to the local 7-11"; food$
IF LCASE$(food$) = "forget" THEN PRINT "It doesn't work. You starve to death!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(food$) = "take" THEN PRINT "When you leave your house, the neighbor's dog eats you.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(food$) = "go" THEN PRINT "You dream about eating a large chicken. When you awake, your legs are gone!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(food$) = "walk" THEN PRINT "Bingo! You pick up some Funyuns and Mountain Dew!": SLEEP 15: GOTO 10
GOTO 9

10 CLS
PRINT "DAY 4,12:30 AM-Get tickets"
PRINT "You still have to get tickets. What do you do?"
PRINT "WIN tickets at the radio station,"
PRINT "CALL the box office and buy them,"
PRINT "JUST get the tickets at the door,"
INPUT "or BREAK into your neighbor's house and steal his tickets"; tix$
IF LCASE$(tix$) = "win" THEN PRINT "You only win 2 tickets. The chicks find out and take them.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(tix$) = "call" THEN PRINT "Good call. You get tickets before they sold out.": SLEEP 15: GOTO 11
IF LCASE$(tix$) = "just" THEN PRINT "Ack! You find out they sold out! Now you can't go!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(tix$) = "break" THEN PRINT "Not a good idea. Your set off the alarm and get arrested.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 10

11 CLS
PRINT "DAY 5,3:55 PM-Keep your tickets"
PRINT "The bully down the street wants your tickets. What do you do?"
PRINT "BEAT him up,"
PRINT "RUN away from him,"
PRINT "TRICK him,"
INPUT "or GIVE up your tickets"; bully$
IF LCASE$(bully$) = "beat" THEN PRINT "You pull out a pen and stab him. He ran away crying!": SLEEP 15: GOTO 12
IF LCASE$(bully$) = "run" THEN PRINT "He catches up to you and beats you up!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(bully$) = "trick" THEN PRINT "It doesn't work! He gives you a wedgie and takes your tickets!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(bully$) = "give" THEN PRINT "Idiot! Now you don't have any tickets!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 11

12 CLS
PRINT "DAY 5,12:00 PM-The Hooker"
PRINT "You snuck out at night and hired a hooker, but realized you don't"
PRINT "have any money left! What do you do?"
PRINT "TELL her you're broke and run,"
PRINT "GIVE her the tickets as payment,"
PRINT "CALL your parents for help,"
PRINT "RUN away!!"
INPUT "or LIE to her that you have money"; hoe$
IF LCASE$(hoe$) = "tell" THEN PRINT "She's actually an undercover cop! She arrests you for soliciting sex!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(hoe$) = "give" THEN PRINT "After you lay her, you steal the tickets back and run!": SLEEP 15: GOTO 13
IF LCASE$(hoe$) = "call" THEN PRINT "Bad move! Your parents ground you for life!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(hoe$) = "run" THEN PRINT "You trip and break your thumb! You're in the hospital for weeks!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(hoe$) = "lie" THEN PRINT "You fool! She sees through your lie and beats you up!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 12

13 CLS
PRINT "DAY 6,10:35 AM-The Bus Ride"
PRINT "The Warped Tour is 2 hours away and the hot chicks missed the bus!"
PRINT "What do you do?"
PRINT "CALL them and ask them what's holding them up,"
PRINT "FIND them at their house,"
PRINT "FORGET about them and get on the bus,"
PRINT "SEND a messenger to tell them to meet you there,"
INPUT "or STAY home and hope they'll call you"; bus$
IF LCASE$(bus$) = "call" THEN PRINT "Good idea! They say they'll meet you at the front gates.": SLEEP 15: GOTO 14
IF LCASE$(bus$) = "find" THEN PRINT "Now you've missed the bus too!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(bus$) = "forget" THEN PRINT "You can't go to the Warped Tour without hot chicks!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(bus$) = "send" THEN PRINT "The messenger gets run over by a car! They never meet you there!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(bus$) = "stay" THEN PRINT "They never call and you miss the Warped Tour!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 13

14 CLS
PRINT "DAY 6,12:00 PM-Lost Ticket"
PRINT "You met the girls at the front gate, but realize the hooker made off"
PRINT "with one of your tickets. What do you do now?"
PRINT "BUY another ticket at the door,"
PRINT "STEAL a ticket from someone else,"
PRINT "TELL one of the chicks she can't go,"
PRINT "VISIT the radio booth,"
INPUT "or SNEAK in"; lost$
IF LCASE$(lost$) = "buy" THEN PRINT "Doesn't work. They're sold out!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(lost$) = "steal" THEN PRINT "You try, but he catches you. He beats you up!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(lost$) = "tell" THEN PRINT "Fro doesn't like the idea and gives your ticket to her instead.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(lost$) = "visit" THEN PRINT "Ya! The girls flash the DJ and he gives you another ticket!": SLEEP 15: GOTO 15
IF LCASE$(lost$) = "sneak" THEN PRINT "You get caught by the guards and they kick you out.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 14

15 CLS
PRINT "DAY 6,6:25 PM-Finally! Blink 182!"
PRINT "You made it! One of the chicks says she'll go out with you if you"
PRINT "can get the band's autographs! What do you try now?"
PRINT "ASK the band politely,"
PRINT "MOSH along with everyone else,"
PRINT "CROWD surf your way to the stage,"
PRINT "SNEAK backstage afterwards,"
INPUT "or TURN down her offer"; blink$
IF LCASE$(blink$) = "ask" THEN PRINT "The music is so loud the band can't hear you.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(blink$) = "mosh" THEN PRINT "The mosh pit is too violent! You lose footing and get squashed!": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(blink$) = "crowd" THEN PRINT "You get dropped and fall, breaking your tail bone.": LOCATE 15, 5: PRINT "YOU LOSE!": END:
IF LCASE$(blink$) = "sneak" THEN PRINT "You successfully make it backstage and Blink 182 gives you an autograph!": SLEEP 15: GOTO 16
IF LCASE$(blink$) = "turn" THEN PRINT "Are you crazy? You turned her down?": LOCATE 15, 5: PRINT "YOU LOSE!": END:
GOTO 15

16 CLS
LOCATE 12, 15
PRINT "You got to see Blink 182 at the Warped Tour!"
LOCATE 13, 15
PRINT "And you got a little something extra, too :) "
PLAY "c8 c16 d8 d16 e8 o3 g8 g16 o4 d8 d16 e8 o3 a8 a16 o4 d8 d16 e8 o3 f8 f16 o4 e8 e16 d8 c8"
LOCATE 23, 21
PRINT "Press any key..."
17 key$ = INKEY$: IF key$ = "" THEN GOTO 17

18 CLS
LOCATE 1, 15
PRINT "Warped Tour 99"
LOCATE 2, 15
PRINT "By Armadillo Programming"
PRINT ""
PRINT "Lead Programmer: CeJota"
PRINT "Concept: DijonSyrup"
PRINT ""
PRINT "Blink 182"
PRINT "Dammit"
PRINT "Music figured out by: CeJota"
PRINT ""
PRINT "Play Testing: CeJota, DijonSyrup, Frostorm"
PRINT "Special thanks to: Froware Software"