1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
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
|
