Cleanup WebChat

1 files changed, 119 insertions, 190 deletions

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