04-14-2005, 11:30 AM
ahhh.. i was just thinking about this today so i found an old version of QBOA with it in it. Enjoy
Code:
DECLARE SUB DrinkACouple ()
Start:
IF FeelingSpunky = True THEN
CallFriend1
Say$ = "Man, you always puss out on me"
CallFriend2
Say$ = "Hell yeah! I'll see you then"
DrinkACouple
END IF
IF PartyTime = TIME$ THEN
DrinkACouple
WaitForBuddy
DriveToParty
END IF
IF AtParty = True THEN
WalkUpToParty
IF NumOfGirls < NumOfGuys THEN Book
MeetPeople
DrinkACouple
GrabHouseGuitarAndPlayFunnySongs
DrinkACouple
MakeSomePunkyBeeotchHoldGuitar
WalkAway
GrabACoupleGirls
GrabACoupleOfDudes
DrinkACouple
GetAGameOfAssholeGoing
Cheat
BecomePresident
GetEverybodyTanked
FindSomeThingMoreFunThanCardGames
DrinkACouple
END IF
IF SpecialCalculation = True THEN 'Note: This is extremely rare!
DrinkACouple
GetEverybodyNaked
PlayJungleMusic
DanceAround
END IF
IF FeelingPukey = True THEN
SELECT CASE Location$
CASE "In house"
RunToBathroom
CASE "Outside"
RunToBush
CASE "In a car by the road"
Say$ = "Oh I just remembered something came up"
RunToBush
END SELECT
BlowChunks
GargleBeer
DrinkACouple
ActLikeNothingEverHappened
DrinkACouple
END IF
IF HaveTwister THEN
FindHotGirls
MakeThemLaugh
Say$ = "Go get your boyfriends first"
TakeRemaningGirlsToPrivatePlace
TellThemBalanceIsBetterWithOnlyUnderwear
PlayTwister
IF GirlsAreLame = True THEN
Bail
ELSE
GetComfortable
END IF
END IF
DO UNTIL PreppieB1tchWantsTaGo = True
TalkSh1t
LOOP
ScamPreppieOutOf20Bucks
MakeHimLookLikeTheD1ck
Laugh
IF TIME$ > "06:00:00" THEN
SayGoodByes
StumbleOut
GoToDrunkinDonuts
HarassOldGuy
DrinkCoffee
DriveHome
END IF
IF AtHome = True THEN
SayGoodByes
StumbleOutOfCar
EnterHouse
Crash
WakeUp
Say$ = "OMG, sorry man!"
StumbleToOwnHouse
Crash
END IF
IF FeelingBetter THEN GOTO Start
SUB DrinkACouple
FOR Number = 2 TO ((Craziness \ Responsibility) + Balls)
SELECT CASE FeelingSquirrely
CASE True
Shotgun = Beer(Number)
CASE ELSE
Drink = Beer(Number)
END SELECT
NEXT
END SUB