From 86f296168b54f67af1b6e0f41cb44c55cd338fd2 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 12:09:02 +0000 Subject: Cleanup WebChat --- windows 95/webchat 2000.vb | 309 +++++++++++++++++---------------------------- 1 file changed, 119 insertions(+), 190 deletions(-) (limited to 'windows 95/webchat 2000.vb') 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 -- cgit v1.2.3