It obfuscated and the data is secured (no valuable addys are showed, only ASM instructions), is just showing you how to create a similar D3D menu with visual basic.
Code:
'VA: 402EA4
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'VA: 402E58
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'VA: 402E14
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'VA: 402DD0
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'VA: 402D84
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
'VA: 402D20
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
'VA: 402C60
Private Declare Sub SetLayeredWindowAttributes Lib "user32" ()
'VA: 402C0C
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'VA: 402BC4
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'VA: 402B7C
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'VA: 402B34
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Jump_Timer() '40B4E0
loc_0040B502: var_8 = &H401178
loc_0040B557: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B598: Proc_00413BF0(var_18 + 00000012h, "", "Metal Assault")
loc_0040B5B3: GoTo loc_0040B5C8
loc_0040B5C7: Exit Sub
loc_0040B5C8: Exit Sub
loc_0040B5E5: Exit Sub
End Sub
Private Sub Timer5_Timer() '410D00
loc_00410D22: var_8 = &H4012E8
loc_00410D53: GetAsyncKeyState(00000028h)
loc_00410D5A: GetLastError
loc_00410DDD: setz bl
loc_00410DE0: neg ebx
loc_00410DE9: setz dl
loc_00410DEC: neg edx
loc_00410DEE: ebx = ebx And edx
loc_00410DFB: setz al
loc_00410E02: neg eax
loc_00410E07: ebx = ebx And edx And eax
loc_00410E15: If ebx And edx And eax = 0 Then GoTo loc_00410F77
loc_00410E35: l5.ForeColor = "MZ"
loc_00410E70: Label5.ForeColor = "MZ"
loc_00410EAB: l6.Forecolor = 000000FFh
loc_00410EE6: Label8.Forecolor = 000000FFh
loc_00410F1E: Timer6.Enabled = FFFFFFFFh
loc_00410F56: Timer5.Enabled = 00000000h
loc_00410F79: GetAsyncKeyState(00000027h)
loc_00410F80: GetLastError
loc_00410FFD: setz bl
loc_00411000: neg ebx
loc_00411009: setz cl
loc_0041100C: neg ecx
loc_0041100E: ebx = ebx And ecx
loc_0041101A: setz dl
loc_00411021: neg edx
loc_00411026: ebx = ebx And ecx And edx
loc_00411034: If ebx And ecx And edx = 0 Then GoTo loc_004110E5
loc_00411054: Label5.Caption = "[ON]"
loc_0041108C: V.Enabled = FFFFFFFFh
loc_004110C4: v2.Enabled = 00000000h
loc_004110E7: GetAsyncKeyState(00000025h)
loc_004110EE: GetLastError
loc_00411113: var_18 = Label5.Caption
loc_0041113F: neg ebx
loc_00411141: sbb ebx, ebx
loc_00411145: ebx = (var_18 = "[ON]") + 1
loc_00411146: neg ebx
loc_00411151: setz dl
loc_00411154: neg edx
loc_00411156: ebx = (var_18 = "[ON]") + 1 And edx
loc_0041116A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0041121B
loc_0041118A: Label5.Caption = "[OFF]"
loc_004111C2: V.Enabled = 00000000h
loc_004111FA: v2.Enabled = FFFFFFFFh
loc_0041121D: GetAsyncKeyState(00000026h)
loc_00411224: GetLastError
loc_004112A1: setz bl
loc_004112A4: neg ebx
loc_004112AD: setz cl
loc_004112B0: neg ecx
loc_004112B2: ebx = ebx And ecx
loc_004112BE: setz dl
loc_004112C5: neg edx
loc_004112CA: ebx = ebx And ecx And edx
loc_004112D8: If ebx And ecx And edx = 0 Then GoTo loc_00411438
loc_004112F8: l5.ForeColor = "MZ"
loc_00411333: Label5.ForeColor = "MZ"
loc_0041136E: l4.Forecolor = 000000FFh
loc_004113A9: Label4.Forecolor = 000000FFh
loc_004113E1: Timer4.Enabled = FFFFFFFFh
loc_0041141B: Timer5.Enabled = 00000000h
loc_00411444: GoTo loc_00411463
loc_00411462: Exit Sub
loc_00411463: Exit Sub
End Sub
Private Sub Timer6_Timer() '411490
loc_004114B2: var_8 = &H4012F8
loc_004114E3: GetAsyncKeyState(00000028h)
loc_004114EA: GetLastError
loc_0041156D: setz bl
loc_00411570: neg ebx
loc_00411579: setz dl
loc_0041157C: neg edx
loc_0041157E: ebx = ebx And edx
loc_0041158B: setz al
loc_00411592: neg eax
loc_00411597: ebx = ebx And edx And eax
loc_004115A5: If ebx And edx And eax = 0 Then GoTo loc_00411707
loc_004115C5: l6.ForeColor = "MZ"
loc_00411600: Label8.ForeColor = "MZ"
loc_0041163B: l7.Forecolor = 000000FFh
loc_00411676: Label10.Forecolor = 000000FFh
loc_004116AE: Timer7.Enabled = FFFFFFFFh
loc_004116E6: Timer6.Enabled = 00000000h
loc_00411709: GetAsyncKeyState(00000027h)
loc_00411710: GetLastError
loc_0041178D: setz bl
loc_00411790: neg ebx
loc_00411799: setz cl
loc_0041179C: neg ecx
loc_0041179E: ebx = ebx And ecx
loc_004117AA: setz dl
loc_004117B1: neg edx
loc_004117B6: ebx = ebx And ecx And edx
loc_004117C4: If ebx And ecx And edx = 0 Then GoTo loc_00411839
loc_004117E0: Label8.Caption = "[ON]"
loc_00411818: GM.Enabled = FFFFFFFFh
loc_0041183B: GetAsyncKeyState(00000025h)
loc_00411842: GetLastError
loc_00411867: var_18 = Label8.Caption
loc_00411893: neg ebx
loc_00411895: sbb ebx, ebx
loc_00411899: ebx = (var_18 = "[ON]") + 1
loc_0041189A: neg ebx
loc_004118A5: setz dl
loc_004118A8: neg edx
loc_004118AA: ebx = (var_18 = "[ON]") + 1 And edx
loc_004118BE: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_00411933
loc_004118DA: Label8.Caption = "[OFF]"
loc_00411912: GM.Enabled = 00000000h
loc_00411935: GetAsyncKeyState(00000026h)
loc_0041193C: GetLastError
loc_004119B9: setz bl
loc_004119BC: neg ebx
loc_004119C5: setz cl
loc_004119C8: neg ecx
loc_004119CA: ebx = ebx And ecx
loc_004119D6: setz dl
loc_004119DD: neg edx
loc_004119E2: ebx = ebx And ecx And edx
loc_004119F0: If ebx And ecx And edx = 0 Then GoTo loc_00411B50
loc_00411A10: l6.ForeColor = "MZ"
loc_00411A4B: Label8.ForeColor = "MZ"
loc_00411A86: l5.Forecolor = 000000FFh
loc_00411AC1: Label5.Forecolor = 000000FFh
loc_00411AF9: Timer5.Enabled = FFFFFFFFh
loc_00411B33: Timer6.Enabled = 00000000h
loc_00411B5C: GoTo loc_00411B7B
loc_00411B7A: Exit Sub
loc_00411B7B: Exit Sub
End Sub
Private Sub v2_Timer() '40EC40
loc_0040EC62: var_8 = &H401268
loc_0040ECB7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040ECDB: var_34 = &H83
loc_0040ECFC: Proc_00413BF0(var_1C + 00000024h + 00000024h, "", "Metal Assault")
loc_0040ED17: GoTo loc_0040ED2C
loc_0040ED2B: Exit Sub
loc_0040ED2C: Exit Sub
loc_0040ED49: Exit Sub
End Sub
Private Sub Timer7_Timer() '411BA0
loc_00411BC2: var_8 = &H401308
loc_00411BF3: GetAsyncKeyState(00000028h)
loc_00411BFA: GetLastError
loc_00411C7D: setz bl
loc_00411C80: neg ebx
loc_00411C89: setz dl
loc_00411C8C: neg edx
loc_00411C8E: ebx = ebx And edx
loc_00411C9B: setz al
loc_00411CA2: neg eax
loc_00411CA7: ebx = ebx And edx And eax
loc_00411CB5: If ebx And edx And eax = 0 Then GoTo loc_00411E17
loc_00411CD5: l7.ForeColor = "MZ"
loc_00411D10: Label10.ForeColor = "MZ"
loc_00411D4B: l8.Forecolor = 000000FFh
loc_00411D86: Label12.Forecolor = 000000FFh
loc_00411DBE: Timer8.Enabled = FFFFFFFFh
loc_00411DF6: Timer7.Enabled = 00000000h
loc_00411E19: GetAsyncKeyState(00000027h)
loc_00411E20: GetLastError
loc_00411E9D: setz bl
loc_00411EA0: neg ebx
loc_00411EA9: setz cl
loc_00411EAC: neg ecx
loc_00411EAE: ebx = ebx And ecx
loc_00411EBA: setz dl
loc_00411EC1: neg edx
loc_00411EC6: ebx = ebx And ecx And edx
loc_00411ED4: If ebx And ecx And edx = 0 Then GoTo loc_00411F49
loc_00411EF0: Label10.Caption = "[ON]"
loc_00411F28: OH.Enabled = FFFFFFFFh
loc_00411F4B: GetAsyncKeyState(00000025h)
loc_00411F52: GetLastError
loc_00411F77: var_18 = Label10.Caption
loc_00411FA3: neg ebx
loc_00411FA5: sbb ebx, ebx
loc_00411FA9: ebx = (var_18 = "[ON]") + 1
loc_00411FAA: neg ebx
loc_00411FB5: setz dl
loc_00411FB8: neg edx
loc_00411FBA: ebx = (var_18 = "[ON]") + 1 And edx
loc_00411FCE: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_00412043
loc_00411FEA: Label10.Caption = "[OFF]"
loc_00412022: OH.Enabled = 00000000h
loc_00412045: GetAsyncKeyState(00000026h)
loc_0041204C: GetLastError
loc_004120C9: setz bl
loc_004120CC: neg ebx
loc_004120D5: setz cl
loc_004120D8: neg ecx
loc_004120DA: ebx = ebx And ecx
loc_004120E6: setz dl
loc_004120ED: neg edx
loc_004120F2: ebx = ebx And ecx And edx
loc_00412100: If ebx And ecx And edx = 0 Then GoTo loc_00412260
loc_00412120: l7.ForeColor = "MZ"
loc_0041215B: Label10.ForeColor = "MZ"
loc_00412196: l6.Forecolor = 000000FFh
loc_004121D1: Label8.Forecolor = 000000FFh
loc_00412209: Timer6.Enabled = FFFFFFFFh
loc_00412243: Timer7.Enabled = 00000000h
loc_0041226C: GoTo loc_0041228B
loc_0041228A: Exit Sub
loc_0041228B: Exit Sub
End Sub
Private Sub Timer8_Timer() '4122B0
loc_004122D2: var_8 = &H401318
loc_00412303: GetAsyncKeyState(00000028h)
loc_0041230A: GetLastError
loc_0041238D: setz bl
loc_00412390: neg ebx
loc_00412399: setz dl
loc_0041239C: neg edx
loc_0041239E: ebx = ebx And edx
loc_004123AB: setz al
loc_004123B2: neg eax
loc_004123B7: ebx = ebx And edx And eax
loc_004123C5: If ebx And edx And eax = 0 Then GoTo loc_00412527
loc_004123E5: l8.ForeColor = "MZ"
loc_00412420: Label12.ForeColor = "MZ"
loc_0041245B: l9.Forecolor = 000000FFh
loc_00412496: Label14.Forecolor = 000000FFh
loc_004124CE: Timer9.Enabled = FFFFFFFFh
loc_00412506: Timer8.Enabled = 00000000h
loc_00412529: GetAsyncKeyState(00000027h)
loc_00412530: GetLastError
loc_004125AD: setz bl
loc_004125B0: neg ebx
loc_004125B9: setz cl
loc_004125BC: neg ecx
loc_004125BE: ebx = ebx And ecx
loc_004125CA: setz dl
loc_004125D1: neg edx
loc_004125D6: ebx = ebx And ecx And edx
loc_004125E4: If ebx And ecx And edx = 0 Then GoTo loc_00412695
loc_00412604: Label12.Caption = "[ON]"
loc_0041263C: Reload1.Enabled = FFFFFFFFh
loc_00412674: Reload2.Enabled = FFFFFFFFh
loc_00412697: GetAsyncKeyState(00000025h)
loc_0041269E: GetLastError
loc_004126C3: var_18 = Label12.Caption
loc_004126EF: neg ebx
loc_004126F1: sbb ebx, ebx
loc_004126F5: ebx = (var_18 = "[ON]") + 1
loc_004126F6: neg ebx
loc_00412701: setz dl
loc_00412704: neg edx
loc_00412706: ebx = (var_18 = "[ON]") + 1 And edx
loc_0041271A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_004127CB
loc_0041273A: Label12.Caption = "[OFF]"
loc_00412772: Reload1.Enabled = 00000000h
loc_004127AA: Reload2.Enabled = 00000000h
loc_004127CD: GetAsyncKeyState(00000026h)
loc_004127D4: GetLastError
loc_00412851: setz bl
loc_00412854: neg ebx
loc_0041285D: setz cl
loc_00412860: neg ecx
loc_00412862: ebx = ebx And ecx
loc_0041286E: setz dl
loc_00412875: neg edx
loc_0041287A: ebx = ebx And ecx And edx
loc_00412888: If ebx And ecx And edx = 0 Then GoTo loc_004129E8
loc_004128A8: l8.ForeColor = "MZ"
loc_004128E3: Label12.ForeColor = "MZ"
loc_0041291E: l7.Forecolor = 000000FFh
loc_00412959: Label10.Forecolor = 000000FFh
loc_00412991: Timer7.Enabled = FFFFFFFFh
loc_004129CB: Timer8.Enabled = 00000000h
loc_004129F4: GoTo loc_00412A13
loc_00412A12: Exit Sub
loc_00412A13: Exit Sub
End Sub
Private Sub Reload1_Timer() '40B710
loc_0040B732: var_8 = &H401198
loc_0040B787: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B7CB: Proc_00413BF0(var_1C + 00000F74h + 00000F74h, "", "Metal Assault")
loc_0040B7E6: GoTo loc_0040B7FB
loc_0040B7FA: Exit Sub
loc_0040B7FB: Exit Sub
loc_0040B818: Exit Sub
End Sub
Private Sub Reload2_Timer() '40B830
loc_0040B852: var_8 = &H4011A8
loc_0040B8A7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B8EB: Proc_00413BF0(var_1C + 00020C30h + 00020C30h, "", "Metal Assault")
loc_0040B906: GoTo loc_0040B91B
loc_0040B91A: Exit Sub
loc_0040B91B: Exit Sub
loc_0040B938: Exit Sub
End Sub
Private Sub Speed_Timer() '40BB90
loc_0040BBB2: var_8 = &H4011D8
loc_0040BC07: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040BC2E: var_34 = "MZ"
loc_0040BC4F: Proc_00413BF0(var_1C + 0001B7ECh + 0001B7ECh, "", "Metal Assault")
loc_0040BC6A: GoTo loc_0040BC7F
loc_0040BC7E: Exit Sub
loc_0040BC7F: Exit Sub
loc_0040BC9C: Exit Sub
End Sub
Private Sub Speed1_Timer() '40BCB0
loc_0040BCD2: var_8 = &H4011E8
loc_0040BD27: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040BD6B: Proc_00413BF0(var_1C + 0001B7ECh + 0001B7ECh, "", "Metal Assault")
loc_0040BD86: GoTo loc_0040BD9B
loc_0040BD9A: Exit Sub
loc_0040BD9B: Exit Sub
loc_0040BDB8: Exit Sub
End Sub
Private Sub SN_Timer() '40B950
loc_0040B972: var_8 = &H4011B8
loc_0040B9C7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B9EE: var_34 = 2
loc_0040BA0F: Proc_00413BF0(var_18 + 000198D0h, "", "Metal Assault")
loc_0040BA2A: GoTo loc_0040BA3F
loc_0040BA3E: Exit Sub
loc_0040BA3F: Exit Sub
loc_0040BA5C: Exit Sub
End Sub
Private Sub c2_Timer() '40A960
loc_0040A982: var_8 = &H4010E0
loc_0040A9A9: GetAsyncKeyState(00000078h)
loc_0040A9B0: GetLastError
loc_0040A9C1: If GetAsyncKeyState(00000078h) <> -32767 Then GoTo loc_0040AAAB
loc_0040A9E4: SN.Enabled = 00000000h
loc_0040AA1C: SN1.Enabled = FFFFFFFFh
loc_0040AA54: C1.Enabled = FFFFFFFFh
loc_0040AA8E: C2.Enabled = 00000000h
loc_0040AAB7: GoTo loc_0040AAC3
loc_0040AAC2: Exit Sub
loc_0040AAC3: Exit Sub
End Sub
Private Sub c1_Timer() '40A7D0
loc_0040A7F2: var_8 = &H4010D0
loc_0040A819: GetAsyncKeyState(00000078h)
loc_0040A820: GetLastError
loc_0040A831: If GetAsyncKeyState(00000078h) <> -32767 Then GoTo loc_0040A91B
loc_0040A854: SN.Enabled = FFFFFFFFh
loc_0040A88C: SN1.Enabled = 00000000h
loc_0040A8C4: C2.Enabled = FFFFFFFFh
loc_0040A8FE: C1.Enabled = 00000000h
loc_0040A927: GoTo loc_0040A933
loc_0040A932: Exit Sub
loc_0040A933: Exit Sub
End Sub
Private Sub Fly_Timer() '40AC80
loc_0040ACA2: var_8 = &H401108
loc_0040ACF7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040AD1E: var_34 = 1
loc_0040AD3F: Proc_00413BF0(var_1C + 00000F64h + 00000F64h, "", "Metal Assault")
loc_0040AD5A: GoTo loc_0040AD6F
loc_0040AD6E: Exit Sub
loc_0040AD6F: Exit Sub
loc_0040AD8C: Exit Sub
End Sub
Private Sub GM_Timer() '40ADA0
loc_0040ADC2: var_8 = &H401118
loc_0040AE17: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040AE3E: var_34 = 1
loc_0040AE5F: Proc_00413BF0(var_18 + 0001B835h, "", "Metal Assault")
loc_0040AE7A: GoTo loc_0040AE8F
loc_0040AE8E: Exit Sub
loc_0040AE8F: Exit Sub
loc_0040AEAC: Exit Sub
End Sub
Private Sub HB_Timer() '40AEC0
loc_0040AEE2: var_8 = &H401128
loc_0040AF37: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040AF5B: var_34 = 1
loc_0040AF7C: Proc_00413BF0(var_1C + 00000020h + 00000020h, "", "Metal Assault")
loc_0040AF97: GoTo loc_0040AFAC
loc_0040AFAB: Exit Sub
loc_0040AFAC: Exit Sub
loc_0040AFC9: Exit Sub
End Sub
Private Sub I_Timer() '40AFE0
loc_0040B002: var_8 = &H401138
loc_0040B057: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B07E: var_34 = 1
loc_0040B09F: Proc_00413BF0(var_18 + 0001B814h, "", "Metal Assault")
loc_0040B0BA: GoTo loc_0040B0CF
loc_0040B0CE: Exit Sub
loc_0040B0CF: Exit Sub
loc_0040B0EC: Exit Sub
End Sub
Private Sub Insert1_Timer() '40B380
loc_0040B3A2: var_8 = &H401168
loc_0040B3C2: var_18 = 0
loc_0040B3C9: GetAsyncKeyState(0000002Dh)
loc_0040B3D0: GetLastError
loc_0040B3E1: If GetAsyncKeyState(0000002Dh) <> -32767 Then GoTo loc_0040B49D
loc_0040B40B: red.Height = 00000000h
loc_0040B446: Insert.Enabled = FFFFFFFFh
loc_0040B480: Insert1.Enabled = 00000000h
loc_0040B4AA: GoTo loc_0040B4B6
loc_0040B4B5: Exit Sub
loc_0040B4B6: Exit Sub
End Sub
Private Sub Insert_Timer() '40B220
loc_0040B242: var_8 = &H401158
loc_0040B262: var_18 = 0
loc_0040B269: GetAsyncKeyState(0000002Dh)
loc_0040B270: GetLastError
loc_0040B281: If GetAsyncKeyState(0000002Dh) <> -32767 Then GoTo loc_0040B340
loc_0040B2AE: red.Height = "MZ"
loc_0040B2E9: Insert1.Enabled = FFFFFFFFh
loc_0040B323: Insert.Enabled = 00000000h
loc_0040B34D: GoTo loc_0040B359
loc_0040B358: Exit Sub
loc_0040B359: Exit Sub
End Sub
Private Sub OH_Timer() '40B5F0
loc_0040B612: var_8 = &H401188
loc_0040B667: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B68E: var_34 = 1
loc_0040B6AF: Proc_00413BF0(var_1C + 0001B839h + 0001B839h, "", "Metal Assault")
loc_0040B6CA: GoTo loc_0040B6DF
loc_0040B6DE: Exit Sub
loc_0040B6DF: Exit Sub
loc_0040B6FC: Exit Sub
End Sub
Private Sub SN1_Timer() '40BA70
loc_0040BA92: var_8 = &H4011C8
loc_0040BAE7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040BB2B: Proc_00413BF0(var_18 + 000198D0h, "", "Metal Assault")
loc_0040BB46: GoTo loc_0040BB5B
loc_0040BB5A: Exit Sub
loc_0040BB5B: Exit Sub
loc_0040BB78: Exit Sub
End Sub
Private Sub Timer11_Timer() '40C560
loc_0040C582: var_8 = &H401208
loc_0040C5B3: GetAsyncKeyState(00000028h)
loc_0040C5BA: GetLastError
loc_0040C63D: setz bl
loc_0040C640: neg ebx
loc_0040C649: setz dl
loc_0040C64C: neg edx
loc_0040C64E: ebx = ebx And edx
loc_0040C65B: setz al
loc_0040C662: neg eax
loc_0040C667: ebx = ebx And edx And eax
loc_0040C675: If ebx And edx And eax = 0 Then GoTo loc_0040C7D7
loc_0040C695: l12.ForeColor = "MZ"
loc_0040C6D0: Label11.ForeColor = "MZ"
loc_0040C70B: l15.Forecolor = 000000FFh
loc_0040C746: Label15.Forecolor = 000000FFh
loc_0040C77E: Timer12.Enabled = FFFFFFFFh
loc_0040C7B6: Timer11.Enabled = 00000000h
loc_0040C7D9: GetAsyncKeyState(00000027h)
loc_0040C7E0: GetLastError
loc_0040C85D: setz bl
loc_0040C860: neg ebx
loc_0040C869: setz cl
loc_0040C86C: neg ecx
loc_0040C86E: ebx = ebx And ecx
loc_0040C87A: setz dl
loc_0040C881: neg edx
loc_0040C886: ebx = ebx And ecx And edx
loc_0040C894: If ebx And ecx And edx = 0 Then GoTo loc_0040C945
loc_0040C8B4: Label11.Caption = "[ON]"
loc_0040C8EC: XSL.Enabled = FFFFFFFFh
loc_0040C924: YSL.Enabled = FFFFFFFFh
loc_0040C947: GetAsyncKeyState(00000025h)
loc_0040C94E: GetLastError
loc_0040C973: var_18 = Label11.Caption
loc_0040C99F: neg ebx
loc_0040C9A1: sbb ebx, ebx
loc_0040C9A5: ebx = (var_18 = "[ON]") + 1
loc_0040C9A6: neg ebx
loc_0040C9B1: setz dl
loc_0040C9B4: neg edx
loc_0040C9B6: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040C9CA: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040CA7B
loc_0040C9EA: Label11.Caption = "[OFF]"
loc_0040CA22: XSL.Enabled = 00000000h
loc_0040CA5A: YSL.Enabled = 00000000h
loc_0040CA7D: GetAsyncKeyState(00000026h)
loc_0040CA84: GetLastError
loc_0040CB01: setz bl
loc_0040CB04: neg ebx
loc_0040CB0D: setz cl
loc_0040CB10: neg ecx
loc_0040CB12: ebx = ebx And ecx
loc_0040CB1E: setz dl
loc_0040CB25: neg edx
loc_0040CB2A: ebx = ebx And ecx And edx
loc_0040CB38: If ebx And ecx And edx = 0 Then GoTo loc_0040CC98
loc_0040CB58: l12.ForeColor = "MZ"
loc_0040CB93: Label11.ForeColor = "MZ"
loc_0040CBCE: l11.Forecolor = 000000FFh
loc_0040CC09: Label13.Forecolor = 000000FFh
loc_0040CC41: Timer10.Enabled = FFFFFFFFh
loc_0040CC7B: Timer11.Enabled = 00000000h
loc_0040CCA4: GoTo loc_0040CCC3
loc_0040CCC2: Exit Sub
loc_0040CCC3: Exit Sub
End Sub
Private Sub Timer10_Timer() '40BDD0
loc_0040BDF2: var_8 = &H4011F8
loc_0040BE23: GetAsyncKeyState(00000028h)
loc_0040BE2A: GetLastError
loc_0040BEAD: setz bl
loc_0040BEB0: neg ebx
loc_0040BEB9: setz dl
loc_0040BEBC: neg edx
loc_0040BEBE: ebx = ebx And edx
loc_0040BECB: setz al
loc_0040BED2: neg eax
loc_0040BED7: ebx = ebx And edx And eax
loc_0040BEE5: If ebx And edx And eax = 0 Then GoTo loc_0040C047
loc_0040BF05: l11.ForeColor = "MZ"
loc_0040BF40: Label13.ForeColor = "MZ"
loc_0040BF7B: l12.Forecolor = 000000FFh
loc_0040BFB6: Label11.Forecolor = 000000FFh
loc_0040BFEE: Timer11.Enabled = FFFFFFFFh
loc_0040C026: Timer10.Enabled = 00000000h
loc_0040C049: GetAsyncKeyState(00000027h)
loc_0040C050: GetLastError
loc_0040C0CD: setz bl
loc_0040C0D0: neg ebx
loc_0040C0D9: setz cl
loc_0040C0DC: neg ecx
loc_0040C0DE: ebx = ebx And ecx
loc_0040C0EA: setz dl
loc_0040C0F1: neg edx
loc_0040C0F6: ebx = ebx And ecx And edx
loc_0040C104: If ebx And ecx And edx = 0 Then GoTo loc_0040C1B5
loc_0040C124: Label13.Caption = "[ON]"
loc_0040C15C: XMM.Enabled = FFFFFFFFh
loc_0040C194: YMM.Enabled = FFFFFFFFh
loc_0040C1B7: GetAsyncKeyState(00000025h)
loc_0040C1BE: GetLastError
loc_0040C1E3: var_18 = Label13.Caption
loc_0040C20F: neg ebx
loc_0040C211: sbb ebx, ebx
loc_0040C215: ebx = (var_18 = "[ON]") + 1
loc_0040C216: neg ebx
loc_0040C221: setz dl
loc_0040C224: neg edx
loc_0040C226: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040C23A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040C2EB
loc_0040C25A: Label13.Caption = "[OFF]"
loc_0040C292: XMM.Enabled = 00000000h
loc_0040C2CA: YMM.Enabled = 00000000h
loc_0040C2ED: GetAsyncKeyState(00000026h)
loc_0040C2F4: GetLastError
loc_0040C371: setz bl
loc_0040C374: neg ebx
loc_0040C37D: setz cl
loc_0040C380: neg ecx
loc_0040C382: ebx = ebx And ecx
loc_0040C38E: setz dl
loc_0040C395: neg edx
loc_0040C39A: ebx = ebx And ecx And edx
loc_0040C3A8: If ebx And ecx And edx = 0 Then GoTo loc_0040C508
loc_0040C3C8: l11.ForeColor = "MZ"
loc_0040C403: Label13.ForeColor = "MZ"
loc_0040C43E: l9.Forecolor = 000000FFh
loc_0040C479: Label14.Forecolor = 000000FFh
loc_0040C4B1: Timer9.Enabled = FFFFFFFFh
loc_0040C4EB: Timer10.Enabled = 00000000h
loc_0040C514: GoTo loc_0040C533
loc_0040C532: Exit Sub
loc_0040C533: Exit Sub
End Sub
Private Sub XMM_Timer() '40EE80
loc_0040EEA2: var_8 = &H401288
loc_0040EEF7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040EF1B: var_34 = "MZ"
loc_0040EF3C: Proc_00413BF0(var_1C + 00000014h + 00000014h, "", "Metal Assault")
loc_0040EF57: GoTo loc_0040EF6C
loc_0040EF6B: Exit Sub
loc_0040EF6C: Exit Sub
loc_0040EF89: Exit Sub
End Sub
Private Sub YMM_Timer() '4139B0
loc_004139D2: var_8 = &H4013A8
loc_00413A27: Proc_00413E10("", "Metal Assault", "MZ")
loc_00413A4B: var_34 = "MZ"
loc_00413A6C: Proc_00413BF0(var_18 + 00000018h, "", "Metal Assault")
loc_00413A87: GoTo loc_00413A9C
loc_00413A9B: Exit Sub
loc_00413A9C: Exit Sub
loc_00413AB9: Exit Sub
End Sub
Private Sub Exit_Timer() '40AAF0
loc_0040AB12: var_8 = &H4010F0
loc_0040AB37: GetAsyncKeyState(0000007Bh)
loc_0040AB3E: GetLastError
loc_0040AB4F: If GetAsyncKeyState(0000007Bh) <> -32767 Then GoTo loc_0040ABA5
loc_0040AB76: var_30 = &H41F490
loc_0040AB79: var_18 = IsSet(arg_8)
loc_0040AB84: Global.UnLoad var_18
loc_0040ABAD: GoTo loc_0040ABB9
loc_0040ABB8: Exit Sub
loc_0040ABB9: Exit Sub
End Sub
Private Sub Timer9_Timer() '412A40
loc_00412A62: var_8 = &H401328
loc_00412A93: GetAsyncKeyState(00000028h)
loc_00412A9A: GetLastError
loc_00412B1D: setz bl
loc_00412B20: neg ebx
loc_00412B29: setz dl
loc_00412B2C: neg edx
loc_00412B2E: ebx = ebx And edx
loc_00412B3B: setz al
loc_00412B42: neg eax
loc_00412B47: ebx = ebx And edx And eax
loc_00412B55: If ebx And edx And eax = 0 Then GoTo loc_00412CB7
loc_00412B75: l9.ForeColor = "MZ"
loc_00412BB0: Label14.ForeColor = "MZ"
loc_00412BEB: l11.Forecolor = 000000FFh
loc_00412C26: Label13.Forecolor = 000000FFh
loc_00412C5E: Timer10.Enabled = FFFFFFFFh
loc_00412C96: Timer9.Enabled = 00000000h
loc_00412CB9: GetAsyncKeyState(00000027h)
loc_00412CC0: GetLastError
loc_00412D3D: setz bl
loc_00412D40: neg ebx
loc_00412D49: setz cl
loc_00412D4C: neg ecx
loc_00412D4E: ebx = ebx And ecx
loc_00412D5A: setz dl
loc_00412D61: neg edx
loc_00412D66: ebx = ebx And ecx And edx
loc_00412D74: If ebx And ecx And edx = 0 Then GoTo loc_00412E25
loc_00412D94: Label14.Caption = "[ON]"
loc_00412DCC: Speed.Enabled = FFFFFFFFh
loc_00412E04: Speed1.Enabled = 00000000h
loc_00412E27: GetAsyncKeyState(00000025h)
loc_00412E2E: GetLastError
loc_00412E53: var_18 = Label14.Caption
loc_00412E7F: neg ebx
loc_00412E81: sbb ebx, ebx
loc_00412E85: ebx = (var_18 = "[ON]") + 1
loc_00412E86: neg ebx
loc_00412E91: setz dl
loc_00412E94: neg edx
loc_00412E96: ebx = (var_18 = "[ON]") + 1 And edx
loc_00412EAA: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_00412F5B
loc_00412ECA: Label14.Caption = "[OFF]"
loc_00412F02: Speed.Enabled = 00000000h
loc_00412F3A: Speed1.Enabled = FFFFFFFFh
loc_00412F5D: GetAsyncKeyState(00000026h)
loc_00412F64: GetLastError
loc_00412FE1: setz bl
loc_00412FE4: neg ebx
loc_00412FED: setz cl
loc_00412FF0: neg ecx
loc_00412FF2: ebx = ebx And ecx
loc_00412FFE: setz dl
loc_00413005: neg edx
loc_0041300A: ebx = ebx And ecx And edx
loc_00413018: If ebx And ecx And edx = 0 Then GoTo loc_00413178
loc_00413038: l9.ForeColor = "MZ"
loc_00413073: Label14.ForeColor = "MZ"
loc_004130AE: l8.Forecolor = 000000FFh
loc_004130E9: Label12.Forecolor = 000000FFh
loc_00413121: Timer8.Enabled = FFFFFFFFh
loc_0041315B: Timer9.Enabled = 00000000h
loc_00413184: GoTo loc_004131A3
loc_004131A2: Exit Sub
loc_004131A3: Exit Sub
End Sub
Private Sub Timer12_Timer() '40CCF0
loc_0040CD12: var_8 = &H401218
loc_0040CD43: GetAsyncKeyState(00000028h)
loc_0040CD4A: GetLastError
loc_0040CDCD: setz bl
loc_0040CDD0: neg ebx
loc_0040CDD9: setz dl
loc_0040CDDC: neg edx
loc_0040CDDE: ebx = ebx And edx
loc_0040CDEB: setz al
loc_0040CDF2: neg eax
loc_0040CDF7: ebx = ebx And edx And eax
loc_0040CE05: If ebx And edx And eax = 0 Then GoTo loc_0040CF67
loc_0040CE25: l15.ForeColor = "MZ"
loc_0040CE60: Label15.ForeColor = "MZ"
loc_0040CE9B: l16.Forecolor = 000000FFh
loc_0040CED6: Label17.Forecolor = 000000FFh
loc_0040CF0E: Timer13.Enabled = FFFFFFFFh
loc_0040CF46: Timer12.Enabled = 00000000h
loc_0040CF69: GetAsyncKeyState(00000027h)
loc_0040CF70: GetLastError
loc_0040CFED: setz bl
loc_0040CFF0: neg ebx
loc_0040CFF9: setz cl
loc_0040CFFC: neg ecx
loc_0040CFFE: ebx = ebx And ecx
loc_0040D00A: setz dl
loc_0040D011: neg edx
loc_0040D016: ebx = ebx And ecx And edx
loc_0040D024: If ebx And ecx And edx = 0 Then GoTo loc_0040D0D5
loc_0040D044: Label15.Caption = "[ON]"
loc_0040D07C: XDS.Enabled = FFFFFFFFh
loc_0040D0B4: YDS.Enabled = FFFFFFFFh
loc_0040D0D7: GetAsyncKeyState(00000025h)
loc_0040D0DE: GetLastError
loc_0040D103: var_18 = Label15.Caption
loc_0040D12F: neg ebx
loc_0040D131: sbb ebx, ebx
loc_0040D135: ebx = (var_18 = "[ON]") + 1
loc_0040D136: neg ebx
loc_0040D141: setz dl
loc_0040D144: neg edx
loc_0040D146: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040D15A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040D20B
loc_0040D17A: Label15.Caption = "[OFF]"
loc_0040D1B2: XDS.Enabled = 00000000h
loc_0040D1EA: YDS.Enabled = 00000000h
loc_0040D20D: GetAsyncKeyState(00000026h)
loc_0040D214: GetLastError
loc_0040D291: setz bl
loc_0040D294: neg ebx
loc_0040D29D: setz cl
loc_0040D2A0: neg ecx
loc_0040D2A2: ebx = ebx And ecx
loc_0040D2AE: setz dl
loc_0040D2B5: neg edx
loc_0040D2BA: ebx = ebx And ecx And edx
loc_0040D2C8: If ebx And ecx And edx = 0 Then GoTo loc_0040D428
loc_0040D2E8: l15.ForeColor = "MZ"
loc_0040D323: Label15.ForeColor = "MZ"
loc_0040D35E: l12.Forecolor = 000000FFh
loc_0040D399: Label11.Forecolor = 000000FFh
loc_0040D3D1: Timer11.Enabled = FFFFFFFFh
loc_0040D40B: Timer12.Enabled = 00000000h
loc_0040D434: GoTo loc_0040D453
loc_0040D452: Exit Sub
loc_0040D453: Exit Sub
End Sub
Private Sub XSL_Timer() '413410
loc_00413432: var_8 = &H401358
loc_00413487: Proc_00413E10("", "Metal Assault", "MZ")
loc_004134AB: var_34 = "MZ"
loc_004134CC: Proc_00413BF0(var_1C + 00000014h + 00000014h, "", "Metal Assault")
loc_004134E7: GoTo loc_004134FC
loc_004134FB: Exit Sub
loc_004134FC: Exit Sub
loc_00413519: Exit Sub
End Sub
Private Sub YSL_Timer() '413AD0
loc_00413AF2: var_8 = &H4013B8
loc_00413B47: Proc_00413E10("", "Metal Assault", "MZ")
loc_00413B6B: var_34 = "MZ"
loc_00413B8C: Proc_00413BF0(var_1C + 00000018h + 00000018h, "", "Metal Assault")
loc_00413BA7: GoTo loc_00413BBC
loc_00413BBB: Exit Sub
loc_00413BBC: Exit Sub
loc_00413BD9: Exit Sub
End Sub
Private Sub Timer13_Timer() '40D480
loc_0040D4A2: var_8 = &H401228
loc_0040D4D3: GetAsyncKeyState(00000028h)
loc_0040D4DA: GetLastError
loc_0040D55D: setz bl
loc_0040D560: neg ebx
loc_0040D569: setz dl
loc_0040D56C: neg edx
loc_0040D56E: ebx = ebx And edx
loc_0040D57B: setz al
loc_0040D582: neg eax
loc_0040D587: ebx = ebx And edx And eax
loc_0040D595: If ebx And edx And eax = 0 Then GoTo loc_0040D6F7
loc_0040D5B5: l16.ForeColor = "MZ"
loc_0040D5F0: Label17.ForeColor = "MZ"
loc_0040D62B: l17.Forecolor = 000000FFh
loc_0040D666: Label16.Forecolor = 000000FFh
loc_0040D69E: Timer14.Enabled = FFFFFFFFh
loc_0040D6D6: Timer13.Enabled = 00000000h
loc_0040D6F9: GetAsyncKeyState(00000027h)
loc_0040D700: GetLastError
loc_0040D77D: setz bl
loc_0040D780: neg ebx
loc_0040D789: setz cl
loc_0040D78C: neg ecx
loc_0040D78E: ebx = ebx And ecx
loc_0040D79A: setz dl
loc_0040D7A1: neg edx
loc_0040D7A6: ebx = ebx And ecx And edx
loc_0040D7B4: If ebx And ecx And edx = 0 Then GoTo loc_0040D865
loc_0040D7D4: Label17.Caption = "[ON]"
loc_0040D80C: XAS.Enabled = FFFFFFFFh
loc_0040D844: YAS.Enabled = FFFFFFFFh
loc_0040D867: GetAsyncKeyState(00000025h)
loc_0040D86E: GetLastError
loc_0040D893: var_18 = Label17.Caption
loc_0040D8BF: neg ebx
loc_0040D8C1: sbb ebx, ebx
loc_0040D8C5: ebx = (var_18 = "[ON]") + 1
loc_0040D8C6: neg ebx
loc_0040D8D1: setz dl
loc_0040D8D4: neg edx
loc_0040D8D6: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040D8EA: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040D99B
loc_0040D90A: Label17.Caption = "[OFF]"
loc_0040D942: XAS.Enabled = 00000000h
loc_0040D97A: YAS.Enabled = 00000000h
loc_0040D99D: GetAsyncKeyState(00000026h)
loc_0040D9A4: GetLastError
loc_0040DA21: setz bl
loc_0040DA24: neg ebx
loc_0040DA2D: setz cl
loc_0040DA30: neg ecx
loc_0040DA32: ebx = ebx And ecx
loc_0040DA3E: setz dl
loc_0040DA45: neg edx
loc_0040DA4A: ebx = ebx And ecx And edx
loc_0040DA58: If ebx And ecx And edx = 0 Then GoTo loc_0040DBB8
loc_0040DA78: l16.ForeColor = "MZ"
loc_0040DAB3: Label17.ForeColor = "MZ"
loc_0040DAEE: l15.Forecolor = 000000FFh
loc_0040DB29: Label15.Forecolor = 000000FFh
loc_0040DB61: Timer12.Enabled = FFFFFFFFh
loc_0040DB9B: Timer13.Enabled = 00000000h
loc_0040DBC4: GoTo loc_0040DBE3
loc_0040DBE2: Exit Sub
loc_0040DBE3: Exit Sub
End Sub
Private Sub XDS_Timer() '4132F0
loc_00413312: var_8 = &H401348
loc_00413367: Proc_00413E10("", "Metal Assault", "MZ")
loc_0041338B: var_34 = "MZ"
loc_004133AC: Proc_00413BF0(var_18 + 00000014h, "", "Metal Assault")
loc_004133C7: GoTo loc_004133DC
loc_004133DB: Exit Sub
loc_004133DC: Exit Sub
loc_004133F9: Exit Sub
End Sub
Private Sub YDS_Timer() '413890
loc_004138B2: var_8 = &H401398
loc_00413907: Proc_00413E10("", "Metal Assault", "MZ")
loc_0041392B: var_34 = "MZ"
loc_0041394C: Proc_00413BF0(var_1C + 00000018h + 00000018h, "", "Metal Assault")
loc_00413967: GoTo loc_0041397C
loc_0041397B: Exit Sub
loc_0041397C: Exit Sub
loc_00413999: Exit Sub
End Sub
Private Sub Timer14_Timer() '40DC10
loc_0040DC32: var_8 = &H401238
loc_0040DC63: GetAsyncKeyState(00000028h)
loc_0040DC6A: GetLastError
loc_0040DCED: setz bl
loc_0040DCF0: neg ebx
loc_0040DCF9: setz dl
loc_0040DCFC: neg edx
loc_0040DCFE: ebx = ebx And edx
loc_0040DD0B: setz al
loc_0040DD12: neg eax
loc_0040DD17: ebx = ebx And edx And eax
loc_0040DD25: If ebx And edx And eax = 0 Then GoTo loc_0040DE87
loc_0040DD45: l17.ForeColor = "MZ"
loc_0040DD80: Label16.ForeColor = "MZ"
loc_0040DDBB: l18.Forecolor = 000000FFh
loc_0040DDF6: Label18.Forecolor = 000000FFh
loc_0040DE2E: Timer15.Enabled = FFFFFFFFh
loc_0040DE66: Timer14.Enabled = 00000000h
loc_0040DE89: GetAsyncKeyState(00000027h)
loc_0040DE90: GetLastError
loc_0040DF0D: setz bl
loc_0040DF10: neg ebx
loc_0040DF19: setz cl
loc_0040DF1C: neg ecx
loc_0040DF1E: ebx = ebx And ecx
loc_0040DF2A: setz dl
loc_0040DF31: neg edx
loc_0040DF36: ebx = ebx And ecx And edx
loc_0040DF44: If ebx And ecx And edx = 0 Then GoTo loc_0040DFF5
loc_0040DF64: Label16.Caption = "[ON]"
loc_0040DF9C: XPO.Enabled = FFFFFFFFh
loc_0040DFD4: YPO.Enabled = FFFFFFFFh
loc_0040DFF7: GetAsyncKeyState(00000025h)
loc_0040DFFE: GetLastError
loc_0040E023: var_18 = Label16.Caption
loc_0040E04F: neg ebx
loc_0040E051: sbb ebx, ebx
loc_0040E055: ebx = (var_18 = "[ON]") + 1
loc_0040E056: neg ebx
loc_0040E061: setz dl
loc_0040E064: neg edx
loc_0040E066: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040E07A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040E12B
loc_0040E09A: Label16.Caption = "[OFF]"
loc_0040E0D2: XPO.Enabled = 00000000h
loc_0040E10A: YPO.Enabled = 00000000h
loc_0040E12D: GetAsyncKeyState(00000026h)
loc_0040E134: GetLastError
loc_0040E1B1: setz bl
loc_0040E1B4: neg ebx
loc_0040E1BD: setz cl
loc_0040E1C0: neg ecx
loc_0040E1C2: ebx = ebx And ecx
loc_0040E1CE: setz dl
loc_0040E1D5: neg edx
loc_0040E1DA: ebx = ebx And ecx And edx
loc_0040E1E8: If ebx And ecx And edx = 0 Then GoTo loc_0040E348
loc_0040E208: l17.ForeColor = "MZ"
loc_0040E243: Label16.ForeColor = "MZ"
loc_0040E27E: l16.Forecolor = 000000FFh
loc_0040E2B9: Label17.Forecolor = 000000FFh
loc_0040E2F1: Timer13.Enabled = FFFFFFFFh
loc_0040E32B: Timer14.Enabled = 00000000h
loc_0040E354: GoTo loc_0040E373
loc_0040E372: Exit Sub
loc_0040E373: Exit Sub
End Sub
Private Sub XAS_Timer() '4131D0
loc_004131F2: var_8 = &H401338
loc_00413247: Proc_00413E10("", "Metal Assault", "MZ")
loc_0041326B: var_34 = "MZ"
loc_0041328C: Proc_00413BF0(var_1C + 00000014h + 00000014h, "", "Metal Assault")
loc_004132A7: GoTo loc_004132BC
loc_004132BB: Exit Sub
loc_004132BC: Exit Sub
loc_004132D9: Exit Sub
End Sub
Private Sub YAS_Timer() '413530
loc_00413552: var_8 = &H401368
loc_004135A7: Proc_00413E10("", "Metal Assault", "MZ")
loc_004135CB: var_34 = "MZ"
loc_004135EC: Proc_00413BF0(var_1C + 00000018h + 00000018h, "", "Metal Assault")
loc_00413607: GoTo loc_0041361C
loc_0041361B: Exit Sub
loc_0041361C: Exit Sub
loc_00413639: Exit Sub
End Sub
Private Sub Form_Load() '40ABE0
loc_0040AC02: var_8 = &H401100
loc_0040AC2C: var_18 = red.hwnd
loc_0040AC50: SetWindowPos(var_18, FFFFFFFFh, edi, edi, edi, edi, 00000001h)
loc_0040AC55: GetLastError
End Sub
Private Sub Timer15_Timer() '40E3A0
loc_0040E3C2: var_8 = &H401248
loc_0040E3F3: GetAsyncKeyState(00000028h)
loc_0040E3FA: GetLastError
loc_0040E47D: setz bl
loc_0040E480: neg ebx
loc_0040E489: setz dl
loc_0040E48C: neg edx
loc_0040E48E: ebx = ebx And edx
loc_0040E49B: setz al
loc_0040E4A2: neg eax
loc_0040E4A7: ebx = ebx And edx And eax
loc_0040E4B5: If ebx And edx And eax = 0 Then GoTo loc_0040E617
loc_0040E4D5: l18.ForeColor = "MZ"
loc_0040E510: Label18.ForeColor = "MZ"
loc_0040E54B: l1.Forecolor = 000000FFh
loc_0040E586: Label1.Forecolor = 000000FFh
loc_0040E5BE: Timer1.Enabled = FFFFFFFFh
loc_0040E5F6: Timer15.Enabled = 00000000h
loc_0040E619: GetAsyncKeyState(00000027h)
loc_0040E620: GetLastError
loc_0040E69D: setz bl
loc_0040E6A0: neg ebx
loc_0040E6A9: setz cl
loc_0040E6AC: neg ecx
loc_0040E6AE: ebx = ebx And ecx
loc_0040E6BA: setz dl
loc_0040E6C1: neg edx
loc_0040E6C6: ebx = ebx And ecx And edx
loc_0040E6D4: If ebx And ecx And edx = 0 Then GoTo loc_0040E785
loc_0040E6F4: Label18.Caption = "[ON]"
loc_0040E72C: XML.Enabled = FFFFFFFFh
loc_0040E764: YML.Enabled = FFFFFFFFh
loc_0040E787: GetAsyncKeyState(00000025h)
loc_0040E78E: GetLastError
loc_0040E7B3: var_18 = Label18.Caption
loc_0040E7DF: neg ebx
loc_0040E7E1: sbb ebx, ebx
loc_0040E7E5: ebx = (var_18 = "[ON]") + 1
loc_0040E7E6: neg ebx
loc_0040E7F1: setz dl
loc_0040E7F4: neg edx
loc_0040E7F6: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040E80A: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040E8BB
loc_0040E82A: Label18.Caption = "[OFF]"
loc_0040E862: XML.Enabled = 00000000h
loc_0040E89A: YML.Enabled = 00000000h
loc_0040E8BD: GetAsyncKeyState(00000026h)
loc_0040E8C4: GetLastError
loc_0040E941: setz bl
loc_0040E944: neg ebx
loc_0040E94D: setz cl
loc_0040E950: neg ecx
loc_0040E952: ebx = ebx And ecx
loc_0040E95E: setz dl
loc_0040E965: neg edx
loc_0040E96A: ebx = ebx And ecx And edx
loc_0040E978: If ebx And ecx And edx = 0 Then GoTo loc_0040EAD8
loc_0040E998: l18.ForeColor = "MZ"
loc_0040E9D3: Label18.ForeColor = "MZ"
loc_0040EA0E: l17.Forecolor = 000000FFh
loc_0040EA49: Label16.Forecolor = 000000FFh
loc_0040EA81: Timer14.Enabled = FFFFFFFFh
loc_0040EABB: Timer15.Enabled = 00000000h
loc_0040EAE4: GoTo loc_0040EB03
loc_0040EB02: Exit Sub
loc_0040EB03: Exit Sub
End Sub
Private Sub XPO_Timer() '40EFA0
loc_0040EFC2: var_8 = &H401298
loc_0040F017: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040F03B: var_34 = "MZ"
loc_0040F05C: Proc_00413BF0(var_18 + 00000014h, "", "Metal Assault")
loc_0040F077: GoTo loc_0040F08C
loc_0040F08B: Exit Sub
loc_0040F08C: Exit Sub
loc_0040F0A9: Exit Sub
End Sub
Private Sub Timer1_Timer() '40F0C0
loc_0040F0E2: var_8 = &H4012A8
loc_0040F113: GetAsyncKeyState(00000028h)
loc_0040F11A: GetLastError
loc_0040F19D: setz bl
loc_0040F1A0: neg ebx
loc_0040F1A9: setz dl
loc_0040F1AC: neg edx
loc_0040F1AE: ebx = ebx And edx
loc_0040F1BB: setz al
loc_0040F1C2: neg eax
loc_0040F1C7: ebx = ebx And edx And eax
loc_0040F1D5: If ebx And edx And eax = 0 Then GoTo loc_0040F337
loc_0040F1F5: l1.ForeColor = "MZ"
loc_0040F230: Label1.ForeColor = "MZ"
loc_0040F26B: l2.Forecolor = 000000FFh
loc_0040F2A6: Label2.Forecolor = 000000FFh
loc_0040F2DE: Timer2.Enabled = FFFFFFFFh
loc_0040F316: Timer1.Enabled = 00000000h
loc_0040F339: GetAsyncKeyState(00000027h)
loc_0040F340: GetLastError
loc_0040F3BD: setz bl
loc_0040F3C0: neg ebx
loc_0040F3C9: setz cl
loc_0040F3CC: neg ecx
loc_0040F3CE: ebx = ebx And ecx
loc_0040F3DA: setz dl
loc_0040F3E1: neg edx
loc_0040F3E6: ebx = ebx And ecx And edx
loc_0040F3F4: If ebx And ecx And edx = 0 Then GoTo loc_0040F469
loc_0040F410: Label1.Caption = "[ON]"
loc_0040F448: Fly.Enabled = FFFFFFFFh
loc_0040F46B: GetAsyncKeyState(00000025h)
loc_0040F472: GetLastError
loc_0040F497: var_18 = Label1.Caption
loc_0040F4C3: neg ebx
loc_0040F4C5: sbb ebx, ebx
loc_0040F4C9: ebx = (var_18 = "[ON]") + 1
loc_0040F4CA: neg ebx
loc_0040F4D5: setz dl
loc_0040F4D8: neg edx
loc_0040F4DA: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040F4EE: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040F563
loc_0040F50A: Label1.Caption = "[OFF]"
loc_0040F542: Fly.Enabled = 00000000h
loc_0040F565: GetAsyncKeyState(00000026h)
loc_0040F56C: GetLastError
loc_0040F5E9: setz bl
loc_0040F5EC: neg ebx
loc_0040F5F5: setz cl
loc_0040F5F8: neg ecx
loc_0040F5FA: ebx = ebx And ecx
loc_0040F606: setz dl
loc_0040F60D: neg edx
loc_0040F612: ebx = ebx And ecx And edx
loc_0040F620: If ebx And ecx And edx = 0 Then GoTo loc_0040F780
loc_0040F640: l1.ForeColor = "MZ"
loc_0040F67B: Label1.ForeColor = "MZ"
loc_0040F6B6: l18.Forecolor = 000000FFh
loc_0040F6F1: Label18.Forecolor = 000000FFh
loc_0040F729: Timer15.Enabled = FFFFFFFFh
loc_0040F763: Timer1.Enabled = 00000000h
loc_0040F78C: GoTo loc_0040F7AB
loc_0040F7AA: Exit Sub
loc_0040F7AB: Exit Sub
End Sub
Private Sub YPO_Timer() '413770
loc_00413792: var_8 = &H401388
loc_004137E7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0041380B: var_34 = "MZ"
loc_0041382C: Proc_00413BF0(var_1C + 00000018h + 00000018h, "", "Metal Assault")
loc_00413847: GoTo loc_0041385C
loc_0041385B: Exit Sub
loc_0041385C: Exit Sub
loc_00413879: Exit Sub
End Sub
Private Sub XML_Timer() '40ED60
loc_0040ED82: var_8 = &H401278
loc_0040EDD7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040EDFB: var_34 = "MZ"
loc_0040EE1C: Proc_00413BF0(var_18 + 00000014h, "", "Metal Assault")
loc_0040EE37: GoTo loc_0040EE4C
loc_0040EE4B: Exit Sub
loc_0040EE4C: Exit Sub
loc_0040EE69: Exit Sub
End Sub
Private Sub I2_Timer() '40B100
loc_0040B122: var_8 = &H401148
loc_0040B177: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040B19E: var_34 = &H83
loc_0040B1BF: Proc_00413BF0(var_18 + 0001B814h, "", "Metal Assault")
loc_0040B1DA: GoTo loc_0040B1EF
loc_0040B1EE: Exit Sub
loc_0040B1EF: Exit Sub
loc_0040B20C: Exit Sub
End Sub
Private Sub YML_Timer() '413650
loc_00413672: var_8 = &H401378
loc_004136C7: Proc_00413E10("", "Metal Assault", "MZ")
loc_004136EB: var_34 = "MZ"
loc_0041370C: Proc_00413BF0(var_18 + 00000018h, "", "Metal Assault")
loc_00413727: GoTo loc_0041373C
loc_0041373B: Exit Sub
loc_0041373C: Exit Sub
loc_00413759: Exit Sub
End Sub
Private Sub V_Timer() '40EB30
loc_0040EB52: var_8 = &H401258
loc_0040EBA7: Proc_00413E10("", "Metal Assault", "MZ")
loc_0040EBE8: Proc_00413BF0(var_1C + 00000024h + 00000024h, "", "Metal Assault")
loc_0040EC03: GoTo loc_0040EC18
loc_0040EC17: Exit Sub
loc_0040EC18: Exit Sub
loc_0040EC35: Exit Sub
End Sub
Private Sub Timer2_Timer() '40F7D0
loc_0040F7F2: var_8 = &H4012B8
loc_0040F823: GetAsyncKeyState(00000028h)
loc_0040F82A: GetLastError
loc_0040F8AD: setz bl
loc_0040F8B0: neg ebx
loc_0040F8B9: setz dl
loc_0040F8BC: neg edx
loc_0040F8BE: ebx = ebx And edx
loc_0040F8CB: setz al
loc_0040F8D2: neg eax
loc_0040F8D7: ebx = ebx And edx And eax
loc_0040F8E5: If ebx And edx And eax = 0 Then GoTo loc_0040FA47
loc_0040F905: l2.ForeColor = "MZ"
loc_0040F940: Label2.ForeColor = "MZ"
loc_0040F97B: l3.Forecolor = 000000FFh
loc_0040F9B6: Label3.Forecolor = 000000FFh
loc_0040F9EE: Timer3.Enabled = FFFFFFFFh
loc_0040FA26: Timer2.Enabled = 00000000h
loc_0040FA49: GetAsyncKeyState(00000027h)
loc_0040FA50: GetLastError
loc_0040FACD: setz bl
loc_0040FAD0: neg ebx
loc_0040FAD9: setz cl
loc_0040FADC: neg ecx
loc_0040FADE: ebx = ebx And ecx
loc_0040FAEA: setz dl
loc_0040FAF1: neg edx
loc_0040FAF6: ebx = ebx And ecx And edx
loc_0040FB04: If ebx And ecx And edx = 0 Then GoTo loc_0040FB79
loc_0040FB20: Label2.Caption = "[ON]"
loc_0040FB58: HB.Enabled = FFFFFFFFh
loc_0040FB7B: GetAsyncKeyState(00000025h)
loc_0040FB82: GetLastError
loc_0040FBA7: var_18 = Label2.Caption
loc_0040FBD3: neg ebx
loc_0040FBD5: sbb ebx, ebx
loc_0040FBD9: ebx = (var_18 = "[ON]") + 1
loc_0040FBDA: neg ebx
loc_0040FBE5: setz dl
loc_0040FBE8: neg edx
loc_0040FBEA: ebx = (var_18 = "[ON]") + 1 And edx
loc_0040FBFE: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_0040FC73
loc_0040FC1A: Label2.Caption = "[OFF]"
loc_0040FC52: HB.Enabled = 00000000h
loc_0040FC75: GetAsyncKeyState(00000026h)
loc_0040FC7C: GetLastError
loc_0040FCF9: setz bl
loc_0040FCFC: neg ebx
loc_0040FD05: setz cl
loc_0040FD08: neg ecx
loc_0040FD0A: ebx = ebx And ecx
loc_0040FD16: setz dl
loc_0040FD1D: neg edx
loc_0040FD22: ebx = ebx And ecx And edx
loc_0040FD30: If ebx And ecx And edx = 0 Then GoTo loc_0040FE90
loc_0040FD50: l2.ForeColor = "MZ"
loc_0040FD8B: Label2.ForeColor = "MZ"
loc_0040FDC6: l1.Forecolor = 000000FFh
loc_0040FE01: Label1.Forecolor = 000000FFh
loc_0040FE39: Timer1.Enabled = FFFFFFFFh
loc_0040FE73: Timer2.Enabled = 00000000h
loc_0040FE9C: GoTo loc_0040FEBB
loc_0040FEBA: Exit Sub
loc_0040FEBB: Exit Sub
End Sub
Private Sub Timer3_Timer() '40FEE0
loc_0040FF02: var_8 = &H4012C8
loc_0040FF33: GetAsyncKeyState(00000028h)
loc_0040FF3A: GetLastError
loc_0040FFBD: setz bl
loc_0040FFC0: neg ebx
loc_0040FFC9: setz dl
loc_0040FFCC: neg edx
loc_0040FFCE: ebx = ebx And edx
loc_0040FFDB: setz al
loc_0040FFE2: neg eax
loc_0040FFE7: ebx = ebx And edx And eax
loc_0040FFF5: If ebx And edx And eax = 0 Then GoTo loc_00410157
loc_00410015: l3.ForeColor = "MZ"
loc_00410050: Label3.ForeColor = "MZ"
loc_0041008B: l4.Forecolor = 000000FFh
loc_004100C6: Label4.Forecolor = 000000FFh
loc_004100FE: Timer4.Enabled = FFFFFFFFh
loc_00410136: Timer3.Enabled = 00000000h
loc_00410159: GetAsyncKeyState(00000027h)
loc_00410160: GetLastError
loc_004101DD: setz bl
loc_004101E0: neg ebx
loc_004101E9: setz cl
loc_004101EC: neg ecx
loc_004101EE: ebx = ebx And ecx
loc_004101FA: setz dl
loc_00410201: neg edx
loc_00410206: ebx = ebx And ecx And edx
loc_00410214: If ebx And ecx And edx = 0 Then GoTo loc_00410289
loc_00410230: Label3.Caption = "[ON]"
loc_00410268: Jump.Enabled = FFFFFFFFh
loc_0041028B: GetAsyncKeyState(00000025h)
loc_00410292: GetLastError
loc_004102B7: var_18 = Label3.Caption
loc_004102E3: neg ebx
loc_004102E5: sbb ebx, ebx
loc_004102E9: ebx = (var_18 = "[ON]") + 1
loc_004102EA: neg ebx
loc_004102F5: setz dl
loc_004102F8: neg edx
loc_004102FA: ebx = (var_18 = "[ON]") + 1 And edx
loc_0041030E: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_00410383
loc_0041032A: Label3.Caption = "[OFF]"
loc_00410362: Jump.Enabled = 00000000h
loc_00410385: GetAsyncKeyState(00000026h)
loc_0041038C: GetLastError
loc_00410409: setz bl
loc_0041040C: neg ebx
loc_00410415: setz cl
loc_00410418: neg ecx
loc_0041041A: ebx = ebx And ecx
loc_00410426: setz dl
loc_0041042D: neg edx
loc_00410432: ebx = ebx And ecx And edx
loc_00410440: If ebx And ecx And edx = 0 Then GoTo loc_004105A0
loc_00410460: l3.ForeColor = "MZ"
loc_0041049B: Label3.ForeColor = "MZ"
loc_004104D6: l2.Forecolor = 000000FFh
loc_00410511: Label2.Forecolor = 000000FFh
loc_00410549: Timer2.Enabled = FFFFFFFFh
loc_00410583: Timer3.Enabled = 00000000h
loc_004105AC: GoTo loc_004105CB
loc_004105CA: Exit Sub
loc_004105CB: Exit Sub
End Sub
Private Sub Timer4_Timer() '4105F0
loc_00410612: var_8 = &H4012D8
loc_00410643: GetAsyncKeyState(00000028h)
loc_0041064A: GetLastError
loc_004106CD: setz bl
loc_004106D0: neg ebx
loc_004106D9: setz dl
loc_004106DC: neg edx
loc_004106DE: ebx = ebx And edx
loc_004106EB: setz al
loc_004106F2: neg eax
loc_004106F7: ebx = ebx And edx And eax
loc_00410705: If ebx And edx And eax = 0 Then GoTo loc_00410867
loc_00410725: l4.ForeColor = "MZ"
loc_00410760: Label4.ForeColor = "MZ"
loc_0041079B: l5.Forecolor = 000000FFh
loc_004107D6: Label5.Forecolor = 000000FFh
loc_0041080E: Timer5.Enabled = FFFFFFFFh
loc_00410846: Timer4.Enabled = 00000000h
loc_00410869: GetAsyncKeyState(00000027h)
loc_00410870: GetLastError
loc_004108ED: setz bl
loc_004108F0: neg ebx
loc_004108F9: setz cl
loc_004108FC: neg ecx
loc_004108FE: ebx = ebx And ecx
loc_0041090A: setz dl
loc_00410911: neg edx
loc_00410916: ebx = ebx And ecx And edx
loc_00410924: If ebx And ecx And edx = 0 Then GoTo loc_00410999
loc_00410940: Label4.Caption = "[ON]"
loc_00410978: I.Enabled = FFFFFFFFh
loc_0041099B: GetAsyncKeyState(00000025h)
loc_004109A2: GetLastError
loc_004109C7: var_18 = Label4.Caption
loc_004109F3: neg ebx
loc_004109F5: sbb ebx, ebx
loc_004109F9: ebx = (var_18 = "[ON]") + 1
loc_004109FA: neg ebx
loc_00410A05: setz dl
loc_00410A08: neg edx
loc_00410A0A: ebx = (var_18 = "[ON]") + 1 And edx
loc_00410A1E: If ("" = "[ON]") + 1 And edx = 0 Then GoTo loc_00410A93
loc_00410A3A: Label4.Caption = "[OFF]"
loc_00410A72: I.Enabled = 00000000h
loc_00410A95: GetAsyncKeyState(00000026h)
loc_00410A9C: GetLastError
loc_00410B19: setz bl
loc_00410B1C: neg ebx
loc_00410B25: setz cl
loc_00410B28: neg ecx
loc_00410B2A: ebx = ebx And ecx
loc_00410B36: setz dl
loc_00410B3D: neg edx
loc_00410B42: ebx = ebx And ecx And edx
loc_00410B50: If ebx And ecx And edx = 0 Then GoTo loc_00410CB0
loc_00410B70: l4.ForeColor = "MZ"
loc_00410BAB: Label4.ForeColor = "MZ"
loc_00410BE6: l3.Forecolor = 000000FFh
loc_00410C21: Label3.Forecolor = 000000FFh
loc_00410C59: Timer3.Enabled = FFFFFFFFh
loc_00410C93: Timer4.Enabled = 00000000h
loc_00410CBC: GoTo loc_00410CDB
loc_00410CDA: Exit Sub
loc_00410CDB: Exit Sub
End Sub
I'll attach the project files once I have time.