A Day In The Life Of Alan

function BORINGENDING()
io.write("\nFinally almost home you begin to walk up your driveway, when\nnothing happens.You feel like you've missed some opportunities today.\
You ponder this as you eat you microwave dinner for one and watch a nightime film.\nMaybe tomorrow.\n\nPress any key to continue...\n")
if defusedbomb==true then ending="HAVE A GO HERO"
else ending="MOST BORING MAN ALIVE"
end
keyevent = "> Masturbated while crying"
io.read()
FINISH()
end

function DEFECATEAGAIN()
io.write("\nYou release your bowels in front of him.\nHe doesn't look particulary surprised.\
The smell is incredible, so you decide to remove your trousers.\nWhile you do this the man sticks the needle in your arm, \nand you drift off to sleep...\n\nPress any key to continue...")
if defecate==true then ending="TWICE A DAY MAN"
else ending = "SHITTY CAT HATER"
end
io.read()
keyevent= "> Crapped pants in front of mental health worker"
FINISH()
end

function GONICELY()
io.write("\nYou agree to go nicely. He looks friendly and you love people.\nThey lead you away and take you to a special building where you spend the rest of the day.\
\nPress any key to continue...\n")
if (defecate==true) then ending="NERVOUS BREAKDOWN"
else ending = "CAT HATER"
end
keyevent = "> Spent the day in a mental institution"
io.read()
FINISH()
end

function EATFACE()
io.write("\nYou approach him calmly, before leaping on him and eating his face.\nHe doesn't have a moment to react and the syringe falls uselessly to the floor.\
You deal with his friends just as easily.\nYou wrap up their bodies and place them in your freezer for a meal another day.\
\nYou spend the rest of the day relaxing.\n\nPress any key to continue...\n")
ending = "BATSHIT CRAZY"
keyevent = "> Ate a man's face"
io.read()
FINISH()
end

function WHITECOATBATTLE()
io.write("n\n_____________________________________________________________________________\
WHITE COAT BATTLE\n_____________________________________________________________________________\n\
Finally almost home you begin to walk up your driveway, when you\nhear a shout behind you. It's a nice looking man with a syringe, he wants you\n to go with him.\
You:\n\na)Eat his face\nb)Go with him\nc)Defecate yourself\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "EATFACE", "GONICELY", "DEFECATEAGAIN"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function GANGWIN()
io.write("\nThe bullets land in the big truck nearby.\nThe explosion is blinding as the gang and half the street is consumed by fire.\
You brush your hands satisfied (you'll apologise to the neighbours tomorrow) and head indoors.\nYou spend the rest of the day relaxing\
\nPress any key to continue...")
io.read()
ending = "VIGILANTE"
keyevent = "> Took out an entire criminal gang"
FINISH()
end

function GUNSUICIDE()
io.write("\nTo everyone's surprise, you turn the gun on your self and pull the trigger.\
You experience a brief moment of satisfaction from the look on their faces.\n\nPress any key to continue...")
death = "Shot yourself in the face"
io.read()
DEAD()
end

function GANGDEATH()
io.write("/nYou fire your one bullet at the gang. You manage to strike one of them!\nJust when they're about to flee they hear the dry clicking of your weapon.\
They know you're out of bullets.\nThe beating is brutal and bloody, but luckily, you eventually pass out.\n\nPress any key to continue...")
death = "Beaten to death by gang"
io.read()
DEAD()
end

function GANGBATTLE()
io.write("\n\n_____________________________________________________________________________\
GANG BATTLE\n_____________________________________________________________________________\n\
Finally almost home you begin to walk up your driveway, when you hear\na shout behind you. You spin round to be faced with a gang of men in ski masks.\
They also appear to be armed with spiked baseball bats.\nYou whip out the gun from earlier, it has one bullet left.\You\
\na)Shoot them\nb)Shoot yourself\nc)Shoot big red truck\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "GANGDEATH", "GUNSUICIDE", "GANGWIN"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function SWATWIN()
io.write("\nThe bullets land in the big truck nearby.\nThe explosion is blinding as the police and half the street is consumed by fire.\
You brush your hands satisfied (you'll apologise to the neighbours tomorrow) and head indoors.\nYou spend the rest of the day relaxing\
\nPress any key to continue...")
io.read()
ending = "LAWLESS"
keyevent = "> Vapourised a SWAT team"
FINISH()
end

function SWATDEATH()
io.write("\nYou begin to laugh as you fire at the SWAT team.\nIt appears to be ineffective as the bullets completely miss or hit their\narmoured vehicles.\
You start to slowly put your hands in the air, before your life\nis suddenly and violently ended by a sniper bullet.\n\nPress any key to continue...")
death = "Shot by police sniper"
io.read()
DEAD()
end

function POLICEBATTLE()
io.write("\n_____________________________________________________________________________\
POLICE BATTLE\n_____________________________________________________________________________\n\
Finally almost home you begin to walk up your driveway, when you hear a shout\nbehind you. It's now you realise an entire SWAT team is crouching behind cars\nin the street.\
It becomes apparent they are displeased with the generally murderous day you've had. Seeing no choice, you whip out your gun and\n\
a)Shoot SWAT team\nb)Shoot into back of SWAT van\nc)Shoot big red truck nearby\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "SWATDEATH", "SWATDEATH", "SWATWIN"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function GRANNYWIN()
io.write("\nWith an inspired moment of accuracy, you hurl the brick at her handbag.\nShe looks down briefy in terror before she explodes.\
You stand there shocked as bits of old lady rain down into your garden.\nYou'll later discover she was a terrorist serial killer granny, but that's all for another day.\
\nYou enter your house, and relax for the rest of the day.\n\nPress any key to continue...");
ending = ("GRANNY BASHER")
keyevent = ("> You killed a serial killer terrorist")
io.read()
FINISH()
end

function BRICKAIRDEATH()
io.write("\nWith a triumphant shout you hurl the brick into the air.\nYou both watch in amazement as the brick lands pointlessly in the road a few seconds later.\
\nShe simply grins dentured teeth before leaping through the air.\nBefore you can move she has plunged the knife into your chest.\
You collapse onto the floor and sweet unconsciousness takes you.\n\nPress any key to continue...")
death = ("Murdered by Granny")
DEAD()
end

function BRICKFACEDEATH()
io.write("\nWith a grunt of effort you hurl the brick at her face.\nIncredibly, you don't miss. Even more incrediblely, it bounces uselessly off.\
She simply grins dentured teeth before leaping through the air.\nBefore you can move she has plunged the knife into your chest.\
You collapse onto the floor and sweet unconsciousness takes you.\n\nPress any key to continue...")
death = ("Murdered by Granny")
DEAD()
end

function GETBRICK()
io.write("\nYou reach down slowly and grab the brick. The old lady starts towards you\nwaving the knife from side to side.\nYou:\n\na)Throw the brick at her face\nb)Throw brick into the air\nc)Throw brick at her handbag\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "BRICKFACEDEATH", "BRICKAIRDEATH", "GRANNYWIN"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function RUNDEATH()
io.write("\nYou turn to run, hoping to flee indoors and lock this crazy situation out.\nTurning your back, however, was a mistake.\
You hear a flurry of movement and suddenly you feel tiny old hands on your neck.\nYou feel a sharp and sudden pain and slip into sweet unconsciousness.\
\nPress any key to continue...");
death = "Murdered by Granny"
DEAD()
end

function MAILBOXDEATH()
io.write("\nYou turn and open your mailbox, hoping to find something to resolve the situation with.\nUnfortunately, there's only some letters.\
\nYou feel a sharp pain in your side and look down to see a knife being\nclutched by old hands sinking slowly in. You slip into sweet unconsciousness.\
\nPress any key to continue....")
io.read();
death = "Murdered by Granny"
DEAD()
end

function GRANNYBATTLE()
io.write("\n_____________________________________________________________________________\
GRANNY BATTLE\n_____________________________________________________________________________\n\
Finally almost home you begin to walk up your driveway, when you hear a shout behind you.\nIt's the old lady you walked home. She no longer looks sweet.\
With a dark and manic look on her face, she pulls a knife from her handbag.\n She begins to walk towards you. You glance around.\
You are standing next to your mailbox, there's a brick on the floor and your house is behind you.\nWhat do you do?\n\na)Check mailbox\nb)Pickup brick\nc)Run into house\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "MAILBOXDEATH", "GETBRICK", "RUNDEATH"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function FINALBATTLE()
    if (walkedladyhome==true and defusedbomb==true) then
        GRANNYBATTLE()
    elseif (shootoutbad==true) or (murderedboss==true) then
        POLICEBATTLE()
    elseif (shootoutgood==true) then
        GANGBATTLE()
    elseif (atecat==true) or (defecate==true) then
        WHITECOATBATTLE()
    else
        BORINGENDING()
    end
end

function RUNAWAY()
io.write("\nYou drop the pliers and run through the crowd.\nYou hear an explosion in the distance, the guilt is another day's worry.\
You are finally nearly home.\n\n\Press any key to continue...")
io.read()
FINALBATTLE()
end

function BLUEDEATH()
io.write("\nFortunately, when you slice down on the blue wire, death is almost instantaneous\n\n\nPress any key to continue...")
io.read()
death = "Being grossly underqualified"
DEAD()
end

function RED()
defusedbomb = true
io.write("\nWondering how this situation was forced upon you\n(and also wondering why the hell there's a crowd)\nyou cut the red wire... and the bomb stops.\
There's an explosion of applause. You grin sheepishly as you are cheered.\nAs you leave the scene you spot the old lady you saw on the bus.\nShe looks put off by something...\
\n\nPress any key to continue...")
io.read()
FINALBATTLE()
end

function FINISHWORK()
io.write("\nYou leave your work building and wander towards a small crowd nearby.\nAs you push to the front a terrified woman presses something into your hand.\
You realise it's some pliers. Someone else pushes you forward.\nBefore you is a steadily counting down explosive device. You:\n\na)Cut the red wire\nb)Cut the blue wire\nc)Run away\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "RED", "BLUEDEATH", "RUNAWAY"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function EATCAT()
atecat = true
io.write("\nAs your boss speaks to you, you snatch up his cat as it trys to pass.\nBefore he can react, you immediatly rip it's head off with your teeth. He appears to go into shock.\n\nThus, allowing you to quietly slip away from work early.\n\nPress any key to continue...\n")
io.read();
FINISHWORK()
end

function PUNCHBOSS()
murderedboss = true
io.write("\nDriven by rage, you smash your stunned boss in the face.\nHe tumbles backwards and falls through the glass window.\
You hear muffled screams below as the body hits the ground floor.\nYou decide to leave work for the day...\n\nPress any key to continue...\n");
io.read();
FINISHWORK()
end

function WINDOWSUICIDE()
io.write("\nYou scream at him and gain a moment of pleasure from\nhis terrifed face.You spin round and throw yourself\
through the glass window. Unfortunately you are on the top floor.\n\nPress any key to continue...")
death = "Driven to suicide by boss"
DEAD();
end

function SHOUTBACK()
io.write("\nYou begin to immediatly explode in his face, spittle flying everywhere.\nYou rant for a few minutes while he stands there speechless.\
The rant closes with a dramatic slam of your fist on the table.\nSurprisingly, rather than being angry, the boss is extremely impressed.\
You respond to this by:\n\na)Punching him in the face\nb)Finishing the workday\nc)Throwing yourself through the window\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "PUNCHBOSS", "FINISHWORK", "WINDOWSUICIDE"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function APOLOGISE()
gotfired = true
io.write("\nYou stammer through a weak apology. This only makes him angrier.\nHe fires you on the spot. You respond by:\n\na)Punching him in the face\nb)Leaving quietly\
c)Throwing yourself through the window\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "PUNCHBOSS", "FINISHWORK", "WINDOWSUICIDE"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function WINSHOOTOUT()
shootoutgood = true
io.write("\nApparently you were Rambo in a previous life.\nWhen the smoke clears, you can see the bullet-ridden\nbodies of the gunmen. You will never know why they were here.\
With this dealt with, you head into your office building. The boss is waiting.\nHe starts shouting at you for being late. You:\n\
a)Shout back\nb)Apologise\nc)Eat his cat\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "SHOUTBACK", "APOLOGISE", "EATCAT"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function WORKALT()
io.write("\n_____________________________________________________________________________\n\n");
    if defecate==true then
    io.write("You finally manage to get into your work building. The boss is waiting.\nHe starts shouting at you for being late.\nWhen he gets closer he becomes much quieter though.\
He looks at you like you are insane. Oh well.\nThe squishy trousers are strangely comforting.\nNo-one bothers you for the rest of the day.\n\nPress any key to continue...")
    io.read()
    FINALBATTLE()
    else
    io.write("You finally manage to get into your work building. The boss is waiting.\nHe starts shouting at you for being late. You:\n\
a)Shout back\nb)Apologise\nc)Eat his cat\n")
    optA, optB, optC, choA, choB, choC = "a", "b", "c", "SHOUTBACK", "APOLOGISE", "EATCAT"
    _G[entrytest(optA, optB, optC, choA, choB, choC)]()
    end
end

function SURRENDERDEATH()
io.write("\nYou drop the gun and sheepishly raise your hands.\nThe gunmen reach you, they don't look pleased.\
You try telling a joke. They shoot you in the face.\n\nPress any key to continue...")
death = "Belief in forgiveness"
DEAD()
end

function BARRELDEATH()
io.write("\nSmiling gleefully, you turn the gun and pump some shots into the barrels\nas the men run past them.\
Unfortunately, and not unsurprisingly, nothing happens.\nThe gunmen open fire and riddle your body with bullets.\n\nPress any key to continue...")
death = "Belief in movie logic"
DEAD()
end

function GUNFIGHT()
io.write("\nTo everyones surprise, you swipe the gun from the assailants hand.\nHis eyes widen in shock as you laugh manically and open fire.\
As you blast away the first gunman, two more rush out the building towards you.\nYou:\n\na)Shoot the barrels near them\nb)Continue firing\nc)Surrender\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "BARRELDEATH", "WINSHOOTOUT", "SURRENDERDEATH"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function KARATEDEATH()
io.write("\nYou scream out wildly and smash your hand down on the assailants neck.\n\
You experience a brilliant but brief moment of valiant victory before\n the shotgun goes off. You collapse slowly onto the pavement\nand stare down at the hole in your mid-section.\n\
Press any key to continue...")
death = "Too many kung-fu movies"
DEAD()
end

function SURRENDER()
surrendedgood = true
io.write("\nYou collapse onto the floor, weeping uncontrollably.\nEven the gunman seems embarrassed. He yells a couple of\nunecessary threats in your direction and you cry even\
harder. Eventually they leave (with your pride), and you manage to crawl to work\n\nPress any key to continue...");
io.read()
WORKALT()
end

function ARRIVEATWORK()
    if defecate==true then
        io.write("\nAs you walk up to your place of work, you realise something is wrong.\
You feel a small bit of smug satisfaction in being right as a masked man puts a gun in your face\n\nHowever, on approach he sniffs the air from your general area and pulls a face.\
He hesitates uncertainly before turning and fleeing. Problem solved!")
        io.read()
        WORKALT()

        else

        io.write("\nAs you walk up to your place of work, you realise something is wrong.\
You feel a small bit of smug satisfaction in being right as a masked man puts a gun in your face\
\nYou:\na)Snatch the gun out of his hands and shoot him\nb)Karate chop him on the neck\nc)Surrender\n")
        optA, optB, optC, choA, choB, choC = "a", "b", "c", "GUNFIGHT", "KARATEDEATH", "SURRENDER"
        _G[entrytest(optA, optB, optC, choA, choB, choC)]()
    end
end

function TEADEATH()
io.write("\nYou sit down in living room among her cluttered furniture. The old lady hands\nyou tea and you begin to drink gratefully.\
It tastes slightly of bitter almonds.\n\nAs darkness begins descends on your vision and the smiling granny stares at you,\
you wonder vaguely how it came to this.\
\n\nPress any key to continue");
death = "Old Lady Serial Killer"
DEAD()
end

function WALKHOME()
walkedladyhome = true
io.write("\nYou walk with her as she hobbles along the pavement, \neventually reaching her house. At her doorstop she turns to you and insists she makes you some tea to repay your kindness.\n\nYou reply:\na)'Gladly!'\nb)'Only if it's quick...'\nc)'Sorry, I'm late for work'\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "TEADEATH", "TEADEATH", "ARRIVEATWORK"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function OLDLADY()
io.write("\nYou sit down next to the old woman who immediatly begins to talk to you about\nher grandson.You listen amicably for what seems like an eternity, before the\nbus pulls over at her stop.\
She smiles at you and asks if you will walk her home as she has a bad hip.\nYou respond:\n\na)'Sure, no problem'\nb)'Sorry, I'm late for work'\n")
optA, optB, optC, choA, choB, choC = "a", "b", nil, "WALKHOME", "ARRIVEATWORK", nil
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function MURDERED()
io.write("'Yes there are. You just never learned them.' He correctly quips back.\nThen he stabs you.\n\nPress any key to continue...");
death = "Monkey Island quotes"
DEAD()
end

function SHOT()
io.write("As they climb out their vehicle, you fire a warning shot into the air.\nThey react instantly, unholstering their weapons and returning fire.\
You don't get a chance to take cover.\nAs you fall to the floor mortally wounded, you wonder how the hell\nyou got here.\n\n\Press any key to continue...");
io.read()
death = "Shot dead by Sonny Bonds"
DEAD()
end

function RAIDWIN()
shootoutbad = true
io.write("You fire at the police car, forcing them to dive and take cover.\nYour partners in crime rush out and you make a quick getaway.\
Somehow, you are still alive. In addition, you have gained a share of the loot.\nThey are even nice enough to drop you off outside work.\n\nPress any key to continue...")
io.read()
WORKALT()
end

function JAIL()
surrendedbad = true
io.write("You scream like a girl and throw down your weapons.\nThe police immediatly arrest you.\
You spend the rest of the day in a police cell.\n\nPress any key to continue...");
io.read()
ending = ("CONFUSED COWARD")
keyevent = ("> Spent day in prison")
FINISH()
end

function JOINRAID()
io.write("\nNo-one is more surprised than you when he nods.\nHe slips you a gun. Before you know it, you're standing\noutside a van keeping watch while three men raid a store.\
A police patrol car pulls up, you:\n\na)Shoot them\nb)Fire a warning shot\nc)Surrender\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "RAIDWIN", "SHOT", "JAIL"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function FLEE()
gayremarks = true
io.write("\nYou land face first on the pavement. As you pick yourself up\nyou glimpse the man glaring at you from the moving bus.\
The old lady has got off with you, she offers a cup of tea to\nmake you feel better. You respond:\n\na)'Thank you, I shall'\nb)'You are so kind'\nc)'Sorry, I'm late for work'\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "TEADEATH", "TEADEATH", "ARRIVEATWORK"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function ANGRYMAN()
io.write("You sit down nervously to the angry looking man. As you reach into\
your pocket, you accidently grab his arm, forcing you\nto say something. You say\n\na)'There are no words for how disgusting you are'\nb)'Listen, I know. I want in'\
c)'I could pleasure you all night for a small fee'\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "MURDERED", "JOINRAID", "FLEE"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function DEFECATE()
defecate = true
io.write("\nTo everyone's surprise, you suddenly release your bowels into your trousers.\nThe smell is unbearable, but you pretend not to notice.\
Some people look guenuinely terrifed.\n No one bothers you to the journey into work\n\n\nPress any key to continue...")
io.read()
ARRIVEATWORK()
end

function WORK()
io.write("\nYou scramble out of the house in a hurry.\nThe day is typically dreary. A woman scowls at you as you manoeuvre\
past her large frame and manage to leap onto the bus before the doors close.\nThe driver looks unimpressed as you glance around for a seat.\n\n\
Where should you sit?\na)Next to the nice looking old lady\nb)Next to the angry looking man\nc)Defecate yourself\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "OLDLADY", "ANGRYMAN", "DEFECATE"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function SLEEP()
print("\nYou decide to go back to sleep.\nYou spend the rest of the day snoozing on and off, never leaving your bed.\nYou wonder vaguely if you're depressed\
\nPress any key to continue...")
ending = ("DEPRESSED")
keyevent = ("> Slept all day")
io.read()
FINISH()
end

function LOCAL()
io.write("\nIt's just some rubbsh about a neighbour complaining about a big red truck on your street.\
Apparently it contains some potentially combustable chemicals and he wants it moved.\nYou finish reading and head out for work.\n\nPress any key to continue...")
io.read()
WORK()
end

function DISPOSAL()
io.write("\nIt's a fascinating artcle about the secrets of disarming bombs.\nApparently it's all a sham as you only need to cut the red wire. Interesting!\
You finish reading and head out for work.\n\nPress any key to continue...")
io.read()
WORK()
end

function VIOLENCE()
io.write("\nIt's a depressing read about a recent spate of robberies,\nmissing persons and bomb threats. Apparently, police\nhave no leads.\
You finish reading and head out for work.\n\nPress any key to continue...")
io.read()
WORK()
end

function READ()
readpaper = true
io.write("\nYou decide there's time for a quick read of the morning paper.\
There are three potentially interesting articles:\na)Local Neighbour Complains\nb)Secrets of Bomb Disposal\nc)Violence in the City\n")
optA, optB, optC, choA, choB, choC = "a", "b", "c", "LOCAL", "DISPOSAL", "VIOLENCE"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function START()
readpaper = false
defecate = false
walkedladyhome = false
gayremarks = false
shootoutgood = false
shootoutbad = false
surrendedgood = false
surrendedbad = false
murderedboss = false
atecat = false
defusedbomb = ""
gotfired = false
ending = false
death = ""
keyevent = ""

io.write("\a\nTHE MORNING\n\nYou awake to the bleary and irritating sound that can only be an alarm clock.\
You roll out of bed, ready for another exciting day.\
What do you want to do?\n\na) Go back to sleep\nb) Read the paper\nc) Go to work\n");
optA, optB, optC, choA, choB, choC = "a", "b", "c", "SLEEP", "READ", "WORK"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function HELP()
print("\nYou must help guide Alan through a day of his life. Unfortunately he's a pretty ordinary guy.\n\
You can do this by choosing between the options he has in a given moment\
Type the letters a, b or c to make a choice.\nIf you're still alive at the end, it's a good sign.\
There are 11 endings in total!\n\n Type start to play the game.")
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function SECRET()
io.write("Yes, that's me!\nSorry, this page only exists as it was easier to leave than write extra code\nApologies\nxx\n")
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function entrytest(optA, optB, optC, choA, choB, choC)
repeat
entry = io.read()
entry = string.lower(entry)
until entry==(optA) or entry==(optB) or entry==(optC)
io.write("\n_____________________________________________________________________________\n\n");

    if entry==(optA) then return(choA)
        elseif entry==(optB) then return(choB)
        else return(choC)
end
end

function FINISH()
io.write("\n_____________________________________________________________________________\n\n");
print("\nCONGRATULATIONS\nYOU HAVE FINISHED THE DAY ALIVE\n\nYou have recieved the ending: [[" .. ending .. "]]\n\nThe things that happened in your day:");
if readpaper==true then print("> You read the morning paper") end
if defecate==true then print("> Crapped your pants on the bus") end
if walkedladyhome==true then print("> You walked an old lady home") end
if gayremarks==true then print("> You angered the gay community") end
if shootoutbad==true then print ("> You aided a robbery, and shot at policemen") end
if shootoutgood==true then print("> You shot dead three armed robbers") end
if surrendedgood==true then print("> You cowered in fear in face of danger") end
if surrendedbad==true then print("> You cowered in fear in face of the law") end
if murderedboss==true then print("> You murdered your boss in cold blood") end
if atecat==true then print("> You ate your bosses cat") end
if defusedbomb==true then print("> You defused a terrorist explosive device") end
if defusedbomb==false then print ("> You fled in terror from responsibility") end
if gotfired==true then print("> You got fired from your job") end
print(keyevent)
print("\nWELL DONE.\nType start to play again")
optA, optB, optC, choA, choB, choC = "start", "help", "Ontogenesis", "START", "HELP", "SECRET"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

function DEAD()
io.read();
io.write("\n_____________________________________________________________________________\n\n");
print("YOU ARE DEAD.\n\nYou were killed by: " .. death .. "\n\nSorry about that. Type start to try again\n")
io.write("_____________________________________________________________________________\n\n");
optA, optB, optC, choA, choB, choC = "start", "help", "Ontogenesis", "START", "HELP", "SECRET"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()
end

io.write("A DAY IN THE LIFE OF ALAN\n\ncreated by Ontogenesis\n\n\nTo start the game, type 'start'\nfor instructions, type 'help'\n");
optA, optB, optC, choA, choB, choC = "start", "help", "Ontogenesis", "START", "HELP", "SECRET"
_G[entrytest(optA, optB, optC, choA, choB, choC)]()