-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmSetup.frm
231 lines (226 loc) · 6.54 KB
/
frmSetup.frm
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
223
224
225
226
227
228
229
230
231
VERSION 5.00
Begin VB.Form frmSetup
BorderStyle = 1 'Fixed Single
Caption = "Setup"
ClientHeight = 3225
ClientLeft = 45
ClientTop = 330
ClientWidth = 4710
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 215
ScaleMode = 3 'Pixel
ScaleWidth = 314
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox chkFullScreen
Caption = "Full Screen"
Height = 495
Left = 3120
TabIndex = 9
Top = 1800
Width = 1215
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Default = -1 'True
Height = 495
Left = 1560
TabIndex = 7
Top = 2520
Width = 975
End
Begin VB.HScrollBar hscrDelay
Height = 255
LargeChange = 10
Left = 1680
Max = 1000
TabIndex = 0
Top = 1080
Width = 1935
End
Begin VB.Label Label16
Alignment = 2 'Center
BackColor = &H008080FF&
Caption = "Windows 32 API Version"
Height = 615
Left = 3720
TabIndex = 19
Top = 480
Width = 975
End
Begin VB.Label Label15
Caption = "1. View ReadMe.txt"
Height = 255
Left = 0
TabIndex = 18
Top = 840
Width = 1575
End
Begin VB.Label Label14
Caption = " Esc = end game"
Height = 255
Left = 0
TabIndex = 17
Top = 2280
Width = 1575
End
Begin VB.Label Label13
Caption = " Arrows = Movement"
Height = 255
Left = 0
TabIndex = 16
Top = 2040
Width = 1575
End
Begin VB.Label Label12
Caption = " Z = Jump"
Height = 255
Left = 0
TabIndex = 15
Top = 1800
Width = 1575
End
Begin VB.Label Label11
Caption = " X = Attack"
Height = 255
Left = 0
TabIndex = 14
Top = 1560
Width = 1575
End
Begin VB.Label Label10
Caption = "Build: 07/30/03"
Height = 255
Left = 0
TabIndex = 13
Top = 2760
Width = 1215
End
Begin VB.Label Label9
Caption = "3. Keys: "
Height = 255
Left = 0
TabIndex = 12
Top = 1320
Width = 1575
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "No Rhapsody for The Weak"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 960
TabIndex = 11
Top = 435
Width = 2655
End
Begin VB.Label Label7
Caption = "2. Use 16-bit Color"
Height = 255
Left = 0
TabIndex = 10
Top = 1080
Width = 1575
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "CASTLEVANIA"
BeginProperty Font
Name = "Verdana"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 960
TabIndex = 8
Top = 0
Width = 2655
End
Begin VB.Label Label6
Caption = "Delay:"
Height = 375
Left = 1680
TabIndex = 6
Top = 1920
Width = 495
End
Begin VB.Label lblDelay
Caption = "0"
Height = 255
Left = 2280
TabIndex = 5
Top = 1920
Width = 735
End
Begin VB.Label Label4
Caption = "1000 (or 1 second)"
Height = 255
Left = 3240
TabIndex = 4
Top = 1440
Width = 1335
End
Begin VB.Label Label3
Caption = "0"
Height = 255
Left = 1680
TabIndex = 3
Top = 1440
Width = 495
End
Begin VB.Label Label2
Caption = "Note: The less the delay, the faster the game will run."
Height = 615
Left = 2640
TabIndex = 2
Top = 2400
Width = 1935
End
Begin VB.Label Label1
Caption = "Redraw Delay"
Height = 255
Left = 1680
TabIndex = 1
Top = 840
Width = 1455
End
End
Attribute VB_Name = "frmSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mintDelay As Integer
Private Sub cmdStart_Click()
DELAY = mintDelay
Me.Hide
If chkFullScreen.Value = Checked Then frmChangeRez.StartRez
Load frmMain
Load frmCollision
frmMain.GameLoop
Unload Me
End Sub
Private Sub Form_Load()
Me.Show
mintDelay = 35
hscrDelay.Value = mintDelay
lblDelay.Caption = mintDelay
End Sub
Private Sub hscrDelay_Change()
mintDelay = hscrDelay.Value
lblDelay.Caption = mintDelay
End Sub