1 files changed, 222 insertions, 0 deletions
diff --git a/windows 95/timedistorter032002xp.vb b/windows 95/timedistorter032002xp.vb
new file mode 100755
index 0000000..b0da4c1
--- /dev/null
+++ b/windows 95/timedistorter032002xp.vb
@@ -0,0 +1,222 @@
+Public Class timedistorter032002xp
+    Dim timergo As Boolean
+    Dim countdownnum As Integer
+    Dim moveable As Boolean = True
+    Dim mexlocation, meylocation As Integer
+    Dim mewidth, meheight As Integer
+    Dim maximize As Boolean
+
+    Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles top.MouseDown
+        If moveable = True Then
+            If e.Button = MouseButtons.Left Then
+                top.Capture = False
+                Const WM_NCLBUTTONDOWN As Integer = &HA1S
+                Const HTCAPTION As Integer = 2
+                Dim msg As Message = _
+                    Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
+                        New IntPtr(HTCAPTION), IntPtr.Zero)
+                Me.DefWndProc(msg)
+            End If
+        Else
+        End If
+    End Sub
+
+    Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
+
+        Me.Close()
+    End Sub
+
+    Private Sub pullside_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullside.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+    End Sub
+
+    Private Sub pullbottom_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pullbottom.Tick
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+    End Sub
+
+    Private Sub pullbs_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pullbs.Tick
+        Me.Width = Cursor.Position.X - Me.Location.X
+        Me.Height = Cursor.Position.Y - Me.Location.Y
+    End Sub
+
+    Private Sub Rightpull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseDown
+        pullside.Start()
+    End Sub
+
+    Private Sub rightpull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles right.MouseUp
+        pullside.Stop()
+    End Sub
+
+    Private Sub bottompull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseDown
+        pullbottom.Start()
+    End Sub
+
+    Private Sub buttompull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottom.MouseUp
+        pullbottom.Stop()
+    End Sub
+
+    Private Sub bspull_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseDown
+        pullbs.Start()
+    End Sub
+
+    Private Sub bspull_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bottomrightcorner.MouseUp
+        pullbs.Stop()
+    End Sub
+
+    Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximizebutton.Click
+        If maximize = False Then
+            meylocation = Windowsxp2002damaged.desktopicons.Height - Me.Height
+            mexlocation = Windowsxp2002damaged.desktopicons.Width - Me.Width
+            mewidth = Me.Width
+            meheight = Me.Height
+            bottomrightcorner.Hide()
+            bottomleftcorner.Hide()
+            left.Hide()
+            bottom.Hide()
+            right.Hide()
+            Dim w, h As Integer
+            w = Windowsxp2002damaged.desktopicons.Width
+            h = Windowsxp2002damaged.desktopicons.Height
+            Me.Location = New Point(0, 0)
+            Me.Size = New Size(w, h)
+            moveable = False
+            maximizebutton.Image = My.Resources.windowsxprestorebutton
+            maximize = True
+            toprightcorner.Hide()
+            topleftcorner.Hide()
+        Else
+            bottomrightcorner.Show()
+            bottomleftcorner.Show()
+            left.Show()
+            bottom.Show()
+            right.Show()
+            Me.Location = New Point(mexlocation, meylocation)
+            Me.Size = New Size(mewidth, meheight)
+            moveable = True
+            maximizebutton.Image = My.Resources.windowsxpmaximizebutton
+            maximize = False
+            toprightcorner.Show()
+            topleftcorner.Show()
+        End If
+    End Sub
+
+    Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
+        Me.top.BackColor = Windowsxp2002damaged.top.BackColor
+        Me.top.BackgroundImage = Windowsxp2002damaged.top.BackgroundImage
+        Me.programname.ForeColor = Windowsxp2002damaged.programname.ForeColor
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Dim openerror As New Windows_Xp_messagebox
+        openerror.errormessage.Text = "Time travel to this year is not completed in the current version of Histacom. bsdn98e5 is the save code for this bad 2002 year. I'll take you to a preview of 2001 but then reload the game back here and choose 2000 next time ;)"
+        openerror.Show()
+        Windowsxp2002damaged.Close()
+        windows_me.Show()
+        openerror.BringToFront()
+
+    End Sub
+
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        countdownnum = 60
+        timergo = True
+        Countdownlabel.Location = New Point(314, 52)
+        countdown.Location = New Point(339, 75)
+        Label2.Show()
+        Button1.Hide()
+        Button2.Hide()
+        countdowntimer.Start()
+    End Sub
+
+    Private Sub countdowntimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countdowntimer.Tick
+        countdownnum = countdownnum - 1
+        If countdownnum = -10 Then
+            Windows2000.Show()
+            countdowntimer.Stop()
+            time_travel_year_display.Hide()
+            Windowsxp2002damaged.Close()
+            Me.Close()
+        End If
+        If countdownnum = -9 Then
+            time_travel_year_display.year.Show()
+            commandpromptxp.Hide()
+            Me.Hide()
+
+        End If
+        If countdownnum = -8 Then
+            time_travel_year_display.year.Hide()
+        End If
+        If countdownnum = -7 Then
+            time_travel_year_display.year.Text = "2000"
+        End If
+        If countdownnum = -6 Then
+            time_travel_year_display.year.Text = "2001"
+        End If
+        If countdownnum = -2 Then
+            time_travel_year_display.Show()
+            time_travel_year_display.year.Text = "2002"
+        End If
+        If countdownnum = -1 Then
+            Label2.Text = "Traveling"
+            Countdownlabel.Text = "Year:"
+            countdown.Text = "2002"
+        End If
+        If countdownnum = 1 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: good luck " & mainname & Environment.NewLine)
+        End If
+        If countdownnum = 5 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: and 2002 will no longer be a virus wasteland." & Environment.NewLine)
+        End If
+        If countdownnum = 9 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: We will be a team again" & Environment.NewLine)
+        End If
+        If countdownnum = 13 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: As soon as things are fixed in 2000 and 12padams sees you come back, he will not unlease the virus" & Environment.NewLine)
+        End If
+        If countdownnum = 18 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: Anyway don't worry about me... when you leave 2002 and go to 2000 to fix things up ill be ok" & Environment.NewLine)
+        End If
+        If countdownnum = 24 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: I am glad you choose 2000... I don't think you and I would have been able to tell this story to 12padams in 2001" & Environment.NewLine)
+        End If
+        If countdownnum = 29 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: So you are the only one with memory of this bad virus infected 2002" & Environment.NewLine)
+        End If
+        If countdownnum = 34 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: Remember when you get to 2000 the hidden hacker of that time will not know about the time travel stuffing up" & Environment.NewLine)
+        End If
+        If countdownnum = 40 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: ok since you are going to 2000 12padams will think his software worked without fail and you went 1998 -> 1999 -> 2000" & Environment.NewLine)
+        End If
+        If countdownnum = 44 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: Your travel from 1999 ->2000 stuffed up and took you here instead..." & Environment.NewLine)
+        End If
+        If countdownnum = 49 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: For you your experience has gone like this: 1998 -> 1999 -> 2002 and then 2000 in less then a minute" & Environment.NewLine)
+        End If
+        If countdownnum = 54 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: This means that you will have to pretend you never met me here." & Environment.NewLine)
+        End If
+        If countdownnum = 59 Then
+            countdown.Text = countdownnum
+            commandpromptxp.TextBox1.Text = commandpromptxp.TextBox1.Text + ("The Hidden Hacker: Ok... you chose the year 2000." & Environment.NewLine)
+        End If
+        If timergo = True Then
+            countdown.Text = countdownnum
+        End If
+
+        commandpromptxp.TextBox1.SelectionStart = 999999
+        commandpromptxp.TextBox1.ScrollToCaret()
+    End Sub
+End Class
+\ No newline at end of file