From 86f296168b54f67af1b6e0f41cb44c55cd338fd2 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 12:09:02 +0000 Subject: [PATCH] Cleanup WebChat --- windows 95/WebChat 1999.vb | 881 +++++++++------------- windows 95/Webchat1998.vb | 1429 ++++++++++++++++-------------------- windows 95/webchat 2000.vb | 309 +++----- windows 95/webchat 2001.vb | 344 ++++----- 4 files changed, 1259 insertions(+), 1704 deletions(-) diff --git a/windows 95/WebChat 1999.vb b/windows 95/WebChat 1999.vb index 1556c6c..5218b48 100755 --- a/windows 95/WebChat 1999.vb +++ b/windows 95/WebChat 1999.vb @@ -3,22 +3,19 @@ Dim waiting2 As Boolean = False Dim con As Integer Dim ran As New Random - Dim abletoclose As String = "yes" + Dim abletoclose As Boolean = True Dim username As String Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - If abletoclose = "yes" Then + If abletoclose Then Me.Close() End If - If abletoclose = "no" Then - - End If End Sub Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load look.Start() Button5.Hide() Label5.Hide() - abletoclose = "yes" + abletoclose = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click @@ -26,21 +23,21 @@ login.Hide() Chat.Start() ListBox1.Items.Add(username) - history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) + history.Text += (username & " Has Logged On" & Environment.NewLine) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If waiting = True Then mainname = typechat.Text waiting = False - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() typechat.Focus() Else - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" typechat.Focus() history.SelectionStart = 999999 @@ -50,362 +47,226 @@ End Sub Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick - - If con = 67 Then - If waitfor02download = True Then - Chat.Stop() - Else - Chat.Start() - history.Text = history.Text + ("12padams: Ok I got a message that you just started the timer " & mainname & Environment.NewLine) - con = con + 1 - End If - End If - If con = 66 Then - history.Text = history.Text + ("The Hidden Hacker: I Hope this works..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - count.Start() - waitfor02download = True - Chat.Stop() - End If - If con = 65 Then - history.Text = history.Text + ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 64 Then - Label5.Show() - Button5.Show() - con = con + 1 - End If - If con = 63 Then - history.Text = history.Text + ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 62 Then - history.Text = history.Text + ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 61 Then - history.Text = history.Text + ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 60 Then - history.Text = history.Text + ("The Hidden Hacker: But what If something goes wrong and " & mainname & " doesn't get to the year 2000 properly?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 59 Then - history.Text = history.Text + ("12padams: Ok I want you to look out for " & mainname & " so that in 1 year you can tell me when he comes back" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 58 Then - history.Text = history.Text + ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 57 Then - history.Text = history.Text + ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 56 Then - history.Text = history.Text + ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 55 Then - history.Text = history.Text + ("12padams: This could serriously impact my time travel software." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 54 Then - history.Text = history.Text + ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 53 Then - history.Text = history.Text + ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 52 Then - history.Text = history.Text + ("12padams: haha sorry I forgot about that" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 51 Then - history.Text = history.Text + ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 50 Then - history.Text = history.Text + ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 49 Then - history.Text = history.Text + ("The Hidden Hacker: Why does he need to try it out??? its gunna work just like 0.1 did" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 48 Then - history.Text = history.Text + ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 47 Then - history.Text = history.Text + ("12padams: well not much different... it works the same except it works in all time periods and it takes you to 2000" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 46 Then - history.Text = history.Text + ("12padams: 0.2 is much different however" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 45 Then - history.Text = history.Text + ("12padams: Well anyway... 0.1 is now useless since it only works if the year is 1998 and it will only take you to 1999" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 44 Then - history.Text = history.Text + ("12padams: oh woops yea oh cause you would" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 43 Then - history.Text = history.Text + ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 42 Then - history.Text = history.Text + ("12padams: Remember time distorter 0.1?" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 41 Then - history.Text = history.Text + ("12padams: Oh right I forgot to tell you both" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 40 Then - history.Text = history.Text + ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 39 Then - history.Text = history.Text + ("12padams: Ok I know... you can track the time travels so you can see when " & mainname & " gets to a new time period you say whats going on..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 38 Then - history.Text = history.Text + ("12padams: I am not really sure accually... um let me think" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 37 Then - history.Text = history.Text + ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 36 Then - history.Text = history.Text + ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 35 Then - history.Text = history.Text + ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 34 Then - history.Text = history.Text + ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 33 Then - history.Text = history.Text + ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 32 Then - history.Text = history.Text + ("12padams: Look Since you both know about this whole time travel thing... I want us to be a team " & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 31 Then - history.Text = history.Text + ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 30 Then - history.Text = history.Text + ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 29 Then - history.Text = history.Text + ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - - If con = 28 Then - If mainname = "" Then - Chat.Interval = 3000 - Else - Chat.Interval = 3000 - con = con + 1 - End If - End If - If con = 27 Then - history.Text = history.Text + ("12padams: Um whats your name 'windows 98 user' just type it in the chat now. I recommend less then 10 letters" & Environment.NewLine) - Chat.Interval = 6000 - waiting = True - con = con + 1 - End If - If con = 26 Then - history.Text = history.Text + ("12padams: Ok just to let you know... the only thing thats getting me 'angrey' right now is not knowing what this windows 98 users name is " & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 25 Then - history.Text = history.Text + ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 24 Then - history.Text = history.Text + ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 23 Then - history.Text = history.Text + ("12padams: Liston... If you had not hacked my emails and taken my software and tried it out I would never have tested my software. " & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 22 Then - history.Text = history.Text + ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 21 Then - history.Text = history.Text + ("The Hidden Hacker: What???" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 20 Then - history.Text = history.Text + ("12padams: Oh for goodness sake what's wrong with you 2... I am not angrey" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 19 Then - history.Text = history.Text + ("The Hidden Hacker: Crap the close button is not working!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 18 Then - history.Text = history.Text + ("12padams: Come on guys..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 17 Then - history.Text = history.Text + ("The Hidden Hacker: Log off... um whatever your name is wh owns that windows 98 computer!!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 16 Then - history.Text = history.Text + ("The Hidden Hacker: Oh CRAP!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 15 Then - history.Text = history.Text + ("12padams: Yea and you have not done a good job of hidding" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 14 Then - history.Text = history.Text + ("12padams Has Logged On" & Environment.NewLine) - Chat.Interval = 2000 - con = con + 1 - abletoclose = "no" - End If - If con = 13 Then - history.Text = history.Text + ("The Hidden Hacker: since then I have been hiding so 12padams could not get me" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 12 Then - history.Text = history.Text + ("The Hidden Hacker: after you left 1998 12padams tried to attack and well..." & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 11 Then - history.Text = history.Text + ("The Hidden Hacker: Ok well heres what happened while you were gone." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 10 Then - history.Text = history.Text + ("The Hidden Hacker: Finally your here." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 9 Then - history.Text = history.Text + ("The Hidden Hacker: For 1 whole year I have been waiting to see if that time travel software worked" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 8 Then - history.Text = history.Text + ("[The Known Checker] has changed his display name to [The Hidden Hacker]" & Environment.NewLine) - ListBox1.Items.Remove("The Known Checker") - ListBox1.Items.Add("The Hidden Hacker") - Chat.Interval = 6000 - con = con + 1 - End If - If con = 7 Then - history.Text = history.Text + ("The Known Checker: Wait sorry i am using a fake name... Just wait a sec" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 6 Then - history.Text = history.Text + ("The Known Checker: Yes!!! Its YOU!!!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 5 Then - history.Text = history.Text + ("Scan Complete!" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 4 Then - history.Text = history.Text + ("The Known Checker is: Scanning IP..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 3 Then - history.Text = history.Text + ("The Known Checker: Wait I'll quickly do an ip scan..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 2 Then - history.Text = history.Text + ("The Known Checker: Hi um I know this is going to sound weird but do you know about some software called time distorter?" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 1 Then - history.Text = history.Text + ("The Known Checker: OMG I think I found you!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 0 Then - ListBox1.Items.Add("The Known Checker") - Chat.Interval = 5000 - con = con + 1 - End If + Select Case con + Case 67 + If waitfor02download Then + Chat.Stop() + Else + Chat.Start() + history.Text += ("12padams: Ok I got a message that you just started the timer " & mainname & Environment.NewLine) + End If + Case 66 + history.Text += ("The Hidden Hacker: I Hope this works..." & Environment.NewLine) + Chat.Interval = 3000 + count.Start() + waitfor02download = True + Chat.Stop() + Case 65 + history.Text += ("12padams: Ok " & mainname & " download it now and we will wait for you" & Environment.NewLine) + Chat.Interval = 4000 + Case 64 + Label5.Show() + Button5.Show() + Case 63 + history.Text += ("12padams: We will start right now. Ill send 0.2 of time distorter and " & mainname & " can download it" & Environment.NewLine) + Chat.Interval = 4000 + Case 62 + history.Text += ("The Hidden Hacker: Ok then when do we start?" & Environment.NewLine) + Chat.Interval = 6000 + Case 61 + history.Text += ("12padams: Nothings going to go wrong I think i Got this" & Environment.NewLine) + Chat.Interval = 4000 + Case 60 + history.Text += ("The Hidden Hacker: But what If something goes wrong and " & mainname & " doesn't get to the year 2000 properly?" & Environment.NewLine) + Chat.Interval = 5000 + Case 59 + history.Text += ("12padams: Ok I want you to look out for " & mainname & " so that in 1 year you can tell me when he comes back" & Environment.NewLine) + Chat.Interval = 7000 + Case 58 + history.Text += ("The Hidden Hacker: Ok but what do you want me to do?" & Environment.NewLine) + Chat.Interval = 6000 + Case 57 + history.Text += ("12padams: But It has to be done... you need to help me, guys... please" & Environment.NewLine) + Chat.Interval = 4000 + Case 56 + history.Text += ("The Hidden Hacker: 12padams thats too risky" & Environment.NewLine) + Chat.Interval = 5000 + Case 55 + history.Text += ("12padams: This could serriously impact my time travel software." & Environment.NewLine) + Chat.Interval = 3000 + Case 54 + history.Text += ("12padams: Computer dates may stuff up and display 1900 instead of 2000" & Environment.NewLine) + Chat.Interval = 5000 + Case 53 + history.Text += ("12padams: Well basically I wrote an article on the year 2000 bug AKA y2k" & Environment.NewLine) + Chat.Interval = 4000 + Case 52 + history.Text += ("12padams: haha sorry I forgot about that" & Environment.NewLine) + Chat.Interval = 4000 + Case 51 + history.Text += ("The Hidden Hacker: no since I am blocked from using your website" & Environment.NewLine) + Chat.Interval = 3000 + Case 50 + history.Text += ("12padams: no... Its not accually. Didn't you read the article on my website?" & Environment.NewLine) + Chat.Interval = 4000 + Case 49 + history.Text += ("The Hidden Hacker: Why does he need to try it out??? its gunna work just like 0.1 did" & Environment.NewLine) + Chat.Interval = 5000 + Case 48 + history.Text += ("12padams: " & mainname & "... I will need you to try this out again" & Environment.NewLine) + Chat.Interval = 5000 + Case 47 + history.Text += ("12padams: well not much different... it works the same except it works in all time periods and it takes you to 2000" & Environment.NewLine) + Chat.Interval = 4000 + Case 46 + history.Text += ("12padams: 0.2 is much different however" & Environment.NewLine) + Chat.Interval = 5000 + Case 45 + history.Text += ("12padams: Well anyway... 0.1 is now useless since it only works if the year is 1998 and it will only take you to 1999" & Environment.NewLine) + Chat.Interval = 7000 + Case 44 + history.Text += ("12padams: oh woops yea oh cause you would" & Environment.NewLine) + Chat.Interval = 8000 + Case 43 + history.Text += ("The Hidden Hacker: Of cause I remember that..." & Environment.NewLine) + Chat.Interval = 3000 + Case 42 + history.Text += ("12padams: Remember time distorter 0.1?" & Environment.NewLine) + Chat.Interval = 3000 + Case 41 + history.Text += ("12padams: Oh right I forgot to tell you both" & Environment.NewLine) + Chat.Interval = 4000 + Case 40 + history.Text += ("The Hidden Hacker: Wait A sec... you mean we are going to time travel again?" & Environment.NewLine) + Chat.Interval = 5000 + Case 39 + history.Text += ("12padams: Ok I know... you can track the time travels so you can see when " & mainname & " gets to a new time period you say whats going on..." & Environment.NewLine) + Chat.Interval = 6000 + Case 38 + history.Text += ("12padams: I am not really sure accually... um let me think" & Environment.NewLine) + Chat.Interval = 5000 + Case 37 + history.Text += ("The Hidden Hacker: Um what do you mean by guider?" & Environment.NewLine) + Chat.Interval = 4000 + Case 36 + history.Text += ("12padams: And The Hidden Hacker... you can be the um... Guider" & Environment.NewLine) + Chat.Interval = 3000 + Case 35 + history.Text += ("12padams: " & mainname & " you can be the tester for my time travel software" & Environment.NewLine) + Chat.Interval = 4000 + Case 34 + history.Text += ("12padams: Well I am the coder who will be working on the time travel software" & Environment.NewLine) + Chat.Interval = 7000 + Case 33 + history.Text += ("The Hidden Hacker: Wait what do you mean by 'a team'" & Environment.NewLine) + Chat.Interval = 5000 + Case 32 + history.Text += ("12padams: Look Since you both know about this whole time travel thing... I want us to be a team " & Environment.NewLine) + Chat.Interval = 5000 + Case 31 + history.Text += ("12padams: Well anyway I have something very important I now have to say to you both " & Environment.NewLine) + Chat.Interval = 6000 + Case 30 + history.Text += ("The Hidden Hacker: Lol its good you now have a name " & mainname & Environment.NewLine) + Chat.Interval = 6000 + Case 29 + history.Text += ("12padams: Ok from now on we will call you " & mainname & Environment.NewLine) + Chat.Interval = 4000 + Case 28 + if mainname == "" Then + con -= 1 + End If + Chat.Interval = 3000 + Case 27 + history.Text += ("12padams: Um whats your name 'windows 98 user' just type it in the chat now. I recommend less then 10 letters" & Environment.NewLine) + Chat.Interval = 6000 + waiting = True + Case 26 + history.Text += ("12padams: Ok just to let you know... the only thing thats getting me 'angrey' right now is not knowing what this windows 98 users name is " & Environment.NewLine) + Chat.Interval = 9000 + Case 25 + history.Text += ("The Hidden Hacker: Well thats a relief... um whatever your name is... " & Environment.NewLine) + Chat.Interval = 7000 + Case 24 + history.Text += ("12padams: So I just wanna say thanks :) both of you... " & Environment.NewLine) + Chat.Interval = 5000 + Case 23 + history.Text += ("12padams: Liston... If you had not hacked my emails and taken my software and tried it out I would never have tested my software. " & Environment.NewLine) + Chat.Interval = 9000 + Case 22 + history.Text += ("12padams: Yea I'm not angrey at any of you..." & Environment.NewLine) + Chat.Interval = 6000 + Case 21 + history.Text += ("The Hidden Hacker: What???" & Environment.NewLine) + Chat.Interval = 4000 + Case 20 + history.Text += ("12padams: Oh for goodness sake what's wrong with you 2... I am not angrey" & Environment.NewLine) + Chat.Interval = 4000 + Case 19 + history.Text += ("The Hidden Hacker: Crap the close button is not working!!!" & Environment.NewLine) + Chat.Interval = 6000 + Case 18 + history.Text += ("12padams: Come on guys..." & Environment.NewLine) + Chat.Interval = 5000 + Case 17 + history.Text += ("The Hidden Hacker: Log off... um whatever your name is wh owns that windows 98 computer!!!!" & Environment.NewLine) + Chat.Interval = 5000 + Case 16 + history.Text += ("The Hidden Hacker: Oh CRAP!!!" & Environment.NewLine) + Chat.Interval = 5000 + Case 15 + history.Text += ("12padams: Yea and you have not done a good job of hidding" & Environment.NewLine) + Chat.Interval = 4000 + Case 14 + history.Text += ("12padams Has Logged On" & Environment.NewLine) + Chat.Interval = 2000 + abletoclose = False + Case 13 + history.Text += ("The Hidden Hacker: since then I have been hiding so 12padams could not get me" & Environment.NewLine) + Chat.Interval = 4000 + Case 12 + history.Text += ("The Hidden Hacker: after you left 1998 12padams tried to attack and well..." & Environment.NewLine) + Chat.Interval = 7000 + Case 11 + history.Text += ("The Hidden Hacker: Ok well heres what happened while you were gone." & Environment.NewLine) + Chat.Interval = 5000 + Case 10 + history.Text += ("The Hidden Hacker: Finally your here." & Environment.NewLine) + Chat.Interval = 5000 + Case 9 + history.Text += ("The Hidden Hacker: For 1 whole year I have been waiting to see if that time travel software worked" & Environment.NewLine) + Chat.Interval = 4000 + Case 8 + history.Text += ("[The Known Checker] has changed his display name to [The Hidden Hacker]" & Environment.NewLine) + ListBox1.Items.Remove("The Known Checker") + ListBox1.Items.Add("The Hidden Hacker") + Chat.Interval = 6000 + Case 7 + history.Text += ("The Known Checker: Wait sorry i am using a fake name... Just wait a sec" & Environment.NewLine) + Chat.Interval = 5000 + Case 6 + history.Text += ("The Known Checker: Yes!!! Its YOU!!!!!" & Environment.NewLine) + Chat.Interval = 3000 + Case 5 + history.Text += ("Scan Complete!" & Environment.NewLine) + Chat.Interval = 4000 + Case 4 + history.Text += ("The Known Checker is: Scanning IP..." & Environment.NewLine) + Chat.Interval = 3000 + Case 3 + history.Text += ("The Known Checker: Wait I'll quickly do an ip scan..." & Environment.NewLine) + Chat.Interval = 5000 + Case 2 + history.Text += ("The Known Checker: Hi um I know this is going to sound weird but do you know about some software called time distorter?" & Environment.NewLine) + Chat.Interval = 8000 + Case 1 + history.Text += ("The Known Checker: OMG I think I found you!!!" & Environment.NewLine) + Chat.Interval = 5000 + Case 0 + ListBox1.Items.Add("The Known Checker") + Chat.Interval = 5000 + End Select + con += 1 history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() @@ -423,7 +284,7 @@ Dim maximize As Boolean Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown - If moveable = True Then + If moveable Then If e.Button = MouseButtons.Left Then programtopbar.Capture = False Const WM_NCLBUTTONDOWN As Integer = &HA1S @@ -433,7 +294,6 @@ New IntPtr(HTCAPTION), IntPtr.Zero) Me.DefWndProc(msg) End If - Else End If End Sub @@ -475,7 +335,7 @@ End Sub Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click - If maximize = False Then + If Not maximize Then meylocation = Windows95.desktopicons.Height - Me.Height mexlocation = Windows95.desktopicons.Width - Me.Width mewidth = Me.Width @@ -524,175 +384,132 @@ End Sub Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick - If waitfor02download = False Then + If Not waitfor02download Then Chat.Start() waitingdownload.Stop() End If - End Sub Private Sub count_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles count.Tick - If count2000 = -8 Then - Me.BackColor = Color.Black - history.BackColor = Color.Black - history.ForeColor = Color.White - Me.Close() - count.Stop() - End If - If count2000 = -7 Then - Me.BackColor = Color.Black - history.BackColor = Color.White - history.ForeColor = Color.Black - End If - If count2000 = -6 Then - Me.BackColor = Color.Black - history.BackColor = Color.Black - history.ForeColor = Color.White - End If - If count2000 = -5 Then - Me.BackColor = Color.Black - history.BackColor = Color.White - history.ForeColor = Color.Black - End If - If count2000 = -4 Then - Me.BackColor = Color.Black - history.BackColor = Color.Black - history.ForeColor = Color.White - End If - If count2000 = -3 Then - Me.BackColor = Color.Black - history.BackColor = Color.White - history.ForeColor = Color.Black - End If - If count2000 = -2 Then - Me.BackColor = Color.Black - history.BackColor = Color.Black - history.ForeColor = Color.White - End If - If count2000 = -1 Then - Me.BackColor = Color.Black - history.BackColor = Color.White - history.ForeColor = Color.Black - count.Interval = 100 - Me.Close() - End If - If count2000 = 4 Then - count.Interval = 100 - history.Text = history.Text + ("12padams: Oh " & mainname & " just remember to watch the year incase something goes wrong... have a good trip :)" & Environment.NewLine) - End If - If count2000 = 8 Then - history.Text = history.Text + ("The Hidden Hacker: Ok cool thanks for that" & Environment.NewLine) - End If - If count2000 = 13 Then - history.Text = history.Text + ("12padams: well when " & mainname & " gets back ill let you go as well on the next one" & Environment.NewLine) - End If - If count2000 = 17 Then - history.Text = history.Text + ("The Hidden Hacker: not really... I just wish I got to time travel myself" & Environment.NewLine) - End If - If count2000 = 22 Then - history.Text = history.Text + ("12padams: Is there anything you want to say to " & mainname & " now just before " & mainname & " is gone?" & Environment.NewLine) - End If - If count2000 = 27 Then - history.Text = history.Text + ("12padams: yea me too but it needs to be done..." & Environment.NewLine) - End If - If count2000 = 33 Then - history.Text = history.Text + ("The Hidden Hacker: Yea... I just wish It didn't take so long :(" & Environment.NewLine) - End If - If count2000 = 37 Then - history.Text = history.Text + ("12padams: Ok well here we go again... another test which will show interesting and powerful results" & Environment.NewLine) - End If - If count2000 = 42 Then - history.Text = history.Text + ("The Hidden Hacker: Don't worry I will tell you strait away I promise" & Environment.NewLine) - End If - If count2000 = 48 Then - history.Text = history.Text + ("12padams: Ok get just remeber as soon as " & mainname & " gets the the year 2000 you need to tell me strait away" & Environment.NewLine) - End If - If count2000 = 53 Then - history.Text = history.Text + ("The Hidden Hacker: Well I guess I trust you then" & Environment.NewLine) - End If - If count2000 = 57 Then - history.Text = history.Text + ("12padams: don't worry nothings gunna happen" & Environment.NewLine) - End If - If count2000 = 62 Then - history.Text = history.Text + ("The Hidden Hacker: Well I hope nothing goes wrong..." & Environment.NewLine) - End If - If count2000 = 68 Then - history.Text = history.Text + ("12padams: No it can't thats why i have coded it so if it does show 1900 it will jump forward in time back the the year 2000" & Environment.NewLine) - End If - If count2000 = 72 Then - history.Text = history.Text + ("The Hidden Hacker: wait are you saying that this software can accually take someone back that far?" & Environment.NewLine) - End If - If count2000 = 78 Then - history.Text = history.Text + ("12padams: Well apon the numbers switching to 2000 it may instead switch to 1900" & Environment.NewLine) - End If - If count2000 = 82 Then - history.Text = history.Text + ("The Hidden Hacker: Ok but can you tell me what will happen?" & Environment.NewLine) - End If - If count2000 = 87 Then - history.Text = history.Text + ("12padams: Well I am just worried about when he goes past the year 2000 during travel..." & Environment.NewLine) - End If - If count2000 = 91 Then - history.Text = history.Text + ("The Hidden Hacker: I know that but what could happen?" & Environment.NewLine) - End If - If count2000 = 96 Then - history.Text = history.Text + ("12padams: Well There may be the slight chance of YK2 interference" & Environment.NewLine) - End If - If count2000 = 100 Then - history.Text = history.Text + ("The Hidden Hacker: I need to know what could go wrong." & Environment.NewLine) - End If - If count2000 = 104 Then - history.Text = history.Text + ("12padams: What do you need to know?" & Environment.NewLine) - End If - If count2000 = 108 Then - history.Text = history.Text + ("The Hidden Hacker: I just have a few questions..." & Environment.NewLine) - End If - If count2000 = 111 Then - history.Text = history.Text + ("The Hidden Hacker: Don't Worry... I will" & Environment.NewLine) - End If - If count2000 = 115 Then - history.Text = history.Text + ("12padams: You just have to make sure you tell me ok..." & Environment.NewLine) - End If - If count2000 = 120 Then - history.Text = history.Text + ("12padams: I want you to tell me as soon as he ges the the year 2000 then we will start another chat." & Environment.NewLine) - End If - If count2000 = 124 Then - history.Text = history.Text + ("12padams: wow good job... ok heres what we will do" & Environment.NewLine) - End If - If count2000 = 130 Then - history.Text = history.Text + ("The Hidden Hacker: Hey I got tracking software which will alert me as soon as the time travel is over... I developed it after a year of waiting." & Environment.NewLine) - End If - If count2000 = 135 Then - history.Text = history.Text + ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine) - End If - If count2000 = 140 Then - history.Text = history.Text + ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine) - End If - If count2000 = 144 Then - history.Text = history.Text + ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine) - End If - If count2000 = 149 Then - history.Text = history.Text + ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine) - End If - If count2000 = 155 Then - history.Text = history.Text + ("The Hidden Hacker: Ok... " & mainname & " you should feel happy that you don't have to wait a whole year for results " & Environment.NewLine) - End If - If count2000 = 160 Then - history.Text = history.Text + ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine) - End If - If count2000 = 166 Then - history.Text = history.Text + ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine) - End If - If count2000 = 170 Then - history.Text = history.Text + ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine) - End If - If count2000 = 175 Then - history.Text = history.Text + ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine) - End If - If count2000 < 175 Then - history.Focus() - history.SelectionStart = 999999 - history.ScrollToCaret() - typechat.Focus() - End If + Select Case count2000 + Case -8 + Me.BackColor = Color.Black + history.BackColor = Color.Black + history.ForeColor = Color.White + Me.Close() + count.Stop() + Case -7 + Me.BackColor = Color.Black + history.BackColor = Color.White + history.ForeColor = Color.Black + Case -6 + Me.BackColor = Color.Black + history.BackColor = Color.Black + history.ForeColor = Color.White + Case -5 + Me.BackColor = Color.Black + history.BackColor = Color.White + history.ForeColor = Color.Black + Case -4 + Me.BackColor = Color.Black + history.BackColor = Color.Black + history.ForeColor = Color.White + Case -3 + Me.BackColor = Color.Black + history.BackColor = Color.White + history.ForeColor = Color.Black + Case -2 + Me.BackColor = Color.Black + history.BackColor = Color.Black + history.ForeColor = Color.White + Case -1 + Me.BackColor = Color.Black + history.BackColor = Color.White + history.ForeColor = Color.Black + count.Interval = 100 + Me.Close() + Case 4 + count.Interval = 100 + history.Text += ("12padams: Oh " & mainname & " just remember to watch the year incase something goes wrong... have a good trip :)" & Environment.NewLine) + Case 8 + history.Text += ("The Hidden Hacker: Ok cool thanks for that" & Environment.NewLine) + Case 13 + history.Text += ("12padams: well when " & mainname & " gets back ill let you go as well on the next one" & Environment.NewLine) + Case 17 + history.Text += ("The Hidden Hacker: not really... I just wish I got to time travel myself" & Environment.NewLine) + Case 22 + history.Text += ("12padams: Is there anything you want to say to " & mainname & " now just before " & mainname & " is gone?" & Environment.NewLine) + Case 27 + history.Text += ("12padams: yea me too but it needs to be done..." & Environment.NewLine) + Case 33 + history.Text += ("The Hidden Hacker: Yea... I just wish It didn't take so long :(" & Environment.NewLine) + Case 37 + history.Text += ("12padams: Ok well here we go again... another test which will show interesting and powerful results" & Environment.NewLine) + Case 42 + history.Text += ("The Hidden Hacker: Don't worry I will tell you strait away I promise" & Environment.NewLine) + Case 48 + history.Text += ("12padams: Ok get just remeber as soon as " & mainname & " gets the the year 2000 you need to tell me strait away" & Environment.NewLine) + Case 53 + history.Text += ("The Hidden Hacker: Well I guess I trust you then" & Environment.NewLine) + Case 57 + history.Text += ("12padams: don't worry nothings gunna happen" & Environment.NewLine) + Case 62 + history.Text += ("The Hidden Hacker: Well I hope nothing goes wrong..." & Environment.NewLine) + Case 86 + history.Text += ("12padams: No it can't thats why i have coded it so if it does show 1900 it will jump forward in time back the the year 2000" & Environment.NewLine) + Case 72 + history.Text += ("The Hidden Hacker: wait are you saying that this software can accually take someone back that far?" & Environment.NewLine) + Case 78 + history.Text += ("12padams: Well apon the numbers switching to 2000 it may instead switch to 1900" & Environment.NewLine) + Case 82 + history.Text += ("The Hidden Hacker: Ok but can you tell me what will happen?" & Environment.NewLine) + Case 87 + history.Text += ("12padams: Well I am just worried about when he goes past the year 2000 during travel..." & Environment.NewLine) + Case 91 + history.Text += ("The Hidden Hacker: I know that but what could happen?" & Environment.NewLine) + Case 96 + history.Text += ("12padams: Well There may be the slight chance of YK2 interference" & Environment.NewLine) + Case 100 + history.Text += ("The Hidden Hacker: I need to know what could go wrong." & Environment.NewLine) + Case 104 + history.Text += ("12padams: What do you need to know?" & Environment.NewLine) + Case 108 + history.Text += ("The Hidden Hacker: I just have a few questions..." & Environment.NewLine) + Case 111 + history.Text += ("The Hidden Hacker: Don't Worry... I will" & Environment.NewLine) + Case 115 + history.Text += ("12padams: You just have to make sure you tell me ok..." & Environment.NewLine) + Case 120 + history.Text += ("12padams: I want you to tell me as soon as he ges the the year 2000 then we will start another chat." & Environment.NewLine) + Case 124 + history.Text += ("12padams: wow good job... ok heres what we will do" & Environment.NewLine) + Case 130 + history.Text += ("The Hidden Hacker: Hey I got tracking software which will alert me as soon as the time travel is over... I developed it after a year of waiting." & Environment.NewLine) + Case 135 + history.Text += ("12padams: The most important thing now is preparing for when " & mainname & " gets to the year 2000" & Environment.NewLine) + Case 140 + history.Text += ("12padams: Now we have to stop chatting about who gets to do what now " & Environment.NewLine) + Case 144 + history.Text += ("The Hidden Hacker: Hmm I would prefere to be me then..." & Environment.NewLine) + Case 149 + history.Text += ("12padams: Well accually " & mainname & " will need to go back to 1998 after experiencing all the future tech so..." & Environment.NewLine) + Case 155 + history.Text += ("The Hidden Hacker: Ok... " & mainname & " you should feel happy that you don't have to wait a whole year for results " & Environment.NewLine) + Case 160 + history.Text += ("12padams: Hey hidden hacker... if your doing tests like this they take time... just be patient " & Environment.NewLine) + Case 166 + history.Text += ("The Hidden Hacker: Oh great not another whole year :( " & Environment.NewLine) + Case 170 + history.Text += ("12padams: your wrong... 3 minutes for " & mainname & " and 1 year for us..." & Environment.NewLine) + Case 175 + history.Text += ("The Hidden Hacker: Hmm 3 minutes and we get to see the results to this test " & Environment.NewLine) + Case Else 'Probably a better way to do this + If count2000 < 175 Then + history.Focus() + history.SelectionStart = 999999 + history.ScrollToCaret() + typechat.Focus() + End If + End Select End Sub End Class \ No newline at end of file diff --git a/windows 95/Webchat1998.vb b/windows 95/Webchat1998.vb index 67a3a5f..255c1fa 100755 --- a/windows 95/Webchat1998.vb +++ b/windows 95/Webchat1998.vb @@ -1,16 +1,13 @@ Public Class Webchat1998 Dim con As Integer Dim ran As New Random - Dim abletoclose As String - Dim correct As String + Dim abletoclose As Boolean + Dim correct As Boolean Dim username As String Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - If abletoclose = "yes" Then + If abletoclose Then Me.Close() End If - If abletoclose = "no" Then - - End If End Sub Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load @@ -19,7 +16,7 @@ Button4.Hide() Button5.Hide() Label5.Hide() - abletoclose = "yes" + abletoclose = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click @@ -27,11 +24,11 @@ login.Hide() Chat.Start() ListBox1.Items.Add(username) - history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) + history.Text += (username & " Has Logged On" & Environment.NewLine) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" typechat.Focus() history.SelectionStart = 999999 @@ -39,782 +36,638 @@ End Sub Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick - If con = 144 Then - Title_Screen.Close() - End If - If con = 143 Then - 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) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 142 Then - history.Text = history.Text + ("" & Environment.NewLine) - history.Text = history.Text + ("" & Environment.NewLine) - history.Text = history.Text + ("C:\>") - Chat.Interval = 10000 - history.ReadOnly = False - con = con + 1 - - End If - If con = 141 Then - history.Text = "Starting MS-DOS..." - Chat.Interval = 4000 - history.ReadOnly = True - con = con + 1 - End If - If con = 140 Then - history.Text = "" - Chat.Interval = 2000 - history.ReadOnly = True - con = con + 1 - End If - If con = 139 Then - history.Text = history.Text + ("12padams: Oh last of all here is one hint... DOS IS USLESS... ITS JUST TEXT. NEXTTIME DON'T PIRATE SOFTWARE" & Environment.NewLine) - Chat.Interval = 6000 - history.ReadOnly = False - con = con + 1 - End If - If con = 138 Then - history.Text = 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) - Chat.Interval = 10000 - history.ReadOnly = False - con = con + 1 - End If - If con = 137 Then - history.ForeColor = Color.Silver - Chat.Interval = 2000 - history.ReadOnly = False - con = con + 1 - End If - If con = 136 Then - history.Text = history.Text + ("12padams: In DOS the computer had grey text not white text i just gotta modify it first." & Environment.NewLine) - Chat.Interval = 4000 - history.ReadOnly = False - con = con + 1 - End If - If con = 135 Then - history.Text = history.Text + ("12padams: Ok I just need to do one last setup for DOS" & Environment.NewLine) - Chat.Interval = 4000 - history.ReadOnly = False - con = con + 1 - End If - If con = 133 Then - history.Text = history.Text + ("12padams: Your computer now needs MS-DOS this will disconnect you from the convasation." & Environment.NewLine) - Chat.Interval = 7000 - history.ReadOnly = False - con = con + 2 - End If - If con = 131 Then - history.Text = history.Text + ("12padams: Hmm i am being to kind.... I think i gotta go now." & Environment.NewLine) - Chat.Interval = 6000 - history.ReadOnly = False - con = con + 2 - End If - If con = 130 Then - history.Text = history.Text + ("12padams: Ok there you go you can now type... Happy now?" & Environment.NewLine) - Chat.Interval = 8000 - history.ReadOnly = False - con = con + 1 - End If - If con = 129 Then - history.Text = history.Text + ("12padams: Lol for once i am giving you a feature..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 128 Then - history.Text = history.Text + ("12padams: Ok Well lol woops you can't type... thats a big mistake!!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 127 Then - history.Text = history.Text + ("12padams: Good now thats gone. I really gotta think for a little while at what to do next." & Environment.NewLine) - Chat.Interval = 10000 - con = con + 1 - End If - If con = 126 Then - program.BorderStyle = BorderStyle.None - history.BorderStyle = BorderStyle.None - top.Hide() - left.Hide() - bottom.Hide() - right.Hide() - toprightcorner.Hide() - topleftcorner.Hide() - bottomrightcorner.Hide() - bottomleftcorner.Hide() - Chat.Interval = 3000 - con = con + 1 - End If - If con = 125 Then - history.Text = history.Text + ("12padams: Ok ill remove it now." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 124 Then - history.Text = history.Text + ("12padams: Oh and the the white border around your screen i can't forget to remove that..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 123 Then - history.Text = history.Text + ("12padams: mouse removed..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - Cursor.Hide() - End If - If con = 122 Then - history.Text = history.Text + ("12padams: 1" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 121 Then - history.Text = history.Text + ("12padams: 2" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 120 Then - history.Text = history.Text + ("12padams: 3 " & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 119 Then - history.Text = history.Text + ("12padams: 4" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 118 Then - history.Text = history.Text + ("12padams: 5" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 117 Then - history.Text = history.Text + ("12padams: 6" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 116 Then - history.Text = history.Text + ("12padams: 7" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 115 Then - history.Text = history.Text + ("12padams: 8" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 114 Then - history.Text = history.Text + ("12padams: 9" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 113 Then - history.Text = history.Text + ("12padams: Ok removing in 10..." & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 112 Then - history.Text = history.Text + ("12padams: Ok enjoy the mouse while you can because I am just about to remove it..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 111 Then - history.Text = history.Text + ("12padams: How could i forget to remove then mouse..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 110 Then - history.Text = history.Text + ("12padams: Ok this is imbarrissing... I forgot to remove something thats really noticable that didn't exist." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 109 Then - history.Text = history.Text + ("12padams: Hmm... I seem to be making quite a good theme... I really should add this to skindows..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 108 Then - history.ScrollBars = ScrollBars.None - Chat.Interval = 4000 - con = con + 1 - End If - If con = 107 Then - history.Text = history.Text + ("12padams: Ill just remove it now..." & Environment.NewLine) - Chat.Interval = 2000 - con = con + 1 - End If - If con = 106 Then - history.Text = history.Text + ("12padams: I see the scroll bar at the side of the screen... that didn't exist early 1980's" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 105 Then - history.Text = history.Text + ("12padams: hmm theres still something missing..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 104 Then - history.Text = history.Text + ("12padams: Wow your computers looking good... I should be a programmer since i did such a godo job..." & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 103 Then - history.Dock = DockStyle.Fill - Chat.Interval = 3000 - con = con + 1 - End If - If con = 102 Then - history.Text = history.Text + ("12padams: Hmm yes Thats whats missing I gotta make the text full screen..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 101 Then - history.Text = history.Text + ("12padams: I Think I almost got your computer converted... early 1980's should be enough of a punishment..." & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 100 Then - history.ForeColor = Color.White - history.BackColor = Color.Black - Chat.Interval = 6000 - con = con + 1 - End If - If con = 99 Then - Me.BackColor = Color.Black - Chat.Interval = 5000 - con = con + 1 - End If - If con = 98 Then - history.Text = history.Text + ("12padams: Ok I hope Your not Scared Of the dark!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 97 Then - history.Text = history.Text + ("12padams: Hmm ok this is gunna be tricky..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 96 Then - history.Text = history.Text + ("12padams: Oh and we didn't have backgrounds... or even color for the matter..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 95 Then - Chat.Interval = 3000 - con = con + 1 - Label6.Hide() - Label1.Hide() - Label7.Hide() - End If - If con = 94 Then - history.Text = history.Text + ("12padams: First of all we didn't have labels... so ill remove labels now" & Environment.NewLine) - Chat.Interval = 2000 - con = con + 1 - End If - If con = 93 Then - history.Text = history.Text + ("12padams: Well let me give you a little lesson on the history of computers..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 92 Then - history.Text = 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 = con + 1 - End If - If con = 91 Then - history.Text = history.Text + ("12padams: Hey you must be new to computers... " & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 90 Then - history.Text = 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) - Chat.Interval = 10000 - con = con + 1 - End If - If con = 89 Then - history.Text = history.Text + ("12padams: Oh thats Right you dont even talk so your problably don't even know its gone... " & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 88 Then - history.Text = history.Text + ("12padams: Lol your problably saying WHY CAN'T I TALK... " & Environment.NewLine) - Chat.Interval = 4000 - typechat.Hide() - Button2.Hide() - con = con + 1 - End If - If con = 87 Then - history.Text = history.Text + ("12padams: Since you never talk i guess you won't be needing this..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 86 Then - history.Text = history.Text + ("12padams: " & username & "? I don't remeber you... Oh right your the silent one... " & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 85 Then - history.Text = history.Text + ("12padams: Now We are just left with... um wait who was it again..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 84 Then - history.Text = history.Text + ("SkyHigh Has Logged Off" & Environment.NewLine) - ListBox1.Items.Remove("SkyHigh") - Chat.Interval = 5000 - con = con + 1 - End If - If con = 83 Then - history.Text = history.Text + ("12padams: Oh Don't you know how to? here ill do it for you..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 82 Then - history.Text = history.Text + ("SkyHigh: But I can't!!!" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 81 Then - history.Text = 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 = con + 1 - End If - If con = 80 Then - history.Text = history.Text + ("SkyHigh: Please Stop!!!" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 79 Then - history.Text = history.Text + ("12padams: Ok now that thats removed i Can deal with your punishments" & Environment.NewLine) - Chat.Interval = 5000 - Panel1.Hide() - con = con + 1 - End If - If con = 78 Then - history.Text = 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) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 77 Then - history.Text = history.Text + ("12padams: Exactly and rain49 uploaded the skindows and do you see him now?" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 76 Then - history.Text = history.Text + ("SkyHigh: I thought its only illegal to upload stuff..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 75 Then - history.Text = history.Text + ("SkyHigh: Please Thats It!!! STOP. Me and " & username & " didn't accually do the uploading..." & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 74 Then - history.Text = 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 = con + 1 - End If - If con = 73 Then - programtopbar.Hide() - Chat.Interval = 3000 - con = con + 1 - End If - If con = 72 Then - history.Text = history.Text + ("12padams: What I have done everything...? What about this?" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 71 Then - history.Text = history.Text + ("SkyHigh: NOOOOOOO please this is enough you have done everything. I won't illegally download your software again" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 70 Then - Chat.Interval = 4000 - con = con + 1 - Windows95.Hide() - Me.WindowState = FormWindowState.Maximized - End If - If con = 69 Then - history.Text = history.Text + ("12padams: Well first I need your full attention..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - Dim FontName As String = "Arial" - Dim FontSize As Integer = 11 - Dim FS As New Font(FontName, FontSize, FontStyle.Regular) - history.Font = FS - End If - If con = 68 Then - history.Text = history.Text + ("SkyHigh: Please Let Me and " & username & " go and just forget this happened!!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 67 Then - history.Text = history.Text + ("12padams: You wanna Know how to Stop this?!!!!" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 66 Then - history.Text = history.Text + ("SkyHigh: Please Stop!!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 65 Then - history.Text = history.Text + ("12padams: Oh yea and your icons are infected so you don't need them" & Environment.NewLine) - Chat.Interval = 8000 - Windows95.desktopicons.Hide() - con = con + 1 - End If - If con = 64 Then - history.Text = history.Text + ("12padams: Oh but you said to the remove viruses and your taskbar was infected... it had no start button" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 63 Then - history.Text = history.Text + ("SkyHigh: Hey What the hell give me back my taskbar!!!" & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 62 Then - history.Text = history.Text + ("12padams: Hmm the taskbar was made by microsoft for windows 95...." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - Windows95.taskbar.Hide() - End If - If con = 61 Then - history.Text = history.Text + ("12padams: Hmm I see a Taskbar at the bottom of the screen..." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 60 Then - history.Text = history.Text + ("12padams: Well the whole of windows 95 is a virus so hmm where do we begin..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 59 Then - history.Text = history.Text + ("12padams: Get Rid of the viruses did you say???" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 58 Then - history.Text = history.Text + ("SkyHigh: What the Hell??? just get rid of these viruses now!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 57 Then - history.Text = history.Text + ("12padams: Anyway SkyHigh you are asking to many questions... Its time I unleash my next virus" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 56 Then - history.Text = history.Text + ("12padams: Well It causes your computer to have all its funtions disabled" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 55 Then - history.Text = history.Text + ("SkyHigh: Whats the virus do?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 54 Then - history.Text = history.Text + ("12padams: Your both experienceing a lethal virus which i like to call (death)" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 53 Then - history.Text = history.Text + ("12padams: I told you that you were gunna be punished...." & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 52 Then - history.Text = history.Text + ("SkyHigh: Hey what i can't open anything?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 51 Then - history.Text = history.Text + ("SkyHigh: Don't worry " & username & " ill look online for help" & Environment.NewLine) - Chat.Interval = 4000 - Windows95.Enabled = False - con = con + 1 - End If - If con = 50 Then - history.Text = history.Text + ("12padams: Hey trying to fight back are we...? well ill punish you both!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 49 Then - history.Text = history.Text + ("SkyHigh: Stop it!!! Let me and " & username & " go!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 48 Then - history.Text = history.Text + ("12padams: Oh yea thats right... Now we had two left. We have SkyHigh and " & username & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 47 Then - history.Text = history.Text + ("12padams: anyway... where were we?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 46 Then - history.Text = history.Text + ("12padams: lol All your Computers are infected with a virus which makes them unable to boot." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 45 Then - history.Text = history.Text + ("rain49 Has Logged Out" & Environment.NewLine) - ListBox1.Items.Remove("rain49") - Chat.Interval = 7000 - con = con + 1 - End If - If con = 44 Then - history.Text = history.Text + ("rain49: Oh yea... just watch" & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 43 Then - history.Text = history.Text + ("12padams: I would not do that if i were you..." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 42 Then - history.Text = history.Text + ("rain49: No... because i can just turn my computer off at the powerpoint... " & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 41 Then - history.Text = history.Text + ("12padams: ... scared Yet?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 40 Then - history.Text = history.Text + ("rain49: Omg 12padams disabled it..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 39 Then - history.Text = history.Text + ("SkyHigh: What the Hell!!!! wheres my startbutton." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 38 Then - history.Text = history.Text + ("12padams: Ha Ha Ha... nobodys turning off their computer???" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 37 Then - history.Text = history.Text + ("12padams: Yea Guys I Will definatly unban you if you do that..." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - Windows95.startbutton.Hide() - End If - If con = 36 Then - history.Text = history.Text + ("rain49: Guys Quickly go to start and turn off your computer!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 35 Then - history.Text = history.Text + ("12padams: Now that I Have you... We are gunna have a bit of fun..." & Environment.NewLine) - Chat.Interval = 10000 - con = con + 1 - End If - If con = 34 Then - history.Text = history.Text + ("12padams: I Have Caught you!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 33 Then - history.Text = history.Text + ("SkyHigh: I can't the x button is not working!!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 32 Then - history.Text = history.Text + ("rain49: CRAP 12padams logged on... Quickly SkyHigh and " & username & " LOGOUT!!!" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - - End If - If con = 31 Then - history.Text = history.Text + ("12padams Has Logged On" & Environment.NewLine) - ListBox1.Items.Add("12padams") - Chat.Interval = 4000 - con = con + 1 - abletoclose = "no" - End If - If con = 30 Then - history.Text = history.Text + ("SkyHigh: OMG THIS IS AWESOME.... I like the fire theme :0" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 29 Then - history.Text = history.Text + ("rain49: ok have fun then..." & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 28 Then - history.Text = history.Text + ("SkyHigh: YAY! Download Finished... Ill install it now :)" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 27 Then - history.Text = history.Text + ("rain49: lol ok... hey " & username & " you can download it as well :)" & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 26 Then - history.Text = history.Text + ("SkyHigh: Yay Thanks rain49!!! Ill download it now" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 25 Then - history.Text = history.Text + ("rain49: Its now added to the file sharing section at the bottom right of the screen" & Environment.NewLine) - Chat.Interval = 4000 - Label5.Show() - Button5.Show() - con = con + 1 - End If - If con = 24 Then - history.Text = history.Text + ("rain49: Ok just wait a sec..." & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 23 Then - history.Text = history.Text + ("SkyHigh: I think thats enough time... SEND IT NOW!!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 22 Then - history.Text = history.Text + ("rain49: Wait ill just give " & username & " a few moments to quit this chat just incase..." & Environment.NewLine) - Chat.Interval = 10000 - con = con + 1 - End If - If con = 21 Then - history.Text = history.Text + ("SkyHigh: Come on send it now..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 20 Then - history.Text = history.Text + ("SkyHigh: Yea and rain 49 is gunna send it to us through Webchat :)" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 19 Then - history.Text = history.Text + ("rain49: Anyway on the 12padams site there is a really cool piece of software called skindows95" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 18 Then - history.Text = history.Text + ("rain49: If I were you i would log out right now... otherwise you will probably be banned" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 17 Then - history.Text = history.Text + ("rain49: Ok " & username & " we are going to be breaking the chat rules..." & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 16 Then - history.Text = history.Text + ("rain49: Ill Have to tell " & username & " then..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 15 Then - history.Text = history.Text + ("SkyHigh: Oh woops I forgot to to warn " & username & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 14 Then - history.Text = history.Text + ("rain49: Oh ok... Does " & username & " know?" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 13 Then - history.Text = history.Text + ("SkyHigh: Oh " & username & " is just some new person who just logged on for the first time today" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 12 Then - history.Text = history.Text + ("rain49: Hey Who's " & username & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 11 Then - history.Text = history.Text + ("rain49: lol... hi SkyHigh" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 10 Then - history.Text = history.Text + ("SkyHigh: rain49 is finally on :) !!!!!!" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 9 Then - history.Text = history.Text + ("SkyHigh: Yay" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 8 Then - history.Text = history.Text + ("rain49 Has Logged On" & Environment.NewLine) - ListBox1.Items.Add("rain49") - Chat.Interval = 4000 - con = con + 1 - End If - If con = 7 Then - If correct = "Yes" Then - history.Text = history.Text + ("SkyHigh: Yay You got it :)" & Environment.NewLine) - Button4.Hide() - Button3.Hide() - typechat.Show() - con = con + 1 - End If - If correct = "No" Then - history.Text = history.Text + ("SkyHigh: Sorry My Name was Bill :(" & Environment.NewLine) - Button4.Hide() - Button3.Hide() - typechat.Show() - con = con + 1 - End If - End If - If con = 6 Then - history.Text = history.Text + ("SkyHigh: Ill make 2 buttons appear at the bottom of your screen and you click to guess" & Environment.NewLine) - Chat.Interval = 500 - con = con + 1 - Button3.Show() - Button4.Show() - typechat.Hide() - Chat.Stop() - End If - If con = 5 Then - history.Text = history.Text + ("SkyHigh: Ok Guess What my Name is" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 4 Then - history.Text = history.Text + ("SkyHigh: " & username & " We can play a game while we wait for rain49 to login" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 3 Then - history.Text = history.Text + ("SkyHigh: But wait!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 2 Then - history.Text = history.Text + ("SkyHigh: Sorry I thought my friend rain49 was gunna be on..." & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 1 Then - history.Text = history.Text + ("SkyHigh: Damn" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 0 Then - ListBox1.Items.Add("SkyHigh") - history.Text = history.Text + ("SkyHigh Has Logged On" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If + Select Case con + Case 144 + Title_Screen.Close() + 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) + Chat.Interval = 8000 + con += 1 + Case 142 + history.Text += ("" & Environment.NewLine) + history.Text += ("" & Environment.NewLine) + history.Text += ("C:\>") + Chat.Interval = 10000 + history.ReadOnly = False + con += 1 + Case 141 + history.Text = "Starting MS-DOS..." + Chat.Interval = 4000 + history.ReadOnly = True + con += 1 + Case 140 + history.Text = "" + Chat.Interval = 2000 + 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) + 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) + Chat.Interval = 10000 + history.ReadOnly = False + con += 1 + Case 137 + history.ForeColor = Color.Silver + 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) + 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) + 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) + 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) + 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) + Chat.Interval = 8000 + history.ReadOnly = False + con += 1 + Case 129 + history.Text += ("12padams: Lol 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) + 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) + Chat.Interval = 10000 + con += 1 + Case 126 + program.BorderStyle = BorderStyle.None + history.BorderStyle = BorderStyle.None + top.Hide() + left.Hide() + bottom.Hide() + right.Hide() + toprightcorner.Hide() + topleftcorner.Hide() + bottomrightcorner.Hide() + bottomleftcorner.Hide() + Chat.Interval = 3000 + con += 1 + Case 125 + history.Text += ("12padams: Ok ill 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) + Chat.Interval = 4000 + con += 1 + Case 123 + history.Text += ("12padams: mouse removed..." & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Cursor.Hide() + Case 122 + history.Text += ("12padams: 1" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 121 + history.Text += ("12padams: 2" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 120 + history.Text += ("12padams: 3 " & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 119 + history.Text += ("12padams: 4" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 118 + history.Text += ("12padams: 5" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 117 + history.Text += ("12padams: 6" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 116 + history.Text += ("12padams: 7" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 115 + history.Text += ("12padams: 8" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 114 + history.Text += ("12padams: 9" & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 113 + 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) + Chat.Interval = 5000 + con += 1 + Case 111 + history.Text += ("12padams: How could i forget to remove then 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) + 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) + Chat.Interval = 5000 + con += 1 + Case 108 + history.ScrollBars = ScrollBars.None + Chat.Interval = 4000 + con += 1 + Case 107 + history.Text += ("12padams: Ill 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) + Chat.Interval = 6000 + con += 1 + Case 105 + history.Text += ("12padams: hmm theres still something missing..." & 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) + Chat.Interval = 7000 + con += 1 + Case 103 + history.Dock = DockStyle.Fill + Chat.Interval = 3000 + con += 1 + Case 102 + history.Text += ("12padams: Hmm yes Thats 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) + Chat.Interval = 7000 + con += 1 + Case 100 + history.ForeColor = Color.White + history.BackColor = Color.Black + Chat.Interval = 6000 + con += 1 + Case 99 + Me.BackColor = Color.Black + Chat.Interval = 5000 + con += 1 + Case 98 + history.Text += ("12padams: Ok I hope Your 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) + 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) + Chat.Interval = 6000 + con += 1 + Case 95 + Chat.Interval = 3000 + con += 1 + Label6.Hide() + Label1.Hide() + Label7.Hide() + Case 94 + history.Text += ("12padams: First of all we didn't have labels... so ill remove labels now" & Environment.NewLine) + Chat.Interval = 2000 + con += 1 + Case 93 + history.Text += ("12padams: Well let me give you a little lesson on the history of computers..." & Environment.NewLine) + 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) + Chat.Interval = 6000 + con += 1 + Case 91 + history.Text += ("12padams: Hey you must be new to computers... " & Environment.NewLine) + 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) + 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) + Chat.Interval = 6000 + con += 1 + Case 88 + history.Text += ("12padams: Lol your 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) + Chat.Interval = 4000 + con += 1 + Case 86 + history.Text += ("12padams: " & username & "? I don't remeber you... Oh right your 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) + Chat.Interval = 4000 + con += 1 + Case 84 + history.Text += ("SkyHigh Has Logged Off" & Environment.NewLine) + ListBox1.Items.Remove("SkyHigh") + 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) + Chat.Interval = 4000 + con += 1 + Case 82 + 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) + Chat.Interval = 7000 + con += 1 + Case 80 + 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) + 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) + Chat.Interval = 6000 + con += 1 + Case 77 + history.Text += ("12padams: Exactly and rain49 uploaded the skindows and 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) + 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) + 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) + Chat.Interval = 8000 + con += 1 + Case 73 + programtopbar.Hide() + Chat.Interval = 3000 + con += 1 + Case 72 + history.Text += ("12padams: What I have done everything...? 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) + Chat.Interval = 6000 + con += 1 + Case 70 + Chat.Interval = 4000 + con += 1 + Windows95.Hide() + Me.WindowState = FormWindowState.Maximized + Case 69 + history.Text += ("12padams: Well first I need your full attention..." & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Dim FontName As String = "Arial" + Dim FontSize As Integer = 11 + 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) + Chat.Interval = 6000 + con += 1 + Case 67 + history.Text += ("12padams: You wanna Know how to Stop this?!!!!" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 66 + 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) + 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) + Chat.Interval = 7000 + con += 1 + Case 63 + 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) + 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) + 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) + Chat.Interval = 5000 + con += 1 + Case 59 + history.Text += ("12padams: Get Rid of the viruses did you say???" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 58 + 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) + Chat.Interval = 8000 + con += 1 + Case 56 + history.Text += ("12padams: Well It causes your computer to have all its funtions disabled" & Environment.NewLine) + Chat.Interval = 8000 + con += 1 + Case 55 + history.Text += ("SkyHigh: Whats 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) + Chat.Interval = 4000 + con += 1 + Case 53 + history.Text += ("12padams: I told you that you were gunna be punished...." & Environment.NewLine) + Chat.Interval = 8000 + con += 1 + Case 52 + history.Text += ("SkyHigh: Hey what i can't 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) + 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) + Chat.Interval = 6000 + con += 1 + Case 49 + 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) + Chat.Interval = 5000 + con += 1 + Case 47 + 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) + Chat.Interval = 6000 + con += 1 + Case 45 + history.Text += ("rain49 Has Logged Out" & Environment.NewLine) + ListBox1.Items.Remove("rain49") + Chat.Interval = 7000 + con += 1 + Case 44 + history.Text += ("rain49: Oh yea... 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) + Chat.Interval = 3000 + con += 1 + Case 42 + history.Text += ("rain49: No... because i can just turn my computer off at the powerpoint... " & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 41 + history.Text += ("12padams: ... scared Yet?" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 40 + history.Text += ("rain49: Omg 12padams disabled it..." & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 39 + history.Text += ("SkyHigh: What the Hell!!!! wheres my startbutton." & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 38 + history.Text += ("12padams: Ha Ha Ha... nobodys 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) + 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) + 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) + Chat.Interval = 10000 + con += 1 + Case 34 + 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) + Chat.Interval = 3000 + con += 1 + Case 32 + history.Text += ("rain49: CRAP 12padams logged on... Quickly SkyHigh and " & username & " LOGOUT!!!" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 31 + history.Text += ("12padams Has Logged On" & Environment.NewLine) + ListBox1.Items.Add("12padams") + Chat.Interval = 4000 + con += 1 + abletoclose = False + Case 30 + history.Text += ("SkyHigh: OMG THIS IS AWESOME.... I like the fire theme :0" & Environment.NewLine) + Chat.Interval = 8000 + con += 1 + Case 29 + 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) + Chat.Interval = 3000 + con += 1 + Case 27 + history.Text += ("rain49: lol 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) + 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) + Chat.Interval = 4000 + Label5.Show() + Button5.Show() + con += 1 + Case 24 + history.Text += ("rain49: Ok just wait a sec..." & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 23 + history.Text += ("SkyHigh: I think thats enough time... SEND IT NOW!!!!" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 22 + history.Text += ("rain49: Wait ill just give " & username & " a few moments to quit this chat just incase..." & Environment.NewLine) + Chat.Interval = 10000 + con += 1 + Case 21 + history.Text += ("SkyHigh: Come on send it now..." & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 20 + history.Text += ("SkyHigh: Yea and rain 49 is gunna send it to us through Webchat :)" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 19 + history.Text += ("rain49: Anyway on the 12padams site there is a really cool piece of software called skindows95" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 18 + history.Text += ("rain49: If I were you i would log out right now... otherwise you will probably be banned" & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 17 + history.Text += ("rain49: Ok " & username & " we are going to be breaking the chat rules..." & Environment.NewLine) + Chat.Interval = 8000 + con += 1 + Case 16 + history.Text += ("rain49: Ill Have to tell " & username & " then..." & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 15 + history.Text += ("SkyHigh: Oh woops I forgot to to warn " & username & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 14 + history.Text += ("rain49: Oh ok... Does " & username & " know?" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 13 + history.Text += ("SkyHigh: Oh " & username & " is just some new person who just logged on for the first time today" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 12 + history.Text += ("rain49: Hey Who's " & username & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 11 + history.Text += ("rain49: lol... hi SkyHigh" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 10 + history.Text += ("SkyHigh: rain49 is finally on :) !!!!!!" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 9 + history.Text += ("SkyHigh: Yay" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 8 + history.Text += ("rain49 Has Logged On" & Environment.NewLine) + ListBox1.Items.Add("rain49") + Chat.Interval = 4000 + con += 1 + Case 7 + If correct Then + 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) + 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) + Chat.Interval = 500 + con += 1 + Button3.Show() + Button4.Show() + typechat.Hide() + Chat.Stop() + Case 5 + 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) + Chat.Interval = 4000 + con += 1 + Case 3 + history.Text += ("SkyHigh: But wait!" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 2 + history.Text += ("SkyHigh: Sorry I thought my friend rain49 was gunna be on..." & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 1 + history.Text += ("SkyHigh: Damn" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 0 + ListBox1.Items.Add("SkyHigh") + history.Text += ("SkyHigh Has Logged On" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + End Select history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() @@ -823,14 +676,14 @@ Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click con = 7 - correct = "No" + correct = False Chat.Start() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click con = 7 - correct = "Yes" + correct = True Chat.Start() End Sub @@ -897,7 +750,7 @@ End Sub Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click - If maximize = False Then + If Not maximize Then meylocation = Windows95.desktopicons.Height - Me.Height mexlocation = Windows95.desktopicons.Width - Me.Width mewidth = Me.Width diff --git a/windows 95/webchat 2000.vb b/windows 95/webchat 2000.vb index 7861abf..7b8e947 100755 --- a/windows 95/webchat 2000.vb +++ b/windows 95/webchat 2000.vb @@ -3,22 +3,15 @@ Dim waiting2 As Boolean = False Dim con As Integer = 1 Dim ran As New Random - Dim abletoclose As String = "yes" Dim username As String Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - If abletoclose = "yes" Then - Me.Close() - End If - If abletoclose = "no" Then - - End If + Me.Close() End Sub Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load look.Start() Button5.Hide() Label5.Hide() - abletoclose = "yes" ListBox1.Items.Add("12padams") ListBox1.Items.Add("The Hidden Hacker") End Sub @@ -28,7 +21,7 @@ login.Hide() Chat.Start() ListBox1.Items.Add(username) - history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) + history.Text += (username & " Has Logged On" & Environment.NewLine) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click @@ -36,7 +29,7 @@ If typechat.Text = "star" Then Chat.Start() con = con + 1 - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 @@ -44,8 +37,8 @@ typechat.Focus() waiting = False Else - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) - history.Text = history.Text + ("12padams: sorry that was the wrong password... remember that you should only type the 4 letter password and nothing else." & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) + history.Text += ("12padams: sorry that was the wrong password... remember that you should only type the 4 letter password and nothing else." & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 @@ -54,7 +47,7 @@ End If Else - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" typechat.Focus() history.SelectionStart = 999999 @@ -64,179 +57,116 @@ End Sub Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick - If con = 34 Then - Me.Close() - Chat.Interval = 2000 - con = con + 1 - End If - If con = 33 Then - history.Text = history.Text + ("12padams: Close any open programs now!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 32 Then - history.Text = history.Text + ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 31 Then - history.Text = history.Text + ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 30 Then - history.Text = history.Text + ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 29 Then - history.Text = history.Text + ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 28 Then - history.Text = history.Text + ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 27 Then - history.Text = history.Text + ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 26 Then - history.Text = history.Text + ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 25 Then - history.Text = history.Text + ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 24 Then - history.Text = history.Text + ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 23 Then - history.Text = history.Text + ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 22 Then - Label5.Show() - Button5.Show() - Chat.Interval = 2000 - Chat.Stop() - waitingdownload.Start() - End If - If con = 21 Then - history.Text = history.Text + ("12padams: Ok then ill send " & mainname & " the new version of time distorter then you can both go off on your journey" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - waitfor02download = True - End If - If con = 20 Then - history.Text = history.Text + ("12padams: So ready to get started?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 19 Then - history.Text = history.Text + ("12padams: I just need to make sure that when 2 people both time travel at the same time nothing goes wrong" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 18 Then - history.Text = history.Text + ("12padams: Thats corrent yes... " & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 17 Then - history.Text = history.Text + ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 16 Then - history.Text = history.Text + ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 15 Then - history.Text = history.Text + ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 14 Then - history.Text = history.Text + ("12padams: Ok Hidden Hacker I am glad your happy but lets accually start talking about what the aim of this time travel is..." & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 13 Then - history.Text = history.Text + ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 12 Then - history.Text = history.Text + ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 11 Then - history.Text = history.Text + ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 10 Then - history.Text = history.Text + ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 9 Then - history.Text = history.Text + ("12padams: Yes you do." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 8 Then - history.Text = history.Text + ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 7 Then - history.Text = history.Text + ("12padams: ok good that was the password." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 6 Then - waiting = True - Chat.Stop() - - End If - If con = 5 Then - history.Text = history.Text + ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 4 Then - history.Text = history.Text + ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 3 Then - history.Text = history.Text + ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 2 Then - history.Text = history.Text + ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 1 Then - history.Text = history.Text + ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If + Select Case con + Case 34 + Me.Close() + Chat.Interval = 2000 + Case 33 + history.Text += ("12padams: Close any open programs now!!!" & Environment.NewLine) + Chat.Interval = 3000 + Case 32 + history.Text += ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) + Chat.Interval = 3000 + Case 31 + history.Text += ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) + Chat.Interval = 3000 + Case 30 + history.Text += ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) + Chat.Interval = 5000 + Case 29 + history.Text += ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) + Chat.Interval = 7000 + Case 28 + history.Text += ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) + Chat.Interval = 6000 + Case 27 + history.Text += ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) + Chat.Interval = 8000 + Case 26 + history.Text += ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) + Chat.Interval = 7000 + Case 25 + history.Text += ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) + Chat.Interval = 6000 + Case 24 + history.Text += ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) + Chat.Interval = 6000 + Case 23 + history.Text += ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) + Chat.Interval = 6000 + Case 22 + Label5.Show() + Button5.Show() + Chat.Interval = 2000 + Chat.Stop() + waitingdownload.Start() + con -= 1 + Case 21 + history.Text += ("12padams: Ok then ill send " & mainname & " the new version of time distorter then you can both go off on your journey" & Environment.NewLine) + Chat.Interval = 4000 + waitfor02download = True + Case 20 + history.Text += ("12padams: So ready to get started?" & Environment.NewLine) + Chat.Interval = 5000 + Case 19 + history.Text += ("12padams: I just need to make sure that when 2 people both time travel at the same time nothing goes wrong" & Environment.NewLine) + Chat.Interval = 7000 + Case 18 + history.Text += ("12padams: Thats corrent yes... " & Environment.NewLine) + Chat.Interval = 6000 + Case 17 + history.Text += ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) + Chat.Interval = 4000 + Case 16 + history.Text += ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) + Chat.Interval = 5000 + Case 15 + history.Text += ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) + Chat.Interval = 6000 + Case 14 + history.Text += ("12padams: Ok Hidden Hacker I am glad your happy but lets accually start talking about what the aim of this time travel is..." & Environment.NewLine) + Chat.Interval = 9000 + Case 13 + history.Text += ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) + Chat.Interval = 5000 + Case 12 + history.Text += ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) + Chat.Interval = 5000 + Case 11 + history.Text += ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine) + Chat.Interval = 6000 + Case 10 + history.Text += ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) + Chat.Interval = 6000 + Case 9 + history.Text += ("12padams: Yes you do." & Environment.NewLine) + Chat.Interval = 4000 + Case 8 + history.Text += ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) + Chat.Interval = 3000 + Case 7 + history.Text += ("12padams: ok good that was the password." & Environment.NewLine) + Chat.Interval = 5000 + Case 6 + waiting = True + Chat.Stop() + Case 5 + history.Text += ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine) + Chat.Interval = 1000 + Case 4 + history.Text += ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine) + Chat.Interval = 3000 + Case 3 + history.Text += ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine) + Chat.Interval = 6000 + Case 2 + history.Text += ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine) + Chat.Interval = 4000 + Case 1 + history.Text += ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine) + Chat.Interval = 5000 + End Select + con += 1 history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() @@ -254,7 +184,7 @@ Dim maximize As Boolean Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown - If moveable = True Then + If moveable Then If e.Button = MouseButtons.Left Then programtopbar.Capture = False Const WM_NCLBUTTONDOWN As Integer = &HA1S @@ -264,7 +194,6 @@ New IntPtr(HTCAPTION), IntPtr.Zero) Me.DefWndProc(msg) End If - Else End If End Sub @@ -351,10 +280,10 @@ End Sub Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick - If waitfor02download = False Then + If Not waitfor02download Then Chat.Start() waitingdownload.Stop() - con = con + 1 + con += 1 End If End Sub diff --git a/windows 95/webchat 2001.vb b/windows 95/webchat 2001.vb index bfb84ba..b065424 100644 --- a/windows 95/webchat 2001.vb +++ b/windows 95/webchat 2001.vb @@ -3,22 +3,15 @@ Dim waiting2 As Boolean = False Dim con As Integer = 1 Dim ran As New Random - Dim abletoclose As String = "yes" Dim username As String Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - If abletoclose = "yes" Then - Me.Close() - End If - If abletoclose = "no" Then - - End If + Me.Close() End Sub Private Sub me_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load look.Start() Button5.Hide() Label5.Hide() - abletoclose = "yes" ListBox1.Items.Add("12padams") ListBox1.Items.Add("The Hidden Hacker") End Sub @@ -28,15 +21,15 @@ login.Hide() Chat.Start() ListBox1.Items.Add(username) - history.Text = history.Text + (username & " Has Logged On" & Environment.NewLine) + history.Text += (username & " Has Logged On" & Environment.NewLine) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - If waiting = True Then + If waiting Then If typechat.Text = "star" Then Chat.Start() - con = con + 1 - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + con += 1 + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 @@ -44,199 +37,164 @@ typechat.Focus() waiting = False Else - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) - history.Text = history.Text + ("12padams: sorry that was the wrong password... remember that you should only type the 4 letter password and nothing else." & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) + history.Text += ("12padams: sorry that was the wrong password... remember that you should only type the 4 letter password and nothing else." & Environment.NewLine) typechat.Text = "" history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() typechat.Focus() End If - Else - history.Text = history.Text + (username & ": " & typechat.Text & Environment.NewLine) + history.Text += (username & ": " & typechat.Text & Environment.NewLine) typechat.Text = "" typechat.Focus() history.SelectionStart = 999999 history.ScrollToCaret() End If - End Sub Private Sub Chat_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chat.Tick - If con = 34 Then - Me.Close() - Chat.Interval = 2000 - con = con + 1 - End If - If con = 33 Then - history.Text = history.Text + ("12padams: Close any open programs now!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 32 Then - history.Text = history.Text + ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 31 Then - history.Text = history.Text + ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 30 Then - history.Text = history.Text + ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 29 Then - history.Text = history.Text + ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 28 Then - history.Text = history.Text + ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 27 Then - history.Text = history.Text + ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) - Chat.Interval = 8000 - con = con + 1 - End If - If con = 26 Then - history.Text = history.Text + ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 25 Then - history.Text = history.Text + ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 24 Then - history.Text = history.Text + ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 23 Then - history.Text = history.Text + ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 22 Then - Label5.Show() - Button5.Show() - Chat.Interval = 2000 - Chat.Stop() - waitingdownload.Start() - End If - If con = 21 Then - history.Text = history.Text + ("12padams: Ok then ill send " & mainname & " the new version of time distorter then you can both go off on your journey" & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - waitfor02download = True - End If - If con = 20 Then - history.Text = history.Text + ("12padams: So ready to get started?" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 19 Then - history.Text = history.Text + ("12padams: I just need to make sure that when 2 people both time travel at the same time nothing goes wrong" & Environment.NewLine) - Chat.Interval = 7000 - con = con + 1 - End If - If con = 18 Then - history.Text = history.Text + ("12padams: Thats corrent yes... " & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 17 Then - history.Text = history.Text + ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 16 Then - history.Text = history.Text + ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 15 Then - history.Text = history.Text + ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 14 Then - history.Text = history.Text + ("12padams: Ok Hidden Hacker I am glad your happy but lets accually start talking about what the aim of this time travel is..." & Environment.NewLine) - Chat.Interval = 9000 - con = con + 1 - End If - If con = 13 Then - history.Text = history.Text + ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 12 Then - history.Text = history.Text + ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 11 Then - history.Text = history.Text + ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 10 Then - history.Text = history.Text + ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 9 Then - history.Text = history.Text + ("12padams: Yes you do." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 8 Then - history.Text = history.Text + ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 7 Then - history.Text = history.Text + ("12padams: ok good that was the password." & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If - If con = 6 Then - waiting = True - Chat.Stop() - - End If - If con = 5 Then - history.Text = history.Text + ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine) - Chat.Interval = 1000 - con = con + 1 - End If - If con = 4 Then - history.Text = history.Text + ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine) - Chat.Interval = 3000 - con = con + 1 - End If - If con = 3 Then - history.Text = history.Text + ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine) - Chat.Interval = 6000 - con = con + 1 - End If - If con = 2 Then - history.Text = history.Text + ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine) - Chat.Interval = 4000 - con = con + 1 - End If - If con = 1 Then - history.Text = history.Text + ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine) - Chat.Interval = 5000 - con = con + 1 - End If + Select Case con + Case 34 + Me.Close() + Chat.Interval = 2000 + con += 1 + Case 33 + history.Text += ("12padams: Close any open programs now!!!" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 32 + history.Text += ("12padams: And I will close this chat... its not good to have open programs while time traveling" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 31 + history.Text += ("12padams: Bye " & mainname & " and Hidden Hacker. Ill see you in the FUTURE!!!" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 30 + history.Text += ("The Hidden Hacker: Ok bye 12padams and thanks for letting me time travel this time." & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 29 + history.Text += ("12padams: Yep Its all fixed and time travel is a lot smoother... anyway see ya" & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 28 + history.Text += ("The Hidden Hacker: So that wont happen anymore?" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 27 + history.Text += ("12padams: Basically the time distorter program may have made things flash which currupted a few files" & Environment.NewLine) + Chat.Interval = 8000 + con += 1 + Case 26 + history.Text += ("The Hidden Hacker: What do you mean time holes?" & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 25 + history.Text += ("12padams: I should mention that time distorter used to cause a few time holes" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 24 + history.Text += ("12padams: Good and " & mainname & "'s timer is counting down too" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 23 + history.Text += ("The Hidden Hacker: Ok my Time Distorter has started the countdown" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 22 + Label5.Show() + Button5.Show() + Chat.Interval = 2000 + Chat.Stop() + waitingdownload.Start() + Case 21 + history.Text += ("12padams: Ok then ill send " & mainname & " the new version of time distorter then you can both go off on your journey" & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + waitfor02download = True + Case 20 + history.Text += ("12padams: So ready to get started?" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 19 + history.Text += ("12padams: I just need to make sure that when 2 people both time travel at the same time nothing goes wrong" & Environment.NewLine) + Chat.Interval = 7000 + con += 1 + Case 18 + history.Text += ("12padams: Thats corrent yes... " & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 17 + history.Text += ("The Hidden Hacker: you mean 2 people at once... me and " & mainname & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 16 + history.Text += ("12padams: Today we are going to be doing our first multi time travel test" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 15 + history.Text += ("The Hidden Hacker: Sorry got a bit to excited... go ahead 12padams and explain it :)" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 14 + history.Text += ("12padams: Ok Hidden Hacker I am glad your happy but lets accually start talking about what the aim of this time travel is..." & Environment.NewLine) + Chat.Interval = 9000 + con += 1 + Case 13 + history.Text += ("The Hidden Hacker: I get to time travel with you " & mainname & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 12 + history.Text += ("The Hidden Hacker: Now I dont have to wait at all!!!" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 11 + history.Text += ("The Hidden Hacker: " & mainname & " you dont understand how boring it is to wait a whole year for you to return..." & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 10 + history.Text += ("The Hidden Hacker: YAAY OMG I AM SO EXCITED!!!!" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 9 + history.Text += ("12padams: Yes you do." & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 8 + history.Text += ("The Hidden Hacker: Now do we get to time travel" & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 7 + history.Text += ("12padams: ok good that was the password." & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + Case 6 + waiting = True + Chat.Stop() + Case 5 + history.Text += ("12padams: Just say the 4 letter password without anything else." & Environment.NewLine) + Chat.Interval = 1000 + con += 1 + Case 4 + history.Text += ("12padams: wait a minute... " & mainname & " tell me the password you were given at the end of survive the day." & Environment.NewLine) + Chat.Interval = 3000 + con += 1 + Case 3 + history.Text += ("The Hidden Hacker: Ok lets time travel now!!!" & Environment.NewLine) + Chat.Interval = 6000 + con += 1 + Case 2 + history.Text += ("12padams: Oh hi " & mainname & " its good to see you again." & Environment.NewLine) + Chat.Interval = 4000 + con += 1 + Case 1 + history.Text += ("The Hidden Hacker: YESSSS!!! " & mainname & " has finally come on!!!" & Environment.NewLine) + Chat.Interval = 5000 + con += 1 + End Select history.Focus() history.SelectionStart = 999999 history.ScrollToCaret() @@ -351,12 +309,10 @@ End Sub Private Sub waitingdownload_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles waitingdownload.Tick - If waitfor02download = False Then + If Not waitfor02download Then Chat.Start() waitingdownload.Stop() - con = con + 1 + con += 1 End If - End Sub - End Class \ No newline at end of file