From 636946ca544727b387993dbce5094c704cd61aa7 Mon Sep 17 00:00:00 2001 From: jakeypearce Date: Fri, 7 Aug 2015 16:12:38 +0100 Subject: Web Chat 1998 modified (not the interface, but the storyline) --- windows 95/Webchat1998.vb | 277 ++++++++++++++++++++++++++++++---------------- 1 file changed, 179 insertions(+), 98 deletions(-) (limited to 'windows 95/Webchat1998.vb') diff --git a/windows 95/Webchat1998.vb b/windows 95/Webchat1998.vb index 255c1fa..c9ec83d 100755 --- a/windows 95/Webchat1998.vb +++ b/windows 95/Webchat1998.vb @@ -37,10 +37,90 @@ Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick Select Case con + Case 163 + history.Text = ("RESTORING BORDER" & Environment.NewLine) + program.BorderStyle = BorderStyle.FixedSingle + history.BorderStyle = BorderStyle.FixedSingle + top.Show() + left.Show() + bottom.Show() + right.Show() + toprightcorner.Show() + topleftcorner.Show() + bottomrightcorner.Show() + bottomleftcorner.Show() + history.Text = ("BORDER RESTORE COMPLETE" & Environment.NewLine) + Case 162 + history.Text = Environment.NewLine("RESTORING CHANGES..." & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 161 + history.Text = ("The Hidden Hacker: Download complete" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 160 + history.Text = ("1" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 159 + history.Text = ("2" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 158 + history.Text = ("3" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 157 + history.Text = ("4" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 156 + history.Text = ("5" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 155 + history.Text = ("6" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 154 + history.Text = ("7" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 153 + history.Text = ("8" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 152 + history.Text = ("9" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 151 + history.Text = ("The Hidden Hacker: Downloading in 10" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 150 + history.Text = ("The Hidden Hacker: I have a copy of, not Time Distorter, but a software to remove 12padams' changes he made to your system." & Environment.NewLine) + con += 1 + Case 149 + history.Text = ("The Hidden Hacker: It is rumoured that this piece of software enables time travel. I know that you probably don't believe me but just trust me." & Environment.NewLine) + con += 1 + Case 148 + history.Text = ("The Hidden Hacker: Allow me to introduce myself. I go by the name 'The Hidden Hacker' and I needed to stop 12padams. The reason why is because he is using a hidden piece of software called Time Distorter." & Environment.NewLine) + con += 1 + Case 147 + history.Text = ("???: Oh, hello " & username & ", it seems that you got trapped here by a user called 12padams who made your Windows 95 computer into DOS!" & Environment.NewLine) + history.Text = ("1 IP address found! It is 102.58.72.128. This address belongs to " & username & Environment.NewLine) + con += 1 + Case 146 + history.Text = ("??? is scanning IP address!" & Environment.NewLine) + Case 145 + history.Text = ("???: Hello?! Anyone here?" & Environment.NewLine) + con += 1 Case 144 - Title_Screen.Close() + history.Text = ("Connected!" & Environment.NewLine) + con += 1 Case 143 - history.Text = (Environment.NewLine & "Game Over... You lose because you are using MS-DOS from the early 1980's and its 1998... Serriously what were you thinking??" & Environment.NewLine) + history.Text = ("IP 192.68.142.78 connecting..." & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 142 @@ -61,55 +141,55 @@ history.ReadOnly = True con += 1 Case 139 - history.Text += ("12padams: Oh last of all here is one hint... DOS IS USLESS... ITS JUST TEXT. NEXTTIME DON'T PIRATE SOFTWARE" & Environment.NewLine) + history.Text += ("12padams: Oh and last of all, here is one hint... DOS IS USELESS! IT IS JUST TEXT! NEXT TIME DON'T PIRATE SOFTWARE!" & Environment.NewLine) Chat.Interval = 6000 history.ReadOnly = False con += 1 Case 138 - history.Text += ("12padams: Ok see ya... You have learned two leasons today... 1. don't pirtae software, 2. you learnt about old operating systems." & Environment.NewLine) + history.Text += ("12padams: You have learnt two leasons today... 1. don't pirate software and 2. you learnt about old operating systems." & Environment.NewLine) Chat.Interval = 10000 history.ReadOnly = False con += 1 Case 137 - history.ForeColor = Color.Silver + history.ForeColor = Color.Gray Chat.Interval = 2000 history.ReadOnly = False con += 1 Case 136 - history.Text += ("12padams: In DOS the computer had grey text not white text i just gotta modify it first." & Environment.NewLine) + history.Text += ("12padams: In DOS the computer had grey text, not white text. I just need to modify it first." & Environment.NewLine) Chat.Interval = 4000 history.ReadOnly = False con += 1 Case 135 - history.Text += ("12padams: Ok I just need to do one last setup for DOS" & Environment.NewLine) + history.Text += ("12padams: I just need to do one last setup for DOS." & Environment.NewLine) Chat.Interval = 4000 history.ReadOnly = False con += 1 Case 133 - history.Text += ("12padams: Your computer now needs MS-DOS this will disconnect you from the convasation." & Environment.NewLine) + history.Text += ("12padams: Your computer is running MS-DOS which is incompatible with this version of Chat! This will disconnect you from the conversation." & Environment.NewLine) Chat.Interval = 7000 history.ReadOnly = False con = con + 2 Case 131 - history.Text += ("12padams: Hmm i am being to kind.... I think i gotta go now." & Environment.NewLine) + history.Text += ("12padams: I'm being too kind... I think I got to go now." & Environment.NewLine) Chat.Interval = 6000 history.ReadOnly = False con = con + 2 Case 130 - history.Text += ("12padams: Ok there you go you can now type... Happy now?" & Environment.NewLine) + history.Text += ("12padams: There you go. You can type now. Happy?!" & Environment.NewLine) Chat.Interval = 8000 history.ReadOnly = False con += 1 Case 129 - history.Text += ("12padams: Lol for once i am giving you a feature..." & Environment.NewLine) + history.Text += ("12padams: For once I am giving you a feature..." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 128 - history.Text += ("12padams: Ok Well lol woops you can't type... thats a big mistake!!!!" & Environment.NewLine) + history.Text += ("12padams: You can't type. That's a big mistake!" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 127 - history.Text += ("12padams: Good now thats gone. I really gotta think for a little while at what to do next." & Environment.NewLine) + history.Text += ("12padams: Good! Now that's gone, I really got to think for a little while at what to do next." & Environment.NewLine) Chat.Interval = 10000 con += 1 Case 126 @@ -126,15 +206,15 @@ Chat.Interval = 3000 con += 1 Case 125 - history.Text += ("12padams: Ok ill remove it now." & Environment.NewLine) + history.Text += ("12padams: OK I'll remove it now." & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 124 - history.Text += ("12padams: Oh and the the white border around your screen i can't forget to remove that..." & Environment.NewLine) + history.Text += ("12padams: The white border around your screen; I can't forget to remove that!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 123 - history.Text += ("12padams: mouse removed..." & Environment.NewLine) + history.Text += ("12padams: Mouse removed!" & Environment.NewLine) Chat.Interval = 5000 con += 1 Cursor.Hide() @@ -175,23 +255,23 @@ Chat.Interval = 1000 con += 1 Case 113 - history.Text += ("12padams: Ok removing in 10..." & Environment.NewLine) + history.Text += ("12padams: OK removing in 10..." & Environment.NewLine) Chat.Interval = 1000 con += 1 Case 112 - history.Text += ("12padams: Ok enjoy the mouse while you can because I am just about to remove it..." & Environment.NewLine) + history.Text += ("12padams: Enjoy the mouse while you can! I'm about to remove it..." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 111 - history.Text += ("12padams: How could i forget to remove then mouse..." & Environment.NewLine) + history.Text += ("12padams: How could I forget to remove the mouse?" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 110 - history.Text += ("12padams: Ok this is imbarrissing... I forgot to remove something thats really noticable that didn't exist." & Environment.NewLine) + history.Text += ("12padams: OK, this is embarrissing... I forgot to remove something that's really noticable that didn't exist." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 109 - history.Text += ("12padams: Hmm... I seem to be making quite a good theme... I really should add this to skindows..." & Environment.NewLine) + history.Text += ("12padams: It appears that I seem to be making quite a good theme... I really should add this to Skindows 98..." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 108 @@ -199,19 +279,19 @@ Chat.Interval = 4000 con += 1 Case 107 - history.Text += ("12padams: Ill just remove it now..." & Environment.NewLine) + history.Text += ("12padams: I'll just remove it now..." & Environment.NewLine) Chat.Interval = 2000 con += 1 Case 106 - history.Text += ("12padams: I see the scroll bar at the side of the screen... that didn't exist early 1980's" & Environment.NewLine) + history.Text += ("12padams: I see the scroll bar at the side of the screen which never existed early 1980s" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 105 - history.Text += ("12padams: hmm theres still something missing..." & Environment.NewLine) + history.Text += ("12padams: There is something wrong though..." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 104 - history.Text += ("12padams: Wow your computers looking good... I should be a programmer since i did such a godo job..." & Environment.NewLine) + history.Text += ("12padams: Wow! You're computer is looking good... I should be a programmer since I did such an excellent job..." & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 103 @@ -219,11 +299,11 @@ Chat.Interval = 3000 con += 1 Case 102 - history.Text += ("12padams: Hmm yes Thats whats missing I gotta make the text full screen..." & Environment.NewLine) + history.Text += ("12padams: That's whats missing; I gotta make the text full screen..." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 101 - history.Text += ("12padams: I Think I almost got your computer converted... early 1980's should be enough of a punishment..." & Environment.NewLine) + history.Text += ("12padams: I think I almost got your computer converted... early 1980s should be enough of a punishment..." & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 100 @@ -236,15 +316,15 @@ Chat.Interval = 5000 con += 1 Case 98 - history.Text += ("12padams: Ok I hope Your not Scared Of the dark!" & Environment.NewLine) + history.Text += ("12padams: OK, I hope you're not scared of the dark!" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 97 - history.Text += ("12padams: Hmm ok this is gunna be tricky..." & Environment.NewLine) + history.Text += ("12padams: OK, this is going to be tricky..." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 96 - history.Text += ("12padams: Oh and we didn't have backgrounds... or even color for the matter..." & Environment.NewLine) + history.Text += ("12padams: We didn't have backgrounds either... or even color for the matter..." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 95 @@ -254,7 +334,7 @@ Label1.Hide() Label7.Hide() Case 94 - history.Text += ("12padams: First of all we didn't have labels... so ill remove labels now" & Environment.NewLine) + history.Text += ("12padams: First of all we didn't have labels... so I'll remove the labels now." & Environment.NewLine) Chat.Interval = 2000 con += 1 Case 93 @@ -262,7 +342,7 @@ Chat.Interval = 5000 con += 1 Case 92 - history.Text += ("12padams: This is good now i can teach you and punish you at the same time lol :) " & Environment.NewLine) + history.Text += ("12padams: This is good! Now i can teach you and punish you at the same time lol :) " & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 91 @@ -270,29 +350,29 @@ Chat.Interval = 4000 con += 1 Case 90 - history.Text += ("12padams: Hmm your new... Infact I have scanned your system and your using windwos 95 which you just got very recenty... " & Environment.NewLine) + history.Text += ("12padams: You must be new. I've scanned your system and you're using Windwos 95 OSR 2 which you just got very recently... " & Environment.NewLine) Chat.Interval = 10000 con += 1 Case 89 - history.Text += ("12padams: Oh thats Right you dont even talk so your problably don't even know its gone... " & Environment.NewLine) + history.Text += ("12padams: Oh yeah! You dont even talk so you problably don't even know it's gone... " & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 88 - history.Text += ("12padams: Lol your problably saying WHY CAN'T I TALK... " & Environment.NewLine) + history.Text += ("12padams: You're problably saying ""WHY CAN'T I TALK?!"" " & Environment.NewLine) Chat.Interval = 4000 typechat.Hide() Button2.Hide() con += 1 Case 87 - history.Text += ("12padams: Since you never talk i guess you won't be needing this..." & Environment.NewLine) + history.Text += ("12padams: Since you never talk, I guess you won't be needing this..." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 86 - history.Text += ("12padams: " & username & "? I don't remeber you... Oh right your the silent one... " & Environment.NewLine) + history.Text += ("12padams: " & username & "? I don't remeber you... Oh right you're the silent one... " & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 85 - history.Text += ("12padams: Now We are just left with... um wait who was it again..." & Environment.NewLine) + history.Text += ("12padams: Now We are just left with... um wait who was it again?" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 84 @@ -301,44 +381,44 @@ Chat.Interval = 5000 con += 1 Case 83 - history.Text += ("12padams: Oh Don't you know how to? here ill do it for you..." & Environment.NewLine) + history.Text += ("12padams: Oh don't you know how to? Here, I'll do it for you..." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 82 - history.Text += ("SkyHigh: But I can't!!!" & Environment.NewLine) + history.Text += ("SkyHigh: But I can't!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 81 - history.Text += ("12padams: Stop? you both have been able to stop this the whole time... just turn off your computer..." & Environment.NewLine) + history.Text += ("12padams: Stop? You both have been able to stop this the whole time... just turn off your computer!" & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 80 - history.Text += ("SkyHigh: Please Stop!!!" & Environment.NewLine) + history.Text += ("SkyHigh: Please stop!" & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 79 - history.Text += ("12padams: Ok now that thats removed i Can deal with your punishments" & Environment.NewLine) + history.Text += ("12padams: OK, now that that's removed I can deal with your punishments." & Environment.NewLine) Chat.Interval = 5000 Panel1.Hide() con += 1 Case 78 - history.Text += ("12padams: No because i got rid of him... oh woops and talking about getting rid of things lol i forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine) + history.Text += ("12padams: No because I got rid of him. Talking about getting rid of things! I forgot to remove the illegal file he uploaded which has been here all along..." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 77 - history.Text += ("12padams: Exactly and rain49 uploaded the skindows and do you see him now?" & Environment.NewLine) + history.Text += ("12padams: Exactly and rain49 uploaded Skindows 95. Do you see him now?" & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 76 - history.Text += ("SkyHigh: I thought its only illegal to upload stuff..." & Environment.NewLine) + history.Text += ("SkyHigh: I thought it was only illegal to upload stuff..." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 75 - history.Text += ("SkyHigh: Please Thats It!!! STOP. Me and " & username & " didn't accually do the uploading..." & Environment.NewLine) + history.Text += ("SkyHigh: Please that's it! STOP. me and " & username & " didn't actually do the uploading..." & Environment.NewLine) Chat.Interval = 9000 con += 1 Case 74 - history.Text += ("SkyHigh: Damn IT!!! what are we supposed to do now " & username & "... he got rid of the top bar with the close button and maximize and all the..." & Environment.NewLine) + history.Text += ("SkyHigh: Damn it! What are we supposed to do now " & username & "... he got rid of the top bar with the close button and maximize and all the..." & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 73 @@ -346,11 +426,11 @@ Chat.Interval = 3000 con += 1 Case 72 - history.Text += ("12padams: What I have done everything...? What about this?" & Environment.NewLine) + history.Text += ("12padams: I've done everything...? No! What about this?" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 71 - history.Text += ("SkyHigh: NOOOOOOO please this is enough you have done everything. I won't illegally download your software again" & Environment.NewLine) + history.Text += ("SkyHigh: Please this is enough! You have done everything to convince me that I won't illegally download your software again." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 70 @@ -359,7 +439,7 @@ Windows95.Hide() Me.WindowState = FormWindowState.Maximized Case 69 - history.Text += ("12padams: Well first I need your full attention..." & Environment.NewLine) + history.Text += ("12padams: Well first, I need your full attention." & Environment.NewLine) Chat.Interval = 3000 con += 1 Dim FontName As String = "Arial" @@ -367,98 +447,98 @@ Dim FS As New Font(FontName, FontSize, FontStyle.Regular) history.Font = FS Case 68 - history.Text += ("SkyHigh: Please Let Me and " & username & " go and just forget this happened!!!!" & Environment.NewLine) + history.Text += ("SkyHigh: Please let me and " & username & " go and just forget this happened!" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 67 - history.Text += ("12padams: You wanna Know how to Stop this?!!!!" & Environment.NewLine) + history.Text += ("12padams: You want to know how to stop this?!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 66 - history.Text += ("SkyHigh: Please Stop!!!!" & Environment.NewLine) + history.Text += ("SkyHigh: Please stop!" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 65 - history.Text += ("12padams: Oh yea and your icons are infected so you don't need them" & Environment.NewLine) + history.Text += ("12padams: Oh yeah, and your icons are infected so you don't need them." & Environment.NewLine) Chat.Interval = 8000 Windows95.desktopicons.Hide() con += 1 Case 64 - history.Text += ("12padams: Oh but you said to the remove viruses and your taskbar was infected... it had no start button" & Environment.NewLine) + history.Text += ("12padams: Did you not say to the remove viruses? Your taskbar was infected since it had no start button." & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 63 - history.Text += ("SkyHigh: Hey What the hell give me back my taskbar!!!" & Environment.NewLine) + history.Text += ("SkyHigh: Hey! What the hell? Give me back my taskbar!" & Environment.NewLine) Chat.Interval = 9000 con += 1 Case 62 - history.Text += ("12padams: Hmm the taskbar was made by microsoft for windows 95...." & Environment.NewLine) + history.Text += ("12padams: The taskbar was made by Microsoft making its debut in Windows 95..." & Environment.NewLine) Chat.Interval = 6000 con += 1 Windows95.taskbar.Hide() Case 61 - history.Text += ("12padams: Hmm I see a Taskbar at the bottom of the screen..." & Environment.NewLine) + history.Text += ("12padams: I see a taskbar at the bottom of the screen." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 60 - history.Text += ("12padams: Well the whole of windows 95 is a virus so hmm where do we begin..." & Environment.NewLine) + history.Text += ("12padams: Well the whole of Windows 95 is a virus. Where shall I begin?" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 59 - history.Text += ("12padams: Get Rid of the viruses did you say???" & Environment.NewLine) + history.Text += ("12padams: Get rid of the viruses did you type?" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 58 - history.Text += ("SkyHigh: What the Hell??? just get rid of these viruses now!!!" & Environment.NewLine) + history.Text += ("SkyHigh: What the hell?! Just get rid of these viruses now!" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 57 - history.Text += ("12padams: Anyway SkyHigh you are asking to many questions... Its time I unleash my next virus" & Environment.NewLine) + history.Text += ("12padams: Anyway SkyHigh you are asking too many questions... It's time I unleash my next virus!" & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 56 - history.Text += ("12padams: Well It causes your computer to have all its funtions disabled" & Environment.NewLine) + history.Text += ("12padams: Well, it causes your computer to have all its functions disabled thus slowly killing the computer!" & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 55 - history.Text += ("SkyHigh: Whats the virus do?" & Environment.NewLine) + history.Text += ("SkyHigh: What does the virus do?" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 54 - history.Text += ("12padams: Your both experienceing a lethal virus which i like to call (death)" & Environment.NewLine) + history.Text += ("12padams: You're both experienceing a lethal virus which i like to call ""death" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 53 - history.Text += ("12padams: I told you that you were gunna be punished...." & Environment.NewLine) + history.Text += ("12padams: I told you that you were going to be punished." & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 52 - history.Text += ("SkyHigh: Hey what i can't open anything?" & Environment.NewLine) + history.Text += ("SkyHigh: Hey! Why can't I open anything?" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 51 - history.Text += ("SkyHigh: Don't worry " & username & " ill look online for help" & Environment.NewLine) + history.Text += ("SkyHigh: Don't worry " & username & ", I'll look online for help" & Environment.NewLine) Chat.Interval = 4000 Windows95.Enabled = False con += 1 Case 50 - history.Text += ("12padams: Hey trying to fight back are we...? well ill punish you both!" & Environment.NewLine) + history.Text += ("12padams: Trying to fight back are we...? Well I'll punish you both!" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 49 - history.Text += ("SkyHigh: Stop it!!! Let me and " & username & " go!" & Environment.NewLine) + history.Text += ("SkyHigh: Stop it! Let me and " & username & " go!" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 48 - history.Text += ("12padams: Oh yea thats right... Now we had two left. We have SkyHigh and " & username & Environment.NewLine) + history.Text += ("12padams: Oh yeah that's right... Now we have two left - SkyHigh and " & username & "." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 47 - history.Text += ("12padams: anyway... where were we?" & Environment.NewLine) + history.Text += ("12padams: Anyway... where were we?" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 46 - history.Text += ("12padams: lol All your Computers are infected with a virus which makes them unable to boot." & Environment.NewLine) + history.Text += ("12padams: All your computers are infected with a virus which makes them unable to boot." & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 45 @@ -467,15 +547,15 @@ Chat.Interval = 7000 con += 1 Case 44 - history.Text += ("rain49: Oh yea... just watch" & Environment.NewLine) + history.Text += ("rain49: Oh yeah? Just watch!" & Environment.NewLine) Chat.Interval = 1000 con += 1 Case 43 - history.Text += ("12padams: I would not do that if i were you..." & Environment.NewLine) + history.Text += ("12padams: I would not do that if I were you..." & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 42 - history.Text += ("rain49: No... because i can just turn my computer off at the powerpoint... " & Environment.NewLine) + history.Text += ("rain49: No... because I can just turn my computer off at the power... " & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 41 @@ -483,40 +563,40 @@ Chat.Interval = 5000 con += 1 Case 40 - history.Text += ("rain49: Omg 12padams disabled it..." & Environment.NewLine) + history.Text += ("rain49: 12padams disabled it... CRAP!" & Environment.NewLine) Chat.Interval = 6000 con += 1 Case 39 - history.Text += ("SkyHigh: What the Hell!!!! wheres my startbutton." & Environment.NewLine) + history.Text += ("SkyHigh: What the hell?! Where is my start button?!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 38 - history.Text += ("12padams: Ha Ha Ha... nobodys turning off their computer???" & Environment.NewLine) + history.Text += ("12padams: Ha! Nobody is turning off their computer?" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 37 - history.Text += ("12padams: Yea Guys I Will definatly unban you if you do that..." & Environment.NewLine) + history.Text += ("12padams: Yeah guys, I will definetely unban you if you do that..." & Environment.NewLine) Chat.Interval = 5000 con += 1 Windows95.startbutton.Hide() Case 36 - history.Text += ("rain49: Guys Quickly go to start and turn off your computer!!!" & Environment.NewLine) + history.Text += ("rain49: Guys, quickly go to Start and turn off your computer!" & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 35 - history.Text += ("12padams: Now that I Have you... We are gunna have a bit of fun..." & Environment.NewLine) + history.Text += ("12padams: Now that I have you, we are going to have a bit of fun..." & Environment.NewLine) Chat.Interval = 10000 con += 1 Case 34 - history.Text += ("12padams: I Have Caught you!!!" & Environment.NewLine) + history.Text += ("12padams: I have caught you!!!" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 33 - history.Text += ("SkyHigh: I can't the x button is not working!!!!" & Environment.NewLine) + history.Text += ("SkyHigh: I can't! The X button is not working!!!!" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 32 - history.Text += ("rain49: CRAP 12padams logged on... Quickly SkyHigh and " & username & " LOGOUT!!!" & Environment.NewLine) + history.Text += ("rain49: Ah crap! 12padams has logged on... Quickly SkyHigh and " & username & " LOG OUT!!!" & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 31 @@ -530,27 +610,28 @@ Chat.Interval = 8000 con += 1 Case 29 - history.Text += ("rain49: ok have fun then..." & Environment.NewLine) + history.Text += ("rain49: OK, have fun then..." & Environment.NewLine) Chat.Interval = 8000 con += 1 Case 28 - history.Text += ("SkyHigh: YAY! Download Finished... Ill install it now :)" & Environment.NewLine) + history.Text += ("SkyHigh: YAY! Download Finished... I'll install it now :)" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 27 - history.Text += ("rain49: lol ok... hey " & username & " you can download it as well :)" & Environment.NewLine) + history.Text += ("rain49: OK... hey " & username & ", you can download it as well :)" & Environment.NewLine) Chat.Interval = 9000 con += 1 Case 26 - history.Text += ("SkyHigh: Yay Thanks rain49!!! Ill download it now" & Environment.NewLine) + history.Text += ("SkyHigh: Thanks rain49!!! I'll download it now." & Environment.NewLine) Chat.Interval = 5000 con += 1 Case 25 - history.Text += ("rain49: Its now added to the file sharing section at the bottom right of the screen" & Environment.NewLine) + history.Text += ("rain49: It's now added to the file sharing section at the bottom right of the screen." & Environment.NewLine) Chat.Interval = 4000 Label5.Show() Button5.Show() con += 1 + abletoclose = False Case 24 history.Text += ("rain49: Ok just wait a sec..." & Environment.NewLine) Chat.Interval = 7000 @@ -600,7 +681,7 @@ Chat.Interval = 6000 con += 1 Case 12 - history.Text += ("rain49: Hey Who's " & username & Environment.NewLine) + history.Text += ("rain49: Hey Who's " & username & "?" & Environment.NewLine) Chat.Interval = 7000 con += 1 Case 11 @@ -622,20 +703,20 @@ con += 1 Case 7 If correct Then - history.Text += ("SkyHigh: Yay You got it :)" & Environment.NewLine) + history.Text += ("SkyHigh: Yay you got it :)" & Environment.NewLine) Button4.Hide() Button3.Hide() typechat.Show() con += 1 ElseIf Not correct Then - history.Text += ("SkyHigh: Sorry My Name was Bill :(" & Environment.NewLine) + history.Text += ("SkyHigh: Sorry my name was Bill" & Environment.NewLine) Button4.Hide() Button3.Hide() typechat.Show() con += 1 End If Case 6 - history.Text += ("SkyHigh: Ill make 2 buttons appear at the bottom of your screen and you click to guess" & Environment.NewLine) + history.Text += ("SkyHigh: I'll make 2 buttons appear at the bottom of your screen and you click to guess." & Environment.NewLine) Chat.Interval = 500 con += 1 Button3.Show() @@ -643,11 +724,11 @@ typechat.Hide() Chat.Stop() Case 5 - history.Text += ("SkyHigh: Ok Guess What my Name is" & Environment.NewLine) + history.Text += ("SkyHigh: OK, guess What my name is" & Environment.NewLine) Chat.Interval = 3000 con += 1 Case 4 - history.Text += ("SkyHigh: " & username & " We can play a game while we wait for rain49 to login" & Environment.NewLine) + history.Text += ("SkyHigh: " & username & " we can play a game while we wait for rain49 to log on." & Environment.NewLine) Chat.Interval = 4000 con += 1 Case 3 @@ -655,7 +736,7 @@ Chat.Interval = 5000 con += 1 Case 2 - history.Text += ("SkyHigh: Sorry I thought my friend rain49 was gunna be on..." & Environment.NewLine) + history.Text += ("SkyHigh: Sorry, I thought my friend rain49 was going to be on..." & Environment.NewLine) Chat.Interval = 1000 con += 1 Case 1 -- cgit v1.2.3