Initial import, raw disassembly

This commit is contained in:
Neo committed 2023-04-25 23:10:32 -07:00
1 parent 5fde99f729
commit 72cbfee968
35 files changed
+28732

No files matched your search

+346
View File
@@ -0,0 +1,346 @@
VERSION 5.00
Begin VB.Form Backdrop
BackColor = &H0&
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Icon = "Backdrop.frx":0
LinkTopic = "Form1"
ControlBox = 0 'False
Tag = "backdrop"
ClientLeft = 2220
ClientTop = 450
ClientWidth = 11220
ClientHeight = 8685
Appearance = 0 'Flat
Begin PictureBox tempLoad
BackColor = &H80000005&
ForeColor = &H80000008&
Left = 300
Top = 3840
Width = 1755
Height = 1515
Visible = 0 'False
TabIndex = 1
ScaleMode = 3
AutoRedraw = True
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin Timer tmrActivate
Interval = 1
Left = 4200
Top = 4680
End
Begin Image cursorBlank
Picture = "Backdrop.frx":8CA
Left = 2790
Top = 2100
Width = 480
Height = 480
Visible = 0 'False
Appearance = 0 'Flat
End
Begin Label devLabel
Caption = "BackDrop"
BackColor = &H0&
ForeColor = &HFFFFFF&
Left = 960
Top = 660
Width = 2655
Height = 690
Visible = 0 'False
TabIndex = 0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 29.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Image cursorNormal
Picture = "Backdrop.frx":BD4
Left = 3360
Top = 2160
Width = 480
Height = 480
Visible = 0 'False
Appearance = 0 'Flat
End
Begin Image cursorMove
Picture = "Backdrop.frx":D26
Left = 3840
Top = 2160
Width = 480
Height = 480
Visible = 0 'False
Appearance = 0 'Flat
End
End
Attribute VB_Name = "Backdrop"
'VA: 40F46C
Private Declare Function KillTimer Lib "user32" Alias "KillTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
'VA: 40F428
Private Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'VA: 40E2F4
Private Declare Function FillRect Lib "user32" Alias "FillRect" (ByVal hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
'VA: 40E2B0
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
'VA: 40E248
Private Declare Function SetBkMode Lib "gdi32" Alias "SetBkMode" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
'VA: 40E204
Private Declare Function SetBkColor Lib "gdi32" Alias "SetBkColor" (ByVal hdc As Long, ByVal crColor As Long) As Long
'VA: 40E1C0
Private Declare Function SetTextColor Lib "gdi32" Alias "SetTextColor" (ByVal hdc As Long, ByVal crColor As Long) As Long
'VA: 40E178
Private Declare Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtraA" (ByVal hdc As Long, ByVal nCharExtra As Long) As Long
'VA: 40E128
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
'VA: 40E0E4
Private Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
'VA: 40E088
Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
'VA: 40E044
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'VA: 40DFFC
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
'VA: 40DFB4
Private Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
'VA: 40DF68
Private Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal hwnd As Long, ByVal hdc As Long) As Long
'VA: 40DF24
Private Declare Function GetWindowDC Lib "user32" Alias "GetWindowDC" (ByVal hwnd As Long) As Long
'VA: 40DEC8
Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
'VA: 40DE88
Private Declare Function CreateIC Lib "gdi32" Alias "CreateICA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As DEVMODE) As Long
'VA: 40DE44
Private Declare Function CreateBitmapIndirect Lib "gdi32" Alias "CreateBitmapIndirect" (lpBitmap As BITMAP) As Long
'VA: 40DDF4
Private Declare Function CreateCompatibleBitmap Lib "gdi32" Alias "CreateCompatibleBitmap" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
'VA: 40DDA4
Private Declare Function CreateBitmap Lib "gdi32" Alias "CreateBitmap" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
'VA: 40DD5C
Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
'VA: 40DCEC
Private Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long
'VA: 40DCA4
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'VA: 40DB64
Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long
'VA: 40DB30
Private Declare Sub _MIDASremoveEchoEffect@4 Lib "midas11.dll"()
'VA: 40DADC
Private Declare Sub _MIDASaddEchoEffect@4 Lib "midas11.dll"()
'VA: 40DA8C
Private Declare Sub _MIDASresumeStream@4 Lib "midas11.dll"()
'VA: 40DA3C
Private Declare Sub _MIDASpauseStream@4 Lib "midas11.dll"()
'VA: 40D9F0
Private Declare Sub _MIDASgetStreamBytesBuffered@4 Lib "midas11.dll"()
'VA: 40D998
Private Declare Sub _MIDASsetStreamPanning@8 Lib "midas11.dll"()
'VA: 40D944
Private Declare Sub _MIDASsetStreamVolume@8 Lib "midas11.dll"()
'VA: 40D8F4
Private Declare Sub _MIDASsetStreamRate@8 Lib "midas11.dll"()
'VA: 40D8A4
Private Declare Sub _MIDASfeedStreamData@16 Lib "midas11.dll"()
'VA: 40D854
Private Declare Sub _MIDASplayStreamPolling@12 Lib "midas11.dll"()
'VA: 40D800
Private Declare Sub _MIDASstopStream@4 Lib "midas11.dll"()
'VA: 40D7CC
Private Declare Sub _MIDASplayStreamWaveFile@12 Lib "midas11.dll"()
'VA: 40D778
Private Declare Sub _MIDASplayStreamFile@20 Lib "midas11.dll"()
'VA: 40D728
Private Declare Sub _MIDASgetSamplePlayStatus@4 Lib "midas11.dll"()
'VA: 40D6D4
Private Declare Sub _MIDASsetSamplePriority@8 Lib "midas11.dll"()
'VA: 40D680
Private Declare Sub _MIDASsetSamplePanning@8 Lib "midas11.dll"()
'VA: 40D62C
Private Declare Sub _MIDASsetSampleVolume@8 Lib "midas11.dll"()
'VA: 40D5F8
Private Declare Sub _MIDASsetSampleRate@8 Lib "midas11.dll"()
'VA: 40D5A8
Private Declare Sub _MIDASstopSample@4 Lib "midas11.dll"()
'VA: 40D55C
Private Declare Sub _MIDASplaySample@24 Lib "midas11.dll"()
'VA: 40D510
Private Declare Sub _MIDASfreeAutoEffectChannels@0 Lib "midas11.dll"()
'VA: 40D4B8
Private Declare Sub _MIDASallocAutoEffectChannels@4 Lib "midas11.dll"()
'VA: 40D460
Private Declare Sub _MIDASfreeSample@4 Lib "midas11.dll"()
'VA: 40D3F4
Private Declare Sub _MIDASloadWaveSample@8 Lib "midas11.dll"()
'VA: 40D3A4
Private Declare Sub _MIDASloadRawSample@12 Lib "midas11.dll"()
'VA: 40D354
Private Declare Sub _MIDASfadeMusicChannel@12 Lib "midas11.dll"()
'VA: 40D300
Private Declare Sub _MIDASgetInstrumentInfo@12 Lib "midas11.dll"()
'VA: 40D2AC
Private Declare Sub _MIDASgetModuleInfo@8 Lib "midas11.dll"()
'VA: 40D244
Private Declare Sub _MIDASsetMusicVolume@8 Lib "midas11.dll"()
'VA: 40D1F4
Private Declare Sub _MIDASsetPosition@8 Lib "midas11.dll"()
'VA: 40D1A8
Private Declare Sub _MIDASgetPlayStatus@8 Lib "midas11.dll"()
'VA: 40D158
Private Declare Sub _MIDASfreeModule@4 Lib "midas11.dll"()
'VA: 40D10C
Private Declare Sub _MIDASstopModule@4 Lib "midas11.dll"()
'VA: 40D0C0
Private Declare Sub _MIDASplayModuleSection@20 Lib "midas11.dll"()
'VA: 40D078
Private Declare Sub _MIDASplayModule@8 Lib "midas11.dll"()
'VA: 40D02C
Private Declare Sub _MIDASloadModule@4 Lib "midas11.dll"()
'VA: 40CFE0
Private Declare Sub _MIDASfreeChannel@4 Lib "midas11.dll"()
'VA: 40CF94
Private Declare Sub _MIDASallocateChannel@0 Lib "midas11.dll"()
'VA: 40CF44
Private Declare Sub _MIDASgetVersionString@0 Lib "midas11.dll"()
'VA: 40CEF0
Private Declare Sub _MIDASunlock@0 Lib "midas11.dll"()
'VA: 40CE7C
Private Declare Sub _MIDASlock@0 Lib "midas11.dll"()
'VA: 40CE34
Private Declare Sub _MIDASpoll@0 Lib "midas11.dll"()
'VA: 40CDEC
Private Declare Sub _MIDASstopBackgroundPlay@0 Lib "midas11.dll"()
'VA: 40CD98
Private Declare Sub _MIDASstartBackgroundPlay@4 Lib "midas11.dll"()
'VA: 40CD44
Private Declare Sub _MIDASsetAmplification@4 Lib "midas11.dll"()
'VA: 40CCF0
Private Declare Sub _MIDAScloseChannels@0 Lib "midas11.dll"()
'VA: 40CCA0
Private Declare Sub _MIDASopenChannels@4 Lib "midas11.dll"()
'VA: 40CC50
Private Declare Sub _MIDASresume@0 Lib "midas11.dll"()
'VA: 40CC08
Private Declare Sub _MIDASclose@0 Lib "midas11.dll"()
'VA: 40CBC0
Private Declare Sub _MIDASgetOption@4 Lib "midas11.dll"()
'VA: 40CB74
Private Declare Sub _MIDASsetOption@8 Lib "midas11.dll"()
'VA: 40CB28
Private Declare Sub _MIDASinit@0 Lib "midas11.dll"()
'VA: 40CAE0
Private Declare Sub _MIDASwriteConfigRegistry@8 Lib "midas11.dll"()
'VA: 40CA8C
Private Declare Sub _MIDASreadConfigRegistry@8 Lib "midas11.dll"()
'VA: 40CA38
Private Declare Sub _MIDASsaveConfig@4 Lib "midas11.dll"()
'VA: 40C9EC
Private Declare Sub _MIDASloadConfig@4 Lib "midas11.dll"()
'VA: 40C9A0
Private Declare Sub _MIDASconfig@0 Lib "midas11.dll"()
'VA: 40C948
Private Declare Sub _MIDASstartup@0 Lib "midas11.dll"()
'VA: 40C900
Private Declare Sub _MIDASgetErrorMessage@4 Lib "midas11.dll"()
'VA: 40C8B0
Private Declare Sub _MIDASgetLastError@0 Lib "midas11.dll"()
'VA: 40C7C8
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
'VA: 40C774
Private Declare Function GetStretchBltMode Lib "gdi32" Alias "GetStretchBltMode" (ByVal hdc As Long) As Long
'VA: 40C730
Private Declare Function DeleteDC Lib "gdi32" Alias "DeleteDC" (ByVal hdc As Long) As Long
'VA: 40C6EC
Private Declare Function CreateCompatibleDC Lib "gdi32" Alias "CreateCompatibleDC" (ByVal hdc As Long) As Long
'VA: 40C6A0
Private Declare Function DeleteObject Lib "gdi32" Alias "DeleteObject" (ByVal hObject As Long) As Long
'VA: 40C658
Private Declare Function SelectObject Lib "gdi32" Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long
'VA: 40C610
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
'VA: 40C1C0
Private Declare Function GetMapMode Lib "gdi32" Alias "GetMapMode" (ByVal hdc As Long) As Long
'VA: 40C18C
Private Declare Function QueryPerformanceCounter Lib "kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As LARGE_INTEGER) As Long
'VA: 40BF84
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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: 40BF3C
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
'VA: 40BEF4
Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
'VA: 40BEA0
Private Declare Function QueryPerformanceFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As LARGE_INTEGER) As Long
'VA: 40BDB0
Private Declare Function SetMapMode Lib "gdi32" Alias "SetMapMode" (ByVal hdc As Long, ByVal nMapMode As Long) As Long
Private Sub tmrActivate_Timer() '81D050
loc_0081D0F6: var_eax = intro.Show var_28, var_24
loc_0081D132: tmrActivate.Enabled = False
loc_0081D15F: GoTo loc_0081D16B
loc_0081D16A: Exit Sub
loc_0081D16B: 'Referenced from: 0081D15F
End Sub
Private Sub Form_Load() '81CB30
Dim Me As Me
Dim var_68 As Variant
Dim var_70 As Image
loc_0081CB87: var_eax = Proc_884A30(edi, Me, ebx)
loc_0081CBAB: var_eax = Proc_10_10_84A620(var_68, var_68, Proc_884A30(edi, Me, ebx))
loc_0081CBED: var_eax = Proc_86F040(var_68, var_68, CreateObject(global_00404970, global_00886638))
loc_0081CC3C: var_eax = Proc_847130(var_68, var_68, CreateObject(global_00404970, global_00886638))
loc_0081CC59: var_eax = Proc_10_8_84A010(global_00886638, Proc_847130(var_68, var_68, CreateObject(global_00404970, global_00886638)), var_68)
loc_0081CC5E: var_eax = Proc_10_7_849D50(global_0040C204, global_00886638, global_0040C7EC)
loc_0081CC89: var_68 = Global.Screen
loc_0081CCAB: Global.MousePointer = CInt(99)
loc_0081CCEE: var_70 = Global.Screen
loc_0081CD40: var_6C = cursorNormal.Picture
loc_0081CD6D: cursorNormal.MousePointer = var_74
loc_0081CDA7: var_eax = QueryPerformanceFrequency(global_008860D8)
loc_0081CDB2: var_eax = Proc_9_16_846930(var_74, var_6C, var_68)
loc_0081CDB7: var_eax = Proc_10_9_84A250(global_00886638, global_00886638, global_00886638)
loc_0081CDBC: var_eax = Proc_868150(Proc_86F040(var_68, var_68, CreateObject(global_00404970, global_00886638)), var_68, global_0040C204)
loc_0081CDC1: var_eax = Proc_12_49_86ECB0(global_00886638, global_0040C7EC, Me)
loc_0081CE3A: var_eax = Unknown_VTable_Call[edi+000002A4h]
loc_0081CE5D: var_eax = Proc_9_13_8457B0(global_00FFFFFF, Me, 0)
loc_0081CE68: global_88659A = Proc_9_13_8457B0(global_00FFFFFF, Me, 0)
loc_0081CE8A: var_eax = Proc_12_43_86D100(var_84, var_68, var_68)
loc_0081CEB1: GoTo loc_0081CEDB
loc_0081CEDA: Exit Sub
loc_0081CEDB: 'Referenced from: 0081CEB1
End Sub
Private Sub Form_Unload(Cancel As Integer) '81CF00
Dim var_18 As Screen
loc_0081CF44: var_eax = Proc_86F0B0(edi, esi, ebx)
loc_0081CF49: var_eax = Proc_86F250(, , )
loc_0081CF4E: var_eax = Proc_847190(, , )
loc_0081CF8F: var_eax = Proc_84AB80(var_18, var_18, global_00886638)
loc_0081CFD7: var_18 = Global.Screen
loc_0081CFF8: Global.MousePointer = 0
loc_0081D015: End
loc_0081D023: GoTo loc_0081D02F
loc_0081D02E: Exit Sub
loc_0081D02F: 'Referenced from: 0081D023
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '81CAB0
loc_0081CAF6: If KeyCode = 123 Then
loc_0081CAF8: var_eax = Proc_12_18_864A90(edi, esi, ebx)
loc_0081CAFD: End If
End Sub
BIN
View File
Binary file not shown.
View File
Whitespace-only changes.
File diff suppressed because it is too large. Load diff
File diff suppressed because it is too large. Load diff
View File
Whitespace-only changes.
File diff suppressed because it is too large. Load diff
View File
File renamed without changes.
View File
Whitespace-only changes.
View File
Whitespace-only changes.
View File
Whitespace-only changes.
+62
View File
@@ -0,0 +1,62 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\SYSTEM32\STDOLE2.TLB#OLE Automation
Form=Backdrop.frm
Form=buttons.frm
Form=gameOptions.frm
Form=frmMain.frm
Form=login.frm
Form=classicOptions.frm
Form=scoring.frm
Form=titleScreen.frm
Module=generateLevels; generateLevels.bas
Module=GraphicsFunctions; GraphicsFunctions.bas
Module=SoundFunctions; SoundFunctions.bas
Module=DirectDrawModule; DirectDrawModule.bas
Module=DirectSoundModule; DirectSoundModule.bas
Module=MainGame; MainGame.bas
Module=Globals; Globals.bas
Module=MiscFunctions; MiscFunctions.bas
Module=MIDASFunctions; MIDASFunctions.bas
Module=DefineChallengeLevels; DefineChallengeLevels.bas
Form=intro.frm
Form=topScores.frm
Form=about.frm
Form=challengeOptions.frm
Module=versionDeclare; versionDeclare.bas
Startup="Sub Main"
HelpFile=""
ExeName32="Flux.exe"
Name="Flux"
Title="Flux"
VersionCompanyName="MasterWorks Software"
MajorVer=1
MinorVer=00
RevisionVer=0078
Command32 = ""
HelpContextID = "0"
CompatibleMode = "0"
AutoIncrementVer = 0
ServerSupportFiles = 0
CompilationType = 0
OptimizationType = 0
FavorPentiumPro(tm) = 0
CodeViewDebugInfo = 0
NoAliasing = 0
BoundsCheck = 0
OverflowCheck = -1
FlPointCheck = 0
FDIVCheck = 0
UnroundedFP = 0
StartMode = 0
Unattended = 0
Retained = 0
ThreadPerObject = 0
MaxNumberOfThreads = 1
[MS Transaction Server]
AutoRefresh = 1
[VB Decompiler]
Build = 10.0.5630.3733
Date = 4/25/2023
File diff suppressed because it is too large. Load diff
+403
View File
@@ -0,0 +1,403 @@
VERSION 5.00
Begin VB.Form about
BackColor = &H0&
WindowState = 2
ScaleMode = 3
AutoRedraw = True
FontTransparent = True
Picture = "about.frx":0
BorderStyle = 0 'None
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ControlBox = 0 'False
Tag = "about"
KeyPreview = -1 'True
ClientLeft = 4560
ClientTop = 1665
ClientWidth = 14910
ClientHeight = 10125
ShowInTaskbar = 0 'False
Moveable = 0 'False
Begin PictureBox btnButton
BackColor = &H404040&
Index = 1
ForeColor = &H80000008&
Left = 8280
Top = 6660
Width = 1200
Height = 450
TabIndex = 2
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 1
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 3
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "ok"
Appearance = 0 'Flat
End
End
Begin PictureBox rotateDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 7860
Top = 90
Width = 1725
Height = 1725
Visible = 0 'False
TabIndex = 1
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin PictureBox animDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 210
Top = 120
Width = 2835
Height = 690
Visible = 0 'False
TabIndex = 0
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin Timer tmrMainLoop
Interval = 1
Left = 6990
Top = 450
End
Begin Label lblVersionInfo
Caption = "Version 1.00"
ForeColor = &HFFFFFF&
Left = 2010
Top = 2475
Width = 1365
Height = 240
TabIndex = 4
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "about"
Private Sub tmrMainLoop_Timer() '879350
Dim Me As Variant
Dim var_2C As PictureBox
loc_008793B0: var_eax = about.drawDefaultPics
loc_008793ED: 1 = btnButton._Default
loc_00879411: var_50 = btnButton.Visible
loc_0087943C: If var_50 = var_FFFFFF Then eax = 1
loc_00879453: If eax Then
loc_00879470: 1 = btnButton._Default
loc_00879490: var_eax = btnButton.SetFocus
loc_008794C1: End If
loc_008794D8: var_eax = Proc_10_11_84A820(var_28, var_28, var_28)
loc_008794E9: var_eax = about.resetHighLights
loc_00879505: var_eax = Proc_86B860(Me, global_0040C7EC, var_2C)
loc_00879521: tmrMainLoop.Enabled = False
loc_00879542:
loc_00879546: var_eax = QueryPerformanceCounter(var_24)
loc_0087956A: var_eax = Proc_12_46_86D7E0(var_28, var_28, GetLastError)
loc_0087958B: var_eax = Proc_10_11_84A820(var_28, var_28, Proc_12_46_86D7E0(var_28, var_28, GetLastError))
loc_0087959E: If esi+0000003Ah Then
loc_008795A3: var_eax = about.drawAnimations
loc_008795BF: End If
loc_008795C3: var_eax = QueryPerformanceCounter(var_1C)
loc_008795DE: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Proc_86B860(Me, global_0040C7EC, var_2C), Me, var_28, Me, Me, var_2C, var_28)
loc_008795E6: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Proc_86B860(Me, global_0040C7EC, var_2C), Me, var_28, Me, Me, var_2C, var_28), var_1C)
loc_008795FC: call __vbaR8Cy(global_008860D8, global_008860DC)
loc_00879609: If global_886000 = 0 Then
loc_0087960B: fdivr st0, var_78
loc_0087960E: GoTo loc_0087961B
loc_00879610: End If
loc_0087961B: 'Referenced from: 0087960E
loc_0087961B: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC)
loc_00879642: If Err.Number Then
loc_00879644: global_8860D4 = 3DCCCCCDh
loc_0087964E: End If
loc_00879653: If esi+00000034h = 0 Then GoTo loc_00879542
loc_00879659: var_eax = Proc_845A50(var_78, var_74)
loc_00879662: eax = Me(14) - 1
loc_00879663: If Me(14) - 1 = 0 Then
loc_0087968F: Set var_28 = Me
loc_00879697: var_eax = Global.Unload var_28
loc_00879718: var_eax = titleScreen.Show var_3C, var_38
loc_00879736: End If
loc_00879743: GoTo loc_00879759
loc_00879758: Exit Sub
loc_00879759: 'Referenced from: 00879743
loc_00879759: Exit Sub
End Sub
Private Sub picAnim_Click() '878E10
loc_00878E57: var_eax = about.btnButton_Click
End Sub
Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '878EA0
loc_00878F15: Button = picAnim._Default
loc_00878F39: var_1C = picAnim.Tag
loc_00878F68: var_20 = Right$(var_1C, 1)
loc_00878F87: esi = (var_20 = global_0040F164) + 1
loc_00878FA9: If (var_20 = global_0040F164) + 1 = 0 Then
loc_00878FC5:
loc_00878FCF: If Err.Number Then
loc_00878FE4: var_58 = Button
loc_00878FF1: If Err.Number Then
loc_00879012: var_5C = Err.Number
loc_00879020: CInt(6.37066138261923E-314) = picAnim._Default
loc_00879044: var_1C = picAnim.Tag
loc_0087907A: esi = (var_1C = "ok") + 1
loc_00879099: If (var_1C = "ok") + 1 Then
loc_008790C8: CInt(6.37066138261923E-314) = picAnim._Default
loc_008790ED: picAnim.Tag = "oka"
loc_00879125: End If
loc_00879128:
loc_00879139: GoTo loc_00878FC5
loc_00879159: var_60 = Err.Number
loc_00879167: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087918B: var_1C = picAnim.Tag
loc_008791BC: var_18 = var_1C
loc_008791E2: var_1C = Right$(var_18, 1)
loc_008791F9: esi = (var_1C = global_0040F164) + 1
loc_00879205: If (var_1C = global_0040F164) + 1 = 0 Then GoTo loc_00879125
loc_00879234: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087925E: Len(var_18) = Len(var_18) - 00000001h
loc_00879274: var_1C = Left$(var_18, Len(var_18))
loc_0087927C: picAnim.Tag = var_1C
loc_008792C5: var_eax = about.drawDefaultPic(CInt(6.37066138261923E-314))
loc_008792E5: GoTo loc_00879128
loc_008792EC: End If
loc_008792F5: GoTo loc_0087931B
loc_0087931A: Exit Sub
loc_0087931B: 'Referenced from: 008792F5
loc_00879324: Exit Sub
End Sub
Private Sub btnButton_Click() '878590
Dim Me As Me
loc_008785D0: var_eax = Proc_9_20_8476B0(edi, Me, ebx)
loc_008785DB: eax = arg_C - 1
loc_008785DC: If arg_C - 1 = 0 Then
loc_008785EA: End If
End Sub
Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '878610
loc_00878681: var_eax = about.picAnim_MouseMove(Button, var_18, var_1C, var_20)
End Sub
Private Sub Form_Load() '878780
Dim var_20 As Screen
Dim var_24 As Variant
Dim var_7C As Label
loc_008787FC: var_eax = Proc_12_43_86D100(var_34, var_20, var_20)
loc_00878838: var_20 = Global.Screen
loc_00878866: var_6C = Global.Width
loc_008788A6: var_24 = Global.Screen
loc_008788C6: var_70 = Global.Height
loc_00878938: var_eax = Unknown_VTable_Call[edi+000002A4h]
loc_00878990: var_eax = Proc_12_45_86D280(var_20, var_20, Unknown_VTable_Call[edi+000002A4h])
loc_008789A1: var_eax = about.positionControls
loc_008789BC: var_eax = about.resetHighLights
loc_008789E2: If global_886010 = 2 Then
loc_008789F8: var_7C = about.resetHighLights
loc_00878A14: var_18 = lblVersionInfo.Caption
loc_00878A4B: var_A0 = var_7C
loc_00878A5C: lblVersionInfo.Caption = var_18 & " (FULL VERSION)"
loc_00878A8C: GoTo loc_00878B2B
loc_00878A91: End If
loc_00878AA4: var_7C = var_24
loc_00878ABD: var_18 = lblVersionInfo.Caption
loc_00878AEE: var_1C = var_18 & " (Evaluation version)"
loc_00878AFB: lblVersionInfo.Caption = var_1C
loc_00878B2B: 'Referenced from: 00878A8C
loc_00878B74: var_eax = Proc_12_47_86E570(var_20, var_20, global_00886BCC)
loc_00878BA0: var_eax = Proc_12_25_868460(4, global_00886BCC, var_20)
loc_00878BB2: GoTo loc_00878BE1
loc_00878BE0: Exit Sub
loc_00878BE1: 'Referenced from: 00878BB2
End Sub
Private Sub Form_Unload(Cancel As Integer) '878D20
loc_00878D87: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18)
loc_00878DA6: GoTo loc_00878DBB
loc_00878DBA: Exit Sub
loc_00878DBB: 'Referenced from: 00878DA6
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '8786C0
Dim Me As Me
loc_0087870F: If KeyCode = 123 Then
loc_00878711: var_eax = Proc_12_18_864A90(edi, Me, ebx)
loc_00878716: GoTo loc_00878758
loc_00878718: End If
loc_0087871E: If Proc_12_18_864A90(edi, Me, ebx) <> 0 Then ecx = 1
loc_00878727: If Proc_12_18_864A90(edi, Me, ebx) <> 0 Then edx = 1
loc_0087872C: If edx = 0 Then
loc_0087873C: var_eax = about.btnButton_Click
loc_00878758:
loc_00878758: End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '878C10
loc_00878C53: var_eax = about.highLightCheck
End Sub
Public Sub positionControls() '878180
loc_008781DC: 1 = btnButton._Default
loc_0087820B: btnButton.Left = global_440A0000
loc_00878251: 1 = btnButton._Default
loc_00878272: btnButton.Top = global_43DE0000
loc_008782B8: 1 = btnButton._Default
loc_008782D9: btnButton.Width = global_42A00000
loc_00878325: 1 = btnButton._Default
loc_00878346: btnButton.Height = global_41F00000
loc_00878392: 1 = picAnim._Default
loc_008783B3: picAnim.Width = global_41C80000
loc_008783FF: 1 = picAnim._Default
loc_00878420: picAnim.Height = global_41C00000
loc_0087846B: lblVersionInfo.Top = global_43250000
loc_008784A8: lblVersionInfo.Left = global_43060000
loc_008784C7: GoTo loc_008784DD
loc_008784DC: Exit Sub
loc_008784DD: 'Referenced from: 008784C7
End Sub
Public Sub highLightCheck() '878500
Dim Me As Me
loc_0087853E: If Me.GetPalette 'Ignore this = 0 Then
loc_00878545: If esi+0000003Ah = 0 Then GoTo loc_00878566
loc_00878547: End If
loc_0087854A: var_eax = about.resetHighLights
loc_00878566:
End Sub
Public Sub resetHighLights() '878CA0
loc_00878CE2: var_eax = about.drawDefaultPics
End Sub
Public Sub drawDefaultPics() '879780
Dim Me As Variant
Dim var_50 As Me
Dim var_2C As PictureBox
Dim var_38 As PictureBox
Dim var_34 As PictureBox
loc_008797F1: 1 = btnButton._Default
loc_00879813: var_50 = var_34
loc_00879830: var_eax = Unknown_VTable_Call[ecx+00000354h]
loc_0087984A: var_2C = buttons.hWnd
loc_0087987F: buttons.BackColor = var_38
loc_008798C2: If 00000001h <= 1 Then
loc_008798CC: var_eax = about.drawDefaultPic(1)
loc_00879906: 1 = picAnim._Default
loc_0087992A: var_1C = picAnim.Tag
loc_00879978: esi = (Right$(var_1C, 1) = global_0040F164) + 1
loc_0087999A: var_eax = Unknown_8BE84589(var_2C, var_28, about.drawDefaultPic(1), Me, var_38)
loc_008799BE: 1 = picAnim._Default
loc_008799E2: var_1C = picAnim.Tag
loc_00879A1E: 1 = picAnim._Default
loc_00879A5A: var_18 = picAnim._Default
loc_00879A7E: var_20 = picAnim.Tag
loc_00879AA8: Len(var_20) = Len(var_20) - 00000001h
loc_00879AC1: var_24 = Left$(var_1C, Len(var_20))
loc_00879AC9: picAnim.Tag = var_24
loc_00879B26: 00000001h = 00000001h + var_18
loc_00879B2B: var_18 = 00000001h+var_18
loc_00879B30: var_eax = Unknown_26D(var_34, var_30, Me)
loc_00879B35: End If
loc_00879B40: GoTo loc_00879B7A
loc_00879B79: Exit Sub
loc_00879B7A: 'Referenced from: 00879B40
loc_00879B7A: Exit Sub
End Sub
Public Sub drawDefaultPic(X) '879BA0
loc_00879C04: X = picAnim._Default
loc_00879C3F: var_eax = about.drawFrame(var_20, var_24)
loc_00879C73: GoTo loc_00879C8D
loc_00879C8C: Exit Sub
loc_00879C8D: 'Referenced from: 00879C73
End Sub
Public Sub drawFrame(pic, frame) '879CB0
Dim Me As Me
loc_00879D0B: var_18 = Me.Visible
loc_00879D32: var_3C = var_18
loc_00879D4B: If (var_3C = "ok") Then
loc_00879D5A: If (var_3C <> "oka") <> 0 Then GoTo loc_00879E37
loc_00879D60: End If
loc_00879D81: var_eax = Unknown_VTable_Call[ecx+00000330h]
loc_00879DE3: frame = frame - 0001h
loc_00879DEF: frame = frame * 0019h
loc_00879E05: var_eax = Proc_9_0_843110(var_20, var_24, ebx)
loc_00879E37:
loc_00879E3C: GoTo loc_00879E63
loc_00879E62: Exit Sub
loc_00879E63: 'Referenced from: 00879E3C
loc_00879E6C: Exit Sub
End Sub
Public Sub drawAnimations() '879EA0
Dim Me As Variant
Dim var_28 As PictureBox
loc_00879F19: If global_886000 = 0 Then
loc_00879F1E: GoTo loc_00879F28
loc_00879F20: End If
loc_00879F23: call _adj_fdiv_m32
loc_00879F28: 'Referenced from: 00879F1E
loc_00879F42: var_5C = var_58
loc_00879F77: If var_18 <= 1 Then
loc_00879F9E: var_18 = picAnim._Default
loc_00879FBE: var_1C = picAnim.Tag
loc_0087A008: esi = (Right$(var_1C, 1) = global_0040F164) + 1
loc_0087A02A: var_eax = Unknown_E845896A(var_28, var_24)
loc_0087A051: var_18 = picAnim._Default
loc_0087A085: var_eax = about.drawFrame(var_2C, Me(16))
loc_0087A0B5: 00000001h = 00000001h + var_18
loc_0087A0BB: var_18 = 00000001h+var_18
loc_0087A0BE: var_eax = Unknown_1468F(var_2C, var_28, var_28, var_24)
loc_0087A0C3: End If
loc_0087A0C3: End If
loc_0087A0C8: If edi+0000003Ch > 39 Then
loc_0087A0D0: End If
loc_0087A0D6: GoTo loc_0087A100
loc_0087A0FF: Exit Sub
loc_0087A100: 'Referenced from: 0087A0D6
loc_0087A100: Exit Sub
End Sub
Public Sub Proc_20_16_878DE0
loc_00878DE8: var_eax = Me.1788
End Sub
BIN
View File
Binary file not shown.
+18
View File
@@ -0,0 +1,18 @@
VERSION 5.00
Begin VB.Form buttons
Caption = "OH MY!!"
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
'Icon = n/a
LinkTopic = "Form1"
Visible = 0 'False
Tag = "buttons"
ClientLeft = 60
ClientTop = 900
ClientWidth = 15240
ClientHeight = 10140
End
Attribute VB_Name = "buttons"
+882
View File
@@ -0,0 +1,882 @@
VERSION 5.00
Begin VB.Form challengeOptions
BackColor = &H800000&
WindowState = 2
ScaleMode = 3
AutoRedraw = True
FontTransparent = True
Picture = "challengeOptions.frx":0
BorderStyle = 0 'None
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Tag = "randomoptions"
KeyPreview = -1 'True
ClientLeft = 3165
ClientTop = 1545
ClientWidth = 9600
ClientHeight = 8625
ShowInTaskbar = 0 'False
Begin PictureBox rotateDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 7560
Top = 360
Width = 1725
Height = 1725
Visible = 0 'False
TabIndex = 20
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin TextBox txtLevel
BackColor = &H400000&
ForeColor = &HFF&
Left = 1050
Top = 3870
Width = 765
Height = 270
MousePointer = 3 'I-Beam
Text = "1"
TabIndex = 18
MaxLength = 5
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 1
ForeColor = &H80000008&
Left = 810
Top = 3120
Width = 150
Height = 210
TabIndex = 16
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "left"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 2
ForeColor = &H80000008&
Left = 3285
Top = 3120
Width = 150
Height = 210
TabIndex = 15
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "right"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 3
ForeColor = &H80000008&
Left = 795
Top = 3900
Width = 150
Height = 210
TabIndex = 14
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "left"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 4
ForeColor = &H80000008&
Left = 3315
Top = 3900
Width = 150
Height = 210
TabIndex = 13
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "right"
Appearance = 0 'Flat
End
Begin PictureBox animDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 150
Top = 90
Width = 2835
Height = 690
Visible = 0 'False
TabIndex = 12
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 2
ForeColor = &H80000008&
Left = 8280
Top = 6675
Width = 1200
Height = 450
TabIndex = 9
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 10
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 11
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "back"
Appearance = 0 'Flat
End
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 1
ForeColor = &H80000008&
Left = 6960
Top = 6675
Width = 1200
Height = 450
TabIndex = 8
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 9
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 10
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "play"
Appearance = 0 'Flat
End
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 6
ForeColor = &H80000008&
Left = 3330
Top = 4665
Width = 150
Height = 210
TabIndex = 7
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "right"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 7
ForeColor = &H80000008&
Left = 810
Top = 5445
Width = 150
Height = 210
TabIndex = 6
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "left"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 8
ForeColor = &H80000008&
Left = 3330
Top = 5445
Width = 150
Height = 210
TabIndex = 5
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "right"
Appearance = 0 'Flat
End
Begin PictureBox picAnim
BackColor = &H800000&
Index = 5
ForeColor = &H80000008&
Left = 810
Top = 4665
Width = 150
Height = 210
TabIndex = 4
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "left"
Appearance = 0 'Flat
End
Begin PictureBox display
BackColor = &H410514&
ForeColor = &H80000008&
Left = 3645
Top = 2820
Width = 5685
Height = 2895
TabIndex = 2
ScaleMode = 0
ScaleLeft = -100
ScaleTop = -100
ScaleWidth = 262.285
ScaleHeight = 143.498
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin PictureBox work
BackColor = &H450A1A&
ForeColor = &H80000008&
Left = 3480
Top = 7560
Width = 3195
Height = 3135
Visible = 0 'False
TabIndex = 1
ScaleMode = 0
ScaleLeft = -100
ScaleTop = -100
ScaleWidth = 147.405
ScaleHeight = 155.39
AutoRedraw = True
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin Timer tmrMainLoop
Interval = 1
Left = 8340
Top = 1080
End
Begin Label lblMaxLevel
Caption = "out of 61"
ForeColor = &HFF&
Left = 1950
Top = 3900
Width = 675
Height = 180
TabIndex = 19
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Label lblDifficulty
Caption = "(Default)"
ForeColor = &HFF&
Left = 1080
Top = 3120
Width = 660
Height = 180
TabIndex = 17
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Image arrowExtender
Index = 1
Left = 330
Top = 3090
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 2
Left = 3015
Top = 3090
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 3
Left = 360
Top = 3870
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 4
Left = 3045
Top = 3870
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 6
Left = 3060
Top = 4635
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 5
Left = 375
Top = 4635
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 8
Left = 3030
Top = 5400
Width = 825
Height = 300
End
Begin Image arrowExtender
Index = 7
Left = 405
Top = 5415
Width = 825
Height = 300
End
Begin Label lblBackground
Caption = "(HeHe)"
ForeColor = &HFF&
Left = 1080
Top = 5445
Width = 540
Height = 180
TabIndex = 3
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin Label lblPieceSet
Caption = "(Default)"
ForeColor = &HFF&
Left = 1080
Top = 4665
Width = 660
Height = 180
TabIndex = 0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Verdana"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "challengeOptions"
Private Sub arrowExtender_Click() '87B650
loc_0087B6BF: arg_C = picAnim._Default
loc_0087B6ED: var_20 = picAnim.Visible
loc_0087B720: If var_20 Then
loc_0087B729: var_eax = challengeOptions.picAnim_Click
loc_0087B741: End If
loc_0087B74D: GoTo loc_0087B763
loc_0087B762: Exit Sub
loc_0087B763: 'Referenced from: 0087B74D
End Sub
Private Sub arrowExtender_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '87B790
loc_0087B808: Button = picAnim._Default
loc_0087B82C: var_20 = picAnim.Visible
loc_0087B863: If var_20 Then
loc_0087B888: var_eax = challengeOptions.picAnim_MouseMove(Button, var_20, var_24, var_28)
loc_0087B8A4: End If
loc_0087B8AD: GoTo loc_0087B8C3
loc_0087B8C2: Exit Sub
loc_0087B8C3: 'Referenced from: 0087B8AD
End Sub
Private Sub tmrMainLoop_Timer() '87DED0
Dim Me As Me
Dim var_2C As Timer
Dim var_4C As Timer
loc_0087DF3B: tmrMainLoop.Enabled = ebx
loc_0087DF63: var_eax = challengeOptions.VTable_00000718
loc_0087DF85: var_eax = Proc_86B860(Me, var_2C, Me)
loc_0087DF8A:
loc_0087DF8E: var_eax = QueryPerformanceCounter(var_24)
loc_0087DFA0:
loc_0087DFAE: If 00000001h <= 4 Then
loc_0087DFC5: var_eax = Proc_10_11_84A820(var_2C, var_2C, 4)
loc_0087DFD6: 00000001h = 00000001h + 00000001h
loc_0087DFE1: GoTo loc_0087DFA0
loc_0087DFF8: var_eax = Proc_12_46_86D7E0(var_2C, var_2C, 00000001h+00000001h)
loc_0087E009: var_eax = challengeOptions.VTable_00000708
loc_0087E02B: If esi+00000036h Then
loc_0087E030: var_eax = challengeOptions.VTable_00000714
loc_0087E04C: End If
loc_0087E050: var_eax = QueryPerformanceCounter(var_1C)
loc_0087E06B: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, Me, Me, global_0040C7EC, Me, edi, Me, 00000001h)
loc_0087E073: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, Me, Me, global_0040C7EC, Me, edi, Me, 00000001h), var_18)
loc_0087E085: var_4C = __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, Me, Me, global_0040C7EC, Me, edi, Me, 00000001h), var_18)
loc_0087E08A: call __vbaR8Cy(global_008860D8, global_008860DC)
loc_0087E097: If global_886000 = 0 Then
loc_0087E099: fdivr st0, var_4C
loc_0087E09C: GoTo loc_0087E0A9
loc_0087E09E: End If
loc_0087E0A9: 'Referenced from: 0087E09C
loc_0087E0A9: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC)
loc_0087E0D0: If Err.Number Then
loc_0087E0D2: global_8860D4 = 3DCCCCCDh
loc_0087E0DC: End If
loc_0087E0E3: If global_886054 Then
loc_0087E0F2: End If
loc_0087E0F6: If esi+0000003Ch = 0 Then GoTo loc_0087DF8A
loc_0087E103: var_eax = challengeOptions.VTable_00000750
loc_0087E116: GoTo loc_0087E122
loc_0087E121: Exit Sub
loc_0087E122: 'Referenced from: 0087E116
loc_0087E122: Exit Sub
End Sub
Private Sub picAnim_Click() '87CB40
Dim Me As Me
loc_0087CB89: var_eax = Proc_9_20_8476B0(1, Me, ebx)
loc_0087CB97: ecx = arg_C - 1
loc_0087CB9B: If arg_C - 1 <= 0 Then
loc_0087CBA1: GoTo loc_[ecx*4+0087D0DCh]
loc_0087CBAF: If global_886010 = 1 Then
loc_0087CBB8: var_eax = challengeOptions.VTable_0000073C
loc_0087CBD6: GoTo loc_0087CC14
loc_0087CBDE: If Me.GetPalette 'Ignore this Then
loc_0087CBE0: ecx = Me.GetPalette 'Ignore this - 1
loc_0087CBE1: If ecx Then
loc_0087CBE3: ecx = Me.GetPalette 'Ignore this - 1 - 1
loc_0087CBE4: If ecx <> 0 Then GoTo loc_0087CC0E
loc_0087CBEB: If challengeOptions.VTable_0000073C = 0 Then ecx = 1
loc_0087CBF2: GoTo loc_0087CC0E
loc_0087CBF4: End If
loc_0087CBF4: eax = challengeOptions.VTable_0000073C - 1
loc_0087CBFE: GoTo loc_0087CC0A
loc_0087CC00: End If
loc_0087CC00: eax = challengeOptions.VTable_0000073C - 1 And 2 - 1
loc_0087CC07: challengeOptions.VTable_0000073C - 1 And 2 - 1 = challengeOptions.VTable_0000073C - 1 And 2 - 1 + 00000002h
loc_0087CC0A: 'Referenced from: 0087CBFE
loc_0087CC0E: 'Referenced from: 0087CBF2
loc_0087CC14: 'Referenced from: 0087CBD6
loc_0087CC17: var_eax = challengeOptions.VTable_0000073C
loc_0087CC32: var_eax = challengeOptions.VTable_00000734
loc_0087CC4D: var_eax = challengeOptions.VTable_0000074C
loc_0087CC65: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087CC6D: var_eax = challengeOptions.VTable_00000704
loc_0087CC83:
loc_0087CC85:
loc_0087CC88: var_eax = challengeOptions.VTable_00000730
loc_0087CCE6: var_eax = challengeOptions.VTable_00000740
loc_0087CD01: var_eax = challengeOptions.VTable_00000734
loc_0087CD1C: var_eax = challengeOptions.VTable_0000074C
loc_0087CD34: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087CD3C: var_eax = challengeOptions.VTable_00000704
loc_0087CD57: var_eax = challengeOptions.VTable_00000730
loc_0087CDB5: var_eax = challengeOptions.VTable_00000740
loc_0087CDD0: var_eax = challengeOptions.VTable_00000734
loc_0087CDEB: var_eax = challengeOptions.VTable_0000074C
loc_0087CE03: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087CE0B: var_eax = challengeOptions.VTable_00000704
loc_0087CE26: var_eax = challengeOptions.VTable_00000730
loc_0087CE42: GoTo loc_0087D09C
loc_0087CE4D: global_8861A2 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CE54: 008861A0h = 008861A0h - %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CE60: global_8861A0 = global_008861A0
loc_0087CE66: If 008861A0h = 0 Then
loc_0087CE6E: global_8861A0 = global_00886038
loc_0087CE74: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087CE7C: var_eax = challengeOptions.VTable_00000730
loc_0087CEA5: var_eax = challengeOptions.VTable_00000720
loc_0087CEC0: var_eax = challengeOptions.VTable_0000074C
loc_0087CEDC: GoTo loc_0087D09C
loc_0087CEEE: 008861A0h = 008861A0h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CEF1: global_8861A2 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CEFE: 00886038h = 00886038h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CF01: global_8861A0 = 008861A0h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CF10: If 008861A0h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) = 0 Then
loc_0087CF12: global_8861A0 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CF19: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087CF21: var_eax = challengeOptions.VTable_00000730
loc_0087CF4A: var_eax = challengeOptions.VTable_00000720
loc_0087CF65: var_eax = challengeOptions.VTable_0000074C
loc_0087CF81: GoTo loc_0087D09C
loc_0087CF8C: 008861A2h = 008861A2h - %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CF99: global_8861A2 = global_008861A2
loc_0087CF9F: If 008861A2h = var_FFFFFF Then
loc_0087CFA1: global_8861A2 = 6
loc_0087CFAD: var_eax = challengeOptions.VTable_00000720
loc_0087CFB5: If challengeOptions.VTable_00000720 < 0 Then
loc_0087CFC9: GoTo loc_0087CC83
loc_0087CFCE: End If
loc_0087CFD4: GoTo loc_0087CC85
loc_0087CFDF: 008861A2h = 008861A2h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CFEC: global_8861A2 = 008861A2h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087CFF2: If 008861A2h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) = 0 Then
loc_0087CFFB: End If
loc_0087CFFE: var_eax = challengeOptions.VTable_00000720
loc_0087D039: GoTo loc_0087CC8E
loc_0087D045: var_18 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)
loc_0087D048: var_eax = challengeOptions.btnButton_Click
loc_0087D094: GoTo loc_0087D09C
loc_0087D096: End If
loc_0087D096: End If
loc_0087D096: End If
loc_0087D09C: End If
loc_0087D09C: End If
loc_0087D09C: End If
loc_0087D09C: End If
loc_0087D09C: End If
loc_0087D09F: var_eax = challengeOptions.VTable_0000071C
End Sub
Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '87D110
Dim var_28 As PictureBox
Dim var_48 As PictureBox
loc_0087D19D: Button = picAnim._Default
loc_0087D1CC: var_18 = picAnim.Tag
loc_0087D20E: Button = picAnim._Default
loc_0087D232: var_1C = picAnim.Tag
loc_0087D273: Button = picAnim._Default
loc_0087D293: var_20 = picAnim.Tag
loc_0087D2D1: Button = picAnim._Default
loc_0087D2F1: var_24 = picAnim.Tag
loc_0087D324: edi = (var_24 = "backa") + 1
loc_0087D33A: eax = (var_20 = "playa") + 1
loc_0087D34E: eax = (var_1C = "righta") + 1
loc_0087D369: eax = (var_18 = "lefta") + 1
loc_0087D3B1: If (var_18 = "lefta") + 1 = 0 Then
loc_0087D3DA:
loc_0087D3E7: If Err.Number Then
loc_0087D3FF: var_A0 = Button
loc_0087D412: If Err.Number Then
loc_0087D44E: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D46E: var_18 = picAnim.Tag
loc_0087D4A0: edi = (var_18 = "left") + 1
loc_0087D4BF: If (var_18 = "left") + 1 Then
loc_0087D4ED: var_A8 = var_28
loc_0087D4FE: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D51F: picAnim.Tag = "lefta"
loc_0087D553: End If
loc_0087D56C: var_48 = var_28
loc_0087D582: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D5A2: var_18 = picAnim.Tag
loc_0087D5D4: edi = (var_18 = "right") + 1
loc_0087D5F3: If (var_18 = "right") + 1 Then
loc_0087D628: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D649: picAnim.Tag = "righta"
loc_0087D67D: End If
loc_0087D699: var_48 = var_28
loc_0087D6A5: var_B4 = var_28
loc_0087D6B6: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D6D6: var_18 = picAnim.Tag
loc_0087D708: edi = (var_18 = "play") + 1
loc_0087D727: If (var_18 = "play") + 1 Then
loc_0087D75C: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D77D: picAnim.Tag = "playa"
loc_0087D7B1: End If
loc_0087D7CD: var_48 = var_28
loc_0087D7D9: var_BC = var_28
loc_0087D7EA: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D80A: var_18 = picAnim.Tag
loc_0087D83C: edi = (var_18 = "back") + 1
loc_0087D85B: If (var_18 = "back") + 1 Then
loc_0087D890: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D8B1: picAnim.Tag = "backa"
loc_0087D8E5: GoTo loc_0087DE37
loc_0087D8EA: End If
loc_0087D906: var_48 = var_28
loc_0087D909: var_C4 = var_28
loc_0087D920: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D940: var_18 = picAnim.Tag
loc_0087D972: edi = (var_18 = "lefta") + 1
loc_0087D991: If (var_18 = "lefta") + 1 Then
loc_0087D9C6: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087D9E7: picAnim.Tag = "left"
loc_0087DA23: var_eax = challengeOptions.VTable_0000070C
loc_0087DA3B: End If
loc_0087DA6A: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DA8A: var_18 = picAnim.Tag
loc_0087DABC: edi = (var_18 = "righta") + 1
loc_0087DADB: If (var_18 = "righta") + 1 Then
loc_0087DB09: var_D0 = var_28
loc_0087DB1A: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DB3B: picAnim.Tag = "right"
loc_0087DB77: var_eax = challengeOptions.VTable_0000070C
loc_0087DB8F: End If
loc_0087DBAB: var_48 = var_28
loc_0087DBB7: var_D4 = var_28
loc_0087DBC8: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DBE8: var_18 = picAnim.Tag
loc_0087DC1A: edi = (var_18 = "playa") + 1
loc_0087DC39: If (var_18 = "playa") + 1 Then
loc_0087DC6E: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DC8F: picAnim.Tag = "play"
loc_0087DCCB: var_eax = challengeOptions.VTable_0000070C
loc_0087DCE3: End If
loc_0087DD12: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DD32: var_18 = picAnim.Tag
loc_0087DD64: edi = (var_18 = "backa") + 1
loc_0087DD83: If (var_18 = "backa") + 1 Then
loc_0087DDB1: var_E0 = var_28
loc_0087DDC2: CInt(6.37066138261923E-314) = picAnim._Default
loc_0087DDE3: picAnim.Tag = "back"
loc_0087DE1F: var_eax = challengeOptions.VTable_0000070C
loc_0087DE37:
loc_0087DE37: End If
loc_0087DE37: End If
loc_0087DE4C: GoTo loc_0087D3DA
loc_0087DE51: End If
loc_0087DE51: End If
loc_0087DE5E: GoTo loc_0087DEA4
loc_0087DEA3: Exit Sub
loc_0087DEA4: 'Referenced from: 0087DE5E
loc_0087DEA4: Exit Sub
End Sub
Private Sub btnButton_Click() '87B8F0
loc_0087B95F: arg_C = btnButton._Default
loc_0087B983: var_20 = btnButton.Visible
loc_0087B9AD: If var_20 = 0 Then eax = 1
loc_0087B9C4: If eax = 0 Then
loc_0087B9D6: End If
loc_0087B9DE: GoTo loc_0087B9F4
loc_0087B9F3: Exit Sub
loc_0087B9F4: 'Referenced from: 0087B9DE
End Sub
Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '87BA20
loc_0087BA70: Button = Button + 0008h
loc_0087BAA3: var_eax = challengeOptions.picAnim_MouseMove(var_18, var_1C, var_20, var_24)
End Sub
Private Sub Form_Load() '87BE20
Dim Me As Variant
Dim var_18 As Variant
Dim var_1C As Variant
Dim var_6C As PictureBox
Dim global_00886072 As PictureBox
Dim var_74 As PictureBox
loc_0087BE9D: var_18 = Global.Screen
loc_0087BECB: var_64 = Global.Width
loc_0087BF0B: var_1C = Global.Screen
loc_0087BF2B: var_68 = Global.Height
loc_0087BF9E: var_eax = Unknown_VTable_Call[edi+000002A4h]
loc_0087BFEE: var_eax = Proc_12_45_86D280(var_18, var_18, Unknown_VTable_Call[edi+000002A4h])
loc_0087BFFF: var_eax = challengeOptions.VTable_000006F8
loc_0087C032: var_eax = Proc_12_43_86D100(var_2C, var_18, var_18)
loc_0087C074: work.ForeColor = RGB(180, 30, 70)
loc_0087C0DA: var_eax = Proc_12_47_86E570(var_18, var_18, global_008868BC)
loc_0087C10A: var_eax = Proc_12_25_868460(4, global_008868BC, var_18)
loc_0087C122: If global_886010 = 1 Then
loc_0087C130: End If
loc_0087C133: var_eax = challengeOptions.VTable_0000073C
loc_0087C14E: var_eax = challengeOptions.VTable_00000734
loc_0087C166: global_886124 = FFFFFFh
loc_0087C172: var_eax = challengeOptions.VTable_00000748
loc_0087C18A: var_eax = Proc_9_10_844CB0(Me, Me, Me)
loc_0087C192: var_eax = challengeOptions.VTable_00000720
loc_0087C1AD: var_eax = challengeOptions.VTable_000006FC
loc_0087C1C8: var_eax = challengeOptions.VTable_0000071C
loc_0087C1E0: var_eax = Proc_84A1B0(Me, Me, Me)
loc_0087C1FF: var_64 = display.Width
loc_0087C228: global_886070 = CInt(var_64)
loc_0087C24E: var_64 = display.Height
loc_0087C277: global_886072 = CInt(var_64)
loc_0087C2B9: work.Width = global_00886070
loc_0087C315: work.Height = global_00886072
loc_0087C354: Set work.Top = work.Top = %x1s = var_18
loc_0087C371: call Proc_10_13_84B1F0(work.Top = %x1s, global_00886070, Me)
loc_0087C38E: var_6C = work.Top = %x1s
loc_0087C391: display.ScaleLeft = global_C2C80000
loc_0087C3D2: display.ScaleWidth = global_43480000
loc_0087C426: var_B4 = global_00886072
loc_0087C439: var_6C = var_18
loc_0087C43C: var_C0 = global_00886070
loc_0087C44F: If global_886000 = 0 Then
loc_0087C457: GoTo loc_0087C46A
loc_0087C459: End If
loc_0087C46A: 'Referenced from: 0087C457
loc_0087C48A: display.ScaleTop = ((var_B4 / var_C0) * global_401680)
loc_0087C4DE: var_D0 = global_00886072
loc_0087C4F1: var_6C = var_18
loc_0087C4F4: var_DC = global_00886070
loc_0087C507: If global_886000 = 0 Then
loc_0087C50F: GoTo loc_0087C522
loc_0087C511: End If
loc_0087C522: 'Referenced from: 0087C50F
loc_0087C542: display.ScaleHeight = ((var_D0 / var_DC) * global_401678)
loc_0087C57B: var_74 = var_1C
loc_0087C595: var_64 = display.ScaleLeft
loc_0087C5BC: display.ScaleLeft = var_64
loc_0087C5FF: var_74 = var_1C
loc_0087C619: var_64 = display.ScaleWidth
loc_0087C640: display.ScaleWidth = var_64
loc_0087C683: var_74 = var_1C
loc_0087C69D: var_64 = display.ScaleTop
loc_0087C6C4: display.ScaleTop = var_64
loc_0087C707: var_74 = var_1C
loc_0087C721: var_64 = display.ScaleHeight
loc_0087C748: display.ScaleHeight = var_64
loc_0087C79D: work.DrawWidth = CInt(1)
loc_0087C7C3: var_eax = challengeOptions.VTable_00000704
loc_0087C7DE: var_eax = challengeOptions.VTable_00000730
loc_0087C7F9: var_eax = challengeOptions.VTable_0000074C
loc_0087C81E: GoTo loc_0087C83D
loc_0087C83C: Exit Sub
loc_0087C83D: 'Referenced from: 0087C81E
loc_0087C83D: Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer) '87CA10
Dim Me As Me
Dim var_18 As Me
loc_0087CA7B: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18)
loc_0087CAA7: Set %x1 = Me.Top = var_18
loc_0087CACB: Set Me.Top = Me.Top = %x1s = %x1 = Me.Top
loc_0087CADD: var_eax = challengeOptions.VTable_00000744
loc_0087CB05: GoTo loc_0087CB1A
loc_0087CB19: Exit Sub
loc_0087CB1A: 'Referenced from: 0087CB05
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '87BC00
Dim Me As Variant
loc_0087BC52: If KeyCode = 123 Then
loc_0087BC54: var_eax = Proc_12_18_864A90(edi, Me, ebx)
loc_0087BC59: GoTo loc_0087BD3B
loc_0087BC5E: End If
loc_0087BC7D: 1 = btnButton._Default
loc_0087BCAB: var_20 = btnButton.Visible
loc_0087BCD5: If var_20 = 13 Then eax = 1
loc_0087BCF0: If var_20 Then
loc_0087BD00: var_eax = challengeOptions.btnButton_Click
loc_0087BD08: If challengeOptions.btnButton_Click >= 0 Then GoTo loc_0087BD3B
loc_0087BD0A: GoTo loc_0087BD2D
loc_0087BD0C: End If
loc_0087BD13: If KeyCode <> 27 Then GoTo loc_0087BD3B
loc_0087BD23: var_eax = challengeOptions.btnButton_Click
loc_0087BD2B: If challengeOptions.btnButton_Click >= 0 Then GoTo loc_0087BD3B
loc_0087BD2D: 'Referenced from: 0087BD0A
loc_0087BD39: challengeOptions.btnButton_Click = CheckObj(Me, global_0040EDD0, 1884)
loc_0087BD3B: 'Referenced from: 0087BC59
loc_0087BD47: GoTo loc_0087BD5D
loc_0087BD5C: Exit Sub
loc_0087BD5D: 'Referenced from: 0087BD47
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '87BD80
loc_0087BDCC: If KeyAscii = 13 Then
loc_0087BDDC: var_eax = challengeOptions.btnButton_Click
loc_0087BDF8: End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '87C980
loc_0087C9C3: var_eax = challengeOptions.VTable_00000700
End Sub
Private Sub txtLevel_Change() '8839F0
loc_00883A55: var_18 = txtLevel.Text
loc_00883A9C: var_eax = challengeOptions.VTable_00000738
loc_00883AC1: GoTo loc_00883AD6
loc_00883AD5: Exit Sub
loc_00883AD6: 'Referenced from: 00883AC1
End Sub
Private Sub txtLevel_LostFocus() '883B00
loc_00883B65: var_18 = txtLevel.Text
loc_00883BB6: var_eax = challengeOptions.VTable_00000738
loc_00883BD1: var_eax = challengeOptions.VTable_0000071C
loc_00883BEC: var_eax = challengeOptions.VTable_0000074C
loc_00883C0D: GoTo loc_00883C22
loc_00883C21: Exit Sub
loc_00883C22: 'Referenced from: 00883C0D
End Sub
Private Sub txtLevel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '8849A0
loc_008849E3: var_eax = challengeOptions.VTable_00000700
End Sub
Private Sub display_Click() '87BAF0
Dim Me As Me
loc_0087BB30: var_eax = Proc_9_20_8476B0(edi, Me, ebx)
End Sub
Private Sub display_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '87BB70
loc_0087BBB3: var_eax = challengeOptions.VTable_00000700
End Sub
Binary file not shown.
File diff suppressed because it is too large. Load diff
Binary file not shown.
+369
View File
@@ -0,0 +1,369 @@
VERSION 5.00
Begin VB.Form frmMain
BackColor = &H0&
WindowState = 2
MousePointer = 99 'Custom
ScaleMode = 3
AutoRedraw = True
FontTransparent = True
BorderStyle = 0 'None
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ControlBox = 0 'False
Tag = "main"
KeyPreview = -1 'True
ClientLeft = 5595
ClientTop = 2790
ClientWidth = 7560
ClientHeight = 6690
MouseIcon = "frmMain.frx":0
ShowInTaskbar = 0 'False
Moveable = 0 'False
Begin Timer tmrActivate
Interval = 1
Left = 4080
Top = 1140
End
Begin Label devLabel
Caption = "Main"
BackColor = &H0&
ForeColor = &HFFFFFF&
Left = 1200
Top = 780
Width = 1290
Height = 690
Visible = 0 'False
TabIndex = 0
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 30
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmMain"
Private Sub Form_Load() '824760
Dim Me As Me
loc_008247C7: var_eax = Proc_12_43_86D100(var_28, var_18, var_18)
loc_00824849: Me.Move edi, , var_34, 0
loc_00824867: var_eax = Proc_12_20_865570(var_2C, 2, var_44)
loc_0082487C: GoTo loc_00824891
loc_00824890: Exit Sub
loc_00824891: 'Referenced from: 0082487C
End Sub
Private Sub Form_Unload(Cancel As Integer) '824A60
loc_00824AC7: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18)
loc_00824ADE: global_886128 = FFFFFFh
loc_00824AEF: GoTo loc_00824B04
loc_00824B03: Exit Sub
loc_00824B04: 'Referenced from: 00824AEF
End Sub
Private Sub Form_Deactivate() '823D20
loc_00823DAA: var_eax = Unknown_VTable_Call[ecx+0000030Ch]
loc_00823DC6: var_1C = frmMain.hWnd
loc_00823DF3: frmMain.MouseIcon = var_1C
loc_00823E30: GoTo loc_00823E4A
loc_00823E49: Exit Sub
loc_00823E4A: 'Referenced from: 00823E30
End Sub
Private Sub Form_DblClick() '823C50
loc_00823CB1: var_24 = global_008860EC
loc_00823CCD: var_20 = global_008860EA
loc_00823CD7: var_eax = frmMain.Form_MouseDown(var_18, var_1C, var_20, var_24)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '8245F0
loc_00824637: If global_8860E0 Then
loc_00824644: If Shift = 4 Then
loc_00824650: If KeyCode = 82 Then GoTo loc_0082472B
loc_0082465A: If KeyCode <> 88 Then GoTo loc_00824730
loc_00824660: var_eax = Proc_867740(edi, esi, ebx)
loc_00824665: GoTo loc_00824730
loc_0082466A: End If
loc_00824674: If KeyCode = 83 Then
loc_00824676: global_8860EE = FFFFFFh
loc_0082467F: GoTo loc_00824730
loc_00824684: End If
loc_00824688: If KeyCode = 112 Then
loc_00824692: If global_8861A2 = 0 Then GoTo loc_00824730
loc_008246A1: global_88611A = Not (0088611Ah)
loc_008246A7: GoTo loc_00824730
loc_008246AC: End If
loc_008246B0: If Not (0088611Ah) = 0 Then
loc_008246BC: global_886126 = Not (00886126h)
loc_008246C3: GoTo loc_00824730
loc_008246C5: End If
loc_008246C9: If Not (0088611Ah) = 0 Then
loc_008246D3: If global_886010 <> 2 Then GoTo loc_00824730
loc_008246D5: var_eax = Proc_9_12_845740(, , fs:[00000000h])
loc_008246DA: var_eax = Proc_12_18_864A90(, , )
loc_008246DF: GoTo loc_00824730
loc_008246E1: End If
loc_008246E5: If Proc_12_18_864A90(, , ) = 0 Then
loc_008246E7: global_8860F4 = FFFFFFh
loc_008246F0: GoTo loc_00824730
loc_008246F2: End If
loc_008246F6: If Proc_12_18_864A90(, , ) = 0 Then
loc_008246F8: global_8860F0 = FFFFFFh
loc_00824701: GoTo loc_00824730
loc_00824703: End If
loc_00824707: If Proc_12_18_864A90(, , ) = 0 Then
loc_00824709: global_8860F6 = FFFFFFh
loc_00824712: GoTo loc_00824730
loc_00824714: End If
loc_00824718: If Proc_12_18_864A90(, , ) = 0 Then
loc_0082471A: global_8860F2 = FFFFFFh
loc_00824723: GoTo loc_00824730
loc_00824725: End If
loc_00824729: If Proc_12_18_864A90(, , ) = 0 Then
loc_0082472B: var_eax = Proc_8676E0()
loc_00824730: End If
loc_00824730: End If
loc_00824730:
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '823E70
loc_00823EC1: If global_8860E0 Then
loc_00823EED: var_20 = LCase$(Chr$(KeyAscii))
loc_00823F0B: If (var_20 = global_0040EBD8) = 0 Then
loc_00823F0D: call Proc_854AB0(0, @(%StkVar2 = %x1), ebx)
loc_00823F12: GoTo loc_00823FA2
loc_00823F17: End If
loc_00823F24: If (var_20 = global_0040EA74) = 0 Then
loc_00823F31: GoTo loc_00823F9D
loc_00823F33: End If
loc_00823F40: If (var_20 = global_0040EA7C) = 0 Then
loc_00823F49: GoTo loc_00823F99
loc_00823F4B: End If
loc_00823F58: If (var_20 = global_0040EA84) = 0 Then
loc_00823F65: GoTo loc_00823F9D
loc_00823F67: End If
loc_00823F74: If (var_20 = global_0040EA8C) = 0 Then
loc_00823F81: GoTo loc_00823F9D
loc_00823F83: End If
loc_00823F90: If (var_20 <> global_0040E8E0) <> 0 Then GoTo loc_00823FA2
loc_00823F99: 'Referenced from: 00823F49
loc_00823F9D: 'Referenced from: 00823F31
loc_00823F9D: var_eax = Proc_12_22_866FA0(var_1C, var_1C, var_1C)
loc_00823FA2: End If
loc_00823FAA: GoTo loc_00823FB6
loc_00823FB5: Exit Sub
loc_00823FB6: 'Referenced from: 00823FAA
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) '823FE0
loc_00824029: If KeyCode = 83 Then
loc_0082402B: global_8860EE = 0
loc_00824034: GoTo loc_00824078
loc_00824036: End If
loc_0082403A: If KeyCode = 37 Then
loc_0082403C: global_8860F4 = 0
loc_00824045: GoTo loc_00824078
loc_00824047: End If
loc_0082404B: If KeyCode = 38 Then
loc_0082404D: global_8860F0 = 0
loc_00824056: GoTo loc_00824078
loc_00824058: End If
loc_0082405C: If KeyCode = 39 Then
loc_0082405E: global_8860F6 = 0
loc_00824067: GoTo loc_00824078
loc_00824069: End If
loc_0082406D: If KeyCode = 40 Then
loc_0082406F: global_8860F2 = 0
loc_00824078: End If
loc_00824078:
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '8240A0
Dim var_20 As Screen
loc_008240FE: If global_8860E0 Then
loc_00824118: var_58 = Button
loc_0082411B: If Button = var_886102 Then
loc_00824131: 00886070h = 00886070h + 00886074h
loc_0082413D: If 008860EAh < 0 Then
loc_00824142: If 008860EAh > var_886074 Then
loc_00824151: If 008860ECh > var_886076 Then
loc_00824155: GoTo loc_0082415C
loc_00824157: End If
loc_00824157: End If
loc_00824157: End If
loc_0082415C: 'Referenced from: 00824155
loc_00824165: 00886072h = 00886072h + 00886076h
loc_0082417B: If global_8860EC >= 0 Then ebx = 1
loc_00824180: If ebx Or 1 = 0 Then
loc_0082418B: global_8860F8 = FFFFFFh
loc_008241B5: var_20 = Global.Screen
loc_008241F1: var_eax = Unknown_VTable_Call[edx+00000310h]
loc_0082420D: var_1C = Global.FontCount
loc_0082423A: Global.MouseIcon = var_24
loc_00824289: global_8860FA = global_008860EA
loc_00824290: global_8860FC = global_008860EC
loc_0082429F: global_8860FE = CInt(global_886064)
loc_008242A7: global_886100 = CInt(global_886068)
loc_008242AF: GoTo loc_0082443F
loc_008242B4: End If
loc_008242BA: GoTo loc_008242C1
loc_008242BC: End If
loc_008242C1: 'Referenced from: 008242BA
loc_008242C8: If global_8860A0 = 0 Then
loc_008242D5: If global_8860A2 = 0 Then
loc_008242E2: If var_58 = var_886106 Then
loc_008242EB: If global_886108 = 0 Then
loc_008242FB: If 008860EAh > var_886074 Then
loc_008242FF: GoTo loc_00824306
loc_00824301: End If
loc_00824301: End If
loc_00824301: End If
loc_00824306: 'Referenced from: 008242FF
loc_0082431F: If global_8860EA >= 0 Then ebx = 1
loc_00824324: If ebx Or 1 = 0 Then
loc_00824334: If 008860ECh > var_886076 Then
loc_00824338: GoTo loc_0082433F
loc_0082433A: End If
loc_0082433A: End If
loc_0082433F: 'Referenced from: 00824338
loc_00824342: 00886072h = 00886072h + 00886076h
loc_00824358: If global_8860EC >= 0 Then ebx = 1
loc_0082435D: If ebx Or 1 = 0 Then
loc_0082437E: var_eax = Screen.1800
loc_008243B7: var_eax = Screen.1800
loc_008243D3: GoTo loc_0082443F
loc_008243EF: If 008860EAh < 0 Then
loc_008243F4: If 008860EAh > var_886074 Then
loc_00824404: If 008860ECh > var_886076 Then
loc_0082440A: GoTo loc_00824413
loc_0082440C: End If
loc_0082440C: End If
loc_0082440C: End If
loc_00824413: 'Referenced from: 0082440A
loc_00824413: Screen.1800 = Screen.1800 + 00886076h
loc_00824425: If global_8860EC >= 0 Then edx = 1
loc_0082442A: If edx Or 1 = 0 Then
loc_0082442C: var_eax = Proc_11_3_854DB0(@CInt(), global_00886104, var_28)
loc_00824431: GoTo loc_0082443F
loc_00824433: End If
loc_0082443A: var_eax = Proc_12_22_866FA0(var_28, var_2C, var_30)
loc_0082443F: End If
loc_0082443F: End If
loc_0082443F: End If
loc_0082443F: End If
loc_00824448: GoTo loc_00824466
loc_00824465: Exit Sub
loc_00824466: 'Referenced from: 00824448
loc_00824466: Exit Sub
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '824490
loc_008244D7: If global_8860E0 Then
loc_008244ED: global_8860EA = CInt(6.37066138261923E-314)
loc_008244FF: global_8860EC = CInt(6.37066138261923E-314)
loc_00824505: If global_8860F8 Then
loc_0082450E: 008860FAh = 008860FAh - 008860EAh
loc_0082451B: 008860FAh = 008860FAh + 008860FEh
loc_00824538: 008860FCh = 008860FCh - CInt(6.37066138261923E-314)
loc_00824541: 008860FCh = 008860FCh + 00886100h
loc_00824548: global_886064 = 0
loc_0082455D: global_886068 = 0
loc_00824563: var_eax = Proc_853780(Y, @CInt(), ebx)
loc_00824568: End If
loc_00824575: If Err.Number Then
loc_0082457C: GoTo loc_00824580
loc_0082457E: End If
loc_00824580: 'Referenced from: 0082457C
loc_0082458D: var_2C = global_00886076
loc_008245A1: GoTo loc_008245A5
loc_008245A3: End If
loc_008245A5: 'Referenced from: 008245A1
loc_008245A7: If eax Then
loc_008245B1: If global_8861B4 = 0 Then GoTo loc_008245B8
loc_008245B3: End If
loc_008245B3: var_eax = Proc_866B90(, , )
loc_008245B8: End If
loc_008245B8:
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '8248C0
Dim var_20 As Screen
loc_00824914: If global_8860E0 Then
loc_00824927: If Button = var_886102 Then
loc_0082495A: var_20 = Global.Screen
loc_00824996: var_eax = Unknown_VTable_Call[ecx+0000030Ch]
loc_008249B2: var_1C = Global.FontCount
loc_008249DF: Global.MouseIcon = var_1C
loc_00824A16: End If
loc_00824A16: End If
loc_00824A1E: GoTo loc_00824A3C
loc_00824A3B: Exit Sub
loc_00824A3C: 'Referenced from: 00824A1E
End Sub
Private Sub tmrActivate_Timer() '824B30
Dim Me As Me
Dim var_18 As Variant
Dim global_00887AE8 As Global
Dim var_20 As Screen
Dim global_008868BC As Me
loc_00824B9E: tmrActivate.Enabled = ebx
loc_00824BDC: var_eax = Proc_10_11_84A820(var_18, var_18, var_18)
loc_00824BE6: var_eax = Proc_854A60(Me, global_0040C7EC, var_18)
loc_00824BEB: global_88601A = FFFFFFh
loc_00824BF4: var_eax = Proc_12_23_867A20(Me, Me, Me)
loc_00824BF9: var_eax = Proc_11_2_8545D0(%fobj, ebx, )
loc_00824BFE: var_eax = Proc_86B860(, , )
loc_00824C03: var_eax = Proc_11_1_853AD0()
loc_00824C0F: If global_88612A = 0 Then
loc_00824C1C: If global_886128 = 0 Then
loc_00824C35: global_8860A8 = global_008860B4
loc_00824C3B: global_8860AC = global_008860B8
loc_00824C60: var_20 = Global.Screen
loc_00824C9C: var_eax = Unknown_VTable_Call[edx+0000030Ch]
loc_00824CB6: var_1C = Global.FontCount
loc_00824CE3: Global.MouseIcon = var_24
loc_00824D18: var_eax = Proc_12_19_865110(var_24, var_1C, var_18)
loc_00824D1D: var_eax = Proc_9_12_845740(Unknown_VTable_Call[edx+0000030Ch], global_00886638)
loc_00824D25: global_88613C = FFFFFFh
loc_00824D2E: End If
loc_00824D2E: End If
loc_00824D2E: var_eax = Proc_12_35_86B900
loc_00824D3A: If global_886128 = 0 Then GoTo loc_00824BF9
loc_00824D47: var_eax = Proc_9_12_845740
loc_00824D4C: var_eax = Proc_9_11_845460
loc_00824D76: var_6C = global_00887AE8
loc_00824D79: Set var_18 = Me
loc_00824D84: var_eax = Global.Unload var_18
loc_00824DAD: If global_886010 = 1 Then
loc_00824DB7: If global_88601C = var_FFFFFF Then
loc_00824DB9: var_eax = Proc_884A40
loc_00824DBE: GoTo loc_00824ED6
loc_00824DC3: End If
loc_00824DC3: End If
loc_00824DC3: var_eax = Proc_86F0B0
loc_00824DD2: If 00886018h = 1 Then
loc_00824E33: var_eax = classicOptions.Show var_34, var_30
loc_00824E3F: If classicOptions.Show var_34, var_30 < 0 Then
loc_00824E4F: GoTo loc_00824ECE
loc_00824E51: End If
loc_00824E55: If classicOptions.Show var_34, var_30 <> 0 Then GoTo loc_00824ED6
loc_00824EB6: var_eax = challengeOptions.Show var_34, var_30
loc_00824EC2: If challengeOptions.Show var_34, var_30 < 0 Then
loc_00824ECE: 'Referenced from: 00824E4F
loc_00824ED0: challengeOptions.Show var_34, var_30 = CheckObj(global_008868BC, global_0040EDA0, 688)
loc_00824ED6: End If
loc_00824ED6: End If
loc_00824EDE: GoTo loc_00824EFC
loc_00824EFB: Exit Sub
loc_00824EFC: 'Referenced from: 00824EDE
End Sub
BIN
View File
Binary file not shown.
+2053
View File
File diff suppressed because it is too large. Load diff
Binary file not shown.
+256
View File
@@ -0,0 +1,256 @@
Public Sub Proc_8_0_842840
loc_00842875: global_00886BF4 = CInt(0)
loc_0084287B: var_40 = global_00886BF4
loc_00842886: global_886C08 = 1
loc_0084288C: If 0001h <= global_00886BF4 Then
loc_00842897: global_00886BE4 = CInt(0)
loc_0084289D: var_48 = global_00886BE4
loc_008428A8: global_886C06 = 1
loc_008428AE: If 0001h <= global_00886BE4 Then
loc_008428F5: If Err.Number Then
loc_008428FC: GoTo loc_00842900
loc_008428FE: End If
loc_00842900: 'Referenced from: 008428FC
loc_00842918: If eax And 8940558 Then
loc_00842926: If var_886C14 Then
loc_0084292C: If 00886C14h = 2 Then
loc_0084293B: 00886C06h = 00886C06h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_0084293F: If 00886C06h >= 0 Then
loc_00842941: var_eax = Err.Raise
loc_0084294D: End If
loc_0084295A: 00886C08h = 00886C08h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_0084295E: If 00886C08h >= 0 Then
loc_00842960: var_eax = Err.Raise
loc_0084296C: End If
loc_0084297C: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 00886C06h
loc_00842984: GoTo loc_00842B28
loc_00842989: End If
loc_00842989: End If
loc_00842989: var_eax = Err.Raise
loc_008429A3: GoTo loc_00842B28
loc_008429A8: End If
loc_008429B8: var_20 = global_00886C06
loc_008429BB: If global_886C0E Then
loc_008429C3: If var_886C14 Then
loc_008429C9: If 00886C14h = 2 Then
loc_008429D8: 00886C06h = 00886C06h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_008429DC: If 00886C06h >= 0 Then
loc_008429DE: var_eax = Err.Raise
loc_008429E9: End If
loc_008429F6: 00886C08h = 00886C08h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_008429FA: If 00886C08h >= 0 Then
loc_008429FC: var_eax = Err.Raise
loc_00842A07: End If
loc_00842A0D: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 00886C06h
loc_00842A11: GoTo loc_00842A1B
loc_00842A13: End If
loc_00842A13: End If
loc_00842A13: var_eax = Err.Raise
loc_00842A1B: 'Referenced from: 00842A11
loc_00842A2C: 00886C04h = 00886C04h - 0001h
loc_00842A3F: var_54 = global_00886C04
loc_00842A78: GoTo loc_00842B1F
loc_00842A7D: End If
loc_00842A7F: If CInt((Int((Rnd(var_20) * var_54)) + global_401850)) Then
loc_00842A85: If CInt((Int((Rnd(var_20) * var_54)) + global_401850)) = 0 Then
loc_00842A94: 00886C06h = 00886C06h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842A98: If 00886C06h >= 0 Then
loc_00842A9A: var_eax = Err.Raise
loc_00842AA5: End If
loc_00842AB2: 00886C08h = 00886C08h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842AB6: If 00886C08h >= 0 Then
loc_00842AB8: var_eax = Err.Raise
loc_00842AC3: End If
loc_00842AC9: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 00886C06h
loc_00842ACD: GoTo loc_00842AD7
loc_00842ACF: End If
loc_00842ACF: End If
loc_00842ACF: var_eax = Err.Raise
loc_00842AD7: 'Referenced from: 00842ACD
loc_00842AEE: var_5C = global_00886C04
loc_00842B1F: 'Referenced from: 00842A78
loc_00842B28: 'Referenced from: 00842984
loc_00842B33: 00886C06h = 00886C06h + 00000001h
loc_00842B38: GoTo loc_008428A4
loc_00842B3D: End If
loc_00842B48: 00886C08h = 00886C08h + 00000001h
loc_00842B4D: GoTo loc_00842882
loc_00842B52: End If
loc_00842B58: GoTo loc_00842B64
loc_00842B63: Exit Sub
loc_00842B64: 'Referenced from: 00842B58
loc_00842B64: Exit Sub
loc_00842B75: Exit Sub
loc_00842B76: End If
loc_00842B76: End If
loc_00842B76: End If
loc_00842B76: End If
loc_00842B76: GoTo loc___vbaFPException
End Sub
Public Sub Proc_8_1_842B90
loc_00842BE5: global_00886BE4 = Me
loc_00842C00: global_00886BF4 = arg_C
loc_00842C17: global_886C04 = arg_10
loc_00842C2D: global_886C0E = arg_14
loc_00842C34: ReDim global_00886C14(global_FFFFFFFE To 99, global_FFFFFFFE To 99)
loc_00842C44: 00886178h = 00886178h - ebx
loc_00842C46: If var_886178 Then
loc_00842C48: eax = 00886178h - 1
loc_00842C49: If 00886178h - 1 Then
loc_00842C4B: eax = 00886178h - 1 - 1
loc_00842C4C: If 00886178h - 1 - 1 <> 0 Then GoTo loc_00842CBA
loc_00842C65: var_18 = global_00886014 & "challengeHard.flx"
loc_00842C71: GoTo loc_00842CBA
loc_00842C73: End If
loc_00842C89: var_18 = global_00886014 & "challengeEasy.flx"
loc_00842C95: GoTo loc_00842CBA
loc_00842C97: End If
loc_00842CAE: var_18 = global_00886014 & "challengeSW.flx"
loc_00842CBA: 'Referenced from: 00842C71
loc_00842CD3: Get #1, global_0088617C, var_1C
loc_00842CDC: fchs
loc_00842CDE: var_28 = var_1C
loc_00842D12: If global_886C0E Then
loc_00842D1B: global_886C10 = global_00886C04
loc_00842D22: GoTo loc_00842D2D
loc_00842D24: End If
loc_00842D24: global_886C10 = &H63
loc_00842D2D: 'Referenced from: 00842D22
loc_00842D2D: call Proc_8_0_842840(0, var_30 = %S_edx_S, ebx)
loc_00842D37: global_00886BF4 = CInt()
loc_00842D3D: var_5C = global_00886BF4
loc_00842D48: global_886C08 = 1
loc_00842D4E: If 0001h <= global_00886BF4 Then
loc_00842D59: global_00886BE4 = CInt()
loc_00842D5F: var_64 = global_00886BE4
loc_00842D6A: global_886C06 = 1
loc_00842D71: If 0001h <= global_00886BE4 Then
loc_00842D7F: If var_886020 Then
loc_00842D85: If 00886020h = 2 Then
loc_00842D93: 0001h = 0001h - ecx+0000001Ch
loc_00842D98: If 0001h >= 0 Then
loc_00842D9A: var_eax = Err.Raise
loc_00842DA2: End If
loc_00842DAF: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842DB3: If 00886C08h >= 0 Then
loc_00842DB5: var_eax = Err.Raise
loc_00842DBD: End If
loc_00842DC3: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 0001h
loc_00842DCB: GoTo loc_00842DDF
loc_00842DCD: End If
loc_00842DCD: End If
loc_00842DCD: var_eax = Err.Raise
loc_00842DDF: 'Referenced from: 00842DCB
loc_00842DF1: If var_886C14 Then
loc_00842DF7: If 00886C14h = 2 Then
loc_00842E06: 00886C06h = 00886C06h - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842E0A: If 00886C06h >= 0 Then
loc_00842E0C: var_eax = Err.Raise
loc_00842E18: End If
loc_00842E25: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842E29: If 00886C08h >= 0 Then
loc_00842E2B: var_eax = Err.Raise
loc_00842E37: End If
loc_00842E3D: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00842E47: GoTo loc_00842E53
loc_00842E49: End If
loc_00842E49: End If
loc_00842E49: var_eax = Err.Raise
loc_00842E53: 'Referenced from: 00842E47
loc_00842E5B: If var_886020 Then
loc_00842E61: If 00886020h = 2 Then
loc_00842E70: 00886C06h = 00886C06h - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842E74: If 00886C06h >= 0 Then
loc_00842E76: var_eax = Err.Raise
loc_00842E88: End If
loc_00842E92: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842E99: If 00886C08h >= 0 Then
loc_00842E9B: var_eax = Err.Raise
loc_00842EAD: End If
loc_00842EB3: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00842EC1: GoTo loc_00842ED1
loc_00842EC3: End If
loc_00842EC3: End If
loc_00842EC3: var_eax = Err.Raise
loc_00842ED1: 'Referenced from: 00842EC1
loc_00842EE7: If var_886020 Then
loc_00842EED: If 00886020h = 2 Then
loc_00842EFC: 00886C06h = 00886C06h - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842F00: If 00886C06h >= 0 Then
loc_00842F02: var_eax = Err.Raise
loc_00842F0A: End If
loc_00842F17: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842F1B: If 00886C08h >= 0 Then
loc_00842F1D: var_eax = Err.Raise
loc_00842F25: End If
loc_00842F2B: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00842F33: GoTo loc_00842F3D
loc_00842F35: End If
loc_00842F35: End If
loc_00842F35: var_eax = Err.Raise
loc_00842F3D: 'Referenced from: 00842F33
loc_00842F4F: If var_886020 Then
loc_00842F55: If 00886020h = 2 Then
loc_00842F64: 00886C06h = 00886C06h - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842F68: If 00886C06h >= 0 Then
loc_00842F6A: var_eax = Err.Raise
loc_00842F72: End If
loc_00842F7F: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842F83: If 00886C08h >= 0 Then
loc_00842F85: var_eax = Err.Raise
loc_00842F8D: End If
loc_00842F93: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00842F9B: GoTo loc_00842FA5
loc_00842F9D: End If
loc_00842F9D: End If
loc_00842F9D: var_eax = Err.Raise
loc_00842FA5: 'Referenced from: 00842F9B
loc_00842FB7: If var_886C14 Then
loc_00842FBD: If 00886C14h = 2 Then
loc_00842FCF: 00886C06h = 00886C06h - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2)
loc_00842FD3: If 00886C06h >= 0 Then
loc_00842FD5: var_eax = Err.Raise
loc_00842FE4: End If
loc_00842FEE: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00842FF5: If 00886C08h >= 0 Then
loc_00842FF7: var_eax = Err.Raise
loc_00843006: End If
loc_0084300C: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00843010: GoTo loc_00843021
loc_00843012: End If
loc_00843012: End If
loc_00843012: var_eax = Err.Raise
loc_00843021: 'Referenced from: 00843010
loc_0084302F: If ecx+eax = var_886C10 Then
loc_00843039: If global_886C0E Then
loc_00843043: If var_886020 Then
loc_00843049: If 00886020h = 2 Then
loc_00843051: 00886C06h = 00886C06h - ecx+0000001Ch
loc_00843056: If 00886C06h >= 0 Then
loc_00843058: var_eax = Err.Raise
loc_00843060: End If
loc_0084306D: 00886C08h = 00886C08h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this
loc_00843071: If 00886C08h >= 0 Then
loc_00843073: var_eax = Err.Raise
loc_0084307B: End If
loc_00843081: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + 00886C06h
loc_00843089: GoTo loc_00843093
loc_0084308B: End If
loc_0084308B: End If
loc_0084308B: var_eax = Err.Raise
loc_00843093: 'Referenced from: 00843089
loc_008430A4: End If
loc_008430A4: End If
loc_008430A9: 00886C06h = 00886C06h + 00000001h
loc_008430AE: GoTo loc_00842D66
loc_008430B3: End If
loc_008430BE: 00886C08h = 00886C08h + 00000001h
loc_008430C3: GoTo loc_00842D44
loc_008430C8: End If
loc_008430CE: GoTo loc_008430DA
loc_008430D9: Exit Sub
loc_008430DA: 'Referenced from: 008430CE
loc_008430E3: Exit Sub
End Sub
+1313
View File
File diff suppressed because it is too large. Load diff
BIN
View File
Binary file not shown.
+2003
View File
File diff suppressed because it is too large. Load diff
BIN
View File
Binary file not shown.
+1727
View File
File diff suppressed because it is too large. Load diff
BIN
View File
Binary file not shown.
+688
View File
@@ -0,0 +1,688 @@
VERSION 5.00
Begin VB.Form titleScreen
BackColor = &H0&
WindowState = 2
ScaleMode = 3
AutoRedraw = True
FontTransparent = True
BorderStyle = 0 'None
'Icon = n/a
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ControlBox = 0 'False
Tag = "titlescreen"
KeyPreview = -1 'True
ClientLeft = 4725
ClientTop = 1410
ClientWidth = 11970
ClientHeight = 10125
ShowInTaskbar = 0 'False
Moveable = 0 'False
Begin PictureBox rotateDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 6750
Top = 480
Width = 1230
Height = 1230
Visible = 0 'False
TabIndex = 11
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin PictureBox animDisplay
BackColor = &H8080FF&
ForeColor = &H80000008&
Left = 465
Top = 1035
Width = 4950
Height = 945
Visible = 0 'False
TabIndex = 10
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
Appearance = 0 'Flat
End
Begin Timer tmrMainLoop
Interval = 1
Left = 6990
Top = 2310
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 6
ForeColor = &H80000008&
Left = 7950
Top = 6690
Width = 1530
Height = 450
TabIndex = 8
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 4
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 9
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "quit"
Appearance = 0 'Flat
End
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 5
ForeColor = &H80000008&
Left = 5520
Top = 6690
Width = 1530
Height = 450
TabIndex = 6
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 3
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 7
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "about"
Appearance = 0 'Flat
End
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 4
ForeColor = &H80000008&
Left = 3090
Top = 6690
Width = 1530
Height = 450
TabIndex = 4
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 2
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 5
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "scores"
Appearance = 0 'Flat
End
End
Begin PictureBox btnButton
BackColor = &H404040&
Index = 3
ForeColor = &H80000008&
Left = 585
Top = 6690
Width = 1530
Height = 450
TabIndex = 2
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Appearance = 0 'Flat
Begin PictureBox picAnim
BackColor = &H450A1A&
Index = 1
ForeColor = &H80000008&
Left = 60
Top = 45
Width = 375
Height = 360
TabIndex = 3
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Tag = "options"
Appearance = 0 'Flat
End
End
Begin PictureBox btnButton
BackColor = &HFF&
Index = 1
Left = 1080
Top = 2745
Width = 4770
Height = 1380
TabIndex = 1
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
End
Begin PictureBox btnButton
BackColor = &HFF&
Index = 2
Left = 1080
Top = 4440
Width = 4770
Height = 1380
TabIndex = 0
ScaleMode = 3
AutoRedraw = False
FontTransparent = True
AutoSize = -1 'True
BorderStyle = 0 'None
End
End
Attribute VB_Name = "titleScreen"
Private Sub picAnim_Click() '840610
loc_0084065D: arg_C = arg_C + 0002h
loc_00840668: var_18 = arg_C+0002h
loc_0084066B: var_eax = titleScreen.btnButton_Click
End Sub
Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '8406B0
Dim var_24 As PictureBox
loc_00840725: Button = picAnim._Default
loc_00840749: var_1C = picAnim.Tag
loc_00840778: var_20 = Right$(var_1C, 1)
loc_00840797: esi = (var_20 = global_0040F164) + 1
loc_008407B9: If (var_20 = global_0040F164) + 1 = 0 Then
loc_008407DC:
loc_008407E6: If Err.Number Then
loc_008407FB: var_58 = Button
loc_00840808: If Err.Number Then
loc_00840837: CInt(6.37066138261923E-314) = picAnim._Default
loc_0084085B: var_1C = picAnim.Tag
loc_00840891: esi = (var_1C = "quit") + 1
loc_008408B0: If (var_1C = "quit") + 1 Then
loc_008408D4: var_60 = var_24
loc_008408E2: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840907: picAnim.Tag = "quita"
loc_00840942: End If
loc_00840960: var_64 = var_24
loc_0084096E: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840992: var_1C = picAnim.Tag
loc_008409C8: esi = (var_1C = "about") + 1
loc_008409E7: If (var_1C = "about") + 1 Then
loc_00840A16: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840A3B: picAnim.Tag = "abouta"
loc_00840A73: End If
loc_00840A9C: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840AC0: var_1C = picAnim.Tag
loc_00840AF6: esi = (var_1C = "options") + 1
loc_00840B15: If (var_1C = "options") + 1 Then
loc_00840B44: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840B69: picAnim.Tag = "optionsa"
loc_00840BA1: End If
loc_00840BCA: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840BEE: var_1C = picAnim.Tag
loc_00840C24: esi = (var_1C = "scores") + 1
loc_00840C43: If (var_1C = "scores") + 1 Then
loc_00840C72: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840C97: picAnim.Tag = "scoresa"
loc_00840CCF: End If
loc_00840CD2:
loc_00840CE3: GoTo loc_008407DC
loc_00840D03: var_68 = Err.Number
loc_00840D11: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840D35: var_1C = picAnim.Tag
loc_00840D66: var_18 = var_1C
loc_00840D8C: var_1C = Right$(var_18, 1)
loc_00840DA3: esi = (var_1C = global_0040F164) + 1
loc_00840DAF: If (var_1C = global_0040F164) + 1 = 0 Then GoTo loc_00840CCF
loc_00840DDE: CInt(6.37066138261923E-314) = picAnim._Default
loc_00840E08: Len(var_18) = Len(var_18) - 00000001h
loc_00840E1E: var_1C = Left$(var_18, Len(var_18))
loc_00840E26: picAnim.Tag = var_1C
loc_00840E6F: var_eax = titleScreen.drawDefaultPic(CInt(6.37066138261923E-314))
loc_00840E8F: GoTo loc_00840CD2
loc_00840E96: End If
loc_00840E9F: GoTo loc_00840EC5
loc_00840EC4: Exit Sub
loc_00840EC5: 'Referenced from: 00840E9F
loc_00840ECE: Exit Sub
End Sub
Private Sub btnButton_Click() '83F810
Dim Me As Me
loc_0083F850: var_eax = Proc_9_20_8476B0(edi, Me, ebx)
loc_0083F85B: eax = arg_C - 1
loc_0083F85F: If arg_C - 1 <= 0 Then
loc_0083F861: GoTo loc_[eax*4+0083F8E0h]
loc_0083F874: GoTo loc_0083F8BA
loc_0083F882: GoTo loc_0083F8BA
loc_0083F890: GoTo loc_0083F8BA
loc_0083F89E: GoTo loc_0083F8BA
loc_0083F8AC: GoTo loc_0083F8BA
loc_0083F8BA: End If
loc_0083F8BA:
End Sub
Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '83F900
Dim var_20 As Variant
Dim var_60 As Me
loc_0083F98A: Button = btnButton._Default
loc_0083F9AE: var_18 = btnButton.Tag
loc_0083F9E4: edi = (var_18 = global_0040FBA8) + 1
loc_0083FA03: If (var_18 = global_0040FBA8) + 1 = 0 Then
loc_0083FA13: If Button <= 2 Then
loc_0083FA1C: var_eax = titleScreen.resetHighLights
loc_0083FA62: Button = btnButton._Default
loc_0083FA7D: var_60 = var_2C
loc_0083FAA1: var_eax = Unknown_VTable_Call[ecx+00000300h]
loc_0083FAE6: var_24 = buttons.BackColor
loc_0083FB1B: buttons.BackColor = var_30
loc_0083FB80: Button = btnButton._Default
loc_0083FBA1: btnButton.Tag = global_0040FBA8
loc_0083FBCE: GoTo loc_0083FC1C
loc_0083FBD0: End If
loc_0083FBD0: var_20 = var_20 - 0002h
loc_0083FBDC: var_34 = CheckObj(var_20, global_0040E7E4, 444)
loc_0083FC00: var_eax = PictureBox.1844
loc_0083FC1C:
loc_0083FC1C: End If
loc_0083FC25: GoTo loc_0083FC54
loc_0083FC53: Exit Sub
loc_0083FC54: 'Referenced from: 0083FC25
End Sub
Private Sub Form_Load() '83FDA0
Dim var_18 As Screen
Dim var_1C As Screen
Dim var_20 As PictureBox
loc_0083FE1C: var_eax = Proc_12_43_86D100(var_34, var_18, var_18)
loc_0083FE58: var_18 = Global.Screen
loc_0083FE86: var_7C = Global.Width
loc_0083FEC6: var_1C = Global.Screen
loc_0083FEE6: var_80 = Global.Height
loc_0083FF59: var_eax = Unknown_VTable_Call[edi+000002A4h]
loc_0083FFAF: var_eax = Proc_12_45_86D280(var_18, var_18, Unknown_VTable_Call[edi+000002A4h])
loc_0083FFC0: var_eax = titleScreen.positionControls
loc_0083FFDB: var_eax = titleScreen.resetHighLights
loc_00840026: var_8C = global_00886880
loc_00840071: var_2C = global_00886014 & "graphics\misc\titlescreen.jpg"
loc_00840102: var_eax = Global.LoadPicture global_00886014 & "graphics\misc\titlescreen.jpg", var_30, global_00886014 & "graphics\misc\titlescreen.jpg", var_28, 10
loc_00840143: var_eax = Unknown_VTable_Call[edi+00000154h]
loc_00840177: If global_8861C2 = 0 Then
loc_00840179: global_8861C2 = FFFFFFh
loc_00840182: GoTo loc_008401F3
loc_00840184: End If
loc_008401C2: var_eax = Proc_12_47_86E570(var_18, var_18, CreateObject(global_00404DC0, global_00886880))
loc_008401EE: var_eax = Proc_12_25_868460(4, global_00886880, Proc_12_47_86E570(var_18, var_18, CreateObject(global_00404DC0, global_00886880)))
loc_008401F3: 'Referenced from: 00840182
loc_00840219: var_18 = Global.Screen
loc_00840237: Global.MousePointer = CInt(99)
loc_0084027A: var_20 = Global.Screen
loc_008402CC: var_1C = titleScreen.picAnim.Index
loc_008402F9: titleScreen.picAnim.Enabled = var_1C
loc_00840337: GoTo loc_0084035E
loc_0084035D: Exit Sub
loc_0084035E: 'Referenced from: 00840337
End Sub
Private Sub Form_Unload(Cancel As Integer) '840550
loc_008405B7: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18)
loc_008405D6: GoTo loc_008405EB
loc_008405EA: Exit Sub
loc_008405EB: 'Referenced from: 008405D6
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '83FC80
loc_0083FCC6: If KeyCode = 123 Then
loc_0083FCC8: var_eax = Proc_12_18_864A90(edi, esi, ebx)
loc_0083FCCD: End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) '83FD00
loc_0083FD4C: If KeyAscii = 13 Then
loc_0083FD5C: var_eax = titleScreen.btnButton_Click
loc_0083FD78: End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '840380
loc_008403C3: var_eax = titleScreen.highLightCheck
End Sub
Private Sub tmrMainLoop_Timer() '840F00
Dim Me As Variant
loc_00840F5A: var_eax = titleScreen.drawDefaultPics
loc_00840F93: var_eax = Proc_10_11_84A820(var_28, var_28, titleScreen.drawDefaultPics)
loc_00840FA4: var_eax = titleScreen.resetHighLights
loc_00840FC0: var_eax = Proc_86B860(Me, global_0040C7EC, 0)
loc_00840FDC: tmrMainLoop.Enabled = False
loc_00841003:
loc_00841007: var_eax = QueryPerformanceCounter(var_24)
loc_00841025: var_eax = Proc_12_46_86D7E0(var_28, var_28, GetLastError)
loc_00841046: var_eax = Proc_10_11_84A820(var_28, var_28, Proc_12_46_86D7E0(var_28, var_28, GetLastError))
loc_00841059: If esi+0000003Ah Then
loc_0084105E: var_eax = titleScreen.drawAnimations
loc_0084107A: End If
loc_0084107E: var_eax = QueryPerformanceCounter(var_1C)
loc_00841099: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Me, Me, Me, __vbaCastObj(%StkVar1, %StkVar2) 'Ignore this)
loc_008410A1: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Me, Me, Me, __vbaCastObj(%StkVar1, %StkVar2), var_24)
loc_008410B7: call __vbaR8Cy(global_008860D8, global_008860DC)
loc_008410C4: If global_886000 = 0 Then
loc_008410C6: fdivr st0, var_64
loc_008410C9: GoTo loc_008410D6
loc_008410CB: End If
loc_008410D6: 'Referenced from: 008410C9
loc_008410D6: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC)
loc_008410FD: If Err.Number Then
loc_008410FF: global_8860D4 = 3DCCCCCDh
loc_00841109: End If
loc_0084110E: If esi+00000034h = 0 Then GoTo loc_00841003
loc_00841114: var_eax = Proc_845A50(var_64, var_60)
loc_00841121: If Me(14) <> 6 Then
loc_0084112A: eax = Me(14) - 1
loc_0084112E: If Me(14) - 1 > 0 Then GoTo loc_0084169C
loc_00841134: GoTo loc_[eax*4+008416D8h]
loc_00841186: Set var_28 = global_00886880
loc_0084120B: var_eax = gameOptions.Show var_38, var_34
loc_0084127C: Set var_28 = global_00886880
loc_00841301: var_eax = topScores.Show var_38, var_34
loc_00841372: Set var_28 = global_00886880
loc_008413F7: var_eax = about.Show var_38, var_34
loc_00841471: Set var_28 = global_00886880
loc_008414A3:
loc_008414AF:
loc_008414F6: var_eax = login.Show var_38, var_34
loc_00841570: Set var_28 = global_00886880
loc_008415A0: If var_8868D0 <> 0 Then GoTo loc_008414AF
loc_008415A6: GoTo loc_008414A3
loc_008415AB: End If
loc_008415F5: Set var_28 = global_00886880
loc_00841628: global_88601C = 0
loc_00841631: If global_886010 = 1 Then
loc_00841633: var_eax = Proc_884A40(var_28, var_28, -2147352572)
loc_00841638: GoTo loc_0084169C
loc_0084163A: End If
loc_00841677: Set var_28 = global_00886638
loc_0084167F: var_eax = Global.Unload var_28
loc_0084169C: End If
loc_0084169C: End If
loc_0084169C: End If
loc_0084169C: End If
loc_0084169C:
loc_008416A9: GoTo loc_008416B5
loc_008416B4: Exit Sub
loc_008416B5: 'Referenced from: 008416A9
loc_008416B5: Exit Sub
End Sub
Public Sub positionControls() '83ED80
Dim var_2C As PictureBox
Dim var_28 As PictureBox
loc_0083EE00: 1 = btnButton._Default
loc_0083EE30: btnButton.Left = global_42900000
loc_0083EE79: 1 = btnButton._Default
loc_0083EE9A: btnButton.Top = global_43370000
loc_0083EEE0: 1 = btnButton._Default
loc_0083EF01: btnButton.Width = global_43A50000
loc_0083EF4D: 1 = btnButton._Default
loc_0083EF6E: btnButton.Height = global_427C0000
loc_0083EFBA: 2 = btnButton._Default
loc_0083EFDB: btnButton.Left = global_42900000
loc_0083F021: 2 = btnButton._Default
loc_0083F042: btnButton.Top = global_43940000
loc_0083F088: 2 = btnButton._Default
loc_0083F0A9: btnButton.Width = global_43A50000
loc_0083F0F5: 2 = btnButton._Default
loc_0083F116: btnButton.Height = global_427C0000
loc_0083F162: 3 = btnButton._Default
loc_0083F183: btnButton.Left = global_421C0000
loc_0083F1C9: 4 = btnButton._Default
loc_0083F1EA: btnButton.Left = global_434E0000
loc_0083F230: 5 = btnButton._Default
loc_0083F251: btnButton.Left = global_43B80000
loc_0083F297: 6 = btnButton._Default
loc_0083F2B8: btnButton.Left = global_44048000
loc_0083F31C: For var_24 = 3 To 6 Step 1
loc_0083F322:
loc_0083F324: If var_7C Then
loc_0083F34B: var_24 = CInt(var_2C)
loc_0083F351: var_C0 = var_28
loc_0083F362: var_24 = btnButton._Default
loc_0083F383: btnButton.Top = global_43DF0000
loc_0083F3CB: var_24 = CInt(var_2C)
loc_0083F3D8: var_24 = btnButton._Default
loc_0083F3F9: btnButton.Width = global_42CC0000
loc_0083F447: var_24 = CInt(var_2C)
loc_0083F454: var_24 = btnButton._Default
loc_0083F475: btnButton.Height = global_41F00000
loc_0083F4B1: Next var_24
loc_0083F4BC: GoTo loc_0083F322
loc_0083F4C1: End If
loc_0083F4FA: For var_24 = 1 To 4 Step 1
loc_0083F500:
loc_0083F502: If var_24 Then
loc_0083F529: var_24 = CInt(var_2C)
loc_0083F536: var_24 = picAnim._Default
loc_0083F557: picAnim.Left = global_40800000
loc_0083F59F: var_24 = CInt(var_2C)
loc_0083F5AC: var_24 = picAnim._Default
loc_0083F5CD: picAnim.Top = global_40400000
loc_0083F615: var_24 = CInt(var_2C)
loc_0083F622: var_24 = picAnim._Default
loc_0083F643: picAnim.Width = global_41C80000
loc_0083F691: var_24 = CInt(var_2C)
loc_0083F69E: var_24 = picAnim._Default
loc_0083F6BF: picAnim.Height = global_41C00000
loc_0083F6FE: Next var_24
loc_0083F704: GoTo loc_0083F500
loc_0083F709: End If
loc_0083F70F: GoTo loc_0083F725
loc_0083F724: Exit Sub
loc_0083F725: 'Referenced from: 0083F70F
End Sub
Public Sub highLightCheck() '83F780
Dim Me As Me
loc_0083F7BE: If Me.GetPalette 'Ignore this = 0 Then
loc_0083F7C5: If esi+0000003Ah = 0 Then GoTo loc_0083F7E6
loc_0083F7C7: End If
loc_0083F7CA: var_eax = titleScreen.resetHighLights
loc_0083F7E6:
End Sub
Public Sub resetHighLights() '840410
Dim Me As Me
Dim var_20 As PictureBox
loc_0084045A: If 00000001h <= 3 Then
loc_0084047E: 1 = btnButton._Default
loc_008404A3: btnButton.Tag = global_0040EEC8
loc_008404D9: 00000001h = 00000001h + 00000001h
loc_008404E2: var_eax = Unknown_87(var_20, var_1C, 00000003h, Me)
loc_008404E7: End If
loc_008404F2: var_eax = titleScreen.drawDefaultPics
loc_00840513: GoTo loc_00840529
loc_00840528: Exit Sub
loc_00840529: 'Referenced from: 00840513
loc_00840529: Exit Sub
End Sub
Public Sub drawDefaultPics() '841700
Dim Me As Variant
Dim var_2C As Variant
Dim var_58 As Me
Dim var_28 As Variant
Dim var_50 As Me
Dim var_30 As PictureBox
Dim var_34 As PictureBox
Dim var_3C As PictureBox
loc_00841774: 1 = btnButton._Default
loc_008417A0: var_58 = var_38
loc_008417BD: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_008417F9: var_30 = buttons.BackColor
loc_0084182E: buttons.BackColor = var_3C
loc_00841880: 2 = btnButton._Default
loc_0084189E: var_58 = var_38
loc_008418BB: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_008418F7: var_30 = buttons.BackColor
loc_0084192C: buttons.BackColor = var_3C
loc_0084197E: 3 = btnButton._Default
loc_0084199C: var_50 = var_34
loc_008419B9: var_eax = Unknown_VTable_Call[ecx+00000358h]
loc_008419D3: var_2C = buttons.hWnd
loc_00841A08: buttons.BackColor = var_38
loc_00841A56: 4 = btnButton._Default
loc_00841A74: var_50 = var_34
loc_00841A91: var_eax = Unknown_VTable_Call[edx+0000035Ch]
loc_00841AAB: var_2C = buttons.hWnd
loc_00841AD9: var_A4 = var_50
loc_00841AEA: buttons.BackColor = 0
loc_00841B38: 5 = btnButton._Default
loc_00841B4F: var_50 = var_34
loc_00841B73: var_eax = Unknown_VTable_Call[ecx+00000340h]
loc_00841B8D: var_2C = buttons.hWnd
loc_00841BC2: buttons.BackColor = var_38
loc_00841C10: 6 = btnButton._Default
loc_00841C2E: var_50 = var_34
loc_00841C4B: var_eax = Unknown_VTable_Call[edx+00000364h]
loc_00841C65: var_2C = buttons.hWnd
loc_00841C93: var_AC = var_50
loc_00841CA4: buttons.BackColor = var_2C
loc_00841CE6: If 00000001h <= 4 Then
loc_00841CF0: var_eax = titleScreen.drawDefaultPic(1)
loc_00841D29: var_18 = picAnim._Default
loc_00841D49: var_1C = picAnim.Tag
loc_00841D93: esi = (Right$(var_1C, 1) = global_0040F164) + 1
loc_00841DB5: var_eax = Unknown_E845896D(var_2C, var_28, Me, Me, var_38)
loc_00841DDC: var_18 = picAnim._Default
loc_00841DFC: var_1C = picAnim.Tag
loc_00841E37: var_18 = picAnim._Default
loc_00841E72: var_18 = picAnim._Default
loc_00841E92: var_20 = picAnim.Tag
loc_00841EBB: Len(var_20) = Len(var_20) - 00000001h
loc_00841ED1: var_24 = Left$(var_1C, Len(var_20))
loc_00841ED9: picAnim.Tag = var_24
loc_00841F32: 00000001h = 00000001h + var_18
loc_00841F38: var_18 = 00000001h+var_18
loc_00841F3B: GoTo loc_00841CE2
loc_00841F40: End If
loc_00841F4B: GoTo loc_00841F85
loc_00841F84: Exit Sub
loc_00841F85: 'Referenced from: 00841F4B
loc_00841F85: Exit Sub
End Sub
Public Sub drawDefaultPic(X) '841FB0
loc_00842014: X = picAnim._Default
loc_0084204F: var_eax = titleScreen.drawFrame(var_20, var_24)
loc_00842083: GoTo loc_0084209D
loc_0084209C: Exit Sub
loc_0084209D: 'Referenced from: 00842083
End Sub
Public Sub drawFrame(pic, frame) '8420C0
Dim Me As Me
loc_0084211B: var_18 = Me.Visible
loc_00842142: var_3C = var_18
loc_0084215B: If (var_3C = "quit") Then
loc_0084216E: If (var_3C = "quita") Then
loc_00842181: If (var_3C = "about") Then
loc_00842194: If (var_3C = "abouta") Then
loc_008421A7: If (var_3C = "options") Then
loc_008421BA: If (var_3C = "optionsa") Then
loc_008421CD: If (var_3C = "scores") Then
loc_008421DC: If (var_3C <> "scoresa") <> 0 Then GoTo loc_00842551
loc_008421E2: End If
loc_00842203: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_00842269: frame = frame - 0001h
loc_00842275: frame = frame * 0019h
loc_0084228E: var_eax = Proc_9_0_843110(var_20, var_24, 0)
loc_008422B2: GoTo loc_00842546
loc_008422B7: End If
loc_008422B7: End If
loc_008422D8: var_eax = Unknown_VTable_Call[ecx+00000328h]
loc_0084233E: frame = frame - 0001h
loc_0084234A: frame = frame * 0019h
loc_00842363: var_eax = Proc_9_0_843110(var_20, var_24, 0)
loc_00842387: GoTo loc_00842546
loc_0084238C: End If
loc_0084238C: End If
loc_008423AD: var_eax = Unknown_VTable_Call[ecx+0000032Ch]
loc_00842413: frame = frame - 0001h
loc_0084241F: frame = frame * 0019h
loc_00842438: var_eax = Proc_9_0_843110(var_20, var_24, 0)
loc_0084245C: GoTo loc_00842546
loc_00842461: End If
loc_00842461: End If
loc_00842482: var_eax = Unknown_VTable_Call[ecx+00000334h]
loc_008424FD: frame = frame - 0001h
loc_00842509: frame = frame * 0019h
loc_00842522: var_eax = Proc_9_0_843110(var_24, var_28, 0)
loc_00842546: 'Referenced from: 008422B2
loc_00842551:
loc_00842556: GoTo loc_0084257D
loc_0084257C: Exit Sub
loc_0084257D: 'Referenced from: 00842556
loc_00842586: Exit Sub
End Sub
Public Sub drawAnimations() '8425B0
Dim Me As Variant
Dim var_28 As PictureBox
loc_00842629: If global_886000 = 0 Then
loc_0084262E: GoTo loc_00842638
loc_00842630: End If
loc_00842633: call _adj_fdiv_m32(esi, ebx)
loc_00842638: 'Referenced from: 0084262E
loc_00842652: var_5C = var_58
loc_00842687: If var_18 <= 4 Then
loc_008426AE: var_18 = picAnim._Default
loc_008426CE: var_1C = picAnim.Tag
loc_00842718: esi = (Right$(var_1C, 1) = global_0040F164) + 1
loc_0084273A: var_eax = Unknown_E845896A(var_28, var_24)
loc_00842761: var_18 = picAnim._Default
loc_00842795: var_eax = titleScreen.drawFrame(var_2C, Me(16))
loc_008427C5: 00000001h = 00000001h + var_18
loc_008427CB: var_18 = 00000001h+var_18
loc_008427CE: var_eax = Unknown_1468F(var_2C, var_28, var_28, var_24)
loc_008427D3: End If
loc_008427D3: End If
loc_008427D8: If edi+0000003Ch > 39 Then
loc_008427E0: End If
loc_008427E6: GoTo loc_00842810
loc_0084280F: Exit Sub
loc_00842810: 'Referenced from: 008427E6
loc_00842810: Exit Sub
End Sub
+1019
View File
File diff suppressed because it is too large. Load diff
BIN
View File
Binary file not shown.
+224
View File
@@ -0,0 +1,224 @@
Public Sub Proc_22_0_87A130
Dim Me As Me
Dim var_1C As Me
Dim var_20 As Me
loc_0087A170: var_eax = Unknown_VTable_Call[ecx+00000310h]
loc_0087A18B: Me.Left = global_43730000
loc_0087A1BB: var_eax = Unknown_VTable_Call[ecx+00000310h]
loc_0087A1D4: var_24 = Unknown_VTable_Call[ecx+00000310h]
loc_0087A1D7: Me.Top = global_433C0000
loc_0087A1F6: var_eax = Unknown_VTable_Call[eax+00000310h]
loc_0087A20F: var_24 = Unknown_VTable_Call[eax+00000310h]
loc_0087A212: Me.Width = global_43BD8000
loc_0087A237: var_eax = Unknown_VTable_Call[edx+00000310h]
loc_0087A253: Me.Height = global_43410000
loc_0087A278: var_eax = Unknown_VTable_Call[eax+00000300h]
loc_0087A291: var_24 = Unknown_VTable_Call[eax+00000300h]
loc_0087A294: Me.ForeColor = global_428C0000
loc_0087A2B3: var_eax = Unknown_VTable_Call[edx+00000300h]
loc_0087A2CF: Me.Left = global_43810000
loc_0087A2EE: var_eax = Unknown_VTable_Call[eax+00000300h]
loc_0087A307: var_24 = Unknown_VTable_Call[eax+00000300h]
loc_0087A30A: Me.Top = global_424C0000
loc_0087A329: var_eax = Unknown_VTable_Call[edx+00000300h]
loc_0087A345: Me.Width = global_41900000
loc_0087A36A: var_eax = Unknown_VTable_Call[eax+00000320h]
loc_0087A383: var_24 = Unknown_VTable_Call[eax+00000320h]
loc_0087A386: Me.Left = global_42900000
loc_0087A3A5: var_eax = Unknown_VTable_Call[edx+00000320h]
loc_0087A3C1: Me.Top = global_43500000
loc_0087A3E0: var_eax = Unknown_VTable_Call[eax+00000320h]
loc_0087A3F9: var_24 = Unknown_VTable_Call[eax+00000320h]
loc_0087A3FC: Me.Width = global_42300000
loc_0087A421: var_eax = Unknown_VTable_Call[edx+00000320h]
loc_0087A43D: Me.Height = global_41400000
loc_0087A462: var_eax = Unknown_VTable_Call[eax+0000031Ch]
loc_0087A47B: var_24 = Unknown_VTable_Call[eax+0000031Ch]
loc_0087A47E: Me.Left = global_43020000
loc_0087A49D: var_eax = Unknown_VTable_Call[edx+0000031Ch]
loc_0087A4B9: Me.Top = global_43820000
loc_0087A4D8: var_eax = Unknown_VTable_Call[eax+0000031Ch]
loc_0087A4F1: var_24 = Unknown_VTable_Call[eax+0000031Ch]
loc_0087A4F4: Me.Width = global_42340000
loc_0087A519: var_eax = Unknown_VTable_Call[edx+0000031Ch]
loc_0087A535: Me.Height = global_41400000
loc_0087A55A: var_eax = Unknown_VTable_Call[eax+0000032Ch]
loc_0087A573: var_24 = Unknown_VTable_Call[eax+0000032Ch]
loc_0087A576: Me.Left = global_42900000
loc_0087A595: var_eax = Unknown_VTable_Call[edx+0000032Ch]
loc_0087A5B1: Me.Top = global_439B8000
loc_0087A5D0: var_eax = Unknown_VTable_Call[eax+0000032Ch]
loc_0087A5E9: var_24 = Unknown_VTable_Call[eax+0000032Ch]
loc_0087A5EC: Me.Width = global_42300000
loc_0087A611: var_eax = Unknown_VTable_Call[edx+0000032Ch]
loc_0087A62D: Me.Height = global_41400000
loc_0087A652: var_eax = Unknown_VTable_Call[eax+00000328h]
loc_0087A66B: var_24 = Unknown_VTable_Call[eax+00000328h]
loc_0087A66E: Me.Left = global_42900000
loc_0087A68D: var_eax = Unknown_VTable_Call[edx+00000328h]
loc_0087A6A9: Me.Top = global_43B58000
loc_0087A6C8: var_eax = Unknown_VTable_Call[eax+00000328h]
loc_0087A6E1: var_24 = Unknown_VTable_Call[eax+00000328h]
loc_0087A6E4: Me.Width = global_42300000
loc_0087A709: var_eax = Unknown_VTable_Call[edx+00000328h]
loc_0087A725: Me.Height = global_41400000
loc_0087A75D: If var_18 <= 2 Then
loc_0087A766: var_eax = Unknown_VTable_Call[eax+0000030Ch]
loc_0087A77E: var_24 = Unknown_VTable_Call[eax+0000030Ch]
loc_0087A7A6: Me.Width = global_42A00000
loc_0087A7D9: var_eax = Unknown_VTable_Call[edx+0000030Ch]
loc_0087A819: Me.Height = global_41F00000
loc_0087A84C: var_eax = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A864: var_24 = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A88C: Me.Top = global_43DE8000
loc_0087A8BB: 00000001h = 00000001h + var_18
loc_0087A8C5: var_18 = 00000001h+var_18
loc_0087A8C8: var_eax = Unknown_16A8F(var_18, var_20, var_1C, Unknown_VTable_Call[ecx+0000030Ch], Me, var_18)
loc_0087A8CD: End If
loc_0087A8D0: var_eax = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A8E6: var_24 = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A90E: Me.Left = global_43E80000
loc_0087A93B: var_eax = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A951: var_24 = Unknown_VTable_Call[ecx+0000030Ch]
loc_0087A979: Me.Left = global_440A0000
loc_0087A9AA:
loc_0087A9B6: If var_18 <= 8 Then
loc_0087A9BC: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087A9D4: var_24 = Unknown_VTable_Call[ecx+00000324h]
loc_0087A9FC: Me.Left = global_425C0000
loc_0087AA29: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087AA41: var_24 = Unknown_VTable_Call[ecx+00000324h]
loc_0087AA69: Me.Top = global_41A00000
loc_0087AA96: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AAD1: Me.Width = global_41200000
loc_0087AB01: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AB40: Me.Height = global_41600000
loc_0087AB78: 00000001h = 00000001h + var_18
loc_0087AB82: var_18 = 00000001h+var_18
loc_0087AB85: GoTo loc_0087A9AA
loc_0087AB8A: End If
loc_0087AB8A: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087ABA0: var_24 = Unknown_VTable_Call[ecx+00000304h]
loc_0087ABC8: Me.Width = global_41C80000
loc_0087ABFB: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AC11: var_24 = Unknown_VTable_Call[ecx+00000304h]
loc_0087AC39: Me.Width = global_41C80000
loc_0087AC77:
loc_0087AC7F: If var_18 <= 10 Then
loc_0087AC88: var_eax = Unknown_VTable_Call[edx+00000304h]
loc_0087ACC3: Me.Left = global_40800000
loc_0087ACED: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AD2C: Me.Top = global_40400000
loc_0087AD5E: 00000001h = 00000001h + var_18
loc_0087AD68: var_18 = 00000001h+var_18
loc_0087AD6B: GoTo loc_0087AC77
loc_0087AD70: End If
loc_0087AD78:
loc_0087AD80: If 00000001h <= 8 Then
loc_0087AD89: eax = 00000001h - 1
loc_0087AD8D: If 00000001h - 1 <= 0 Then
loc_0087AD93: GoTo loc_[eax*4+0087B38Ch]
loc_0087AD9D: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087ADD8: Me.BackColor = global_41B00000
loc_0087AE02: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AE41: Me.Left = global_42580000
loc_0087AE48: If Me.Left < 0 Then
loc_0087AE4E: GoTo loc_0087AF03
loc_0087AE53: End If
loc_0087AE56: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087AE61: call var_20(var_1C, Unknown_VTable_Call[ecx+00000324h], Me, var_18, var_20, var_1C, Unknown_VTable_Call[ecx+00000304h], Me, var_18, var_20, var_1C, Unknown_VTable_Call[ecx+00000324h], Me, var_18, var_20)
loc_0087AE91: Me.BackColor = global_434B0000
loc_0087AEBB: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AEFA: Me.Left = global_435B0000
loc_0087AF01: If Me.Left < 0 Then
loc_0087AF03: 'Referenced from: 0087AE4E
loc_0087AF0C: Me.Left = CheckObj(var_20, global_0040E7E4, 116)
loc_0087AF0E: End If
loc_0087AF0E: End If
loc_0087AF2C: 00000001h = 00000001h + var_18
loc_0087AF36: var_18 = 00000001h+var_18
loc_0087AF39: GoTo loc_0087AD78
loc_0087AF3E: End If
loc_0087AF4E: If var_18 <= 2 Then
loc_0087AF57: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087AF92: Me.ForeColor = global_434E0000
loc_0087AFBC: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087AFFB: Me.Top = global_43500000
loc_0087B02D: 00000001h = 00000001h + var_18
loc_0087B037: var_18 = 00000001h+var_18
loc_0087B03A: var_eax = Unknown_EB8F(var_18, var_20, var_1C, Unknown_VTable_Call[ecx+00000304h], Me, var_18)
loc_0087B03F: End If
loc_0087B04F: If var_18 <= 4 Then
loc_0087B058: var_eax = Unknown_VTable_Call[ecx+00000324h]
loc_0087B093: Me.ForeColor = global_43810000
loc_0087B0BD: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087B0FC: Me.Top = global_43820000
loc_0087B12E: 00000001h = 00000001h + var_18
loc_0087B138: var_18 = 00000001h+var_18
loc_0087B13B: var_eax = Unknown_EB8F(var_18, var_20, var_1C, Unknown_VTable_Call[ecx+00000304h], Me, var_18)
loc_0087B140: End If
loc_0087B14E:
loc_0087B156: If var_18 <= 6 Then
loc_0087B15F: var_eax = Unknown_VTable_Call[edx+00000324h]
loc_0087B19A: Me.ForeColor = global_439A8000
loc_0087B1C4: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087B203: Me.Top = global_439B8000
loc_0087B235: 00000001h = 00000001h + var_18
loc_0087B23F: var_18 = 00000001h+var_18
loc_0087B242: GoTo loc_0087B14E
loc_0087B247: End If
loc_0087B25C:
loc_0087B264: If var_18 <= 8 Then
loc_0087B26D: var_eax = Unknown_VTable_Call[edx+00000324h]
loc_0087B2A8: Me.ForeColor = global_43B48000
loc_0087B2D2: var_eax = Unknown_VTable_Call[ecx+00000304h]
loc_0087B311: Me.Top = global_43B58000
loc_0087B342: var_70 = var_70 + var_18
loc_0087B348: var_18 = var_70+var_18
loc_0087B34B: GoTo loc_0087B25C
loc_0087B350: End If
loc_0087B356: GoTo loc_0087B36C
loc_0087B36B: Exit Sub
loc_0087B36C: 'Referenced from: 0087B356
loc_0087B36C: Exit Sub
End Sub
Public Sub Proc_22_1_87B3B0
Dim global_00887AE8 As Global
Dim global_00886880 As Me
loc_0087B3EE: If arg_C = 1 Then
loc_0087B3FC: var_eax = Proc_10_23_84E330(global_00886598, var_38, edi)
loc_0087B401: GoTo loc_0087B408
loc_0087B403: End If
loc_0087B403: var_eax = Proc_9_20_8476B0(arg_C, ebx, )
loc_0087B408: 'Referenced from: 0087B401
loc_0087B413: If global_886010 = 1 Then
loc_0087B419: End If
loc_0087B41E: global_886178 = .GetPalette 'Ignore this
loc_0087B427: var_eax = versionDeclare.VTable_00000740
loc_0087B443: var_eax = Proc_12_35_86B900(Me, , )
loc_0087B44B: eax = arg_C - 1
loc_0087B44C: If arg_C - 1 Then
loc_0087B452: eax = arg_C - 1 - 1
loc_0087B453: If arg_C - 1 - 1 <> 0 Then GoTo loc_0087B628
loc_0087B459: var_eax = Proc_845A50(, , )
loc_0087B483: var_4C = global_00887AE8
loc_0087B486: Set var_14 = Me
loc_0087B491: var_eax = Global.Unload var_14
loc_0087B511: var_eax = titleScreen.Show var_24, var_20
loc_0087B538: GoTo loc_0087B639
loc_0087B53D: global_8861C0 = stk@FFBC
loc_0087B544: global_8860E2 = FFFFFFh
loc_0087B54D: var_eax = Proc_868420(global_0087B63A, -2147352572, var_18)
loc_0087B552: var_eax = Proc_86F0F0(10, var_30, -2147352572)
loc_0087B57C: var_50 = global_00887AE8
loc_0087B57F: Set var_14 = global_00886880
loc_0087B58A: var_eax = Global.Unload var_14
loc_0087B60A: var_eax = frmMain.Show var_24, var_20
loc_0087B628:
loc_0087B628: End If
loc_0087B62D: GoTo loc_0087B639
loc_0087B638: Exit Sub
loc_0087B639: 'Referenced from: 0087B538
End Sub