TrollDecker
/
turvy
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
An old college project (for the module "Developing Computer Games") in which I developed - against my better judgement, seriously - a puzzle-platformer inspired by Terry Cavanagh's *VVVVVV*.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
12 MiB
 
 
Branch: main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'main'
${ noResults }
turvy/frmGravity.frm

3562 lines
96 KiB
Raw Permalink Blame History

VERSION 5.00
Begin VB.Form frmGravity
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Turvy"
ClientHeight = 9000
ClientLeft = 1350
ClientTop = 1650
ClientWidth = 12000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 600
ScaleMode = 3 'Pixel
ScaleWidth = 800
Begin VB.TextBox txtPlayerName
Alignment = 2 'Center
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5700
MaxLength = 3
TabIndex = 8
Top = 6825
Width = 600
End
Begin VB.PictureBox picScores
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1500
Left = 3000
ScaleHeight = 1470
ScaleWidth = 5970
TabIndex = 7
Top = 3000
Visible = 0 'False
Width = 6000
End
Begin VB.CommandButton cmdTopScores
Caption = "Top Scores"
Height = 450
Left = 6000
TabIndex = 6
Top = 7725
Width = 1500
End
Begin VB.PictureBox picHelp
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "Courier New"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 6600
Left = 3000
ScaleHeight = 6570
ScaleWidth = 5970
TabIndex = 5
Top = 150
Visible = 0 'False
Width = 6000
End
Begin VB.CommandButton cmdHelp
Caption = "How to Play"
Height = 450
Left = 4500
TabIndex = 4
Top = 7725
Width = 1500
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Height = 450
Left = 4500
TabIndex = 3
Top = 7200
Width = 3000
End
Begin VB.Timer tmrTimer
Enabled = 0 'False
Left = 11520
Top = 8520
End
Begin VB.Image imgRobot
Height = 480
Index = 1
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRobot
Height = 480
Index = 0
Left = 480
Top = 8520
Width = 480
End
Begin VB.Label lblTimer
Alignment = 2 'Center
Caption = "Timer: 00:00:00"
Height = 360
Left = 9120
TabIndex = 2
Top = 8640
Width = 2880
End
Begin VB.Label lblLevelName
Alignment = 2 'Center
Height = 360
Left = 2880
TabIndex = 1
Top = 8640
Width = 6240
End
Begin VB.Image imgPlayer
Height = 480
Left = 0
Top = 8520
Width = 480
End
Begin VB.Label lblRetries
Alignment = 2 'Center
Caption = "Retries: ?"
Height = 360
Left = 0
TabIndex = 0
Top = 8640
Width = 2880
End
Begin VB.Image imgRegion
Height = 480
Index = 449
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 448
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 447
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 446
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 445
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 444
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 443
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 442
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 441
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 440
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 439
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 438
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 437
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 436
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 435
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 434
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 433
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 432
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 431
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 430
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 429
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 428
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 427
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 426
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 425
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 424
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 423
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 422
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 421
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 420
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 419
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 418
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 417
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 416
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 415
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 414
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 413
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 412
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 411
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 410
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 409
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 408
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 407
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 406
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 405
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 404
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 403
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 402
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 401
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 400
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 399
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 398
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 397
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 396
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 395
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 394
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 393
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 392
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 391
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 390
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 389
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 388
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 387
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 386
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 385
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 384
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 383
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 382
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 381
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 380
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 379
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 378
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 377
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 376
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 375
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 374
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 373
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 372
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 371
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 370
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 369
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 368
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 367
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 366
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 365
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 364
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 363
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 362
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 361
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 360
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 359
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 358
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 357
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 356
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 355
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 354
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 353
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 352
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 351
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 350
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 349
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 348
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 347
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 346
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 345
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 344
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 343
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 342
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 341
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 340
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 339
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 338
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 337
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 336
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 335
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 334
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 333
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 332
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 331
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 330
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 329
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 328
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 327
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 326
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 325
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 324
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 323
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 322
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 321
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 320
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 319
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 318
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 317
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 316
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 315
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 314
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 313
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 312
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 311
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 310
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 309
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 308
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 307
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 306
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 305
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 304
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 303
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 302
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 301
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 300
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 299
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 298
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 297
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 296
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 295
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 294
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 293
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 292
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 291
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 290
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 289
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 288
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 287
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 286
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 285
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 284
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 283
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 282
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 281
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 280
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 279
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 278
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 277
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 276
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 275
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 274
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 273
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 272
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 271
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 270
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 269
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 268
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 267
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 266
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 265
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 264
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 263
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 262
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 261
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 260
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 259
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 258
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 257
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 256
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 255
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 254
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 253
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 252
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 251
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 250
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 249
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 248
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 247
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 246
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 245
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 244
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 243
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 242
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 241
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 240
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 239
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 238
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 237
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 236
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 235
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 234
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 233
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 232
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 231
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 230
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 229
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 228
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 227
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 226
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 225
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 224
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 223
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 222
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 221
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 220
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 219
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 218
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 217
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 216
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 215
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 214
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 213
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 212
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 211
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 210
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 209
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 208
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 207
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 206
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 205
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 204
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 203
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 202
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 201
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 200
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 199
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 198
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 197
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 196
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 195
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 194
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 193
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 192
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 191
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 190
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 189
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 188
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 187
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 186
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 185
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 184
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 183
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 182
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 181
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 180
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 179
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 178
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 177
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 176
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 175
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 174
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 173
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 172
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 171
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 170
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 169
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 168
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 167
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 166
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 165
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 164
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 163
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 162
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 161
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 160
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 159
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 158
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 157
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 156
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 155
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 154
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 153
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 152
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 151
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 150
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 149
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 148
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 147
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 146
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 145
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 144
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 143
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 142
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 141
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 140
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 139
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 138
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 137
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 136
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 135
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 134
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 133
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 132
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 131
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 130
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 129
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 128
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 127
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 126
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 125
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 124
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 123
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 122
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 121
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 120
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 119
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 118
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 117
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 116
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 115
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 114
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 113
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 112
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 111
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 110
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 109
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 108
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 107
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 106
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 105
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 104
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 103
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 102
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 101
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 100
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 99
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 98
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 97
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 96
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 95
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 94
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 93
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 92
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 91
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 90
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 89
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 88
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 87
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 86
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 85
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 84
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 83
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 82
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 81
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 80
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 79
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 78
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 77
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 76
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 75
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 74
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 73
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 72
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 71
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 70
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 69
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 68
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 67
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 66
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 65
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 64
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 63
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 62
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 61
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 60
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 59
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 58
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 57
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 56
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 55
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 54
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 53
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 52
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 51
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 50
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 49
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 48
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 47
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 46
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 45
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 44
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 43
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 42
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 41
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 40
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 39
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 38
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 37
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 36
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 35
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 34
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 33
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 32
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 31
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 30
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 29
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 28
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 27
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 26
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 25
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 24
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 23
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 22
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 21
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 20
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 19
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 18
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 17
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 16
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 15
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 14
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 13
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 12
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 11
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 10
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 9
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 8
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 7
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 6
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 5
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 4
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 3
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 2
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 1
Left = 0
Top = 0
Width = 480
End
Begin VB.Image imgRegion
Height = 480
Index = 0
Left = 0
Top = 0
Width = 480
End
End
Attribute VB_Name = "frmGravity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdHelp_Click()
Dim HelpLine As String
If picHelp.Visible = False Then
picScores.Visible = False
picHelp.Visible = True
picHelp.Cls
Open "Help.txt" For Input As #1
Do While Not EOF(1)
Input #1, HelpLine
picHelp.Print HelpLine
Loop
Close #1
Else
picHelp.Visible = False
End If
End Sub
Private Sub cmdStart_Click()
PlayerName = UCase(txtPlayerName.Text)
If Not PlayerName = "" Then
'Sets the timer away and hides all title screen elements.
tmrTimer.Enabled = True
picHelp.Visible = False
picScores.Visible = False
cmdHelp.Visible = False
cmdTopScores.Visible = False
txtPlayerName.Visible = False
cmdStart.Visible = False
'Loads the first level.
Call ResetClock
Call LoadLevel("Lab")
'Resets the number of lives and passes it to the retries label.
PlayerRetries = 3
lblRetries.Caption = "Retries: " & PlayerRetries
End If
End Sub
Private Sub cmdTopScores_Click()
Dim TopName As String
Dim TopTime As String
Dim TopMinute, TopSecond, TopMillisecond As Integer
If picScores.Visible = False Then
picHelp.Visible = False
picScores.Visible = True
picScores.Cls
picScores.Print "===THE FASTEST TIMES==="
picScores.Print ""
Open "Scores.txt" For Input As #1
Do While Not EOF(1)
Input #1, TopName, TopMinute, TopSecond, TopMillisecond
TopTime = ""
If TopMinute < 10 Then
TopTime = TopTime & "0" & TopMinute & ":"
Else
TopTime = TopTime & TopMinute & ":"
End If
If TopSecond < 10 Then
TopTime = TopTime & "0" & TopSecond & ":"
Else
TopTime = TopTime & TopSecond & ":"
End If
If TopMillisecond < 10 Then
TopTime = TopTime & "0" & TopMillisecond
Else
TopTime = TopTime & TopMillisecond
End If
picScores.Print TopName, TopTime
Loop
Close #1
Else
picScores.Visible = False
End If
End Sub
Private Sub Form_Load()
'frmDebug.Show
'Stores the necessary file names for each Character's Animation.
For GravDir = 0 To 3
'Player's idle stance.
PlayerIdle(GravDir) = "Sprites/Character_Idle_" & GravDir & ".gif"
'Player's walking animation.
For PlayerWalkFrame = 0 To 5
PlayerWalk(GravDir, PlayerWalkFrame) = "Sprites/Character_Walk_" & GravDir & "_" & PlayerWalkFrame & ".gif"
Next PlayerWalkFrame
'Player's other animations.
For PlayerOtherFrame = 0 To 1
PlayerShock(GravDir, PlayerOtherFrame) = "Sprites/Character_Shock_" & GravDir & "_" & PlayerOtherFrame & ".gif"
PlayerDazed(GravDir, PlayerOtherFrame) = "Sprites/Character_Dazed_" & GravDir & "_" & PlayerOtherFrame & ".gif"
Next PlayerOtherFrame
'Robot animations.
For RobotFrame = 0 To 3
For Robot = 0 To 1
RobotWalk(Robot, GravDir, RobotFrame) = "Sprites/Bot_" & Robot & "_" & GravDir & "_" & RobotFrame & ".gif"
Next Robot
Next RobotFrame
Next GravDir
'Store the file names of the level tile images.
For Tile = 0 To 15
TileTable(Tile) = "Tiles/Tile_" & Tile & ".gif"
Next Tile
ShockTile = "Tiles/Tile_Shock.gif"
StartTile = "Tiles/Tile_Start.gif"
FinishTile = "Tiles/Tile_Finish.gif"
'Set the level number to zero and open the map file with its name corresponding to that number.
Level = 0
'Load the title screen.
Call LoadLevel("Title")
'Show the start button and make sure the timer is disabled.
cmdStart.Visible = True
cmdHelp.Visible = True
cmdTopScores.Visible = True
txtPlayerName.Visible = True
tmrTimer.Enabled = False
'Set the timer's interval to limit the game to 20 frames per second.
tmrTimer.Interval = 1000 / 20
End Sub
Private Sub tmrTimer_Timer()
'If the player's state is normal then...
If PlayerState = 0 Then
'Move the player first.
Call MovePlayer
'Calculates the player's falling speed.
TickCount = TickCount + 1
PlayerFallSpeed = IncreaseVelocity(0, 10, TickCount, 0.4)
'Limit the player's maximum fall speed.
If PlayerFallSpeed > 30 Then
PlayerFallSpeed = 30
TickCount = TickCount - 1
End If
'Drop the player (assuming there is no solid ground at their feet) and move the robots.
Call DropPlayer
Call MoveBot
'Check to see if any of the robots are in contact with the player.
Call CheckRobotContact
'Reposition the player's form object according to the player's new position.
imgPlayer.Left = PlayerPos(0) - imgPlayer.Width / 2
imgPlayer.Top = PlayerPos(1) - imgPlayer.Height / 2
'Repostition the robots' form objects according to their new positions.
For a = 0 To 1
imgRobot(a).Left = RobotPos(a, 0) - imgRobot(a).Width / 2
imgRobot(a).Top = RobotPos(a, 1) - imgRobot(a).Height / 2
Next a
Call IncreaseClock
'If the player has reached the exit...
ElseIf PlayerState = 1 Then
'Increase the success/fail report timer and set the level name label to report the player's success.
ReportTimer = ReportTimer + 1
lblLevelName.Caption = "Level Complete!"
'After a few seconds increase the level number.
If ReportTimer >= 90 Then
Level = Level + 1
'If the level number is that of the victory screen (itself a level map), return to the title screen.
If Level >= 100 Then
Call Form_Load
'If the level number exceeds the last level, then load the victory screen.
ElseIf Level >= 4 Then
Level = 101
Call LoadLevel("Win")
PlayerStates.WinLevel
Call WriteScore
'Otherwise just load the next level.
Else
Call LoadLevel("Lab")
End If
End If
'If the player failed...
ElseIf PlayerState >= 2 Then
'Increase the success/fail report timer.
ReportTimer = ReportTimer + 1
'Animate the player's current state.
PlayerAnim = PlayerAnim + 1
If PlayerAnim > 1 Then
PlayerAnim = 0
End If
'Set the level name caption and player animation according to whether they have been dazed (from falls) or shocked.
If PlayerState = 2 Then
lblLevelName.Caption = "Oof!"
imgPlayer.Picture = LoadPicture(PlayerDazed(PlayerGravityDir, PlayerAnim))
Else
lblLevelName.Caption = "Don't tase me, Robro!"
imgPlayer.Picture = LoadPicture(PlayerShock(PlayerGravityDir, PlayerAnim))
End If
'After a few seconds, if the player still has lives, deduct one and reload the level.
'Otherwise, return to the title screen. The game is over.
If ReportTimer >= 90 Then
If PlayerRetries > 0 Then
PlayerRetries = PlayerRetries - 1
lblRetries.Caption = "Retries: " & PlayerRetries
Call LoadLevel("Lab")
Else
Call Form_Load
End If
End If
End If
End Sub
'Sets the index of KeyIsDown corresponding to a key to True if that key is being pressed.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
KeyIsDown(KeyCode) = True
End Sub
'Sets the index of KeyIsDown corresponding to a key to False if that key has been released.
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
KeyIsDown(KeyCode) = False
End Sub