Merge branch 'master' of https://github.com/Histacom/Histacom

1 files changed, 150 insertions, 194 deletions

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