Almost complete Survive the Day story, going to let someone else finish it

windows 95/Survive The Day.vb

@@ -131,6 +131,41 @@
             Button5.Text = "-"
             Button6.Text = "-"
             Time.Text = "Time: 4:01 AM"
+        ElseIf Status.Text = "Freaky Outside" Then
+            Status.Text = "Hiding in Cupboard"
+            story.Text = "You head into the kitchen and hide in the nearest cupboard. After 4 hours, you feel like you're going to pass out due to lack of air."
+            Button1.Text = "Slide cupboard door open a crack"
+            Button2.Text = "Stop hiding in the cupboard"
+            Button3.Text = "Continue hiding in the cupboard with the door shut."
+            Time.Text = "Time: 2:35 PM"
+        ElseIf Status.Text = "Hiding in Cupboard" Then
+            Status.Text = "Still hiding in Cupboard"
+            story.Text = "You slide the cupboard door ever so slightly and feel air coming in. You wait for another 5 hours and can't stand hiding anymore. You leave the cupboard."
+            Button1.Text = "Go to bed"
+            Button2.Text = "Look outside"
+            Button3.Text = "Watch TV"
+            Time.Text = "6:30 PM"
+        ElseIf Status.Text = "Still hiding in Cupboard" Then
+            Status.Text = "Heading to bed"
+            story.Text = "You try to head to your room to sleep. All of the sudden, you hear voices, following you, devilishly chanting 'You are the cause of all of this. You will pay.' over and over again. All of the sudden, you feel very hot and realise you've been set on fire." & vbNewLine & vbNewLine & "Death: Burned to death by ghosts."
+            Button1.Text = "Restart"
+            Button2.Text = "Quit"
+            Button3.Text = ""
+            Time.Text = "You're dead."
+        ElseIf Status.Text = "Even freakier sky" Or Status.Text = "Calling your friend to talk about the sky" Then
+            Status.Text = "Watching the Evening News"
+            story.Text = "You turn on the TV to watch your favourite comedy. All of the sudden, the Evening News comes on, saying how scientists have depicted that the end of the world is here. The news announcer says 'Scientists estimate that the world is ending by midnight tonight. This has caused many deaths, tragedies and the bellowing black clouds surrounding our'. All of the sudden, a huge meteorite hits the Living Room and you are forced to run."
+            Button1.Text = "Run outside"
+            Button2.Text = "Run to your room to sleep."
+            Button3.Text = "Run to the nearest cupboard and hide again."
+            Time.Text = "Time: 8:00 PM"
+        ElseIf Status.Text = "Watching the Evening News" Then
+            Status.Text = "Struck by lightning"
+            story.Text = "You start running outside, when you hear a loud bang, followed by the feeling of being shocked by a thousand volts. You then pass out." & vbNewLine & vbNewLine & "Death: Struck by Lightning."
+            Button1.Text = "Restart"
+            Button2.Text = "Quit"
+            Button3.Text = ""
+            Time.Text = "You're dead."
         ElseIf Status.Text = "Title Screen" Then
             Status.Text = "Early Wake Up"
             story.Text = "You are laying in bed surrounded by darkness. You look to your right and see in big red numbers 4:00 AM displayed on your alarm clock."
@@ -470,6 +505,26 @@
             Button5.Text = "-"
             Button6.Text = "-"
             Time.Text = "Time: 4:03 AM"
+        ElseIf Status.Text = "Hiding in Cupboard" Then
+            Status.Text = "Fainted"
+            story.Text = "You open the cupboard door to try to leave, but you see a mystical creature standing right infront of the cupboard, awaiting your arrival. You get so scared that you faint, and the creature eats you." & vbNewLine & vbNewLine & "Death: Eaten by a mystical creature."
+            Button1.Text = "Restart"
+            Button2.Text = "Quit"
+            Button3.Text = ""
+            Time.Text = "You died."
+        ElseIf Status.Text = "Still hiding in Cupboard" Then
+            Status.Text = "Even freakier sky"
+            story.Text = "You head to the window to look outside. It's 6:30 PM and the sky is full of black. Rather than the creepy commets you saw earlier, you see cracks in the earth, fire everywhere, and the ground is slowly starting to shake."
+            Button1.Text = "Watch TV"
+            Button2.Text = "Call your friend"
+            Button3.Text = ""
+            Time.Text = "Time: 6:30 PM"
+        ElseIf Status.Text = "Even freakier sky" Then
+            Status.Text = "Calling your friend to talk about the sky"
+            story.Text = "You head to the phone and dial your friend's phone number. No one answers. You wait 5 more minutes, and no one answers. You start losing hope and head to the livingroom to watch TV."
+            Button1.Text = "Watch TV"
+            Button2.Text = ""
+            Time.Text = "Time: 6:35"
         ElseIf Status.Text = "Church Disscusion" Then
             Status.Text = "Morning Weather Report"
             story.Text = "On tv a man on the morning weather report looks very confused. He looks like he is following instructions from somebody behind the camera quickly changing what he was going to say. He begins talking ‘Today started off mostly sunny but it looks like the weather is changing rapidly and some rain is to be expected by the end of the day.’ He then points to a weather chart shocked at the speedy changes. ‘Today marks the fasted change of weather ever recorded’. This is then followed by a few experts trying to examine the weather changes."