diff --git a/src/Backdrop.frm b/src/Backdrop.frm new file mode 100644 index 0000000..31f5ccd --- /dev/null +++ b/src/Backdrop.frm @@ -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 diff --git a/src/Backdrop.frx b/src/Backdrop.frx new file mode 100644 index 0000000..fe69c88 Binary files /dev/null and b/src/Backdrop.frx differ diff --git a/src/DefineChallengeLevels.bas b/src/DefineChallengeLevels.bas new file mode 100644 index 0000000..e69de29 diff --git a/src/DirectDrawModule.bas b/src/DirectDrawModule.bas new file mode 100644 index 0000000..6f59854 --- /dev/null +++ b/src/DirectDrawModule.bas @@ -0,0 +1,1562 @@ + +Public Sub Proc_11_0_853140 + loc_00853177: var_2C = Timer + loc_00853185: Randomize(Timer) + loc_0085319E: If global_8861A2 = 6 Then + loc_008531E9: global_8861A2 = CInt((Int((Rnd(10) * global_402640)) + global_401850)) + loc_008531F1: GoTo loc_008531F9 + loc_008531F3: End If + loc_008531F9: 'Referenced from: 008531F1 + loc_00853207: If 008861A0h = var_886038 Then + loc_0085322C: 00886038h = 00886038h - 0001h + loc_0085326A: global_8861A0 = CInt((Int((Rnd(10) * global_00886038)) + global_401850)) + loc_00853278: + loc_00853297: 00886038h = 00886038h - 0001h + loc_008532D5: global_8861A0 = CInt((Int((Rnd(10) * global_00886038)) + global_401850)) + loc_008532E5: If var_886034 Then + loc_008532EB: If 00886034h = 1 Then + loc_008532FA: 008861A0h = 008861A0h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008532FE: If 008861A0h >= 0 Then + loc_00853300: var_eax = Err.Raise + loc_00853308: End If + loc_0085330F: edi*8 = edi*8 - 008861A0h + loc_0085331A: GoTo loc_00853324 + loc_0085331C: End If + loc_0085331C: End If + loc_0085331C: var_eax = Err.Raise + loc_00853324: 'Referenced from: 0085331A + loc_0085332D: If ecx+eax+0000000Ah = 0 Then GoTo loc_00853278 + loc_00853333: var_eax = Proc_9_10_844CB0(, , ) + loc_00853338: GoTo loc_00853340 + loc_0085333A: End If + loc_00853340: 'Referenced from: 00853338 + loc_00853348: If global_8861A2 Then + loc_00853353: global_88611A = FFFFFFh + loc_0085335E: If var_88603C Then + loc_00853368: If 0088603Ch = 1 Then + loc_00853376: If var_886044 Then + loc_0085337C: If 00886044h = 2 Then + loc_0085338B: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085338F: If 008861A0h >= 0 Then + loc_00853391: var_eax = Err.Raise + loc_00853399: End If + loc_008533A6: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008533AA: If 008861A2h >= 0 Then + loc_008533AC: var_eax = Err.Raise + loc_008533B4: End If + loc_008533BA: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_008533BE: GoTo loc_008533C8 + loc_008533C0: End If + loc_008533C0: End If + loc_008533C0: var_eax = Err.Raise + loc_008533C8: 'Referenced from: 008533BE + loc_008533DA: edx+eax = edx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008533DE: If edx+eax >= 0 Then + loc_008533E0: var_eax = Err.Raise + loc_008533E8: End If + loc_008533EF: edi*8 = edi*8 - edx+eax + loc_008533FA: GoTo loc_00853404 + loc_008533FC: End If + loc_008533FC: End If + loc_008533FC: var_eax = Err.Raise + loc_00853404: 'Referenced from: 008533FA + loc_00853414: global_88614C = ebx+eax+00000008h + loc_0085341A: If var_88603C Then + loc_00853424: If 0088603Ch = 1 Then + loc_0085342C: If var_886044 Then + loc_00853432: If 00886044h = 2 Then + loc_00853441: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00853445: If 008861A0h >= 0 Then + loc_00853447: var_eax = Err.Raise + loc_0085344F: End If + loc_0085345C: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00853460: If 008861A2h >= 0 Then + loc_00853462: var_eax = Err.Raise + loc_0085346A: End If + loc_00853470: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_00853474: GoTo loc_0085347E + loc_00853476: End If + loc_00853476: End If + loc_00853476: var_eax = Err.Raise + loc_0085347E: 'Referenced from: 00853474 + loc_00853490: edx+eax = edx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00853494: If edx+eax >= 0 Then + loc_00853496: var_eax = Err.Raise + loc_0085349E: End If + loc_008534A5: edi*8 = edi*8 - edx+eax + loc_008534B0: GoTo loc_008534BA + loc_008534B2: End If + loc_008534B2: End If + loc_008534B2: var_eax = Err.Raise + loc_008534BA: 'Referenced from: 008534B0 + loc_008534CA: global_88614E = ebx+eax+0000000Ah + loc_008534D0: If var_88603C Then + loc_008534DA: If 0088603Ch = 1 Then + loc_008534E2: If var_886044 Then + loc_008534E8: If 00886044h = 2 Then + loc_008534F7: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008534FB: If 008861A0h >= 0 Then + loc_008534FD: var_eax = Err.Raise + loc_00853505: End If + loc_00853512: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00853516: If 008861A2h >= 0 Then + loc_00853518: var_eax = Err.Raise + loc_00853520: End If + loc_00853526: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_0085352A: GoTo loc_00853534 + loc_0085352C: End If + loc_0085352C: End If + loc_0085352C: var_eax = Err.Raise + loc_00853534: 'Referenced from: 0085352A + loc_00853546: ecx+eax = ecx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085354A: If ecx+eax >= 0 Then + loc_0085354C: var_eax = Err.Raise + loc_0085354E: End If + loc_00853555: edi*8 = edi*8 - ecx+eax + loc_00853560: GoTo loc_00853564 + loc_00853562: End If + loc_00853562: End If + loc_00853562: var_eax = Err.Raise + loc_00853564: 'Referenced from: 00853560 + loc_00853576: global_00886144 = ecx+eax+00000004h + loc_0085357C: GoTo loc_0085358F + loc_0085357E: End If + loc_0085357E: global_88611A = 0 + loc_00853587: GoTo loc_0085358F + loc_00853589: + loc_0085358F: 'Referenced from: 0085357C + loc_008535B8: global_886098 = ((Rnd(10) * global_40263C) - global_402638) + loc_008535E9: global_88609C = ((Rnd(10) * global_40263C) - global_402638) + loc_00853601: fabs + loc_0085360D: var_70 = global_886098 + loc_00853624: If Err.Number Then + loc_0085362B: GoTo loc_0085362F + loc_0085362D: End If + loc_0085362F: 'Referenced from: 0085362B + loc_00853635: fabs + loc_00853641: var_74 = global_88609C + loc_00853658: If Err.Number Then + loc_0085365F: GoTo loc_00853663 + loc_00853661: End If + loc_00853663: 'Referenced from: 0085365F + loc_00853669: fabs + loc_00853675: var_78 = global_886098 + loc_0085368C: If Err.Number Then + loc_00853693: GoTo loc_00853697 + loc_00853695: End If + loc_00853697: 'Referenced from: 00853693 + loc_0085369D: fabs + loc_008536A9: var_7C = global_88609C + loc_008536C0: If Err.Number Then + loc_008536C7: GoTo loc_008536CB + loc_008536C9: End If + loc_008536CB: 'Referenced from: 008536C7 + loc_008536DD: If ebx <> 0 Then GoTo loc_00853589 + loc_008536EA: 00886178h = 00886178h - 00000000h + loc_008536ED: If var_886178 Then + loc_008536EF: eax = 00886178h - 1 + loc_008536F0: If 00886178h - 1 Then + loc_008536F2: eax = 00886178h - 1 - 1 + loc_008536F3: If 00886178h - 1 - 1 <> 0 Then GoTo loc_00853749 + loc_00853707: var_eax = Proc_86F3E0(global_00886184, 2) + loc_00853712: GoTo loc_0085375B + loc_00853714: End If + loc_00853726: var_eax = Proc_86F3E0(global_00886180, 1, global_0085375C) + loc_00853731: GoTo loc_0085375B + loc_00853733: End If + loc_00853744: var_eax = Proc_86F3E0(global_0088617C, 0, global_0085375C) + loc_00853749: + loc_0085374F: GoTo loc_0085375B + loc_0085375A: Exit Sub + loc_0085375B: 'Referenced from: 00853712 + loc_0085375B: Exit Sub + loc_0085376C: Exit Sub + loc_0085376D: End If + loc_0085376D: End If + loc_0085376D: End If + loc_0085376D: End If + loc_0085376D: End If + loc_0085376D: End If +End Sub + +Public Sub Proc_11_1_853AD0 + Dim var_3C As Me + loc_00853B5C: var_eax = QueryPerformanceCounter(var_4C) + loc_00853B74: var_eax = QueryPerformanceCounter(var_74) + loc_00853B7F: var_eax = QueryPerformanceCounter(var_68) + loc_00853B91: var_eax = Proc_86B860(0, CCur(0), ebx) + loc_00853B96: + loc_00853B9A: var_eax = QueryPerformanceCounter(var_74) + loc_00853BA9: If var_1C = 0 Then + loc_00853BB6: var_eax = QueryPerformanceCounter(var_4C) + loc_00853BC1: End If + loc_00853BC1: var_eax = Proc_8551A0(, , ) + loc_00853BCD: If global_886126 Then + loc_00853BEB: 00886076h = 00886076h + 00000002h + loc_00853BFA: 00886070h = 00886070h + 00886074h + loc_00853C1E: 00886070h+00886074h = 00886070h+00886074h - 003Ch + loc_00853C78: var_eax = Proc_9_6_8437C0("FPS:" & var_84, 2, 2) + loc_00853CA2: End If + loc_00853CA2: var_eax = Proc_12_10_860410(var_D4, global_008865E8, var_D0) + loc_00853CAE: If global_886126 Then + loc_00853CBF: var_1C = var_1C + 0001h + loc_00853CCC: 008860D0h = 008860D0h + 0001h + loc_00853CD7: var_1C = var_3C.QueryInterface 'Ignore this + loc_00853CDA: global_8860D0 = var_3C.QueryInterface 'Ignore this + loc_00853CE1: var_eax = QueryPerformanceCounter() + loc_00853CFC: call __vbaCySub(var_3C, var_38, var_4C, var_48) + loc_00853D04: call __vbaR8Cy(__vbaCySub(var_3C, var_38, var_4C, var_48), var_4C) + loc_00853D1D: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00853D2A: If global_886000 = 0 Then + loc_00853D2C: fdivr st0, var_E0 + loc_00853D32: GoTo loc_00853D45 + loc_00853D34: End If + loc_00853D45: 'Referenced from: 00853D32 + loc_00853D78: call __vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68, var_E0, var_DC) + loc_00853D80: call __vbaCyAdd(__vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68, var_E0, var_DC), var_4C) + loc_00853D88: If var_4C Then + loc_00853DB0: var_EC = global_008860D0 + loc_00853DB9: call __vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68) + loc_00853DC1: call __vbaCyAdd(__vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68), var_38) + loc_00853DC9: call __vbaR8Cy(__vbaCyAdd(__vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68), var_38), var_38) + loc_00853DDB: var_F4 = __vbaR8Cy(__vbaCyAdd(__vbaCySub(var_3C, var_38, var_4C, var_48, CCur(0), var_68), var_38), var_38) + loc_00853DE3: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00853DF0: If global_886000 = 0 Then + loc_00853DF2: fdivr st0, var_F4 + loc_00853DF8: GoTo loc_00853E0B + loc_00853DFA: End If + loc_00853E0B: 'Referenced from: 00853DF8 + loc_00853E12: If global_886000 = 0 Then + loc_00853E14: fdivr st0, var_EC + loc_00853E1A: GoTo loc_00853E2D + loc_00853E1C: End If + loc_00853E2D: 'Referenced from: 00853E1A + loc_00853E3D: var_94 = Int(( + [ebx-0000007Ch])) + loc_00853E62: var_84 = Str$(var_94) + loc_00853E74: End If + loc_00853E77: End If + loc_00853E77: End If + loc_00853E7F: If global_8860EE = var_FFFFFF Then + loc_00853E92: var_eax = Proc_868320(&H64, var_EC, var_E8) + loc_00853E97: End If + loc_00853E9B: var_eax = QueryPerformanceCounter(var_68) + loc_00853EBE: call __vbaCySub(var_68, var_64, var_74, var_70, CCur(0), var_68, var_F4, var_F0) + loc_00853EC2: call __vbaR8Cy(__vbaCySub(var_68, var_64, var_74, var_70, CCur(0), var_68, var_F4, var_F0), var_64) + loc_00853ED4: var_FC = __vbaR8Cy(__vbaCySub(var_68, var_64, var_74, var_70, CCur(0), var_68, var_F4, var_F0), var_64) + loc_00853EDC: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00853EE9: If global_886000 = 0 Then + loc_00853EEB: fdivr st0, var_FC + loc_00853EF1: GoTo loc_00853F04 + loc_00853EF3: End If + loc_00853F04: 'Referenced from: 00853EF1 + loc_00853F0E: call __vbaFpCy(var_FC, var_F8) + loc_00853F16: call __vbaCyAdd(__vbaFpCy(var_FC, var_F8), global_008860D8) + loc_00853F1E: call __vbaR4Cy(__vbaCyAdd(__vbaFpCy(var_FC, var_F8), global_008860D8), global_008860D8) + loc_00853F24: global_8860D4 = __vbaR4Cy(__vbaCyAdd(__vbaFpCy(var_FC, var_F8), global_008860D8), global_008860D8) + loc_00853F41: If Err.Number Then + loc_00853F43: global_8860D4 = 3E4CCCCDh + loc_00853F4D: End If + loc_00853F51: var_eax = QueryPerformanceCounter(var_74) + loc_00853F65: If global_88610E Then + loc_00853F67: var_eax = Proc_12_2_85A790 + loc_00853F6C: End If + loc_00853F73: If global_886114 Then + loc_00853F75: var_eax = Proc_12_3_85C540 + loc_00853F7A: End If + loc_00853F81: If global_886112 Then + loc_00853F83: var_eax = Proc_85BF70 + loc_00853F88: End If + loc_00853F8F: If global_886110 Then + loc_00853F91: var_eax = Proc_12_9_860230 + loc_00853F96: End If + loc_00853F9D: If global_8861B4 Then + loc_00853F9F: var_eax = Proc_867750 + loc_00853FA4: End If + loc_00853FAB: If global_88608E = 0 Then + loc_00853FB4: If global_886090 = 0 Then + loc_00853FBD: If global_886092 = 0 Then + loc_00853FC6: If global_886094 = 0 Then GoTo loc_00853FCD + loc_00853FC8: End If + loc_00853FC8: End If + loc_00853FC8: End If + loc_00853FC8: var_eax = Proc_858F90 + loc_00853FCD: var_eax = Proc_859DE0 + loc_00853FD9: If global_8860A0 Then + loc_00853FDB: var_eax = Proc_863310 + loc_00853FE0: var_eax = Proc_12_15_862A80 + loc_00853FE5: End If + loc_00853FEC: If global_8860A2 Then + loc_00853FEE: var_eax = Proc_8638E0 + loc_00853FF3: var_eax = Proc_12_16_862ED0 + loc_00853FF8: End If + loc_00853FFF: If global_886584 Then + loc_00854009: var_eax = QueryPerformanceCounter(var_7C) + loc_00854025: call __vbaCySub(var_7C, var_78, global_00886588, global_0088658C) + loc_00854029: call __vbaR8Cy(__vbaCySub(var_7C, var_78, global_00886588, global_0088658C), var_7C) + loc_00854042: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0085404F: If global_886000 = 0 Then + loc_00854051: fdivr st0, var_104 + loc_00854057: GoTo loc_0085406A + loc_00854059: End If + loc_0085406A: 'Referenced from: 00854057 + loc_00854094: If global_886000 = 0 Then + loc_0085409C: GoTo loc_008540AF + loc_0085409E: End If + loc_008540AF: 'Referenced from: 0085409C + loc_008540CC: var_eax = Proc_9_27_848760(CInt((global_401D30 / global_401728)), global_401728, global_40172C) + loc_008540D8: End If + loc_008540D8: End If + loc_008540DF: If global_88619A = 0 Then + loc_008540E1: var_eax = Proc_86F270(var_104, var_100) + loc_008540E6: End If + loc_008540E6: Method_60F40539 + loc_0085412D: var_eax = Proc_10_11_84A820(var_8C, var_8C, global_00886894) + loc_0085415B: If global_88612C Then + loc_00854169: If global_886018 = 2 Then + loc_00854172: GoTo loc_00854187 + loc_00854174: End If + loc_0085417E: If global_88613A Then + loc_00854187: End If + loc_0085418B: var_eax = QueryPerformanceCounter(var_18) + loc_008541AB: call __vbaCySub(var_18, var_14, global_00886130, global_00886134, global_00886894, var_8C, var_8C, global_0040EACC, global_00886894, global_0040C7EC) + loc_008541B3: call __vbaR8Cy(__vbaCySub(var_18, var_14, global_00886130, global_00886134, global_00886894, var_8C, var_8C, global_0040EACC, global_00886894, global_0040C7EC), var_18) + loc_008541CC: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_008541D9: If global_886000 = 0 Then + loc_008541DB: fdivr st0, var_10C + loc_008541E1: GoTo loc_008541F4 + loc_008541E3: End If + loc_008541F4: 'Referenced from: 008541E1 + loc_008541FE: var_110 = Err.Number + loc_0085421F: If Err.Number Then + loc_00854224: End If + loc_00854224: End If + loc_00854228: var_eax = QueryPerformanceCounter(var_68) + loc_00854243: call __vbaCySub(var_68, var_64, var_74, var_70, var_10C, var_108) + loc_0085424B: call __vbaR8Cy(__vbaCySub(var_68, var_64, var_74, var_70, var_10C, var_108), var_64) + loc_0085425D: var_118 = __vbaR8Cy(__vbaCySub(var_68, var_64, var_74, var_70, var_10C, var_108), var_64) + loc_00854265: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00854272: If global_886000 = 0 Then + loc_00854274: fdivr st0, var_118 + loc_0085427A: GoTo loc_0085428D + loc_0085427C: End If + loc_0085428D: 'Referenced from: 0085427A + loc_00854297: call __vbaFpCy(var_118, var_114) + loc_008542A9: call __vbaFpCmpCy(__vbaFpCy(var_118, var_114), global_008860D8) + loc_008542B1: If __vbaFpCmpCy(__vbaFpCy(var_118, var_114) > 0 Then + loc_008542B9: call __vbaFpCy + loc_008542C3: End If + loc_008542CA: If global_886128 = 0 Then + loc_008542D3: If global_88612A = 0 Then + loc_008542D9: If var_60 = 0 Then GoTo loc_00853B96 + loc_008542DF: End If + loc_008542DF: End If + loc_008542E5: GoTo loc_00854319 + loc_00854318: Exit Sub + loc_00854319: 'Referenced from: 008542E5 + loc_00854335: Exit Sub + loc_00854346: Exit Sub + loc_00854347: End If + loc_00854347: End If + loc_00854347: End If + loc_00854347: End If + loc_00854347: End If + loc_00854347: End If + loc_00854347: End If +End Sub + +Public Sub Proc_11_2_8545D0 + Dim var_18 As Me + Dim var_30 As Me + loc_00854631: var_eax = Proc_8669E0(edi, esi, ebx) + loc_00854636: var_eax = Proc_852BC0(, , ) + loc_0085466E: If 00886056h >= var_886078 Then + loc_00854670: 00886078h = 00886078h * 002Dh + loc_0085467A: 00886078h = 00886078h + 000Ch + loc_00854684: GoTo loc_008546B1 + loc_00854686: End If + loc_0085468F: var_4C = global_00886056 + loc_008546B1: 'Referenced from: 00854684 + loc_008546B8: global_886070 = CInt(((var_4C + global_402668) * global_401868)) + loc_008546C7: If 00886058h >= var_88607A Then + loc_008546C9: 0088607Ah = 0088607Ah * 002Dh + loc_008546D3: 0088607Ah = 0088607Ah + 000Ch + loc_008546DD: GoTo loc_0085470A + loc_008546DF: End If + loc_008546E8: var_58 = global_00886058 + loc_0085470A: 'Referenced from: 008546DD + loc_0085470A: global_886072 = CInt(((var_58 + global_402668) * global_401868)) + loc_00854710: var_eax = Proc_854BF0(, , ) + loc_0085471D: 0088607Ah = 0088607Ah * 8937592 + loc_00854745: 0088607Ah = 0088607Ah + 001Eh + loc_00854757: global_8860E8 = 0 + loc_0085475E: ReDim global_00886020(0 To global_00886056, 0 To global_00886058) + loc_0085477D: ReDim global_008865A4(0 To global_008860E4) + loc_0085479A: ReDim global_0088659C(0 To global_008860E4) + loc_008547B4: ReDim global_008865A0(0 To global_008860E4) + loc_008547C9: ReDim global_00886024(0 To global_008860E6) + loc_008547E1: ReDim global_0088602C(0 To global_008860E8) + loc_008547F3: ReDim global_00886028(0 To 200) + loc_008547FF: If global_88613C Then + loc_00854801: var_eax = Proc_844C70 + loc_00854806: End If + loc_00854806: var_eax = Proc_855340 + loc_0085480B: var_eax = Proc_857430 + loc_00854810: var_eax = Proc_8574B0 + loc_00854815: var_eax = Proc_857530 + loc_0085481A: var_eax = Proc_854AB0 + loc_00854826: eax = 00886018h - 1 + loc_00854827: If 00886018h - 1 Then + loc_00854829: eax = 00886018h - 1 - 1 + loc_0085482A: If 00886018h - 1 - 1 <> 0 Then GoTo loc_0085483D + loc_0085482C: var_eax = Proc_9_10_844CB0 + loc_00854831: var_eax = Proc_12_6_85F260 + loc_00854836: GoTo loc_0085483D + loc_00854838: End If + loc_00854838: var_eax = Proc_12_5_85E9C0 + loc_0085483D: 'Referenced from: 00854836 + loc_0085483D: var_eax = Proc_12_8_85FB60 + loc_00854842: var_eax = Proc_857430 + loc_00854847: var_eax = Proc_8574B0 + loc_0085486E: global_8860B4 = CCur(0) + loc_0085487A: global_8860B8 = global_008860E6 + loc_0085488E: global_886618 = 1 + loc_00854895: global_88607C = 1 + loc_008548BB: var_30 = global_00886894 + loc_008548D8: var_eax = Unknown_VTable_Call[edx+0000030Ch] + loc_008548F4: var_1C = frmMain.hWnd + loc_0085491E: var_5C = var_30 + loc_00854929: frmMain.MouseIcon = var_1C + loc_00854961: global_8860A8 = CCur(0) + loc_0085496D: global_8860AC = var_18 + loc_008549A3: var_eax = Proc_10_11_84A820(var_18, var_18, global_00886894) + loc_008549C4: var_eax = Proc_860B90(global_00886894, var_18, var_18) + loc_008549C9: var_eax = Proc_11_5_855E70(global_0040EACC, global_00886894, global_0040C7EC) + loc_008549CE: var_eax = Proc_864980(var_20, var_1C, var_18) + loc_008549D3: var_eax = Proc_12_17_864180(Unknown_VTable_Call[edx+0000030Ch], global_00886638) + loc_008549D8: var_eax = Proc_85CB90 + loc_008549DD: var_eax = Proc_8551A0 + loc_008549E2: var_eax = Proc_864EF0 + loc_008549EE: If global_8860E2 Then + loc_008549FB: var_eax = Proc_12_25_868460(var_24) + loc_00854A07: GoTo loc_00854A15 + loc_00854A09: End If + loc_00854A10: var_eax = Proc_12_25_868460(var_24) + loc_00854A15: 'Referenced from: 00854A07 + loc_00854A15: global_8860E0 = FFFFFFh + loc_00854A1E: var_eax = Proc_11_4_8554E0 + loc_00854A29: GoTo loc_00854A43 + loc_00854A42: Exit Sub + loc_00854A43: 'Referenced from: 00854A29 + loc_00854A43: Exit Sub + loc_00854A54: Exit Sub + loc_00854A55: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_11_3_854DB0 + Dim global_00855183 As Me + loc_00854DED: 008860EAh = 008860EAh - 00886074h + loc_00854E1B: var_30 = CInt((global_008860EA + global_886064)) + loc_00854E26: var_eax = Proc_12_4_85CAB0(var_2C, var_30, edi) + loc_00854E35: var_2C = CInt(@CInt(( + [ebx-0000007Ch]))) + loc_00854E40: var_14 = var_2C + loc_00854E4C: 008860ECh = 008860ECh - 00886076h + loc_00854E82: var_30 = CInt((global_008860EC + global_886068)) + loc_00854E85: var_eax = Proc_12_4_85CAB0(var_2C, var_30, 0) + loc_00854E8E: var_2C = CInt() + loc_00854E95: var_1C = CInt() + loc_00854EA4: If var_14 <= var_886056 Then + loc_00854EAE: If var_14 >= 1 Then + loc_00854EBB: If var_2C <= var_886058 Then + loc_00854EC5: If var_2C >= 1 Then + loc_00854ED9: If global_886108 = var_FFFFFF Then + loc_00854EE1: If var_886020 Then + loc_00854EE7: If 00886020h = 2 Then + loc_00854EF8: var_14 = var_14 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00854EFC: If var_14 >= 0 Then + loc_00854EFE: var_eax = Err.Raise + loc_00854F06: End If + loc_00854F0F: var_2C = var_2C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00854F13: If var_2C >= 0 Then + loc_00854F15: var_eax = Err.Raise + loc_00854F1D: End If + loc_00854F26: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_14 + loc_00854F31: GoTo loc_00854F41 + loc_00854F33: End If + loc_00854F33: End If + loc_00854F39: var_eax = Err.Raise + loc_00854F41: 'Referenced from: 00854F31 + loc_00854F4A: If edx+eax+00000008h = var_FFFFFF Then + loc_00854F52: If var_886020 Then + loc_00854F58: If 00886020h = 2 Then + loc_00854F63: var_14 = var_14 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00854F67: If var_14 >= 0 Then + loc_00854F69: var_eax = Err.Raise + loc_00854F71: End If + loc_00854F7A: var_1C = var_1C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00854F7E: If var_1C >= 0 Then + loc_00854F80: var_eax = Err.Raise + loc_00854F88: End If + loc_00854F91: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_14 + loc_00854F9C: GoTo loc_00854FA6 + loc_00854F9E: End If + loc_00854F9E: End If + loc_00854F9E: var_eax = Err.Raise + loc_00854FA6: 'Referenced from: 00854F9C + loc_00854FAF: If edx+eax+0000000Eh <> 1 Then + loc_00854FB3: If var_886020 Then + loc_00854FB9: If 00886020h = 2 Then + loc_00854FC4: var_14 = var_14 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00854FC8: If var_14 >= 0 Then + loc_00854FCA: var_eax = Err.Raise + loc_00854FD2: End If + loc_00854FDB: var_1C = var_1C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00854FDF: If var_1C >= 0 Then + loc_00854FE1: var_eax = Err.Raise + loc_00854FE9: End If + loc_00854FF2: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_14 + loc_00854FFD: GoTo loc_00855007 + loc_00854FFF: End If + loc_00854FFF: End If + loc_00854FFF: var_eax = Err.Raise + loc_00855007: 'Referenced from: 00854FFD + loc_00855010: If edx+eax+0000000Ch = var_FFFFFF Then + loc_00855016: End If + loc_00855018: If var_886020 Then + loc_0085501E: If 00886020h = 2 Then + loc_00855029: var_14 = var_14 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085502D: If var_14 >= 0 Then + loc_0085502F: var_eax = Err.Raise + loc_00855037: End If + loc_00855040: var_1C = var_1C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00855044: If var_1C >= 0 Then + loc_00855046: var_eax = Err.Raise + loc_0085504E: End If + loc_00855054: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_14 + loc_0085505C: GoTo loc_00855066 + loc_0085505E: End If + loc_0085505E: End If + loc_0085505E: var_eax = Err.Raise + loc_00855066: 'Referenced from: 0085505C + loc_0085506F: If ecx+eax+0000000Ch = var_FFFFFF Then + loc_00855081: var_eax = Proc_10_23_84E330(global_0088656C, 0) + loc_00855086: End If + loc_00855086: var_eax = Proc_12_13_8616E0 + loc_0085508B: var_eax = Proc_85D0C0 + loc_00855090: global_886108 = 0 + loc_00855099: var_eax = Proc_11_4_8554E0 + loc_008550A4: GoTo loc_00855182 + loc_008550A9: End If + loc_008550A9: End If + loc_008550A9: var_eax = Proc_85C9D0(global_00855183) + loc_008550AE: global_886108 = 0 + loc_008550B7: var_eax = Proc_11_4_8554E0 + loc_008550C2: GoTo loc_00855182 + loc_008550C7: End If + loc_008550C9: If .GetTypeInfoCount 'Ignore this Then + loc_008550CF: If ecx = 2 Then + loc_008550DA: var_14 = var_14 - global_00855183.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008550DE: If var_14 >= 0 Then + loc_008550E0: var_eax = Err.Raise + loc_008550EC: End If + loc_008550F5: var_1C = var_1C - global_00855183.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008550F9: If var_1C >= 0 Then + loc_008550FB: var_eax = Err.Raise + loc_00855107: End If + loc_00855110: global_00855183.%x1 = Invoke 'Ignore this = global_00855183.%x1 = Invoke 'Ignore this + var_14 + loc_0085511B: GoTo loc_00855129 + loc_0085511D: End If + loc_0085511D: End If + loc_0085511D: var_eax = Err.Raise + loc_00855129: 'Referenced from: 0085511B + loc_00855132: If ecx+eax+00000002h Then + loc_00855136: var_eax = Proc_863F30(var_14, var_1C) + loc_0085513E: If Proc_863F30(var_14, var_1C) Then + loc_00855142: var_eax = Proc_85DC30(var_14, var_1C) + loc_00855147: global_886108 = FFFFFFh + loc_00855150: var_eax = Proc_10_0_8488E0 + loc_00855155: End If + loc_00855155: End If + loc_00855155: var_eax = Proc_11_4_8554E0 + loc_00855160: GoTo loc_00855182 + loc_00855162: End If + loc_00855162: End If + loc_00855162: End If + loc_00855162: End If + loc_00855162: var_eax = Proc_85C9D0(global_00855183) + loc_00855167: global_886108 = 0 + loc_00855176: GoTo loc_00855182 + loc_00855181: Exit Sub + loc_00855182: 'Referenced from: 008550A4 + loc_00855182: Exit Sub + loc_00855193: Exit Sub + loc_00855194: End If + loc_00855194: End If + loc_00855194: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_11_4_8554E0 + loc_0085555A: var_eax = Proc_10_14_84B2D0(global_008865EC, global_008865E8, esi) + loc_00855580: If global_8860E0 Then + loc_0085558D: If global_8861B4 Then + loc_008555A3: If 00000001h > 8 Then GoTo loc_00855CE7 + loc_008555B0: If 008861B0h Then + loc_008555B6: If 008861B0h = 1 Then + loc_008555C1: 00000001h = 00000001h - 000001BAh.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008555C5: If 00000001h >= 0 Then + loc_008555C7: var_eax = Err.Raise + loc_008555CD: End If + loc_008555D5: GoTo loc_008555DD + loc_008555D7: End If + loc_008555D7: End If + loc_008555D7: var_eax = Err.Raise + loc_008555DD: 'Referenced from: 008555D5 + loc_008555EB: var_eax = Unknown_641(global_0088608A, 00000026h, var_78, var_7C) + loc_008555FF: eax = 00000001h - 1 + loc_00855603: var_eax = Unknown_641(edi, esi) + loc_00855609: GoTo loc_[eax*4+00855E38h] + loc_00855618: var_20 = "Click to restart the " + loc_00855622: GoTo loc_0085580C + loc_0085562F: var_20 = "Click to stop playing and" + loc_00855639: GoTo loc_0085580C + loc_00855646: var_20 = "Music control: skip to the" + loc_00855650: GoTo loc_0085580C + loc_0085565C: If global_88619A Then + loc_00855666: var_20 = "Music control: begin playback" + loc_00855670: GoTo loc_0085580C + loc_00855675: End If + loc_0085567D: var_20 = "Music control: stop playback" + loc_00855687: GoTo loc_0085580C + loc_00855694: var_20 = "Music control: skip to the" + loc_0085569E: GoTo loc_0085580C + loc_008556AB: var_20 = "Music control: loop playback" + loc_008556B5: GoTo loc_0085580C + loc_008556C2: var_20 = "Music control: shuffle the" + loc_008556CC: GoTo loc_0085580C + loc_008556D8: If global_88619A = 0 Then + loc_008556E5: If global_88619C = 0 Then + loc_008556EE: GoTo loc_0085573D + loc_008556F0: End If + loc_008556F8: If 00886050h Then + loc_008556FE: If 00886050h = 1 Then + loc_0085570D: 00886196h = 00886196h - 000001BAh.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00855711: If 00886196h >= 0 Then + loc_00855713: var_eax = Err.Raise + loc_0085571F: End If + loc_00855722: GoTo loc_00855730 + loc_00855724: End If + loc_00855724: End If + loc_00855724: var_eax = Err.Raise + loc_00855730: 'Referenced from: 00855722 + loc_00855737: var_1C = ecx+eax + loc_0085573D: 'Referenced from: 008556EE + loc_00855745: If var_886048 Then + loc_0085574B: If 00886048h = 1 Then + loc_00855756: ecx+eax = ecx+eax - 000001BAh.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085575A: If ecx+eax >= 0 Then + loc_0085575C: var_eax = Err.Raise + loc_00855768: End If + loc_0085576E: GoTo loc_0085577C + loc_00855770: End If + loc_00855770: End If + loc_00855770: var_eax = Err.Raise + loc_0085577C: 'Referenced from: 0085576E + loc_00855786: var_20 = ecx+eax+00000008h + loc_00855790: If var_886048 Then + loc_00855796: If 00886048h = 1 Then + loc_008557A1: ecx+eax = ecx+eax - 000001BAh.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008557A5: If ecx+eax >= 0 Then + loc_008557A7: var_eax = Err.Raise + loc_008557B3: End If + loc_008557B9: GoTo loc_008557C7 + loc_008557BB: End If + loc_008557BB: End If + loc_008557BB: var_eax = Err.Raise + loc_008557C7: 'Referenced from: 008557B9 + loc_008557DF: var_14 = "by " & edx+eax+00000004h + loc_008557FD: var_24 = RGB(255, 255, 128) + loc_00855802: GoTo loc_0085580E + loc_00855804: End If + loc_0085580C: 'Referenced from: 00855622 + loc_0085580C: var_20 = "Music is stopped." + loc_0085580E: 'Referenced from: 00855802 + loc_00855813: 00000001h = 00000001h + var_28 + loc_0085581C: var_28 = 00000001h+var_28 + loc_00855821: var_eax = Unknown_73E + loc_00855826: End If + loc_0085582E: If global_886108 = var_FFFFFF Then + loc_00855834: var_eax = Proc_855230 + loc_00855849: global_8860C4 = CCur(Proc_855230) + loc_0085584E: global_8860C8 = "Music is stopped." + loc_0085585B: var_5C = global_008860C4 + loc_0085586E: If global_8860A4 Then + loc_008558A7: var_34 = "Prepared to destroy " & Trim$(Str$(global_008860C4)) + loc_008558B6: var_20 = var_34 & " chain: " + loc_008558D4: var_eax = Proc_856040(global_008860C4) + loc_008558D9: var_38 = var_34 + loc_00855912: var_14 = Trim$(Str$(Proc_856040(global_008860C4))) & " points." + loc_00855942: If 008860C4h = 0 Then + loc_00855946: If 008860C8h = 0 Then GoTo loc_00855A1C + loc_0085594C: End If + loc_00855952: If 008860C4h = 0 Then + loc_00855956: If 008860C8h = 0 Then GoTo loc_00855A1C + loc_0085595C: End If + loc_00855962: If 008860C8h <= 0 Then + loc_00855964: If Not Asm.l_flag Then + loc_00855968: If 008860C4h > 0 Then GoTo loc_008559B1 + loc_0085596A: End If + loc_00855979: call __vbaCyMulI2(00000019h, global_008860C4, global_008860C8) + loc_0085598A: call __vbaCySub(CCur(255), global_008860C8, __vbaCyMulI2(00000019h, global_008860C4, global_008860C8), global_008860C8) + loc_00855992: __vbaCySub(CCur(255), global_008860C8, __vbaCyMulI2(00000019h, global_008860C4, global_008860C8), global_008860C8) = CInt(global_008860C8) + loc_008559A9: var_24 = RGB(255, 255, __vbaCySub(CCur(255), global_008860C8, __vbaCyMulI2(00000019h, global_008860C4, global_008860C8), global_008860C8)) + loc_008559AC: GoTo loc_00855CE7 + loc_008559B1: End If + loc_008559B7: If 008860C8h <= var_8860C8 Then + loc_008559B9: If Not Asm.l_flag Then + loc_008559BD: If 008860C4h > 0 Then GoTo loc_00855A10 + loc_008559BF: End If + loc_008559DB: call __vbaCySub(global_008860C4, global_008860C8, CCur(10), global_008860C8, 00000000h) + loc_008559E1: call __vbaCyMulI2(00000019h, __vbaCySub(global_008860C4, global_008860C8, CCur(10), global_008860C8, 00000000h), global_008860C4) + loc_008559F2: call __vbaCySub(CCur(255), global_008860C4, __vbaCyMulI2(00000019h, __vbaCySub(global_008860C4, global_008860C8, CCur(10), global_008860C8, 00000000h), global_008860C4), global_008860C4) + loc_008559F6: __vbaCySub(CCur(255), global_008860C4, __vbaCyMulI2(00000019h, __vbaCySub(global_008860C4, global_008860C8, CCur(10), global_008860C8, 00000000h), global_008860C4), global_008860C4) = CInt(global_008860C4) + loc_00855A08: var_24 = RGB(255, __vbaCySub(CCur(255), global_008860C4, __vbaCyMulI2(00000019h, __vbaCySub(global_008860C4, global_008860C8, CCur(10), global_008860C8, 00000000h), global_008860C4), global_008860C4), ) + loc_00855A0B: GoTo loc_00855CE7 + loc_00855A10: End If + loc_00855A10: + loc_00855A17: GoTo loc_00855CE7 + loc_00855A1C: + loc_00855A23: GoTo loc_00855CE7 + loc_00855A28: End If + loc_00855A6A: var_20 = & Trim$(Str$(global_008860C4)) & " chain. " + loc_00855A83: GoTo loc_00855CE7 + loc_00855A88: End If + loc_00855A8F: If global_8860A2 = 0 Then + loc_00855A9C: If global_8860A0 = 0 Then + loc_00855AA9: If global_88612C = 0 Then + loc_00855ABC: call __vbaStrFixstr(00000014h, global_00886150) + loc_00855AC9: var_30 = __vbaStrFixstr(00000014h, global_00886150) + loc_00855AD7: var_34 = Trim$(var_30) + loc_00855AE4: call __vbaLsetFixstr(00000014h, global_00886150, var_30) + loc_00855AF1: call __vbaStrFixstr(00000014h, global_00886150) + loc_00855AF8: var_2C = __vbaStrFixstr(00000014h, global_00886150) + loc_00855B40: If var_2C Then + loc_00855B53: call __vbaStrFixstr(00000014h, global_00886150) + loc_00855B5E: var_2C = __vbaStrFixstr(00000014h, global_00886150) + loc_00855B79: call __vbaLsetFixstr(00000014h, global_00886150, var_2C) + loc_00855B93: var_14 = Trim$(var_2C) & global_0040F308 + loc_00855BB3: GoTo loc_00855CE7 + loc_00855BB8: End If + loc_00855BCD: GoTo loc_00855CE7 + loc_00855BD2: End If + loc_00855BE7: If global_88613A <> var_34 & " chain. " Then + loc_00855C05: var_90 = Int((Rnd(var_44) + Rnd(var_44))) + loc_00855C25: If Err.Number Then + loc_00855C38: GoTo loc_00855CE7 + loc_00855C3D: End If + loc_00855C47: If var_90 = var_3F800000 Then + loc_00855C5A: GoTo loc_00855CE7 + loc_00855C5F: End If + loc_00855C7B: var_94 = Int((Rnd(var_44) + Rnd(var_44))) + loc_00855C9B: If Err.Number Then + loc_00855CAE: GoTo loc_00855CE7 + loc_00855CB0: End If + loc_00855CBA: If var_94 = var_3F800000 Then + loc_00855CC6: End If + loc_00855CC6: End If + loc_00855CCD: GoTo loc_00855CE7 + loc_00855CCF: End If + loc_00855CCF: End If + loc_00855CD4: GoTo loc_00855CDB + loc_00855CD6: End If + loc_00855CDB: 'Referenced from: 00855CD4 + loc_00855CE7: 'Referenced from: 008559AC + loc_00855CFF: If (var_14 = global_0040EEC8) Then + loc_00855D38: var_eax = Proc_9_5_843660(var_20, 2, 2) + loc_00855D81: var_eax = Proc_9_5_843660(var_14, 2, 2) + loc_00855D91: GoTo loc_00855DD9 + loc_00855D93: End If + loc_00855DC5: var_eax = Proc_9_5_843660(var_20, 2, var_54) + loc_00855DD9: 'Referenced from: 00855D91 + loc_00855DDC: global_88610A = FFFFFFh + loc_00855DEB: GoTo loc_00855E15 + loc_00855E14: Exit Sub + loc_00855E15: 'Referenced from: 00855DEB + loc_00855E25: Exit Sub + loc_00855E36: Exit Sub + loc_00855E37: nop + loc_00855E38: adc [esi-0000007Bh], dl + loc_00855E3B: [edi] = [edi] + var_54 + loc_00855E4B: [ebx-45FF7AAAh] = [ebx-45FF7AAAh] + var_54 + loc_00855E54: rcl [esi-0000007Bh], 01h + loc_00855E57: var_10 = var_10 + var_10 + loc_00855E59: paddq mm7, [edx-3BEA0001h] + loc_00855E60: adc [eax], eax + loc_00855E63: nop + loc_00855E64: nop + loc_00855E65: nop + loc_00855E66: nop + loc_00855E67: nop + loc_00855E68: nop + loc_00855E69: nop + loc_00855E6A: nop + loc_00855E6B: nop + loc_00855E6C: nop + loc_00855E6D: nop + loc_00855E6E: nop + loc_00855E6F: nop + loc_00855E92: var_8 = stk@FFFC + loc_00855EBD: If global_8860A4 Then + loc_00855EFF: var_eax = Proc_10_14_84B2D0(global_008865EC, global_008865E8, 292) + loc_00855F23: -16711680 = -16711680 + 00FFFFFFh + loc_00855F29: var_14 = -16711680+00FFFFFFh + loc_00855F2C: call __vbaCyInt(global_008860A8, global_008860AC, 00000002h, 00000124h, 00000002h, 00000089h, 00000012h, var_88, var_8C, edi]+var_5, var_18, global_008865E8) + loc_00855F32: var_28 = -16711680+00FFFFFFh + loc_00855F39: var_2C = __vbaCyInt(global_008860A8, global_008860AC, 00000002h, 00000124h, 00000002h, 00000089h, 00000012h, var_88, var_8C, edi]+var_5, var_18, global_008865E8) + loc_00855FB8: var_eax = Proc_9_5_843660("Score: " & Trim$(Str$(6)), var_44, var_54) + loc_00855FEC: global_88610C = FFFFFFh + loc_00855FF5: End If + loc_00855FFA: GoTo loc_0085602C + loc_0085602B: Exit Sub + loc_0085602C: 'Referenced from: 00855FFA +End Sub + +Public Sub Proc_11_5_855E70 + loc_00855EBD: If global_8860A4 Then + loc_00855EFF: var_eax = Proc_10_14_84B2D0(global_008865EC, global_008865E8, 292) + loc_00855F23: -16711680 = -16711680 + 00FFFFFFh + loc_00855F29: var_14 = DirectDrawModule.VTable_00FFFFFF + loc_00855F2C: call __vbaCyInt(global_008860A8, global_008860AC, 00000002h, 00000124h, 00000002h, 00000089h, 00000012h, var_88, var_8C, edi, esi, 00000002h) + loc_00855F32: var_28 = -16711680+00FFFFFFh + loc_00855F39: var_2C = __vbaCyInt(global_008860A8, global_008860AC, 00000002h, 00000124h, 00000002h, 00000089h, 00000012h, var_88, var_8C, edi, esi, 00000002h) + loc_00855FB8: var_eax = Proc_9_5_843660("Score: " & Trim$(Str$(var_2C)), var_44, var_54) + loc_00855FEC: global_88610C = FFFFFFh + loc_00855FF5: End If + loc_00855FFA: GoTo loc_0085602C + loc_0085602B: Exit Sub + loc_0085602C: 'Referenced from: 00855FFA +End Sub + +Public Sub Proc_11_6_8560E0 + Dim var_20 As Me + Dim var_24 As Me + Dim var_28 As Me + loc_0085612B: var_5C = global_008860E6 + loc_00856136: If 00000001h <= global_008860E6 Then + loc_0085613E: If var_886024 Then + loc_00856144: If 00886024h = 1 Then + loc_0085614F: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00856153: If 00000001h >= 0 Then + loc_00856155: var_eax = Err.Raise + loc_0085615D: End If + loc_00856163: GoTo loc_0085616D + loc_00856165: End If + loc_00856165: End If + loc_00856165: var_eax = Err.Raise + loc_0085616D: 'Referenced from: 00856163 + loc_00856175: var_eax = Unknown_8BEC4589 + loc_0085617D: If var_886024 Then + loc_00856183: If 00886024h = 1 Then + loc_0085618E: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00856192: If 00000001h >= 0 Then + loc_00856194: var_eax = Err.Raise + loc_0085619C: End If + loc_008561A2: GoTo loc_008561AC + loc_008561A4: End If + loc_008561A4: End If + loc_008561A4: var_eax = Err.Raise + loc_008561AC: 'Referenced from: 008561A2 + loc_008561D1: var_1C = CInt((6.37066138261923E-314 - global_886064)) + loc_008561D6: If var_886024 Then + loc_008561DC: If 00886024h = 1 Then + loc_008561E8: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008561EC: If var_14 >= 0 Then + loc_008561EE: var_eax = Err.Raise + loc_008561F6: End If + loc_008561FC: GoTo loc_00856206 + loc_008561FE: End If + loc_008561FE: End If + loc_008561FE: var_eax = Err.Raise + loc_00856206: 'Referenced from: 008561FC + loc_00856225: var_18 = CInt((6.37066138261923E-314 - global_886068)) + loc_0085622D: var_28 = True + loc_00856230: var_24 = True + loc_00856233: If var_8865F8 Then + loc_00856239: If 008865F8h = 1 Then + loc_00856243: If var_886024 Then + loc_00856249: If 00886024h = 1 Then + loc_00856254: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085625B: If var_14 >= 0 Then + loc_0085625D: var_eax = Err.Raise + loc_0085626B: End If + loc_00856271: GoTo loc_00856284 + loc_00856273: End If + loc_00856273: End If + loc_00856273: var_eax = Err.Raise + loc_00856284: 'Referenced from: 00856271 + loc_0085628F: esi+eax+00000008h = esi+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00856296: If esi+eax+00000008h >= 0 Then + loc_00856298: var_eax = Err.Raise + loc_008562A0: End If + loc_008562A3: var_64 = esi+esi + loc_008562A6: GoTo loc_008562B6 + loc_008562A8: End If + loc_008562A8: End If + loc_008562A8: var_eax = Err.Raise + loc_008562B3: var_64 = Err.Raise + loc_008562B6: 'Referenced from: 008562A6 + loc_008562BD: If var_8865F4 Then + loc_008562C3: If 008865F4h = 1 Then + loc_008562C7: If var_886024 Then + loc_008562CD: If 00886024h = 1 Then + loc_008562D8: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008562DC: If var_14 >= 0 Then + loc_008562DE: var_eax = Err.Raise + loc_008562E6: End If + loc_008562EC: GoTo loc_008562F6 + loc_008562EE: End If + loc_008562EE: End If + loc_008562EE: var_eax = Err.Raise + loc_008562F6: 'Referenced from: 008562EC + loc_00856306: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085630D: If edx+eax+00000008h >= 0 Then + loc_0085630F: var_eax = Err.Raise + loc_00856317: End If + loc_0085631A: var_68 = esi+esi + loc_0085631D: GoTo loc_0085632A + loc_0085631F: End If + loc_0085631F: End If + loc_0085631F: var_eax = Err.Raise + loc_00856327: var_68 = Err.Raise + loc_0085632A: 'Referenced from: 0085631D + loc_0085632C: If var_886024 Then + loc_00856332: If 00886024h = 1 Then + loc_0085633D: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00856341: If var_14 >= 0 Then + loc_00856343: var_eax = Err.Raise + loc_0085634B: End If + loc_00856351: var_6C = var_14(-3) + loc_00856354: GoTo loc_00856361 + loc_00856356: End If + loc_00856356: End If + loc_00856356: var_eax = Err.Raise + loc_0085635E: var_6C = Err.Raise + loc_00856361: 'Referenced from: 00856354 + loc_00856368: If var_8865F4 Then + loc_0085636E: If 008865F4h = 1 Then + loc_00856372: If var_886024 Then + loc_00856378: If 00886024h = 1 Then + loc_00856383: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00856387: If var_14 >= 0 Then + loc_00856389: var_eax = Err.Raise + loc_00856391: End If + loc_00856397: GoTo loc_008563A1 + loc_00856399: End If + loc_00856399: End If + loc_00856399: var_eax = Err.Raise + loc_008563A1: 'Referenced from: 00856397 + loc_008563B4: ecx+eax+00000008h = ecx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008563B8: If ecx+eax+00000008h >= 0 Then + loc_008563BA: var_eax = Err.Raise + loc_008563BC: End If + loc_008563BF: var_70 = esi+esi + loc_008563C2: GoTo loc_008563C9 + loc_008563C4: End If + loc_008563C4: End If + loc_008563C4: var_eax = Err.Raise + loc_008563C6: var_70 = Err.Raise + loc_008563C9: 'Referenced from: 008563C2 + loc_008563DE: If var_20 Then + loc_008563E8: If var_20 = 2 Then + loc_008563F6: If var_886024 Then + loc_008563FC: If 00886024h = 1 Then + loc_00856407: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085640B: If var_14 >= 0 Then + loc_0085640D: var_eax = Err.Raise + loc_00856415: End If + loc_0085641B: GoTo loc_00856425 + loc_0085641D: End If + loc_0085641D: End If + loc_0085641D: var_eax = Err.Raise + loc_00856425: 'Referenced from: 0085641B + loc_00856435: ecx+eax+00000004h = ecx+eax+00000004h - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00856439: If ecx+eax+00000004h >= 0 Then + loc_0085643B: var_eax = Err.Raise + loc_00856443: End If + loc_00856445: If var_886024 Then + loc_0085644B: If 00886024h = 1 Then + loc_00856457: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085645B: If var_14 >= 0 Then + loc_0085645D: var_eax = Err.Raise + loc_00856465: End If + loc_0085646B: GoTo loc_00856475 + loc_0085646D: End If + loc_0085646D: End If + loc_0085646D: var_eax = Err.Raise + loc_00856475: 'Referenced from: 0085646B + loc_00856483: ecx+eax+00000008h = ecx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085648A: If ecx+eax+00000008h >= 0 Then + loc_0085648C: var_eax = Err.Raise + loc_00856494: End If + loc_0085649D: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + ecx+eax+00000004h + loc_008564A2: GoTo loc_008564AC + loc_008564A4: End If + loc_008564A4: End If + loc_008564A4: var_eax = Err.Raise + loc_008564AC: 'Referenced from: 008564A2 + loc_008564E6: edx+esi+0000000Ah = edx+esi+0000000Ah - 0001h + loc_008564F0: edx+esi+0000000Ah = edx+esi+0000000Ah * ecx+esi + loc_008564FE: 00886076h = 00886076h + var_18 + loc_0085650C: 00886074h = 00886074h + var_1C + loc_0085651A: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00856522: var_eax = Proc_10_14_84B2D0(edi.GetTypeInfoCount, global_008865E8, 00886076h+var_18) + loc_0085653F: 00000001h = 00000001h + var_14 + loc_00856544: var_14 = 00000001h+var_14 + loc_00856549: GoTo loc_00856132 + loc_0085654E: End If + loc_00856554: GoTo loc_00856561 + loc_00856560: Exit Sub + loc_00856561: 'Referenced from: 00856554 + loc_00856561: Exit Sub + loc_00856572: Exit Sub + loc_00856573: End If + loc_00856573: End If + loc_00856573: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_11_7_8575A0 + loc_008575D9: eax+00000002h = eax+00000002h + 0001h + loc_008575F7: If eax+00000002h > var_8860E6 Then + loc_00857604: End If + loc_0085760C: If var_886024 Then + loc_00857612: If 00886024h = 1 Then + loc_00857624: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00857628: If eax+00000002h >= 0 Then + loc_0085762A: var_eax = Err.Raise + loc_00857632: End If + loc_00857638: GoTo loc_0085764C + loc_0085763A: End If + loc_0085763A: End If + loc_0085763A: var_eax = Err.Raise + loc_0085764C: 'Referenced from: 00857638 + loc_00857660: If var_886024 Then + loc_00857666: If 00886024h = 1 Then + loc_00857677: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085767B: If eax+00000002h >= 0 Then + loc_0085767D: var_eax = Err.Raise + loc_00857685: End If + loc_0085768B: GoTo loc_00857695 + loc_0085768D: End If + loc_0085768D: End If + loc_0085768D: var_eax = Err.Raise + loc_00857695: 'Referenced from: 0085768B + loc_008576A9: If var_886024 Then + loc_008576AF: If 00886024h = 1 Then + loc_008576C0: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008576C4: If eax+00000002h >= 0 Then + loc_008576C6: var_eax = Err.Raise + loc_008576CE: End If + loc_008576D4: GoTo loc_008576DE + loc_008576D6: End If + loc_008576D6: End If + loc_008576D6: var_eax = Err.Raise + loc_008576DE: 'Referenced from: 008576D4 + loc_008576F2: If var_886024 Then + loc_008576F8: If 00886024h = 1 Then + loc_00857709: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085770D: If eax+00000002h >= 0 Then + loc_0085770F: var_eax = Err.Raise + loc_00857717: End If + loc_0085771D: GoTo loc_00857727 + loc_0085771F: End If + loc_0085771F: End If + loc_0085771F: var_eax = Err.Raise + loc_00857727: 'Referenced from: 0085771D + loc_00857742: call __vbaPowerR8(00905A4D, 00000003, 00000000h, global_40000000) + loc_00857748: var_40 = __vbaPowerR8(00905A4D, 00000003, 00000000h, global_40000000) + loc_0085775A: call __vbaPowerR8(00905A4D, 00000003, 00000000h, global_40000000) + loc_00857788: If var_886024 Then + loc_0085778E: If 00886024h = 1 Then + loc_0085779F: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008577A3: If eax+00000002h >= 0 Then + loc_008577A5: var_eax = Err.Raise + loc_008577AD: End If + loc_008577BD: GoTo loc_00857813 + loc_008577BF: End If + loc_008577BF: End If + loc_008577BF: var_eax = Err.Raise + loc_008577D1: GoTo loc_00857813 + loc_008577D3: End If + loc_008577D5: If edi.GetTypeInfoCount 'Ignore this Then + loc_008577DB: If ecx = 1 Then + loc_008577EA: edx+00000002h = edx+00000002h - ecx+00000014h + loc_008577EF: If edx+00000002h >= 0 Then + loc_008577F1: var_eax = Err.Raise + loc_008577F9: End If + loc_008577FF: GoTo loc_00857809 + loc_00857801: End If + loc_00857801: End If + loc_00857801: var_eax = Err.Raise + loc_00857809: 'Referenced from: 008577FF + loc_00857813: 'Referenced from: 008577BD + loc_0085781B: If var_886024 Then + loc_00857821: If 00886024h = 1 Then + loc_00857830: edx+00000002h = edx+00000002h - ecx+00000014h + loc_00857835: If edx+00000002h >= 0 Then + loc_00857837: var_eax = Err.Raise + loc_0085783F: End If + loc_00857845: GoTo loc_0085784F + loc_00857847: End If + loc_00857847: End If + loc_00857847: var_eax = Err.Raise + loc_0085784F: 'Referenced from: 00857845 + loc_00857864: If var_886024 Then + loc_0085786A: If 00886024h = 1 Then + loc_00857879: edx+00000002h = edx+00000002h - ecx+00000014h + loc_0085787E: If edx+00000002h >= 0 Then + loc_00857880: var_eax = Err.Raise + loc_00857888: End If + loc_0085788E: GoTo loc_00857898 + loc_00857890: End If + loc_00857890: End If + loc_00857890: var_eax = Err.Raise + loc_00857898: 'Referenced from: 0085788E + loc_008578B7: If var_886024 Then + loc_008578BD: If 00886024h = 1 Then + loc_008578CC: edx+00000002h = edx+00000002h - eax+00000014h + loc_008578D1: If edx+00000002h >= 0 Then + loc_008578D3: var_eax = Err.Raise + loc_008578D5: End If + loc_008578DB: GoTo loc_008578E1 + loc_008578DD: End If + loc_008578DD: End If + loc_008578DD: var_eax = Err.Raise + loc_008578E1: 'Referenced from: 008578DB + loc_00857909: var_44 = ((Rnd(var_20) * global_402730) + global_402728) + loc_00857927: If var_886024 Then + loc_0085792D: If 00886024h = 1 Then + loc_0085793E: eax+00000002h = eax+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00857942: If eax+00000002h >= 0 Then + loc_00857944: var_eax = Err.Raise + loc_00857950: End If + loc_00857956: GoTo loc_00857964 + loc_00857958: End If + loc_00857958: End If + loc_00857958: var_eax = Err.Raise + loc_00857964: 'Referenced from: 00857956 + loc_00857980: If var_886024 Then + loc_00857986: If 00886024h = 1 Then + loc_00857995: edx+00000002h = edx+00000002h - eax+00000014h + loc_0085799A: If edx+00000002h >= 0 Then + loc_0085799C: var_eax = Err.Raise + loc_008579A2: End If + loc_008579A8: GoTo loc_008579B2 + loc_008579AA: End If + loc_008579AA: End If + loc_008579AA: var_eax = Err.Raise + loc_008579B2: 'Referenced from: 008579A8 + loc_00857A12: If var_886024 Then + loc_00857A18: If 00886024h = 1 Then + loc_00857A2A: ecx+00000002h = ecx+00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00857A2E: If ecx+00000002h >= 0 Then + loc_00857A30: var_eax = Err.Raise + loc_00857A36: End If + loc_00857A3C: GoTo loc_00857A46 + loc_00857A3E: End If + loc_00857A3E: End If + loc_00857A3E: var_eax = Err.Raise + loc_00857A46: 'Referenced from: 00857A3C + loc_00857A85: GoTo loc_00857A91 + loc_00857A90: Exit Sub + loc_00857A91: 'Referenced from: 00857A85 + loc_00857A91: Exit Sub +End Sub + +Public Sub Proc_11_8_857E70 + Dim global_40172C As Me + Dim global_0088607C As Me + Dim var_4C As Me + Dim var_50 As Me + Dim global_008865E8 As Me + Dim var_48 As Me + loc_00857EBA: If global_886108 Then + loc_00857ECC: global_886080 = (global_8860D4 + global_886080) + loc_00857EF3: If Err.Number Then + loc_00857F02: If global_886000 = 0 Then + loc_00857F0A: GoTo loc_00857F1D + loc_00857F0C: End If + loc_00857F1D: 'Referenced from: 00857F0A + loc_00857F3A: var_7C = global_0088607C + loc_00857F54: global_88607C = CInt((Int((global_886080 / global_402760)) + var_7C)) + loc_00857F60: If CInt((Int((global_886080 / global_402760)) + var_7C)) > 0 Then + loc_00857F62: global_88607C = 1 + loc_00857F6B: End If + loc_00857F6B: End If + loc_00857F6B: End If + loc_00857F6B: var_eax = Proc_857CC0(global_402760, global_402764, edi) + loc_00857F79: If global_8860A2 = 0 Then + loc_00857F7B: var_eax = Proc_857D20(Proc_857CC0(global_402760, global_402764, edi), ebx, ) + loc_00857F80: var_14 = Proc_857D20(Proc_857CC0(global_402760, global_402764, edi), ebx, ) + loc_00857F83: GoTo loc_00857F90 + loc_00857F85: End If + loc_00857F8C: var_14 = global_00886056 + loc_00857F90: 'Referenced from: 00857F83 + loc_00857F90: var_eax = Proc_857E00(, , ) + loc_00857F9C: var_24 = Proc_857E00(, , ) + loc_00857F9F: If global_8860A0 = 0 Then + loc_00857FA1: var_eax = Proc_857DA0(, , ) + loc_00857FA6: var_2C = Proc_857DA0(, , ) + loc_00857FA9: GoTo loc_00857FB2 + loc_00857FAB: End If + loc_00857FB2: 'Referenced from: 00857FA9 + loc_00857FC0: var_44 = Proc_857CC0(global_402760, global_402764, edi) + loc_00857FC7: If Proc_857CC0(global_402760, global_402764, edi) <= global_00886056 Then + loc_00857FD0: var_38 = var_2C + loc_00857FDB: var_eax = Unknown_5589D08B + loc_00857FE3: If var_886020 Then + loc_00857FE9: If 00886020h = 2 Then + loc_00857FF4: Proc_857CC0(global_402760, global_402764, edi) = Proc_857CC0(global_402760, global_402764, edi) - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00857FF8: If Proc_857CC0(global_402760, global_402764, edi) >= 0 Then + loc_00857FFA: var_eax = Err.Raise + loc_00858005: End If + loc_0085800C: var_38 = var_38 - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858013: If var_38 >= 0 Then + loc_00858015: var_eax = Err.Raise + loc_00858020: End If + loc_00858026: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + Proc_857CC0(global_402760, global_402764, edi) + loc_0085802E: GoTo loc_0085803B + loc_00858030: End If + loc_00858030: End If + loc_00858030: var_eax = Err.Raise + loc_0085803B: 'Referenced from: 0085802E + loc_00858044: If esi+eax+00000008h Then + loc_0085804A: var_44 = var_44 - 0001h + loc_0085805A: var_44 = var_44 * 002Dh + loc_0085806D: var_84 = var_44 * 002Dh + loc_00858096: If global_886000 = 0 Then + loc_0085809E: GoTo loc_008580B1 + loc_008580A0: End If + loc_008580B1: 'Referenced from: 0085809E + loc_008580C3: var_18 = CInt(((global_402758 / global_401728) + global_886064))) + loc_008580C6: var_38 = var_38 - 0001h + loc_008580D0: var_38 = var_38 * 002Dh + loc_008580DD: var_88 = var_38 * 002Dh + loc_008580E9: var_8C = var_88 + loc_00858112: If global_886000 = 0 Then + loc_0085811A: GoTo loc_0085812D + loc_0085811C: End If + loc_0085812D: 'Referenced from: 0085811A + loc_00858141: var_34 = CInt(((global_402758 / global_401728) + global_886068))) + loc_00858146: If var_886020 Then + loc_0085814C: If 00886020h = 2 Then + loc_00858158: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085815C: If var_44 >= 0 Then + loc_0085815E: var_eax = Err.Raise + loc_00858166: End If + loc_00858170: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858174: If var_38 >= 0 Then + loc_00858176: var_eax = Err.Raise + loc_0085817E: End If + loc_00858184: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_0085818C: GoTo loc_00858196 + loc_0085818E: End If + loc_0085818E: End If + loc_0085818E: var_eax = Err.Raise + loc_00858196: 'Referenced from: 0085818C + loc_0085819F: If ecx+eax+0000000Eh = 1 Then + loc_008581AB: 0088607Ch = 0088607Ch - 0001h + loc_008581B8: 0088607Ch = 0088607Ch * 002Dh + loc_008581C4: var_50 = True + loc_008581C7: var_4C = True + loc_008581D3: 00886076h = 00886076h + var_34 + loc_008581E6: 00886074h = 00886074h + var_18 + loc_00858201: GoTo loc_00858268 + loc_00858203: End If + loc_0085820C: 0088607Ch = 0088607Ch - 0001h + loc_00858217: 0088607Ch = 0088607Ch * 002Dh + loc_0085822B: 00886076h = 00886076h + var_34 + loc_0085823F: 00886074h = 00886074h + var_18 + loc_00858268: 'Referenced from: 00858201 + loc_00858268: var_eax = Proc_10_14_84B2D0(global_008865C0, global_008865E8, 00886074h+var_18) + loc_00858276: End If + loc_00858278: If var_886020 Then + loc_0085827E: If 00886020h = 2 Then + loc_00858289: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085828D: If var_44 >= 0 Then + loc_0085828F: var_eax = Err.Raise + loc_0085829A: End If + loc_008582A1: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008582A8: If var_38 >= 0 Then + loc_008582AA: var_eax = Err.Raise + loc_008582B5: End If + loc_008582BB: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_008582C3: GoTo loc_008582D0 + loc_008582C5: End If + loc_008582C5: End If + loc_008582C5: var_eax = Err.Raise + loc_008582D0: 'Referenced from: 008582C3 + loc_008582D9: If esi+eax+00000002h = var_FFFFFF Then + loc_008582E1: If var_886020 Then + loc_008582E7: If 00886020h = 2 Then + loc_008582F2: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008582F6: If var_44 >= 0 Then + loc_008582F8: var_eax = Err.Raise + loc_00858303: End If + loc_0085830A: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858311: If var_38 >= 0 Then + loc_00858313: var_eax = Err.Raise + loc_0085831E: End If + loc_00858324: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_0085832C: GoTo loc_00858339 + loc_0085832E: End If + loc_0085832E: End If + loc_0085832E: var_eax = Err.Raise + loc_00858339: 'Referenced from: 0085832C + loc_00858342: If esi+eax+0000000Ah Then + loc_0085834B: var_44 = var_44 - 0001h + loc_00858355: var_44 = var_44 * 002Dh + loc_00858361: If var_886020 Then + loc_00858367: If 00886020h = 2 Then + loc_0085836F: var_44 = var_44 - ecx+0000001Ch + loc_00858374: If var_44 >= 0 Then + loc_00858376: var_eax = Err.Raise + loc_00858382: End If + loc_0085838C: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858390: If var_38 >= 0 Then + loc_00858392: var_eax = Err.Raise + loc_0085839E: End If + loc_008583A7: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_008583B5: GoTo loc_008583C2 + loc_008583B7: End If + loc_008583B7: End If + loc_008583B7: var_eax = Err.Raise + loc_008583C2: 'Referenced from: 008583B5 + loc_008583C2: var_38 = var_38 - 0001h + loc_008583CF: var_38 = var_38 * 002Dh + loc_008583E8: var_94 = var_38 * 002Dh + loc_0085840A: GoTo loc_0085854D + loc_0085840F: End If + loc_00858411: If global_40172C.GetTypeInfoCount 'Ignore this Then + loc_00858417: If ecx = 2 Then + loc_00858422: var_38 = var_38 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00858426: If var_38 >= 0 Then + loc_00858428: var_eax = Err.Raise + loc_00858433: End If + loc_0085843A: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858441: If var_38 >= 0 Then + loc_00858443: var_eax = Err.Raise + loc_0085844E: End If + loc_00858454: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_38 * 002Dh + loc_0085845C: GoTo loc_00858469 + loc_0085845E: End If + loc_0085845E: End If + loc_0085845E: var_eax = Err.Raise + loc_00858469: 'Referenced from: 0085845C + loc_00858472: If esi+eax+0000001Ch Then + loc_0085847A: If var_886020 Then + loc_00858480: If 00886020h = 2 Then + loc_0085848B: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085848F: If var_44 >= 0 Then + loc_00858491: var_eax = Err.Raise + loc_0085849C: End If + loc_008584A3: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008584AA: If var_38 >= 0 Then + loc_008584AC: var_eax = Err.Raise + loc_008584B7: End If + loc_008584BD: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_008584C5: GoTo loc_008584D2 + loc_008584C7: End If + loc_008584C7: End If + loc_008584C7: var_eax = Err.Raise + loc_008584D2: 'Referenced from: 008584C5 + loc_008584D2: var_44 = var_44 - 0001h + loc_008584DF: var_44 = var_44 * 002Dh + loc_008584F8: var_9C = var_44 * 002Dh + loc_0085851E: GoTo loc_00858539 + loc_00858520: End If + loc_00858520: var_44 = var_44 - 0001h + loc_0085852D: var_44 = var_44 * 002Dh + loc_00858539: 'Referenced from: 0085851E + loc_00858539: var_38 = var_38 - 0001h + loc_00858543: var_38 = var_38 * 002Dh + loc_0085854D: 'Referenced from: 0085840A + loc_0085855C: var_A4 = var_44 * 002Dh + loc_00858589: var_18 = CInt((var_A4 - global_886064)) + loc_00858592: var_AC = var_38 * 002Dh + loc_008585B8: var_34 = CInt((var_AC - global_886068)) + loc_008585BB: If CInt((var_A4 - global_886064)) > 0 Then + loc_008585CB: If CInt((var_A4 - global_886064)) < 0 Then + loc_008585D5: If CInt((var_AC - global_886068)) > 0 Then + loc_008585E2: If CInt((var_AC - global_886068)) < 0 Then + loc_008585EF: If var_88659C Then + loc_008585F5: If 0088659Ch = 1 Then + loc_008585FF: If var_886020 Then + loc_00858605: If 00886020h = 2 Then + loc_00858611: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00858615: If var_44 >= 0 Then + loc_00858617: var_eax = Err.Raise + loc_0085861F: End If + loc_00858629: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085862D: If var_38 >= 0 Then + loc_0085862F: var_eax = Err.Raise + loc_00858637: End If + loc_0085863D: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_00858645: GoTo loc_0085864F + loc_00858647: End If + loc_00858647: End If + loc_00858647: var_eax = Err.Raise + loc_0085864F: 'Referenced from: 00858645 + loc_00858661: edx+eax = edx+eax - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858665: If edx+eax >= 0 Then + loc_00858667: var_eax = Err.Raise + loc_00858669: End If + loc_0085866C: GoTo loc_00858670 + loc_0085866E: End If + loc_0085866E: End If + loc_0085866E: var_eax = Err.Raise + loc_00858670: 'Referenced from: 0085866C + loc_00858680: edx+eax = edx+eax - 0001h + loc_0085868A: edx+eax = edx+eax * 002Dh + loc_00858697: var_50 = True + loc_0085869A: var_4C = True + loc_008586AF: If var_48 Then + loc_008586B9: If var_48 = 1 Then + loc_008586C7: If var_886020 Then + loc_008586CD: If 00886020h = 2 Then + loc_008586D9: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008586DD: If var_44 >= 0 Then + loc_008586DF: var_eax = Err.Raise + loc_008586EB: End If + loc_008586F5: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008586F9: If var_38 >= 0 Then + loc_008586FB: var_eax = Err.Raise + loc_00858707: End If + loc_0085870D: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_00858715: GoTo loc_0085871F + loc_00858717: End If + loc_00858717: End If + loc_00858717: call var_44 * 002Dh + loc_0085871F: 'Referenced from: 00858715 + loc_0085872F: edx+eax = edx+eax - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858733: If edx+eax >= 0 Then + loc_00858735: var_eax = Err.Raise + loc_0085873B: End If + loc_00858748: GoTo loc_0085874C + loc_0085874A: End If + loc_0085874A: End If + loc_0085874A: var_eax = Err.Raise + loc_0085874C: 'Referenced from: 00858748 + loc_0085875A: 00886076h = 00886076h + var_34 + loc_00858772: 00886074h = 00886074h + var_18 + loc_00858785: global_40172C.GetTypeInfoCount 'Ignore this = global_40172C.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0085878D: var_eax = Proc_10_14_84B2D0(global_40172C.GetTypeInfoCount, global_008865E8, 00886076h+var_34) + loc_0085879C: End If + loc_0085879C: End If + loc_0085879C: End If + loc_0085879C: End If + loc_008587A5: End If + loc_008587A7: If var_886020 Then + loc_008587AD: If 00886020h = 2 Then + loc_008587B8: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008587BC: If var_44 >= 0 Then + loc_008587BE: var_eax = Err.Raise + loc_008587C9: End If + loc_008587D0: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008587D7: If var_38 >= 0 Then + loc_008587D9: var_eax = Err.Raise + loc_008587E4: End If + loc_008587EA: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_008587F2: GoTo loc_008587FF + loc_008587F4: End If + loc_008587F4: End If + loc_008587F4: var_eax = Err.Raise + loc_008587FF: 'Referenced from: 008587F2 + loc_00858808: If esi+eax+00000008h Then + loc_00858812: var_eax = Proc_859810(var_44 * 002Dh, var_38 * 002Dh, var_50) + loc_00858820: End If + loc_00858822: If var_886020 Then + loc_00858828: If 00886020h = 2 Then + loc_00858833: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00858837: If var_44 >= 0 Then + loc_00858839: var_eax = Err.Raise + loc_00858844: End If + loc_0085884B: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858852: If var_38 >= 0 Then + loc_00858854: var_eax = Err.Raise + loc_0085885F: End If + loc_00858865: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_0085886D: GoTo loc_0085887A + loc_0085886F: End If + loc_0085886F: End If + loc_0085886F: var_eax = Err.Raise + loc_0085887A: 'Referenced from: 0085886D + loc_00858883: var_eax = Unknown_F5EBE948 + loc_0085888B: If var_886020 Then + loc_00858891: If 00886020h = 2 Then + loc_0085889C: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008588A0: If var_44 >= 0 Then + loc_008588A2: var_eax = Err.Raise + loc_008588AD: End If + loc_008588B4: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008588BB: If var_38 >= 0 Then + loc_008588BD: var_eax = Err.Raise + loc_008588C8: End If + loc_008588CE: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_008588D6: GoTo loc_008588E3 + loc_008588D8: End If + loc_008588D8: End If + loc_008588D8: var_eax = Err.Raise + loc_008588E3: 'Referenced from: 008588D6 + loc_008588EC: If esi+eax+0000000Eh = 1 Then + loc_008588F6: var_eax = Proc_12_1_859000(var_44 * 002Dh, var_38 * 002Dh) + loc_008588FB: GoTo loc_008589CC + loc_00858900: End If + loc_00858902: If var_44 Then + loc_00858908: If var_44 = 2 Then + loc_00858913: var_44 = var_44 - global_40172C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00858917: If var_44 >= 0 Then + loc_00858919: var_eax = Err.Raise + loc_00858924: End If + loc_0085892B: var_38 = var_38 - global_40172C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858932: If var_38 >= 0 Then + loc_00858934: var_eax = Err.Raise + loc_0085893F: End If + loc_00858945: global_40172C.%x1 = Invoke 'Ignore this = global_40172C.%x1 = Invoke 'Ignore this + var_44 * 002Dh + loc_0085894D: GoTo loc_0085895A + loc_0085894F: End If + loc_0085894F: End If + loc_0085894F: var_eax = Err.Raise + loc_0085895A: 'Referenced from: 0085894D + loc_00858963: If esi+eax+0000000Ch = 0 Then + loc_0085896D: If global_886118 Then + loc_00858979: 0088607Ch = 0088607Ch - 0001h + loc_00858986: 0088607Ch = 0088607Ch * 002Dh + loc_00858992: var_50 = True + loc_00858995: var_4C = True + loc_008589A1: 00886076h = 00886076h + var_34 + loc_008589B0: 00886074h = 00886074h + var_18 + loc_008589C7: var_eax = Proc_10_14_84B2D0(global_008865C4, global_008865E8, 00886074h+var_18) + loc_008589CC: 'Referenced from: 008588FB + loc_008589D5: End If + loc_008589D5: End If + loc_008589DA: 00000001h = 00000001h + var_38 * 002Dh + loc_008589E0: GoTo loc_00857FD0 + loc_008589EA: 00000001h = 00000001h + var_44 * 002Dh + loc_008589F1: var_44 = 00000001h+var_44 + loc_008589F4: GoTo loc_00857FC3 + loc_008589F9: End If + loc_008589F9: var_eax = Proc_12_0_858A30(00886076h+var_34, global_0088607C, 0) + loc_00858A04: GoTo loc_00858A11 + loc_00858A10: Exit Sub + loc_00858A11: 'Referenced from: 00858A04 + loc_00858A11: Exit Sub + loc_00858A22: Exit Sub + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: End If + loc_00858A23: GoTo loc___vbaFPException +End Sub diff --git a/src/DirectSoundModule.bas b/src/DirectSoundModule.bas new file mode 100644 index 0000000..63e51bb --- /dev/null +++ b/src/DirectSoundModule.bas @@ -0,0 +1,6391 @@ + +Public Sub Proc_12_0_858A30 + Dim var_14 As Me + Dim global_008865E8 As Me + loc_00858A68: If global_886090 Then + loc_00858A74: var_1C = True + loc_00858A77: var_18 = True + loc_00858A8C: If var_14 Then + loc_00858A92: If var_14 = 1 Then + loc_00858A9F: 00000001h = 00000001h - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858AA3: If 00000001h >= 0 Then + loc_00858AA5: var_eax = Err.Raise + loc_00858AAB: End If + loc_00858AAE: GoTo loc_00858AB8 + loc_00858AB0: End If + loc_00858AB0: End If + loc_00858AB0: var_eax = Err.Raise + loc_00858AB8: 'Referenced from: 00858AAE + loc_00858ADB: var_30 = global_00886072 + loc_00858AE8: If global_886000 = 0 Then + loc_00858AF0: GoTo loc_00858B03 + loc_00858AF2: End If + loc_00858B03: 'Referenced from: 00858AF0 + loc_00858B06: 00886618h = 00886618h - 0001h + loc_00858B1F: 00886618h = 00886618h * 0014h + loc_00858B23: var_3C = global_00886076 + loc_00858B36: If global_886000 = 0 Then + loc_00858B3E: GoTo loc_00858B51 + loc_00858B40: End If + loc_00858B71: 00886074h = 00886074h + 0001h + loc_00858B87: var_eax = Proc_10_14_84B2D0(var_14.GetTypeInfoCount, global_008865E8, 00886074h+0001h) + loc_00858B98: GoTo loc_00858BA6 + loc_00858B9A: End If + loc_00858BA6: 'Referenced from: 00858B98 + loc_00858BAE: If global_88608E Then + loc_00858BBD: var_1C = True + loc_00858BC0: var_18 = True + loc_00858BD3: If var_14 Then + loc_00858BD9: If var_14 = 1 Then + loc_00858BE6: 00000002h = 00000002h - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858BEA: If 00000002h >= 0 Then + loc_00858BEC: var_eax = Err.Raise + loc_00858BF2: End If + loc_00858BF5: GoTo loc_00858BFF + loc_00858BF7: End If + loc_00858BF7: End If + loc_00858BF7: var_eax = Err.Raise + loc_00858BFF: 'Referenced from: 00858BF5 + loc_00858C21: var_48 = global_00886072 + loc_00858C2E: If global_886000 = 0 Then + loc_00858C36: GoTo loc_00858C49 + loc_00858C38: End If + loc_00858C49: 'Referenced from: 00858C36 + loc_00858C4C: 00886618h = 00886618h - 0001h + loc_00858C5F: 00886618h = 00886618h * 0014h + loc_00858C63: var_54 = global_00886076 + loc_00858C76: If global_886000 = 0 Then + loc_00858C7E: GoTo loc_00858C91 + loc_00858C80: End If + loc_00858CAD: 00886070h = 00886070h + 00886074h + loc_00858CC0: 00886070h+00886074h = 00886070h+00886074h - 0014h + loc_00858CCA: 00886070h+00886074h = 00886070h+00886074h - 0001h + loc_00858CDD: var_eax = Proc_10_14_84B2D0(var_14.GetTypeInfoCount, global_008865E8, 00886070h+00886074h) + loc_00858CE8: End If + loc_00858CF0: If global_886092 Then + loc_00858D04: var_1C = True + loc_00858D07: var_18 = True + loc_00858D15: If var_14 Then + loc_00858D1B: If var_14 = 1 Then + loc_00858D28: 00000003h = 00000003h - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858D2C: If 00000003h >= 0 Then + loc_00858D2E: var_eax = Err.Raise + loc_00858D34: End If + loc_00858D37: GoTo loc_00858D41 + loc_00858D39: End If + loc_00858D39: End If + loc_00858D39: var_eax = Err.Raise + loc_00858D41: 'Referenced from: 00858D37 + loc_00858D5D: 00886618h = 00886618h - 0001h + loc_00858D69: var_60 = global_00886070 + loc_00858D6C: 00886618h = 00886618h * 0014h + loc_00858D7A: If global_886000 = 0 Then + loc_00858D82: GoTo loc_00858D95 + loc_00858D84: End If + loc_00858D95: 'Referenced from: 00858D82 + loc_00858DB0: 00886076h = 00886076h + 0001h + loc_00858DBE: var_6C = global_00886074 + loc_00858DD1: If global_886000 = 0 Then + loc_00858DD9: GoTo loc_00858DEC + loc_00858DDB: End If + loc_00858DEC: 'Referenced from: 00858DD9 + loc_00858E09: var_eax = Proc_10_14_84B2D0(var_14.GetTypeInfoCount, CInt(((global_401828 / global_401728) - var_6C))), global_40172C) + loc_00858E14: End If + loc_00858E1C: If global_886094 Then + loc_00858E28: var_1C = True + loc_00858E2B: var_18 = True + loc_00858E40: If var_14 Then + loc_00858E46: If var_14 = 1 Then + loc_00858E53: 00000004h = 00000004h - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00858E57: If 00000004h >= 0 Then + loc_00858E59: var_eax = Err.Raise + loc_00858E5F: End If + loc_00858E62: GoTo loc_00858E6C + loc_00858E64: End If + loc_00858E64: End If + loc_00858E64: var_eax = Err.Raise + loc_00858E6C: 'Referenced from: 00858E62 + loc_00858E88: 00886618h = 00886618h - 0001h + loc_00858E94: var_78 = global_00886070 + loc_00858E97: 00886618h = 00886618h * 0014h + loc_00858EA5: If global_886000 = 0 Then + loc_00858EAD: GoTo loc_00858EC0 + loc_00858EAF: End If + loc_00858EC0: 'Referenced from: 00858EAD + loc_00858EDC: 00886072h = 00886072h + 00886076h + loc_00858EE9: 00886072h+00886076h = 00886072h+00886076h - 0014h + loc_00858EF3: 00886072h+00886076h = 00886072h+00886076h - 0001h + loc_00858F01: var_84 = global_00886074 + loc_00858F1A: If global_886000 = 0 Then + loc_00858F22: GoTo loc_00858F35 + loc_00858F24: End If + loc_00858F35: 'Referenced from: 00858F22 + loc_00858F4E: var_eax = Proc_10_14_84B2D0(var_14.GetTypeInfoCount, CInt(((global_401828 / global_401728) - var_84))), global_40172C) + loc_00858F59: End If + loc_00858F5F: GoTo loc_00858F6C + loc_00858F6B: Exit Sub + loc_00858F6C: 'Referenced from: 00858F5F + loc_00858F6C: Exit Sub + loc_00858F7D: Exit Sub + loc_00858F7E: End If + loc_00858F7E: End If + loc_00858F7E: End If + loc_00858F7E: End If + loc_00858F7E: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_1_859000 + Dim var_20 As Me + Dim global_008865E8 As Me + loc_00859063: arg_C = arg_C - 0001h + loc_00859073: arg_C = arg_C * 002Dh + loc_00859077: var_58 = var_54 + loc_008590C0: var_1C = CInt((arg_C - global_886068)) + loc_008590C3: var_eax = Proc_85DB80(Me, arg_C, @CInt((( + [ebx-0000007Ch]) + var_40))) + loc_008590CB: If Proc_85DB80(Me, arg_C, @CInt((( + [ebx-0000007Ch]) + var_40))) Then + loc_0085912A: var_48 = True + loc_0085912D: var_44 = True + loc_0085913B: If var_20 Then + loc_00859141: If var_20 = 1 Then + loc_0085914C: CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00859150: If CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) >= 0 Then + loc_00859152: var_eax = Err.Raise + loc_00859158: End If + loc_0085915B: GoTo loc_00859165 + loc_0085915D: End If + loc_0085915D: End If + loc_0085915D: var_eax = Err.Raise + loc_00859165: 'Referenced from: 0085915B + loc_0085916F: 00886076h = 00886076h + var_1C + loc_00859180: var_64 = 00886076h+var_1C + loc_0085918F: var_6C = var_64 + loc_0085919F: If global_886000 = 0 Then + loc_008591A7: GoTo loc_008591BA + loc_008591A9: End If + loc_008591BA: 'Referenced from: 008591A7 + loc_008591CA: If global_886000 = 0 Then + loc_008591D2: GoTo loc_008591E5 + loc_008591D4: End If + loc_008591E5: 'Referenced from: 008591D2 + loc_008591FD: 00886074h = 00886074h + CInt((var_58 - global_886064)) + loc_0085920A: 00886074h+CInt((var_58 - global_886064)) = 00886074h+CInt((var_58 - global_886064)) + 002Dh + loc_00859214: 00886074h+CInt((var_58 - global_886064))+002Dh = 00886074h+CInt((var_58 - global_886064))+002Dh - 0017h + loc_00859227: var_eax = Proc_10_14_84B2D0(var_20.GetTypeInfoCount, global_008865E8, 00886074h+CInt((var_58 - global_886064))+002Dh) + loc_00859236: End If + loc_0085923E: var_eax = Proc_85DA40(Me, arg_C, var_20) + loc_00859246: If Proc_85DA40(Me, arg_C, var_20) Then + loc_008592A0: var_48 = True + loc_008592A3: var_44 = True + loc_008592B6: If var_20 Then + loc_008592BC: If var_20 = 1 Then + loc_008592C7: CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008592CB: If CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) >= 0 Then + loc_008592CD: var_eax = Err.Raise + loc_008592D3: End If + loc_008592D6: GoTo loc_008592E0 + loc_008592D8: End If + loc_008592D8: End If + loc_008592D8: var_eax = Err.Raise + loc_008592E0: 'Referenced from: 008592D6 + loc_008592E9: 00886076h = 00886076h + var_1C + loc_008592FA: var_70 = 00886076h+var_1C + loc_00859309: var_78 = var_70 + loc_00859319: If global_886000 = 0 Then + loc_00859321: GoTo loc_00859334 + loc_00859323: End If + loc_00859334: 'Referenced from: 00859321 + loc_00859344: If global_886000 = 0 Then + loc_0085934C: GoTo loc_0085935F + loc_0085934E: End If + loc_0085935F: 'Referenced from: 0085934C + loc_00859378: 00886074h = 00886074h + CInt((var_58 - global_886064)) + loc_0085938D: var_eax = Proc_10_14_84B2D0(var_20.GetTypeInfoCount, global_008865E8, 00886074h+CInt((var_58 - global_886064))) + loc_0085939C: End If + loc_008593A4: var_eax = Proc_85D7A0(Me, arg_C, var_20) + loc_008593AC: If Proc_85D7A0(Me, arg_C, var_20) Then + loc_00859403: var_48 = True + loc_00859406: var_44 = True + loc_0085941B: If var_20 Then + loc_00859421: If var_20 = 1 Then + loc_0085942C: CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00859430: If CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) >= 0 Then + loc_00859432: var_eax = Err.Raise + loc_00859438: End If + loc_0085943B: GoTo loc_00859445 + loc_0085943D: End If + loc_0085943D: End If + loc_0085943D: var_eax = Err.Raise + loc_00859445: 'Referenced from: 0085943B + loc_0085944F: 00886076h = 00886076h + var_1C + loc_00859464: 00886074h = 00886074h + CInt((var_58 - global_886064)) + loc_00859471: var_7C = 00886074h+CInt((var_58 - global_886064)) + loc_00859480: var_84 = var_7C + loc_00859493: If global_886000 = 0 Then + loc_0085949B: GoTo loc_008594AE + loc_0085949D: End If + loc_008594AE: 'Referenced from: 0085949B + loc_008594C1: If global_886000 = 0 Then + loc_008594C9: GoTo loc_008594DC + loc_008594CB: End If + loc_008594DC: 'Referenced from: 008594C9 + loc_008594F9: var_eax = Proc_10_14_84B2D0(var_20.GetTypeInfoCount, CInt(((global_4027A0 / global_401728) - var_84))), global_40172C) + loc_00859508: End If + loc_00859510: var_eax = Proc_85D8F0(Me, arg_C, var_20) + loc_00859518: If Proc_85D8F0(Me, arg_C, var_20) Then + loc_00859577: var_48 = True + loc_0085957A: var_44 = True + loc_00859588: If var_20 Then + loc_0085958E: If var_20 = 1 Then + loc_00859599: CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085959D: If CInt((Int((Rnd(var_30) * global_401CB8)) + global_401850)) >= 0 Then + loc_0085959F: var_eax = Err.Raise + loc_008595A5: End If + loc_008595A8: GoTo loc_008595B2 + loc_008595AA: End If + loc_008595AA: End If + loc_008595AA: var_eax = Err.Raise + loc_008595B2: 'Referenced from: 008595A8 + loc_008595BC: 00886076h = 00886076h + var_1C + loc_008595D0: 00886076h+var_1C = 00886076h+var_1C + 002Dh + loc_008595DB: 00886076h+var_1C+002Dh = 00886076h+var_1C+002Dh - 0017h + loc_008595E7: 00886074h = 00886074h + CInt((var_58 - global_886064)) + loc_008595F5: var_88 = 00886074h+CInt((var_58 - global_886064)) + loc_00859606: var_90 = var_88 + loc_00859619: If global_886000 = 0 Then + loc_00859621: GoTo loc_00859634 + loc_00859623: End If + loc_00859634: 'Referenced from: 00859621 + loc_00859647: If global_886000 = 0 Then + loc_0085964F: GoTo loc_00859662 + loc_00859651: End If + loc_00859662: 'Referenced from: 0085964F + loc_0085967F: var_eax = Proc_10_14_84B2D0(var_20.GetTypeInfoCount, CInt(((global_4027A0 / global_401728) - var_90))), global_40172C) + loc_0085968E: End If + loc_00859698: 00886076h = 00886076h + var_1C + loc_008596A0: var_48 = True + loc_008596AC: var_94 = 00886076h+var_1C + loc_008596B2: var_44 = True + loc_008596C1: var_9C = var_94 + loc_008596D4: If global_886000 = 0 Then + loc_008596DC: GoTo loc_008596EF + loc_008596DE: End If + loc_008596EF: 'Referenced from: 008596DC + loc_00859708: If global_886000 = 0 Then + loc_00859710: GoTo loc_00859723 + loc_00859712: End If + loc_00859723: 'Referenced from: 00859710 + loc_00859738: 00886074h = 00886074h + CInt((var_58 - global_886064)) + loc_00859744: var_A0 = 00886074h+CInt((var_58 - global_886064)) + loc_00859750: var_A8 = var_A0 + loc_00859763: If global_886000 = 0 Then + loc_0085976B: GoTo loc_0085977E + loc_0085976D: End If + loc_0085977E: 'Referenced from: 0085976B + loc_00859791: If global_886000 = 0 Then + loc_00859799: GoTo loc_008597AC + loc_0085979B: End If + loc_008597AC: 'Referenced from: 00859799 + loc_008597C1: var_eax = Proc_10_14_84B2D0(global_00886628, global_008865E8, CInt(((global_402798 / global_401728) - var_A8)))) + loc_008597CC: GoTo loc_008597E2 + loc_008597E1: Exit Sub + loc_008597E2: 'Referenced from: 008597CC + loc_008597E2: Exit Sub +End Sub + +Public Sub Proc_12_2_85A790 + Dim var_88 As Me + Dim var_28 As Me + Dim global_40172C As Me + Dim global_401728 As Me + Dim var_7C As Me + loc_0085A7CE: var_B8 = global_008860E6 + loc_0085A807: If 00000001h <= global_008860E6 Then + loc_0085A80F: If 00886024h Then + loc_0085A815: If 00886024h = 1 Then + loc_0085A820: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A824: If 00000001h >= 0 Then + loc_0085A826: var_eax = Err.Raise + loc_0085A82E: End If + loc_0085A834: GoTo loc_0085A83E + loc_0085A836: End If + loc_0085A836: End If + loc_0085A836: var_eax = Err.Raise + loc_0085A83E: 'Referenced from: 0085A834 + loc_0085A845: If edx+eax Then + loc_0085A84D: If var_886024 Then + loc_0085A853: If 00886024h = 1 Then + loc_0085A865: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A869: If var_20 >= 0 Then + loc_0085A86B: var_eax = Err.Raise + loc_0085A873: End If + loc_0085A879: GoTo loc_0085A88B + loc_0085A87B: End If + loc_0085A87B: End If + loc_0085A881: var_eax = Err.Raise + loc_0085A88B: 'Referenced from: 0085A879 + loc_0085A88D: If var_886024 Then + loc_0085A893: If 00886024h = 1 Then + loc_0085A89F: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A8A3: If var_20 >= 0 Then + loc_0085A8A5: var_eax = Err.Raise + loc_0085A8AD: End If + loc_0085A8B3: GoTo loc_0085A8BF + loc_0085A8B5: End If + loc_0085A8B5: End If + loc_0085A8B5: var_eax = Err.Raise + loc_0085A8BF: 'Referenced from: 0085A8B3 + loc_0085A8E2: If var_886024 Then + loc_0085A8E8: If 00886024h = 1 Then + loc_0085A8F4: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A8F8: If var_20 >= 0 Then + loc_0085A8FA: var_eax = Err.Raise + loc_0085A902: End If + loc_0085A908: GoTo loc_0085A914 + loc_0085A90A: End If + loc_0085A90A: End If + loc_0085A90A: var_eax = Err.Raise + loc_0085A914: 'Referenced from: 0085A908 + loc_0085A916: If var_886024 Then + loc_0085A91C: If 00886024h = 1 Then + loc_0085A928: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A92C: If var_20 >= 0 Then + loc_0085A92E: var_eax = Err.Raise + loc_0085A936: End If + loc_0085A93C: GoTo loc_0085A946 + loc_0085A93E: End If + loc_0085A93E: End If + loc_0085A93E: var_eax = Err.Raise + loc_0085A946: 'Referenced from: 0085A93C + loc_0085A95E: If var_886024 Then + loc_0085A964: If 00886024h = 1 Then + loc_0085A972: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A976: If var_20 >= 0 Then + loc_0085A978: var_eax = Err.Raise + loc_0085A980: End If + loc_0085A986: GoTo loc_0085A993 + loc_0085A988: End If + loc_0085A988: End If + loc_0085A988: var_eax = Err.Raise + loc_0085A993: 'Referenced from: 0085A986 + loc_0085A9AD: If var_886024 Then + loc_0085A9B3: If 00886024h = 1 Then + loc_0085A9BE: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A9C2: If var_20 >= 0 Then + loc_0085A9C4: var_eax = Err.Raise + loc_0085A9CC: End If + loc_0085A9D2: var_C8 = var_20(-3) + loc_0085A9D8: GoTo loc_0085A9E8 + loc_0085A9DA: End If + loc_0085A9DA: End If + loc_0085A9DA: var_eax = Err.Raise + loc_0085A9E2: var_C8 = Err.Raise + loc_0085A9E8: 'Referenced from: 0085A9D8 + loc_0085A9EA: If var_886024 Then + loc_0085A9F0: If 00886024h = 1 Then + loc_0085A9FB: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085A9FF: If var_20 >= 0 Then + loc_0085AA01: var_eax = Err.Raise + loc_0085AA09: End If + loc_0085AA0F: GoTo loc_0085AA1F + loc_0085AA11: End If + loc_0085AA11: End If + loc_0085AA11: var_eax = Err.Raise + loc_0085AA1F: 'Referenced from: 0085AA0F + loc_0085AA21: If var_886024 Then + loc_0085AA27: If 00886024h = 1 Then + loc_0085AA33: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AA37: If var_20 >= 0 Then + loc_0085AA39: var_eax = Err.Raise + loc_0085AA45: End If + loc_0085AA4B: GoTo loc_0085AA5B + loc_0085AA4D: End If + loc_0085AA4D: End If + loc_0085AA4D: var_eax = Err.Raise + loc_0085AA5B: 'Referenced from: 0085AA4B + loc_0085AA5D: If var_886024 Then + loc_0085AA63: If 00886024h = 1 Then + loc_0085AA6F: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AA73: If var_20 >= 0 Then + loc_0085AA75: var_eax = Err.Raise + loc_0085AA81: End If + loc_0085AA87: GoTo loc_0085AA97 + loc_0085AA89: End If + loc_0085AA89: End If + loc_0085AA89: var_eax = Err.Raise + loc_0085AA97: 'Referenced from: 0085AA87 + loc_0085AAA5: If global_886000 = 0 Then + loc_0085AAAB: GoTo loc_0085AAB6 + loc_0085AAAD: End If + loc_0085AAB1: call _adj_fdiv_m32(ecx+edi+0000001Ch) + loc_0085AAB6: 'Referenced from: 0085AAAB + loc_0085AAD9: var_CC = ecx+edx+0000000Ah + loc_0085AAE5: var_D0 = var_CC + loc_0085AB1E: End If + loc_0085AB20: If var_886024 Then + loc_0085AB26: If 00886024h = 1 Then + loc_0085AB31: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AB35: If var_20 >= 0 Then + loc_0085AB37: var_eax = Err.Raise + loc_0085AB3F: End If + loc_0085AB45: GoTo loc_0085AB4F + loc_0085AB47: End If + loc_0085AB47: End If + loc_0085AB47: var_eax = Err.Raise + loc_0085AB4F: 'Referenced from: 0085AB45 + loc_0085AB60: End If + loc_0085AB79: If var_886024 Then + loc_0085AB7F: If 00886024h = 1 Then + loc_0085AB8B: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AB8F: If var_20 >= 0 Then + loc_0085AB91: var_eax = Err.Raise + loc_0085AB9D: End If + loc_0085ABA3: GoTo loc_0085ABB1 + loc_0085ABA5: End If + loc_0085ABA5: End If + loc_0085ABA5: var_eax = Err.Raise + loc_0085ABB1: 'Referenced from: 0085ABA3 + loc_0085ABBA: If edx+eax+00000002h Then + loc_0085AC05: var_C0 = CInt((Int((Rnd(var_40) + Rnd(var_40))) + global_401850)) + loc_0085AC1D: If 00000001h <= CInt((Int((Rnd(var_40) + Rnd(var_40))) + global_401850)) Then + loc_0085AC62: var_28 = CLng((Int((Rnd(10) * global_4027E0)) + global_401850)) + loc_0085ACAF: var_88 = ((Rnd(10) * global_4027E0) - global_401A98) + loc_0085ACD1: var_84 = ((Rnd(10) * global_4027E0) - global_401A98) + loc_0085ACE3: If var_886024 Then + loc_0085ACE9: If 00886024h = 1 Then + loc_0085ACF5: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085ACF9: If var_20 >= 0 Then + loc_0085ACFB: var_eax = Err.Raise + loc_0085AD07: End If + loc_0085AD0D: GoTo loc_0085AD1B + loc_0085AD0F: End If + loc_0085AD0F: End If + loc_0085AD0F: var_eax = Err.Raise + loc_0085AD1B: 'Referenced from: 0085AD0D + loc_0085AD28: var_80 = (&H0000000300905A4D&H + global_402640) + loc_0085AD37: If var_886024 Then + loc_0085AD3D: If 00886024h = 1 Then + loc_0085AD49: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AD4D: If var_20 >= 0 Then + loc_0085AD4F: var_eax = Err.Raise + loc_0085AD5B: End If + loc_0085AD61: GoTo loc_0085AD6F + loc_0085AD63: End If + loc_0085AD63: End If + loc_0085AD63: var_eax = Err.Raise + loc_0085AD6F: 'Referenced from: 0085AD61 + loc_0085AD89: var_7C = (&H0000000300905A4D&H + global_402640) + loc_0085ADA3: var_eax = Proc_857AB0(var_7C, var_80, var_84) + loc_0085ADC0: 00000001h = 00000001h + 00000001h + loc_0085ADD0: GoTo loc_0085AC16 + loc_0085ADD5: End If + loc_0085ADDB: End If + loc_0085ADDB: End If + loc_0085ADDD: If var_886024 Then + loc_0085ADE3: If 00886024h = 1 Then + loc_0085ADF7: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085ADFB: If var_20 >= 0 Then + loc_0085ADFD: var_eax = Err.Raise + loc_0085AE05: End If + loc_0085AE0B: GoTo loc_0085AE22 + loc_0085AE0D: End If + loc_0085AE0D: End If + loc_0085AE0D: var_eax = Err.Raise + loc_0085AE22: 'Referenced from: 0085AE0B + loc_0085AE2B: If edx+eax+0000000Ah > 21 Then + loc_0085AE2F: If var_886024 Then + loc_0085AE35: If 00886024h = 1 Then + loc_0085AE40: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AE44: If var_20 >= 0 Then + loc_0085AE46: var_eax = Err.Raise + loc_0085AE4E: End If + loc_0085AE54: GoTo loc_0085AE5E + loc_0085AE56: End If + loc_0085AE56: End If + loc_0085AE56: var_eax = Err.Raise + loc_0085AE5E: 'Referenced from: 0085AE54 + loc_0085AE6E: End If + loc_0085AE70: If var_886024 Then + loc_0085AE76: If 00886024h = 1 Then + loc_0085AE81: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AE85: If var_20 >= 0 Then + loc_0085AE87: var_eax = Err.Raise + loc_0085AE8F: End If + loc_0085AE95: GoTo loc_0085AEA5 + loc_0085AE97: End If + loc_0085AE97: End If + loc_0085AE97: var_eax = Err.Raise + loc_0085AEA5: 'Referenced from: 0085AE95 + loc_0085AEA7: If var_886024 Then + loc_0085AEAD: If 00886024h = 1 Then + loc_0085AEB9: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AEBD: If var_20 >= 0 Then + loc_0085AEBF: var_eax = Err.Raise + loc_0085AECB: End If + loc_0085AED1: GoTo loc_0085AEE1 + loc_0085AED3: End If + loc_0085AED3: End If + loc_0085AED3: var_eax = Err.Raise + loc_0085AEE1: 'Referenced from: 0085AED1 + loc_0085AEE3: If var_886024 Then + loc_0085AEE9: If 00886024h = 1 Then + loc_0085AEF5: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AEF9: If var_20 >= 0 Then + loc_0085AEFB: var_eax = Err.Raise + loc_0085AF07: End If + loc_0085AF0D: GoTo loc_0085AF1D + loc_0085AF0F: End If + loc_0085AF0F: End If + loc_0085AF0F: var_eax = Err.Raise + loc_0085AF1D: 'Referenced from: 0085AF0D + loc_0085AF43: If var_886024 Then + loc_0085AF49: If 00886024h = 1 Then + loc_0085AF55: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AF59: If var_20 >= 0 Then + loc_0085AF5B: var_eax = Err.Raise + loc_0085AF66: End If + loc_0085AF6C: GoTo loc_0085AF7B + loc_0085AF6E: End If + loc_0085AF6E: End If + loc_0085AF6E: var_eax = Err.Raise + loc_0085AF7B: 'Referenced from: 0085AF6C + loc_0085AF7D: If var_886024 Then + loc_0085AF83: If 00886024h = 1 Then + loc_0085AF8F: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AF93: If var_20 >= 0 Then + loc_0085AF95: var_eax = Err.Raise + loc_0085AFA0: End If + loc_0085AFA6: GoTo loc_0085AFB5 + loc_0085AFA8: End If + loc_0085AFA8: End If + loc_0085AFA8: var_eax = Err.Raise + loc_0085AFB5: 'Referenced from: 0085AFA6 + loc_0085AFB7: If var_886024 Then + loc_0085AFBD: If 00886024h = 1 Then + loc_0085AFC9: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085AFCD: If var_20 >= 0 Then + loc_0085AFCF: var_eax = Err.Raise + loc_0085AFDA: End If + loc_0085AFE0: GoTo loc_0085AFEF + loc_0085AFE2: End If + loc_0085AFE2: End If + loc_0085AFE2: var_eax = Err.Raise + loc_0085AFEF: 'Referenced from: 0085AFE0 + loc_0085B015: If var_886024 Then + loc_0085B01B: If 00886024h = 1 Then + loc_0085B02D: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B031: If var_20 >= 0 Then + loc_0085B033: var_eax = Err.Raise + loc_0085B03A: End If + loc_0085B040: GoTo loc_0085B055 + loc_0085B042: End If + loc_0085B042: End If + loc_0085B042: var_eax = Err.Raise + loc_0085B055: 'Referenced from: 0085B040 + loc_0085B057: If var_886024 Then + loc_0085B05D: If 00886024h = 1 Then + loc_0085B069: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B06D: If var_20 >= 0 Then + loc_0085B06F: var_eax = Err.Raise + loc_0085B076: End If + loc_0085B07C: GoTo loc_0085B087 + loc_0085B07E: End If + loc_0085B07E: End If + loc_0085B07E: var_eax = Err.Raise + loc_0085B087: 'Referenced from: 0085B07C + loc_0085B0C0: GoTo loc_0085B0C4 + loc_0085B0C2: End If + loc_0085B0C4: 'Referenced from: 0085B0C0 + loc_0085B0E9: If global_886000 = 0 Then + loc_0085B0F1: GoTo loc_0085B0FE + loc_0085B0F3: End If + loc_0085B0F9: call _adj_fdiv_m32(global_8860D4) + loc_0085B0FE: 'Referenced from: 0085B0F1 + loc_0085B11F: If Err.Number Then + loc_0085B126: GoTo loc_0085B12A + loc_0085B128: End If + loc_0085B12A: 'Referenced from: 0085B126 + loc_0085B13C: If edi Then + loc_0085B14A: If var_886024 Then + loc_0085B150: If 00886024h = 1 Then + loc_0085B15E: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B162: If var_20 >= 0 Then + loc_0085B164: var_eax = Err.Raise + loc_0085B16C: End If + loc_0085B172: GoTo loc_0085B17F + loc_0085B174: End If + loc_0085B174: End If + loc_0085B174: var_eax = Err.Raise + loc_0085B17F: 'Referenced from: 0085B172 + loc_0085B1C6: var_7C = ((Rnd(10) * global_4027D0) + global_402728) + loc_0085B1D5: If var_886024 Then + loc_0085B1DB: If 00886024h = 1 Then + loc_0085B1E6: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B1EA: If var_20 >= 0 Then + loc_0085B1EC: var_eax = Err.Raise + loc_0085B1F4: End If + loc_0085B1FA: var_D4 = var_20(-3) + loc_0085B200: GoTo loc_0085B210 + loc_0085B202: End If + loc_0085B202: End If + loc_0085B202: var_eax = Err.Raise + loc_0085B20A: var_D4 = Err.Raise + loc_0085B210: 'Referenced from: 0085B200 + loc_0085B212: If var_886024 Then + loc_0085B218: If 00886024h = 1 Then + loc_0085B223: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B227: If var_20 >= 0 Then + loc_0085B229: var_eax = Err.Raise + loc_0085B231: End If + loc_0085B237: var_D8 = var_20(-3) + loc_0085B23D: GoTo loc_0085B24D + loc_0085B23F: End If + loc_0085B23F: End If + loc_0085B23F: var_eax = Err.Raise + loc_0085B247: var_D8 = Err.Raise + loc_0085B24D: 'Referenced from: 0085B23D + loc_0085B24F: If var_886024 Then + loc_0085B255: If 00886024h = 1 Then + loc_0085B260: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B264: If var_20 >= 0 Then + loc_0085B266: var_eax = Err.Raise + loc_0085B26E: End If + loc_0085B274: var_DC = var_20(-3) + loc_0085B27A: GoTo loc_0085B28A + loc_0085B27C: End If + loc_0085B27C: End If + loc_0085B27C: var_eax = Err.Raise + loc_0085B284: var_DC = Err.Raise + loc_0085B28A: 'Referenced from: 0085B27A + loc_0085B292: If var_8865F8 Then + loc_0085B298: If 008865F8h = 1 Then + loc_0085B29C: If var_886024 Then + loc_0085B2A2: If 00886024h = 1 Then + loc_0085B2AA: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B2B1: If var_20 >= 0 Then + loc_0085B2B3: var_eax = Err.Raise + loc_0085B2C1: End If + loc_0085B2C7: GoTo loc_0085B2D7 + loc_0085B2C9: End If + loc_0085B2C9: End If + loc_0085B2C9: var_eax = Err.Raise + loc_0085B2D7: 'Referenced from: 0085B2C7 + loc_0085B2E2: esi+eax+00000008h = esi+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B2E9: If esi+eax+00000008h >= 0 Then + loc_0085B2EB: var_eax = Err.Raise + loc_0085B2F3: End If + loc_0085B2F6: var_E0 = esi+esi + loc_0085B2FC: GoTo loc_0085B30C + loc_0085B2FE: End If + loc_0085B2FE: End If + loc_0085B2FE: var_eax = Err.Raise + loc_0085B306: var_E0 = Err.Raise + loc_0085B30C: 'Referenced from: 0085B2FC + loc_0085B30E: If var_886024 Then + loc_0085B314: If 00886024h = 1 Then + loc_0085B31F: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B323: If var_20 >= 0 Then + loc_0085B325: var_eax = Err.Raise + loc_0085B32D: End If + loc_0085B333: GoTo loc_0085B33F + loc_0085B335: End If + loc_0085B335: End If + loc_0085B335: var_eax = Err.Raise + loc_0085B33F: 'Referenced from: 0085B333 + loc_0085B347: If var_8865F4 Then + loc_0085B34D: If 008865F4h = 1 Then + loc_0085B351: If var_886024 Then + loc_0085B357: If 00886024h = 1 Then + loc_0085B360: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B367: If var_20 >= 0 Then + loc_0085B369: var_eax = Err.Raise + loc_0085B377: End If + loc_0085B37D: GoTo loc_0085B38D + loc_0085B37F: End If + loc_0085B37F: End If + loc_0085B37F: var_eax = Err.Raise + loc_0085B38D: 'Referenced from: 0085B37D + loc_0085B398: esi+eax+00000008h = esi+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B39F: If esi+eax+00000008h >= 0 Then + loc_0085B3A1: var_eax = Err.Raise + loc_0085B3A9: End If + loc_0085B3A9: esi+eax+00000008h = esi+eax+00000008h + esi+eax+00000008h + loc_0085B3AB: GoTo loc_0085B3B7 + loc_0085B3AD: End If + loc_0085B3AD: End If + loc_0085B3AD: var_eax = Err.Raise + loc_0085B3B7: 'Referenced from: 0085B3AB + loc_0085B3F4: var_E4 = edx+eax + loc_0085B406: var_EC = var_E4 + loc_0085B419: If global_886000 = 0 Then + loc_0085B421: GoTo loc_0085B434 + loc_0085B423: End If + loc_0085B434: 'Referenced from: 0085B421 + loc_0085B445: If global_886000 = 0 Then + loc_0085B44D: GoTo loc_0085B460 + loc_0085B44F: End If + loc_0085B460: 'Referenced from: 0085B44D + loc_0085B482: var_F0 = edx+esi + loc_0085B491: var_F8 = var_F0 + loc_0085B4A4: If global_886000 = 0 Then + loc_0085B4AC: GoTo loc_0085B4BF + loc_0085B4AE: End If + loc_0085B4BF: 'Referenced from: 0085B4AC + loc_0085B4D0: If global_886000 = 0 Then + loc_0085B4D8: GoTo loc_0085B4EB + loc_0085B4DA: End If + loc_0085B4EB: 'Referenced from: 0085B4D8 + loc_0085B4FA: var_eax = Proc_85A440(CInt(((global_4027C8 / global_401728) - [edx+edi+0000000Ch]))), global_40172C, global_401728) + loc_0085B50E: End If + loc_0085B516: If var_886024 Then + loc_0085B51C: If 00886024h = 1 Then + loc_0085B528: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B52C: If var_20 < 0 Then GoTo loc_0085B530 + loc_0085B52E: End If + loc_0085B52E: End If + loc_0085B52E: var_eax = Err.Raise + loc_0085B530: + loc_0085B555: If var_886024 Then + loc_0085B55B: If 00886024h = 1 Then + loc_0085B567: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B56B: If var_20 >= 0 Then + loc_0085B56D: var_eax = Err.Raise + loc_0085B574: End If + loc_0085B57A: GoTo loc_0085B585 + loc_0085B57C: End If + loc_0085B57C: End If + loc_0085B57C: var_eax = Err.Raise + loc_0085B585: 'Referenced from: 0085B57A + loc_0085B59B: var_100 = global_00886070 + loc_0085B5CD: GoTo loc_0085B5D1 + loc_0085B5CF: End If + loc_0085B5D1: 'Referenced from: 0085B5CD + loc_0085B5D3: If eax = 0 Then + loc_0085B5DD: If var_886024 Then + loc_0085B5E3: If 00886024h = 1 Then + loc_0085B5EF: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B5F3: If var_20 >= 0 Then + loc_0085B5F5: var_eax = Err.Raise + loc_0085B5FD: End If + loc_0085B603: GoTo loc_0085B60D + loc_0085B605: End If + loc_0085B605: End If + loc_0085B605: var_eax = Err.Raise + loc_0085B60D: 'Referenced from: 0085B603 + loc_0085B616: End If + loc_0085B61E: If var_886024 Then + loc_0085B624: If 00886024h = 1 Then + loc_0085B630: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B634: If var_20 >= 0 Then + loc_0085B636: var_eax = Err.Raise + loc_0085B63E: End If + loc_0085B644: GoTo loc_0085B650 + loc_0085B646: End If + loc_0085B646: End If + loc_0085B646: var_eax = Err.Raise + loc_0085B650: 'Referenced from: 0085B644 + loc_0085B657: If var_8865F8 Then + loc_0085B65D: If 008865F8h = 1 Then + loc_0085B661: If var_886024 Then + loc_0085B667: If 00886024h = 1 Then + loc_0085B673: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B677: If var_20 >= 0 Then + loc_0085B679: var_eax = Err.Raise + loc_0085B681: End If + loc_0085B687: GoTo loc_0085B691 + loc_0085B689: End If + loc_0085B689: End If + loc_0085B689: var_eax = Err.Raise + loc_0085B691: 'Referenced from: 0085B687 + loc_0085B6A1: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B6A8: If edx+eax+00000008h >= 0 Then + loc_0085B6AA: var_eax = Err.Raise + loc_0085B6B2: End If + loc_0085B6B5: GoTo loc_0085B6BF + loc_0085B6B7: End If + loc_0085B6B7: End If + loc_0085B6B7: var_eax = Err.Raise + loc_0085B6BF: 'Referenced from: 0085B6B5 + loc_0085B6CF: var_104 = edx+eax + loc_0085B6DB: var_108 = var_104 + loc_0085B706: If Err.Number Then + loc_0085B724: GoTo loc_0085B728 + loc_0085B726: End If + loc_0085B728: 'Referenced from: 0085B724 + loc_0085B74D: If global_886000 = 0 Then + loc_0085B755: GoTo loc_0085B762 + loc_0085B757: End If + loc_0085B75D: call _adj_fdiv_m32(global_8860D4) + loc_0085B762: 'Referenced from: 0085B755 + loc_0085B76B: If global_886000 = 0 Then + loc_0085B773: GoTo loc_0085B780 + loc_0085B775: End If + loc_0085B77B: call _adj_fdiv_m32(global_4027C0) + loc_0085B780: 'Referenced from: 0085B773 + loc_0085B7A1: If Err.Number Then + loc_0085B7A8: GoTo loc_0085B7AC + loc_0085B7AA: End If + loc_0085B7AC: 'Referenced from: 0085B7A8 + loc_0085B7BE: If edi Then + loc_0085B7CC: If var_886024 Then + loc_0085B7D2: If 00886024h = 1 Then + loc_0085B7DE: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B7E2: If var_20 >= 0 Then + loc_0085B7E4: var_eax = Err.Raise + loc_0085B7EC: End If + loc_0085B7F2: GoTo loc_0085B7FE + loc_0085B7F4: End If + loc_0085B7F4: End If + loc_0085B7F4: var_eax = Err.Raise + loc_0085B7FE: 'Referenced from: 0085B7F2 + loc_0085B805: If var_8865F8 Then + loc_0085B80B: If 008865F8h = 1 Then + loc_0085B80F: If var_886024 Then + loc_0085B815: If 00886024h = 1 Then + loc_0085B821: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B825: If var_20 >= 0 Then + loc_0085B827: var_eax = Err.Raise + loc_0085B82F: End If + loc_0085B835: GoTo loc_0085B83F + loc_0085B837: End If + loc_0085B837: End If + loc_0085B837: var_eax = Err.Raise + loc_0085B83F: 'Referenced from: 0085B835 + loc_0085B84F: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B856: If edx+eax+00000008h >= 0 Then + loc_0085B858: var_eax = Err.Raise + loc_0085B860: End If + loc_0085B863: GoTo loc_0085B86D + loc_0085B865: End If + loc_0085B865: End If + loc_0085B865: var_eax = Err.Raise + loc_0085B86D: 'Referenced from: 0085B863 + loc_0085B87D: var_10C = edx+eax + loc_0085B889: var_110 = var_10C + loc_0085B8BA: 00886058h = 00886058h * 002Dh + loc_0085B8C4: 00886058h = 00886058h + 0002h + loc_0085B8FA: End If + loc_0085B902: If var_886024 Then + loc_0085B908: If 00886024h = 1 Then + loc_0085B914: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B918: If var_20 >= 0 Then + loc_0085B91A: var_eax = Err.Raise + loc_0085B922: End If + loc_0085B928: GoTo loc_0085B934 + loc_0085B92A: End If + loc_0085B92A: End If + loc_0085B92A: var_eax = Err.Raise + loc_0085B934: 'Referenced from: 0085B928 + loc_0085B93B: If var_8865F8 Then + loc_0085B941: If 008865F8h = 1 Then + loc_0085B945: If var_886024 Then + loc_0085B94B: If 00886024h = 1 Then + loc_0085B957: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B95B: If var_20 >= 0 Then + loc_0085B95D: var_eax = Err.Raise + loc_0085B965: End If + loc_0085B96B: GoTo loc_0085B975 + loc_0085B96D: End If + loc_0085B96D: End If + loc_0085B96D: var_eax = Err.Raise + loc_0085B975: 'Referenced from: 0085B96B + loc_0085B985: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085B98C: If edx+eax+00000008h >= 0 Then + loc_0085B98E: var_eax = Err.Raise + loc_0085B996: End If + loc_0085B999: GoTo loc_0085B9A3 + loc_0085B99B: End If + loc_0085B99B: End If + loc_0085B99B: var_eax = Err.Raise + loc_0085B9A3: 'Referenced from: 0085B999 + loc_0085B9B3: var_120 = edx+eax + loc_0085B9BF: var_124 = var_120 + loc_0085B9E6: 00886058h = 00886058h * 002Dh + loc_0085B9F0: 00886058h = 00886058h + 0002h + loc_0085B9FA: 00886058h+0002h = 00886058h+0002h + 0004h + loc_0085BA2B: GoTo loc_0085BA2F + loc_0085BA2D: End If + loc_0085BA2F: 'Referenced from: 0085BA2B + loc_0085BA37: If eax = 0 Then + loc_0085BA45: If var_886024 Then + loc_0085BA4B: If 00886024h = 1 Then + loc_0085BA57: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BA5B: If var_20 >= 0 Then + loc_0085BA5D: var_eax = Err.Raise + loc_0085BA65: End If + loc_0085BA6B: GoTo loc_0085BA75 + loc_0085BA6D: End If + loc_0085BA6D: End If + loc_0085BA6D: var_eax = Err.Raise + loc_0085BA75: 'Referenced from: 0085BA6B + loc_0085BA9D: End If + loc_0085BA9F: If var_886024 Then + loc_0085BAA5: If 00886024h = 1 Then + loc_0085BAB1: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BAB5: If var_20 >= 0 Then + loc_0085BAB7: var_eax = Err.Raise + loc_0085BABF: End If + loc_0085BAC5: GoTo loc_0085BAD1 + loc_0085BAC7: End If + loc_0085BAC7: End If + loc_0085BAC7: var_eax = Err.Raise + loc_0085BAD1: 'Referenced from: 0085BAC5 + loc_0085BAD8: If var_8865F4 Then + loc_0085BADE: If 008865F4h = 1 Then + loc_0085BAE2: If var_886024 Then + loc_0085BAE8: If 00886024h = 1 Then + loc_0085BAF4: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BAF8: If var_20 >= 0 Then + loc_0085BAFA: var_eax = Err.Raise + loc_0085BB02: End If + loc_0085BB08: GoTo loc_0085BB12 + loc_0085BB0A: End If + loc_0085BB0A: End If + loc_0085BB0A: var_eax = Err.Raise + loc_0085BB12: 'Referenced from: 0085BB08 + loc_0085BB22: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BB29: If edx+eax+00000008h >= 0 Then + loc_0085BB2B: var_eax = Err.Raise + loc_0085BB33: End If + loc_0085BB36: GoTo loc_0085BB40 + loc_0085BB38: End If + loc_0085BB38: End If + loc_0085BB38: var_eax = Err.Raise + loc_0085BB40: 'Referenced from: 0085BB36 + loc_0085BB50: var_134 = edx+eax + loc_0085BB5C: var_138 = var_134 + loc_0085BB83: 00886056h = 00886056h * 002Dh + loc_0085BB9C: var_140 = global_00886056 + loc_0085BBB4: GoTo loc_0085BBB8 + loc_0085BBB6: End If + loc_0085BBB8: 'Referenced from: 0085BBB4 + loc_0085BBC0: If eax = 0 Then + loc_0085BBCD: If var_886024 Then + loc_0085BBD3: If 00886024h = 1 Then + loc_0085BBDF: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BBE3: If var_20 >= 0 Then + loc_0085BBE5: var_eax = Err.Raise + loc_0085BBEC: End If + loc_0085BBF2: GoTo loc_0085BBFD + loc_0085BBF4: End If + loc_0085BBF4: End If + loc_0085BBF4: var_eax = Err.Raise + loc_0085BBFD: 'Referenced from: 0085BBF2 + loc_0085BBFF: If var_886024 Then + loc_0085BC05: If 00886024h = 1 Then + loc_0085BC11: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BC15: If var_20 >= 0 Then + loc_0085BC17: var_eax = Err.Raise + loc_0085BC1E: End If + loc_0085BC24: GoTo loc_0085BC2F + loc_0085BC26: End If + loc_0085BC26: End If + loc_0085BC26: var_eax = Err.Raise + loc_0085BC2F: 'Referenced from: 0085BC24 + loc_0085BC36: fchs + loc_0085BC5D: If var_886024 Then + loc_0085BC63: If 00886024h = 1 Then + loc_0085BC6F: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BC73: If var_20 >= 0 Then + loc_0085BC75: var_eax = Err.Raise + loc_0085BC7C: End If + loc_0085BC82: GoTo loc_0085BC8D + loc_0085BC84: End If + loc_0085BC84: End If + loc_0085BC84: var_eax = Err.Raise + loc_0085BC8D: 'Referenced from: 0085BC82 + loc_0085BC8F: If var_886024 Then + loc_0085BC95: If 00886024h = 1 Then + loc_0085BCA1: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BCA5: If var_20 >= 0 Then + loc_0085BCA7: var_eax = Err.Raise + loc_0085BCAE: End If + loc_0085BCB4: GoTo loc_0085BCBF + loc_0085BCB6: End If + loc_0085BCB6: End If + loc_0085BCB6: var_eax = Err.Raise + loc_0085BCBF: 'Referenced from: 0085BCB4 + loc_0085BCE1: If var_886024 Then + loc_0085BCE7: If 00886024h = 1 Then + loc_0085BCF3: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BCF7: If var_20 >= 0 Then + loc_0085BCF9: var_eax = Err.Raise + loc_0085BD00: End If + loc_0085BD06: GoTo loc_0085BD11 + loc_0085BD08: End If + loc_0085BD08: End If + loc_0085BD08: var_eax = Err.Raise + loc_0085BD11: 'Referenced from: 0085BD06 + loc_0085BD13: If var_886024 Then + loc_0085BD19: If 00886024h = 1 Then + loc_0085BD25: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BD29: If var_20 >= 0 Then + loc_0085BD2B: var_eax = Err.Raise + loc_0085BD32: End If + loc_0085BD38: GoTo loc_0085BD43 + loc_0085BD3A: End If + loc_0085BD3A: End If + loc_0085BD3A: var_eax = Err.Raise + loc_0085BD43: 'Referenced from: 0085BD38 + loc_0085BD65: If var_8865F8 Then + loc_0085BD6B: If 008865F8h = 1 Then + loc_0085BD75: If var_886024 Then + loc_0085BD7B: If 00886024h = 1 Then + loc_0085BD87: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BD8B: If var_20 >= 0 Then + loc_0085BD8D: var_eax = Err.Raise + loc_0085BD95: End If + loc_0085BD9B: GoTo loc_0085BDA5 + loc_0085BD9D: End If + loc_0085BD9D: End If + loc_0085BD9D: var_eax = Err.Raise + loc_0085BDA5: 'Referenced from: 0085BD9B + loc_0085BDB8: edx+eax+00000008h = edx+eax+00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BDBC: If edx+eax+00000008h >= 0 Then + loc_0085BDBE: var_eax = Err.Raise + loc_0085BDC6: End If + loc_0085BDC9: GoTo loc_0085BDD5 + loc_0085BDCB: End If + loc_0085BDCB: End If + loc_0085BDCB: var_eax = Err.Raise + loc_0085BDD5: 'Referenced from: 0085BDC9 + loc_0085BDD7: If var_886024 Then + loc_0085BDDD: If 00886024h = 1 Then + loc_0085BDE9: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BDED: If var_20 >= 0 Then + loc_0085BDEF: var_eax = Err.Raise + loc_0085BDF7: End If + loc_0085BDFD: GoTo loc_0085BE07 + loc_0085BDFF: End If + loc_0085BDFF: End If + loc_0085BDFF: var_eax = Err.Raise + loc_0085BE07: 'Referenced from: 0085BDFD + loc_0085BE14: 00886058h = 00886058h * 002Dh + loc_0085BE24: 00886058h = 00886058h + 0002h + loc_0085BE2E: 00886058h+0002h = 00886058h+0002h - esi+edi + loc_0085BE4B: GoTo loc_0085BF0B + loc_0085BE50: End If + loc_0085BE57: If var_886024 Then + loc_0085BE5D: If 00886024h = 1 Then + loc_0085BE69: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BE6D: If var_20 >= 0 Then + loc_0085BE6F: var_eax = Err.Raise + loc_0085BE76: End If + loc_0085BE7C: GoTo loc_0085BE87 + loc_0085BE7E: End If + loc_0085BE7E: End If + loc_0085BE7E: var_eax = Err.Raise + loc_0085BE87: 'Referenced from: 0085BE7C + loc_0085BE9D: var_14C = global_00886072 + loc_0085BEC8: If Err.Number Then + loc_0085BECA: End If + loc_0085BED2: If var_886024 Then + loc_0085BED8: If 00886024h = 1 Then + loc_0085BEE4: var_20 = var_20 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085BEE8: If var_20 >= 0 Then + loc_0085BEEA: var_eax = Err.Raise + loc_0085BEF2: End If + loc_0085BEF8: GoTo loc_0085BF02 + loc_0085BEFA: End If + loc_0085BEFA: End If + loc_0085BEFA: var_eax = Err.Raise + loc_0085BF02: 'Referenced from: 0085BEF8 + loc_0085BF0B: End If + loc_0085BF0B: End If + loc_0085BF0B: End If + loc_0085BF11: End If + loc_0085BF1C: 00000001h = 00000001h + var_20 + loc_0085BF22: var_20 = 00000001h+var_20 + loc_0085BF27: GoTo loc_0085A800 + loc_0085BF2C: End If + loc_0085BF32: GoTo loc_0085BF48 + loc_0085BF47: Exit Sub + loc_0085BF48: 'Referenced from: 0085BF32 + loc_0085BF48: Exit Sub + loc_0085BF59: Exit Sub + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: End If + loc_0085BF5A: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_3_85C540 + loc_0085C586: If 00000001h <= 200 Then + loc_0085C58E: If var_886028 Then + loc_0085C594: If 00886028h = 1 Then + loc_0085C5A5: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C5A9: If 00000001h >= 0 Then + loc_0085C5AB: var_eax = Err.Raise + loc_0085C5B3: End If + loc_0085C5B9: GoTo loc_0085C5CD + loc_0085C5BB: End If + loc_0085C5BB: End If + loc_0085C5BB: var_eax = Err.Raise + loc_0085C5CD: 'Referenced from: 0085C5B9 + loc_0085C5D5: var_eax = Unknown_8BEC4589 + loc_0085C5DD: If var_886028 Then + loc_0085C5E3: If 00886028h = 1 Then + loc_0085C5EE: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C5F2: If 00000001h >= 0 Then + loc_0085C5F4: var_eax = Err.Raise + loc_0085C5FC: End If + loc_0085C602: GoTo loc_0085C60E + loc_0085C604: End If + loc_0085C604: End If + loc_0085C604: var_eax = Err.Raise + loc_0085C60E: 'Referenced from: 0085C602 + loc_0085C610: If var_886028 Then + loc_0085C616: If 00886028h = 1 Then + loc_0085C622: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C626: If var_14 >= 0 Then + loc_0085C628: var_eax = Err.Raise + loc_0085C630: End If + loc_0085C636: GoTo loc_0085C642 + loc_0085C638: End If + loc_0085C638: End If + loc_0085C638: var_14(-3) + loc_0085C642: 'Referenced from: 0085C636 + loc_0085C644: If var_886028 Then + loc_0085C64A: If 00886028h = 1 Then + loc_0085C656: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C65A: If var_14 >= 0 Then + loc_0085C65C: var_eax = Err.Raise + loc_0085C668: End If + loc_0085C66E: GoTo loc_0085C67E + loc_0085C670: End If + loc_0085C670: End If + loc_0085C670: var_eax = Err.Raise + loc_0085C67E: 'Referenced from: 0085C66E + loc_0085C6A4: If var_886028 Then + loc_0085C6AA: If 00886028h = 1 Then + loc_0085C6B6: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C6BA: If var_14 >= 0 Then + loc_0085C6BC: var_eax = Err.Raise + loc_0085C6C7: End If + loc_0085C6CD: GoTo loc_0085C6DC + loc_0085C6CF: End If + loc_0085C6CF: End If + loc_0085C6CF: var_eax = Err.Raise + loc_0085C6DC: 'Referenced from: 0085C6CD + loc_0085C6DE: If var_886028 Then + loc_0085C6E4: If 00886028h = 1 Then + loc_0085C6F0: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C6F4: If var_14 >= 0 Then + loc_0085C6F6: var_eax = Err.Raise + loc_0085C701: End If + loc_0085C707: GoTo loc_0085C716 + loc_0085C709: End If + loc_0085C709: End If + loc_0085C709: var_eax = Err.Raise + loc_0085C716: 'Referenced from: 0085C707 + loc_0085C718: If var_886028 Then + loc_0085C71E: If 00886028h = 1 Then + loc_0085C72A: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C72E: If var_14 >= 0 Then + loc_0085C730: var_eax = Err.Raise + loc_0085C73B: End If + loc_0085C741: GoTo loc_0085C750 + loc_0085C743: End If + loc_0085C743: End If + loc_0085C743: var_eax = Err.Raise + loc_0085C750: 'Referenced from: 0085C741 + loc_0085C776: If var_886028 Then + loc_0085C77C: If 00886028h = 1 Then + loc_0085C78A: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C78E: If var_14 >= 0 Then + loc_0085C790: var_eax = Err.Raise + loc_0085C79B: End If + loc_0085C7A1: GoTo loc_0085C7B3 + loc_0085C7A3: End If + loc_0085C7A3: End If + loc_0085C7A3: var_eax = Err.Raise + loc_0085C7B3: 'Referenced from: 0085C7A1 + loc_0085C7B5: If var_886028 Then + loc_0085C7BB: If 00886028h = 1 Then + loc_0085C7C6: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C7CA: If var_14 >= 0 Then + loc_0085C7CC: var_eax = Err.Raise + loc_0085C7D7: End If + loc_0085C7DD: GoTo loc_0085C7EC + loc_0085C7DF: End If + loc_0085C7DF: End If + loc_0085C7DF: var_eax = Err.Raise + loc_0085C7EC: 'Referenced from: 0085C7DD + loc_0085C7F9: If global_886000 = 0 Then + loc_0085C801: GoTo loc_0085C814 + loc_0085C803: End If + loc_0085C814: 'Referenced from: 0085C801 + loc_0085C84C: var_38 = Rnd(10) + loc_0085C851: If var_886028 Then + loc_0085C857: If 00886028h = 1 Then + loc_0085C862: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C866: If var_14 >= 0 Then + loc_0085C868: var_eax = Err.Raise + loc_0085C873: End If + loc_0085C879: GoTo loc_0085C888 + loc_0085C87B: End If + loc_0085C87B: End If + loc_0085C87B: var_eax = Err.Raise + loc_0085C888: 'Referenced from: 0085C879 + loc_0085C88A: If var_886028 Then + loc_0085C890: If 00886028h = 1 Then + loc_0085C89B: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C89F: If var_14 >= 0 Then + loc_0085C8A1: var_eax = Err.Raise + loc_0085C8AC: End If + loc_0085C8B2: GoTo loc_0085C8C1 + loc_0085C8B4: End If + loc_0085C8B4: End If + loc_0085C8B4: var_eax = Err.Raise + loc_0085C8C1: 'Referenced from: 0085C8B2 + loc_0085C8F6: If var_886028 Then + loc_0085C8FC: If 00886028h = 1 Then + loc_0085C907: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C90B: If var_14 >= 0 Then + loc_0085C90D: var_eax = Err.Raise + loc_0085C919: End If + loc_0085C91F: GoTo loc_0085C92D + loc_0085C921: End If + loc_0085C921: End If + loc_0085C921: var_eax = Err.Raise + loc_0085C92D: 'Referenced from: 0085C91F + loc_0085C943: If var_886028 Then + loc_0085C949: If 00886028h = 1 Then + loc_0085C955: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085C959: If var_14 >= 0 Then + loc_0085C95B: var_eax = Err.Raise + loc_0085C967: End If + loc_0085C96D: GoTo loc_0085C97B + loc_0085C96F: End If + loc_0085C96F: End If + loc_0085C96F: var_eax = Err.Raise + loc_0085C97B: 'Referenced from: 0085C96D + loc_0085C98A: End If + loc_0085C992: 00000001h = 00000001h + var_14 + loc_0085C997: var_14 = 00000001h+var_14 + loc_0085C99C: var_eax = Unknown_415 + loc_0085C9A1: End If + loc_0085C9A7: GoTo loc_0085C9B3 + loc_0085C9B2: Exit Sub + loc_0085C9B3: 'Referenced from: 0085C9A7 + loc_0085C9B3: Exit Sub + loc_0085C9C4: Exit Sub + loc_0085C9C5: End If + loc_0085C9C5: End If + loc_0085C9C5: End If + loc_0085C9C5: End If + loc_0085C9C5: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_4_85CAB0 + loc_0085CAED: var_40 = arg_C + loc_0085CAFA: If global_886000 = 0 Then + loc_0085CB02: GoTo loc_0085CB15 + loc_0085CB04: End If + loc_0085CB15: 'Referenced from: 0085CB02 + loc_0085CB34: var_28 = (Int((var_40 / global_401868)) + global_402818) + loc_0085CB3D: var_20 = var_28 + loc_0085CB49: GoTo loc_0085CB55 + loc_0085CB54: Exit Sub + loc_0085CB55: 'Referenced from: 0085CB49 + loc_0085CB55: Exit Sub +End Sub + +Public Sub Proc_12_5_85E9C0 + Dim global_40177C As Me + Dim var_C0 As Me + loc_0085EA20: ReDim global_00886020(0 To global_00886056, 0 To global_00886058) + loc_0085EA43: ReDim var_38(0 To global_00886056, 0 To global_00886058) + loc_0085EA52: If global_886124 Then + loc_0085EA5F: 00886058h = 00886058h * 8937558 + loc_0085EA74: var_18 = global_00886058 + loc_0085EA77: If global_88611C Then + loc_0085EA8F: 008860E4h = 008860E4h - 0001h + loc_0085EA99: var_A8 = global_00886058 + loc_0085EAAC: If global_886000 = 0 Then + loc_0085EAB4: GoTo loc_0085EAC7 + loc_0085EAB6: End If + loc_0085EAC7: 'Referenced from: 0085EAB4 + loc_0085EAC7: var_24 = global_008860E4 + loc_0085EADA: var_14 = CInt(global_401778) + loc_0085EADD: GoTo loc_0085EAEF + loc_0085EADF: End If + loc_0085EAEC: var_24 = global_008860E4 + loc_0085EAEF: 'Referenced from: 0085EADD + loc_0085EB04: ReDim var_20(0 To global_00886058) + loc_0085EB09: GoTo loc_0085EB11 + loc_0085EB0B: + loc_0085EB11: 'Referenced from: 0085EB09 + loc_0085EB18: var_30 = var_30 + 0001h + loc_0085EB27: var_18 = var_18 - var_14 + loc_0085EB2B: var_30 = global_40177C.QueryInterface 'Ignore this + loc_0085EB34: var_70 = var_18 + loc_0085EB3A: If 00000001h <= var_18-var_14 Then + loc_0085EB43: 00000001h = 00000001h - 0001h + loc_0085EB4D: var_18 = var_18 - var_14 + loc_0085EB7E: var_C0 = var_18 + loc_0085EB91: If global_886000 = 0 Then + loc_0085EB99: GoTo loc_0085EBAC + loc_0085EB9B: End If + loc_0085EBAC: 'Referenced from: 0085EB99 + loc_0085EBB8: var_CC = var_24 + loc_0085EBEF: If CInt((Int(((var_B4 / var_C0) * var_CC)) + global_402818)) > global_008860E4 Then + loc_0085EBF3: End If + loc_0085EBF8: If var_20 Then + loc_0085EBFE: If var_20 = 1 Then + loc_0085EC09: 00000001h = 00000001h - var_20(6) + loc_0085EC0D: If 00000001h >= 0 Then + loc_0085EC0F: var_eax = Err.Raise + loc_0085EC18: End If + loc_0085EC1B: GoTo loc_0085EC26 + loc_0085EC1D: End If + loc_0085EC1D: End If + loc_0085EC1D: var_eax = Err.Raise + loc_0085EC26: 'Referenced from: 0085EC1B + loc_0085EC38: 00000001h = 00000001h + 00000001h + loc_0085EC46: GoTo loc_0085EB37 + loc_0085EC4B: End If + loc_0085EC5D: var_18(1) = var_18(1) - var_14 + loc_0085EC6B: If var_18(1) <= var_18-var_14 Then + loc_0085EC72: If var_20 Then + loc_0085EC78: If var_20 = 1 Then + loc_0085EC83: var_18(1) = var_18(1) - var_20(6) + loc_0085EC87: If var_18(1) >= 0 Then + loc_0085EC89: var_eax = Err.Raise + loc_0085EC92: End If + loc_0085EC95: GoTo loc_0085ECA0 + loc_0085EC97: End If + loc_0085EC97: End If + loc_0085EC97: var_eax = Err.Raise + loc_0085ECA0: 'Referenced from: 0085EC95 + loc_0085ECB1: 00000001h = 00000001h + var_18(1) + loc_0085ECBC: GoTo loc_0085EC67 + loc_0085ECBE: End If + loc_0085ECCA: If 00000001h <= var_18-var_14 Then + loc_0085ECE6: var_D0 = var_18 + loc_0085ED35: var_3C = CInt((Int((Rnd(10) * var_D0)) + global_401850)) + loc_0085ED89: var_34 = CInt((Int((Rnd(10) * var_D0)) + global_401850)) + loc_0085ED95: var_eax = Unknown_3CD(var_BC) + loc_0085EDA0: If var_20 Then + loc_0085EDA6: If var_20 = 1 Then + loc_0085EDB7: Unknown_3CD(var_BC) = Unknown_3CD(var_BC) - var_20(6) + loc_0085EDBB: If Unknown_3CD(var_BC) >= 0 Then + loc_0085EDBD: var_eax = Err.Raise + loc_0085EDC2: End If + loc_0085EDC5: GoTo loc_0085EDD2 + loc_0085EDC7: End If + loc_0085EDC7: End If + loc_0085EDCD: var_eax = Err.Raise + loc_0085EDD2: 'Referenced from: 0085EDC5 + loc_0085EDDB: var_1C = edx+eax + loc_0085EDDF: If var_20 Then + loc_0085EDE5: If var_20 = 1 Then + loc_0085EDF1: var_34 = var_34 - var_20(6) + loc_0085EDF5: If var_34 >= 0 Then + loc_0085EDF7: var_eax = Err.Raise + loc_0085EDFC: End If + loc_0085EDFF: GoTo loc_0085EE08 + loc_0085EE01: End If + loc_0085EE01: End If + loc_0085EE01: var_eax = Err.Raise + loc_0085EE08: 'Referenced from: 0085EDFF + loc_0085EE0A: If var_20 Then + loc_0085EE10: If var_20 = 1 Then + loc_0085EE1C: var_3C = var_3C - var_20(6) + loc_0085EE20: If var_3C >= 0 Then + loc_0085EE22: var_eax = Err.Raise + loc_0085EE27: End If + loc_0085EE2A: GoTo loc_0085EE31 + loc_0085EE2C: End If + loc_0085EE2C: End If + loc_0085EE2C: var_eax = Err.Raise + loc_0085EE31: 'Referenced from: 0085EE2A + loc_0085EE41: If var_20 Then + loc_0085EE47: If var_20 = 1 Then + loc_0085EE53: var_34 = var_34 - var_20(6) + loc_0085EE57: If var_34 >= 0 Then + loc_0085EE59: var_eax = Err.Raise + loc_0085EE5E: End If + loc_0085EE61: GoTo loc_0085EE68 + loc_0085EE63: End If + loc_0085EE63: End If + loc_0085EE63: var_eax = Err.Raise + loc_0085EE68: 'Referenced from: 0085EE61 + loc_0085EE7B: 00000001h = 00000001h + var_28 + loc_0085EE86: GoTo loc_0085ECC3 + loc_0085EE8B: End If + loc_0085EEA2: If 00000001h <= var_18-var_14 Then + loc_0085EEAA: If var_20 Then + loc_0085EEB0: If var_20 = 1 Then + loc_0085EEBB: 00000001h = 00000001h - var_20(6) + loc_0085EEBF: If 00000001h >= 0 Then + loc_0085EEC1: var_eax = Err.Raise + loc_0085EECD: End If + loc_0085EED0: GoTo loc_0085EEE0 + loc_0085EED2: End If + loc_0085EED2: End If + loc_0085EED2: var_eax = Err.Raise + loc_0085EEE0: 'Referenced from: 0085EED0 + loc_0085EEE8: If var_886020 Then + loc_0085EEEE: If 00886020h = 2 Then + loc_0085EEF9: var_3C = var_3C - global_40177C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085EEFD: If var_3C >= 0 Then + loc_0085EEFF: var_eax = Err.Raise + loc_0085EF0E: End If + loc_0085EF15: var_34 = var_34 - global_40177C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085EF1C: If var_34 >= 0 Then + loc_0085EF1E: var_eax = Err.Raise + loc_0085EF2D: End If + loc_0085EF33: global_40177C.%x1 = Invoke 'Ignore this = global_40177C.%x1 = Invoke 'Ignore this + 1 + loc_0085EF3B: GoTo loc_0085EF4C + loc_0085EF3D: End If + loc_0085EF3D: End If + loc_0085EF3D: var_eax = Err.Raise + loc_0085EF4C: 'Referenced from: 0085EF3B + loc_0085EF62: If var_886020 Then + loc_0085EF68: If 00886020h = 2 Then + loc_0085EF7A: var_3C = var_3C - global_40177C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085EF7E: If var_3C >= 0 Then + loc_0085EF80: var_eax = Err.Raise + loc_0085EF88: End If + loc_0085EF92: var_34 = var_34 - global_40177C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085EF96: If var_34 >= 0 Then + loc_0085EF98: var_eax = Err.Raise + loc_0085EFA0: End If + loc_0085EFA6: global_40177C.%x1 = Invoke 'Ignore this = global_40177C.%x1 = Invoke 'Ignore this + 1 + loc_0085EFAE: GoTo loc_0085EFC2 + loc_0085EFB0: End If + loc_0085EFB0: End If + loc_0085EFB0: var_eax = Err.Raise + loc_0085EFC2: 'Referenced from: 0085EFAE + loc_0085EFD4: If var_886020 Then + loc_0085EFDA: If 00886020h = 2 Then + loc_0085EFE6: var_3C = var_3C - global_40177C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085EFEA: If var_3C >= 0 Then + loc_0085EFEC: var_eax = Err.Raise + loc_0085EFF4: End If + loc_0085EFFE: var_34 = var_34 - global_40177C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F002: If var_34 >= 0 Then + loc_0085F004: var_eax = Err.Raise + loc_0085F00C: End If + loc_0085F012: global_40177C.%x1 = Invoke 'Ignore this = global_40177C.%x1 = Invoke 'Ignore this + 1 + loc_0085F01A: GoTo loc_0085F024 + loc_0085F01C: End If + loc_0085F01C: End If + loc_0085F01C: var_eax = Err.Raise + loc_0085F024: 'Referenced from: 0085F01A + loc_0085F036: If var_886020 Then + loc_0085F03C: If 00886020h = 2 Then + loc_0085F048: var_3C = var_3C - global_40177C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085F04C: If var_3C >= 0 Then + loc_0085F04E: var_eax = Err.Raise + loc_0085F056: End If + loc_0085F060: var_34 = var_34 - global_40177C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F064: If var_34 >= 0 Then + loc_0085F066: var_eax = Err.Raise + loc_0085F06E: End If + loc_0085F074: global_40177C.%x1 = Invoke 'Ignore this = global_40177C.%x1 = Invoke 'Ignore this + 1 + loc_0085F07C: GoTo loc_0085F086 + loc_0085F07E: End If + loc_0085F07E: End If + loc_0085F07E: var_eax = Err.Raise + loc_0085F086: 'Referenced from: 0085F07C + loc_0085F095: If var_20 Then + loc_0085F09B: If var_20 = 1 Then + loc_0085F0A7: var_28 = var_28 - var_20(6) + loc_0085F0AB: If var_28 >= 0 Then + loc_0085F0AD: var_eax = Err.Raise + loc_0085F0B2: End If + loc_0085F0B5: GoTo loc_0085F0BC + loc_0085F0B7: End If + loc_0085F0B7: End If + loc_0085F0B7: var_eax = Err.Raise + loc_0085F0BC: 'Referenced from: 0085F0B5 + loc_0085F0CA: If ecx+eax = var_8860E4 Then + loc_0085F0D4: If global_88611C Then + loc_0085F0DE: If var_886020 Then + loc_0085F0E4: If 00886020h = 2 Then + loc_0085F0F0: var_3C = var_3C - global_40177C.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0085F0F4: If var_3C >= 0 Then + loc_0085F0F6: var_eax = Err.Raise + loc_0085F0FE: End If + loc_0085F108: var_34 = var_34 - global_40177C.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F10C: If var_34 >= 0 Then + loc_0085F10E: var_eax = Err.Raise + loc_0085F116: End If + loc_0085F11C: global_40177C.%x1 = Invoke 'Ignore this = global_40177C.%x1 = Invoke 'Ignore this + 1 + loc_0085F124: GoTo loc_0085F12E + loc_0085F126: End If + loc_0085F126: End If + loc_0085F126: var_eax = Err.Raise + loc_0085F12E: 'Referenced from: 0085F124 + loc_0085F13B: End If + loc_0085F13B: End If + loc_0085F13F: var_3C = var_3C + 0001h + loc_0085F150: var_3C = global_40177C.QueryInterface 'Ignore this + loc_0085F153: If var_3C+0001h > var_886056 Then + loc_0085F16A: var_34 = var_34(1) + loc_0085F16D: End If + loc_0085F172: 00000001h = 00000001h + var_28 + loc_0085F17C: var_28 = 00000001h+var_28 + loc_0085F17F: GoTo loc_0085EE9E + loc_0085F184: End If + loc_0085F184: var_eax = Proc_864120 + loc_0085F18C: If Proc_864120 = 0 Then + loc_0085F198: If var_30 < 1000 Then GoTo loc_0085EB0B + loc_0085F1A4: GoTo loc_0085F224 + loc_0085F1A6: End If + loc_0085F1B8: If 00000001h <= var_886056 Then + loc_0085F1CD: If 00000001h <= var_886058 Then + loc_0085F1D7: var_eax = Proc_12_7_85F2F0(var_3C, var_34, global_0085F23B) + loc_0085F1DF: 00000001h = 00000001h + var_34 + loc_0085F1E5: GoTo loc_0085F1C7 + loc_0085F1E7: End If + loc_0085F1EC: 00000001h = 00000001h + var_3C + loc_0085F1F2: GoTo loc_0085F1B2 + loc_0085F1F4: End If + loc_0085F1F8: var_30 = var_30 + 0001h + loc_0085F1FE: var_30 = global_40177C.QueryInterface 'Ignore this + loc_0085F201: var_eax = Proc_864120 + loc_0085F209: If Proc_864120 = 0 Then + loc_0085F210: If var_30+0001h < 1000 Then GoTo loc_0085F1A6 + loc_0085F212: End If + loc_0085F212: End If + loc_0085F218: GoTo loc_0085F224 + loc_0085F223: Exit Sub + loc_0085F224: 'Referenced from: 0085F1A4 + loc_0085F23A: Exit Sub + loc_0085F24B: Exit Sub + loc_0085F24C: End If + loc_0085F24C: End If + loc_0085F24C: End If + loc_0085F24C: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_6_85F260 + loc_0085F2A4: var_eax = Proc_8_1_842B90(global_00886056, global_00886058, global_008860E4) + loc_0085F2AF: var_18 = Timer + loc_0085F2BD: Randomize(Timer) + loc_0085F2D2: GoTo loc_0085F2DE + loc_0085F2DD: Exit Sub + loc_0085F2DE: 'Referenced from: 0085F2D2 +End Sub + +Public Sub Proc_12_7_85F2F0 + loc_0085F328: If var_886020 Then + loc_0085F32E: If 00886020h = 2 Then + loc_0085F346: If Me >= 0 Then + loc_0085F348: var_eax = Err.Raise + loc_0085F350: End If + loc_0085F359: arg_C = arg_C - ecx+00000014h + loc_0085F35E: If arg_C >= 0 Then + loc_0085F360: var_eax = Err.Raise + loc_0085F368: End If + loc_0085F376: GoTo loc_0085F386 + loc_0085F378: End If + loc_0085F378: End If + loc_0085F37E: var_eax = Err.Raise + loc_0085F386: 'Referenced from: 0085F376 + loc_0085F398: If var_886020 Then + loc_0085F39E: If 00886020h = 2 Then + loc_0085F3AE: If Me >= 0 Then + loc_0085F3B0: var_eax = Err.Raise + loc_0085F3B8: End If + loc_0085F3C4: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F3C8: If arg_C >= 0 Then + loc_0085F3CA: var_eax = Err.Raise + loc_0085F3D2: End If + loc_0085F3E0: GoTo loc_0085F3EA + loc_0085F3E2: End If + loc_0085F3E2: End If + loc_0085F3E2: var_eax = Err.Raise + loc_0085F3EA: 'Referenced from: 0085F3E0 + loc_0085F403: If global_88611C = 0 Then + loc_0085F417: If var_886020 Then + loc_0085F41D: If 00886020h = 2 Then + loc_0085F42D: If Me >= 0 Then + loc_0085F42F: var_eax = Err.Raise + loc_0085F436: End If + loc_0085F442: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F446: If arg_C >= 0 Then + loc_0085F448: var_eax = Err.Raise + loc_0085F44F: End If + loc_0085F45D: GoTo loc_0085F463 + loc_0085F45F: End If + loc_0085F45F: End If + loc_0085F45F: var_eax = Err.Raise + loc_0085F463: 'Referenced from: 0085F45D + loc_0085F47A: var_44 = global_008860E4 + loc_0085F4B3: GoTo loc_0085F734 + loc_0085F4B8: End If + loc_0085F4F1: If Err.Number Then + loc_0085F4F8: GoTo loc_0085F4FC + loc_0085F4FA: End If + loc_0085F4FC: 'Referenced from: 0085F4F8 + loc_0085F513: If eax Then + loc_0085F51B: If var_886020 Then + loc_0085F521: If 00886020h = 2 Then + loc_0085F537: If Me >= 0 Then + loc_0085F539: var_eax = Err.Raise + loc_0085F541: End If + loc_0085F54D: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F551: If arg_C >= 0 Then + loc_0085F553: var_eax = Err.Raise + loc_0085F55B: End If + loc_0085F569: GoTo loc_0085F57D + loc_0085F56B: End If + loc_0085F56B: End If + loc_0085F56B: var_eax = Err.Raise + loc_0085F57D: 'Referenced from: 0085F569 + loc_0085F58F: If var_886020 Then + loc_0085F595: If 00886020h = 2 Then + loc_0085F5A5: If Me >= 0 Then + loc_0085F5A7: var_eax = Err.Raise + loc_0085F5AF: End If + loc_0085F5BB: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F5BF: If arg_C >= 0 Then + loc_0085F5C1: var_eax = Err.Raise + loc_0085F5C9: End If + loc_0085F5E5: GoTo loc_0085F743 + loc_0085F5EA: End If + loc_0085F5EA: End If + loc_0085F5EA: var_eax = Err.Raise + loc_0085F600: GoTo loc_0085F743 + loc_0085F605: End If + loc_0085F607: If edi.GetTypeInfoCount 'Ignore this Then + loc_0085F60D: If ecx = 2 Then + loc_0085F61F: If Me >= 0 Then + loc_0085F621: var_eax = Err.Raise + loc_0085F62D: End If + loc_0085F636: arg_C = arg_C - ecx+00000014h + loc_0085F63B: If arg_C >= 0 Then + loc_0085F63D: var_eax = Err.Raise + loc_0085F649: End If + loc_0085F657: GoTo loc_0085F665 + loc_0085F659: End If + loc_0085F659: End If + loc_0085F659: var_eax = Err.Raise + loc_0085F665: 'Referenced from: 0085F657 + loc_0085F67D: var_20 = Err.Raise() + loc_0085F680: If var_886020 Then + loc_0085F686: If 00886020h = 2 Then + loc_0085F696: If Me >= 0 Then + loc_0085F698: var_eax = Err.Raise + loc_0085F6A3: End If + loc_0085F6AF: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F6B3: If arg_C >= 0 Then + loc_0085F6B5: var_eax = Err.Raise + loc_0085F6C0: End If + loc_0085F6CE: GoTo loc_0085F6D8 + loc_0085F6D0: End If + loc_0085F6D0: End If + loc_0085F6D0: var_eax = Err.Raise + loc_0085F6D8: 'Referenced from: 0085F6CE + loc_0085F6E8: 008860E4h = 008860E4h - 0001h + loc_0085F6FB: var_4C = global_008860E4 + loc_0085F734: 'Referenced from: 0085F4B3 + loc_0085F743: 'Referenced from: 0085F5E5 + loc_0085F74B: If var_886020 Then + loc_0085F751: If 00886020h = 2 Then + loc_0085F761: If Me >= 0 Then + loc_0085F763: var_eax = Err.Raise + loc_0085F76B: End If + loc_0085F777: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F77B: If arg_C >= 0 Then + loc_0085F77D: var_eax = Err.Raise + loc_0085F785: End If + loc_0085F793: GoTo loc_0085F79D + loc_0085F795: End If + loc_0085F795: End If + loc_0085F795: var_eax = Err.Raise + loc_0085F79D: 'Referenced from: 0085F793 + loc_0085F7B0: If var_886020 Then + loc_0085F7B6: If 00886020h = 2 Then + loc_0085F7C6: If Me >= 0 Then + loc_0085F7C8: var_eax = Err.Raise + loc_0085F7D0: End If + loc_0085F7DC: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F7E0: If arg_C >= 0 Then + loc_0085F7E2: var_eax = Err.Raise + loc_0085F7EA: End If + loc_0085F7F8: GoTo loc_0085F802 + loc_0085F7FA: End If + loc_0085F7FA: End If + loc_0085F7FA: var_eax = Err.Raise + loc_0085F802: 'Referenced from: 0085F7F8 + loc_0085F815: If var_886020 Then + loc_0085F81B: If 00886020h = 2 Then + loc_0085F82B: If Me >= 0 Then + loc_0085F82D: var_eax = Err.Raise + loc_0085F835: End If + loc_0085F841: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F845: If arg_C >= 0 Then + loc_0085F847: var_eax = Err.Raise + loc_0085F84F: End If + loc_0085F85D: GoTo loc_0085F867 + loc_0085F85F: End If + loc_0085F85F: End If + loc_0085F85F: var_eax = Err.Raise + loc_0085F867: 'Referenced from: 0085F85D + loc_0085F879: If var_886020 Then + loc_0085F87F: If 00886020h = 2 Then + loc_0085F88F: If Me >= 0 Then + loc_0085F891: var_eax = Err.Raise + loc_0085F899: End If + loc_0085F8A5: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F8A9: If arg_C >= 0 Then + loc_0085F8AB: var_eax = Err.Raise + loc_0085F8B3: End If + loc_0085F8C1: GoTo loc_0085F8CB + loc_0085F8C3: End If + loc_0085F8C3: End If + loc_0085F8C3: var_eax = Err.Raise + loc_0085F8CB: 'Referenced from: 0085F8C1 + loc_0085F8DD: If var_886020 Then + loc_0085F8E3: If 00886020h = 2 Then + loc_0085F8F3: If Me >= 0 Then + loc_0085F8F5: var_eax = Err.Raise + loc_0085F8FD: End If + loc_0085F909: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F90D: If arg_C >= 0 Then + loc_0085F90F: var_eax = Err.Raise + loc_0085F917: End If + loc_0085F925: GoTo loc_0085F92F + loc_0085F927: End If + loc_0085F927: End If + loc_0085F927: var_eax = Err.Raise + loc_0085F92F: 'Referenced from: 0085F925 + loc_0085F941: If var_886020 Then + loc_0085F947: If 00886020h = 2 Then + loc_0085F957: If Me >= 0 Then + loc_0085F959: var_eax = Err.Raise + loc_0085F961: End If + loc_0085F96D: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F971: If arg_C >= 0 Then + loc_0085F973: var_eax = Err.Raise + loc_0085F97B: End If + loc_0085F989: GoTo loc_0085F993 + loc_0085F98B: End If + loc_0085F98B: End If + loc_0085F98B: var_eax = Err.Raise + loc_0085F993: 'Referenced from: 0085F989 + loc_0085F9A5: If var_886020 Then + loc_0085F9AB: If 00886020h = 2 Then + loc_0085F9BB: If Me >= 0 Then + loc_0085F9BD: var_eax = Err.Raise + loc_0085F9C5: End If + loc_0085F9D1: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085F9D5: If arg_C >= 0 Then + loc_0085F9D7: var_eax = Err.Raise + loc_0085F9DF: End If + loc_0085F9ED: GoTo loc_0085F9F7 + loc_0085F9EF: End If + loc_0085F9EF: End If + loc_0085F9EF: var_eax = Err.Raise + loc_0085F9F7: 'Referenced from: 0085F9ED + loc_0085FA09: If var_886020 Then + loc_0085FA0F: If 00886020h = 2 Then + loc_0085FA1F: If Me >= 0 Then + loc_0085FA21: var_eax = Err.Raise + loc_0085FA29: End If + loc_0085FA35: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FA39: If arg_C >= 0 Then + loc_0085FA3B: var_eax = Err.Raise + loc_0085FA43: End If + loc_0085FA51: GoTo loc_0085FA5B + loc_0085FA53: End If + loc_0085FA53: End If + loc_0085FA53: var_eax = Err.Raise + loc_0085FA5B: 'Referenced from: 0085FA51 + loc_0085FA6D: If var_886020 Then + loc_0085FA73: If 00886020h = 2 Then + loc_0085FA83: If Me >= 0 Then + loc_0085FA85: var_eax = Err.Raise + loc_0085FA8D: End If + loc_0085FA99: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FA9D: If arg_C >= 0 Then + loc_0085FA9F: var_eax = Err.Raise + loc_0085FAA7: End If + loc_0085FAB5: GoTo loc_0085FABF + loc_0085FAB7: End If + loc_0085FAB7: End If + loc_0085FAB7: var_eax = Err.Raise + loc_0085FABF: 'Referenced from: 0085FAB5 + loc_0085FAD2: If var_886020 Then + loc_0085FAD8: If 00886020h = 2 Then + loc_0085FAE8: If Me >= 0 Then + loc_0085FAEA: var_eax = Err.Raise + loc_0085FAF2: End If + loc_0085FAFE: arg_C = arg_C - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FB02: If arg_C >= 0 Then + loc_0085FB04: var_eax = Err.Raise + loc_0085FB0C: End If + loc_0085FB1A: GoTo loc_0085FB24 + loc_0085FB1C: End If + loc_0085FB1C: End If + loc_0085FB1C: var_eax = Err.Raise + loc_0085FB24: 'Referenced from: 0085FB1A + loc_0085FB35: GoTo loc_0085FB41 + loc_0085FB40: Exit Sub + loc_0085FB41: 'Referenced from: 0085FB35 + loc_0085FB41: Exit Sub +End Sub + +Public Sub Proc_12_8_85FB60 + loc_0085FB9A: var_48 = global_008860E4 + loc_0085FBA4: If 00000001h <= global_008860E4 Then + loc_0085FBC1: If var_88659C Then + loc_0085FBC7: If 0088659Ch = 1 Then + loc_0085FBD2: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FBD6: If 00000001h >= 0 Then + loc_0085FBD8: var_eax = Err.Raise + loc_0085FBDE: End If + loc_0085FBDE: 00000001h = 00000001h + 00000001h + loc_0085FBE0: GoTo loc_0085FBEA + loc_0085FBE2: End If + loc_0085FBE2: End If + loc_0085FBE2: var_eax = Err.Raise + loc_0085FBEA: 'Referenced from: 0085FBE0 + loc_0085FC69: If Err.Number Then + loc_0085FC70: GoTo loc_0085FC74 + loc_0085FC72: End If + loc_0085FC74: 'Referenced from: 0085FC70 + loc_0085FC7B: If var_886034 Then + loc_0085FC81: If 00886034h = 1 Then + loc_0085FC90: 008861A0h = 008861A0h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FC94: If 008861A0h >= 0 Then + loc_0085FC96: var_eax = Err.Raise + loc_0085FCA1: End If + loc_0085FCA8: edi*8 = edi*8 - 008861A0h + loc_0085FCAD: GoTo loc_0085FCBC + loc_0085FCAF: End If + loc_0085FCAF: End If + loc_0085FCAF: var_eax = Err.Raise + loc_0085FCBC: 'Referenced from: 0085FCAD + loc_0085FCC6: If var_14(1) >= 5 Then + loc_0085FCC8: var_eax = Err.Raise + loc_0085FCD3: End If + loc_0085FCF7: If ebx Then + loc_0085FCFB: If var_8865A0 Then + loc_0085FD01: If 008865A0h = 1 Then + loc_0085FD09: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FD0D: If var_14 >= 0 Then + loc_0085FD0F: var_eax = Err.Raise + loc_0085FD1B: End If + loc_0085FD27: GoTo loc_0085FD7C + loc_0085FD29: End If + loc_0085FD29: End If + loc_0085FD29: var_eax = Err.Raise + loc_0085FD3E: GoTo loc_0085FD7C + loc_0085FD40: End If + loc_0085FD42: If edi.GetTypeInfoCount 'Ignore this Then + loc_0085FD48: If ecx = 1 Then + loc_0085FD50: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0085FD54: If var_14 >= 0 Then + loc_0085FD56: var_eax = Err.Raise + loc_0085FD62: End If + loc_0085FD65: GoTo loc_0085FD73 + loc_0085FD67: End If + loc_0085FD67: End If + loc_0085FD67: var_eax = Err.Raise + loc_0085FD73: 'Referenced from: 0085FD65 + loc_0085FD7C: 'Referenced from: 0085FD27 + loc_0085FD81: 00000001h = 00000001h + var_14 + loc_0085FD87: var_14 = 00000001h+var_14 + loc_0085FD8C: GoTo loc_0085FBA0 + loc_0085FD91: End If + loc_0085FD97: GoTo loc_0085FDA3 + loc_0085FDA2: Exit Sub + loc_0085FDA3: 'Referenced from: 0085FD97 + loc_0085FDA3: Exit Sub + loc_0085FDB4: Exit Sub + loc_0085FDB5: End If + loc_0085FDB5: End If + loc_0085FDB5: End If + loc_0085FDB5: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_9_860230 + loc_00860283: fsubr st0, [00886658h] + loc_00860299: global_886658 = ((global_8860D4 * global_402878) * global_402870) + loc_008602B9: If CInt(global_886658) > 45 Then + loc_008602C0: End If + loc_008602E8: var_40 = var_3C + loc_008602FB: var_48 = var_3C + loc_00860308: If global_886000 = 0 Then + loc_00860310: GoTo loc_00860323 + loc_00860312: End If + loc_00860323: 'Referenced from: 00860310 + loc_0086033A: global_88665C = CInt(global_40172C) + loc_00860359: var_4C = var_3C + loc_0086036C: var_54 = var_3C + loc_00860379: If global_886000 = 0 Then + loc_00860381: GoTo loc_00860394 + loc_00860383: End If + loc_00860394: 'Referenced from: 00860381 + loc_008603A1: global_88665E = CInt(global_40172C) + loc_008603BA: If Err.Number Then + loc_008603BE: global_88610A = FFFFFFh + loc_008603D8: End If + loc_008603D8: End If + loc_008603DE: GoTo loc_008603EA + loc_008603E9: Exit Sub + loc_008603EA: 'Referenced from: 008603DE + loc_008603EA: Exit Sub + loc_008603FB: Exit Sub + loc_008603FC: End If + loc_008603FC: End If + loc_008603FC: End If + loc_008603FC: End If +End Sub + +Public Sub Proc_12_10_860410 + loc_0086045F: If CLng(global_886658) Or 8937738 Then + loc_00860481: var_28 = global_00886658 + loc_008604A3: If (var_28 > 45) Then + loc_008604B5: var_28 = CInt(45) + loc_008604B7: End If + loc_008604C3: var_34 = global_0088665E + loc_008604E5: GoTo loc_0086050D + loc_008604E7: End If + loc_00860500: var_34 = global_00886076 + loc_00860509: var_14 = global_00886072 + loc_0086050D: 'Referenced from: 008604E5 + loc_00860531: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, global_00886074) + loc_0086053D: If global_88610A = 0 Then + loc_00860547: If global_88610C = var_FFFFFF Then + loc_00860576: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, 292) + loc_00860582: End If + loc_00860582: End If + loc_00860588: GoTo loc_00860594 + loc_00860593: Exit Sub + loc_00860594: 'Referenced from: 00860588 +End Sub + +Public Sub Proc_12_11_860C40 + Dim global_0086136E As Me + Dim var_24 As Me + Dim global_008865E8 As Me + Dim var_88 As Me + loc_00860CBF: var_24 = RGB(205, 205, 211) + loc_00860CC9: eax = 00886018h - 1 + loc_00860CCA: If 00886018h - 1 Then + loc_00860CD0: eax = 00886018h - 1 - 1 + loc_00860CD1: If 00886018h - 1 - 1 <> 0 Then GoTo loc_0086130D + loc_00860CE0: var_6C = global_00886194 + loc_00860D1B: var_1C = "Try " & Trim$(Str$(global_00886194)) + loc_00860D3B: 00886178h = 00886178h - ebx + loc_00860D3D: If var_886178 Then + loc_00860D3F: eax = 00886178h - 1 + loc_00860D40: If 00886178h - 1 Then + loc_00860D42: eax = 00886178h - 1 - 1 + loc_00860D43: If 00886178h - 1 - 1 <> 0 Then GoTo loc_00860DD1 + loc_00860D51: var_28 = "Extreme" + loc_00860D5A: var_6C = global_00886184 + loc_00860D69: GoTo loc_00860DAD + loc_00860D6B: End If + loc_00860D73: var_28 = "Normal" + loc_00860D7C: var_6C = global_00886180 + loc_00860D8B: GoTo loc_00860DAD + loc_00860D8D: End If + loc_00860D9E: var_6C = global_0088617C + loc_00860DC6: var_14 = Trim$(Str$(global_0088617C)) + loc_00860DD1: + loc_00860E06: var_88 = True + loc_00860E1C: var_eax = Proc_9_6_8437C0("Level " & var_14, 2, 2) + loc_00860E51: var_88 = True + loc_00860E67: var_eax = Proc_9_6_8437C0("Flux LE", 2, 2) + loc_00860E96: var_88 = True + loc_00860EAC: var_eax = Proc_9_6_8437C0(var_1C, 2, 2) + loc_00860EBF: var_eax = Proc_12_12_861390(var_24, global_008865E8, var_88) + loc_00860EC9: GoTo loc_00861349 + loc_00860ECE: End If + loc_00860ED5: If 008861A8h Then + loc_00860EDB: If 008861A8h = 1 Then + loc_00860EEE: 00000001h = 00000001h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00860EF2: If 00000001h >= 0 Then + loc_00860EF4: var_eax = Err.Raise + loc_00860EF6: End If + loc_00860EF9: var_A0 = esi+esi + loc_00860EFF: GoTo loc_00860F0F + loc_00860F01: End If + loc_00860F01: End If + loc_00860F07: var_eax = Err.Raise + loc_00860F09: var_A0 = Err.Raise + loc_00860F0F: 'Referenced from: 00860EFF + loc_00860F17: If 008861ACh Then + loc_00860F1D: If 008861ACh = 1 Then + loc_00860F2A: 00000001h = 00000001h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00860F2E: If 00000001h >= 0 Then + loc_00860F30: var_eax = Err.Raise + loc_00860F38: End If + loc_00860F3B: GoTo loc_00860F45 + loc_00860F3D: End If + loc_00860F3D: End If + loc_00860F3D: var_eax = Err.Raise + loc_00860F45: 'Referenced from: 00860F3B + loc_00860F6A: If 00886056h <> edx+eax Then ebx = 1 + loc_00860F73: If 00886056h <> 0 Then eax = 1 + loc_00860F78: If eax = 0 Then + loc_00860F82: var_30 = "Small" + loc_00860F93: GoTo loc_008611A4 + loc_00860F98: End If + loc_00860F9F: If var_8861A8 Then + loc_00860FA5: If 008861A8h = 1 Then + loc_00860FB2: 00000002h = 00000002h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00860FBC: If 00000002h >= 0 Then + loc_00860FBE: var_eax = Err.Raise + loc_00860FC6: End If + loc_00860FC9: GoTo loc_00860FDB + loc_00860FCB: End If + loc_00860FCB: End If + loc_00860FD1: var_eax = Err.Raise + loc_00860FDB: 'Referenced from: 00860FC9 + loc_00860FDD: If var_8861AC Then + loc_00860FE3: If 008861ACh = 1 Then + loc_00860FF0: 00000002h = 00000002h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00860FF4: If 00000002h >= 0 Then + loc_00860FF6: var_eax = Err.Raise + loc_00860FFE: End If + loc_00861001: GoTo loc_0086100B + loc_00861003: End If + loc_00861003: End If + loc_00861003: var_eax = Err.Raise + loc_0086100B: 'Referenced from: 00861001 + loc_0086102A: If 00886056h <> 0 Then edx = 1 + loc_00861033: If 00886056h <> 0 Then eax = 1 + loc_00861038: If eax = 0 Then + loc_0086103F: GoTo loc_008610EB + loc_00861044: End If + loc_0086104B: If var_8861A8 Then + loc_00861051: If 008861A8h = 1 Then + loc_0086105E: 00000003h = 00000003h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861068: If 00000003h >= 0 Then + loc_0086106A: var_eax = Err.Raise + loc_00861072: End If + loc_00861075: GoTo loc_00861087 + loc_00861077: End If + loc_00861077: End If + loc_0086107D: var_eax = Err.Raise + loc_00861087: 'Referenced from: 00861075 + loc_00861089: If var_8861AC Then + loc_0086108F: If 008861ACh = 1 Then + loc_0086109C: 00000003h = 00000003h - global_0086136E.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008610A0: If 00000003h >= 0 Then + loc_008610A2: var_eax = Err.Raise + loc_008610AA: End If + loc_008610AD: GoTo loc_008610B7 + loc_008610AF: End If + loc_008610AF: End If + loc_008610AF: var_eax = Err.Raise + loc_008610B7: 'Referenced from: 008610AD + loc_008610D6: If 00886056h <> 0 Then edx = 1 + loc_008610DF: If 00886056h <> 0 Then eax = 1 + loc_008610E4: If eax = 0 Then + loc_008610EB: 'Referenced from: 0086103F + loc_008610EE: var_30 = "Large" + loc_008610FA: GoTo loc_0086119F + loc_008610FF: End If + loc_0086110E: var_6C = global_00886056 + loc_00861118: var_7C = global_00886058 + loc_0086117E: var_30 = Trim$(Str$(global_00886056)) & " × " & Trim$(Str$(global_00886058)) + loc_0086119F: 'Referenced from: 008610FA + loc_008611A4: 'Referenced from: 00860F93 + loc_008611DA: var_eax = Proc_9_6_8437C0(var_30, 2, 2) + loc_00861200: var_20 = global_008860E4 + loc_00861203: If global_88611C Then + loc_00861205: 008860E4h = 008860E4h - 0001h + loc_0086120F: var_20 = global_008860E4 + loc_00861212: End If + loc_00861219: var_6C = var_20 + loc_00861282: var_88 = True + loc_00861298: var_eax = Proc_9_6_8437C0(Trim$(Str$(var_20)) & " types", 2, 2) + loc_008612B8: If global_88611C = 0 Then + loc_008612BF: End If + loc_008612FA: var_eax = Proc_9_6_8437C0("no bombs", 2, 2) + loc_0086130D: var_eax = Proc_12_12_861390(var_24, global_008865E8, True) + loc_00861317: GoTo loc_00861349 + loc_00861348: Exit Sub + loc_00861349: 'Referenced from: 00860EC9 +End Sub + +Public Sub Proc_12_12_861390 + Dim var_40 As Me + loc_008613F0: If 008861B0h Then + loc_008613F6: If 008861B0h = 1 Then + loc_00861409: 00000008h = 00000008h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086140D: If 00000008h >= 0 Then + loc_0086140F: var_eax = Err.Raise + loc_00861417: End If + loc_0086141D: GoTo loc_0086142D + loc_0086141F: End If + loc_0086141F: End If + loc_00861425: var_eax = Err.Raise + loc_0086142D: 'Referenced from: 0086141D + loc_00861445: 0280h = 0280h - ecx+eax + loc_0086144F: 0280h = 0280h - 0001h + loc_0086146C: var_2C = ecx+eax + loc_0086147B: var_eax = Proc_10_14_84B2D0(global_008865EC, global_008865E8, ecx+eax) + loc_00861487: If global_88619A = 0 Then + loc_00861494: If global_88619C = 0 Then + loc_0086149C: var_68 = global_00886196 + loc_008614A0: GoTo loc_008614E5 + loc_008614A2: End If + loc_008614AA: If 00886050h Then + loc_008614B0: If 00886050h = 1 Then + loc_008614BF: 00886196h = 00886196h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008614C3: If 00886196h >= 0 Then + loc_008614C5: var_eax = Err.Raise + loc_008614CD: End If + loc_008614D0: GoTo loc_008614DA + loc_008614D2: End If + loc_008614D2: End If + loc_008614D2: var_eax = Err.Raise + loc_008614DA: 'Referenced from: 008614D0 + loc_008614E1: var_68 = ecx+eax + loc_008614E5: 'Referenced from: 008614A0 + loc_008614F8: var_28 = ecx+eax + loc_00861514: var_ret_1 = var_28 - 1 + loc_0086151F: var_60 = var_ret_1 + loc_00861528: If 00886048h Then + loc_0086152E: If 00886048h = 1 Then + loc_00861534: var_ret_2 = CLng(var_28) + loc_00861547: var_ret_2 = var_ret_2 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086154B: If var_ret_2 >= 0 Then + loc_0086154D: var_eax = Err.Raise + loc_0086154F: End If + loc_00861555: GoTo loc_0086155B + loc_00861557: End If + loc_00861557: End If + loc_00861557: var_eax = Err.Raise + loc_0086155B: 'Referenced from: 00861555 + loc_00861593: var_40 = Trim$(Str$(var_60)) & ". " + loc_008615AB: var_30 = var_84 & eax+edi+00000008h + loc_008615DA: If Len(var_30) > 20 Then + loc_008615FC: var_30 = Left$(var_30, 17) & "..." + loc_00861607: GoTo loc_00861617 + loc_00861609: End If + loc_00861611: var_30 = "Music is off." + loc_00861617: End If + loc_00861635: var_18 = RGB(160, 160, 160) + loc_00861638: var_68 = var_2C + loc_00861654: var_84 = True + loc_0086166F: var_eax = Proc_9_6_8437C0(var_30, &H4002, 2) + loc_0086167D: global_88610A = True + loc_00861689: GoTo loc_008616B3 + loc_008616B2: Exit Sub + loc_008616B3: 'Referenced from: 00861689 + loc_008616C5: Exit Sub + loc_008616D6: Exit Sub +End Sub + +Public Sub Proc_12_13_8616E0 + Dim var_80 As Me + loc_00861750: var_eax = Proc_857CC0(edi, esi, ebx) + loc_00861755: var_70 = Proc_857CC0(edi, esi, ebx) + loc_00861758: var_eax = Proc_857D20(, , ) + loc_0086175D: var_24 = Proc_857D20(, , ) + loc_00861760: var_eax = Proc_857DA0(, , ) + loc_00861765: var_54 = Proc_857DA0(, , ) + loc_00861768: var_eax = Proc_857E00(, , ) + loc_0086176D: var_4C = Proc_857E00(, , ) + loc_00861770: var_eax = Proc_855230(, , ) + loc_00861780: global_8860C4 = CCur(Proc_855230(, , )) + loc_008617A8: call __vbaCyAdd(global_008860C4, global_008860C8, CCur(1), edx, CCur(10), edx) + loc_008617AE: call __vbaCyMulI2(00000007h, __vbaCyAdd(global_008860C4, global_008860C8, CCur(1), edx, CCur(10), edx), edx) + loc_008617B6: call __vbaCyAdd(__vbaCyMulI2(00000007h, __vbaCyAdd(global_008860C4, global_008860C8, CCur(1), edx, CCur(10), edx), edx), edx) + loc_008617C6: var_5C = __vbaCyAdd(__vbaCyMulI2(00000007h, __vbaCyAdd(global_008860C4, global_008860C8, CCur(1), edx, CCur(10), edx), edx), edx) + loc_008617CC: call __vbaFpCmpCy(__vbaCyAdd(__vbaCyMulI2(00000007h, __vbaCyAdd(global_008860C4, global_008860C8, CCur(1), edx, CCur(10), edx), edx), edx), edx) + loc_008617D0: If __vbaFpCmpCy(__vbaCyAdd(__vbaCyMulI2(00000007h, __vbaCyAdd(global_008860C4, global_008860C8, CCur(1) > 0 Then + loc_008617D9: var_5C = CCur(500) + loc_008617DF: End If + loc_008617DF: var_eax = Proc_862750 + loc_008617F7: call __vbaFpCmpCy(global_008860C4, global_008860C8) + loc_00861807: var_110 = global_00886056 + loc_00861814: + loc_0086181F: If var_7C <= global_00886056 Then + loc_0086182F: var_118 = global_00886058 + loc_0086183F: var_eax = Unknown_DC80 + loc_00861847: If var_886020 Then + loc_0086184D: If 00886020h = 2 Then + loc_00861859: var_7C = var_7C - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0086185D: If var_7C >= 0 Then + loc_0086185F: var_eax = Err.Raise + loc_0086186B: End If + loc_00861874: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861878: If 00000001h >= 0 Then + loc_0086187A: var_eax = Err.Raise + loc_00861886: End If + loc_0086188C: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_7C + loc_00861894: GoTo loc_008618A2 + loc_00861896: End If + loc_00861896: End If + loc_00861896: var_eax = Err.Raise + loc_008618A2: 'Referenced from: 00861894 + loc_008618AB: var_eax = Unknown_F2 + loc_008618B9: If var_7C >= Proc_857CC0(edi, esi, ebx) Then + loc_008618C7: If var_7C <= Proc_857D20(, , ) Then + loc_008618D5: If var_6C >= Proc_857DA0(, , ) Then + loc_008618E3: If var_6C <= Proc_857E00(, , ) Then + loc_008618F1: If global_88610E Then + loc_0086194A: var_120 = CInt((Int((Rnd(var_90) * global_402918)) + global_401770)) + loc_00861966: + loc_00861971: If var_28 <= CInt((Int((Rnd(var_90) * global_402918)) + global_401770)) Then + loc_008619A0: call __vbaR8Cy(var_5C, var_58) + loc_008619C4: call __vbaR8Cy(var_5C, var_58) + loc_008619DC: var_50 = ((global_402920 * global_402688) + ((global_402798 * Rnd(10)) * global_402910)) + loc_008619FF: var_18 = var_50 + loc_00861A02: var_78 = var_50 + loc_00861A05: var_30 = var_50 + loc_00861A08: var_3C = var_50 + loc_00861A0B: If var_7C < var_886056 Then + loc_00861A13: If var_886020 Then + loc_00861A19: If 00886020h = 2 Then + loc_00861A21: var_7C = var_7C + 0001h + loc_00861A33: If esi >= 0 Then + loc_00861A35: var_eax = Err.Raise + loc_00861A41: End If + loc_00861A4B: var_6C = var_6C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861A4F: If var_6C >= 0 Then + loc_00861A51: var_eax = Err.Raise + loc_00861A5D: End If + loc_00861A63: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + .QueryInterface 'Ignore this + loc_00861A6B: GoTo loc_00861A79 + loc_00861A6D: End If + loc_00861A6D: End If + loc_00861A6D: var_eax = Err.Raise + loc_00861A79: 'Referenced from: 00861A6B + loc_00861A82: If edx+eax+00000008h Then + loc_00861A8D: var_18 = (var_50 * global_401CA0) + loc_00861A9A: End If + loc_00861A9A: End If + loc_00861A9E: If var_7C > 1 Then + loc_00861AA6: If var_886020 Then + loc_00861AAC: If 00886020h = 2 Then + loc_00861AB4: var_7C = var_7C - 0001h + loc_00861AC4: var_7C = var_7C - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00861AC8: If var_7C >= 0 Then + loc_00861ACA: var_eax = Err.Raise + loc_00861AD6: End If + loc_00861AE0: var_6C = var_6C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861AE4: If var_6C >= 0 Then + loc_00861AE6: var_eax = Err.Raise + loc_00861AF2: End If + loc_00861AF8: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_7C + loc_00861B00: GoTo loc_00861B0E + loc_00861B02: End If + loc_00861B02: End If + loc_00861B02: var_eax = Err.Raise + loc_00861B0E: 'Referenced from: 00861B00 + loc_00861B17: If edx+eax+00000008h Then + loc_00861B22: var_78 = (var_50 * global_401CA0) + loc_00861B2F: End If + loc_00861B2F: End If + loc_00861B3A: If var_6C < var_886058 Then + loc_00861B42: If var_886020 Then + loc_00861B48: If 00886020h = 2 Then + loc_00861B53: var_7C = var_7C - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00861B57: If var_7C >= 0 Then + loc_00861B59: var_eax = Err.Raise + loc_00861B65: End If + loc_00861B6C: var_6C = var_6C + 0001h + loc_00861B7E: If esi >= 0 Then + loc_00861B80: var_eax = Err.Raise + loc_00861B8C: End If + loc_00861B92: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_7C + loc_00861B9A: GoTo loc_00861BA8 + loc_00861B9C: End If + loc_00861B9C: End If + loc_00861B9C: var_eax = Err.Raise + loc_00861BA8: 'Referenced from: 00861B9A + loc_00861BB1: If edx+eax+00000008h Then + loc_00861BBC: var_30 = (var_50 * global_401CA0) + loc_00861BC9: End If + loc_00861BC9: End If + loc_00861BCE: If var_6C > 1 Then + loc_00861BD6: If var_886020 Then + loc_00861BDC: If 00886020h = 2 Then + loc_00861BE7: var_7C = var_7C - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00861BEB: If var_7C >= 0 Then + loc_00861BED: var_eax = Err.Raise + loc_00861BF9: End If + loc_00861C00: var_6C = var_6C - 0001h + loc_00861C10: var_6C = var_6C - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861C14: If var_6C >= 0 Then + loc_00861C16: var_eax = Err.Raise + loc_00861C22: End If + loc_00861C28: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_7C + loc_00861C30: GoTo loc_00861C3E + loc_00861C32: End If + loc_00861C32: End If + loc_00861C32: var_eax = Err.Raise + loc_00861C3E: 'Referenced from: 00861C30 + loc_00861C47: If ecx+eax+00000008h Then + loc_00861C52: var_3C = (var_50 * global_401CA0) + loc_00861C5F: End If + loc_00861C5F: End If + loc_00861C9F: var_14 = ((Rnd(10) + Rnd(10)) * global_401768) + loc_00861CF2: If Err.Number Then + loc_00861CF9: GoTo loc_00861CFD + loc_00861CFB: End If + loc_00861CFD: 'Referenced from: 00861CF9 + loc_00861D0F: If 80020004h Then + loc_00861D2E: fchs + loc_00861D46: var_14 = (Rnd(10) * global_401768) + loc_00861D55: End If + loc_00861D80: var_60 = ((var_78 + var_18) * Cos(var_14)) + loc_00861DD0: var_44 = ((var_3C + var_30) * Sin(var_14)) + loc_00861DE3: var_F4 = Rnd(10) + loc_00861E0B: var_F8 = Rnd(10) + loc_00861E1E: If var_80 Then + loc_00861E24: If var_80 = 2 Then + loc_00861E2F: var_7C = var_7C - var_80.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00861E33: If var_7C >= 0 Then + loc_00861E35: var_eax = Err.Raise + loc_00861E3E: End If + loc_00861E48: var_6C = var_6C - var_80.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00861E4C: If var_6C >= 0 Then + loc_00861E4E: var_eax = Err.Raise + loc_00861E57: End If + loc_00861E5D: var_80.%x1 = Invoke 'Ignore this = var_80.%x1 = Invoke 'Ignore this + var_7C + loc_00861E65: GoTo loc_00861E72 + loc_00861E67: End If + loc_00861E67: End If + loc_00861E67: var_eax = Err.Raise + loc_00861E72: 'Referenced from: 00861E65 + loc_00861E76: var_6C = var_6C - 0001h + loc_00861E80: var_6C = var_6C * 002Dh + loc_00861EB1: var_F0 = ((var_F8 * global_402750) + var_6C) + loc_00861EC4: var_7C = var_7C - 0001h + loc_00861ECE: var_7C = var_7C * 002Dh + loc_00861EFF: var_EC = ((var_F4 * global_402750) + var_7C) + loc_00861F2B: var_eax = Proc_11_7_8575A0(var_EC, var_F0, var_60) + loc_00861F5E: 00000001h = 00000001h + var_28 + loc_00861F68: var_28 = 00000001h+var_28 + loc_00861F6B: GoTo loc_00861966 + loc_00861F70: End If + loc_00861F70: End If + loc_00861F78: If global_886112 Then + loc_00861F8B: If global_886000 = 0 Then + loc_00861F93: GoTo loc_00861FA6 + loc_00861F95: End If + loc_00861FA6: 'Referenced from: 00861F93 + loc_00861FBA: var_7C = var_7C - 0001h + loc_00861FC4: var_7C = var_7C * 002Dh + loc_00861FF3: var_168 = (Int((global_401868 / global_401728)) + var_7C) + loc_00862006: If global_886000 = 0 Then + loc_0086200E: GoTo loc_00862021 + loc_00862010: End If + loc_00862021: 'Referenced from: 0086200E + loc_00862031: fsubr st0, var_168 + loc_00862056: If global_886000 = 0 Then + loc_0086205E: GoTo loc_00862071 + loc_00862060: End If + loc_00862071: 'Referenced from: 0086205E + loc_00862087: var_6C = var_6C - 0001h + loc_00862091: var_6C = var_6C * 002Dh + loc_008620C0: var_17C = (Int((global_401868 / global_401728)) + var_6C) + loc_008620D3: If global_886000 = 0 Then + loc_008620DB: GoTo loc_008620EE + loc_008620DD: End If + loc_008620EE: 'Referenced from: 008620DB + loc_008620FE: fsubr st0, var_17C + loc_0086214F: var_128 = CInt(global_401728) + loc_00862167: If 00000001h <= CInt(global_401728) Then + loc_00862215: var_EC = ((Rnd(10) * global_4028F8) + global_4028F0) + loc_008622CD: var_eax = Proc_85A440(CInt((Int(((Rnd(var_90) * global_4028E8) - global_401E40)) + CInt(Int((global_402900 / global_401728))))), CInt((Int(((Rnd(10) * global_4028E8) - global_401E40)) + CInt(Int((global_402900 / global_401728))))), 0) + loc_008622F7: 00000001h = 00000001h + 00000001h + loc_00862302: GoTo loc_00862160 + loc_00862307: End If + loc_00862315: call __vbaR8Cy(global_008860C4, global_008860C8, var_E4, var_EC, var_E8, global_40172C, global_401728, global_40172C, global_401728, global_40172C, global_401728, global_40172C, var_80) + loc_00862322: If global_886000 = 0 Then + loc_0086232A: GoTo loc_0086233D + loc_0086232C: End If + loc_0086233D: 'Referenced from: 0086232A + loc_00862343: var_38 = (((Rnd(var_90) * global_401CF0) / global_4028E0) + global_4028D8) + loc_00862364: If Err.Number Then + loc_0086236D: End If + loc_008623A3: var_E8 = True + loc_008623D5: var_E4 = CInt((Int((Rnd(10) * global_401CF0)) + global_401850)) + loc_008623ED: var_eax = Proc_85A440(CInt(Int((global_402900 / global_401728))), CInt(Int((global_402900 / global_401728))), 0) + loc_00862412: call __vbaFpCmpCy(global_008860C4, global_008860C8, 00000000h, var_E4, var_38, var_E8, global_4028E0, global_4028E4) + loc_0086241A: If __vbaFpCmpCy(global_008860C4, global_008860C8, 00000000h, var_E4, var_38, var_E8, global_4028E0, global_4028E4) >= 0 Then + loc_00862424: If global_886116 Then + loc_0086242B: global_886662 = True + loc_00862432: var_eax = QueryPerformanceCounter(global_008865D4) + loc_0086243D: End If + loc_0086243D: End If + loc_0086243D: End If + loc_0086243D: End If + loc_0086243D: End If + loc_0086243D: End If + loc_0086243D: End If + loc_00862445: var_eax = Proc_85FDC0(var_7C, var_6C) + loc_00862458: 00000001h = 00000001h + var_6C + loc_00862463: GoTo loc_00861835 + loc_0086246D: 00000001h = 00000001h + var_7C + loc_00862477: var_7C = 00000001h+var_7C + loc_0086247C: GoTo loc_00861814 + loc_00862481: End If + loc_00862488: If global_886110 Then + loc_008624A1: call __vbaR8Cy(global_008860C4, global_008860C8, global_66666666, global_3FF26666) + loc_008624AD: call __vbaPowerR8(global_4028D0) + loc_008624B5: global_886658 = __vbaPowerR8(global_4028D0) + loc_008624C5: End If + loc_008624D8: global_886658 = 42700000h + loc_008624E2: End If + loc_008624E7: var_eax = Proc_856040(global_008860C4) + loc_008624F9: var_FC = global_008860C8 + loc_008624FF: var_eax = Proc_12_14_862560(Proc_856040(global_008860C4)) + loc_00862504: var_eax = Proc_12_17_864180 + loc_0086250F: GoTo loc_0086253C + loc_0086253B: Exit Sub + loc_0086253C: 'Referenced from: 0086250F + loc_0086253C: Exit Sub + loc_0086254D: Exit Sub + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: End If + loc_0086254E: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_14_862560 + loc_00862595: If global_8860A4 Then + loc_008625AB: call __vbaFpCmpCy(Me, edi.AddRef, Me, ebx) + loc_008625B3: If __vbaFpCmpCy(Me, edi.AddRef, Me, ebx) = 0 Then + loc_008625C0: If global_8860B0 = 0 Then GoTo loc_00862724 + loc_008625DD: call __vbaR8Cy(global_008860BC, global_008860C0, CCur(1), 008860C0h) + loc_008625F3: call __vbaFpCy + loc_0086260F: call __vbaCyAdd(global_008860A8, global_008860AC, __vbaFpCy, global_008860C0) + loc_00862613: call __vbaCyAdd(__vbaCyAdd(global_008860A8, global_008860AC, __vbaFpCy, global_008860C0), global_008860A8) + loc_0086261B: global_8860A8 = __vbaCyAdd(__vbaCyAdd(global_008860A8, global_008860AC, __vbaFpCy, global_008860C0), global_008860A8) + loc_00862622: global_8860AC = global_008860A8 + loc_00862628: If 008860A8h < var_8860B8 Then GoTo loc_00862724 + loc_0086262E: If Not Asm.g_flag Then + loc_00862636: If __vbaCyAdd(__vbaCyAdd(global_008860A8, global_008860AC, __vbaFpCy, global_008860C0), global_008860A8) < 0 Then GoTo loc_00862724 + loc_0086263C: End If + loc_00862641: global_8860AC = global_008860B8 + loc_00862647: global_8860A8 = global_008860B4 + loc_00862653: global_88610A = FFFFFFh + loc_00862669: GoTo loc_00862736 + loc_0086266E: End If + loc_00862682: call __vbaCyAdd(global_008860B4, global_008860B8, __vbaCyAdd, edi.AddRef) + loc_00862688: global_8860B8 = __vbaCyAdd + loc_00862692: global_8860B4 = __vbaCyAdd(global_008860B4, global_008860B8, __vbaCyAdd, edi.AddRef) + loc_008626C3: var_34 = Rnd(10) + loc_008626C8: call __vbaCySub(global_008860B4, global_008860B8, global_008860A8, global_008860AC) + loc_008626D0: call __vbaR8Cy(__vbaCySub(global_008860B4, global_008860B8, global_008860A8, global_008860AC), global_008860B8) + loc_008626E6: If global_886000 = 0 Then + loc_008626EA: GoTo loc_008626F5 + loc_008626EC: End If + loc_008626EF: call _adj_fdiv_r(__vbaR8Cy(__vbaCySub(global_008860B4, global_008860B8, global_008860A8, global_008860AC), global_008860B8)) + loc_008626F5: 'Referenced from: 008626EA + loc_00862701: call __vbaFpCy + loc_0086270A: global_8860BC = __vbaFpCy + loc_0086270F: global_8860C0 = global_008860B8 + loc_0086271B: global_8860B0 = FFFFFFh + loc_00862724: End If + loc_0086272A: GoTo loc_00862736 + loc_00862735: Exit Sub + loc_00862736: 'Referenced from: 00862669 + loc_00862736: Exit Sub +End Sub + +Public Sub Proc_12_15_862A80 + Dim var_24 As Me + Dim global_401868 As Me + Dim var_20 As Me + loc_00862AB8: If global_8860A0 Then + loc_00862ACF: var_3C = global_00886056 + loc_00862ADA: If 00000001h <= global_00886056 Then + loc_00862AEB: var_44 = global_00886058 + loc_00862AF2: var_eax = Unknown_338(edi, esi) + loc_00862AFA: If var_886020 Then + loc_00862B00: If 00886020h = 2 Then + loc_00862B0B: 00000001h = 00000001h - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862B0F: If 00000001h >= 0 Then + loc_00862B11: var_eax = Err.Raise + loc_00862B1D: End If + loc_00862B26: 00000001h = 00000001h - ebx.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00862B2A: If 00000001h >= 0 Then + loc_00862B2C: var_eax = Err.Raise + loc_00862B38: End If + loc_00862B41: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + 00000001h + loc_00862B49: GoTo loc_00862B57 + loc_00862B4B: End If + loc_00862B4B: End If + loc_00862B4B: var_eax = Err.Raise + loc_00862B57: 'Referenced from: 00862B49 + loc_00862B69: If Err.Number Then + loc_00862B74: 00000001h = 00000001h + 00000001h + loc_00862B7F: GoTo loc_00862AEE + loc_00862B89: 00000001h = 00000001h + var_1C + loc_00862B92: var_1C = 00000001h+var_1C + loc_00862B97: GoTo loc_00862AD6 + loc_00862B9C: End If + loc_00862BA7: global_8860A0 = 0 + loc_00862BB0: var_4C = global_00886056 + loc_00862BBB: If 00000001h <= global_00886056 Then + loc_00862BC7: var_18 = global_00886058 + loc_00862BD2: var_eax = Unknown_8BE44589 + loc_00862BDA: If var_886020 Then + loc_00862BE0: If 00886020h = 2 Then + loc_00862BF1: 00000001h = 00000001h - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862BF5: If 00000001h >= 0 Then + loc_00862BF7: var_eax = Err.Raise + loc_00862BFF: End If + loc_00862C08: 00886058h = 00886058h - ebx.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00862C0C: If 00886058h >= 0 Then + loc_00862C0E: var_eax = Err.Raise + loc_00862C16: End If + loc_00862C1F: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + 00000001h + loc_00862C2A: GoTo loc_00862C3E + loc_00862C2C: End If + loc_00862C2C: End If + loc_00862C2C: var_eax = Err.Raise + loc_00862C3E: 'Referenced from: 00862C2A + loc_00862C47: If edx+eax+0000000Ah Then + loc_00862C4F: If var_886020 Then + loc_00862C55: If 00886020h = 2 Then + loc_00862C60: var_1C = var_1C - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862C64: If var_1C >= 0 Then + loc_00862C66: var_eax = Err.Raise + loc_00862C6E: End If + loc_00862C77: var_18 = var_18 - ebx.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00862C7B: If var_18 >= 0 Then + loc_00862C7D: var_eax = Err.Raise + loc_00862C85: End If + loc_00862C8B: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + var_1C + loc_00862C93: GoTo loc_00862C9D + loc_00862C95: End If + loc_00862C95: End If + loc_00862C95: var_eax = Err.Raise + loc_00862C9D: 'Referenced from: 00862C93 + loc_00862CA5: var_5C = ecx+eax+00000010h + loc_00862CAB: var_64 = var_5C + loc_00862CB8: If global_886000 = 0 Then + loc_00862CC0: GoTo loc_00862CD3 + loc_00862CC2: End If + loc_00862CD3: 'Referenced from: 00862CC0 + loc_00862CEF: var_14 = CInt((var_64 / global_401868)) + loc_00862CFD: If var_24 Then + loc_00862D03: If var_24 = 2 Then + loc_00862D0F: var_1C = var_1C - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862D13: If var_1C >= 0 Then + loc_00862D15: var_eax = Err.Raise + loc_00862D1A: End If + loc_00862D21: var_18 = var_18 + CInt((var_64 / global_401868)) + loc_00862D2D: var_18+CInt((var_64 / global_401868)) = var_18+CInt((var_64 / global_401868)) - eax+00000014h + loc_00862D32: If var_18+CInt((var_64 / global_401868)) >= 0 Then + loc_00862D34: var_eax = Err.Raise + loc_00862D39: End If + loc_00862D3F: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + var_1C + loc_00862D47: GoTo loc_00862D4D + loc_00862D49: End If + loc_00862D49: End If + loc_00862D49: call eax+eax*4 + loc_00862D4D: 'Referenced from: 00862D47 + loc_00862D62: If var_20 Then + loc_00862D68: If var_20 = 2 Then + loc_00862D74: var_1C = var_1C - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862D78: If var_1C >= 0 Then + loc_00862D7A: var_eax = Err.Raise + loc_00862D83: End If + loc_00862D8D: var_18 = var_18 - ebx.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00862D91: If var_18 >= 0 Then + loc_00862D93: var_eax = Err.Raise + loc_00862D9C: End If + loc_00862DA8: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + var_1C + loc_00862DB0: GoTo loc_00862DBD + loc_00862DB2: End If + loc_00862DB2: End If + loc_00862DB8: var_eax = Err.Raise + loc_00862DBD: 'Referenced from: 00862DB0 + loc_00862DC3: ebx.GetTypeInfoCount 'Ignore this = ebx.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00862DC8: ebx.GetTypeInfoCount 'Ignore this = ebx.GetTypeInfoCount 'Ignore this + eax+eax*4 + loc_00862DCC: var_eax = Proc_863EB0(ebx.GetTypeInfoCount, ebx.GetTypeInfoCount) + loc_00862DEB: If var_886020 Then + loc_00862DF1: If 00886020h = 2 Then + loc_00862DFD: var_1C = var_1C - ebx.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862E01: If var_1C >= 0 Then + loc_00862E03: var_eax = Err.Raise + loc_00862E0B: End If + loc_00862E12: var_18 = var_18 + var_14 + loc_00862E1F: var_18+var_14 = var_18+var_14 - ecx+00000014h + loc_00862E24: If var_18+var_14 >= 0 Then + loc_00862E26: var_eax = Err.Raise + loc_00862E32: End If + loc_00862E38: ebx.%x1 = Invoke 'Ignore this = ebx.%x1 = Invoke 'Ignore this + var_1C + loc_00862E40: GoTo loc_00862E4A + loc_00862E42: End If + loc_00862E42: End If + loc_00862E42: var_eax = Err.Raise + loc_00862E4A: 'Referenced from: 00862E40 + loc_00862E5C: var_eax = Proc_85FDC0(var_1C, var_18) + loc_00862E6D: End If + loc_00862E70: True = True + var_18 + loc_00862E75: var_18 = True+var_18 + loc_00862E7A: var_eax = Unknown_2A7 + loc_00862E84: 00000001h = 00000001h + var_1C + loc_00862E89: var_1C = 00000001h+var_1C + loc_00862E8E: GoTo loc_00862BB7 + loc_00862E93: End If + loc_00862E93: var_eax = Proc_85D3D0 + loc_00862E98: End If + loc_00862E98: End If + loc_00862E9E: GoTo loc_00862EB3 + loc_00862EB2: Exit Sub + loc_00862EB3: 'Referenced from: 00862E9E + loc_00862EB3: Exit Sub + loc_00862EC4: Exit Sub + loc_00862EC5: End If + loc_00862EC5: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_16_862ED0 + Dim var_24 As Me + Dim global_401868 As Me + Dim var_20 As Me + loc_00862F08: If global_8860A2 Then + loc_00862F1A: var_3C = global_00886056 + loc_00862F27: If 00000001h <= global_00886056 Then + loc_00862F2F: If var_886020 Then + loc_00862F35: If 00886020h = 2 Then + loc_00862F40: 00000001h = 00000001h - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862F44: If 00000001h >= 0 Then + loc_00862F46: var_eax = Err.Raise + loc_00862F52: End If + loc_00862F5F: 00886058h = 00886058h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00862F63: If 00886058h >= 0 Then + loc_00862F65: var_eax = Err.Raise + loc_00862F71: End If + loc_00862F77: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + 00000001h + loc_00862F7F: GoTo loc_00862F8D + loc_00862F81: End If + loc_00862F81: End If + loc_00862F81: var_eax = Err.Raise + loc_00862F8D: 'Referenced from: 00862F7F + loc_00862F9F: If Err.Number Then + loc_00862FAA: 00000001h = 00000001h + 00000001h + loc_00862FB5: GoTo loc_00862F23 + loc_00862FBA: End If + loc_00862FC5: global_8860A2 = 0 + loc_00862FCE: var_44 = global_00886056 + loc_00862FD9: If 00000001h <= global_00886056 Then + loc_00862FE1: If var_886020 Then + loc_00862FE7: If 00886020h = 2 Then + loc_00862FF8: 00000001h = 00000001h - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00862FFC: If 00000001h >= 0 Then + loc_00862FFE: var_eax = Err.Raise + loc_00863006: End If + loc_00863013: 00886058h = 00886058h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00863017: If 00886058h >= 0 Then + loc_00863019: var_eax = Err.Raise + loc_00863021: End If + loc_0086302A: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + 00000001h + loc_00863032: GoTo loc_00863046 + loc_00863034: End If + loc_00863034: End If + loc_00863034: var_eax = Err.Raise + loc_00863046: 'Referenced from: 00863032 + loc_0086304F: var_eax = Unknown_8BE44589 + loc_00863057: If var_886020 Then + loc_0086305D: If 00886020h = 2 Then + loc_00863068: var_1C = var_1C - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0086306C: If var_1C >= 0 Then + loc_0086306E: var_eax = Err.Raise + loc_00863076: End If + loc_00863083: 00886058h = 00886058h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00863087: If 00886058h >= 0 Then + loc_00863089: var_eax = Err.Raise + loc_00863091: End If + loc_00863097: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + var_1C + loc_0086309F: GoTo loc_008630A9 + loc_008630A1: End If + loc_008630A1: End If + loc_008630A1: var_eax = Err.Raise + loc_008630A9: 'Referenced from: 0086309F + loc_008630B1: var_54 = ecx+eax+0000001Eh + loc_008630B7: var_5C = var_54 + loc_008630C4: If global_886000 = 0 Then + loc_008630CC: GoTo loc_008630DF + loc_008630CE: End If + loc_008630DF: 'Referenced from: 008630CC + loc_008630EF: var_14 = CInt((var_5C / global_401868)) + loc_008630FC: var_4C = global_00886058 + loc_0086310C: If 00000001h <= global_00886058 Then + loc_00863122: If var_24 Then + loc_00863128: If var_24 = 2 Then + loc_00863131: var_1C = var_1C - var_14 + loc_00863141: var_1C = var_1C - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00863145: If var_1C >= 0 Then + loc_00863147: var_eax = Err.Raise + loc_00863150: End If + loc_00863159: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086315D: If 00000001h >= 0 Then + loc_0086315F: var_eax = Err.Raise + loc_00863168: End If + loc_00863171: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + var_1C + loc_00863179: GoTo loc_00863183 + loc_0086317B: End If + loc_0086317B: End If + loc_0086317B: var_eax = Err.Raise + loc_00863183: 'Referenced from: 00863179 + loc_00863199: If var_20 Then + loc_0086319F: If var_20 = 2 Then + loc_008631AB: var_1C = var_1C - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008631AF: If var_1C >= 0 Then + loc_008631B1: var_eax = Err.Raise + loc_008631BA: End If + loc_008631C4: var_18 = var_18 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008631C8: If var_18 >= 0 Then + loc_008631CA: var_eax = Err.Raise + loc_008631D3: End If + loc_008631D9: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + var_1C + loc_008631E4: GoTo loc_008631EF + loc_008631E6: End If + loc_008631E6: End If + loc_008631E6: var_eax = Err.Raise + loc_008631EF: 'Referenced from: 008631E4 + loc_008631F5: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_008631FA: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_008631FE: var_eax = Proc_863EB0(edi.GetTypeInfoCount, edi.GetTypeInfoCount) + loc_0086321D: If var_886020 Then + loc_00863223: If 00886020h = 2 Then + loc_0086322C: var_1C = var_1C - var_14 + loc_00863239: var_1C = var_1C - ecx+0000001Ch + loc_0086323E: If var_1C >= 0 Then + loc_00863240: var_eax = Err.Raise + loc_0086324C: End If + loc_00863255: var_18 = var_18 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00863259: If var_18 >= 0 Then + loc_0086325B: var_eax = Err.Raise + loc_00863267: End If + loc_00863270: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + var_1C + loc_00863278: GoTo loc_00863286 + loc_0086327A: End If + loc_0086327A: End If + loc_0086327A: var_eax = Err.Raise + loc_00863286: 'Referenced from: 00863278 + loc_00863295: var_eax = Proc_85FDC0(var_1C, var_18) + loc_0086329F: 00000001h = 00000001h + var_18 + loc_008632A4: var_18 = 00000001h+var_18 + loc_008632A9: GoTo loc_00863102 + loc_008632AE: End If + loc_008632B6: 00000001h = 00000001h + var_1C + loc_008632BB: var_1C = 00000001h+var_1C + loc_008632C0: GoTo loc_00862FD5 + loc_008632C5: End If + loc_008632C5: var_eax = Proc_864EF0 + loc_008632CA: End If + loc_008632CA: End If + loc_008632D0: GoTo loc_008632E5 + loc_008632E4: Exit Sub + loc_008632E5: 'Referenced from: 008632D0 + loc_008632E5: Exit Sub + loc_008632F6: Exit Sub + loc_008632F7: End If + loc_008632F7: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_17_864180 + Dim var_24 As Me + Dim var_18 As Me + Dim global_401728 As Me + loc_008641EA: ReDim var_18(0 To global_008860E4) + loc_008641FA: var_98 = global_00886056 + loc_00864210: If 00000001h <= global_00886056 Then + loc_00864221: var_A0 = global_00886058 + loc_00864231: If 00000001h <= global_00886058 Then + loc_0086423F: If 00886020h Then + loc_00864245: If 00886020h = 2 Then + loc_00864250: 00000001h = 00000001h - edi.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00864254: If 00000001h >= 0 Then + loc_00864256: var_eax = Err.Raise + loc_00864262: End If + loc_0086426B: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086426F: If 00000001h >= 0 Then + loc_00864271: var_eax = Err.Raise + loc_0086427D: End If + loc_00864283: edi.%x1 = Invoke 'Ignore this = edi.%x1 = Invoke 'Ignore this + 00000001h + loc_0086428B: GoTo loc_00864299 + loc_0086428D: End If + loc_0086428D: End If + loc_0086428D: var_eax = Err.Raise + loc_00864299: 'Referenced from: 0086428B + loc_008642A5: If var_18 Then + loc_008642AB: If var_18 = 1 Then + loc_008642B6: edx+eax = edx+eax - var_18(6) + loc_008642BA: If edx+eax >= 0 Then + loc_008642BC: var_eax = Err.Raise + loc_008642C5: End If + loc_008642C8: GoTo loc_008642D5 + loc_008642CA: End If + loc_008642CA: End If + loc_008642CA: var_eax = Err.Raise + loc_008642D5: 'Referenced from: 008642C8 + loc_008642D7: If var_18 Then + loc_008642DD: If var_18 = 1 Then + loc_008642E8: edx+eax = edx+eax - var_18(6) + loc_008642EC: If edx+eax >= 0 Then + loc_008642EE: var_eax = Err.Raise + loc_008642F7: End If + loc_008642FA: GoTo loc_00864305 + loc_008642FC: End If + loc_008642FC: End If + loc_008642FC: var_eax = Err.Raise + loc_00864305: 'Referenced from: 008642FA + loc_0086430C: ecx+edi = ecx+edi + 0001h + loc_0086431F: 00000001h = 00000001h + var_1C + loc_00864329: var_1C = 00000001h+var_1C + loc_00864333: GoTo loc_0086422A + loc_00864338: End If + loc_0086433D: 00000001h = 00000001h + var_20 + loc_00864348: GoTo loc_00864206 + loc_0086434D: End If + loc_0086434D: var_eax = Proc_864980(, , ) + loc_00864365: var_A8 = global_008860E4 + loc_00864375: If 00000001h <= global_008860E4 Then + loc_0086437D: If var_18 Then + loc_00864383: If var_18 = 1 Then + loc_0086438E: 00000001h = 00000001h - var_18(6) + loc_00864392: If 00000001h >= 0 Then + loc_00864394: var_eax = Err.Raise + loc_0086439D: End If + loc_008643A0: GoTo loc_008643AB + loc_008643A2: End If + loc_008643A2: End If + loc_008643A2: var_eax = Err.Raise + loc_008643AB: 'Referenced from: 008643A0 + loc_008643B3: var_eax = Unknown_3CE + loc_008643D8: If var_24 Then + loc_008643DE: If var_24 = 1 Then + loc_008643E9: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008643ED: If 00000001h >= 0 Then + loc_008643EF: var_eax = Err.Raise + loc_008643F5: End If + loc_008643FC: var_BC = ebx*4 + loc_00864402: GoTo loc_00864410 + loc_00864404: End If + loc_00864404: End If + loc_00864404: var_eax = Err.Raise + loc_0086440A: var_BC = Err.Raise + loc_00864410: 'Referenced from: 00864402 + loc_0086441D: If global_886000 = 0 Then + loc_00864425: GoTo loc_00864438 + loc_00864427: End If + loc_00864438: 'Referenced from: 00864425 + loc_00864476: If global_886000 = 0 Then + loc_0086447E: GoTo loc_00864491 + loc_00864480: End If + loc_00864491: 'Referenced from: 0086447E + loc_008644CE: 0088608Ch = 0088608Ch + 0004h + loc_008644D8: 0088608Ch+0004h = 0088608Ch+0004h + 00886086h + loc_008644E1: 0088608Ch+0004h+00886086h = 0088608Ch+0004h+00886086h - 000Ah + loc_008644EB: 00000001h = 00000001h - 0001h + loc_008644F6: 00000001h = 00000001h * 8937608 + loc_0086450A: 0088608Ah = 0088608Ah + 0005h + loc_00864514: 00000001h = 00000001h + 0088608Ah+0005h + loc_0086451D: 00000001h+0088608Ah+0005h = 00000001h+0088608Ah+0005h + 00886086h + loc_00864526: 00000001h+0088608Ah+0005h+00886086h = 00000001h+0088608Ah+0005h+00886086h - 000Ah + loc_00864534: 0088608Ch = 0088608Ch + 0004h + loc_00864541: var_20 = var_20 - 0001h + loc_0086454C: var_20 = var_20 * 8937608 + loc_0086455F: 0088608Ah = 0088608Ah + 0005h + loc_00864569: var_20 = var_20 + 0088608Ah+0005h + loc_00864576: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + var_BC + loc_0086457E: var_eax = Proc_10_15_84B580(edi.GetTypeInfoCount, global_008865E8, var_20+0088608Ah+0005h) + loc_0086459B: 00000001h = 00000001h + var_20 + loc_008645A8: var_20 = 00000001h+var_20 + loc_008645AB: GoTo loc_0086436E + loc_008645B0: End If + loc_008645C0: var_B0 = global_008860E4 + loc_008645D0: If 00000001h <= global_008860E4 Then + loc_008645D8: If var_18 Then + loc_008645DE: If var_18 = 1 Then + loc_008645E9: 00000001h = 00000001h - var_18(6) + loc_008645ED: If 00000001h >= 0 Then + loc_008645EF: var_eax = Err.Raise + loc_008645F8: End If + loc_008645FB: GoTo loc_00864606 + loc_008645FD: End If + loc_008645FD: End If + loc_008645FD: var_eax = Err.Raise + loc_00864606: 'Referenced from: 008645FB + loc_0086460E: var_eax = Unknown_89D88B70(var_24, 00000001h+0088608Ah+0005h+00886086h, 0088608Ch+0004h+00886086h, CInt((Int((global_402980 / global_401728)) * global_401868)), 00000000h, CInt((Int(((global_402980 / global_401728) + global_402818)) * global_401868))) + loc_00864624: If var_24 Then + loc_0086462A: If var_24 = 1 Then + loc_00864635: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00864639: If 00000001h >= 0 Then + loc_0086463B: var_eax = Err.Raise + loc_00864644: End If + loc_00864647: GoTo loc_00864652 + loc_00864649: End If + loc_00864649: End If + loc_00864649: var_eax = Err.Raise + loc_00864652: 'Referenced from: 00864647 + loc_00864658: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0086465B: var_58 = edi.GetTypeInfoCount 'Ignore this+Err.Raise + loc_0086468B: var_30 = Trim$(Str$(edi.GetTypeInfoCount) + loc_008646B2: var_C8 = global_00886086 + loc_008646C5: If global_886000 = 0 Then + loc_008646CD: GoTo loc_008646E0 + loc_008646CF: End If + loc_008646E0: 'Referenced from: 008646CD + loc_0086471C: var_48 = (((var_C8 / global_401728) + global_0088608C) - global_401750) + loc_00864729: 00000001h = 00000001h - 0001h + loc_00864739: 00000001h = 00000001h * 8937608 + loc_00864747: 0088608Ah = 0088608Ah + 0005h + loc_00864751: 00000001h = 00000001h + 0088608Ah+0005h + loc_0086475A: 00000001h+0088608Ah+0005h = 00000001h+0088608Ah+0005h + 00886086h + loc_00864766: 00000001h+0088608Ah+0005h+00886086h = 00000001h+0088608Ah+0005h+00886086h - 000Ah + loc_00864770: 00000001h+0088608Ah+0005h+00886086h = 00000001h+0088608Ah+0005h+00886086h + 00000002h + loc_008647A8: var_eax = Proc_9_6_8437C0(var_30, 2, 5) + loc_008647DA: If global_886018 = 2 Then + loc_008647E8: If global_886660 = 0 Then + loc_008647F9: If global_88611C = 0 Then + loc_008647FD: If var_18 Then + loc_00864803: If var_18 = 1 Then + loc_0086480E: 00000001h = 00000001h - var_18(6) + loc_00864812: If 00000001h >= 0 Then + loc_00864814: var_eax = Err.Raise + loc_0086481D: End If + loc_00864820: GoTo loc_0086482B + loc_00864822: End If + loc_00864822: End If + loc_00864822: var_eax = Err.Raise + loc_0086482B: 'Referenced from: 00864820 + loc_00864833: var_eax = Unknown_89D88B70(var_88, global_008865E8, var_84, global_401728, global_40172C) + loc_00864839: GoTo loc_008648D0 + loc_0086483E: End If + loc_00864840: If var_18 Then + loc_00864846: If var_18 = 1 Then + loc_00864855: 008860E4h = 008860E4h - var_18(6) + loc_00864859: If 008860E4h >= 0 Then + loc_0086485B: var_eax = Err.Raise + loc_00864864: End If + loc_00864867: GoTo loc_00864872 + loc_00864869: End If + loc_00864869: End If + loc_00864869: var_eax = Err.Raise + loc_00864872: 'Referenced from: 00864867 + loc_0086487A: If edx+eax = 0 Then + loc_00864883: If 00000001h < var_8860E4 Then + loc_00864887: GoTo loc_0086488E + loc_00864889: End If + loc_00864889: End If + loc_0086488E: 'Referenced from: 00864887 + loc_00864890: If var_18 Then + loc_00864896: If var_18 = 1 Then + loc_008648A2: var_20 = var_20 - var_18(6) + loc_008648A6: If var_20 >= 0 Then + loc_008648A8: var_eax = Err.Raise + loc_008648B1: End If + loc_008648B4: GoTo loc_008648BF + loc_008648B6: End If + loc_008648B6: End If + loc_008648B6: var_eax = Err.Raise + loc_008648BF: 'Referenced from: 008648B4 + loc_008648C9: If esi+eax <> 1 Then edx = 1 + loc_008648CE: If edx Or 1 = 0 Then + loc_008648D0: 'Referenced from: 00864839 + loc_008648D6: global_886660 = FFFFFFh + loc_008648EF: var_eax = Proc_10_23_84E330(global_0088657C, 0, var_24) + loc_008648F4: End If + loc_008648F4: End If + loc_008648F7: End If + loc_008648FC: 00000001h = 00000001h + var_20 + loc_00864904: var_20 = 00000001h+var_20 + loc_00864907: GoTo loc_008645C9 + loc_0086490C: End If + loc_0086490C: global_88610A = FFFFFFh + loc_0086491B: GoTo loc_0086494F + loc_0086494E: Exit Sub + loc_0086494F: 'Referenced from: 0086491B + loc_0086495B: Exit Sub + loc_0086496C: Exit Sub + loc_0086496D: End If + loc_0086496D: End If + loc_0086496D: End If + loc_0086496D: End If + loc_0086496D: End If + loc_0086496D: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_18_864A90 + Dim var_24 As Global + loc_00864AF4: If global_886010 <> 1 Then + loc_00864AFA: var_eax = Proc_9_12_845740(1, esi, ebx) + loc_00864B05: GoTo loc_00864B09 + loc_00864B09: 'Referenced from: 00864B05 + loc_00864B48: For var_20 = 1 To 10 Step 1 + loc_00864B55: If 00887AE8h Then + loc_00864B7C: var_24 = Global.Forms + loc_00864BA3: var_38 = var_24.count("") + loc_00864BCD: If ( < var_38) Then + loc_00864BDD: var_60 = var_20 + loc_00864C06: var_24 = Global.Forms + loc_00864C2A: var_70 = "backdrop" + loc_00864C65: var_48 = Me. + loc_00864C97: If (var_48 <> "backdrop") Then + loc_00864CCD: var_60 = var_20 + loc_00864CEF: var_24 = Global.Forms + loc_00864D42: Set var_28 = var_38 + loc_00864D4A: var_eax = Global.Unload var_28 + loc_00864D7A: End If + loc_00864D7A: End If + loc_00864D8C: Next var_20 + loc_00864D99: GoTo loc_00864B4E + loc_00864D9E: End If + loc_00864DBF: var_24 = Global.Forms + loc_00864DEC: var_38 = var_24.count("") + loc_00864E1A: If Not ((var_38 <> 1)) <> 0 Then GoTo loc_00864B07 + loc_00864E64: Set var_24 = global_00886638 + loc_00864E6C: var_eax = Global.Unload var_24 + loc_00864E89: End If + loc_00864E8E: GoTo loc_00864EB8 + loc_00864EB7: Exit Sub + loc_00864EB8: 'Referenced from: 00864E8E +End Sub + +Public Sub Proc_12_19_865110 + Dim global_00886894 As Me + Dim var_14 As Me + loc_00865196: var_eax = Unknown_VTable_Call[ecx+0000030Ch] + loc_008651B2: var_18 = frmMain.hWnd + loc_008651DF: frmMain.MouseIcon = var_18 + loc_00865248: var_eax = Proc_10_11_84A820(var_14, var_14, CreateObject(global_00403FCC, global_00886894)) + loc_00865270: eax = 00886018h - 1 + loc_00865271: If 00886018h - 1 Then + loc_00865277: eax = 00886018h - 1 - 1 + loc_00865278: If 00886018h - 1 - 1 <> 0 Then GoTo loc_00865531 + loc_00865288: If var_88613A = 0 Then + loc_00865292: If global_886194 <= 10 Then + loc_008652A4: var_eax = Proc_10_23_84E330(global_0088657A, 0, global_00886894) + loc_008652B0: End If + loc_008652B5: global_886194 = 1 + loc_008652BC: GoTo loc_008652E7 + loc_008652BE: End If + loc_008652C9: 00886194h = 00886194h + 00000001h + loc_008652D6: global_886194 = frmMain.QueryInterface 'Ignore this + loc_008652DC: If 00886194h+00000001h > 9999 Then + loc_008652DE: global_886194 = 270Fh + loc_008652E7: End If + loc_008652EE: 00886178h = 00886178h - 00000000h + loc_008652F1: If var_886178 Then + loc_008652F7: eax = 00886178h - 1 + loc_008652F8: If 00886178h - 1 Then + loc_008652FA: eax = 00886178h - 1 - 1 + loc_008652FB: If 00886178h - 1 - 1 <> 0 Then GoTo loc_00865531 + loc_00865309: If var_88613A = 0 Then + loc_0086530B: 00886184h = 00886184h + 00000001h + loc_00865313: global_886184 = frmMain.QueryInterface 'Ignore this + loc_00865318: End If + loc_0086531E: If 00886184h+00000001h > var_886190 Then + loc_00865320: global_886190 = frmMain.QueryInterface 'Ignore this + loc_00865325: End If + loc_0086532A: If 00886184h+00000001h > 25000 Then + loc_00865330: global_886184 = 1 + loc_0086533C: GoTo loc_00865551 + loc_00865341: End If + loc_00865349: If var_88613A = 0 Then + loc_0086534B: 00886180h = 00886180h + 00000001h + loc_00865353: global_886180 = frmMain.QueryInterface 'Ignore this + loc_00865358: End If + loc_0086535E: If 00886180h+00000001h > var_88618C Then + loc_00865360: global_88618C = frmMain.QueryInterface 'Ignore this + loc_00865365: End If + loc_0086536A: If 00886180h+00000001h > 25000 Then + loc_00865370: global_886180 = 1 + loc_0086537C: GoTo loc_00865551 + loc_00865381: End If + loc_00865389: If var_88613A = 0 Then + loc_0086538B: 0088617Ch = 0088617Ch + 00000001h + loc_00865393: global_88617C = frmMain.QueryInterface 'Ignore this + loc_00865398: End If + loc_0086539E: If 0088617Ch+00000001h > var_886188 Then + loc_008653A0: global_886188 = frmMain.QueryInterface 'Ignore this + loc_008653A5: End If + loc_008653A8: If 0088617Ch+00000001h > 20 Then + loc_008653B5: global_88617C = 1 + loc_008653BB: If global_886010 = 1 Then + loc_008653CE: If global_886000 = 0 Then + loc_008653D6: GoTo loc_008653E9 + loc_008653D8: End If + loc_008653E9: 'Referenced from: 008653D6 + loc_00865400: var_eax = Proc_9_27_848760(CInt((global_401D30 / global_401728)), global_401728, global_40172C) + loc_0086540D: global_886128 = True + loc_00865413: global_88601C = True + loc_0086541A: GoTo loc_00865551 + loc_0086541F: End If + loc_00865424: global_886138 = FFFFFFh + loc_0086548F: var_eax = scoring.Show , var_28 + loc_008654B2: global_886138 = 0 + loc_008654DC: var_44 = frmMain.hDC + loc_0086552C: var_eax = Proc_9_3_843420(global_008865E8, var_44, 0) + loc_00865531: End If + loc_00865531: End If + loc_00865531: End If + loc_00865531: End If + loc_00865537: GoTo loc_00865551 + loc_00865550: Exit Sub + loc_00865551: 'Referenced from: 0086533C + loc_00865551: Exit Sub + loc_00865562: Exit Sub + loc_00865563: End If +End Sub + +Public Sub Proc_12_20_865570 + Dim var_18 As Me + loc_008655B8: ReDim global_008861B0(0 To 8) + loc_008655C1: var_eax = Proc_8669E0(edi, esi, ebx) + loc_008655CD: + loc_008655DB: If 00000001h <= 8 Then + loc_008655DF: If 008861B0h Then + loc_008655E5: If 008861B0h = 1 Then + loc_008655F0: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008655F4: If 00000001h >= 0 Then + loc_008655F6: var_eax = Err.Raise + loc_00865602: End If + loc_00865608: GoTo loc_00865616 + loc_0086560A: End If + loc_0086560A: End If + loc_0086560A: var_eax = Err.Raise + loc_00865616: 'Referenced from: 00865608 + loc_0086561C: 00000001h = 00000001h + 00000001h + loc_00865630: GoTo loc_008655CD + loc_00865632: End If + loc_00865634: If ecx Then + loc_0086563A: If ecx = 1 Then + loc_0086564D: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865651: If 00000002h >= 0 Then + loc_00865653: var_eax = Err.Raise + loc_0086565B: End If + loc_00865661: GoTo loc_00865675 + loc_00865663: End If + loc_00865663: End If + loc_00865663: var_eax = Err.Raise + loc_00865675: 'Referenced from: 00865661 + loc_00865688: If 008861B0h Then + loc_0086568E: If 008861B0h = 1 Then + loc_0086569B: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086569F: If 00000002h >= 0 Then + loc_008656A1: var_eax = Err.Raise + loc_008656A9: End If + loc_008656AF: GoTo loc_008656B9 + loc_008656B1: End If + loc_008656B1: End If + loc_008656B1: var_eax = Err.Raise + loc_008656B9: 'Referenced from: 008656AF + loc_008656CB: If 008861B0h Then + loc_008656D1: If 008861B0h = 1 Then + loc_008656DE: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008656E2: If 00000002h >= 0 Then + loc_008656E4: var_eax = Err.Raise + loc_008656EC: End If + loc_008656F2: GoTo loc_008656FC + loc_008656F4: End If + loc_008656F4: End If + loc_008656F4: var_eax = Err.Raise + loc_008656FC: 'Referenced from: 008656F2 + loc_0086570E: If 008861B0h Then + loc_00865714: If 008861B0h = 1 Then + loc_00865721: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865725: If 00000002h >= 0 Then + loc_00865727: var_eax = Err.Raise + loc_0086572F: End If + loc_00865735: GoTo loc_0086573F + loc_00865737: End If + loc_00865737: End If + loc_00865737: var_eax = Err.Raise + loc_0086573F: 'Referenced from: 00865735 + loc_00865751: If 008861B0h Then + loc_00865757: If 008861B0h = 1 Then + loc_00865764: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865768: If 00000002h >= 0 Then + loc_0086576A: var_eax = Err.Raise + loc_00865772: End If + loc_00865778: GoTo loc_00865782 + loc_0086577A: End If + loc_0086577A: End If + loc_0086577A: var_eax = Err.Raise + loc_00865782: 'Referenced from: 00865778 + loc_00865792: If 008861B0h Then + loc_00865798: If 008861B0h = 1 Then + loc_008657A5: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008657A9: If 00000002h >= 0 Then + loc_008657AB: var_eax = Err.Raise + loc_008657B3: End If + loc_008657B9: GoTo loc_008657C3 + loc_008657BB: End If + loc_008657BB: End If + loc_008657BB: var_eax = Err.Raise + loc_008657C3: 'Referenced from: 008657B9 + loc_008657D5: If 008861B0h Then + loc_008657DB: If 008861B0h = 1 Then + loc_008657E8: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008657EC: If 00000002h >= 0 Then + loc_008657EE: var_eax = Err.Raise + loc_008657F6: End If + loc_008657FC: GoTo loc_00865806 + loc_008657FE: End If + loc_008657FE: End If + loc_008657FE: var_eax = Err.Raise + loc_00865806: 'Referenced from: 008657FC + loc_00865818: If 008861B0h Then + loc_0086581E: If 008861B0h = 1 Then + loc_0086582B: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086582F: If 00000002h >= 0 Then + loc_00865831: var_eax = Err.Raise + loc_00865839: End If + loc_0086583F: GoTo loc_00865849 + loc_00865841: End If + loc_00865841: End If + loc_00865841: var_eax = Err.Raise + loc_00865849: 'Referenced from: 0086583F + loc_00865859: If 008861B0h Then + loc_0086585F: If 008861B0h = 1 Then + loc_0086586C: 00000002h = 00000002h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865870: If 00000002h >= 0 Then + loc_00865872: var_eax = Err.Raise + loc_0086587A: End If + loc_00865880: GoTo loc_0086588C + loc_00865882: End If + loc_00865882: End If + loc_00865882: var_eax = Err.Raise + loc_0086588C: 'Referenced from: 00865880 + loc_0086588E: If var_8861B0 Then + loc_00865894: If 008861B0h = 1 Then + loc_008658A1: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008658A5: If 00000001h >= 0 Then + loc_008658A7: var_eax = Err.Raise + loc_008658AF: End If + loc_008658B5: GoTo loc_008658BF + loc_008658B7: End If + loc_008658B7: End If + loc_008658B7: var_eax = Err.Raise + loc_008658BF: 'Referenced from: 008658B5 + loc_008658C6: edi+ecx = edi+ecx - 0050h + loc_008658D0: edi+ecx = edi+ecx - 0002h + loc_008658E6: If var_8861B0 Then + loc_008658EC: If 008861B0h = 1 Then + loc_008658F9: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008658FD: If 00000001h >= 0 Then + loc_008658FF: var_eax = Err.Raise + loc_00865907: End If + loc_0086590D: GoTo loc_00865917 + loc_0086590F: End If + loc_0086590F: End If + loc_0086590F: var_eax = Err.Raise + loc_00865917: 'Referenced from: 0086590D + loc_00865929: If var_8861B0 Then + loc_0086592F: If 008861B0h = 1 Then + loc_0086593C: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865940: If 00000001h >= 0 Then + loc_00865942: var_eax = Err.Raise + loc_0086594A: End If + loc_00865950: GoTo loc_0086595A + loc_00865952: End If + loc_00865952: End If + loc_00865952: var_eax = Err.Raise + loc_0086595A: 'Referenced from: 00865950 + loc_0086596C: If var_8861B0 Then + loc_00865972: If 008861B0h = 1 Then + loc_0086597F: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865983: If 00000001h >= 0 Then + loc_00865985: var_eax = Err.Raise + loc_0086598D: End If + loc_00865993: GoTo loc_0086599D + loc_00865995: End If + loc_00865995: End If + loc_00865995: var_eax = Err.Raise + loc_0086599D: 'Referenced from: 00865993 + loc_008659AF: If var_8861B0 Then + loc_008659B5: If 008861B0h = 1 Then + loc_008659C2: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008659C6: If 00000001h >= 0 Then + loc_008659C8: var_eax = Err.Raise + loc_008659D0: End If + loc_008659D6: GoTo loc_008659E0 + loc_008659D8: End If + loc_008659D8: End If + loc_008659D8: var_eax = Err.Raise + loc_008659E0: 'Referenced from: 008659D6 + loc_008659F2: If var_8861B0 Then + loc_008659F8: If 008861B0h = 1 Then + loc_00865A05: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865A09: If 00000001h >= 0 Then + loc_00865A0B: var_eax = Err.Raise + loc_00865A13: End If + loc_00865A19: GoTo loc_00865A23 + loc_00865A1B: End If + loc_00865A1B: End If + loc_00865A1B: var_eax = Err.Raise + loc_00865A23: 'Referenced from: 00865A19 + loc_00865A38: If var_8861B0 Then + loc_00865A3D: If 008861B0h = 1 Then + loc_00865A45: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865A49: If 00000001h >= 0 Then + loc_00865A4B: var_eax = Err.Raise + loc_00865A53: End If + loc_00865A59: GoTo loc_00865A63 + loc_00865A5B: End If + loc_00865A5B: End If + loc_00865A5B: var_eax = Err.Raise + loc_00865A63: 'Referenced from: 00865A59 + loc_00865A75: If var_8861B0 Then + loc_00865A7B: If 008861B0h = 1 Then + loc_00865A88: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865A8C: If 00000001h >= 0 Then + loc_00865A8E: var_eax = Err.Raise + loc_00865A96: End If + loc_00865A9C: GoTo loc_00865AA6 + loc_00865A9E: End If + loc_00865A9E: End If + loc_00865A9E: var_eax = Err.Raise + loc_00865AA6: 'Referenced from: 00865A9C + loc_00865AB5: + loc_00865AC3: If 00000003h <= 7 Then + loc_00865ACB: If var_8861B0 Then + loc_00865AD1: If 008861B0h = 1 Then + loc_00865ADC: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865AE0: If 00000003h >= 0 Then + loc_00865AE2: var_eax = Err.Raise + loc_00865AEA: End If + loc_00865AF0: GoTo loc_00865AFA + loc_00865AF2: End If + loc_00865AF2: End If + loc_00865AF2: var_eax = Err.Raise + loc_00865AFA: 'Referenced from: 00865AF0 + loc_00865B0C: If var_8861B0 Then + loc_00865B12: If 008861B0h = 1 Then + loc_00865B1D: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865B21: If 00000003h >= 0 Then + loc_00865B23: var_eax = Err.Raise + loc_00865B2B: End If + loc_00865B31: GoTo loc_00865B3B + loc_00865B33: End If + loc_00865B33: End If + loc_00865B33: var_eax = Err.Raise + loc_00865B3B: 'Referenced from: 00865B31 + loc_00865B4D: If var_8861B0 Then + loc_00865B53: If 008861B0h = 1 Then + loc_00865B5E: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865B62: If 00000003h >= 0 Then + loc_00865B64: var_eax = Err.Raise + loc_00865B6C: End If + loc_00865B72: GoTo loc_00865B7C + loc_00865B74: End If + loc_00865B74: End If + loc_00865B74: var_eax = Err.Raise + loc_00865B7C: 'Referenced from: 00865B72 + loc_00865B8E: If var_8861B0 Then + loc_00865B94: If 008861B0h = 1 Then + loc_00865B9F: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865BA3: If 00000003h >= 0 Then + loc_00865BA5: var_eax = Err.Raise + loc_00865BAD: End If + loc_00865BB3: GoTo loc_00865BBD + loc_00865BB5: End If + loc_00865BB5: End If + loc_00865BB5: var_eax = Err.Raise + loc_00865BBD: 'Referenced from: 00865BB3 + loc_00865BCC: 00000001h = 00000001h + 00000003h + loc_00865BD7: GoTo loc_00865AB5 + loc_00865BDC: End If + loc_00865BDE: If .GetTypeInfoCount 'Ignore this Then + loc_00865BE4: If ecx = 1 Then + loc_00865BF1: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865BF5: If 00000003h >= 0 Then + loc_00865BF7: var_eax = Err.Raise + loc_00865BFF: End If + loc_00865C05: GoTo loc_00865C0F + loc_00865C07: End If + loc_00865C07: End If + loc_00865C07: var_eax = Err.Raise + loc_00865C0F: 'Referenced from: 00865C05 + loc_00865C21: If var_8861B0 Then + loc_00865C27: If 008861B0h = 1 Then + loc_00865C34: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865C38: If 00000003h >= 0 Then + loc_00865C3A: var_eax = Err.Raise + loc_00865C42: End If + loc_00865C48: GoTo loc_00865C52 + loc_00865C4A: End If + loc_00865C4A: End If + loc_00865C4A: var_eax = Err.Raise + loc_00865C52: 'Referenced from: 00865C48 + loc_00865C63: If var_8861B0 Then + loc_00865C69: If 008861B0h = 1 Then + loc_00865C76: 00000004h = 00000004h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865C7A: If 00000004h >= 0 Then + loc_00865C7C: var_eax = Err.Raise + loc_00865C84: End If + loc_00865C8A: GoTo loc_00865C94 + loc_00865C8C: End If + loc_00865C8C: End If + loc_00865C8C: var_eax = Err.Raise + loc_00865C94: 'Referenced from: 00865C8A + loc_00865CA6: If var_8861B0 Then + loc_00865CAC: If 008861B0h = 1 Then + loc_00865CB9: 00000004h = 00000004h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865CBD: If 00000004h >= 0 Then + loc_00865CBF: var_eax = Err.Raise + loc_00865CC7: End If + loc_00865CCD: GoTo loc_00865CD7 + loc_00865CCF: End If + loc_00865CCF: End If + loc_00865CCF: var_eax = Err.Raise + loc_00865CD7: 'Referenced from: 00865CCD + loc_00865CE8: If var_8861B0 Then + loc_00865CEE: If 008861B0h = 1 Then + loc_00865CFB: 00000005h = 00000005h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865CFF: If 00000005h >= 0 Then + loc_00865D01: var_eax = Err.Raise + loc_00865D09: End If + loc_00865D0F: GoTo loc_00865D19 + loc_00865D11: End If + loc_00865D11: End If + loc_00865D11: var_eax = Err.Raise + loc_00865D19: 'Referenced from: 00865D0F + loc_00865D2B: If var_8861B0 Then + loc_00865D31: If 008861B0h = 1 Then + loc_00865D3E: 00000005h = 00000005h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865D42: If 00000005h >= 0 Then + loc_00865D44: var_eax = Err.Raise + loc_00865D4C: End If + loc_00865D52: GoTo loc_00865D5C + loc_00865D54: End If + loc_00865D54: End If + loc_00865D54: var_eax = Err.Raise + loc_00865D5C: 'Referenced from: 00865D52 + loc_00865D6D: If var_8861B0 Then + loc_00865D73: If 008861B0h = 1 Then + loc_00865D80: 00000006h = 00000006h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865D84: If 00000006h >= 0 Then + loc_00865D86: var_eax = Err.Raise + loc_00865D8E: End If + loc_00865D94: GoTo loc_00865D9E + loc_00865D96: End If + loc_00865D96: End If + loc_00865D96: var_eax = Err.Raise + loc_00865D9E: 'Referenced from: 00865D94 + loc_00865DB0: If var_8861B0 Then + loc_00865DB6: If 008861B0h = 1 Then + loc_00865DC3: 00000006h = 00000006h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865DC7: If 00000006h >= 0 Then + loc_00865DC9: var_eax = Err.Raise + loc_00865DD1: End If + loc_00865DD7: GoTo loc_00865DE1 + loc_00865DD9: End If + loc_00865DD9: End If + loc_00865DD9: var_eax = Err.Raise + loc_00865DE1: 'Referenced from: 00865DD7 + loc_00865DF2: If var_8861B0 Then + loc_00865DF8: If 008861B0h = 1 Then + loc_00865E05: 00000007h = 00000007h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865E09: If 00000007h >= 0 Then + loc_00865E0B: var_eax = Err.Raise + loc_00865E13: End If + loc_00865E19: GoTo loc_00865E23 + loc_00865E1B: End If + loc_00865E1B: End If + loc_00865E1B: var_eax = Err.Raise + loc_00865E23: 'Referenced from: 00865E19 + loc_00865E35: If var_8861B0 Then + loc_00865E3B: If 008861B0h = 1 Then + loc_00865E48: 00000007h = 00000007h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865E4C: If 00000007h >= 0 Then + loc_00865E4E: var_eax = Err.Raise + loc_00865E56: End If + loc_00865E5C: GoTo loc_00865E66 + loc_00865E5E: End If + loc_00865E5E: End If + loc_00865E5E: var_eax = Err.Raise + loc_00865E66: 'Referenced from: 00865E5C + loc_00865E77: If var_8861B0 Then + loc_00865E7D: If 008861B0h = 1 Then + loc_00865E8A: 00000008h = 00000008h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865E8E: If 00000008h >= 0 Then + loc_00865E90: var_eax = Err.Raise + loc_00865E98: End If + loc_00865E9E: GoTo loc_00865EA8 + loc_00865EA0: End If + loc_00865EA0: End If + loc_00865EA0: var_eax = Err.Raise + loc_00865EA8: 'Referenced from: 00865E9E + loc_00865EBA: If var_8861B0 Then + loc_00865EC0: If 008861B0h = 1 Then + loc_00865ECD: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865ED1: If 00000003h >= 0 Then + loc_00865ED3: var_eax = Err.Raise + loc_00865EDB: End If + loc_00865EE1: GoTo loc_00865EED + loc_00865EE3: End If + loc_00865EE3: End If + loc_00865EE3: var_eax = Err.Raise + loc_00865EED: 'Referenced from: 00865EE1 + loc_00865EEF: If var_8861B0 Then + loc_00865EF5: If 008861B0h = 1 Then + loc_00865F02: 00000008h = 00000008h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865F06: If 00000008h >= 0 Then + loc_00865F08: var_eax = Err.Raise + loc_00865F10: End If + loc_00865F16: GoTo loc_00865F20 + loc_00865F18: End If + loc_00865F18: End If + loc_00865F18: var_eax = Err.Raise + loc_00865F20: 'Referenced from: 00865F16 + loc_00865F27: edi+ecx = edi+ecx + 0011h + loc_00865F3D: If var_8861B0 Then + loc_00865F43: If 008861B0h = 1 Then + loc_00865F50: 00000008h = 00000008h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865F54: If 00000008h >= 0 Then + loc_00865F56: var_eax = Err.Raise + loc_00865F5E: End If + loc_00865F64: GoTo loc_00865F6E + loc_00865F66: End If + loc_00865F66: End If + loc_00865F66: var_eax = Err.Raise + loc_00865F6E: 'Referenced from: 00865F64 + loc_00865F80: If var_8861B0 Then + loc_00865F86: If 008861B0h = 1 Then + loc_00865F93: 00000005h = 00000005h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865F97: If 00000005h >= 0 Then + loc_00865F99: var_eax = Err.Raise + loc_00865FA1: End If + loc_00865FA7: GoTo loc_00865FB7 + loc_00865FA9: End If + loc_00865FA9: End If + loc_00865FA9: var_eax = Err.Raise + loc_00865FB7: 'Referenced from: 00865FA7 + loc_00865FB9: If var_8861B0 Then + loc_00865FBF: If 008861B0h = 1 Then + loc_00865FCC: 00000003h = 00000003h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00865FD0: If 00000003h >= 0 Then + loc_00865FD2: var_eax = Err.Raise + loc_00865FDE: End If + loc_00865FE4: GoTo loc_00865FF4 + loc_00865FE6: End If + loc_00865FE6: End If + loc_00865FE6: var_eax = Err.Raise + loc_00865FF4: 'Referenced from: 00865FE4 + loc_00865FF6: If var_8861B0 Then + loc_00865FFC: If 008861B0h = 1 Then + loc_00866009: 00000008h = 00000008h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086600D: If 00000008h >= 0 Then + loc_0086600F: var_eax = Err.Raise + loc_0086601B: End If + loc_00866021: GoTo loc_0086602F + loc_00866023: End If + loc_00866023: End If + loc_00866023: var_eax = Err.Raise + loc_0086602F: 'Referenced from: 00866021 + loc_0086603A: edi+ecx = edi+ecx + 0011h + loc_00866044: ebx+ecx = ebx+ecx - edi+ecx+0011h + loc_0086605A: If var_8861B0 Then + loc_00866060: If 008861B0h = 1 Then + loc_0086606D: 00000008h = 00000008h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866071: If 00000008h >= 0 Then + loc_00866073: var_eax = Err.Raise + loc_0086607F: End If + loc_00866085: GoTo loc_00866093 + loc_00866087: End If + loc_00866087: End If + loc_00866087: var_eax = Err.Raise + loc_00866093: 'Referenced from: 00866085 + loc_008660AA: If global_88619A = 0 Then + loc_008660CC: var_eax = Unknown_VTable_Call[edx+00000308h] + loc_00866126: var_eax = Unknown_VTable_Call[ecx+00000314h] + loc_0086613C: var_1C = buttons.BackColor + loc_00866169: buttons.BackColor = var_1C + loc_00866191: GoTo loc_00866277 + loc_00866196: End If + loc_008661B2: var_eax = Unknown_VTable_Call[ecx+00000308h] + loc_0086620C: var_eax = Unknown_VTable_Call[edx+00000318h] + loc_00866222: var_1C = buttons.BackColor + loc_0086624F: buttons.BackColor = var_28 + loc_00866277: 'Referenced from: 00866191 + loc_00866282: var_eax = Proc_867580(var_28, var_1C, var_18) + loc_0086628C: GoTo loc_008662AE + loc_008662AD: Exit Sub + loc_008662AE: 'Referenced from: 0086628C + loc_008662AE: Exit Sub + loc_008662BF: Exit Sub +End Sub + +Public Sub Proc_12_21_8662D0 + Dim var_18 As Me + Dim var_14 As Me + loc_00866324: + loc_0086632C: If 00000001h <= 8 Then + loc_00866334: If 008861B0h Then + loc_0086633A: If 008861B0h = 1 Then + loc_00866345: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866349: If 00000001h >= 0 Then + loc_0086634B: var_eax = Err.Raise + loc_00866353: End If + loc_00866359: GoTo loc_00866363 + loc_0086635B: End If + loc_0086635B: End If + loc_0086635B: var_eax = Err.Raise + loc_00866363: 'Referenced from: 00866359 + loc_0086636B: If edx+eax+00000016h Then + loc_00866373: If var_8861B0 Then + loc_00866379: If 008861B0h = 1 Then + loc_0086638D: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866391: If var_14 >= 0 Then + loc_00866393: var_eax = Err.Raise + loc_0086639B: End If + loc_008663A1: GoTo loc_008663B4 + loc_008663A3: End If + loc_008663A3: End If + loc_008663A9: var_eax = Err.Raise + loc_008663B4: 'Referenced from: 008663A1 + loc_008663BD: If edx+eax+0000000Ah Then + loc_008663C5: If var_8861B0 Then + loc_008663CB: If 008861B0h = 1 Then + loc_008663D6: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008663DA: If var_14 >= 0 Then + loc_008663DC: var_eax = Err.Raise + loc_008663E4: End If + loc_008663EA: GoTo loc_008663F4 + loc_008663EC: End If + loc_008663EC: End If + loc_008663EC: var_eax = Err.Raise + loc_008663F4: 'Referenced from: 008663EA + loc_008663FD: If ecx+eax+00000014h Then + loc_00866424: var_eax = Unknown_VTable_Call[edx+00000310h] + loc_00866463: var_28 = buttons.CurrentX + loc_0086649D: If var_18 Then + loc_008664A3: If var_18 = 1 Then + loc_008664AE: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008664B2: If var_14 >= 0 Then + loc_008664B4: var_eax = Err.Raise + loc_008664B6: End If + loc_008664BC: var_60 = var_14(-7) + loc_008664BF: GoTo loc_008664C6 + loc_008664C1: End If + loc_008664C1: End If + loc_008664C1: var_eax = Err.Raise + loc_008664C3: var_60 = Err.Raise + loc_008664C6: 'Referenced from: 008664BF + loc_008664CE: If var_8861B0 Then + loc_008664D4: If 008861B0h = 1 Then + loc_008664DF: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008664E3: If var_14 >= 0 Then + loc_008664E5: var_eax = Err.Raise + loc_008664ED: End If + loc_008664F3: GoTo loc_00866503 + loc_008664F5: End If + loc_008664F5: End If + loc_008664F5: var_eax = Err.Raise + loc_00866503: 'Referenced from: 008664F3 + loc_00866505: If var_8861B0 Then + loc_0086650B: If 008861B0h = 1 Then + loc_00866516: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086651A: If var_14 >= 0 Then + loc_0086651C: var_eax = Err.Raise + loc_00866528: End If + loc_0086652E: GoTo loc_0086653E + loc_00866530: End If + loc_00866530: End If + loc_00866530: var_eax = Err.Raise + loc_0086653E: 'Referenced from: 0086652E + loc_00866540: If var_8861B0 Then + loc_00866546: If 008861B0h = 1 Then + loc_00866552: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866556: If var_14 >= 0 Then + loc_00866558: var_eax = Err.Raise + loc_00866564: End If + loc_0086656A: GoTo loc_00866578 + loc_0086656C: End If + loc_0086656C: End If + loc_0086656C: var_eax = Err.Raise + loc_00866578: 'Referenced from: 0086656A + loc_0086657E: var_2C = var_28 + loc_0086658E: GoTo loc_0086671F + loc_00866593: End If + loc_00866593: End If + loc_008665B4: var_eax = Unknown_VTable_Call[edx+00000308h] + loc_008665F3: var_28 = buttons.CurrentX + loc_0086662D: If var_18 Then + loc_00866633: If var_18 = 1 Then + loc_0086663E: Err.Raise = Err.Raise - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866642: If Err.Raise >= 0 Then + loc_00866644: var_eax = Err.Raise + loc_00866646: End If + loc_0086664C: var_64 = esi+esi*2 + loc_0086664F: GoTo loc_00866656 + loc_00866651: End If + loc_00866651: End If + loc_00866651: var_eax = Err.Raise + loc_00866653: var_64 = Err.Raise + loc_00866656: 'Referenced from: 0086664F + loc_0086665E: If var_8861B0 Then + loc_00866664: If 008861B0h = 1 Then + loc_0086666F: Err.Raise = Err.Raise - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866673: If Err.Raise >= 0 Then + loc_00866675: var_eax = Err.Raise + loc_0086667D: End If + loc_00866683: GoTo loc_00866693 + loc_00866685: End If + loc_00866685: End If + loc_00866685: var_eax = Err.Raise + loc_00866693: 'Referenced from: 00866683 + loc_00866695: If var_8861B0 Then + loc_0086669B: If 008861B0h = 1 Then + loc_008666A7: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008666AB: If var_14 >= 0 Then + loc_008666AD: var_eax = Err.Raise + loc_008666B9: End If + loc_008666BF: GoTo loc_008666CF + loc_008666C1: End If + loc_008666C1: End If + loc_008666C1: var_eax = Err.Raise + loc_008666CF: 'Referenced from: 008666BF + loc_008666D1: If var_8861B0 Then + loc_008666D7: If 008861B0h = 1 Then + loc_008666E3: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008666E7: If var_14 >= 0 Then + loc_008666E9: var_eax = Err.Raise + loc_008666F5: End If + loc_008666FB: GoTo loc_00866709 + loc_008666FD: End If + loc_008666FD: End If + loc_008666FD: var_eax = Err.Raise + loc_00866709: 'Referenced from: 008666FB + loc_0086670F: var_2C = var_28 + loc_0086671F: 'Referenced from: 0086658E + loc_00866742: var_eax = Proc_9_2_843330(var_2C, global_008865E8, ecx+eax) + loc_0086676C: If var_8861B0 Then + loc_00866772: If 008861B0h = 1 Then + loc_00866780: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866784: If var_14 >= 0 Then + loc_00866786: var_eax = Err.Raise + loc_00866792: End If + loc_00866798: GoTo loc_008667A9 + loc_0086679A: End If + loc_0086679A: End If + loc_0086679A: var_eax = Err.Raise + loc_008667A9: 'Referenced from: 00866798 + loc_008667B2: If edx+eax+00000008h Then + loc_008667D9: var_eax = Unknown_VTable_Call[ecx+00000334h] + loc_00866818: var_28 = buttons.CurrentX + loc_0086684C: If var_8861B0 Then + loc_00866852: If 008861B0h = 1 Then + loc_0086685D: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00866861: If var_14 >= 0 Then + loc_00866863: var_eax = Err.Raise + loc_0086686F: End If + loc_00866875: GoTo loc_00866885 + loc_00866877: End If + loc_00866877: End If + loc_00866877: var_eax = Err.Raise + loc_00866885: 'Referenced from: 00866875 + loc_00866887: If var_8861B0 Then + loc_0086688D: If 008861B0h = 1 Then + loc_00866899: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086689D: If var_14 >= 0 Then + loc_0086689F: var_eax = Err.Raise + loc_008668AB: End If + loc_008668B1: GoTo loc_008668C1 + loc_008668B3: End If + loc_008668B3: End If + loc_008668B3: var_eax = Err.Raise + loc_008668C1: 'Referenced from: 008668B1 + loc_008668C3: If var_8861B0 Then + loc_008668C9: If 008861B0h = 1 Then + loc_008668D5: var_14 = var_14 - buttons.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008668D9: If var_14 >= 0 Then + loc_008668DB: var_eax = Err.Raise + loc_008668E7: End If + loc_008668ED: GoTo loc_008668FB + loc_008668EF: End If + loc_008668EF: End If + loc_008668EF: var_eax = Err.Raise + loc_008668FB: 'Referenced from: 008668ED + loc_00866911: ecx+ebx+0000000Eh = ecx+ebx+0000000Eh - 0001h + loc_0086691F: ecx+ebx+0000000Eh = ecx+ebx+0000000Eh * 0019h + loc_00866933: ecx+edi+00000002h = ecx+edi+00000002h + 0003h + loc_00866940: ecx+eax = ecx+eax + 0003h + loc_00866952: var_eax = Proc_9_2_843330(var_28, global_008865E8, ecx+eax+0003h) + loc_00866970: End If + loc_00866970: End If + loc_0086697B: 00000001h = 00000001h + var_14 + loc_00866981: var_14 = 00000001h+var_14 + loc_00866986: GoTo loc_00866324 + loc_0086698B: End If + loc_00866992: If global_8861B4 Then + loc_00866994: global_88610A = FFFFFFh + loc_0086699D: End If + loc_008669A2: GoTo loc_008669C2 + loc_008669C1: Exit Sub + loc_008669C2: 'Referenced from: 008669A2 + loc_008669C2: Exit Sub + loc_008669D3: Exit Sub +End Sub + +Public Sub Proc_12_22_866FA0 + Dim var_20 As Me + Dim var_24 As Me + Dim var_18 As Me + loc_00866FF0: If 00000001h <= 8 Then + loc_00866FFD: If Me = 0 Then + loc_00867001: If var_8861B0 Then + loc_00867007: If 008861B0h = 1 Then + loc_00867018: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086701C: If 00000001h >= 0 Then + loc_0086701E: var_eax = Err.Raise + loc_00867026: End If + loc_0086702C: GoTo loc_00867040 + loc_0086702E: End If + loc_0086702E: End If + loc_0086702E: var_eax = Err.Raise + loc_00867040: 'Referenced from: 0086702C + loc_0086704E: If 008860EAh > edx+eax-var_18(6) Then + loc_00867057: GoTo loc_00867066 + loc_00867059: End If + loc_0086705F: End If + loc_00867066: 'Referenced from: 00867057 + loc_00867068: If var_8861B0 Then + loc_0086706E: If 008861B0h = 1 Then + loc_00867079: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0086707D: If 00000001h >= 0 Then + loc_0086707F: var_eax = Err.Raise + loc_00867087: End If + loc_0086708D: GoTo loc_00867099 + loc_0086708F: End If + loc_0086708F: End If + loc_0086708F: var_eax = Err.Raise + loc_00867099: 'Referenced from: 0086708D + loc_0086709B: If var_8861B0 Then + loc_008670A1: If 008861B0h = 1 Then + loc_008670AD: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008670B1: If var_14 >= 0 Then + loc_008670B3: var_eax = Err.Raise + loc_008670BB: End If + loc_008670C1: GoTo loc_008670CB + loc_008670C3: End If + loc_008670C3: End If + loc_008670C3: var_eax = Err.Raise + loc_008670CB: 'Referenced from: 008670C1 + loc_008670D3: edx+eax+00000004h = edx+eax+00000004h + edx+edi + loc_008670EE: If var_5C = 0 Then + loc_008670F2: If var_8861B0 Then + loc_008670F8: If 008861B0h = 1 Then + loc_00867104: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00867108: If var_14 >= 0 Then + loc_0086710A: var_eax = Err.Raise + loc_00867112: End If + loc_00867118: GoTo loc_00867122 + loc_0086711A: End If + loc_0086711A: End If + loc_0086711A: var_eax = Err.Raise + loc_00867122: 'Referenced from: 00867118 + loc_00867131: If 008860ECh > edx+eax-var_18(6) Then + loc_00867135: GoTo loc_0086713C + loc_00867137: End If + loc_00867137: End If + loc_0086713C: 'Referenced from: 00867135 + loc_0086713E: If var_8861B0 Then + loc_00867144: If 008861B0h = 1 Then + loc_00867150: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00867154: If var_14 >= 0 Then + loc_00867156: var_eax = Err.Raise + loc_00867162: End If + loc_00867168: GoTo loc_00867178 + loc_0086716A: End If + loc_0086716A: End If + loc_0086716A: var_eax = Err.Raise + loc_00867178: 'Referenced from: 00867168 + loc_0086717A: If var_8861B0 Then + loc_00867180: If 008861B0h = 1 Then + loc_0086718C: var_14 = var_14 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00867190: If var_14 >= 0 Then + loc_00867192: var_eax = Err.Raise + loc_0086719E: End If + loc_008671A4: GoTo loc_008671B2 + loc_008671A6: End If + loc_008671A6: End If + loc_008671A6: var_eax = Err.Raise + loc_008671B2: 'Referenced from: 008671A4 + loc_008671C0: edx+eax+00000006h = edx+eax+00000006h + edx+edi+00000002h + loc_008671EC: If eax = 0 Then + loc_008671F7: If Me = 0 Then + loc_00867200: End If + loc_00867203: eax = var_14 - 1 + loc_00867207: If var_14 - 1 <= 0 Then + loc_0086720D: GoTo loc_[eax*4+00867558h] + loc_00867214: var_eax = Proc_9_20_8476B0 + loc_00867219: var_eax = Proc_8676E0 + loc_0086721E: GoTo loc_008674DE + loc_00867223: var_eax = Proc_9_20_8476B0 + loc_00867228: var_eax = Proc_867740 + loc_0086722D: GoTo loc_008674DE + loc_00867239: If global_88619A <> 0 Then GoTo loc_008674E4 + loc_00867245: 00886196h = 00886196h - 0001h + loc_00867253: global_886196 = global_00886196 + loc_00867259: If 00886196h = 1 Then + loc_00867266: global_886196 = global_0088604C + loc_0086726D: GoTo loc_008674D9 + loc_0086727C: If global_88619A = 0 Then + loc_00867289: var_eax = Proc_12_23_867A20 + loc_008672AF: var_eax = Unknown_VTable_Call[edx+00000308h] + loc_00867309: var_eax = Unknown_VTable_Call[ecx+00000314h] + loc_0086731F: var_1C = buttons.BackColor + loc_0086734C: buttons.BackColor = var_1C + loc_00867374: + loc_00867388: GoTo loc_008674E4 + loc_0086738D: End If + loc_0086738D: global_88619A = var_18 + loc_00867393: var_eax = Proc_86F0B0(var_28, var_1C, var_18) + loc_008673B9: var_eax = Unknown_VTable_Call[ecx+00000308h] + loc_00867413: var_eax = Unknown_VTable_Call[edx+00000318h] + loc_00867429: var_1C = buttons.BackColor + loc_00867456: buttons.BackColor = var_28 + loc_0086747E: GoTo loc_00867374 + loc_0086748A: If global_88619A = 0 Then + loc_00867492: 00886196h = 00886196h + 0001h + loc_008674A3: global_886196 = buttons.QueryInterface 'Ignore this + loc_008674A9: If 00886196h+0001h > var_88604C Then + loc_008674AB: global_886196 = 2 + loc_008674B4: GoTo loc_008674D9 + loc_008674BE: global_886198 = Not (00886198h) + loc_008674C5: GoTo loc_008674E4 + loc_008674CE: global_88619C = Not (0088619Ch) + loc_008674D4: var_eax = Proc_12_24_867E30(var_20, var_28, var_24) + loc_008674D9: End If + loc_008674D9: End If + loc_008674D9: var_eax = Proc_12_23_867A20(var_28, var_1C, var_18) + loc_008674DE: 'Referenced from: 0086721E + loc_008674E4: End If + loc_008674E4: End If + loc_008674E4: End If + loc_008674E8: If var_24 > 3 Then + loc_008674EA: var_eax = Proc_867580(Unknown_VTable_Call[edx+00000318h], global_00886858, 4) + loc_008674EF: var_eax = Proc_12_12_861390(var_24, var_20, Unknown_VTable_Call[ecx+00000308h]) + loc_008674F4: var_eax = Proc_12_21_8662D0(global_00886858, Unknown_VTable_Call[ecx+00000314h], global_00886858) + loc_008674FF: global_88610A = FFFFFFh + loc_00867508: End If + loc_0086750D: 00000001h = 00000001h + var_24 + loc_00867512: var_14 = 00000001h+var_24 + loc_00867517: var_eax = Unknown_526 + loc_0086751C: End If + loc_00867521: GoTo loc_00867543 + loc_00867542: Exit Sub + loc_00867543: 'Referenced from: 00867521 + loc_00867543: Exit Sub +End Sub + +Public Sub Proc_12_23_867A20 + loc_00867A6E: On Error Resume Next + loc_00867A7B: var_eax = Proc_86F0B0(-1, edi, esi) + loc_00867A90: If var_88619A Then + loc_00867A92: GoTo loc_00867DE8 + loc_00867A97: End If + loc_00867A97: + loc_00867AA7: If var_88619C = 0 Then + loc_00867ABB: If global_886048 Then + loc_00867AC7: If 00886048h = 1 Then + loc_00867AD6: 00886196h = 00886196h - ecx+00000014h + loc_00867AD9: var_5C = global_00886196 + loc_00867AE8: If var_5C < edx+00000002h-eax+00000014h Then + loc_00867AF1: GoTo loc_00867AFC + loc_00867AF3: End If + loc_00867AF3: var_eax = Err.Raise + loc_00867AF9: var_78 = Err.Raise + loc_00867AFC: 'Referenced from: 00867AF1 + loc_00867B02: var_7C = var_5C * 12 + loc_00867B05: GoTo loc_00867B10 + loc_00867B07: End If + loc_00867B07: End If + loc_00867B07: var_eax = Err.Raise + loc_00867B0D: var_7C = Err.Raise + loc_00867B10: 'Referenced from: 00867B05 + loc_00867B24: global_00886140 = eax+ecx + loc_00867B2A: GoTo loc_00867C2D + loc_00867B2F: End If + loc_00867B3D: If global_886048 Then + loc_00867B4D: If 00886048h = 1 Then + loc_00867B5A: If global_886050 Then + loc_00867B65: If 00886050h = 1 Then + loc_00867B74: 00886196h = 00886196h - edx+00000014h + loc_00867B77: var_5C = global_00886196 + loc_00867B85: If var_5C < 0 Then + loc_00867B8E: GoTo loc_00867B99 + loc_00867B90: End If + loc_00867B90: var_eax = Err.Raise + loc_00867B96: var_80 = Err.Raise + loc_00867B99: 'Referenced from: 00867B8E + loc_00867B9E: var_84 = var_5C + loc_00867BA4: GoTo loc_00867BB2 + loc_00867BA6: End If + loc_00867BA6: End If + loc_00867BA6: var_eax = Err.Raise + loc_00867BAC: var_84 = Err.Raise + loc_00867BB2: 'Referenced from: 00867BA4 + loc_00867BCA: ecx+edx = ecx+edx - ecx+00000014h + loc_00867BCD: var_60 = ecx+edx + loc_00867BDC: If var_60 < edx+00000002h-eax+00000014h Then + loc_00867BE8: GoTo loc_00867BF6 + loc_00867BEA: End If + loc_00867BEA: var_eax = Err.Raise + loc_00867BF0: var_88 = Err.Raise + loc_00867BF6: 'Referenced from: 00867BE8 + loc_00867BFC: var_8C = var_60 * 12 + loc_00867C02: GoTo loc_00867C10 + loc_00867C04: End If + loc_00867C04: End If + loc_00867C04: var_eax = Err.Raise + loc_00867C0A: var_8C = Err.Raise + loc_00867C10: 'Referenced from: 00867C02 + loc_00867C27: global_00886140 = eax+ecx + loc_00867C2D: 'Referenced from: 00867B2A + loc_00867C34: var_eax = Close + loc_00867C4E: Open global_00886140 For Random As #1 Len = 4 + loc_00867C65: If LOF(1) = 0 Then + loc_00867C97: var_30 = var_30 + 1 + loc_00867CB1: If 00886196h < var_88604C Then + loc_00867CC1: 00886196h = 00886196h + 0001h + loc_00867CCB: global_886196 = ebx.QueryInterface 'Ignore this + loc_00867CD2: GoTo loc_00867A97 + loc_00867CD7: GoTo loc_00867D2D + loc_00867CD9: End If + loc_00867CE0: global_88619A = FFFFFFh + loc_00867CF0: var_eax = Proc_867580(, , ) + loc_00867CFC: var_eax = Proc_12_12_861390(, ) + loc_00867D08: var_eax = Proc_12_21_8662D0 + loc_00867D14: global_88610A = FFFFFFh + loc_00867D24: global_886196 = 2 + loc_00867D2D: 'Referenced from: 00867CD7 + loc_00867D2D: GoTo loc_00867DE8 + loc_00867D32: End If + loc_00867D39: var_eax = Close + loc_00867D4B: var_eax = Proc_12_51_86F160(global_00886140) + loc_00867D61: var_eax = Proc_86F220(0) + loc_00867DBF: var_eax = Proc_10_11_84A820(var_34, var_34, var_90) + loc_00867DE8: 'Referenced from: 00867A92 + loc_00867DED: GoTo loc_00867E02 + loc_00867E01: Exit Sub + loc_00867E02: 'Referenced from: 00867DED +End Sub + +Public Sub Proc_12_24_867E30 + loc_00867E7A: ReDim global_00886050(0 To global_0088604C) + loc_00867E89: var_50 = global_0088604C + loc_00867E9A: If 00000002h <= global_0088604C Then + loc_00867EA4: If var_886050 Then + loc_00867EAA: If 00886050h = 1 Then + loc_00867EB5: 00000002h = 00000002h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00867EB9: If 00000002h >= 0 Then + loc_00867EBB: var_eax = Err.Raise + loc_00867EC7: End If + loc_00867ECA: GoTo loc_00867ED8 + loc_00867ECC: End If + loc_00867ECC: End If + loc_00867ECC: var_eax = Err.Raise + loc_00867ED8: 'Referenced from: 00867ECA + loc_00867EE2: 00000001h = 00000001h + 00000002h + loc_00867EED: GoTo loc_00867E96 + loc_00867EEF: End If + loc_00867EF5: var_28 = Timer + loc_00867F03: Randomize(Timer) + loc_00867F24: If var_20 <= 50 Then + loc_00867F48: 0088604Ch = 0088604Ch - 0001h + loc_00867F5B: var_64 = global_0088604C + loc_00867FAE: 0088604Ch = 0088604Ch - 0001h + loc_00867FC1: var_6C = global_0088604C + loc_00867FEE: var_18 = CInt((Int((Rnd(var_30) * var_6C)) + global_401758)) + loc_00867FFB: If var_886050 Then + loc_00868001: If 00886050h = 1 Then + loc_0086800C: CInt((Int((Rnd(var_30) * var_64)) + global_401758)) = CInt((Int((Rnd(var_30) * var_64)) + global_401758)) - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00868010: If CInt((Int((Rnd(var_30) * var_64)) + global_401758)) >= 0 Then + loc_00868012: var_eax = Err.Raise + loc_0086801E: End If + loc_00868021: GoTo loc_0086802F + loc_00868023: End If + loc_00868023: End If + loc_00868023: var_eax = Err.Raise + loc_0086802F: 'Referenced from: 00868021 + loc_00868038: var_1C = edx+eax + loc_0086803C: If var_886050 Then + loc_00868042: If 00886050h = 1 Then + loc_0086804D: CInt((Int((Rnd(var_30) * var_6C)) + global_401758)) = CInt((Int((Rnd(var_30) * var_6C)) + global_401758)) - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00868051: If CInt((Int((Rnd(var_30) * var_6C)) + global_401758)) >= 0 Then + loc_00868053: var_eax = Err.Raise + loc_0086805F: End If + loc_00868062: GoTo loc_00868072 + loc_00868064: End If + loc_00868064: End If + loc_00868064: var_eax = Err.Raise + loc_00868072: 'Referenced from: 00868062 + loc_00868074: If var_886050 Then + loc_0086807A: If 00886050h = 1 Then + loc_00868085: CInt((Int((Rnd(var_30) * var_64)) + global_401758)) = CInt((Int((Rnd(var_30) * var_64)) + global_401758)) - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00868089: If CInt((Int((Rnd(var_30) * var_64)) + global_401758)) >= 0 Then + loc_0086808B: var_eax = Err.Raise + loc_00868097: End If + loc_0086809A: GoTo loc_008680A8 + loc_0086809C: End If + loc_0086809C: End If + loc_0086809C: var_eax = Err.Raise + loc_008680A8: 'Referenced from: 0086809A + loc_008680BB: If var_886050 Then + loc_008680C1: If 00886050h = 1 Then + loc_008680CD: var_18 = var_18 - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008680D1: If var_18 >= 0 Then + loc_008680D3: var_eax = Err.Raise + loc_008680DF: End If + loc_008680E2: GoTo loc_008680F0 + loc_008680E4: End If + loc_008680E4: End If + loc_008680E4: var_eax = Err.Raise + loc_008680F0: 'Referenced from: 008680E2 + loc_00868106: 00000001h = 00000001h + var_20 + loc_0086810C: var_20 = 00000001h+var_20 + loc_0086810F: var_eax = Unknown_1EA8F + loc_00868114: End If + loc_0086811A: GoTo loc_00868126 + loc_00868125: Exit Sub + loc_00868126: 'Referenced from: 0086811A + loc_00868126: Exit Sub + loc_00868137: Exit Sub + loc_00868138: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_25_868460 + loc_0086849B: If global_88611E Then + loc_008684F9: If Me Then + loc_008684FD: End If + loc_00868500: eax = Me - 1 + loc_00868504: If Me - 1 <= 0 Then + loc_00868506: GoTo loc_[eax*4+00868590h] + loc_0086850D: var_eax = Proc_12_26_8685C0(0, Me, ebx) + loc_00868512: GoTo loc_0086853C + loc_00868514: var_eax = Proc_12_27_868920(, , ) + loc_00868519: GoTo loc_0086853C + loc_0086851B: var_eax = Proc_12_28_868DE0(, , ) + loc_00868520: GoTo loc_0086853C + loc_00868522: var_eax = Proc_12_29_8692E0(, , ) + loc_00868527: GoTo loc_0086853C + loc_00868529: var_eax = Proc_12_30_869750(, , ) + loc_0086852E: GoTo loc_0086853C + loc_00868530: var_eax = Proc_869B00 + loc_00868535: GoTo loc_0086853C + loc_00868537: var_eax = Proc_12_31_869E30 + loc_0086853C: End If + loc_0086853C: End If + loc_00868562: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_0086856D: GoTo loc_00868579 + loc_00868578: Exit Sub + loc_00868579: 'Referenced from: 0086856D +End Sub + +Public Sub Proc_12_26_8685C0 + loc_00868614: var_eax = Proc_10_13_84B1F0(var_14, &H280, &H1E0) + loc_0086863E: var_eax = Proc_10_14_84B2D0(global_008865E4, var_14, esi) + loc_00868650: If global_886000 = 0 Then + loc_00868658: GoTo loc_0086866B + loc_0086865A: End If + loc_0086866B: 'Referenced from: 00868658 + loc_00868686: GoTo loc_0086868A + loc_0086868A: 'Referenced from: 00868686 + loc_0086868E: var_eax = QueryPerformanceCounter(var_28) + loc_008686A8: var_30 = ((global_8860D4 * global_401788) + var_30) + loc_008686CC: End If + loc_008686D0: 01E0h = 01E0h - CInt((global_402AD0 / global_402AC8)) + loc_008686DC: + loc_008686EC: If CInt((global_402AD0 / global_402AC8)) xor esi <= 0 Then + loc_008686FE: var_50 = var_48 + loc_00868707: var_5C = CInt((global_402AD0 / global_402AC8)) + loc_00868714: If global_886000 = 0 Then + loc_00868719: GoTo loc_00868726 + loc_0086871B: End If + loc_00868726: 'Referenced from: 00868719 + loc_0086873B: If Not Sign(-2147483647 - 0) Then + loc_0086873D: eax = -2147483647 - 1 + loc_00868741: eax = -2 + 1 + loc_00868742: End If + loc_00868742: If -2 + 1 = 0 Then + loc_0086877F: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, 0) + loc_008687BE: GoTo loc_0086883A + loc_008687C0: End If + loc_008687FB: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, CInt((global_402AC0 - var_30))) + loc_0086883A: 'Referenced from: 008687BE + loc_0086883A: var_eax = Proc_10_14_84B2D0(var_14, global_008865E4, 0) + loc_00868845: CInt((global_402AD0 / global_402AC8)) = CInt((global_402AD0 / global_402AC8)) + esi + loc_00868850: GoTo loc_008686DC + loc_00868855: End If + loc_00868859: var_eax = QueryPerformanceCounter(var_1C) + loc_00868874: call __vbaCySub(var_1C, var_18, var_28, var_24, CInt((global_402AD0 / global_402AC8))+esi, CInt(var_30), CInt((global_402AD0 / global_402AC8))+esi, CInt((global_402AC0 - var_30)), CInt((global_402AD0 / global_402AC8)), var_34, var_38, CInt((global_402AD0 / global_402AC8))+esi, 00000000h, CInt((global_402AD0 / global_402AC8))+esi, CInt(var_30), CInt((global_402AD0 / global_402AC8))) + loc_0086887C: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_28, var_24, CInt((global_402AD0 / global_402AC8))+esi, CInt(var_30), CInt((global_402AD0 / global_402AC8))+esi, CInt((global_402AC0 - var_30)), CInt((global_402AD0 / global_402AC8)), var_34, var_38, CInt((global_402AD0 / global_402AC8))+esi, 00000000h, CInt((global_402AD0 / global_402AC8))+esi, CInt(var_30), CInt((global_402AD0 / global_402AC8))), var_1C) + loc_00868892: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086889F: If global_886000 = 0 Then + loc_008688A1: fdivr st0, var_30 + loc_008688A4: GoTo loc_008688B1 + loc_008688A6: End If + loc_008688B1: 'Referenced from: 008688A4 + loc_008688B1: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_008688CB: If Err.Number <> 0 Then GoTo loc_00868688 + loc_008688F8: Exit Sub + loc_00868909: Exit Sub + loc_0086890A: End If + loc_0086890A: End If + loc_0086890A: End If + loc_0086890A: End If + loc_0086890A: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_27_868920 + loc_00868983: var_eax = Proc_10_13_84B1F0(var_1C, var_60, &H1E0) + loc_008689AD: var_eax = Proc_10_14_84B2D0(global_008865E4, var_1C, edi) + loc_00868A06: eax = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868A0A: var_74 = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868A0D: If CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 <= 0 Then + loc_00868A0F: GoTo loc_[eax*4+00868DB0h] + loc_00868A27: GoTo loc_00868A61 + loc_00868A3E: GoTo loc_00868A61 + loc_00868A4A: GoTo loc_00868A5A + loc_00868A5A: 'Referenced from: 00868A4A + loc_00868A61: End If + loc_00868A65: var_eax = QueryPerformanceCounter(var_38) + loc_00868A9A: var_80 = var_20 + loc_00868AA0: var_3C = ((var_14 * 04B0h * global_8860D4) + var_3C) + loc_00868AB0: var_84 = var_80 + loc_00868AC9: var_3C = var_80 + loc_00868ACC: End If + loc_00868ADA: If Err.Number Then + loc_00868ADF: End If + loc_00868AE3: If var_14 = 1 Then + loc_00868AE8: var_88 = var_80 + loc_00868AFB: If var_14 <> 0 Then GoTo loc_00868B1B + loc_00868B02: GoTo loc_00868B1D + loc_00868B04: End If + loc_00868B12: If Err.Number Then + loc_00868B19: GoTo loc_00868B1D + loc_00868B1B: End If + loc_00868B1D: 'Referenced from: 00868B02 + loc_00868B27: If var_74 <= 3 Then + loc_00868B2D: GoTo loc_[eax*4+00868DC0h] + loc_00868B5E: var_eax = Proc_10_15_84B580(global_008865E8, global_008865E4, edi) + loc_00868B95: GoTo loc_00868CDE + loc_00868BC8: var_eax = Proc_10_15_84B580(global_008865E8, global_008865E4, CInt(var_3C)) + loc_00868C08: GoTo loc_00868CE7 + loc_00868C37: var_eax = Proc_10_15_84B580(global_008865E8, global_008865E4, edi) + loc_00868C77: GoTo loc_00868CE7 + loc_00868CA7: var_eax = Proc_10_15_84B580(global_008865E8, global_008865E4, edi) + loc_00868CDE: 'Referenced from: 00868B95 + loc_00868CE7: 'Referenced from: 00868C08 + loc_00868CE7: var_eax = Proc_10_14_84B2D0(var_1C, global_008865E4, edi) + loc_00868CEC: End If + loc_00868CF0: var_eax = QueryPerformanceCounter(var_2C) + loc_00868D0B: call __vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), 00000280h, 000001E0h, edi, edi) + loc_00868D13: call __vbaR8Cy(__vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), 00000280h, 000001E0h, edi, edi), var_2C) + loc_00868D2C: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00868D39: If global_886000 = 0 Then + loc_00868D3B: fdivr st0, var_3C + loc_00868D41: GoTo loc_00868D54 + loc_00868D43: End If + loc_00868D54: 'Referenced from: 00868D41 + loc_00868D54: global_8860D4 = var_3C + loc_00868D63: If Err.Number = 0 Then GoTo loc_00868A61 + loc_00868D86: GoTo loc_00868D92 + loc_00868D91: Exit Sub + loc_00868D92: 'Referenced from: 00868D86 + loc_00868D9B: Exit Sub + loc_00868DAC: Exit Sub + loc_00868DB7: [eax-00000076h] = [eax-00000076h] + var_1C(-509441471) + loc_00868DBA: xchg al, [eax] + loc_00868DBC: esp = stk@FFFC - 1 + loc_00868DC3: [edx+0D00868Bh] = [edx+0D00868Bh] + Err.Number + loc_00868DCF: var_10 = var_10 + var_10 + loc_00868DD1: xchg eax, edi + loc_00868DD2: movsb + loc_00868DD8: adc [eax], eax + loc_00868DDB: nop + loc_00868DDC: nop + loc_00868DDD: nop + loc_00868DDE: nop + loc_00868DDF: nop + loc_00868E02: var_8 = stk@FFFC - 1 + loc_00868E43: var_eax = Proc_10_13_84B1F0(var_1C, var_60, &H1E0) + loc_00868E6D: var_eax = Proc_10_14_84B2D0(global_008865E4, var_1C, edi) + loc_00868EC6: eax = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868ECA: var_74 = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868ECD: If CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 <= 0 Then + loc_00868ECF: GoTo loc_[eax*4+008692B0h] + loc_00868EE7: GoTo loc_00868F21 + loc_00868EFE: GoTo loc_00868F21 + loc_00868F0A: GoTo loc_00868F1A + loc_00868F1A: 'Referenced from: 00868F0A + loc_00868F21: End If + loc_00868F25: var_eax = QueryPerformanceCounter(var_38) + loc_00868F5A: var_80 = var_20 + loc_00868F60: var_3C = ((var_14 * 04B0h * 04B0h * 04B0h * global_8860D4) + var_3C) + loc_00868F70: var_84 = var_80 + loc_00868F89: var_3C = var_80 + loc_00868F8C: End If + loc_00868F9A: If Err.Number Then + loc_00868F9F: End If + loc_00868FA3: If var_14 = 1 Then + loc_00868FA8: var_88 = var_80 + loc_00868FBB: If var_14 <> 0 Then GoTo loc_00868FDB + loc_00868FC2: GoTo loc_00868FDD + loc_00868FC4: End If + loc_00868FD2: If Err.Number Then + loc_00868FD9: GoTo loc_00868FDD + loc_00868FDB: End If + loc_00868FDD: 'Referenced from: 00868FC2 + loc_00868FE7: If var_74 <= 3 Then + loc_00868FED: GoTo loc_[eax*4+008692C0h] + loc_00869030: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_00869067: GoTo loc_008691DE + loc_008690A8: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, CInt(var_3C)) + loc_008690E8: GoTo loc_008691E7 + loc_00869129: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_00869169: GoTo loc_008691E7 + loc_008691A7: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_008691DE: 'Referenced from: 00869067 + loc_008691E7: 'Referenced from: 008690E8 + loc_008691E7: var_eax = Proc_10_14_84B2D0(var_1C, global_008865E4, edi) + loc_008691EC: End If + loc_008691F0: var_eax = QueryPerformanceCounter(var_2C) + loc_0086920B: call __vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), edi, edi, 00000280h, CInt((global_402AE4 - var_3C))) + loc_00869213: call __vbaR8Cy(__vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), edi, edi, 00000280h, CInt((global_402AE4 - var_3C))), var_28) + loc_0086922D: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086923A: If global_886000 = 0 Then + loc_0086923C: fdivr st0, var_3C + loc_00869242: GoTo loc_00869255 + loc_00869244: End If + loc_00869255: 'Referenced from: 00869242 + loc_00869255: global_8860D4 = var_3C + loc_00869264: If Err.Number = 0 Then GoTo loc_00868F21 + loc_00869287: GoTo loc_00869293 + loc_00869292: Exit Sub + loc_00869293: 'Referenced from: 00869287 + loc_0086929C: Exit Sub + loc_008692AD: Exit Sub + loc_008692B0: salc + loc_008692B7: [eax] = [eax] + var_1C + loc_008692BF: eax]+var_1 = eax]+var_1 + 008860D8h + loc_008692C7: var_10 = var_10 + var_10 + loc_008692C9: nop + loc_008692CA: xchg al, [eax] + loc_008692CC: 008860D8h = 008860D8h * ecx-6816FF7Ah + loc_008692D8: adc [eax], eax + loc_008692DB: nop + loc_008692DC: nop + loc_008692DD: nop + loc_008692DE: nop + loc_008692DF: nop + loc_008692FF: var_8 = stk@FFFC - 1 + loc_00869339: var_eax = Proc_10_13_84B1F0(var_14 * 04B0h, &H280, &H1E0) + loc_0086935B: var_eax = Proc_10_14_84B2D0(global_008865E4, var_14 * 04B0h, edi) + loc_00869372: var_eax = Proc_10_13_84B1F0(var_34, var_3C, var_40) + loc_00869394: var_eax = Proc_10_14_84B2D0(global_008865E8, var_34, edi) + loc_008693A6: If global_886000 = 0 Then + loc_008693AE: GoTo loc_008693C1 + loc_008693B0: End If + loc_008693C1: 'Referenced from: 008693AE + loc_008693CD: var_18 = ((global_401D30 / global_401728) * global_401830) + loc_008693E7: If global_886000 = 0 Then + loc_008693EF: GoTo loc_00869402 + loc_008693F1: End If + loc_00869402: 'Referenced from: 008693EF + loc_00869408: var_2C = ((global_402AD0 / global_401728) * global_401830) + loc_00869421: + loc_00869425: var_eax = QueryPerformanceCounter(var_28) + loc_00869439: var_eax = Proc_9_14_845940(edi, edi, 640) + loc_0086944B: If global_886000 = 0 Then + loc_00869453: GoTo loc_00869466 + loc_00869455: End If + loc_00869466: 'Referenced from: 00869453 + loc_00869495: If global_886000 = 0 Then + loc_0086949D: GoTo loc_008694B0 + loc_0086949F: End If + loc_008694B0: 'Referenced from: 0086949D + loc_008694CD: If global_886000 = 0 Then + loc_008694D5: GoTo loc_008694E8 + loc_008694D7: End If + loc_008694E8: 'Referenced from: 008694D5 + loc_00869505: If global_886000 = 0 Then + loc_0086950D: GoTo loc_00869520 + loc_0086950F: End If + loc_00869520: 'Referenced from: 0086950D + loc_0086953A: var_eax = Proc_10_15_84B580(var_34, global_008865E8, CInt(((global_401D30 / global_401728) - var_38))) + loc_008695A7: var_eax = Proc_10_15_84B580(var_14 * 04B0h, global_008865E8, CInt(var_38)) + loc_008695D2: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_008695DB: var_eax = QueryPerformanceCounter(var_20) + loc_008695F2: call __vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi) + loc_008695FA: call __vbaR8Cy(__vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi), var_20) + loc_00869610: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086961D: If global_886000 = 0 Then + loc_0086961F: fdivr st0, var_3C + loc_00869622: GoTo loc_0086962F + loc_00869624: End If + loc_0086962F: 'Referenced from: 00869622 + loc_0086962F: global_8860D4 = var_3C + loc_00869652: global_8860D4 = 3F800000h + loc_0086965C: End If + loc_00869668: var_38 = ((global_8860D4 * var_18) + var_38) + loc_00869681: var_30 = ((global_8860D4 * var_2C) + var_30) + loc_00869691: var_18 = var_18 + loc_008696A1: var_2C = var_2C + loc_008696BB: If global_886000 = 0 Then + loc_008696C3: GoTo loc_008696D6 + loc_008696C5: End If + loc_008696D6: 'Referenced from: 008696C3 + loc_008696DC: var_50 = (global_401D30 / global_401728) + loc_008696F0: If Err.Number = 0 Then GoTo loc_00869421 + loc_0086971B: var_eax = Proc_10_14_84B2D0(var_34, global_008865E8, edi) + loc_00869736: Exit Sub + loc_00869747: Exit Sub + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If +End Sub + +Public Sub Proc_12_28_868DE0 + loc_00868E43: var_eax = Proc_10_13_84B1F0(var_1C, var_60, &H1E0) + loc_00868E6D: var_eax = Proc_10_14_84B2D0(global_008865E4, var_1C, edi) + loc_00868EC6: eax = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868ECA: var_74 = CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 + loc_00868ECD: If CInt((Int((Rnd(var_4C) * global_401770)) + global_401850)) - 1 <= 0 Then + loc_00868ECF: GoTo loc_[eax*4+008692B0h] + loc_00868EE7: GoTo loc_00868F21 + loc_00868EFE: GoTo loc_00868F21 + loc_00868F0A: GoTo loc_00868F1A + loc_00868F1A: 'Referenced from: 00868F0A + loc_00868F21: End If + loc_00868F25: var_eax = QueryPerformanceCounter(var_38) + loc_00868F5A: var_80 = var_20 + loc_00868F60: var_3C = ((var_14 * 04B0h * global_8860D4) + var_3C) + loc_00868F70: var_84 = var_80 + loc_00868F89: var_3C = var_80 + loc_00868F8C: End If + loc_00868F9A: If Err.Number Then + loc_00868F9F: End If + loc_00868FA3: If var_14 = 1 Then + loc_00868FA8: var_88 = var_80 + loc_00868FBB: If var_14 <> 0 Then GoTo loc_00868FDB + loc_00868FC2: GoTo loc_00868FDD + loc_00868FC4: End If + loc_00868FD2: If Err.Number Then + loc_00868FD9: GoTo loc_00868FDD + loc_00868FDB: End If + loc_00868FDD: 'Referenced from: 00868FC2 + loc_00868FE7: If var_74 <= 3 Then + loc_00868FED: GoTo loc_[eax*4+008692C0h] + loc_00869030: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_00869067: GoTo loc_008691DE + loc_008690A8: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, CInt(var_3C)) + loc_008690E8: GoTo loc_008691E7 + loc_00869129: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_00869169: GoTo loc_008691E7 + loc_008691A7: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_008691DE: 'Referenced from: 00869067 + loc_008691E7: 'Referenced from: 008690E8 + loc_008691E7: var_eax = Proc_10_14_84B2D0(var_1C, global_008865E4, edi) + loc_008691EC: End If + loc_008691F0: var_eax = QueryPerformanceCounter(var_2C) + loc_0086920B: call __vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), edi, edi, 00000280h, CInt((global_402AE4 - var_3C))) + loc_00869213: call __vbaR8Cy(__vbaCySub(var_2C, var_28, var_38, var_34, edi, edi, CInt((global_402AE4 - var_3C)), 00000280h, CInt(var_3C), var_60, var_64, CInt(var_3C), edi, edi, 00000280h, CInt((global_402AE4 - var_3C))), var_28) + loc_0086922D: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086923A: If global_886000 = 0 Then + loc_0086923C: fdivr st0, var_3C + loc_00869242: GoTo loc_00869255 + loc_00869244: End If + loc_00869255: 'Referenced from: 00869242 + loc_00869255: global_8860D4 = var_3C + loc_00869264: If Err.Number = 0 Then GoTo loc_00868F21 + loc_00869287: GoTo loc_00869293 + loc_00869292: Exit Sub + loc_00869293: 'Referenced from: 00869287 + loc_0086929C: Exit Sub + loc_008692AD: Exit Sub + loc_008692B0: salc + loc_008692B7: [eax] = [eax] + var_1C + loc_008692BF: eax]+var_1 = eax]+var_1 + 008860D8h + loc_008692C7: var_10 = var_10 + var_10 + loc_008692C9: nop + loc_008692CA: xchg al, [eax] + loc_008692CC: 008860D8h = 008860D8h * ecx-6816FF7Ah + loc_008692D8: adc [eax], eax + loc_008692DB: nop + loc_008692DC: nop + loc_008692DD: nop + loc_008692DE: nop + loc_008692DF: nop + loc_008692FF: var_8 = stk@FFFC + loc_00869339: var_eax = Proc_10_13_84B1F0(var_14 * 04B0h, &H280, &H1E0) + loc_0086935B: var_eax = Proc_10_14_84B2D0(global_008865E4, var_14 * 04B0h, edi) + loc_00869372: var_eax = Proc_10_13_84B1F0(var_34, var_3C, var_40) + loc_00869394: var_eax = Proc_10_14_84B2D0(global_008865E8, var_34, edi) + loc_008693A6: If global_886000 = 0 Then + loc_008693AE: GoTo loc_008693C1 + loc_008693B0: End If + loc_008693C1: 'Referenced from: 008693AE + loc_008693CD: var_18 = ((global_401D30 / global_401728) * global_401830) + loc_008693E7: If global_886000 = 0 Then + loc_008693EF: GoTo loc_00869402 + loc_008693F1: End If + loc_00869402: 'Referenced from: 008693EF + loc_00869408: var_2C = ((global_402AD0 / global_401728) * global_401830) + loc_00869421: + loc_00869425: var_eax = QueryPerformanceCounter(var_28) + loc_00869439: var_eax = Proc_9_14_845940(edi, edi, 640) + loc_0086944B: If global_886000 = 0 Then + loc_00869453: GoTo loc_00869466 + loc_00869455: End If + loc_00869466: 'Referenced from: 00869453 + loc_00869495: If global_886000 = 0 Then + loc_0086949D: GoTo loc_008694B0 + loc_0086949F: End If + loc_008694B0: 'Referenced from: 0086949D + loc_008694CD: If global_886000 = 0 Then + loc_008694D5: GoTo loc_008694E8 + loc_008694D7: End If + loc_008694E8: 'Referenced from: 008694D5 + loc_00869505: If global_886000 = 0 Then + loc_0086950D: GoTo loc_00869520 + loc_0086950F: End If + loc_00869520: 'Referenced from: 0086950D + loc_0086953A: var_eax = Proc_10_15_84B580(var_34, global_008865E8, CInt(((global_401D30 / global_401728) - var_38))) + loc_008695A7: var_eax = Proc_10_15_84B580(var_14 * 04B0h, global_008865E8, CInt(var_38)) + loc_008695D2: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_008695DB: var_eax = QueryPerformanceCounter(var_20) + loc_008695F2: call __vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi) + loc_008695FA: call __vbaR8Cy(__vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi), var_20) + loc_00869610: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086961D: If global_886000 = 0 Then + loc_0086961F: fdivr st0, var_3C + loc_00869622: GoTo loc_0086962F + loc_00869624: End If + loc_0086962F: 'Referenced from: 00869622 + loc_0086962F: global_8860D4 = var_3C + loc_00869652: global_8860D4 = 3F800000h + loc_0086965C: End If + loc_00869668: var_38 = ((global_8860D4 * var_18) + var_38) + loc_00869681: var_30 = ((global_8860D4 * var_2C) + var_30) + loc_00869691: var_18 = var_18 + loc_008696A1: var_2C = var_2C + loc_008696BB: If global_886000 = 0 Then + loc_008696C3: GoTo loc_008696D6 + loc_008696C5: End If + loc_008696D6: 'Referenced from: 008696C3 + loc_008696DC: var_50 = (global_401D30 / global_401728) + loc_008696F0: If Err.Number = 0 Then GoTo loc_00869421 + loc_0086971B: var_eax = Proc_10_14_84B2D0(var_34, global_008865E8, edi) + loc_00869736: Exit Sub + loc_00869747: Exit Sub + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If +End Sub + +Public Sub Proc_12_29_8692E0 + loc_00869339: var_eax = Proc_10_13_84B1F0(var_14, &H280, &H1E0) + loc_0086935B: var_eax = Proc_10_14_84B2D0(global_008865E4, var_14, edi) + loc_00869372: var_eax = Proc_10_13_84B1F0(var_34, var_3C, var_40) + loc_00869394: var_eax = Proc_10_14_84B2D0(global_008865E8, var_34, edi) + loc_008693A6: If global_886000 = 0 Then + loc_008693AE: GoTo loc_008693C1 + loc_008693B0: End If + loc_008693C1: 'Referenced from: 008693AE + loc_008693CD: var_18 = ((global_401D30 / global_401728) * global_401830) + loc_008693E7: If global_886000 = 0 Then + loc_008693EF: GoTo loc_00869402 + loc_008693F1: End If + loc_00869402: 'Referenced from: 008693EF + loc_00869408: var_2C = ((global_402AD0 / global_401728) * global_401830) + loc_00869421: + loc_00869425: var_eax = QueryPerformanceCounter(var_28) + loc_00869439: var_eax = Proc_9_14_845940(edi, edi, 640) + loc_0086944B: If global_886000 = 0 Then + loc_00869453: GoTo loc_00869466 + loc_00869455: End If + loc_00869466: 'Referenced from: 00869453 + loc_00869495: If global_886000 = 0 Then + loc_0086949D: GoTo loc_008694B0 + loc_0086949F: End If + loc_008694B0: 'Referenced from: 0086949D + loc_008694CD: If global_886000 = 0 Then + loc_008694D5: GoTo loc_008694E8 + loc_008694D7: End If + loc_008694E8: 'Referenced from: 008694D5 + loc_00869505: If global_886000 = 0 Then + loc_0086950D: GoTo loc_00869520 + loc_0086950F: End If + loc_00869520: 'Referenced from: 0086950D + loc_0086953A: var_eax = Proc_10_15_84B580(var_34, global_008865E8, CInt(((global_401D30 / global_401728) - var_38))) + loc_008695A7: var_eax = Proc_10_15_84B580(var_14, global_008865E8, CInt(var_38)) + loc_008695D2: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_008695DB: var_eax = QueryPerformanceCounter(var_20) + loc_008695F2: call __vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi) + loc_008695FA: call __vbaR8Cy(__vbaCySub(var_20, var_1C, var_28, var_24, edi, edi, edi, 00000280h, 000001E0h, var_3C, var_40, CInt(var_30), CInt((global_402AC0 - var_38)), CInt((global_402AE4 - var_30)), edi, edi), var_20) + loc_00869610: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086961D: If global_886000 = 0 Then + loc_0086961F: fdivr st0, 008860DCh + loc_00869622: GoTo loc_0086962F + loc_00869624: End If + loc_0086962F: 'Referenced from: 00869622 + loc_0086962F: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00869652: global_8860D4 = 3F800000h + loc_0086965C: End If + loc_00869668: var_38 = ((global_8860D4 * var_18) + var_38) + loc_00869681: var_30 = ((global_8860D4 * var_2C) + var_30) + loc_00869691: var_18 = var_18 + loc_008696A1: var_2C = var_2C + loc_008696BB: If global_886000 = 0 Then + loc_008696C3: GoTo loc_008696D6 + loc_008696C5: End If + loc_008696D6: 'Referenced from: 008696C3 + loc_008696DC: var_50 = (global_401D30 / global_401728) + loc_008696F0: If Err.Number = 0 Then GoTo loc_00869421 + loc_0086971B: var_eax = Proc_10_14_84B2D0(var_34, global_008865E8, edi) + loc_00869736: Exit Sub + loc_00869747: Exit Sub + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If + loc_00869748: End If +End Sub + +Public Sub Proc_12_30_869750 + loc_008697AF: var_eax = Proc_10_13_84B1F0(var_14, &H280, &H1E0) + loc_008697D1: var_eax = Proc_10_14_84B2D0(global_008865E4, var_14, edi) + loc_008697E8: var_eax = Proc_10_13_84B1F0(var_18, &H280, var_48) + loc_008697F9: + loc_008697FD: var_eax = QueryPerformanceCounter(var_2C) + loc_00869829: var_eax = Proc_10_14_84B2D0(global_008865E8, var_18, edi) + loc_00869831: fsubr st0, [00402B30h] + loc_0086986C: var_eax = Proc_10_14_84B2D0(var_14, var_18, edi) + loc_0086988A: fsubr st0, [00402B28h] + loc_008698C7: var_eax = Proc_10_14_84B2D0(var_14, var_18, CInt((var_30 + global_402B28))) + loc_008698D9: fsubr st0, [00402B30h] + loc_00869932: var_eax = Proc_10_14_84B2D0(var_14, var_18, CInt(global_402B28)) + loc_00869950: fsubr st0, [00402B28h] + loc_00869985: var_eax = Proc_10_14_84B2D0(var_14, var_18, edi) + loc_008699AF: var_eax = Proc_10_14_84B2D0(var_18, global_008865E4, edi) + loc_008699B8: var_eax = QueryPerformanceCounter(var_20) + loc_008699CF: call __vbaCySub(var_20, var_1C, var_2C, var_28, edi, edi, edi, 00000280h, 000001E0h, var_44, var_48, CInt(global_402B30), CInt(var_30), CInt(global_402B30), CInt(var_30), CInt(global_402B30)) + loc_008699D7: call __vbaR8Cy(__vbaCySub(var_20, var_1C, var_2C, var_28, edi, edi, edi, 00000280h, 000001E0h, var_44, var_48, CInt(global_402B30), CInt(var_30), CInt(global_402B30), CInt(var_30), CInt(global_402B30)), var_1C) + loc_008699E9: var_54 = __vbaR8Cy(__vbaCySub(var_20, var_1C, var_2C, var_28, edi, edi, edi, 00000280h, 000001E0h, var_44, var_48, CInt(global_402B30), CInt(var_30), CInt(global_402B30), CInt(var_30), CInt(global_402B30)), var_1C) + loc_008699EE: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_008699FB: If global_886000 = 0 Then + loc_008699FD: fdivr st0, var_54 + loc_00869A00: GoTo loc_00869A0D + loc_00869A02: End If + loc_00869A0D: 'Referenced from: 00869A00 + loc_00869A0D: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00869A2C: var_30 = ((global_8860D4 * global_402B20) + var_30) + loc_00869A48: var_24 = ((global_8860D4 * global_402B18) + var_24) + loc_00869A69: If Err.Number = 0 Then GoTo loc_008697F9 + loc_00869A95: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, edi) + loc_00869ADA: Exit Sub + loc_00869AEB: Exit Sub + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If + loc_00869AEC: End If +End Sub + +Public Sub Proc_12_31_869E30 + Dim var_28 As Me + Dim var_3C As Me + Dim var_2C As Me + loc_00869EA4: var_eax = Proc_10_13_84B1F0(var_44, &H280, &H1E0) + loc_00869EC7: var_eax = Proc_10_13_84B1F0(var_5C, &H280, &H1E0) + loc_00869EF5: var_eax = Proc_10_14_84B2D0(global_008865E4, var_44, esi) + loc_00869F4A: var_30 = CInt((Int((Rnd(10) * global_401CB8)) + global_401CA0)) + loc_00869F90: var_20 = CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)) + loc_00869FB4: var_100 = CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)) + loc_00869FBA: ReDim var_24(0 To CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)), 0 To CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0))) + loc_00869FC9: var_108 = var_30 + loc_00869FDC: If global_886000 = 0 Then + loc_00869FE4: GoTo loc_00869FF7 + loc_00869FE6: End If + loc_00869FF7: 'Referenced from: 00869FE4 + loc_0086A00B: var_18 = CInt((global_401D30 / var_108)) + loc_0086A00E: var_110 = var_100 + loc_0086A021: If global_886000 = 0 Then + loc_0086A029: GoTo loc_0086A03C + loc_0086A02B: End If + loc_0086A03C: 'Referenced from: 0086A029 + loc_0086A055: If global_886000 = 0 Then + loc_0086A05D: GoTo loc_0086A070 + loc_0086A05F: End If + loc_0086A070: 'Referenced from: 0086A05D + loc_0086A070: var_58 = CInt((global_402AD0 / var_110)) + loc_0086A082: var_11C = CInt((global_401D30 / var_108)) + loc_0086A095: If global_886000 = 0 Then + loc_0086A09D: GoTo loc_0086A0B0 + loc_0086A09F: End If + loc_0086A0B0: 'Referenced from: 0086A09D + loc_0086A0CF: If global_886000 = 0 Then + loc_0086A0D7: GoTo loc_0086A0EA + loc_0086A0D9: End If + loc_0086A0EA: 'Referenced from: 0086A0D7 + loc_0086A0F0: var_38 = CInt(((var_11C / global_401728) - global_401728))) + loc_0086A0F9: var_128 = var_58 + loc_0086A10C: If global_886000 = 0 Then + loc_0086A114: GoTo loc_0086A127 + loc_0086A116: End If + loc_0086A127: 'Referenced from: 0086A114 + loc_0086A13C: var_1C = CInt(((var_128 / global_401728) - global_401728))) + loc_0086A14D: If var_28 <= CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)) Then + loc_0086A15E: If var_3C <= 0 Then + loc_0086A169: If var_24 Then + loc_0086A16F: If var_24 = 2 Then + loc_0086A17A: var_28 = var_28 - var_24(8) + loc_0086A17E: If var_28 >= 0 Then + loc_0086A180: var_eax = Err.Raise + loc_0086A189: End If + loc_0086A199: var_3C = var_3C - var_24(6) + loc_0086A19D: If var_3C >= 0 Then + loc_0086A19F: var_eax = Err.Raise + loc_0086A1A4: End If + loc_0086A1A7: var_24(7) = var_24(7) * var_3C + loc_0086A1AA: var_24(7) = var_24(7) + var_28 + loc_0086A1B2: GoTo loc_0086A1C3 + loc_0086A1B4: End If + loc_0086A1B4: End If + loc_0086A1B4: var_eax = Err.Raise + loc_0086A1C3: 'Referenced from: 0086A1B2 + loc_0086A1CC: var_28 = var_28 - 0001h + loc_0086A1D6: var_28 = var_28 * var_18 + loc_0086A1E4: var_12C = var_28 + loc_0086A1F8: If var_24 Then + loc_0086A1FE: If var_24 = 2 Then + loc_0086A206: var_28 = var_28 - ecx+0000001Ch + loc_0086A20B: If var_28 >= var_24(7)*var_3C Then + loc_0086A20D: var_eax = Err.Raise + loc_0086A212: End If + loc_0086A21C: var_3C = var_3C - var_24(6) + loc_0086A220: If var_3C >= 0 Then + loc_0086A222: var_eax = Err.Raise + loc_0086A227: End If + loc_0086A22A: var_24(7) = var_24(7) * var_3C + loc_0086A22D: var_24(7) = var_24(7) + var_28 + loc_0086A235: GoTo loc_0086A23C + loc_0086A237: End If + loc_0086A237: End If + loc_0086A237: var_eax = Err.Raise + loc_0086A23C: 'Referenced from: 0086A235 + loc_0086A243: var_3C = var_3C - 0001h + loc_0086A24D: var_3C = var_3C * var_58 + loc_0086A25B: var_130 = var_3C + loc_0086A270: If var_24 Then + loc_0086A276: If var_24 = 2 Then + loc_0086A282: var_28 = var_28 - var_24(8) + loc_0086A286: If var_28 >= var_24(7)*var_3C Then + loc_0086A288: var_eax = Err.Raise + loc_0086A28D: End If + loc_0086A297: var_3C = var_3C - var_24(6) + loc_0086A29B: If var_3C >= 0 Then + loc_0086A29D: var_eax = Err.Raise + loc_0086A2A2: End If + loc_0086A2A5: var_24(7) = var_24(7) * var_3C + loc_0086A2A8: var_24(7) = var_24(7) + var_28 + loc_0086A2B0: GoTo loc_0086A2B7 + loc_0086A2B2: End If + loc_0086A2B2: End If + loc_0086A2B2: var_eax = Err.Raise + loc_0086A2B7: 'Referenced from: 0086A2B0 + loc_0086A2BE: var_134 = var_38 + loc_0086A2CA: var_138 = var_134 + loc_0086A2FF: If var_24 Then + loc_0086A305: If var_24 = 2 Then + loc_0086A311: var_28 = var_28 - var_24(8) + loc_0086A315: If var_28 >= var_24(7)*var_3C Then + loc_0086A317: var_eax = Err.Raise + loc_0086A31C: End If + loc_0086A326: var_3C = var_3C - var_24(6) + loc_0086A32A: If var_3C >= 0 Then + loc_0086A32C: var_eax = Err.Raise + loc_0086A331: End If + loc_0086A334: var_24(7) = var_24(7) * var_3C + loc_0086A337: var_24(7) = var_24(7) + var_28 + loc_0086A33F: GoTo loc_0086A34C + loc_0086A341: End If + loc_0086A341: End If + loc_0086A341: var_eax = Err.Raise + loc_0086A34C: 'Referenced from: 0086A33F + loc_0086A34E: If var_24 Then + loc_0086A354: If var_24 = 2 Then + loc_0086A360: var_28 = var_28 - var_24(8) + loc_0086A364: If var_28 >= var_24(7)*var_3C Then + loc_0086A366: var_eax = Err.Raise + loc_0086A36F: End If + loc_0086A379: var_3C = var_3C - var_24(6) + loc_0086A37D: If var_3C >= 0 Then + loc_0086A37F: var_eax = Err.Raise + loc_0086A388: End If + loc_0086A38B: var_24(7) = var_24(7) * var_3C + loc_0086A38E: var_24(7) = var_24(7) + var_28 + loc_0086A396: GoTo loc_0086A3A1 + loc_0086A398: End If + loc_0086A398: End If + loc_0086A398: var_eax = Err.Raise + loc_0086A3A1: 'Referenced from: 0086A396 + loc_0086A3B7: var_140 = var_1C + loc_0086A3CD: var_144 = var_134 + loc_0086A3E3: If global_886000 = 0 Then + loc_0086A3E7: GoTo loc_0086A3F2 + loc_0086A3E9: End If + loc_0086A3EC: call _adj_fdiv_r(Err.Raise) + loc_0086A3F2: 'Referenced from: 0086A3E7 + loc_0086A405: var_14 = Atn((global_401D30 / global_401728)) + loc_0086A40E: GoTo loc_0086A4B7 + loc_0086A413: End If + loc_0086A415: If var_24(4) Then + loc_0086A41B: If var_24(4) = 2 Then + loc_0086A427: var_28 = var_28 - ((var_144 - [ecx+eax]) / [ecx+ebx+00000004h])).%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0086A42B: If var_28 >= 0 Then + loc_0086A42D: var_eax = Err.Raise + loc_0086A432: End If + loc_0086A43C: var_3C = var_3C - var_24(6) + loc_0086A440: If var_3C >= 0 Then + loc_0086A442: var_eax = Err.Raise + loc_0086A447: End If + loc_0086A44A: var_24(7) = var_24(7) * var_3C + loc_0086A44D: var_24(7) = var_24(7) + var_28 + loc_0086A455: GoTo loc_0086A45C + loc_0086A457: End If + loc_0086A457: End If + loc_0086A457: var_eax = Err.Raise + loc_0086A45C: 'Referenced from: 0086A455 + loc_0086A463: var_13C = var_1C + loc_0086A46F: var_148 = var_13C + loc_0086A4A2: GoTo loc_0086A4AA + loc_0086A4A4: End If + loc_0086A4AA: 'Referenced from: 0086A4A2 + loc_0086A4AA: var_14 = global_402B58 + loc_0086A4B7: 'Referenced from: 0086A40E + loc_0086A4BC: If var_24 Then + loc_0086A4C2: If var_24 = 2 Then + loc_0086A4CE: var_28 = var_28 - var_24(8) + loc_0086A4D2: If var_28 >= var_24(7)*var_3C Then + loc_0086A4D4: var_eax = Err.Raise + loc_0086A4D9: End If + loc_0086A4E3: var_3C = var_3C - var_24(6) + loc_0086A4E7: If var_3C >= 0 Then + loc_0086A4E9: var_eax = Err.Raise + loc_0086A4EE: End If + loc_0086A4F1: var_24(7) = var_24(7) * var_3C + loc_0086A4F4: var_24(7) = var_24(7) + var_28 + loc_0086A4FC: GoTo loc_0086A503 + loc_0086A4FE: End If + loc_0086A4FE: End If + loc_0086A4FE: var_eax = Err.Raise + loc_0086A503: 'Referenced from: 0086A4FC + loc_0086A50C: var_14C = var_134 + loc_0086A536: If Err.Number Then + loc_0086A541: var_14 = (var_14 + global_401768) + loc_0086A54E: End If + loc_0086A553: If var_24 Then + loc_0086A559: If var_24 = 2 Then + loc_0086A565: var_28 = var_28 - var_24(8) + loc_0086A569: If var_28 >= var_24(7)*var_3C Then + loc_0086A56B: var_eax = Err.Raise + loc_0086A570: End If + loc_0086A57A: var_3C = var_3C - var_24(6) + loc_0086A57E: If var_3C >= 0 Then + loc_0086A580: var_eax = Err.Raise + loc_0086A585: End If + loc_0086A588: var_24(7) = var_24(7) * var_3C + loc_0086A58B: var_24(7) = var_24(7) + var_28 + loc_0086A593: GoTo loc_0086A59C + loc_0086A595: End If + loc_0086A595: End If + loc_0086A595: var_eax = Err.Raise + loc_0086A59C: 'Referenced from: 0086A593 + loc_0086A59E: If var_24 Then + loc_0086A5A4: If var_24 = 2 Then + loc_0086A5B0: var_28 = var_28 - var_24(8) + loc_0086A5B4: If var_28 >= var_24(7)*var_3C Then + loc_0086A5B6: var_eax = Err.Raise + loc_0086A5BF: End If + loc_0086A5C9: var_3C = var_3C - var_24(6) + loc_0086A5CD: If var_3C >= 0 Then + loc_0086A5CF: var_eax = Err.Raise + loc_0086A5D8: End If + loc_0086A5DB: var_24(7) = var_24(7) * var_3C + loc_0086A5DE: var_24(7) = var_24(7) + var_28 + loc_0086A5E6: GoTo loc_0086A5ED + loc_0086A5E8: End If + loc_0086A5E8: End If + loc_0086A5E8: call var_28 + loc_0086A5ED: 'Referenced from: 0086A5E6 + loc_0086A61D: call __vbaPowerR8((var_13C - [ecx+eax+00000004h])) + loc_0086A623: var_158 = global_402B60 + loc_0086A65B: call __vbaPowerR8((var_134 - [eax+edi])) + loc_0086A688: If CInt(Sqr((global_401D30 / global_401728))) = 0 Then + loc_0086A68F: End If + loc_0086A6A1: var_BC = Cos(var_14) + loc_0086A6A9: If var_24 Then + loc_0086A6AF: If var_24 = 2 Then + loc_0086A6BB: var_28 = var_28 - var_24(8) + loc_0086A6BF: If var_28 >= var_24(7)*var_3C Then + loc_0086A6C1: var_eax = Err.Raise + loc_0086A6CA: End If + loc_0086A6D4: var_3C = var_3C - var_24(6) + loc_0086A6D8: If var_3C >= 0 Then + loc_0086A6DA: var_eax = Err.Raise + loc_0086A6E3: End If + loc_0086A6E6: var_24(7) = var_24(7) * var_3C + loc_0086A6EF: var_24(7) = var_24(7) + var_28 + loc_0086A6F7: GoTo loc_0086A706 + loc_0086A6F9: End If + loc_0086A6F9: End If + loc_0086A6FF: var_eax = Err.Raise + loc_0086A706: 'Referenced from: 0086A6F7 + loc_0086A718: var_168 = var_160 + loc_0086A72B: If global_886000 = 0 Then + loc_0086A733: GoTo loc_0086A746 + loc_0086A735: End If + loc_0086A746: 'Referenced from: 0086A733 + loc_0086A746: fchs + loc_0086A74E: var_16C = ((global_402B50 / var_168) * var_BC) + loc_0086A777: var_BC = Sin(var_14) + loc_0086A798: var_B0 = Rnd(var_74) + loc_0086A7A0: If var_24 Then + loc_0086A7A6: If var_24 = 2 Then + loc_0086A7B2: var_28 = var_28 - var_24(8) + loc_0086A7B6: If var_28 >= var_24(7)*var_3C Then + loc_0086A7B8: var_eax = Err.Raise + loc_0086A7BD: End If + loc_0086A7C9: var_3C = var_3C - var_24(6) + loc_0086A7CD: If var_3C >= 0 Then + loc_0086A7CF: var_eax = Err.Raise + loc_0086A7D8: End If + loc_0086A7DB: var_24(7) = var_24(7) * var_3C + loc_0086A7DE: var_24(7) = var_24(7) + var_28 + loc_0086A7E6: GoTo loc_0086A7F2 + loc_0086A7E8: End If + loc_0086A7E8: End If + loc_0086A7E8: var_eax = Err.Raise + loc_0086A7F2: 'Referenced from: 0086A7E6 + loc_0086A7FB: var_174 = var_160 + loc_0086A80E: If global_886000 = 0 Then + loc_0086A816: GoTo loc_0086A829 + loc_0086A818: End If + loc_0086A829: 'Referenced from: 0086A816 + loc_0086A829: fchs + loc_0086A845: var_178 = (((var_B0 * global_402668) + global_402910) * var_BC)) + loc_0086A86D: If var_24 Then + loc_0086A873: If var_24 = 2 Then + loc_0086A87F: var_28 = var_28 - var_24(8) + loc_0086A883: If var_28 >= var_24(7)*var_3C Then + loc_0086A885: var_eax = Err.Raise + loc_0086A88E: End If + loc_0086A897: var_3C = var_3C - var_24(6) + loc_0086A89B: If var_3C >= 0 Then + loc_0086A89D: var_eax = Err.Raise + loc_0086A8A6: End If + loc_0086A8A9: var_24(7) = var_24(7) * var_3C + loc_0086A8AC: var_24(7) = var_24(7) + var_28 + loc_0086A8B4: GoTo loc_0086A8BF + loc_0086A8B6: End If + loc_0086A8B6: End If + loc_0086A8B6: var_eax = Err.Raise + loc_0086A8BF: 'Referenced from: 0086A8B4 + loc_0086A8CE: 00000001h = 00000001h + var_3C + loc_0086A8DA: var_3C = 00000001h+var_3C + loc_0086A8E0: GoTo loc_0086A15A + loc_0086A8E5: End If + loc_0086A8EA: 00000001h = 00000001h + var_28 + loc_0086A8F5: var_28 = 00000001h+var_28 + loc_0086A8F8: GoTo loc_0086A149 + loc_0086A8FD: End If + loc_0086A90C: + loc_0086A910: var_eax = QueryPerformanceCounter(var_64) + loc_0086A94C: var_eax = Proc_10_14_84B2D0(global_008865E8, var_5C, edi) + loc_0086A960: If 00000001h <= CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)) Then + loc_0086A971: If 00000001h <= CInt((Int((Rnd(var_74) * global_401CB8)) + global_401CA0)) Then + loc_0086A979: If var_24 Then + loc_0086A97F: If var_24 = 2 Then + loc_0086A98A: 00000001h = 00000001h - var_24(8) + loc_0086A98E: If 00000001h >= var_24(7)*var_3C Then + loc_0086A990: var_eax = Err.Raise + loc_0086A999: End If + loc_0086A9A2: 00000001h = 00000001h - var_24(6) + loc_0086A9A6: If 00000001h >= 0 Then + loc_0086A9A8: var_eax = Err.Raise + loc_0086A9B1: End If + loc_0086A9B4: var_24(7) = var_24(7) * 1 + loc_0086A9BF: GoTo loc_0086A9CA + loc_0086A9C1: End If + loc_0086A9C1: End If + loc_0086A9C1: var_eax = Err.Raise + loc_0086A9CA: 'Referenced from: 0086A9BF + loc_0086A9D3: If edx+eax+00000010h = var_FFFFFF Then + loc_0086A9E2: var_2C = var_18 + loc_0086A9E5: var_28 = var_28 - 0001h + loc_0086A9EF: var_28 = var_28 * var_18 + loc_0086A9F9: var_28 = var_28 + var_18 + loc_0086AA07: If var_28+var_18 > 640 Then + loc_0086AA0C: var_28 = var_28 - 0001h + loc_0086AA16: var_28 = var_28 * var_18 + loc_0086AA24: 0280h = 0280h - var_28 + loc_0086AA30: End If + loc_0086AA39: var_3C = var_3C - 0001h + loc_0086AA43: var_3C = var_3C * var_58 + loc_0086AA4D: var_3C = var_3C + var_58 + loc_0086AA5A: If var_3C+var_58 > 480 Then + loc_0086AA5F: var_3C = var_3C - 0001h + loc_0086AA69: var_3C = var_3C * var_58 + loc_0086AA77: 01E0h = 01E0h - var_3C + loc_0086AA80: End If + loc_0086AA90: If var_24 Then + loc_0086AA96: If var_24 = 2 Then + loc_0086AA9E: var_28 = var_28 - ecx+0000001Ch + loc_0086AAA3: If var_28 >= var_24(7)*1 Then + loc_0086AAA5: var_eax = Err.Raise + loc_0086AAAE: End If + loc_0086AAB7: var_3C = var_3C - var_24(6) + loc_0086AABB: If var_3C >= 0 Then + loc_0086AABD: var_eax = Err.Raise + loc_0086AAC6: End If + loc_0086AAC9: var_24(7) = var_24(7) * var_3C + loc_0086AACC: var_24(7) = var_24(7) + var_28 + loc_0086AAD4: GoTo loc_0086AAE1 + loc_0086AAD6: End If + loc_0086AAD6: End If + loc_0086AAD6: var_eax = Err.Raise + loc_0086AAE1: 'Referenced from: 0086AAD4 + loc_0086AAE3: If var_24 Then + loc_0086AAE9: If var_24 = 2 Then + loc_0086AAF5: var_28 = var_28 - var_24(8) + loc_0086AAF9: var_C4 = var_28 + loc_0086AAFF: If var_28 >= var_24(7)*var_3C Then + loc_0086AB01: var_eax = Err.Raise + loc_0086AB10: End If + loc_0086AB17: var_3C = var_3C - var_24(6) + loc_0086AB1E: If var_3C >= 0 Then + loc_0086AB20: var_eax = Err.Raise + loc_0086AB2F: End If + loc_0086AB32: var_24(7) = var_24(7) * var_3C + loc_0086AB35: var_24(7) = var_24(7) + var_C4 + loc_0086AB3D: GoTo loc_0086AB4A + loc_0086AB3F: End If + loc_0086AB3F: End If + loc_0086AB3F: var_eax = Err.Raise + loc_0086AB4A: 'Referenced from: 0086AB3D + loc_0086AB5F: var_3C = var_3C - 0001h + loc_0086AB6A: var_3C = var_3C * var_58 + loc_0086AB7A: var_28 = var_28 - 0001h + loc_0086AB85: var_28 = var_28 * var_18 + loc_0086ABB7: var_eax = Proc_10_14_84B2D0(var_44, var_5C, CInt(6.37066138261923E-314)) + loc_0086ABC1: If var_24 Then + loc_0086ABC7: If var_24 = 2 Then + loc_0086ABD3: var_28 = var_28 - var_24(8) + loc_0086ABD7: If var_28 >= var_24(7)*var_3C Then + loc_0086ABD9: var_eax = Err.Raise + loc_0086ABE2: End If + loc_0086ABEC: var_3C = var_3C - var_24(6) + loc_0086ABF0: If var_3C >= 0 Then + loc_0086ABF2: var_eax = Err.Raise + loc_0086ABFB: End If + loc_0086ABFE: var_24(7) = var_24(7) * var_3C + loc_0086AC01: var_24(7) = var_24(7) + var_28 + loc_0086AC09: var_17C = ecx+ecx*4 + loc_0086AC0F: GoTo loc_0086AC26 + loc_0086AC11: End If + loc_0086AC11: End If + loc_0086AC11: var_eax = Err.Raise + loc_0086AC17: var_17C = Err.Raise + loc_0086AC26: 'Referenced from: 0086AC0F + loc_0086AC28: If var_24 Then + loc_0086AC2E: If var_24 = 2 Then + loc_0086AC3A: var_28 = var_28 - var_24(8) + loc_0086AC3E: If var_28 >= var_24(7)*var_3C Then + loc_0086AC40: var_eax = Err.Raise + loc_0086AC49: End If + loc_0086AC53: var_3C = var_3C - var_24(6) + loc_0086AC57: If var_3C >= 0 Then + loc_0086AC59: var_eax = Err.Raise + loc_0086AC62: End If + loc_0086AC65: var_24(7) = var_24(7) * var_3C + loc_0086AC68: var_24(7) = var_24(7) + var_28 + loc_0086AC70: GoTo loc_0086AC7D + loc_0086AC72: End If + loc_0086AC72: End If + loc_0086AC72: var_eax = Err.Raise + loc_0086AC7D: 'Referenced from: 0086AC70 + loc_0086AC7F: If var_24 Then + loc_0086AC85: If var_24 = 2 Then + loc_0086AC91: var_28 = var_28 - var_24(8) + loc_0086AC95: If var_28 >= var_24(7)*var_3C Then + loc_0086AC97: var_eax = Err.Raise + loc_0086ACA0: End If + loc_0086ACAA: var_3C = var_3C - var_24(6) + loc_0086ACAE: If var_3C >= 0 Then + loc_0086ACB0: var_eax = Err.Raise + loc_0086ACB9: End If + loc_0086ACBC: var_24(7) = var_24(7) * var_3C + loc_0086ACBF: var_24(7) = var_24(7) + var_28 + loc_0086ACCD: GoTo loc_0086ACDA + loc_0086ACCF: End If + loc_0086ACCF: End If + loc_0086ACCF: var_eax = Err.Raise + loc_0086ACDA: 'Referenced from: 0086ACCD + loc_0086ACFC: If var_24 Then + loc_0086AD02: If var_24 = 2 Then + loc_0086AD0E: var_28 = var_28 - var_24(8) + loc_0086AD12: If var_28 >= var_24(7)*var_3C Then + loc_0086AD14: var_eax = Err.Raise + loc_0086AD1D: End If + loc_0086AD27: var_3C = var_3C - var_24(6) + loc_0086AD2B: If var_3C >= 0 Then + loc_0086AD2D: var_eax = Err.Raise + loc_0086AD36: End If + loc_0086AD39: var_24(7) = var_24(7) * var_3C + loc_0086AD3C: var_24(7) = var_24(7) + var_28 + loc_0086AD44: var_180 = ecx+ecx*4 + loc_0086AD4A: GoTo loc_0086AD5D + loc_0086AD4C: End If + loc_0086AD4C: End If + loc_0086AD4C: var_eax = Err.Raise + loc_0086AD57: var_180 = Err.Raise + loc_0086AD5D: 'Referenced from: 0086AD4A + loc_0086AD5F: If var_24 Then + loc_0086AD65: If var_24 = 2 Then + loc_0086AD71: var_28 = var_28 - var_24(8) + loc_0086AD75: If var_28 >= var_24(7)*var_3C Then + loc_0086AD77: var_eax = Err.Raise + loc_0086AD80: End If + loc_0086AD8A: var_3C = var_3C - var_24(6) + loc_0086AD8E: If var_3C >= 0 Then + loc_0086AD90: var_eax = Err.Raise + loc_0086AD99: End If + loc_0086AD9C: var_24(7) = var_24(7) * var_3C + loc_0086AD9F: var_24(7) = var_24(7) + var_28 + loc_0086ADA7: GoTo loc_0086ADB4 + loc_0086ADA9: End If + loc_0086ADA9: End If + loc_0086ADA9: var_eax = Err.Raise + loc_0086ADB4: 'Referenced from: 0086ADA7 + loc_0086ADB6: If var_24 Then + loc_0086ADBC: If var_24 = 2 Then + loc_0086ADC8: var_28 = var_28 - var_24(8) + loc_0086ADCC: If var_28 >= var_24(7)*var_3C Then + loc_0086ADCE: var_eax = Err.Raise + loc_0086ADD7: End If + loc_0086ADE1: var_3C = var_3C - var_24(6) + loc_0086ADE5: If var_3C >= 0 Then + loc_0086ADE7: var_eax = Err.Raise + loc_0086ADF0: End If + loc_0086ADF3: var_24(7) = var_24(7) * var_3C + loc_0086ADF6: var_24(7) = var_24(7) + var_28 + loc_0086AE04: GoTo loc_0086AE11 + loc_0086AE06: End If + loc_0086AE06: End If + loc_0086AE06: var_eax = Err.Raise + loc_0086AE11: 'Referenced from: 0086AE04 + loc_0086AE35: If var_24 Then + loc_0086AE3B: If var_24 = 2 Then + loc_0086AE47: var_28 = var_28 - var_24(8) + loc_0086AE4B: If var_28 >= var_24(7)*var_3C Then + loc_0086AE4D: var_eax = Err.Raise + loc_0086AE56: End If + loc_0086AE60: var_3C = var_3C - var_24(6) + loc_0086AE64: If var_3C >= 0 Then + loc_0086AE66: var_eax = Err.Raise + loc_0086AE6F: End If + loc_0086AE72: var_24(7) = var_24(7) * var_3C + loc_0086AE75: var_24(7) = var_24(7) + var_28 + loc_0086AE7D: GoTo loc_0086AE8A + loc_0086AE7F: End If + loc_0086AE7F: End If + loc_0086AE7F: var_eax = Err.Raise + loc_0086AE8A: 'Referenced from: 0086AE7D + loc_0086AE8C: If var_24 Then + loc_0086AE92: If var_24 = 2 Then + loc_0086AE9E: var_28 = var_28 - var_24(8) + loc_0086AEA2: If var_28 >= var_24(7)*var_3C Then + loc_0086AEA4: var_eax = Err.Raise + loc_0086AEAD: End If + loc_0086AEB7: var_3C = var_3C - var_24(6) + loc_0086AEBB: If var_3C >= 0 Then + loc_0086AEBD: var_eax = Err.Raise + loc_0086AEC6: End If + loc_0086AEC9: var_24(7) = var_24(7) * var_3C + loc_0086AED2: var_24(7) = var_24(7) + var_28 + loc_0086AEDA: GoTo loc_0086AEE9 + loc_0086AEDC: End If + loc_0086AEDC: End If + loc_0086AEE2: var_eax = Err.Raise + loc_0086AEE9: 'Referenced from: 0086AEDA + loc_0086AF11: If var_24 Then + loc_0086AF17: If var_24 = 2 Then + loc_0086AF23: var_28 = var_28 - var_24(8) + loc_0086AF27: If var_28 >= var_24(7)*var_3C Then + loc_0086AF29: var_eax = Err.Raise + loc_0086AF2E: End If + loc_0086AF38: var_3C = var_3C - var_24(6) + loc_0086AF3C: If var_3C >= 0 Then + loc_0086AF3E: var_eax = Err.Raise + loc_0086AF47: End If + loc_0086AF4A: var_24(7) = var_24(7) * var_3C + loc_0086AF4D: var_24(7) = var_24(7) + var_28 + loc_0086AF55: GoTo loc_0086AF5C + loc_0086AF57: End If + loc_0086AF57: End If + loc_0086AF57: var_eax = Err.Raise + loc_0086AF5C: 'Referenced from: 0086AF55 + loc_0086AF6E: If Err.Number Then + loc_0086AF75: GoTo loc_0086AF79 + loc_0086AF77: End If + loc_0086AF79: 'Referenced from: 0086AF75 + loc_0086AF7B: If var_24 Then + loc_0086AF81: If var_24 = 2 Then + loc_0086AF8D: var_28 = var_28 - var_24(8) + loc_0086AF91: If var_28 >= var_24(7)*var_3C Then + loc_0086AF93: var_eax = Err.Raise + loc_0086AF9C: End If + loc_0086AFA6: var_3C = var_3C - var_24(6) + loc_0086AFAA: If var_3C >= 0 Then + loc_0086AFAC: var_eax = Err.Raise + loc_0086AFB5: End If + loc_0086AFB8: var_24(7) = var_24(7) * var_3C + loc_0086AFBB: var_24(7) = var_24(7) + var_28 + loc_0086AFC3: GoTo loc_0086AFCE + loc_0086AFC5: End If + loc_0086AFC5: End If + loc_0086AFC5: var_eax = Err.Raise + loc_0086AFCE: 'Referenced from: 0086AFC3 + loc_0086AFE5: var_188 = var_58 + loc_0086B001: GoTo loc_0086B005 + loc_0086B003: End If + loc_0086B005: 'Referenced from: 0086B001 + loc_0086B007: If eax = 0 Then + loc_0086B00B: If var_24 Then + loc_0086B011: If var_24 = 2 Then + loc_0086B01D: var_28 = var_28 - var_24(8) + loc_0086B021: If var_28 >= var_24(7)*var_3C Then + loc_0086B023: var_eax = Err.Raise + loc_0086B02C: End If + loc_0086B036: var_3C = var_3C - var_24(6) + loc_0086B03A: If var_3C >= 0 Then + loc_0086B03C: var_eax = Err.Raise + loc_0086B045: End If + loc_0086B048: var_24(7) = var_24(7) * var_3C + loc_0086B04B: var_24(7) = var_24(7) + var_28 + loc_0086B053: GoTo loc_0086B05E + loc_0086B055: End If + loc_0086B055: End If + loc_0086B055: var_eax = Err.Raise + loc_0086B05E: 'Referenced from: 0086B053 + loc_0086B065: var_50 = var_50 + 0001h + loc_0086B079: var_50 = ((var_144 - [ecx+eax]) / [ecx+ebx+00000004h])).QueryInterface 'Ignore this + loc_0086B07C: End If + loc_0086B07E: If var_24 Then + loc_0086B084: If var_24 = 2 Then + loc_0086B090: var_28 = var_28 - var_24(8) + loc_0086B094: If var_28 >= var_24(7)*var_3C Then + loc_0086B096: var_eax = Err.Raise + loc_0086B09F: End If + loc_0086B0A9: var_3C = var_3C - var_24(6) + loc_0086B0AD: If var_3C >= 0 Then + loc_0086B0AF: var_eax = Err.Raise + loc_0086B0B8: End If + loc_0086B0BB: var_24(7) = var_24(7) * var_3C + loc_0086B0BE: var_24(7) = var_24(7) + var_28 + loc_0086B0C6: GoTo loc_0086B0D1 + loc_0086B0C8: End If + loc_0086B0C8: End If + loc_0086B0C8: var_eax = Err.Raise + loc_0086B0D1: 'Referenced from: 0086B0C6 + loc_0086B0E4: var_18 = var_18 * FFFFFEh + loc_0086B0FD: var_190 = var_18 + loc_0086B111: If Err.Number Then + loc_0086B11D: End If + loc_0086B11F: If var_24 Then + loc_0086B125: If var_24 = 2 Then + loc_0086B131: var_28 = var_28 - var_24(8) + loc_0086B135: If var_28 >= var_24(7)*var_3C Then + loc_0086B137: var_eax = Err.Raise + loc_0086B140: End If + loc_0086B14A: var_3C = var_3C - var_24(6) + loc_0086B14E: If var_3C >= 0 Then + loc_0086B150: var_eax = Err.Raise + loc_0086B159: End If + loc_0086B15C: var_24(7) = var_24(7) * var_3C + loc_0086B15F: var_24(7) = var_24(7) + var_28 + loc_0086B167: GoTo loc_0086B172 + loc_0086B169: End If + loc_0086B169: End If + loc_0086B169: var_eax = Err.Raise + loc_0086B172: 'Referenced from: 0086B167 + loc_0086B172: var_18 = var_18 + 0280h + loc_0086B183: var_198 = %x1 = ((var_144 - [ecx+eax]) / [ecx+ebx+00000004h])).OLEDropMode + loc_0086B18F: var_19C = var_198 + loc_0086B1A3: If Err.Number Then + loc_0086B1AA: GoTo loc_0086B1AE + loc_0086B1AC: End If + loc_0086B1AE: 'Referenced from: 0086B1AA + loc_0086B1B4: If var_194 = 0 Then + loc_0086B1B8: If var_24 Then + loc_0086B1BE: If var_24 = 2 Then + loc_0086B1CA: var_28 = var_28 - var_24(8) + loc_0086B1CE: If var_28 >= var_24(7)*var_3C Then + loc_0086B1D0: var_eax = Err.Raise + loc_0086B1D9: End If + loc_0086B1E3: var_3C = var_3C - var_24(6) + loc_0086B1E7: If var_3C >= 0 Then + loc_0086B1E9: var_eax = Err.Raise + loc_0086B1F2: End If + loc_0086B1F5: var_24(7) = var_24(7) * var_3C + loc_0086B1F8: var_24(7) = var_24(7) + var_28 + loc_0086B200: GoTo loc_0086B20B + loc_0086B202: End If + loc_0086B202: End If + loc_0086B202: var_eax = Err.Raise + loc_0086B20B: 'Referenced from: 0086B200 + loc_0086B212: var_50 = var_50 + 0001h + loc_0086B226: var_50 = ((var_144 - [ecx+eax]) / [ecx+ebx+00000004h])).QueryInterface 'Ignore this + loc_0086B229: End If + loc_0086B229: End If + loc_0086B231: 00000001h = 00000001h + var_3C + loc_0086B23B: var_3C = 00000001h+var_3C + loc_0086B246: GoTo loc_0086A96E + loc_0086B24B: End If + loc_0086B250: 00000001h = 00000001h + var_28 + loc_0086B25B: var_28 = 00000001h+var_28 + loc_0086B25E: GoTo loc_0086A95C + loc_0086B263: End If + loc_0086B26F: fsubr st0, var_34 + loc_0086B272: var_34 = (global_8860D4 * global_402B44) + loc_0086B28D: If Err.Number Then + loc_0086B292: End If + loc_0086B2AB: var_B0 = Rnd(10) + loc_0086B2CB: var_B4 = Rnd(10) + loc_0086B2E4: If global_886000 = 0 Then + loc_0086B2EC: GoTo loc_0086B2F9 + loc_0086B2EE: End If + loc_0086B2F4: call _adj_fdiv_m32(global_401758, 01E0h, var_A8, var_AC, edi, edi, edi, 00000280h, 000001E0h, var_A8) + loc_0086B2F9: 'Referenced from: 0086B2EC + loc_0086B346: If global_886000 = 0 Then + loc_0086B34E: GoTo loc_0086B35B + loc_0086B350: End If + loc_0086B356: call _adj_fdiv_m32(global_401758, 00000280h, 000001E0h, var_A8, var_AC) + loc_0086B35B: 'Referenced from: 0086B34E + loc_0086B374: var_eax = Proc_10_14_84B2D0(var_5C, global_008865E4, CInt()) + loc_0086B393: var_eax = QueryPerformanceCounter(var_4C) + loc_0086B3AE: call __vbaCySub(var_4C, var_48, var_64, var_60) + loc_0086B3B6: call __vbaR8Cy(__vbaCySub(var_4C, var_48, var_64, var_60), var_4C) + loc_0086B3C7: var_1A4 = ((var_34 / global_401758) - var_34)) + loc_0086B3CF: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0086B3DC: If global_886000 = 0 Then + loc_0086B3DE: fdivr st0, var_1A4 + loc_0086B3E4: GoTo loc_0086B3F7 + loc_0086B3E6: End If + loc_0086B3F7: 'Referenced from: 0086B3E4 + loc_0086B3F7: global_8860D4 = (var_B0 * var_34) + loc_0086B41A: global_8860D4 = 3F800000h + loc_0086B424: End If + loc_0086B428: var_30 = var_30 * var_20 + loc_0086B436: If var_50 < var_30*var_20 Then GoTo loc_0086A90C + loc_0086B46D: GoTo loc_0086B486 + loc_0086B485: Exit Sub + loc_0086B486: 'Referenced from: 0086B46D + loc_0086B4A2: Exit Sub + loc_0086B4B3: Exit Sub + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: End If + loc_0086B4B4: GoTo loc___vbaFPException +End Sub + +Public Sub Proc_12_32_86B4C0 + loc_0086B506: var_14 = global_00886014 & "Flux Scores.cfg" + loc_0086B511: GoTo loc_0086B51D + loc_0086B51C: Exit Sub + loc_0086B51D: 'Referenced from: 0086B511 +End Sub + +Public Sub Proc_12_33_86B540 + loc_0086B5B8: var_18 = Chr$(CLng((Int((Rnd(10) * global_402B8C)) + global_402B88))) + loc_0086B5CD: GoTo loc_0086B5E8 + loc_0086B5D3: If var_4 Then + loc_0086B5DE: End If + loc_0086B5E7: Exit Sub + loc_0086B5E8: 'Referenced from: 0086B5CD + loc_0086B5E8: Exit Sub + loc_0086B5FC: Exit Sub + loc_0086B5FD: End If + loc_0086B5FD: End If +End Sub + +Public Sub Proc_12_34_86B610 + loc_0086B663: var_24 = global_008860E4 + loc_0086B666: If global_88611C Then + loc_0086B668: 008860E4h = 008860E4h - 0001h + loc_0086B672: var_24 = global_008860E4 + loc_0086B675: End If + loc_0086B688: 00886056h = 00886056h + 0004h + loc_0086B692: var_44 = edi.AddRef 'Ignore this + loc_0086B696: 00886058h = 00886058h + 0003h + loc_0086B764: var_90 = var_24 + loc_0086B778: call __vbaPowerR8(var_90, var_8C, 00000000h, global_40000000, 0, @Str$(%StkVar1)) + loc_0086B7DD: var_20 = Trim$(Str$(edi.AddRef) & global_0040EBD8 & Trim$(Str$(0)) & global_0040EBD8 & Trim$(Str$(__vbaPowerR8(var_90, var_8C, 00000000h, global_40000000, 0, @Str$(%StkVar1)))) & global_0040EBD8 + loc_0086B7E5: GoTo loc_0086B82A + loc_0086B7EB: If var_4 Then + loc_0086B7F6: End If + loc_0086B829: Exit Sub + loc_0086B82A: 'Referenced from: 0086B7E5 + loc_0086B83A: Exit Sub + loc_0086B84E: Exit Sub +End Sub + +Public Sub Proc_12_35_86B900 + loc_0086B939: repz stosd + loc_0086B93E: var_eax = Close + loc_0086B963: Open global_00886014 & "players.cfg" For Random As #1 Len = 58 + loc_0086B97D: call __vbaCopyBytes(00000050h, var_60, global_00886150, var_60, Close(), ebx) + loc_0086B98A: var_eax = Proc_12_36_86BA30(global_00886180) + loc_0086B98F: var_30 = Proc_12_36_86BA30(global_00886180) + loc_0086B998: var_eax = Proc_12_36_86BA30(global_00886184) + loc_0086B9A3: var_2C = Proc_12_36_86BA30(global_00886184) + loc_0086B9A7: var_eax = Proc_12_36_86BA30(global_0088617C) + loc_0086B9B2: var_34 = Proc_12_36_86BA30(global_0088617C) + loc_0086B9B6: var_eax = Proc_12_36_86BA30(global_0088618C) + loc_0086B9BB: var_24 = Proc_12_36_86BA30(global_0088618C) + loc_0086B9C4: var_eax = Proc_12_36_86BA30(global_00886190) + loc_0086B9CF: var_20 = Proc_12_36_86BA30(global_00886190) + loc_0086B9D3: var_eax = Proc_12_36_86BA30(global_00886188) + loc_0086B9DF: var_28 = Proc_12_36_86BA30(global_00886188) + loc_0086B9E2: 008861A4h = 008861A4h + 0001h + loc_0086B9F7: Put #, 00000001h.QueryInterface, var_60 + loc_0086B9FD: var_eax = Close + loc_0086BA04: GoTo loc_0086BA10 + loc_0086BA0F: Exit Sub + loc_0086BA10: 'Referenced from: 0086BA04 + loc_0086BA10: Exit Sub + loc_0086BA21: Exit Sub +End Sub + +Public Sub Proc_12_36_86BA30 + loc_0086BA64: Me = Me + 000003E4h + loc_0086BAA8: var_24 = Str$(Me+000003E4) + loc_0086BAB6: var_18 = Trim$(var_24) + loc_0086BAD6: var_ret_1 = Len(var_18) + loc_0086BAF8: var_48 = var_1C + loc_0086BB17: var_28 = Trim$(Str$(var_1C)) + loc_0086BB25: var_20 = var_20 & var_28 + loc_0086BB45: call Proc_12_42_86CF40(1, 0, var_24 = %S_edx_S) + loc_0086BB4A: var_38 = var_28 + loc_0086BB7F: var_20 = var_20 & Trim$(Str$(var_28)) + loc_0086BBB0: var_20 = var_20 & var_18 + loc_0086BBC1: 00000008h = 00000008h - Len(var_20) + loc_0086BBD2: var_54 = global_00000008 + loc_0086BBD6: var_eax = Proc_12_42_86CF40(var_54, @Str$(%StkVar1), ) + loc_0086BBDE: var_38 = Proc_12_42_86CF40(var_54, @Str$(%StkVar1), ) + loc_0086BC10: var_20 = & Trim$(Str$(Proc_12_42_86CF40(var_54, @Str$(var_20), ))) + loc_0086BC81: var_20 = var_20 & Right$(Trim$(Str$(Me)), 1) + loc_0086BCAB: If Len(var_20) <= 9 Then + loc_0086BCBD: var_14 = CLng(Val(var_20)) + loc_0086BCC0: End If + loc_0086BCC6: GoTo loc_0086BCED + loc_0086BCEC: Exit Sub + loc_0086BCED: 'Referenced from: 0086BCC6 + loc_0086BCFD: Exit Sub +End Sub + +Public Sub Proc_12_37_86BD20 + loc_0086BD96: var_20 = Trim$(Str$(Me)) + loc_0086BDB4: var_2C = Left$(var_20, 1) + loc_0086BDC0: var_24 = CInt(0) + loc_0086BDDC: var_44 = var_24 + loc_0086BE31: var_18 = CLng((Val(var_28 & Mid$(var_20, 3, var_24)) - global_402BD0)) + loc_0086BE34: var_44 = var_18 + loc_0086BE78: var_34 = Right$(Trim$(Str$(var_18)), 1) + loc_0086BE88: var_38 = Right$(var_20, 1) + loc_0086BEBD: If (var_34 = var_38) Then + loc_0086BEC6: End If + loc_0086BECE: var_1C = var_18 + loc_0086BED2: GoTo loc_0086BEF4 + loc_0086BEF3: Exit Sub + loc_0086BEF4: 'Referenced from: 0086BED2 + loc_0086BF04: Exit Sub +End Sub + +Public Sub Proc_12_38_86BF20 + loc_0086BFF7: call __vbaCyAbs(%x1 = edi.ActiveControl, Me(124), esi, Me) + loc_0086BFFF: __vbaCyAbs(%x1 = edi.ActiveControl, Me(124), esi, Me) = CLng("000") + loc_0086C00D: idiv ecx + loc_0086C037: var_34 = Format$(0, "000") + loc_0086C083: call __vbaCyAbs(Me(219), Me(220), 00000001h, 00000001h) + loc_0086C08B: __vbaCyAbs(Me(219), Me(220), 00000001h, 00000001h) = CLng("000") + loc_0086C099: idiv ecx + loc_0086C0BD: var_30 = Format$(0, "000") + loc_0086C104: idiv ecx + loc_0086C12A: var_2C = Format$(0, "0000") + loc_0086C171: idiv ecx + loc_0086C197: var_1C = Format$(0, "0000") + loc_0086C208: For var_4C = 1 To 3 Step 1 + loc_0086C210: If var_E8 Then + loc_0086C216: var_eax = Proc_12_33_86B540(var_28, 1, 1) + loc_0086C22E: var_28 = 1 & Proc_12_33_86B540(var_28, 1, 1) + loc_0086C24B: Next var_4C + loc_0086C251: GoTo loc_0086C20E + loc_0086C253: End If + loc_0086C2A8: For var_4C = 1 To 2 Step 1 + loc_0086C2B0: If var_4C Then + loc_0086C2B6: var_eax = Proc_12_33_86B540(var_20, var_D8, var_E8) + loc_0086C2CE: var_20 = 1 & Proc_12_33_86B540(var_20, var_D8, var_E8) + loc_0086C2EB: Next var_4C + loc_0086C2F1: GoTo loc_0086C2AE + loc_0086C2F3: End If + loc_0086C2F7: var_eax = Proc_12_33_86B540(var_18, var_F8, var_108) + loc_0086C30F: var_18 = & Proc_12_33_86B540(var_18, var_F8, var_108) + loc_0086C331: call __vbaStrFixstr(0000001Eh, Me) + loc_0086C33C: var_50 = __vbaStrFixstr(0000001Eh, Me) + loc_0086C34A: var_54 = Trim$(var_50) + loc_0086C353: call __vbaLsetFixstr(0000001Eh, Me, var_50) + loc_0086C363: var_AC = Len(var_54) + loc_0086C3AE: For var_4C = 1 To Len(var_54) Step 1 + loc_0086C3B4: var_13C = var_118 + loc_0086C3D3: If var_13C Then + loc_0086C3E4: var_BC = var_24 + loc_0086C402: var_ret_1 = CLng(var_4C) + loc_0086C40C: call __vbaStrFixstr(0000001Eh, Me, var_ret_1, var_74) + loc_0086C417: var_50 = __vbaStrFixstr(0000001Eh, Me, var_ret_1, var_74) + loc_0086C425: var_54 = Mid$(var_50, , ) + loc_0086C42E: call __vbaLsetFixstr(0000001Eh, Me, var_50) + loc_0086C43E: var_AC = Asc(var_54) + loc_0086C47D: var_ret_3 = CLng(var_24 + Asc(var_54) * var_4C) + loc_0086C483: var_24 = var_ret_3 + loc_0086C4BE: Next var_4C + loc_0086C4C4: var_13C = Next var_4C + loc_0086C4CA: GoTo loc_0086C3CD + loc_0086C4CF: End If + loc_0086C4F8: call __vbaI4Abs(var_118, var_128) + loc_0086C506: idiv ecx + loc_0086C5AB: var_38 = var_28 & var_34 & var_20 & var_1C & var_18 & var_30 & var_2C & Format$(0, "0000") + loc_0086C5D5: GoTo loc_0086C624 + loc_0086C5DB: If var_4 Then + loc_0086C5E6: End If + loc_0086C623: Exit Sub + loc_0086C624: 'Referenced from: 0086C5D5 +End Sub + +Public Sub Proc_12_39_86C6B0 + Dim var_4C As Me + loc_0086C705: call __vbaStrFixstr(0000001Eh, edi.Reset, esi, Me) + loc_0086C730: call __vbaLsetFixstr(0000001Eh, edi.Reset) + loc_0086C73F: var_20 = Trim$(__vbaStrFixstr(0000001Eh, edi.Reset, esi, Me)) + loc_0086C766: If Len(var_20) = 24 Then + loc_0086C7BB: var_14 = Mid$(var_20, 9, 4) + loc_0086C7E5: var_28 = Mid$(var_20, 14, 3) + loc_0086C80F: var_24 = Mid$(var_20, 17, 4) + loc_0086C839: var_40 = Mid$(var_20, 21, 4) + loc_0086C867: var_8C = CDbl(Val(Mid$(var_20, 4, 3))) + loc_0086C86E: call __vbaCyAbs(%x1 = edi.ActiveControl, Me(124)) + loc_0086C872: __vbaCyAbs(%x1 = edi.ActiveControl, Me(124)) = CLng(%x1 = edi.ActiveControl) + loc_0086C87E: idiv ecx + loc_0086C8A3: If Err.Number Then + loc_0086C8AC: End If + loc_0086C8C8: var_A0 = var_8C + loc_0086C8D0: call __vbaCyAbs(Me(219), Me(220)) + loc_0086C8D4: __vbaCyAbs(Me(219), Me(220)) = CLng(var_28) + loc_0086C8E0: idiv ecx + loc_0086C905: If Err.Number Then + loc_0086C90A: var_34 = True + loc_0086C90D: GoTo loc_0086C912 + loc_0086C90F: End If + loc_0086C912: 'Referenced from: 0086C90D + loc_0086C92B: idiv ecx + loc_0086C94A: If Err.Number Then + loc_0086C94C: var_38 = True + loc_0086C94F: End If + loc_0086C968: idiv ecx + loc_0086C987: If Err.Number Then + loc_0086C989: var_3C = True + loc_0086C98C: End If + loc_0086C98F: call __vbaStrFixstr(0000001Eh, Me) + loc_0086C99A: var_4C = __vbaStrFixstr(0000001Eh, Me) + loc_0086C9B1: call __vbaLsetFixstr(0000001Eh, Me, var_4C) + loc_0086C9C3: var_ret_1 = Len(Trim$(var_4C)) + loc_0086C9D3: var_7C = var_ret_1 + loc_0086C9E8: If 00000001h <= var_ret_1 Then + loc_0086CA07: call __vbaStrFixstr(0000001Eh, Me, 00000001h, var_60) + loc_0086CA12: var_4C = __vbaStrFixstr(0000001Eh, Me, 00000001h, var_60) + loc_0086CA20: var_50 = Mid$(var_4C, , ) + loc_0086CA29: call __vbaLsetFixstr(0000001Eh, Me, var_4C) + loc_0086CA39: Asc(var_50) = Asc(var_50) * 1 + loc_0086CA49: Asc(var_50) = Asc(var_50) + var_1C + loc_0086CA5B: var_1C = Asc(var_50)+var_1C + loc_0086CA75: 00000001h = 00000001h + 00000001h + loc_0086CA80: GoTo loc_0086C9E4 + loc_0086CA85: End If + loc_0086CA9B: idiv ecx + loc_0086CAA0: If 0 = Asc(var_50)+var_1C Then + loc_0086CAA7: GoTo loc_0086CAAF + loc_0086CAA9: End If + loc_0086CAAF: 'Referenced from: 0086CAA7 + loc_0086CAB3: If var_2C = 0 Then + loc_0086CAB9: If var_34 = 0 Then + loc_0086CABF: If var_38 = 0 Then + loc_0086CAC5: If var_3C = 0 Then + loc_0086CACA: If var_44 = 0 Then + loc_0086CACC: var_18 = True + loc_0086CAD5: GoTo loc_0086CB0E + loc_0086CAD7: End If + loc_0086CAD7: End If + loc_0086CAD7: End If + loc_0086CAD7: End If + loc_0086CAD7: End If + loc_0086CAE4: GoTo loc_0086CB0E + loc_0086CAE6: End If + loc_0086CAE6: var_18 = edi.QueryInterface 'Ignore this + loc_0086CAEF: GoTo loc_0086CB0E + loc_0086CB0D: Exit Sub + loc_0086CB0E: 'Referenced from: 0086CAD5 +End Sub + +Public Sub Proc_12_40_86CB50 + loc_0086CB8A: var_eax = Close + loc_0086CB90: var_eax = Proc_12_32_86B4C0(edi, esi, ebx) + loc_0086CBAF: Open Proc_12_32_86B4C0(edi, esi, ebx) For Random As #1 Len = 516 + loc_0086CBB5: var_eax = Proc_12_34_86B610(, , ) + loc_0086CBBF: var_14 = Proc_12_34_86B610(, , ) + loc_0086CBD1: GoTo loc_0086CBD5 + loc_0086CBD5: 'Referenced from: 0086CBD1 + loc_0086CBE0: If EOF(1) = 0 Then + loc_0086CBEE: 00886544h = 00886544h + 0001h + loc_0086CC06: global_886544 = 00000001h.QueryInterface 'Ignore this + loc_0086CC18: Get #00000001h.QueryInterface, global_008861C4, 00886544h+0001h + loc_0086CC25: call __vbaStrFixstr(0000001Eh, global_008861C4) + loc_0086CC30: var_24 = __vbaStrFixstr(0000001Eh, global_008861C4) + loc_0086CC3A: var_28 = Trim$(var_24) + loc_0086CC47: call __vbaLsetFixstr(0000001Eh, global_008861C4, var_24) + loc_0086CC5C: var_2C = Trim$(var_14) + loc_0086CC76: esi = (var_28 = var_2C) + 1 + loc_0086CC88: If (var_28 = var_2C) + 1 = 0 Then GoTo loc_0086CBD3 + loc_0086CC97: End If + loc_0086CC97: var_eax = Close + loc_0086CCA2: var_eax = Proc_12_39_86C6B0(global_008861C4) + loc_0086CCAA: If Proc_12_39_86C6B0(global_008861C4) = 0 Then + loc_0086CCB1: If var_1C = var_FFFFFF Then GoTo loc_0086CCBD + loc_0086CCB3: End If + loc_0086CCB7: If var_1C = 0 Then + loc_0086CCBD: + loc_0086CCCE: call __vbaLsetFixstr(0000001Eh, global_008861C4, var_14) + loc_0086CCDD: If 00000001h <= 3 Then + loc_0086CCF1: global_88623C = CLng(Timer) + loc_0086CD04: global_886240 = CLng(Timer) + loc_0086CD09: If 00000001h >= 4 Then + loc_0086CD0B: var_eax = Err.Raise + loc_0086CD11: End If + loc_0086CD2A: If 00000001h >= 4 Then + loc_0086CD2C: var_eax = Err.Raise + loc_0086CD32: End If + loc_0086CD44: call __vbaLsetFixstr(00000014h, eax*8+00886304h, global_0040EEC8) + loc_0086CD49: If 00000001h >= 4 Then + loc_0086CD4B: var_eax = Err.Raise + loc_0086CD51: End If + loc_0086CD6A: If 00000001h >= 4 Then + loc_0086CD6C: var_eax = Err.Raise + loc_0086CD72: End If + loc_0086CD84: call __vbaLsetFixstr(00000014h, edx*8+00886484h, global_0040EEC8) + loc_0086CD89: If 00000001h >= 4 Then + loc_0086CD8B: var_eax = Err.Raise + loc_0086CD91: End If + loc_0086CDAA: If 00000001h >= 4 Then + loc_0086CDAC: var_eax = Err.Raise + loc_0086CDB2: End If + loc_0086CDC4: call __vbaLsetFixstr(00000014h, ecx*8+00886244h, global_0040EEC8) + loc_0086CDC9: If 00000001h >= 4 Then + loc_0086CDCB: var_eax = Err.Raise + loc_0086CDD1: End If + loc_0086CDEA: If 00000001h >= 4 Then + loc_0086CDEC: var_eax = Err.Raise + loc_0086CDF2: End If + loc_0086CE04: call __vbaLsetFixstr(00000014h, eax*8+008863C4h, global_0040EEC8) + loc_0086CE0B: 00000001h = 00000001h + 00000001h + loc_0086CE12: var_eax = Unknown_134 + loc_0086CE17: End If + loc_0086CE17: var_eax = Proc_12_41_86CE70 + loc_0086CE1C: End If + loc_0086CE22: GoTo loc_0086CE3C + loc_0086CE3B: Exit Sub + loc_0086CE3C: 'Referenced from: 0086CE22 + loc_0086CE4C: Exit Sub + loc_0086CE5D: Exit Sub +End Sub + +Public Sub Proc_12_41_86CE70 + loc_0086CEA7: var_eax = Close + loc_0086CEA9: var_eax = Proc_12_32_86B4C0(edi, Close(), ebx) + loc_0086CEC8: Open Proc_12_32_86B4C0(edi, Close(), ebx) For Random As #1 Len = 516 + loc_0086CED3: var_eax = Proc_12_38_86BF20(global_008861C4, , ) + loc_0086CEE7: call __vbaLsetFixstr(0000001Eh, global_00886200, Proc_12_38_86BF20(global_008861C4, , )) + loc_0086CF0A: Put #1, global_00886544, global_008861C4 + loc_0086CF10: var_eax = Close + loc_0086CF17: GoTo loc_0086CF23 + loc_0086CF22: Exit Sub + loc_0086CF23: 'Referenced from: 0086CF17 +End Sub + +Public Sub Proc_12_42_86CF40 + loc_0086CF93: If 00000001h <= Me Then + loc_0086CFCD: var_3C = Int((Rnd(var_34) * global_401E40)) + loc_0086D000: var_18 = var_18 & Trim$(Str$(Int((Rnd(var_34) * global_401E40)))) + loc_0086D027: 00000001h = 00000001h + 00000001h + loc_0086D02D: GoTo loc_0086CF90 + loc_0086D032: End If + loc_0086D042: var_14 = CLng(Val(var_18)) + loc_0086D04B: GoTo loc_0086D071 + loc_0086D070: Exit Sub + loc_0086D071: 'Referenced from: 0086D04B +End Sub + +Public Sub Proc_12_43_86D100 + Dim arg_C As Me + loc_0086D143: var_28 = arg_C.hWnd + loc_0086D170: var_eax = Proc_86D0A0(var_28, FFFFFFFFh, 0) + loc_0086D17A: GoTo loc_0086D186 + loc_0086D185: Exit Sub + loc_0086D186: 'Referenced from: 0086D17A +End Sub + +Public Sub Proc_12_44_86D1C0 + Dim arg_C As Me + loc_0086D203: var_28 = arg_C.hWnd + loc_0086D22C: var_eax = Proc_86D0A0(var_28, var_24, 0) + loc_0086D236: GoTo loc_0086D242 + loc_0086D241: Exit Sub + loc_0086D242: 'Referenced from: 0086D236 +End Sub + +Public Sub Proc_12_45_86D280 + Dim Me As Me + Dim var_14 As Me + loc_0086D2C7: var_14 = Me.Controls + loc_0086D336: var_14 + loc_0086D35D: var_14 = Me.Controls + loc_0086D3D0: var_14 + loc_0086D3F7: var_14 = Me.Controls + loc_0086D46A: var_14 + loc_0086D485: var_2C = "animDisplay" + loc_0086D498: var_14 = Me.Controls + loc_0086D509: var_28 + loc_0086D530: var_14 = Me.Controls + loc_0086D5A3: var_14 + loc_0086D5CA: var_14 = Me.Controls + loc_0086D63D: var_14 + loc_0086D664: var_14 = Me.Controls + loc_0086D6D7: var_14 + loc_0086D700: var_2C = "rotateDisplay" + loc_0086D71A: var_14 = Me.Controls + loc_0086D785: var_28 + loc_0086D79D: global_88682C = 0 + loc_0086D7A7: global_886830 = 41A00000h + loc_0086D7B7: GoTo loc_0086D7CC + loc_0086D7CB: Exit Sub + loc_0086D7CC: 'Referenced from: 0086D7B7 +End Sub + +Public Sub Proc_12_46_86D7E0 + Dim Me As Me + Dim var_14 As Me + loc_0086D84E: If Err.Number Then + loc_0086D850: global_88682C = 3F800000h + loc_0086D856: End If + loc_0086D869: global_88682C = 3F800000h + loc_0086D86F: End If + loc_0086D880: If Err.Number Then + loc_0086D882: global_886830 = 3F800000h + loc_0086D888: End If + loc_0086D895: If ecx+00000002h = 0 Then + loc_0086D8D8: GoTo loc_0086D9C0 + loc_0086D8DD: End If + loc_0086D8E0: If 00886834h = 0 Then + loc_0086D8EF: If global_886000 = 0 Then + loc_0086D8F7: GoTo loc_0086D90A + loc_0086D8F9: End If + loc_0086D90A: 'Referenced from: 0086D8F7 + loc_0086D916: global_886830 = (((global_401868 / global_402C78) * global_8860D4) + global_886830) + loc_0086D940: global_886830 = 42480000h + loc_0086D94A: GoTo loc_0086D9AE + loc_0086D94C: End If + loc_0086D95F: If global_886000 = 0 Then + loc_0086D967: GoTo loc_0086D97A + loc_0086D969: End If + loc_0086D97A: 'Referenced from: 0086D967 + loc_0086D982: global_886830 = (((global_401868 / global_402C78) * global_8860D4) - global_886830) + loc_0086D9A3: If Err.Number Then + loc_0086D9A8: global_886830 = edi.AddRef 'Ignore this + loc_0086D9AE: 'Referenced from: 0086D94A + loc_0086D9C0: End If + loc_0086D9C0: End If + loc_0086D9C0: + loc_0086D9D2: global_88682C = ((global_8860D4 * global_4028E8) + global_88682C) + loc_0086DA03: var_eax = Unknown_VTable_Call[edx+0000030Ch] + loc_0086DA27: var_14 = buttons.Controls + loc_0086DB17: var_eax = Proc_9_0_843110(var_1C, var_20, 0) + loc_0086DB65: var_eax = Unknown_VTable_Call[edx+000002FCh] + loc_0086DB84: var_14 = buttons.Controls + loc_0086DC76: var_eax = Proc_9_0_843110(var_1C, var_20, 0) + loc_0086DCB5: var_14 = Me.Controls + loc_0086DD25: var_44 = Me.CInt((Int((global_886830 - global_401850)) * global_402C68)) + loc_0086DD3F: var_A8 = (var_44 = 0) + loc_0086DD66: If var_A8 Then + loc_0086DD8F: var_14 = Me.Controls + loc_0086DE07: var_14 + loc_0086DE40: var_eax = Unknown_VTable_Call[edx+0000030Ch] + loc_0086DE5F: var_14 = buttons.Controls + loc_0086DF54: var_eax = Proc_9_0_843110(var_1C, var_20, 0) + loc_0086DFA4: var_14 = Me.Controls + loc_0086E01C: var_14 + loc_0086E048: var_5C = "animDisplay" + loc_0086E05E: var_14 = Me.Controls + loc_0086E0D4: var_5C + loc_0086E0EC: End If + loc_0086E0FE: var_14 = Me.Controls + loc_0086E188: var_A8 = (Me.var_78 = 0) + loc_0086E1AF: If var_A8 Then + loc_0086E1D8: var_14 = Me.Controls + loc_0086E250: var_14 + loc_0086E289: var_eax = Unknown_VTable_Call[edx+000002FCh] + loc_0086E2A8: var_14 = buttons.Controls + loc_0086E39A: var_eax = Proc_9_0_843110(var_1C, var_20, 0) + loc_0086E3E4: var_14 = Me.Controls + loc_0086E456: var_14 + loc_0086E48B: var_14 = Me.Controls + loc_0086E4FD: var_14 + loc_0086E515: End If + loc_0086E51B: GoTo loc_0086E551 + loc_0086E550: Exit Sub + loc_0086E551: 'Referenced from: 0086E51B + loc_0086E551: Exit Sub +End Sub + +Public Sub Proc_12_47_86E570 + loc_0086E5D4: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E5F1: Unknown_VTable_Call[ecx+000002FCh].Width = global_44200000 + loc_0086E63B: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E652: Unknown_VTable_Call[ecx+000002FCh].Height = global_43F00000 + loc_0086E696: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E6B1: var_14 = Unknown_VTable_Call[ecx+000002FCh].Picture + loc_0086E6E4: Unknown_VTable_Call[ecx+000002FCh].BackColor = var_18 + loc_0086E73A: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E750: var_74 = Unknown_VTable_Call[ecx+000002FCh].CurrentX + loc_0086E7A0: var_eax = Proc_9_2_843330(var_74, global_008865E8, 0) + loc_0086E7CB: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E7D8: var_88 = Unknown_VTable_Call[ecx+000002FCh] + loc_0086E89F: var_eax = Global.LoadPicture var_2C, var_28, var_24, var_20, 10 + loc_0086E8D6: var_eax = Unknown_VTable_Call[edi+00000064h] + loc_0086E907: GoTo loc_0086E921 + loc_0086E920: Exit Sub + loc_0086E921: 'Referenced from: 0086E907 +End Sub + +Public Sub Proc_12_48_86E940 + Dim var_1C As App + loc_0086E9B5: var_1C = Global.App + loc_0086E9E6: var_A0 = Global.PrevInstance + loc_0086EA0E: If var_A0 Then + loc_0086EA10: End + loc_0086EA16: End If + loc_0086EA1C: var_24 = Timer + loc_0086EA2A: Randomize(Timer) + loc_0086EA3E: global_886126 = 0 + loc_0086EA68: var_1C = Global.App + loc_0086EA88: var_18 = Global.Path + loc_0086EAB1: global_00886014 = var_18 + loc_0086EACC: var_18 = Right$(global_00886014, 1) + loc_0086EAF2: If (var_18 = global_0041146C) Then + loc_0086EB0C: global_00886014 = global_00886014 & global_0041146C + loc_0086EB0E: End If + loc_0086EB35: Open global_00886014 & "\firstRun.flg" For Random As #1 Len = -1 + loc_0086EB4A: If LOF(1) = 0 Then + loc_0086EB58: Put #1, FFFFFFFFh + loc_0086EBA1: var_2C = "This appears to be your first time running Flux. If you encounter any errors starting the game, be sure you have DirectX 6.0 or later installed (available at http://www.microsoft.com/directx). For any other problems, please see the Flux documentation or visit www.planetflux.com for more information." + loc_0086EBB5: MsgBox(var_2C, 0, "Flux: First Run", var_4C, var_5C) + loc_0086EBD6: GoTo loc_0086EBDD + loc_0086EBD8: End If + loc_0086EBDD: 'Referenced from: 0086EBD6 + loc_0086EBDD: var_eax = Close + loc_0086EC49: var_eax = Unknown_VTable_Call[edi+000002B0h] + loc_0086EC6D: GoTo loc_0086EC9D + loc_0086EC9C: Exit Sub + loc_0086EC9D: 'Referenced from: 0086EC6D +End Sub + +Public Sub Proc_12_49_86ECB0 + loc_0086ECE9: global_88611A = True + loc_0086ECF0: var_eax = Close + loc_0086ED15: Open global_00886014 & "\fluxPrefs.cfg" For Random As #1 Len = 15 + loc_0086ED2E: If LOF(1) Then + loc_0086ED43: Get #1, global_00886078 + loc_0086ED4E: Get #1, global_0088607A + loc_0086ED59: Get #1, global_00886112 + loc_0086ED64: Get #1, global_0088610E + loc_0086ED6F: Get #1, global_00886110 + loc_0086ED7A: Get #1, global_00886114 + loc_0086ED85: Get #1, global_00886110 + loc_0086ED90: Get #1, global_0088611E + loc_0086ED9B: Get #1, global_00886120 + loc_0086EDA6: Get #1, global_00886102 + loc_0086EDB1: Get #1, global_00886106 + loc_0086EDBC: Get #1, global_00886104 + loc_0086EDC7: Get #1, global_00886118 + loc_0086EDD2: Get #1, global_00886122 + loc_0086EDD4: var_eax = Close + loc_0086EDE0: GoTo loc_0086EE5B + loc_0086EDE2: End If + loc_0086EDE2: call edi(Close(), Get #x1#%x3, %x2, 00000009h) + loc_0086EDEE: global_886078 = 13 + loc_0086EDF5: global_88607A = 9 + loc_0086EDFC: global_886112 = Get #x1#%x3, %x2 + loc_0086EE03: global_88610E = Get #x1#%x3, %x2 + loc_0086EE0A: global_886110 = Get #x1#%x3, %x2 + loc_0086EE11: global_886114 = Get #x1#%x3, %x2 + loc_0086EE18: global_886116 = Get #x1#%x3, %x2 + loc_0086EE1F: global_88611E = Get #x1#%x3, %x2 + loc_0086EE26: global_886120 = Get #x1#%x3, %x2 + loc_0086EE2D: global_886118 = Get #x1#%x3, %x2 + loc_0086EE34: global_886122 = Get #x1#%x3, %x2 + loc_0086EE3B: global_886102 = 2 + loc_0086EE44: global_886106 = 4 + loc_0086EE4D: global_886104 = 1 + loc_0086EE56: var_eax = Proc_12_50_86EF10 + loc_0086EE5B: 'Referenced from: 0086EDE0 + loc_0086EE62: If global_886078 > 13 Then + loc_0086EE64: global_886078 = 13 + loc_0086EE6B: End If + loc_0086EE72: If global_88607A > 9 Then + loc_0086EE74: global_886078 = 9 + loc_0086EE7B: End If + loc_0086EE85: If 00886104h <> 2 Then + loc_0086EE8B: If 00886104h <> 1 Then + loc_0086EE91: If 00886104h <> 4 Then + loc_0086EE93: global_886104 = 1 + loc_0086EE9C: End If + loc_0086EE9C: End If + loc_0086EE9C: End If + loc_0086EEA6: If 00886102h <> 2 Then + loc_0086EEAC: If 00886102h <> 1 Then + loc_0086EEB2: If 00886102h <> 4 Then + loc_0086EEB4: global_886102 = 2 + loc_0086EEBD: End If + loc_0086EEBD: End If + loc_0086EEBD: End If + loc_0086EEC7: If 00886106h <> 2 Then + loc_0086EECD: If 00886106h <> 1 Then + loc_0086EED3: If 00886106h <> 4 Then + loc_0086EED5: global_886106 = 4 + loc_0086EEDE: End If + loc_0086EEDE: End If + loc_0086EEDE: End If + loc_0086EEE3: GoTo loc_0086EEEF + loc_0086EEEE: Exit Sub + loc_0086EEEF: 'Referenced from: 0086EEE3 +End Sub + +Public Sub Proc_12_50_86EF10 + loc_0086EF46: var_eax = Close + loc_0086EF6B: Open global_00886014 & "\fluxPrefs.cfg" For Random As #1 Len = 15 + loc_0086EF89: Put #1, global_00886078 + loc_0086EF94: Put #1, global_0088607A + loc_0086EF9F: Put #1, global_00886112 + loc_0086EFAA: Put #1, global_0088610E + loc_0086EFB5: Put #1, global_00886110 + loc_0086EFC0: Put #1, global_00886114 + loc_0086EFCB: Put #1, global_00886110 + loc_0086EFD6: Put #1, global_0088611E + loc_0086EFE1: Put #1, global_00886120 + loc_0086EFEC: Put #1, global_00886102 + loc_0086EFF7: Put #1, global_00886106 + loc_0086F002: Put #1, global_00886104 + loc_0086F00D: Put #1, global_00886118 + loc_0086F018: Put #1, global_00886122 + loc_0086F01A: var_eax = Close + loc_0086F021: GoTo loc_0086F02D + loc_0086F02C: Exit Sub + loc_0086F02D: 'Referenced from: 0086F021 +End Sub + +Public Sub Proc_12_51_86F160 + loc_0086F196: var_eax = Close + loc_0086F1A4: Open Me For Random As #1 Len = -1 + loc_0086F1B4: If LOF(1) Then + loc_0086F1B6: var_eax = Close + loc_0086F1BF: var_ret_1 = Me + loc_0086F1C6: var_eax = _MIDASloadModule@4(var_ret_1, Close()) + loc_0086F1E1: global_8867F8 = _MIDASloadModule@4(var_ret_1, Close()) + loc_0086F1ED: End If + loc_0086F1F2: GoTo loc_0086F1FE + loc_0086F1FD: Exit Sub + loc_0086F1FE: 'Referenced from: 0086F1F2 +End Sub + +Public Sub Proc_12_52_86F420 + loc_0086F48B: var_88 = Rnd(Me) + loc_0086F49E: var_60 = Rnd(Me) + loc_0086F4B3: If Me < 2 Then + loc_0086F4C5: var_40 = CInt(3) + loc_0086F4CE: + loc_0086F4D7: var_20 = CInt(5) + loc_0086F4E5: var_50 = CInt(2) + loc_0086F4EA: GoTo loc_0086F5F8 + loc_0086F4EF: End If + loc_0086F4F2: If var_50 < 3 Then + loc_0086F504: var_40 = CInt(6) + loc_0086F50D: GoTo loc_0086F4CE + loc_0086F50F: End If + loc_0086F512: If var_40 < 5 Then + loc_0086F524: var_40 = CInt(5) + loc_0086F52D: + loc_0086F536: var_20 = CInt(6) + loc_0086F548: var_50 = CInt(3) + loc_0086F551: GoTo loc_0086F5F8 + loc_0086F556: End If + loc_0086F559: If var_50 < 8 Then + loc_0086F56B: var_40 = CInt(4) + loc_0086F574: GoTo loc_0086F52D + loc_0086F576: End If + loc_0086F579: If var_40 < 11 Then + loc_0086F58B: var_40 = CInt(4) + loc_0086F594: GoTo loc_0086F5D4 + loc_0086F596: End If + loc_0086F599: If var_40 < 14 Then + loc_0086F5AB: var_40 = CInt(4) + loc_0086F5B4: GoTo loc_0086F5D4 + loc_0086F5B6: End If + loc_0086F5B9: If var_40 >= 15 Then GoTo loc_0086F60F + loc_0086F5CB: var_40 = CInt(4) + loc_0086F5D4: 'Referenced from: 0086F594 + loc_0086F5DD: var_20 = CInt(7) + loc_0086F5EF: var_50 = CInt(4) + loc_0086F5F8: 'Referenced from: 0086F4EA + loc_0086F601: var_30 = CInt(4) + loc_0086F60A: GoTo loc_0086F71C + loc_0086F612: If var_30 < 17 Then + loc_0086F625: var_40 = CInt(4) + loc_0086F637: var_20 = CInt(8) + loc_0086F649: var_50 = CInt(3) + loc_0086F657: var_30 = CInt(4) + loc_0086F659: global_88611C = FFFFFFh + loc_0086F662: GoTo loc_0086F71C + loc_0086F667: End If + loc_0086F66A: If var_30 <= 20 Then + loc_0086F680: var_40 = CInt(4) + loc_0086F692: var_20 = CInt(7) + loc_0086F6A4: var_50 = CInt(4) + loc_0086F6B6: var_30 = CInt(4) + loc_0086F6FE: GoTo loc_0086F702 + loc_0086F700: End If + loc_0086F702: 'Referenced from: 0086F6FE + loc_0086F714: esi = esi - 1 + loc_0086F715: global_88611C = esi - 1 + loc_0086F71C: End If + loc_0086F73E: call Proc_12_55_8700F0(CInt(CInt(CInt(CInt(0)))), %x1 = CInt(%StkVar2), 4) + loc_0086F749: GoTo loc_0086F755 + loc_0086F754: Exit Sub + loc_0086F755: 'Referenced from: 0086F749 +End Sub + +Public Sub Proc_12_53_86F790 + loc_0086F7FD: var_88 = Rnd(Me) + loc_0086F810: var_60 = Rnd(Me) + loc_0086F822: If Me < 4 Then + loc_0086F839: var_40 = CInt(3) + loc_0086F84B: var_20 = CInt(5) + loc_0086F859: var_50 = CInt(2) + loc_0086F85E: GoTo loc_0086F982 + loc_0086F863: End If + loc_0086F866: If 00000002h < 8 Then + loc_0086F87D: var_40 = CInt(5) + loc_0086F88F: var_20 = CInt(8) + loc_0086F89D: var_50 = CInt(2) + loc_0086F8A2: GoTo loc_0086F982 + loc_0086F8A7: End If + loc_0086F8AA: If 00000002h < 20 Then + loc_0086F8BD: var_40 = var_50 + loc_0086F8CF: var_20 = CInt(6) + loc_0086F8DD: var_50 = CInt(2) + loc_0086F8E6: GoTo loc_0086F982 + loc_0086F8EB: End If + loc_0086F8EE: If 00000002h < 40 Then + loc_0086F905: var_40 = CInt(3) + loc_0086F917: var_20 = CInt(4) + loc_0086F91C: GoTo loc_0086F970 + loc_0086F91E: End If + loc_0086F921: If 00000002h < 60 Then + loc_0086F934: var_40 = var_20 + loc_0086F93D: GoTo loc_0086F95E + loc_0086F93F: End If + loc_0086F942: If 00000002h >= 80 Then GoTo loc_0086F999 + loc_0086F955: var_40 = var_40 + loc_0086F95E: 'Referenced from: 0086F93D + loc_0086F967: var_20 = CInt(6) + loc_0086F970: 'Referenced from: 0086F91C + loc_0086F979: var_50 = CInt(3) + loc_0086F982: 'Referenced from: 0086F85E + loc_0086F98B: var_30 = CInt(4) + loc_0086F994: GoTo loc_0086FB8F + loc_0086F99C: If 00000002h < 90 Then + loc_0086F9B3: var_40 = CInt(3) + loc_0086F9C6: var_20 = CInt(4) + loc_0086F9D8: var_50 = CInt(3) + loc_0086F9E6: var_30 = CInt(4) + loc_0086F9E8: global_88611C = FFFFFFh + loc_0086F9F1: GoTo loc_0086FB8F + loc_0086F9F6: End If + loc_0086F9F9: If 00000002h < 110 Then + loc_0086FA10: var_40 = CInt(3) + loc_0086FA22: var_20 = CInt(5) + loc_0086FA34: var_50 = CInt(3) + loc_0086FA46: var_30 = CInt(4) + loc_0086FA48: global_88611C = FFFFFFh + loc_0086FA51: GoTo loc_0086FB8F + loc_0086FA56: End If + loc_0086FA71: If 00000002h < 150 Then + loc_0086FA77: var_40 = CInt(3) + loc_0086FA89: var_20 = CInt(6) + loc_0086FA9B: var_50 = CInt(3) + loc_0086FAAD: var_30 = CInt(4) + loc_0086FAF5: GoTo loc_0086FB75 + loc_0086FAF7: End If + loc_0086FAF7: ecx = var_70 + loc_0086FB09: var_20 = CInt(5) + loc_0086FB17: var_50 = CInt(2) + loc_0086FB29: var_30 = CInt(4) + loc_0086FB71: GoTo loc_0086FB75 + loc_0086FB73: End If + loc_0086FB75: 'Referenced from: 0086FAF5 + loc_0086FB87: esi = esi - 1 + loc_0086FB88: global_88611C = esi - 1 + loc_0086FB8F: 'Referenced from: 0086F994 + loc_0086FBB1: call Proc_12_55_8700F0(CInt(CInt(CInt(CInt(Me)))), %x1 = CInt(%StkVar2), 4) + loc_0086FBBC: GoTo loc_0086FBC8 + loc_0086FBC7: Exit Sub + loc_0086FBC8: 'Referenced from: 0086FBBC +End Sub + +Public Sub Proc_12_54_86FC00 + loc_0086FC6E: var_88 = Rnd(Me) + loc_0086FC81: var_60 = Rnd(Me) + loc_0086FC8E: If Me < 3 Then + loc_0086FCA1: var_40 = CInt(3) + loc_0086FCB3: var_20 = CInt(5) + loc_0086FCC1: var_50 = CInt(2) + loc_0086FCCF: var_30 = CInt(2) + loc_0086FCD1: global_88611C = 0 + loc_0086FCDA: GoTo loc_00870078 + loc_0086FCDF: End If + loc_0086FCE2: If 00000002h < 6 Then + loc_0086FCF9: var_40 = CInt(5) + loc_0086FD0B: var_20 = CInt(9) + loc_0086FD19: var_50 = CInt(2) + loc_0086FD27: var_30 = CInt(2) + loc_0086FD29: global_88611C = 0 + loc_0086FD32: GoTo loc_00870078 + loc_0086FD37: End If + loc_0086FD3A: If 00000002h < 10 Then + loc_0086FD4D: var_40 = CInt(3) + loc_0086FD5F: var_20 = CInt(5) + loc_0086FD6D: var_50 = CInt(3) + loc_0086FD7B: var_30 = CInt(3) + loc_0086FD7D: global_88611C = 0 + loc_0086FD86: GoTo loc_00870078 + loc_0086FD8B: End If + loc_0086FD8E: If 00000002h < 20 Then + loc_0086FDA1: var_40 = CInt(3) + loc_0086FDB3: var_20 = CInt(7) + loc_0086FDC1: var_50 = CInt(3) + loc_0086FDCF: var_30 = CInt(3) + loc_0086FDD1: global_88611C = 0 + loc_0086FDDA: GoTo loc_00870078 + loc_0086FDDF: End If + loc_0086FDE2: If 00000002h < 60 Then + loc_0086FDF9: var_40 = CInt(4) + loc_0086FE0B: var_20 = CInt(7) + loc_0086FE19: var_50 = CInt(3) + loc_0086FE2B: var_30 = CInt(4) + loc_0086FE2D: global_88611C = 0 + loc_0086FE36: GoTo loc_00870078 + loc_0086FE3B: End If + loc_0086FE3E: If 00000002h < 80 Then + loc_0086FE51: var_40 = CInt(3) + loc_0086FE63: var_20 = CInt(8) + loc_0086FE71: var_50 = CInt(3) + loc_0086FE83: var_30 = CInt(4) + loc_0086FE85: global_88611C = 0 + loc_0086FE8E: GoTo loc_00870078 + loc_0086FE93: End If + loc_0086FE96: If 00000002h < 90 Then + loc_0086FEA9: var_40 = CInt(3) + loc_0086FEBB: var_20 = CInt(5) + loc_0086FEC9: var_50 = CInt(3) + loc_0086FEDB: var_30 = CInt(4) + loc_0086FEDD: global_88611C = FFFFFFh + loc_0086FEE6: GoTo loc_00870078 + loc_0086FEEB: End If + loc_0086FEEE: If 00000002h < 110 Then + loc_0086FF05: var_40 = CInt(4) + loc_0086FF17: var_20 = CInt(7) + loc_0086FF25: var_50 = CInt(3) + loc_0086FF37: var_30 = CInt(4) + loc_0086FF39: global_88611C = FFFFFFh + loc_0086FF42: GoTo loc_00870078 + loc_0086FF47: End If + loc_0086FF62: If 00000002h < 150 Then + loc_0086FF64: var_40 = CInt(4) + loc_0086FF76: var_20 = CInt(8) + loc_0086FF84: var_50 = CInt(3) + loc_0086FF96: var_30 = CInt(4) + loc_0086FFDE: GoTo loc_0087005E + loc_0086FFE0: End If + loc_0086FFE0: ecx = var_70 + loc_0086FFF2: var_20 = CInt(9) + loc_00870000: var_50 = CInt(3) + loc_00870012: var_30 = CInt(4) + loc_0087005A: GoTo loc_0087005E + loc_0087005C: End If + loc_0087005E: 'Referenced from: 0086FFDE + loc_00870070: esi = esi - 1 + loc_00870071: global_88611C = esi - 1 + loc_00870078: 'Referenced from: 0086FCDA + loc_0087009A: call Proc_12_55_8700F0(CInt(CInt(CInt(CInt(Me)))), %x1 = CInt(%StkVar2), 3) + loc_008700A5: GoTo loc_008700B1 + loc_008700B0: Exit Sub + loc_008700B1: 'Referenced from: 008700A5 +End Sub + +Public Sub Proc_12_55_8700F0 + loc_00870137: arg_C = arg_C * + loc_00870141: var_24 = arg_C + loc_00870144: GoTo loc_0087014A + loc_00870146: + loc_0087014A: 'Referenced from: 00870144 + loc_0087015F: var_4C = arg_C + loc_0087016B: var_50 = var_4C + loc_008701BB: var_54 = var_4C + loc_008701ED: CInt((Int((Rnd(var_34) * var_50)) + global_401758)) = CInt((Int((Rnd(var_34) * var_50)) + global_401758)) * CInt((Int((Rnd(var_34) * var_54)) + global_401758)) + loc_008701FB: If CInt((Int((Rnd(var_34) * var_50)) + global_401758)) < Me Then GoTo loc_00870146 + loc_00870205: If CInt((Int((Rnd(var_34) * var_50)) + global_401758)) > arg_C Then GoTo loc_00870146 + loc_0087020E: global_886056 = CInt((Int((Rnd(var_34) * var_50)) + global_401758)) + loc_00870216: global_886058 = CInt((Int((Rnd(var_34) * var_54)) + global_401758)) + loc_00870239: arg_14 = arg_14 - arg_10 + loc_00870242: arg_14 = arg_14 + 0001h + loc_00870254: var_5C = 0.QueryInterface + loc_00870260: var_64 = arg_10 + loc_00870275: global_8860E4 = CInt(CInt((Int((Rnd(10) * var_50)) + global_401758))) + loc_00870285: If global_88611C = var_FFFFFF Then + loc_0087028E: 008860E4h = 008860E4h + 0001h + loc_00870294: global_8860E4 = 0.QueryInterface 'Ignore this + loc_0087029B: End If + loc_008702A1: GoTo loc_008702AD + loc_008702AC: Exit Sub + loc_008702AD: 'Referenced from: 008702A1 + loc_008702AD: Exit Sub +End Sub diff --git a/src/Globals.bas b/src/Globals.bas new file mode 100644 index 0000000..e69de29 diff --git a/src/GraphicsFunctions.bas b/src/GraphicsFunctions.bas new file mode 100644 index 0000000..25452ea --- /dev/null +++ b/src/GraphicsFunctions.bas @@ -0,0 +1,1874 @@ + +Public Sub Proc_9_0_843110 + loc_00843174: hdc = edi.hdc() + loc_008431AE: var_eax = BitBlt(CLng(arg_C.hdc), arg_10, arg_14, arg_20, arg_24, CLng(Me.hdc), arg_18, arg_1C, arg_28) + loc_008431B3: = .() + loc_008431CB: var_20 = %ml + loc_008431E9: GoTo loc_008431FF + loc_008431FE: Exit Sub + loc_008431FF: 'Referenced from: 008431E9 +End Sub + +Public Sub Proc_9_1_843220 + Dim arg_C As Me + loc_00843263: var_44 = arg_C.hDC + loc_008432AE: var_ret_1 = CLng(Me.hdc) + loc_008432CF: var_eax = BitBlt(var_44, arg_10, arg_14, arg_20, arg_24, var_ret_1, arg_18, arg_1C, arg_28) + loc_008432EC: var_20 = BitBlt(var_44, arg_10, arg_14, arg_20, arg_24, var_ret_1, arg_18, arg_1C, arg_28) + loc_00843300: GoTo loc_0084330C + loc_0084330B: Exit Sub + loc_0084330C: 'Referenced from: 00843300 +End Sub + +Public Sub Proc_9_2_843330 + Dim arg_C As Me + loc_00843370: arg_C = var_24 + loc_008433B8: var_eax = BitBlt(var_24, arg_10, arg_14, arg_20, arg_24, Me, arg_18, arg_1C, arg_28) + loc_008433D5: var_20 = BitBlt(var_24, arg_10, arg_14, arg_20, arg_24, Me, arg_18, arg_1C, arg_28) + loc_008433E4: var_24 = arg_C.ForeColor +End Sub + +Public Sub Proc_9_3_843420 + Dim Me As Me + loc_00843460: Me = var_24 + loc_008434A8: var_eax = BitBlt(arg_C, arg_10, arg_14, arg_20, arg_24, var_24, arg_18, arg_1C, arg_28) + loc_008434C5: var_20 = BitBlt(arg_C, arg_10, arg_14, arg_20, arg_24, var_24, arg_18, arg_1C, arg_28) + loc_008434D4: var_24 = Me.ForeColor +End Sub + +Public Sub Proc_9_4_843510 + loc_00843550: repz stosd + loc_0084356D: var_30 = Asc(global_0040FE80) + loc_0084357B: var_2F = Asc(global_0040FEA0) + loc_00843589: var_2E = Asc(global_0040FEA8) + loc_00843597: var_2D = Asc(global_0040FEB0) + loc_008435A5: var_2C = Asc(global_0040F164) + loc_008435B3: var_2B = Asc(global_0040FEB8) + loc_008435BC: var_2A = Asc(global_0040F164) + loc_008435E5: var_32 = CByte(var_5C) + loc_008435E9: var_eax = CreateFontIndirect(var_4C) + loc_008435FB: global_8865AC = CreateFontIndirect(var_4C) + loc_00843609: var_eax = CreateFontIndirect(var_4C) + loc_00843615: global_8865B4 = CreateFontIndirect(var_4C) + loc_0084362A: var_eax = CreateFontIndirect(var_4C) + loc_00843633: global_8865B0 = CreateFontIndirect(var_4C) +End Sub + +Public Sub Proc_9_5_843660 + Dim arg_18 As Me + loc_008436A3: arg_18 = var_14 + loc_008436C5: var_eax = SelectObject(var_14, global_008865AC) + loc_008436D7: var_eax = SetBkColor(var_14, ebx) + loc_008436E4: If arg_1C Then + loc_008436EC: GoTo loc_008436F4 + loc_008436EE: End If + loc_008436F4: 'Referenced from: 008436EC + loc_008436F4: var_eax = SetBkMode(var_14, 2) + loc_00843705: var_eax = SetTextColor(var_14, arg_14) + loc_00843751: var_eax = TextOut(var_14, CLng(arg_C), CLng(arg_10), Me, Len(Me)) + loc_0084375D: var_ret_4 = var_18 + loc_00843778: var_14 = arg_18.ForeColor + loc_00843795: GoTo loc_008437A1 + loc_008437A0: Exit Sub + loc_008437A1: 'Referenced from: 00843795 +End Sub + +Public Sub Proc_9_6_8437C0 + Dim arg_18 As Me + loc_00843803: arg_18 = var_14 + loc_00843825: var_eax = SelectObject(var_14, global_008865B4) + loc_00843837: var_eax = SetBkColor(var_14, ebx) + loc_00843844: If arg_1C Then + loc_0084384C: GoTo loc_00843854 + loc_0084384E: End If + loc_00843854: 'Referenced from: 0084384C + loc_00843854: var_eax = SetBkMode(var_14, 2) + loc_00843865: var_eax = SetTextColor(var_14, arg_14) + loc_008438B1: var_eax = TextOut(var_14, CLng(arg_C), CLng(arg_10), Me, Len(Me)) + loc_008438BD: var_ret_4 = var_18 + loc_008438D8: var_14 = arg_18.ForeColor + loc_008438F5: GoTo loc_00843901 + loc_00843900: Exit Sub + loc_00843901: 'Referenced from: 008438F5 +End Sub + +Public Sub Proc_9_7_843920 + loc_00843954: cwd + loc_00843956: idiv di + loc_0084399B: cwd + loc_0084399D: idiv si + loc_008439A6: If edx < 0 Then + loc_008439AB: arg_C = arg_C + edx + loc_008439B6: GoTo loc_008439A3 + loc_008439B8: End If + loc_008439BB: If edx < 0 Then + loc_008439C0: arg_10 = arg_10 + edx + loc_008439C9: arg_24 = arg_10+edx + loc_008439CE: GoTo loc_008439B8 + loc_008439D0: End If + loc_008439D8: arg_28 = arg_28 - 0001h + loc_008439E5: arg_18 = arg_18 - arg_C+edx + loc_008439E8: var_88 = arg_28 + loc_008439F5: var_98 = arg_18 + loc_00843A22: var_78 = arg_C + loc_00843A35: For var_2C = arg_18 To arg_28 Step arg_C + loc_00843A41: + loc_00843A43: If var_C0 Then + loc_00843A55: arg_2C = arg_2C - 0001h + loc_00843A5F: arg_1C = arg_1C - arg_24 + loc_00843A63: var_78 = arg_10 + loc_00843A67: var_88 = arg_2C + loc_00843A77: var_98 = arg_1C + loc_00843AAE: For var_50 = arg_1C To arg_2C Step arg_10 + loc_00843AB4: + loc_00843AB6: If var_E0 Then + loc_00843AC0: var_2C = CInt(arg_C) + loc_00843AC5: var_14 = var_2C + loc_00843AC9: var_50 = CInt(2) + loc_00843ACB: var_18 = var_50 + loc_00843AD8: var_78 = arg_C + loc_00843AEA: var_2C + arg_C = CInt(%x1 = CInt(%StkVar2)) + loc_00843AFE: var_78 = arg_10 + loc_00843B15: var_50 + arg_10 = CInt() + loc_00843B5C: If var_2C + arg_C > arg_28-0001h Then + loc_00843B60: End If + loc_00843B80: If (var_2C <= arg_18) Then + loc_00843B88: var_14 = arg_18 + loc_00843B8B: var_78 = arg_18 + loc_00843B9F: var_ret_1 = arg_18 - var_2C + loc_00843BAA: var_60 = var_ret_1 + loc_00843BB0: End If + loc_00843BB6: If var_50 + arg_10 > arg_2C-0001h Then + loc_00843BBA: End If + loc_00843BDA: If (var_50 <= arg_1C) Then + loc_00843BE2: var_18 = arg_1C + loc_00843BE5: var_78 = arg_1C + loc_00843BF9: var_ret_2 = arg_1C - var_50 + loc_00843C04: var_40 = var_ret_2 + loc_00843C0A: End If + loc_00843C0D: arg_2C = arg_2C - var_18 + loc_00843C23: arg_28 = arg_28 - var_14 + loc_00843C35: var_60 = CInt(CInt(arg_28)) + loc_00843C45: var_eax = Proc_10_14_84B2D0(Me, arg_14, var_14) + loc_00843C5C: Next var_50 + loc_00843C6B: GoTo loc_00843AB4 + loc_00843C70: End If + loc_00843C82: Next var_2C + loc_00843C88: GoTo loc_00843A41 + loc_00843C8D: End If + loc_00843C92: GoTo loc_00843C9E + loc_00843C9D: Exit Sub + loc_00843C9E: 'Referenced from: 00843C92 + loc_00843CDF: Exit Sub +End Sub + +Public Sub Proc_9_8_843D00 + Dim arg_14 As Me + loc_00843D34: cwd + loc_00843D36: idiv bx + loc_00843D81: cwd + loc_00843D83: idiv si + loc_00843D9E: If edx < 0 Then + loc_00843DA3: arg_C = arg_C + edx + loc_00843DAE: GoTo loc_00843D9B + loc_00843DB0: End If + loc_00843DB3: If edx < 0 Then + loc_00843DB8: arg_10 = arg_10 + edx + loc_00843DC1: arg_24 = arg_10+edx + loc_00843DC6: GoTo loc_00843DB0 + loc_00843DC8: End If + loc_00843DD0: arg_28 = arg_28 - 0001h + loc_00843DDD: arg_18 = arg_18 - arg_C+edx + loc_00843DE0: var_88 = arg_28 + loc_00843DED: var_98 = arg_18 + loc_00843E1A: var_78 = arg_C + loc_00843E2D: For var_2C = arg_18 To arg_28 Step arg_C + loc_00843E39: + loc_00843E3B: If var_D8 Then + loc_00843E4D: arg_2C = arg_2C - 0001h + loc_00843E57: arg_1C = arg_1C - arg_24 + loc_00843E5B: var_78 = arg_10 + loc_00843E5F: var_88 = arg_2C + loc_00843E6F: var_98 = arg_1C + loc_00843EA6: For var_50 = arg_1C To arg_2C Step arg_10 + loc_00843EAC: + loc_00843EAE: If var_F8 Then + loc_00843EB8: var_2C = CInt(arg_C+edx) + loc_00843EBD: var_14 = var_2C + loc_00843EC1: var_50 = CInt(2) + loc_00843EC3: var_18 = var_50 + loc_00843ED0: var_78 = arg_C + loc_00843EE2: var_2C + arg_C = CInt(arg_C) + loc_00843EF6: var_78 = arg_10 + loc_00843F0D: var_50 + arg_10 = CInt() + loc_00843F54: If var_2C + arg_C > arg_28-0001h Then + loc_00843F58: End If + loc_00843F78: If (var_2C <= arg_18) Then + loc_00843F80: var_14 = arg_18 + loc_00843F83: var_78 = arg_18 + loc_00843F97: var_ret_1 = arg_18 - var_2C + loc_00843FA2: var_60 = var_ret_1 + loc_00843FA8: End If + loc_00843FAE: If var_50 + arg_10 > arg_2C-0001h Then + loc_00843FB2: End If + loc_00843FD2: If (var_50 <= arg_1C) Then + loc_00843FDA: var_18 = arg_1C + loc_00843FDD: var_78 = arg_1C + loc_00843FF1: var_ret_2 = arg_1C - var_50 + loc_00843FFC: var_40 = var_ret_2 + loc_00844002: End If + loc_00844017: var_A8 = arg_14.CurrentX + loc_0084403B: arg_2C = arg_2C - var_18 + loc_00844057: var_A4 = arg_2C + loc_00844060: arg_28 = arg_28 - var_14 + loc_00844087: var_60 = CInt(CInt(arg_28)) + loc_0084409A: var_eax = Proc_9_3_843420(Me, var_A8, var_14) + loc_008440B1: Next var_50 + loc_008440C0: GoTo loc_00843EAC + loc_008440C5: End If + loc_008440D7: Next var_2C + loc_008440DD: GoTo loc_00843E39 + loc_008440E2: End If + loc_008440E7: GoTo loc_008440F3 + loc_008440F2: Exit Sub + loc_008440F3: 'Referenced from: 008440E7 + loc_00844134: Exit Sub +End Sub + +Public Sub Proc_9_9_844150 + Dim var_20 As Me + Dim global_00886614 As Me + Dim global_00886620 As Me + Dim global_00886624 As Me + loc_008441B1: var_eax = Proc_10_13_84B1F0(global_008865EC, &H280, &H1E0) + loc_008441BD: eax = 00886018h - 1 + loc_008441BE: If 00886018h - 1 Then + loc_008441C0: eax = 00886018h - 1 - 1 + loc_008441C1: If 00886018h - 1 - 1 <> 0 Then GoTo loc_00844226 + loc_008441E2: var_24 = global_00886014 & "graphics\misc\mainchallenge.jpg" + loc_008441E8: GoTo loc_0084420F + loc_008441EA: End If + loc_00844209: var_24 = global_00886014 & "graphics\misc\main.jpg" + loc_0084420F: 'Referenced from: 008441E8 + loc_00844214: var_eax = Proc_10_12_84AC50(global_008865EC, var_24, var_24) + loc_00844224: GoTo loc_00844238 + loc_00844226: + loc_00844238: 'Referenced from: 00844224 + loc_00844253: var_eax = Proc_10_13_84B1F0(global_008865FC, 4, &H1E) + loc_00844276: var_eax = Proc_10_12_84AC50(global_008865FC, global_00886014 & "graphics\misc\tallyBarLeft2.bmp", @%StkVar2 & %x1) + loc_0084429B: var_eax = Proc_10_13_84B1F0(global_00886600, 4, &H1E) + loc_008442B2: var_24 = global_00886014 & "graphics\misc\tallyBarRight2.bmp" + loc_008442BD: call Proc_10_12_84AC50(global_00886600, var_24, var_24 = %S_edx_S) + loc_008442E2: var_eax = Proc_10_13_84B1F0(global_00886604, &HAD, &H1E) + loc_00844305: call Proc_10_12_84AC50(global_00886604, global_00886014 & "graphics\misc\tallyBarMiddle2.bmp", ecx = "") + loc_00844326: ReDim global_00886614(0 To 4) + loc_00844334: + loc_0084433F: If 00000001h <= 4 Then + loc_00844368: If var_20 Then + loc_0084436E: If var_20 = 1 Then + loc_00844377: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844381: If var_1C >= 0 Then + loc_00844383: var_eax = Err.Raise + loc_0084438F: End If + loc_00844392: GoTo loc_0084439D + loc_00844394: End If + loc_00844394: End If + loc_00844394: var_eax = Err.Raise + loc_0084439D: 'Referenced from: 00844392 + loc_008443AB: var_eax = Proc_10_13_84B1F0(var_20.GetTypeInfoCount, var_48, var_4C) + loc_008443BE: eax = 1 - 1 + loc_008443C2: If var_1C - 1 <= 0 Then + loc_008443C4: GoTo loc_[eax*4+00844C4Ch] + loc_008443D6: GoTo loc_008443FF + loc_008443E4: GoTo loc_008443FF + loc_008443F2: GoTo loc_008443FF + loc_00844406: var_14 = global_00886014 & "graphics\misc\scroll down 2.bmp" + loc_00844408: End If + loc_0084441E: If var_20 Then + loc_00844424: If var_20 = 1 Then + loc_0084442D: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844437: If var_1C >= 0 Then + loc_00844439: var_eax = Err.Raise + loc_00844445: End If + loc_00844448: GoTo loc_00844453 + loc_0084444A: End If + loc_0084444A: End If + loc_0084444A: var_eax = Err.Raise + loc_00844453: 'Referenced from: 00844448 + loc_0084445D: var_eax = Proc_10_12_84AC50(var_20.GetTypeInfoCount, var_14, global_00886014) + loc_00844481: If var_20 Then + loc_00844487: If var_20 = 1 Then + loc_00844490: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084449A: If var_1C >= 0 Then + loc_0084449C: var_eax = Err.Raise + loc_008444A8: End If + loc_008444AB: GoTo loc_008444B6 + loc_008444AD: End If + loc_008444AD: End If + loc_008444AD: var_eax = Err.Raise + loc_008444B6: 'Referenced from: 008444AB + loc_008444BC: var_eax = Proc_84A590(var_20.GetTypeInfoCount, "graphics\misc\scroll right 2.bmp", global_00886014) + loc_008444D0: 00000001h = 00000001h + 1 + loc_008444DA: GoTo loc_00844334 + loc_008444DF: End If + loc_008444FA: var_eax = Proc_10_13_84B1F0(global_008865CC, &HD34, &H41) + loc_0084451C: var_eax = Proc_10_12_84AC50(global_008865CC, global_00886014 & "graphics\explosions\explodeNormal4.bmp", var_20) + loc_0084452B: var_eax = Proc_84A590(global_008865CC, "graphics\misc\scroll left 2.bmp", global_00886014) + loc_0084454B: var_eax = Proc_10_13_84B1F0(global_008865D0, &H5AA, &H1D) + loc_0084456E: var_eax = Proc_10_12_84AC50(global_008865D0, global_00886014 & "graphics\explosions\explodeSmall.bmp", var_20) + loc_0084457D: var_eax = Proc_84A590(global_008865D0, , ) + loc_0084459D: var_eax = Proc_10_13_84B1F0(global_00886608, &HC8, 4) + loc_008445C0: var_eax = Proc_10_12_84AC50(global_00886608, global_00886014 & "graphics\misc\horizontal barrier.bmp", ) + loc_008445E5: var_eax = Proc_10_13_84B1F0(global_0088660C, 4, &HC8) + loc_00844607: var_eax = Proc_10_12_84AC50(global_0088660C, global_00886014 & "graphics\misc\vertical barrier.bmp", ) + loc_00844629: var_eax = Proc_10_13_84B1F0(global_00886610, 6, 6) + loc_0084464C: var_eax = Proc_10_12_84AC50(global_00886610, global_00886014 & "graphics\misc\cornerblock.bmp", ) + loc_00844671: var_eax = Proc_10_13_84B1F0(global_008865BC, &H492, &H2D) + loc_00844694: var_eax = Proc_10_12_84AC50(global_008865BC, global_00886014 & "graphics\select\newGlow.bmp", ) + loc_008446A3: var_eax = Proc_84A590(global_008865BC, ) + loc_008446C3: var_eax = Proc_10_13_84B1F0(global_008865C0, &H492, &H2D) + loc_008446E5: var_eax = Proc_10_12_84AC50(global_008865C0, global_00886014 & "graphics\select\bombglow.bmp") + loc_008446F4: var_eax = Proc_84A590(global_008865C0) + loc_00844714: var_eax = Proc_10_13_84B1F0(global_008865C4, &H492, &H2D) + loc_00844737: var_eax = Proc_10_12_84AC50(global_008865C4, global_00886014 & "graphics\select\bombglow2.bmp") + loc_00844746: var_eax = Proc_84A590(global_008865C4) + loc_00844763: var_eax = Proc_10_13_84B1F0(global_008865C8, &H2D, &H2D) + loc_00844786: var_eax = Proc_10_12_84AC50(global_008865C8, global_00886014 & "graphics\select\border.bmp") + loc_00844795: var_eax = Proc_84A590(global_008865C8) + loc_008447B5: var_eax = Proc_10_13_84B1F0(global_008865E0, &HC8, &H64) + loc_008447D7: var_eax = Proc_10_12_84AC50(global_008865E0, global_00886014 & "graphics\misc\particleGlow.bmp") + loc_008447F8: ReDim global_00886620(0 To 6) + loc_00844815: ReDim global_00886624(0 To 6) + loc_00844831: If 00000001h <= 6 Then + loc_0084485B: If var_20 Then + loc_00844861: If var_20 = 1 Then + loc_0084486A: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844874: If var_1C >= 0 Then + loc_00844876: var_eax = Err.Raise + loc_00844882: End If + loc_00844885: GoTo loc_00844890 + loc_00844887: End If + loc_00844887: End If + loc_00844887: var_eax = Err.Raise + loc_00844890: 'Referenced from: 00844885 + loc_0084489E: var_eax = Proc_10_13_84B1F0(var_20.GetTypeInfoCount, var_48, var_4C) + loc_00844906: var_34 = global_00886014 & "graphics\connect\horizontal connect " & Trim$(Str$(1)) & ".bmp" + loc_0084491D: If var_20 Then + loc_00844923: If var_20 = 1 Then + loc_0084492C: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844936: If var_1C >= 0 Then + loc_00844938: var_eax = Err.Raise + loc_00844944: End If + loc_00844947: GoTo loc_00844952 + loc_00844949: End If + loc_00844949: End If + loc_00844949: var_eax = Err.Raise + loc_00844952: 'Referenced from: 00844947 + loc_0084495C: var_eax = Proc_10_12_84AC50(var_20.GetTypeInfoCount, var_34) + loc_008449A0: If var_20 Then + loc_008449A6: If var_20 = 1 Then + loc_008449AF: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008449B9: If var_1C >= 0 Then + loc_008449BB: var_eax = Err.Raise + loc_008449C7: End If + loc_008449CA: GoTo loc_008449D5 + loc_008449CC: End If + loc_008449CC: End If + loc_008449CC: var_eax = Err.Raise + loc_008449D5: 'Referenced from: 008449CA + loc_008449DB: var_eax = Proc_84A590(var_20.GetTypeInfoCount) + loc_00844A0D: If var_20 Then + loc_00844A13: If var_20 = 1 Then + loc_00844A1C: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844A26: If var_1C >= 0 Then + loc_00844A28: var_eax = Err.Raise + loc_00844A34: End If + loc_00844A37: GoTo loc_00844A42 + loc_00844A39: End If + loc_00844A39: End If + loc_00844A39: var_eax = Err.Raise + loc_00844A42: 'Referenced from: 00844A37 + loc_00844A50: var_eax = Proc_10_13_84B1F0(var_20.GetTypeInfoCount, var_48, var_4C) + loc_00844A7F: var_28 = global_00886014 & "graphics\connect\vertical connect " + loc_00844AB8: var_34 = global_00886014 & "graphics\connect\vertical connect " & Trim$(Str$(1)) & ".bmp" + loc_00844ACF: If var_20 Then + loc_00844AD5: If var_20 = 1 Then + loc_00844ADE: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844AE8: If var_1C >= 0 Then + loc_00844AEA: var_eax = Err.Raise + loc_00844AF6: End If + loc_00844AF9: GoTo loc_00844B04 + loc_00844AFB: End If + loc_00844AFB: End If + loc_00844AFB: var_eax = Err.Raise + loc_00844B04: 'Referenced from: 00844AF9 + loc_00844B0E: var_eax = Proc_10_12_84AC50(var_20.GetTypeInfoCount, var_34) + loc_00844B52: If var_20 Then + loc_00844B58: If var_20 = 1 Then + loc_00844B61: var_1C = var_1C - var_20.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844B6B: If var_1C >= 0 Then + loc_00844B6D: var_eax = Err.Raise + loc_00844B79: End If + loc_00844B7C: GoTo loc_00844B87 + loc_00844B7E: End If + loc_00844B7E: End If + loc_00844B7E: var_eax = Err.Raise + loc_00844B87: 'Referenced from: 00844B7C + loc_00844B8D: var_eax = Proc_84A590(var_20.GetTypeInfoCount) + loc_00844BA1: 00000001h = 00000001h + 1 + loc_00844BAB: GoTo loc_0084482A + loc_00844BB0: End If + loc_00844BC8: var_eax = Proc_10_13_84B1F0(global_00886628, 5, 5) + loc_00844BE0: var_24 = global_00886014 & "graphics\connect\center connect.bmp" + loc_00844BEB: var_eax = Proc_10_12_84AC50(global_00886628, var_24, var_20) + loc_00844BFA: var_eax = Proc_84A590(global_00886628) + loc_00844C04: GoTo loc_00844C30 + loc_00844C2F: Exit Sub + loc_00844C30: 'Referenced from: 00844C04 + loc_00844C39: Exit Sub + loc_00844C4A: Exit Sub + loc_00844C4B: nop + loc_00844C4C: Exit Subf + loc_00844C4D: ebx = ebx + 1 + loc_00844C53: var_28 = var_28 + var_24 + loc_00844C55: ebx = ebx + 1 + 1 + loc_00844C58: hlt + loc_00844C59: ebx = ebx + 1 + 1 + 1 +End Sub + +Public Sub Proc_9_10_844CB0 + Dim var_20 As Me + Dim global_008865B8 As Me + Dim var_24 As Me + Dim global_008865F8 As Me + Dim global_008865F0 As Me + loc_00844CED: var_eax = Proc_9_15_845A90(edi, esi, ebx) + loc_00844D14: ReDim global_008865B8(0 To global_008860E4) + loc_00844D24: var_48 = global_008860E4 + loc_00844D2E: If 00000001h <= global_008860E4 Then + loc_00844D3B: If 008865B8h Then + loc_00844D41: If 008865B8h = 1 Then + loc_00844D52: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844D56: If 00000001h >= 0 Then + loc_00844D58: var_eax = Err.Raise + loc_00844D5A: End If + loc_00844D5D: GoTo loc_00844D6D + loc_00844D5F: End If + loc_00844D5F: End If + loc_00844D5F: var_eax = Err.Raise + loc_00844D6D: 'Referenced from: 00844D5D + loc_00844D8E: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00844D91: Set Err.Raise.GetTypeInfoCount = var_28 + loc_00844DC4: If var_20 Then + loc_00844DCA: If var_20 = 1 Then + loc_00844DD5: 00000001h = 00000001h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844DD9: If 00000001h >= 0 Then + loc_00844DDB: var_eax = Err.Raise + loc_00844DE0: End If + loc_00844DE7: GoTo loc_00844DEE + loc_00844DE9: End If + loc_00844DE9: End If + loc_00844DE9: var_eax = Err.Raise + loc_00844DEE: 'Referenced from: 00844DE7 + loc_00844DF8: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00844DFC: var_eax = Proc_10_13_84B1F0(Err.Raise.GetTypeInfoCount, var_2C, var_30) + loc_00844E12: If var_886034 Then + loc_00844E18: If 00886034h = 1 Then + loc_00844E27: 008861A0h = 008861A0h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844E2B: If 008861A0h >= 0 Then + loc_00844E2D: var_eax = Err.Raise + loc_00844E34: End If + loc_00844E3B: ebx*8 = ebx*8 - 008861A0h + loc_00844E40: GoTo loc_00844E4B + loc_00844E42: End If + loc_00844E42: End If + loc_00844E42: var_eax = Err.Raise + loc_00844E4B: 'Referenced from: 00844E40 + loc_00844E55: If var_1C(1) >= 5 Then + loc_00844E57: var_eax = Err.Raise + loc_00844E62: End If + loc_00844E6F: var_14 = ecx+edi + loc_00844E8B: If var_20 Then + loc_00844E91: If var_20 = 1 Then + loc_00844E9B: var_1C = var_1C - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844E9F: If var_1C >= 0 Then + loc_00844EA1: var_eax = Err.Raise + loc_00844EAA: End If + loc_00844EB1: GoTo loc_00844EBC + loc_00844EB3: End If + loc_00844EB3: End If + loc_00844EB3: var_eax = Err.Raise + loc_00844EBC: 'Referenced from: 00844EB1 + loc_00844EC2: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00844EC6: var_eax = Proc_10_12_84AC50(Err.Raise.GetTypeInfoCount, var_14, ) + loc_00844EEC: If var_20 Then + loc_00844EF2: If var_20 = 1 Then + loc_00844EFA: var_1C = var_1C - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844F00: If var_1C >= 0 Then + loc_00844F02: var_eax = Err.Raise + loc_00844F0B: End If + loc_00844F12: GoTo loc_00844F1D + loc_00844F14: End If + loc_00844F14: End If + loc_00844F14: var_eax = Err.Raise + loc_00844F1D: 'Referenced from: 00844F12 + loc_00844F20: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00844F23: var_eax = Proc_84A590(Err.Raise.GetTypeInfoCount, , ) + loc_00844F39: 00000001h = 00000001h + var_1C + loc_00844F43: var_1C = 00000001h+var_1C + loc_00844F4A: GoTo loc_00844D2A + loc_00844F4F: End If + loc_00844F5D: If 008861A0h <> var_886038 Then + loc_00844F76: ReDim global_008865F4(0 To 2) + loc_00844F8B: ReDim global_008865F8(0 To 2) + loc_00844F98: If 008865F4h Then + loc_00844F9E: If 008865F4h = 1 Then + loc_00844FB1: 00000001h = 00000001h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844FB5: If 00000001h >= 0 Then + loc_00844FB7: var_eax = Err.Raise + loc_00844FBF: End If + loc_00844FC2: GoTo loc_00844FD6 + loc_00844FC4: End If + loc_00844FC4: End If + loc_00844FC4: var_eax = Err.Raise + loc_00844FD6: 'Referenced from: 00844FC2 + loc_00844FE7: If var_8865F8 Then + loc_00844FED: If 008865F8h = 1 Then + loc_00844FFA: 00000001h = 00000001h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00844FFE: If 00000001h >= 0 Then + loc_00845000: var_eax = Err.Raise + loc_00845008: End If + loc_0084500B: GoTo loc_00845015 + loc_0084500D: End If + loc_0084500D: End If + loc_0084500D: var_eax = Err.Raise + loc_00845015: 'Referenced from: 0084500B + loc_00845026: If var_8865F4 Then + loc_0084502C: If 008865F4h = 1 Then + loc_00845039: 00000002h = 00000002h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084503D: If 00000002h >= 0 Then + loc_0084503F: var_eax = Err.Raise + loc_00845047: End If + loc_0084504A: GoTo loc_00845054 + loc_0084504C: End If + loc_0084504C: End If + loc_0084504C: var_eax = Err.Raise + loc_00845054: 'Referenced from: 0084504A + loc_00845065: If var_8865F8 Then + loc_0084506B: If 008865F8h = 1 Then + loc_00845078: 00000002h = 00000002h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084507C: If 00000002h >= 0 Then + loc_0084507E: var_eax = Err.Raise + loc_00845086: End If + loc_00845089: GoTo loc_00845093 + loc_0084508B: End If + loc_0084508B: End If + loc_0084508B: var_eax = Err.Raise + loc_00845093: 'Referenced from: 00845089 + loc_008450BD: ReDim global_008865F0(0 To global_008860E4, 0 To 2) + loc_008450C7: var_50 = global_008860E4 + loc_008450D6: If 00000001h <= global_008860E4 Then + loc_008450EC: var_eax = Unknown_B6E9C88B + loc_008450F9: If var_8865F0 Then + loc_008450FF: If 008865F0h = 2 Then + loc_0084510A: 00000001h = 00000001h - Err.Raise.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0084510E: If 00000001h >= 0 Then + loc_00845110: var_eax = Err.Raise + loc_0084511B: End If + loc_00845124: 00000001h = 00000001h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845128: If 00000001h >= 0 Then + loc_0084512A: var_eax = Err.Raise + loc_00845135: End If + loc_0084513B: Err.Raise.%x1 = Invoke 'Ignore this = Err.Raise.%x1 = Invoke 'Ignore this + 00000001h + loc_00845146: GoTo loc_00845152 + loc_00845148: End If + loc_00845148: End If + loc_0084514E: var_eax = Err.Raise + loc_00845152: 'Referenced from: 00845146 + loc_00845174: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00845177: Set Err.Raise.GetTypeInfoCount = var_28 + loc_0084519E: If var_24 Then + loc_008451A4: If var_24 = 1 Then + loc_008451B0: var_18 = var_18 - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008451B4: If var_18 >= 0 Then + loc_008451B6: var_eax = Err.Raise + loc_008451B8: End If + loc_008451BB: GoTo loc_008451BF + loc_008451BD: End If + loc_008451BD: End If + loc_008451BD: var_eax = Err.Raise + loc_008451BF: 'Referenced from: 008451BB + loc_008451C5: var_60 = Err.Raise + loc_008451CA: If var_8865F4 Then + loc_008451D0: If 008865F4h = 1 Then + loc_008451DC: var_18 = var_18 - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008451E0: If var_18 >= 0 Then + loc_008451E2: var_eax = Err.Raise + loc_008451EA: End If + loc_008451ED: GoTo loc_008451F7 + loc_008451EF: End If + loc_008451EF: End If + loc_008451EF: var_eax = Err.Raise + loc_008451F7: 'Referenced from: 008451ED + loc_00845203: ecx+eax = ecx+eax * 0015h + loc_00845212: var_2C = ecx+eax + loc_0084521C: If var_20 Then + loc_00845222: If var_20 = 2 Then + loc_0084522E: var_1C = var_1C - Err.Raise.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845232: If var_1C >= 0 Then + loc_00845234: var_eax = Err.Raise + loc_00845239: End If + loc_00845243: var_18 = var_18 - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845247: If var_18 >= 0 Then + loc_00845249: var_eax = Err.Raise + loc_0084524E: End If + loc_00845254: Err.Raise.%x1 = Invoke 'Ignore this = Err.Raise.%x1 = Invoke 'Ignore this + var_1C + loc_00845259: GoTo loc_00845260 + loc_0084525B: End If + loc_0084525B: End If + loc_0084525B: var_eax = Err.Raise + loc_00845260: 'Referenced from: 00845259 + loc_0084526C: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0084526E: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + var_60 + loc_00845276: var_eax = Proc_10_13_84B1F0(Err.Raise.GetTypeInfoCount, var_2C, Err.Raise.GetTypeInfoCount) + loc_00845294: If var_886034 Then + loc_0084529A: If 00886034h = 1 Then + loc_008452A9: 008861A0h = 008861A0h - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008452AD: If 008861A0h >= 0 Then + loc_008452AF: var_eax = Err.Raise + loc_008452B1: End If + loc_008452B8: esi*8 = esi*8 - 008861A0h + loc_008452BD: GoTo loc_008452C3 + loc_008452BF: End If + loc_008452BF: End If + loc_008452BF: var_eax = Err.Raise + loc_008452C3: 'Referenced from: 008452BD + loc_008452C7: var_64 = var_1C + loc_008452CA: ebx = var_1C - 1 + loc_008452CE: If var_1C - 1 >= 0 Then + loc_008452D0: var_eax = Err.Raise + loc_008452D6: End If + loc_008452DA: var_68 = var_18 + loc_008452DD: esi = var_18 - 1 + loc_008452E1: If var_18 - 1 >= 0 Then + loc_008452E3: var_eax = Err.Raise + loc_008452E9: End If + loc_00845301: var_14 = ecx+edi + loc_0084531D: If var_20 Then + loc_00845323: If var_20 = 2 Then + loc_00845334: var_64 = var_64 - Err.Raise.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845338: If var_64 >= 0 Then + loc_0084533A: var_eax = Err.Raise + loc_0084533F: End If + loc_00845348: var_68 = var_68 - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084534C: If var_68 >= 0 Then + loc_0084534E: var_eax = Err.Raise + loc_00845353: End If + loc_00845359: Err.Raise.%x1 = Invoke 'Ignore this = Err.Raise.%x1 = Invoke 'Ignore this + var_64 + loc_0084535E: GoTo loc_0084536B + loc_00845360: End If + loc_00845360: End If + loc_00845366: var_eax = Err.Raise + loc_0084536B: 'Referenced from: 0084535E + loc_00845374: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00845378: var_eax = Proc_10_12_84AC50(Err.Raise.GetTypeInfoCount, var_14) + loc_0084539C: If var_20 Then + loc_008453A2: If var_20 = 2 Then + loc_008453AA: var_64 = var_64 - Err.Raise.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008453AE: If var_64 >= 0 Then + loc_008453B0: var_eax = Err.Raise + loc_008453B5: End If + loc_008453BE: var_68 = var_68 - Err.Raise.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008453C2: If var_68 >= 0 Then + loc_008453C4: var_eax = Err.Raise + loc_008453C9: End If + loc_008453CF: Err.Raise.%x1 = Invoke 'Ignore this = Err.Raise.%x1 = Invoke 'Ignore this + var_64 + loc_008453D4: GoTo loc_008453DB + loc_008453D6: End If + loc_008453D6: End If + loc_008453D6: var_eax = Err.Raise + loc_008453DB: 'Referenced from: 008453D4 + loc_008453DE: Err.Raise.GetTypeInfoCount 'Ignore this = Err.Raise.GetTypeInfoCount 'Ignore this + Err.Raise + loc_008453E1: var_eax = Proc_84A590(Err.Raise.GetTypeInfoCount) + loc_008453F8: 00000001h = 00000001h + var_18 + loc_008453FE: var_18 = 00000001h+var_18 + loc_00845403: var_eax = Unknown_316(var_20) + loc_0084540D: 00000001h = 00000001h + var_1C + loc_00845414: GoTo loc_008450CF + loc_00845419: End If + loc_00845419: End If + loc_0084541E: GoTo loc_0084543C + loc_0084543B: Exit Sub + loc_0084543C: 'Referenced from: 0084541E + loc_00845445: Exit Sub + loc_00845456: Exit Sub +End Sub + +Public Sub Proc_9_11_845460 + Dim global_00886604 As Me + Dim var_1C As Me + loc_008454DC: If 00000001h <= 4 Then + loc_008454E6: If var_886614 Then + loc_008454EC: If 00886614h = 1 Then + loc_008454F4: 00000001h = 00000001h - global_00886604.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008454FE: If 00000001h >= 0 Then + loc_00845500: var_eax = Err.Raise + loc_00845509: End If + loc_0084550C: GoTo loc_00845514 + loc_0084550E: End If + loc_0084550E: End If + loc_0084550E: var_eax = Err.Raise + loc_00845514: 'Referenced from: 0084550C + loc_00845534: global_00886604.GetTypeInfoCount 'Ignore this = global_00886604.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00845537: Set global_00886604.GetTypeInfoCount = var_1C + loc_0084554B: 00000001h = 00000001h + 00000001h + loc_00845556: var_eax = Unknown_66140D8B(00000000h, global_0040F4A0, 00000000h, global_0040F4A0, global_00886600, fs:[00000000h], 00000000h) + loc_0084555B: End If + loc_00845601: If 00000001h <= 6 Then + loc_0084560F: If var_886620 Then + loc_00845615: If 00886620h = 1 Then + loc_0084561D: 00000001h = 00000001h - global_00886604.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845627: If 00000001h >= 0 Then + loc_00845629: var_eax = Err.Raise + loc_00845632: End If + loc_00845639: var_3C = eax*4 + loc_0084563C: GoTo loc_00845647 + loc_0084563E: End If + loc_0084563E: End If + loc_0084563E: var_eax = Err.Raise + loc_00845644: var_3C = Err.Raise + loc_00845647: 'Referenced from: 0084563C + loc_00845663: global_00886604.GetTypeInfoCount 'Ignore this = global_00886604.GetTypeInfoCount 'Ignore this + var_3C + loc_00845666: Set global_00886604.GetTypeInfoCount = var_1C + loc_0084567C: If var_886624 Then + loc_00845682: If 00886624h = 1 Then + loc_0084568A: 00000001h = 00000001h - global_00886604.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845694: If 00000001h >= 0 Then + loc_00845696: var_eax = Err.Raise + loc_0084569F: End If + loc_008456A6: var_40 = ecx*4 + loc_008456A9: GoTo loc_008456B4 + loc_008456AB: End If + loc_008456AB: End If + loc_008456AB: var_eax = Err.Raise + loc_008456B1: var_40 = Err.Raise + loc_008456B4: 'Referenced from: 008456A9 + loc_008456D1: global_00886604.GetTypeInfoCount 'Ignore this = global_00886604.GetTypeInfoCount 'Ignore this + var_40 + loc_008456D4: Set global_00886604.GetTypeInfoCount = var_1C + loc_008456E8: 00000001h = 00000001h + 00000001h + loc_008456EF: var_eax = Unknown_ED(00000000h, global_0040F4A0, global_0040F4A0, 00000000h, global_0040F4A0, global_008865C0, Unknown_66140D8B(00000000h, global_0040F4A0, 00000000h, global_0040F4A0, global_00886600, fs:[00000000h], 00000000h)) + loc_008456F4: End If + loc_0084571B: GoTo loc_00845727 + loc_00845726: Exit Sub + loc_00845727: 'Referenced from: 0084571B + loc_00845727: Exit Sub + loc_00845738: Exit Sub +End Sub + +Public Sub Proc_9_12_845740 + +End Sub + +Public Sub Proc_9_13_8457B0 + Dim var_A4 As Me + loc_008457EB: repz stosd + loc_00845806: Set var_A4 = global_008865E8 + loc_00845819: var_A4 = var_18 + loc_0084584B: var_eax = SetPixel(var_18, ebx, ebx, Me) + loc_00845865: var_18 = var_A4.ForeColor + loc_008458C8: var_eax = CopyMemory(VarPtr(var_1C), var_74, 2) + loc_008458D9: ebx = var_A4.Width + loc_0084590F: var_14 = var_1C +End Sub + +Public Sub Proc_9_14_845940 + loc_00845986: repz stosd + loc_0084598E: var_34 = arg_18 + loc_0084599F: var_18 = arg_10 + loc_008459B0: var_1C = arg_C + loc_008459CE: var_14 = arg_14 + loc_00845A24: GoTo loc_00845A33 + loc_00845A32: Exit Sub + loc_00845A33: 'Referenced from: 00845A24 +End Sub + +Public Sub Proc_9_15_845A90 + Dim global_00886014 As Me + loc_00845B06: global_886038 = &H19 + loc_00845B0F: ReDim global_00886034(0 To 25) + loc_00845B2D: ReDim global_00886044(0 To global_00886038, 0 To 6) + loc_00845B3A: If global_886010 = 2 Then + loc_00845B48: GoTo loc_00845B56 + loc_00845B4A: End If + loc_00845B70: Open global_00886014 & "pieceListLE.txt" For Input As #1 Len = -1 + loc_00845B92: GoTo loc_00845B9A + loc_00845B94: + loc_00845B9A: 'Referenced from: 00845B92 + loc_00845BA5: If EOF(1) = 0 Then + loc_00845BAD: Line Input #1, var_24 + loc_00845BD2: var_5C = LCase$(Left$(var_24, 10)) + loc_00845BED: esi = (var_5C = "[pieceset]") + 1 + loc_00845BFF: If (var_5C = "[pieceset]") + 1 = 0 Then GoTo loc_00845B94 + loc_00845C07: End If + loc_00845C12: If EOF(1) = 0 Then + loc_00845C1E: Line Input #1, var_34 + loc_00845C26: Line Input #1, var_44 + loc_00845C2E: Line Input #1, var_48 + loc_00845C36: Line Input #1, var_4C + loc_00845C3E: Line Input #1, var_18 + loc_00845C46: Line Input #1, var_28 + loc_00845C4E: Line Input #1, var_20 + loc_00845C56: Line Input #1, var_1C + loc_00845C5E: Line Input #1, var_30 + loc_00845C67: If var_886044 Then + loc_00845C6D: If 00886044h = 2 Then + loc_00845C79: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845C7D: var_74 = var_54 + loc_00845C80: If var_54 >= 0 Then + loc_00845C82: var_eax = Err.Raise + loc_00845C8D: End If + loc_00845C98: 00000001h = 00000001h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845C9F: If 00000001h >= 0 Then + loc_00845CA1: var_eax = Err.Raise + loc_00845CAC: End If + loc_00845CB6: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_74 + loc_00845CBA: GoTo loc_00845CC4 + loc_00845CBC: End If + loc_00845CBC: End If + loc_00845CBC: var_eax = Err.Raise + loc_00845CC4: 'Referenced from: 00845CBA + loc_00845CD1: Len(var_34) = Len(var_34) - 00000004h + loc_00845CE3: var_58 = Right$(var_34, Len(var_34)) + loc_00845D0F: If var_886044 Then + loc_00845D15: If 00886044h = 2 Then + loc_00845D21: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845D25: var_74 = var_54 + loc_00845D28: If var_54 >= 0 Then + loc_00845D2A: var_eax = Err.Raise + loc_00845D35: End If + loc_00845D40: 00000002h = 00000002h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845D44: If 00000002h >= 0 Then + loc_00845D46: var_eax = Err.Raise + loc_00845D51: End If + loc_00845D60: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_74 + loc_00845D64: GoTo loc_00845D6E + loc_00845D66: End If + loc_00845D66: End If + loc_00845D66: var_eax = Err.Raise + loc_00845D6E: 'Referenced from: 00845D64 + loc_00845D7B: Len(var_44) = Len(var_44) - 00000004h + loc_00845D8D: var_58 = Right$(var_44, Len(var_44)) + loc_00845DB9: If var_886044 Then + loc_00845DBF: If 00886044h = 2 Then + loc_00845DCB: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845DCF: var_74 = var_54 + loc_00845DD2: If var_54 >= 0 Then + loc_00845DD4: var_eax = Err.Raise + loc_00845DDF: End If + loc_00845DEA: 00000003h = 00000003h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845DEE: If 00000003h >= 0 Then + loc_00845DF0: var_eax = Err.Raise + loc_00845DFB: End If + loc_00845E0A: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_74 + loc_00845E0E: GoTo loc_00845E18 + loc_00845E10: End If + loc_00845E10: End If + loc_00845E10: var_eax = Err.Raise + loc_00845E18: 'Referenced from: 00845E0E + loc_00845E22: Len(var_48) = Len(var_48) - 00000004h + loc_00845E37: var_58 = Right$(var_48, Len(var_48)) + loc_00845E63: If var_886044 Then + loc_00845E69: If 00886044h = 2 Then + loc_00845E75: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845E79: var_74 = var_54 + loc_00845E7C: If var_54 >= 0 Then + loc_00845E7E: var_eax = Err.Raise + loc_00845E89: End If + loc_00845E94: 00000004h = 00000004h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845E98: If 00000004h >= 0 Then + loc_00845E9A: var_eax = Err.Raise + loc_00845EA5: End If + loc_00845EB4: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_74 + loc_00845EB8: GoTo loc_00845EC2 + loc_00845EBA: End If + loc_00845EBA: End If + loc_00845EBA: var_eax = Err.Raise + loc_00845EC2: 'Referenced from: 00845EB8 + loc_00845ECF: Len(var_4C) = Len(var_4C) - 00000004h + loc_00845EE1: var_58 = Right$(var_4C, Len(var_4C)) + loc_00845F0D: If var_886044 Then + loc_00845F13: If 00886044h = 2 Then + loc_00845F1F: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00845F23: var_74 = var_54 + loc_00845F26: If var_54 >= 0 Then + loc_00845F28: var_eax = Err.Raise + loc_00845F33: End If + loc_00845F3E: 00000005h = 00000005h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845F42: If 00000005h >= 0 Then + loc_00845F44: var_eax = Err.Raise + loc_00845F4F: End If + loc_00845F5E: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_74 + loc_00845F62: GoTo loc_00845F6C + loc_00845F64: End If + loc_00845F64: End If + loc_00845F64: var_eax = Err.Raise + loc_00845F6C: 'Referenced from: 00845F62 + loc_00845F76: Len(var_18) = Len(var_18) - 00000004h + loc_00845F8B: var_58 = Right$(var_18, Len(var_18)) + loc_00845FB7: If var_886034 Then + loc_00845FBD: If 00886034h = 1 Then + loc_00845FC9: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00845FCD: If var_54 >= 0 Then + loc_00845FCF: var_eax = Err.Raise + loc_00845FD5: End If + loc_00845FDC: ebx*8 = ebx*8 - var_54 + loc_00845FE7: GoTo loc_00845FF1 + loc_00845FE9: End If + loc_00845FE9: End If + loc_00845FE9: var_eax = Err.Raise + loc_00845FF1: 'Referenced from: 00845FE7 + loc_00845FFE: Len(var_28) = Len(var_28) - 0000000Dh + loc_0084601C: "pieceList.txt".GetTypeInfoCount 'Ignore this = "pieceList.txt".GetTypeInfoCount 'Ignore this + Err.Raise + loc_0084601E: ecx = Right$(var_28, Len(var_28)) + loc_00846034: If var_886034 Then + loc_0084603A: If 00886034h = 1 Then + loc_00846046: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084604A: If var_54 >= 0 Then + loc_0084604C: var_eax = Err.Raise + loc_00846052: End If + loc_00846059: ebx*8 = ebx*8 - var_54 + loc_00846064: GoTo loc_0084606E + loc_00846066: End If + loc_00846066: End If + loc_00846066: var_eax = Err.Raise + loc_0084606E: 'Referenced from: 00846064 + loc_0084607B: Len(var_20) = Len(var_20) - 0000000Ah + loc_0084609B: var_90 = Val(Right$(var_20, Len(var_20))) + loc_008460D2: var_5C = LCase$(Right$(var_1C, 2)) + loc_008460ED: esi = (var_5C = "no") + 1 + loc_00846105: If (var_5C = "no") + 1 Then + loc_00846109: If var_886034 Then + loc_0084610F: If 00886034h = 1 Then + loc_0084611B: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084611F: If var_54 >= 0 Then + loc_00846121: var_eax = Err.Raise + loc_0084612D: End If + loc_00846137: esi*8 = esi*8 - var_54 + loc_00846143: GoTo loc_008461A7 + loc_00846145: End If + loc_00846145: End If + loc_00846145: var_eax = Err.Raise + loc_0084615B: GoTo loc_008461A7 + loc_0084615D: End If + loc_0084615F: If var_886034 Then + loc_00846165: If 00886034h = 1 Then + loc_00846171: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846175: If var_54 >= 0 Then + loc_00846177: var_eax = Err.Raise + loc_00846183: End If + loc_0084618A: esi*8 = esi*8 - var_54 + loc_0084618F: GoTo loc_0084619D + loc_00846191: End If + loc_00846191: End If + loc_00846191: var_eax = Err.Raise + loc_0084619D: 'Referenced from: 0084618F + loc_008461A7: 'Referenced from: 00846143 + loc_008461C2: var_5C = LCase$(Right$(var_30, 2)) + loc_008461DD: esi = (var_5C = "no") + 1 + loc_008461F5: If (var_5C = "no") + 1 Then + loc_008461F9: If var_886034 Then + loc_008461FF: If 00886034h = 1 Then + loc_0084620B: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084620F: If var_54 >= 0 Then + loc_00846211: var_eax = Err.Raise + loc_0084621D: End If + loc_00846227: esi*8 = esi*8 - var_54 + loc_00846233: GoTo loc_00846297 + loc_00846235: End If + loc_00846235: End If + loc_00846235: var_eax = Err.Raise + loc_0084624B: GoTo loc_00846297 + loc_0084624D: End If + loc_0084624F: If var_886034 Then + loc_00846255: If 00886034h = 1 Then + loc_00846261: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846265: If var_54 >= 0 Then + loc_00846267: var_eax = Err.Raise + loc_00846273: End If + loc_0084627A: esi*8 = esi*8 - var_54 + loc_0084627F: GoTo loc_0084628D + loc_00846281: End If + loc_00846281: End If + loc_00846281: var_eax = Err.Raise + loc_0084628D: 'Referenced from: 0084627F + loc_00846297: 'Referenced from: 00846233 + loc_0084629F: + loc_008462A7: If 00000001h <= 5 Then + loc_008462B5: If global_88611C Then + loc_008462BA: If 00000001h = 5 Then + loc_008462C2: var_50 = global_008860E4 + loc_008462C5: GoTo loc_008462CA + loc_008462C7: End If + loc_008462C7: End If + loc_008462CA: 'Referenced from: 008462C5 + loc_008462D6: Line Input #1, var_14 + loc_008462DE: Line Input #1, var_2C + loc_008462E6: Line Input #1, var_40 + loc_008462EE: Line Input #1, var_3C + loc_008462F7: If var_886034 Then + loc_008462FD: If 00886034h = 1 Then + loc_00846309: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084630D: If var_54 >= 0 Then + loc_0084630F: var_eax = Err.Raise + loc_00846315: End If + loc_0084631C: ebx*8 = ebx*8 - var_54 + loc_00846321: GoTo loc_0084632B + loc_00846323: End If + loc_00846323: End If + loc_00846323: var_eax = Err.Raise + loc_0084632B: 'Referenced from: 00846321 + loc_0084632F: ebx = var_50 - 1 + loc_00846333: If var_50 - 1 >= 0 Then + loc_00846335: var_eax = Err.Raise + loc_0084633B: End If + loc_0084634C: Len(var_14) = Len(var_14) - 00000008h + loc_00846384: eax+ebx*4+0000000Ch = eax+ebx*4+0000000Ch + Err.Raise + loc_00846386: ecx = global_00886014 & Right$(var_14, Len(var_14)) + loc_008463A6: If var_886034 Then + loc_008463AC: If 00886034h = 1 Then + loc_008463B8: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008463BC: var_70 = var_54 + loc_008463BF: If var_54 >= 0 Then + loc_008463C1: var_eax = Err.Raise + loc_008463C7: End If + loc_008463D1: eax*8 = eax*8 - var_70 + loc_008463D6: GoTo loc_008463E0 + loc_008463D8: End If + loc_008463D8: End If + loc_008463D8: var_eax = Err.Raise + loc_008463E0: 'Referenced from: 008463D6 + loc_008463E3: If var_50 - 1 >= 0 Then + loc_008463E5: var_eax = Err.Raise + loc_008463EB: End If + loc_008463FE: Len(var_2C) = Len(var_2C) - 00000008h + loc_00846432: ecx+ebx*4+00000020h = ecx+ebx*4+00000020h + Err.Raise + loc_00846434: ecx = global_00886014 & Right$(var_2C, Len(var_2C)) + loc_00846454: If var_886034 Then + loc_0084645A: If 00886034h = 1 Then + loc_00846466: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084646A: var_70 = var_54 + loc_0084646D: If var_54 >= 0 Then + loc_0084646F: var_eax = Err.Raise + loc_00846475: End If + loc_0084647F: eax*8 = eax*8 - var_70 + loc_00846484: GoTo loc_0084648E + loc_00846486: End If + loc_00846486: End If + loc_00846486: var_eax = Err.Raise + loc_0084648E: 'Referenced from: 00846484 + loc_00846491: If var_50 - 1 >= 0 Then + loc_00846493: var_eax = Err.Raise + loc_00846499: End If + loc_008464AA: Len(var_40) = Len(var_40) - 00000008h + loc_008464E2: eax+ebx*4+00000034h = eax+ebx*4+00000034h + Err.Raise + loc_008464E4: ecx = global_00886014 & Right$(var_40, Len(var_40)) + loc_0084651C: var_5C = LCase$(Right$(var_3C, 2)) + loc_00846537: esi = (var_5C = "no") + 1 + loc_00846549: If (var_5C = "no") + 1 Then + loc_00846552: If var_886034 Then + loc_00846558: If 00886034h = 1 Then + loc_00846564: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846568: If var_54 >= 0 Then + loc_0084656A: var_eax = Err.Raise + loc_00846575: End If + loc_0084657C: esi*8 = esi*8 - var_54 + loc_00846581: var_94 = esi*8 + loc_00846587: GoTo loc_008465A0 + loc_00846589: End If + loc_00846589: End If + loc_00846589: var_eax = Err.Raise + loc_0084658F: var_94 = Err.Raise + loc_008465A0: 'Referenced from: 00846587 + loc_008465A3: If var_50 - 1 >= 0 Then + loc_008465A5: var_eax = Err.Raise + loc_008465B6: End If + loc_008465C3: GoTo loc_0084663B + loc_008465C5: End If + loc_008465CD: If var_886034 Then + loc_008465D3: If 00886034h = 1 Then + loc_008465DF: var_54 = var_54 - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008465E3: If var_54 >= 0 Then + loc_008465E5: var_eax = Err.Raise + loc_008465F1: End If + loc_008465F8: esi*8 = esi*8 - var_54 + loc_008465FD: var_98 = esi*8 + loc_00846603: GoTo loc_00846617 + loc_00846605: End If + loc_00846605: End If + loc_00846605: var_eax = Err.Raise + loc_00846611: var_98 = Err.Raise + loc_00846617: 'Referenced from: 00846603 + loc_0084661A: If var_50 - 1 >= 0 Then + loc_0084661C: var_eax = Err.Raise + loc_0084662E: End If + loc_0084663B: 'Referenced from: 008465C3 + loc_00846646: 00000001h = 00000001h + var_38 + loc_00846650: var_38 = 00000001h+var_38 + loc_00846653: GoTo loc_0084629F + loc_00846658: End If + loc_0084665C: var_54 = var_54 + 0001h + loc_0084666D: var_54 = "pieceList.txt".QueryInterface 'Ignore this + loc_00846670: If var_54+0001h <= var_886038 Then GoTo loc_00845B94 + loc_00846676: End If + loc_00846679: var_eax = Close + loc_0084667F: var_54 = var_54 - 0001h + loc_0084669F: global_886038 = var_54 + loc_008466A6: ReDim Preserve global_00886034(0 To var_54-0001h) + loc_008466BA: var_88 = global_00886038 + loc_008466CA: If 00000001h <= global_00886038 Then + loc_008466D8: If var_886044 Then + loc_008466DE: If 00886044h = 2 Then + loc_008466EF: 00000001h = 00000001h - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008466F3: If 00000001h >= 0 Then + loc_008466F5: var_eax = Err.Raise + loc_008466FD: End If + loc_00846707: If edi >= 0 Then + loc_00846709: var_eax = Err.Raise + loc_00846711: End If + loc_00846717: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + 00000001h + loc_0084671B: GoTo loc_0084672F + loc_0084671D: End If + loc_0084671D: End If + loc_0084671D: var_eax = Err.Raise + loc_0084672F: 'Referenced from: 0084671B + loc_0084673F: If var_54 <> 1 Then + loc_00846749: If global_886010 <> 2 Then + loc_00846753: If var_886044 Then + loc_00846759: If 00886044h = 2 Then + loc_00846764: var_54 = var_54 - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00846768: If var_54 >= 0 Then + loc_0084676A: var_eax = Err.Raise + loc_00846772: End If + loc_0084677D: 00000006h = 00000006h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846781: If 00000006h >= 0 Then + loc_00846783: var_eax = Err.Raise + loc_0084678B: End If + loc_00846791: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_54 + loc_00846795: GoTo loc_0084679F + loc_00846797: End If + loc_00846797: End If + loc_00846797: var_eax = Err.Raise + loc_0084679F: 'Referenced from: 00846795 + loc_008467A9: 00886040h = 00886040h - 0001h + loc_008467B7: GoTo loc_0084681B + loc_008467B9: End If + loc_008467B9: End If + loc_008467C1: If var_886044 Then + loc_008467C7: If 00886044h = 2 Then + loc_008467D2: Err.Raise = Err.Raise - "pieceList.txt".%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008467D6: If Err.Raise >= 0 Then + loc_008467D8: var_eax = Err.Raise + loc_008467E0: End If + loc_008467EB: 00000006h = 00000006h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008467EF: If 00000006h >= 0 Then + loc_008467F1: var_eax = Err.Raise + loc_008467F9: End If + loc_008467FF: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + Err.Raise + loc_00846803: GoTo loc_0084680D + loc_00846805: End If + loc_00846805: End If + loc_00846805: var_eax = Err.Raise + loc_0084680D: 'Referenced from: 00846803 + loc_0084681B: 'Referenced from: 008467B7 + loc_00846825: If var_54 = var_886038 Then + loc_0084682F: If global_886010 = 2 Then + loc_00846839: If var_886044 Then + loc_0084683F: If 00886044h = 2 Then + loc_00846847: var_54 = var_54 - ecx+0000001Ch + loc_0084684C: If var_54 >= 0 Then + loc_0084684E: var_eax = Err.Raise + loc_00846856: End If + loc_00846861: 00000001h = 00000001h - "pieceList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846865: If 00000001h >= 0 Then + loc_00846867: var_eax = Err.Raise + loc_0084686F: End If + loc_00846875: "pieceList.txt".%x1 = Invoke 'Ignore this = "pieceList.txt".%x1 = Invoke 'Ignore this + var_54 + loc_00846879: GoTo loc_00846883 + loc_0084687B: End If + loc_0084687B: End If + loc_0084687B: var_eax = Err.Raise + loc_00846883: 'Referenced from: 00846879 + loc_00846894: End If + loc_00846894: End If + loc_00846899: 00000001h = 00000001h + var_54 + loc_008468A2: var_54 = 00000001h+var_54 + loc_008468A5: GoTo loc_008466C3 + loc_008468AA: End If + loc_008468B0: GoTo loc_008468C6 + loc_008468C5: Exit Sub + loc_008468C6: 'Referenced from: 008468B0 + loc_00846912: Exit Sub + loc_00846923: Exit Sub +End Sub + +Public Sub Proc_9_16_846930 + Dim global_00886014 As Me + loc_0084699D: ReDim global_0088603C(0 To global_00886040) + loc_008469B1: global_886040 = &H64 + loc_008469BA: ReDim global_0088603C(0 To 100) + loc_008469C7: If global_886010 = 2 Then + loc_008469D5: GoTo loc_008469E3 + loc_008469D7: End If + loc_008469FD: Open global_00886014 & "bgListLE.txt" For Input As #1 Len = -1 + loc_00846A0F: GoTo loc_00846A13 + loc_00846A13: 'Referenced from: 00846A0F + loc_00846A1E: If EOF(1) = 0 Then + loc_00846A26: Line Input #1, var_24 + loc_00846A4B: var_44 = LCase$(Left$(var_24, 4)) + loc_00846A66: esi = (var_44 = "[bg]") + 1 + loc_00846A78: If (var_44 = "[bg]") + 1 = 0 Then GoTo loc_00846A13 + loc_00846A7A: End If + loc_00846A85: If EOF(1) = 0 Then + loc_00846A97: Line Input #1, var_1C + loc_00846A9F: Line Input #1, var_30 + loc_00846AA7: Line Input #1, var_38 + loc_00846AAF: Line Input #1, var_18 + loc_00846AB7: Line Input #1, var_2C + loc_00846ABF: Line Input #1, var_20 + loc_00846AC7: Line Input #1, var_28 + loc_00846ACF: Line Input #1, var_14 + loc_00846AD7: Line Input #1, var_34 + loc_00846AE0: If 0088603Ch Then + loc_00846AE6: If 0088603Ch = 1 Then + loc_00846AF2: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846AF6: If var_3C >= 0 Then + loc_00846AF8: var_eax = Err.Raise + loc_00846AFE: End If + loc_00846B05: ebx*8 = ebx*8 - var_3C + loc_00846B0A: GoTo loc_00846B14 + loc_00846B0C: End If + loc_00846B0C: End If + loc_00846B0C: var_eax = Err.Raise + loc_00846B14: 'Referenced from: 00846B0A + loc_00846B2B: Len(var_1C) = Len(var_1C) - 00000009h + loc_00846B5F: ecx = global_00886014 & Right$(var_1C, Len(var_1C)) + loc_00846B7F: If var_88603C Then + loc_00846B85: If 0088603Ch = 1 Then + loc_00846B91: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846B95: var_58 = var_3C + loc_00846B98: If var_3C >= 0 Then + loc_00846B9A: var_eax = Err.Raise + loc_00846BA0: End If + loc_00846BA6: var_3C = var_3C - var_58 + loc_00846BAB: GoTo loc_00846BB5 + loc_00846BAD: End If + loc_00846BAD: End If + loc_00846BAD: var_eax = Err.Raise + loc_00846BB5: 'Referenced from: 00846BAB + loc_00846BC2: Len(var_30) = Len(var_30) - 0000000Dh + loc_00846BE0: "bgList.txt".GetTypeInfoCount 'Ignore this = "bgList.txt".GetTypeInfoCount 'Ignore this + Err.Raise + loc_00846BE2: ecx = Right$(var_30, Len(var_30)) + loc_00846BF8: If var_88603C Then + loc_00846BFE: If 0088603Ch = 1 Then + loc_00846C0A: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846C0E: var_58 = var_3C + loc_00846C11: If var_3C >= 0 Then + loc_00846C13: var_eax = Err.Raise + loc_00846C19: End If + loc_00846C1F: var_3C = var_3C - var_58 + loc_00846C24: GoTo loc_00846C2E + loc_00846C26: End If + loc_00846C26: End If + loc_00846C26: var_eax = Err.Raise + loc_00846C2E: 'Referenced from: 00846C24 + loc_00846C3B: Len(var_38) = Len(var_38) - 00000006h + loc_00846C4D: var_40 = Right$(var_38, Len(var_38)) + loc_00846C7A: If var_88603C Then + loc_00846C80: If 0088603Ch = 1 Then + loc_00846C8C: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846C90: var_58 = var_3C + loc_00846C93: If var_3C >= 0 Then + loc_00846C95: var_eax = Err.Raise + loc_00846C9B: End If + loc_00846CA1: var_3C = var_3C - var_58 + loc_00846CA6: GoTo loc_00846CB0 + loc_00846CA8: End If + loc_00846CA8: End If + loc_00846CA8: var_eax = Err.Raise + loc_00846CB0: 'Referenced from: 00846CA6 + loc_00846CBD: Len(var_18) = Len(var_18) - 00000007h + loc_00846CCF: var_40 = Right$(var_18, Len(var_18)) + loc_00846CFC: If var_88603C Then + loc_00846D02: If 0088603Ch = 1 Then + loc_00846D0E: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846D12: var_58 = var_3C + loc_00846D15: If var_3C >= 0 Then + loc_00846D17: var_eax = Err.Raise + loc_00846D1D: End If + loc_00846D23: var_3C = var_3C - var_58 + loc_00846D28: GoTo loc_00846D32 + loc_00846D2A: End If + loc_00846D2A: End If + loc_00846D2A: var_eax = Err.Raise + loc_00846D32: 'Referenced from: 00846D28 + loc_00846D3C: Len(var_2C) = Len(var_2C) - 00000008h + loc_00846D51: var_40 = Right$(var_2C, Len(var_2C)) + loc_00846D7E: If var_88603C Then + loc_00846D84: If 0088603Ch = 1 Then + loc_00846D90: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846D94: var_58 = var_3C + loc_00846D97: If var_3C >= 0 Then + loc_00846D99: var_eax = Err.Raise + loc_00846D9F: End If + loc_00846DA5: var_3C = var_3C - var_58 + loc_00846DAA: GoTo loc_00846DB4 + loc_00846DAC: End If + loc_00846DAC: End If + loc_00846DAC: var_eax = Err.Raise + loc_00846DB4: 'Referenced from: 00846DAA + loc_00846DC1: Len(var_20) = Len(var_20) - 0000000Ah + loc_00846DD3: var_40 = Right$(var_20, Len(var_20)) + loc_00846E00: If var_88603C Then + loc_00846E06: If 0088603Ch = 1 Then + loc_00846E12: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846E16: If var_3C >= 0 Then + loc_00846E18: var_eax = Err.Raise + loc_00846E1E: End If + loc_00846E25: ebx*8 = ebx*8 - var_3C + loc_00846E30: GoTo loc_00846E3A + loc_00846E32: End If + loc_00846E32: End If + loc_00846E32: var_eax = Err.Raise + loc_00846E3A: 'Referenced from: 00846E30 + loc_00846E44: Len(var_28) = Len(var_28) - 00000009h + loc_00846E59: var_40 = Right$(var_28, Len(var_28)) + loc_00846E9A: var_44 = LCase$(Right$(var_14, 2)) + loc_00846EB5: esi = (var_44 = "no") + 1 + loc_00846ECD: If (var_44 = "no") + 1 Then + loc_00846ED1: If var_88603C Then + loc_00846ED7: If 0088603Ch = 1 Then + loc_00846EE3: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846EE7: If var_3C >= 0 Then + loc_00846EE9: var_eax = Err.Raise + loc_00846EF5: End If + loc_00846EFF: esi*8 = esi*8 - var_3C + loc_00846F0B: GoTo loc_00846F6F + loc_00846F0D: End If + loc_00846F0D: End If + loc_00846F0D: var_eax = Err.Raise + loc_00846F23: GoTo loc_00846F6F + loc_00846F25: End If + loc_00846F27: If "bgList.txt".GetTypeInfoCount 'Ignore this Then + loc_00846F2D: If ecx = 1 Then + loc_00846F39: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846F3D: If var_3C >= 0 Then + loc_00846F3F: var_eax = Err.Raise + loc_00846F4B: End If + loc_00846F52: esi*8 = esi*8 - var_3C + loc_00846F57: GoTo loc_00846F65 + loc_00846F59: End If + loc_00846F59: End If + loc_00846F59: var_eax = Err.Raise + loc_00846F65: 'Referenced from: 00846F57 + loc_00846F6F: 'Referenced from: 00846F0B + loc_00846F8A: var_44 = LCase$(Right$(var_34, 2)) + loc_00846FA5: esi = (var_44 = "no") + 1 + loc_00846FBD: If (var_44 = "no") + 1 Then + loc_00846FC1: If var_88603C Then + loc_00846FC7: If 0088603Ch = 1 Then + loc_00846FD3: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00846FD7: If var_3C >= 0 Then + loc_00846FD9: var_eax = Err.Raise + loc_00846FE5: End If + loc_00846FEF: esi*8 = esi*8 - var_3C + loc_00846FFB: GoTo loc_0084705F + loc_00846FFD: End If + loc_00846FFD: End If + loc_00846FFD: var_eax = Err.Raise + loc_00847013: GoTo loc_0084705F + loc_00847015: End If + loc_00847017: If "bgList.txt".GetTypeInfoCount 'Ignore this Then + loc_0084701D: If ecx = 1 Then + loc_00847029: var_3C = var_3C - "bgList.txt".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084702D: If var_3C >= 0 Then + loc_0084702F: var_eax = Err.Raise + loc_0084703B: End If + loc_00847042: esi*8 = esi*8 - var_3C + loc_00847047: GoTo loc_00847055 + loc_00847049: End If + loc_00847049: End If + loc_00847049: var_eax = Err.Raise + loc_00847055: 'Referenced from: 00847047 + loc_0084705F: 'Referenced from: 00846FFB + loc_00847063: var_3C = var_3C + 0001h + loc_00847074: var_3C = "bgList.txt".QueryInterface 'Ignore this + loc_00847077: If var_3C+0001h <= var_886040 Then GoTo loc_00846A11 + loc_0084707F: End If + loc_0084707F: var_eax = Close + loc_00847089: var_3C = var_3C - 0001h + loc_00847093: global_886040 = "bgList.txt".QueryInterface + loc_008470AC: ReDim Preserve global_0088603C(0 To var_3C-0001h) + loc_008470BB: GoTo loc_008470D1 + loc_008470D0: Exit Sub + loc_008470D1: 'Referenced from: 008470BB + loc_00847109: Exit Sub + loc_0084711A: Exit Sub +End Sub + +Public Sub Proc_9_17_8471A0 + Dim global_00886014 As Me + Dim var_1C As Me + loc_008471F0: If 00000001h <= 5 Then + loc_008471FD: If Not Sign(00000001h And 1 - 0) Then + loc_008471FF: eax = 00000001h And 1 - 1 + loc_00847205: eax = 00000001h And 1 - 1 Or 16777214 + 1 + loc_00847207: End If + loc_00847207: If 00000001h And 1 - 1 Or 16777214 + 1 = 0 Then + loc_00847215: GoTo loc_00847223 + loc_00847217: End If + loc_0084722E: var_14 = global_00886014 & "sfx\thud2.wav" + loc_00847254: If 00886548h Then + loc_0084725A: If 00886548h = 1 Then + loc_00847265: 00000001h = 00000001h - "sfx\thud.wav".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847269: If 00000001h >= 0 Then + loc_0084726B: var_eax = Err.Raise + loc_0084726D: End If + loc_0084726D: 00000001h = 00000001h + 00000001h + loc_0084726F: GoTo loc_00847275 + loc_00847271: End If + loc_00847271: End If + loc_00847271: var_eax = Err.Raise + loc_00847275: 'Referenced from: 0084726F + loc_00847285: var_eax = Proc_10_18_84C230(var_14, var_60, var_2C) + loc_008472C7: If var_1C Then + loc_008472CD: If var_1C = 1 Then + loc_008472D8: 00000001h = 00000001h - "sfx\thud.wav".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008472DC: If 00000001h >= 0 Then + loc_008472DE: var_eax = Err.Raise + loc_008472E3: End If + loc_008472E6: GoTo loc_008472ED + loc_008472E8: End If + loc_008472E8: End If + loc_008472E8: var_eax = Err.Raise + loc_008472ED: 'Referenced from: 008472E6 + loc_008472F3: "sfx\thud.wav".GetTypeInfoCount 'Ignore this = "sfx\thud.wav".GetTypeInfoCount 'Ignore this + Err.Raise + loc_008472F7: var_eax = Proc_10_22_84E1A0("sfx\thud.wav".GetTypeInfoCount, var_64, 1) + loc_0084730B: 00000001h = 00000001h + 00000001h + loc_00847314: var_eax = Unknown_123(ebx) + loc_00847319: End If + loc_0084731E: GoTo loc_0084733E + loc_0084733D: Exit Sub + loc_0084733E: 'Referenced from: 0084731E + loc_00847347: Exit Sub + loc_00847358: Exit Sub +End Sub + +Public Sub Proc_9_18_847360 + loc_008473BC: ReDim global_00886590(0 To 4) + loc_008473D9: + loc_008473E1: If 00000001h <= 4 Then + loc_00847440: var_14 = global_00886014 & "sfx\beep" & Trim$(Str$(1)) & ".wav" + loc_0084747D: If 00886590h Then + loc_00847483: If 00886590h = 1 Then + loc_0084748C: var_18 = var_18 - @%StkVar2 & %x1.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847496: If var_18 >= 0 Then + loc_00847498: var_eax = Err.Raise + loc_008474A1: End If + loc_008474A1: var_70 = var_70 + var_70 + loc_008474A3: var_80 = var_70+var_70 + loc_008474A6: GoTo loc_008474B1 + loc_008474A8: End If + loc_008474A8: End If + loc_008474A8: var_eax = Err.Raise + loc_008474AE: var_80 = Err.Raise + loc_008474B1: 'Referenced from: 008474A6 + loc_008474C1: var_eax = Proc_10_18_84C230(var_14, var_6C, var_38) + loc_008474EE: 00000001h = 00000001h + 1 + loc_008474F4: var_18 = 00000001h+var_18 + loc_008474F7: GoTo loc_008473D9 + loc_008474FC: End If + loc_00847501: GoTo loc_0084752F + loc_0084752E: Exit Sub + loc_0084752F: 'Referenced from: 00847501 + loc_00847538: Exit Sub + loc_00847549: Exit Sub +End Sub + +Public Sub Proc_9_19_847550 + loc_0084759A: ReDim global_00886594(0 To 1) + loc_008475B0: If 00000001h <= 1 Then + loc_008475E5: var_18 = global_00886014 & "sfx\buttonEcho.wav" + loc_008475F2: If 00886594h Then + loc_008475F8: If 00886594h = 1 Then + loc_00847603: 00000001h = 00000001h - 00000001h.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847607: If 00000001h >= 0 Then + loc_00847609: var_eax = Err.Raise + loc_0084760F: End If + loc_0084760F: 00000001h = 00000001h + 00000001h + loc_00847611: GoTo loc_0084761B + loc_00847613: End If + loc_00847613: End If + loc_00847613: var_eax = Err.Raise + loc_0084761B: 'Referenced from: 00847611 + loc_0084762B: var_eax = Proc_10_18_84C230(var_18, var_5C, var_28) + loc_0084765E: 00000001h = 00000001h + 00000001h + loc_00847665: var_eax = Unknown_B4 + loc_0084766A: End If + loc_0084766F: GoTo loc_0084768E + loc_0084768D: Exit Sub + loc_0084768E: 'Referenced from: 0084766F + loc_0084768E: Exit Sub + loc_0084769F: Exit Sub +End Sub + +Public Sub Proc_9_20_8476B0 + Dim var_14 As Me + loc_00847702: var_3C = Rnd(10) + loc_00847715: If var_14 Then + loc_0084771B: If var_14 = 1 Then + loc_0084774D: CLng((Int(var_3C) + global_401850)) = CLng((Int(var_3C) + global_401850)) - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847751: If CLng((Int(var_3C) + global_401850)) >= 0 Then + loc_00847753: var_eax = Err.Raise + loc_00847759: End If + loc_0084775C: GoTo loc_00847764 + loc_0084775E: End If + loc_0084775E: End If + loc_0084775E: var_eax = Err.Raise + loc_00847764: 'Referenced from: 0084775C + loc_00847771: var_eax = Proc_10_23_84E330(var_14.GetTypeInfoCount, 0, CLng((Int(var_3C) + global_401850))) + loc_0084778F: GoTo loc_008477A5 + loc_008477A4: Exit Sub + loc_008477A5: 'Referenced from: 0084778F +End Sub + +Public Sub Proc_9_21_8477C0 + Dim var_50 As Me + Dim var_20 As Me + Dim global_00886564 As Me + loc_0084782E: ReDim global_00886564(0 To 8, 0 To 2) + loc_00847843: ReDim global_00886568(0 To 8) + loc_00847867: If 00000001h <= 8 Then + loc_00847875: If 00886568h Then + loc_0084787B: If 00886568h = 1 Then + loc_00847886: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084788A: If 00000001h >= 0 Then + loc_0084788C: var_eax = Err.Raise + loc_00847898: End If + loc_0084789B: GoTo loc_008478A9 + loc_0084789D: End If + loc_0084789D: End If + loc_0084789D: var_eax = Err.Raise + loc_008478A9: 'Referenced from: 0084789B + loc_00847910: var_14 = global_00886014 & "sfx\break" & Trim$(Str$(1)) & ".wav" + loc_0084793D: var_eax = Unknown_E8458960 + loc_00847963: If 00886564h Then + loc_00847969: If 00886564h = 2 Then + loc_00847975: var_18 = var_18 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0084797C: If var_18 >= 0 Then + loc_0084797E: var_eax = Err.Raise + loc_00847989: End If + loc_00847992: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847996: If 00000001h >= 0 Then + loc_00847998: var_eax = Err.Raise + loc_008479A3: End If + loc_008479AC: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_80 + loc_008479B2: GoTo loc_008479BC + loc_008479B4: End If + loc_008479B4: End If + loc_008479B4: var_eax = Err.Raise + loc_008479BC: 'Referenced from: 008479B2 + loc_008479CC: var_eax = Proc_10_18_84C230(var_14, var_74, var_40) + loc_00847A0E: If var_20 Then + loc_00847A14: If var_20 = 2 Then + loc_00847A20: var_18 = var_18 - var_50.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00847A24: If var_18 >= 0 Then + loc_00847A26: var_eax = Err.Raise + loc_00847A2F: End If + loc_00847A39: var_1C = var_1C - var_50.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847A3D: If var_1C >= 0 Then + loc_00847A3F: var_eax = Err.Raise + loc_00847A48: End If + loc_00847A4E: var_50.%x1 = Invoke 'Ignore this = var_50.%x1 = Invoke 'Ignore this + 1 + loc_00847A54: GoTo loc_00847A5F + loc_00847A56: End If + loc_00847A56: End If + loc_00847A56: var_eax = Err.Raise + loc_00847A5F: 'Referenced from: 00847A54 + loc_00847A69: var_eax = Proc_10_22_84E1A0(var_50.GetTypeInfoCount, var_78) + loc_00847A7D: 00000001h = 00000001h + var_1C + loc_00847A83: var_1C = 00000001h+var_1C + loc_00847A88: var_eax = Unknown_14A(var_20) + loc_00847A92: 00000001h = 00000001h + 1 + loc_00847A98: var_18 = 00000001h+var_18 + loc_00847A9B: GoTo loc_00847860 + loc_00847AA0: End If + loc_00847AA5: GoTo loc_00847ADD + loc_00847ADC: Exit Sub + loc_00847ADD: 'Referenced from: 00847AA5 + loc_00847AE6: Exit Sub + loc_00847AF7: Exit Sub +End Sub + +Public Sub Proc_9_22_847B00 + loc_00847B65: ReDim global_00886570(0 To 6, 0 To 2) + loc_00847B7A: ReDim global_00886574(0 To 6) + loc_00847B98: If 00000001h <= 6 Then + loc_00847BA6: If 00886574h Then + loc_00847BAC: If 00886574h = 1 Then + loc_00847BB7: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847BBB: If 00000001h >= 0 Then + loc_00847BBD: var_eax = Err.Raise + loc_00847BC9: End If + loc_00847BCC: GoTo loc_00847BDA + loc_00847BCE: End If + loc_00847BCE: End If + loc_00847BCE: var_eax = Err.Raise + loc_00847BDA: 'Referenced from: 00847BCC + loc_00847C41: var_14 = global_00886014 & "sfx\shatter" & Trim$(Str$(1)) & ".wav" + loc_00847C6E: var_eax = Unknown_E8458958 + loc_00847C98: If var_886570 Then + loc_00847C9E: If 00886570h = 2 Then + loc_00847CAA: var_18 = var_18 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00847CB1: If var_18 >= 0 Then + loc_00847CB3: var_eax = Err.Raise + loc_00847CBE: End If + loc_00847CC7: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847CCB: If 00000001h >= 0 Then + loc_00847CCD: var_eax = Err.Raise + loc_00847CD8: End If + loc_00847CE4: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_78 + loc_00847CE8: GoTo loc_00847CF2 + loc_00847CEA: End If + loc_00847CEA: End If + loc_00847CEA: var_eax = Err.Raise + loc_00847CF2: 'Referenced from: 00847CE8 + loc_00847D02: var_eax = Proc_10_18_84C230(var_14, var_70, var_3C) + loc_00847D2C: 00000001h = 00000001h + var_1C + loc_00847D31: var_1C = 00000001h+var_1C + loc_00847D36: var_eax = Unknown_C7 + loc_00847D40: 00000001h = 00000001h + 1 + loc_00847D46: var_18 = 00000001h+var_18 + loc_00847D4B: GoTo loc_00847B94 + loc_00847D50: End If + loc_00847D55: GoTo loc_00847D83 + loc_00847D82: Exit Sub + loc_00847D83: 'Referenced from: 00847D55 + loc_00847D8C: Exit Sub + loc_00847D9D: Exit Sub +End Sub + +Public Sub Proc_9_23_847DB0 + loc_00847E15: ReDim global_0088654C(0 To 2, 0 To 4) + loc_00847E2A: ReDim global_00886550(0 To 2) + loc_00847E3D: + loc_00847E45: If 00000001h <= 2 Then + loc_00847E53: If 00886550h Then + loc_00847E59: If 00886550h = 1 Then + loc_00847E64: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847E68: If 00000001h >= 0 Then + loc_00847E6A: var_eax = Err.Raise + loc_00847E76: End If + loc_00847E79: GoTo loc_00847E87 + loc_00847E7B: End If + loc_00847E7B: End If + loc_00847E7B: var_eax = Err.Raise + loc_00847E87: 'Referenced from: 00847E79 + loc_00847EEE: var_14 = global_00886014 & "sfx\smallExplode" & Trim$(Str$(1)) & ".wav" + loc_00847F1B: var_eax = Unknown_E8458958 + loc_00847F45: If var_88654C Then + loc_00847F4B: If 0088654Ch = 2 Then + loc_00847F57: var_18 = var_18 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00847F5E: If var_18 >= 0 Then + loc_00847F60: var_eax = Err.Raise + loc_00847F6B: End If + loc_00847F74: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00847F78: If 00000001h >= 0 Then + loc_00847F7A: var_eax = Err.Raise + loc_00847F85: End If + loc_00847F91: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_78 + loc_00847F95: GoTo loc_00847F9F + loc_00847F97: End If + loc_00847F97: End If + loc_00847F97: var_eax = Err.Raise + loc_00847F9F: 'Referenced from: 00847F95 + loc_00847FAF: var_eax = Proc_10_18_84C230(var_14, var_70, var_3C) + loc_00847FD9: 00000001h = 00000001h + var_1C + loc_00847FDE: var_1C = 00000001h+var_1C + loc_00847FE3: var_eax = Unknown_C7 + loc_00847FED: 00000001h = 00000001h + 1 + loc_00847FF3: var_18 = 00000001h+var_18 + loc_00847FF8: GoTo loc_00847E3D + loc_00847FFD: End If + loc_00848002: GoTo loc_00848030 + loc_0084802F: Exit Sub + loc_00848030: 'Referenced from: 00848002 + loc_00848039: Exit Sub + loc_0084804A: Exit Sub +End Sub + +Public Sub Proc_9_24_848060 + loc_008480C5: ReDim global_00886554(0 To 4, 0 To 2) + loc_008480DA: ReDim global_00886558(0 To 4) + loc_008480ED: + loc_008480F5: If 00000001h <= 4 Then + loc_00848103: If 00886558h Then + loc_00848109: If 00886558h = 1 Then + loc_00848114: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848118: If 00000001h >= 0 Then + loc_0084811A: var_eax = Err.Raise + loc_00848126: End If + loc_00848129: GoTo loc_00848137 + loc_0084812B: End If + loc_0084812B: End If + loc_0084812B: var_eax = Err.Raise + loc_00848137: 'Referenced from: 00848129 + loc_0084819E: var_14 = global_00886014 & "sfx\mediumExplode" & Trim$(Str$(1)) & ".wav" + loc_008481CB: var_eax = Unknown_E8458958 + loc_008481F5: If var_886554 Then + loc_008481FB: If 00886554h = 2 Then + loc_00848207: var_18 = var_18 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_0084820E: If var_18 >= 0 Then + loc_00848210: var_eax = Err.Raise + loc_0084821B: End If + loc_00848224: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848228: If 00000001h >= 0 Then + loc_0084822A: var_eax = Err.Raise + loc_00848235: End If + loc_00848241: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_78 + loc_00848245: GoTo loc_0084824F + loc_00848247: End If + loc_00848247: End If + loc_00848247: var_eax = Err.Raise + loc_0084824F: 'Referenced from: 00848245 + loc_0084825F: var_eax = Proc_10_18_84C230(var_14, var_70, var_3C) + loc_00848289: 00000001h = 00000001h + var_1C + loc_0084828E: var_1C = 00000001h+var_1C + loc_00848293: var_eax = Unknown_C7 + loc_0084829D: 00000001h = 00000001h + 1 + loc_008482A3: var_18 = 00000001h+var_18 + loc_008482A8: GoTo loc_008480ED + loc_008482AD: End If + loc_008482B2: GoTo loc_008482E0 + loc_008482DF: Exit Sub + loc_008482E0: 'Referenced from: 008482B2 + loc_008482E9: Exit Sub + loc_008482FA: Exit Sub +End Sub + +Public Sub Proc_9_25_848310 + loc_00848375: ReDim global_0088655C(0 To 3, 0 To 1) + loc_0084838A: ReDim global_00886560(0 To 3) + loc_008483A8: If 00000001h <= 3 Then + loc_008483B6: If 00886560h Then + loc_008483BC: If 00886560h = 1 Then + loc_008483C7: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008483CB: If 00000001h >= 0 Then + loc_008483CD: var_eax = Err.Raise + loc_008483D9: End If + loc_008483DC: GoTo loc_008483EA + loc_008483DE: End If + loc_008483DE: End If + loc_008483DE: var_eax = Err.Raise + loc_008483EA: 'Referenced from: 008483DC + loc_00848451: var_14 = global_00886014 & "sfx\largeExplode" & Trim$(Str$(1)) & ".wav" + loc_0084847E: var_eax = Unknown_E8458958 + loc_008484A8: If var_88655C Then + loc_008484AE: If 0088655Ch = 2 Then + loc_008484BA: var_18 = var_18 - .%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008484C1: If var_18 >= 0 Then + loc_008484C3: var_eax = Err.Raise + loc_008484CE: End If + loc_008484D7: 00000001h = 00000001h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008484DB: If 00000001h >= 0 Then + loc_008484DD: var_eax = Err.Raise + loc_008484E8: End If + loc_008484F4: .%x1 = Invoke 'Ignore this = .%x1 = Invoke 'Ignore this + var_78 + loc_008484F8: GoTo loc_00848502 + loc_008484FA: End If + loc_008484FA: End If + loc_008484FA: var_eax = Err.Raise + loc_00848502: 'Referenced from: 008484F8 + loc_00848512: var_eax = Proc_10_18_84C230(var_14, var_70, var_3C) + loc_0084853C: 00000001h = 00000001h + var_1C + loc_00848541: var_1C = 00000001h+var_1C + loc_00848546: var_eax = Unknown_C7 + loc_00848550: 00000001h = 00000001h + 1 + loc_00848556: var_18 = 00000001h+var_18 + loc_0084855B: GoTo loc_008483A4 + loc_00848560: End If + loc_00848565: GoTo loc_00848593 + loc_00848592: Exit Sub + loc_00848593: 'Referenced from: 00848565 + loc_0084859C: Exit Sub + loc_008485AD: Exit Sub +End Sub + +Public Sub Proc_9_26_8485C0 + Dim global_00886014 As Me + loc_0084860A: ReDim global_00886580(0 To 4) + loc_00848629: If 00000001h <= 4 Then + loc_00848638: If esi-00000001h <= 3 Then + loc_0084863A: GoTo loc_[eax*4+00848748h] + loc_0084864C: GoTo loc_00848675 + loc_0084865A: GoTo loc_00848675 + loc_00848668: GoTo loc_00848675 + loc_00848680: var_14 = global_00886014 & "sfx\excellent1.wav" + loc_00848682: End If + loc_008486A6: If var_886580 Then + loc_008486AC: If 00886580h = 1 Then + loc_008486B4: 00000001h = 00000001h - "sfx\outstanding4.wav".%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008486B8: If 00000001h >= 0 Then + loc_008486BA: var_eax = Err.Raise + loc_008486C0: End If + loc_008486C0: 00000001h = 00000001h + 00000001h + loc_008486C2: GoTo loc_008486CC + loc_008486C4: End If + loc_008486C4: End If + loc_008486C4: var_eax = Err.Raise + loc_008486CC: 'Referenced from: 008486C2 + loc_008486DC: var_eax = Proc_10_18_84C230(var_14, var_5C, var_28) + loc_00848706: 00000001h = 00000001h + 00000001h + loc_0084870D: GoTo loc_00848625 + loc_00848712: End If + loc_00848717: GoTo loc_0084872D + loc_0084872C: Exit Sub + loc_0084872D: 'Referenced from: 00848717 + loc_00848736: Exit Sub + loc_00848747: Exit Sub + loc_00848748: ecx = var_10 + 1 + loc_00848749: xchg al, [eax+eax+0084864Eh] + loc_00848751: xchg al, [eax+eax+0084866Ah] +End Sub + +Public Sub Proc_9_27_848760 + Dim var_18 As Me + loc_008487DA: var_14 = CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) + loc_008487F9: If var_18 Then + loc_008487FF: If var_18 = 1 Then + loc_00848810: CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848814: If CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) >= 0 Then + loc_00848816: var_eax = Err.Raise + loc_0084881B: End If + loc_0084881E: GoTo loc_0084882B + loc_00848820: End If + loc_00848820: End If + loc_00848826: var_eax = Err.Raise + loc_0084882B: 'Referenced from: 0084881E + loc_00848835: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, CInt((Int((Rnd(var_28) * global_401770)) + global_401850))) + loc_00848862: If var_18 Then + loc_00848868: If var_18 = 1 Then + loc_00848874: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848878: If var_14 >= 0 Then + loc_0084887A: var_eax = Err.Raise + loc_0084887F: End If + loc_00848882: GoTo loc_00848889 + loc_00848884: End If + loc_00848884: End If + loc_00848884: var_eax = Err.Raise + loc_00848889: 'Referenced from: 00848882 + loc_00848893: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C, undef 'Ignore this) + loc_008488A4: GoTo loc_008488BA + loc_008488B9: Exit Sub + loc_008488BA: 'Referenced from: 008488A4 + loc_008488BA: Exit Sub +End Sub diff --git a/LICENSE b/src/LICENSE similarity index 100% rename from LICENSE rename to src/LICENSE diff --git a/src/MIDASFunctions.bas b/src/MIDASFunctions.bas new file mode 100644 index 0000000..e69de29 diff --git a/src/MainGame.bas b/src/MainGame.bas new file mode 100644 index 0000000..e69de29 diff --git a/src/MiscFunctions.bas b/src/MiscFunctions.bas new file mode 100644 index 0000000..e69de29 diff --git a/src/Project.vbp b/src/Project.vbp new file mode 100644 index 0000000..521e41c --- /dev/null +++ b/src/Project.vbp @@ -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 + diff --git a/src/SoundFunctions.bas b/src/SoundFunctions.bas new file mode 100644 index 0000000..ee65483 --- /dev/null +++ b/src/SoundFunctions.bas @@ -0,0 +1,3641 @@ + +Public Sub Proc_10_0_8488E0 + Dim var_14 As Me + loc_00848932: var_3C = Rnd(10) + loc_00848945: If var_14 Then + loc_0084894B: If var_14 = 1 Then + loc_00848983: CLng((Int((var_3C * global_401770)) + global_401850)) = CLng((Int((var_3C * global_401770)) + global_401850)) - var_14.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848987: If CLng((Int((var_3C * global_401770)) + global_401850)) >= 0 Then + loc_00848989: var_eax = Err.Raise + loc_0084898F: End If + loc_00848992: GoTo loc_0084899A + loc_00848994: End If + loc_00848994: End If + loc_00848994: var_eax = Err.Raise + loc_0084899A: 'Referenced from: 00848992 + loc_008489A7: var_eax = Proc_10_23_84E330(var_14.GetTypeInfoCount, 0, CLng((Int((var_3C * global_401770)) + global_401850))) + loc_008489C5: GoTo loc_008489DB + loc_008489DA: Exit Sub + loc_008489DB: 'Referenced from: 008489C5 +End Sub + +Public Sub Proc_10_1_848A00 + Dim var_14 As Me + loc_00848A31: 0088680Ch = 0088680Ch + 0001h + loc_00848A45: global_88680C = edi.QueryInterface 'Ignore this + loc_00848A4B: If 0088680Ch+0001h > 5 Then + loc_00848A4D: global_88680C = 1 + loc_00848A56: End If + loc_00848A6B: If var_14 Then + loc_00848A71: If var_14 = 1 Then + loc_00848A86: 0088680Ch = 0088680Ch - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848A8A: If 0088680Ch >= 0 Then + loc_00848A8C: var_eax = Err.Raise + loc_00848A91: End If + loc_00848A96: GoTo loc_00848AA3 + loc_00848A98: End If + loc_00848A98: End If + loc_00848A9E: var_eax = Err.Raise + loc_00848AA3: 'Referenced from: 00848A96 + loc_00848AA9: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00848AAD: var_eax = Proc_84A0F0(edi.GetTypeInfoCount, Me, ebx) + loc_00848AD6: If var_14 Then + loc_00848ADC: If var_14 = 1 Then + loc_00848AEB: 0088680Ch = 0088680Ch - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848AEF: If 0088680Ch >= 0 Then + loc_00848AF1: var_eax = Err.Raise + loc_00848AF6: End If + loc_00848AF9: GoTo loc_00848B00 + loc_00848AFB: End If + loc_00848AFB: End If + loc_00848AFB: var_eax = Err.Raise + loc_00848B00: 'Referenced from: 00848AF9 + loc_00848B06: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00848B0A: var_eax = Proc_10_23_84E330(edi.GetTypeInfoCount, var_18, ) + loc_00848B1A: GoTo loc_00848B27 + loc_00848B26: Exit Sub + loc_00848B27: 'Referenced from: 00848B1A + loc_00848B27: Exit Sub +End Sub + +Public Sub Proc_10_2_848B50 + Dim var_18 As Me + loc_00848BCA: var_14 = CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) + loc_00848BE9: If var_18 Then + loc_00848BEF: If var_18 = 2 Then + loc_00848C02: CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00848C06: If CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) >= 0 Then + loc_00848C08: var_eax = Err.Raise + loc_00848C0D: End If + loc_00848C15: If var_886568 Then + loc_00848C1B: If 00886568h = 1 Then + loc_00848C20: CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848C27: If CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) >= 0 Then + loc_00848C29: var_eax = Err.Raise + loc_00848C34: End If + loc_00848C37: GoTo loc_00848C44 + loc_00848C39: End If + loc_00848C39: End If + loc_00848C39: var_eax = Err.Raise + loc_00848C44: 'Referenced from: 00848C37 + loc_00848C51: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848C55: If edx+eax >= 0 Then + loc_00848C57: var_eax = Err.Raise + loc_00848C5C: End If + loc_00848C62: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + CInt((Int((Rnd(var_28) * global_401CA0)) + global_401850)) + loc_00848C66: GoTo loc_00848C73 + loc_00848C68: End If + loc_00848C68: End If + loc_00848C6E: var_eax = Err.Raise + loc_00848C73: 'Referenced from: 00848C66 + loc_00848C7D: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, ) + loc_00848CA8: If var_18 Then + loc_00848CAE: If var_18 = 2 Then + loc_00848CBC: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00848CC0: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_00848CC2: var_eax = Err.Raise + loc_00848CC7: End If + loc_00848CCF: If var_886568 Then + loc_00848CD5: If 00886568h = 1 Then + loc_00848CDA: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848CE1: If var_14 >= 0 Then + loc_00848CE3: var_eax = Err.Raise + loc_00848CEE: End If + loc_00848CF1: GoTo loc_00848CFE + loc_00848CF3: End If + loc_00848CF3: End If + loc_00848CF3: var_eax = Err.Raise + loc_00848CFE: 'Referenced from: 00848CF1 + loc_00848D0B: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848D0F: If edx+eax >= 0 Then + loc_00848D11: var_eax = Err.Raise + loc_00848D16: End If + loc_00848D1C: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00848D20: GoTo loc_00848D27 + loc_00848D22: End If + loc_00848D22: End If + loc_00848D22: var_eax = Err.Raise + loc_00848D27: 'Referenced from: 00848D20 + loc_00848D31: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C) + loc_00848D48: If var_886568 Then + loc_00848D4E: If 00886568h = 1 Then + loc_00848D5A: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848D5E: If var_14 >= 0 Then + loc_00848D60: var_eax = Err.Raise + loc_00848D68: End If + loc_00848D6B: GoTo loc_00848D77 + loc_00848D6D: End If + loc_00848D6D: End If + loc_00848D6D: var_eax = Err.Raise + loc_00848D77: 'Referenced from: 00848D6B + loc_00848D79: If var_886568 Then + loc_00848D7F: If 00886568h = 1 Then + loc_00848D8B: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848D8F: If var_14 >= 0 Then + loc_00848D91: var_eax = Err.Raise + loc_00848D99: End If + loc_00848D9C: GoTo loc_00848DA6 + loc_00848D9E: End If + loc_00848D9E: End If + loc_00848D9E: var_eax = Err.Raise + loc_00848DA6: 'Referenced from: 00848D9C + loc_00848DAD: ecx+edi = ecx+edi + 0001h + loc_00848DC3: If var_886568 Then + loc_00848DC9: If 00886568h = 1 Then + loc_00848DD5: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848DD9: If var_14 >= 0 Then + loc_00848DDB: var_eax = Err.Raise + loc_00848DE3: End If + loc_00848DE6: GoTo loc_00848DF0 + loc_00848DE8: End If + loc_00848DE8: End If + loc_00848DE8: var_eax = Err.Raise + loc_00848DF0: 'Referenced from: 00848DE6 + loc_00848DF8: If edx+eax > 2 Then + loc_00848DFC: If var_886568 Then + loc_00848E02: If 00886568h = 1 Then + loc_00848E0E: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848E12: If var_14 >= 0 Then + loc_00848E14: var_eax = Err.Raise + loc_00848E1C: End If + loc_00848E2E: GoTo loc_00848E5D + loc_00848E30: End If + loc_00848E30: End If + loc_00848E30: var_eax = Err.Raise + loc_00848E41: End If + loc_00848E47: GoTo loc_00848E5D + loc_00848E5C: Exit Sub + loc_00848E5D: 'Referenced from: 00848E2E + loc_00848E5D: Exit Sub +End Sub + +Public Sub Proc_10_3_848E80 + Dim var_18 As Me + loc_00848EFA: var_14 = CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) + loc_00848F19: If var_18 Then + loc_00848F1F: If var_18 = 2 Then + loc_00848F32: CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00848F36: If CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) >= 0 Then + loc_00848F38: var_eax = Err.Raise + loc_00848F3D: End If + loc_00848F45: If var_886574 Then + loc_00848F4B: If 00886574h = 1 Then + loc_00848F50: CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848F57: If CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) >= 0 Then + loc_00848F59: var_eax = Err.Raise + loc_00848F64: End If + loc_00848F67: GoTo loc_00848F74 + loc_00848F69: End If + loc_00848F69: End If + loc_00848F69: var_eax = Err.Raise + loc_00848F74: 'Referenced from: 00848F67 + loc_00848F81: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00848F85: If edx+eax >= 0 Then + loc_00848F87: var_eax = Err.Raise + loc_00848F8C: End If + loc_00848F92: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + CInt((Int((Rnd(var_28) * global_401CB8)) + global_401850)) + loc_00848F96: GoTo loc_00848FA3 + loc_00848F98: End If + loc_00848F98: End If + loc_00848F9E: var_eax = Err.Raise + loc_00848FA3: 'Referenced from: 00848F96 + loc_00848FAD: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, ) + loc_00848FD8: If var_18 Then + loc_00848FDE: If var_18 = 2 Then + loc_00848FEC: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00848FF0: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_00848FF2: var_eax = Err.Raise + loc_00848FF7: End If + loc_00848FFF: If var_886574 Then + loc_00849005: If 00886574h = 1 Then + loc_0084900A: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849011: If var_14 >= 0 Then + loc_00849013: var_eax = Err.Raise + loc_0084901E: End If + loc_00849021: GoTo loc_0084902E + loc_00849023: End If + loc_00849023: End If + loc_00849023: var_eax = Err.Raise + loc_0084902E: 'Referenced from: 00849021 + loc_0084903B: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084903F: If edx+eax >= 0 Then + loc_00849041: var_eax = Err.Raise + loc_00849046: End If + loc_0084904C: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849050: GoTo loc_00849057 + loc_00849052: End If + loc_00849052: End If + loc_00849052: var_eax = Err.Raise + loc_00849057: 'Referenced from: 00849050 + loc_00849061: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C) + loc_00849078: If var_886574 Then + loc_0084907E: If 00886574h = 1 Then + loc_0084908A: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084908E: If var_14 >= 0 Then + loc_00849090: var_eax = Err.Raise + loc_00849098: End If + loc_0084909B: GoTo loc_008490A7 + loc_0084909D: End If + loc_0084909D: End If + loc_0084909D: var_eax = Err.Raise + loc_008490A7: 'Referenced from: 0084909B + loc_008490A9: If var_886574 Then + loc_008490AF: If 00886574h = 1 Then + loc_008490BB: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008490BF: If var_14 >= 0 Then + loc_008490C1: var_eax = Err.Raise + loc_008490C9: End If + loc_008490CC: GoTo loc_008490D6 + loc_008490CE: End If + loc_008490CE: End If + loc_008490CE: var_eax = Err.Raise + loc_008490D6: 'Referenced from: 008490CC + loc_008490DD: ecx+edi = ecx+edi + 0001h + loc_008490F3: If var_886574 Then + loc_008490F9: If 00886574h = 1 Then + loc_00849105: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849109: If var_14 >= 0 Then + loc_0084910B: var_eax = Err.Raise + loc_00849113: End If + loc_00849116: GoTo loc_00849120 + loc_00849118: End If + loc_00849118: End If + loc_00849118: var_eax = Err.Raise + loc_00849120: 'Referenced from: 00849116 + loc_00849128: If edx+eax > 2 Then + loc_0084912C: If var_886574 Then + loc_00849132: If 00886574h = 1 Then + loc_0084913E: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849142: If var_14 >= 0 Then + loc_00849144: var_eax = Err.Raise + loc_0084914C: End If + loc_0084915E: GoTo loc_0084918D + loc_00849160: End If + loc_00849160: End If + loc_00849160: var_eax = Err.Raise + loc_00849171: End If + loc_00849177: GoTo loc_0084918D + loc_0084918C: Exit Sub + loc_0084918D: 'Referenced from: 0084915E + loc_0084918D: Exit Sub +End Sub + +Public Sub Proc_10_4_8491B0 + Dim var_18 As Me + loc_00849226: var_14 = CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) + loc_00849245: If var_18 Then + loc_0084924B: If var_18 = 2 Then + loc_0084925E: CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) = CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849262: If CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) >= 0 Then + loc_00849264: var_eax = Err.Raise + loc_00849269: End If + loc_00849271: If var_886550 Then + loc_00849277: If 00886550h = 1 Then + loc_0084927C: CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) = CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849283: If CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) >= 0 Then + loc_00849285: var_eax = Err.Raise + loc_00849290: End If + loc_00849293: GoTo loc_008492A0 + loc_00849295: End If + loc_00849295: End If + loc_00849295: var_eax = Err.Raise + loc_008492A0: 'Referenced from: 00849293 + loc_008492AD: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008492B1: If edx+eax >= 0 Then + loc_008492B3: var_eax = Err.Raise + loc_008492B8: End If + loc_008492BE: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + CInt((Int((Rnd(var_28) + Rnd(var_28))) + global_401850)) + loc_008492C2: GoTo loc_008492CF + loc_008492C4: End If + loc_008492C4: End If + loc_008492CA: var_eax = Err.Raise + loc_008492CF: 'Referenced from: 008492C2 + loc_008492D9: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, ) + loc_008492FD: If var_18 Then + loc_00849303: If var_18 = 2 Then + loc_00849311: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849315: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_00849317: var_eax = Err.Raise + loc_0084931C: End If + loc_00849324: If var_886550 Then + loc_0084932A: If 00886550h = 1 Then + loc_0084932F: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849336: If var_14 >= 0 Then + loc_00849338: var_eax = Err.Raise + loc_00849343: End If + loc_00849346: GoTo loc_00849353 + loc_00849348: End If + loc_00849348: End If + loc_00849348: var_eax = Err.Raise + loc_00849353: 'Referenced from: 00849346 + loc_00849360: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849364: If edx+eax >= 0 Then + loc_00849366: var_eax = Err.Raise + loc_0084936B: End If + loc_00849371: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849375: GoTo loc_0084937C + loc_00849377: End If + loc_00849377: End If + loc_00849377: var_eax = Err.Raise + loc_0084937C: 'Referenced from: 00849375 + loc_00849386: var_eax = Proc_10_22_84E1A0(var_18.GetTypeInfoCount, arg_C) + loc_008493B1: If var_18 Then + loc_008493B7: If var_18 = 2 Then + loc_008493C5: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008493C9: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_008493CB: var_eax = Err.Raise + loc_008493D0: End If + loc_008493D8: If var_886550 Then + loc_008493DE: If 00886550h = 1 Then + loc_008493E3: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008493EA: If var_14 >= 0 Then + loc_008493EC: var_eax = Err.Raise + loc_008493F7: End If + loc_008493FA: GoTo loc_00849407 + loc_008493FC: End If + loc_008493FC: End If + loc_008493FC: var_eax = Err.Raise + loc_00849407: 'Referenced from: 008493FA + loc_00849414: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849418: If edx+eax >= 0 Then + loc_0084941A: var_eax = Err.Raise + loc_0084941F: End If + loc_00849425: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849429: GoTo loc_00849430 + loc_0084942B: End If + loc_0084942B: End If + loc_0084942B: var_eax = Err.Raise + loc_00849430: 'Referenced from: 00849429 + loc_0084943A: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C) + loc_00849451: If var_886550 Then + loc_00849457: If 00886550h = 1 Then + loc_00849463: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849467: If var_14 >= 0 Then + loc_00849469: var_eax = Err.Raise + loc_00849471: End If + loc_00849474: GoTo loc_00849480 + loc_00849476: End If + loc_00849476: End If + loc_00849476: var_eax = Err.Raise + loc_00849480: 'Referenced from: 00849474 + loc_00849482: If var_886550 Then + loc_00849488: If 00886550h = 1 Then + loc_00849494: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849498: If var_14 >= 0 Then + loc_0084949A: var_eax = Err.Raise + loc_008494A2: End If + loc_008494A5: GoTo loc_008494AF + loc_008494A7: End If + loc_008494A7: End If + loc_008494A7: var_eax = Err.Raise + loc_008494AF: 'Referenced from: 008494A5 + loc_008494B6: ecx+edi = ecx+edi + 0001h + loc_008494CC: If var_886550 Then + loc_008494D2: If 00886550h = 1 Then + loc_008494DE: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008494E2: If var_14 >= 0 Then + loc_008494E4: var_eax = Err.Raise + loc_008494EC: End If + loc_008494EF: GoTo loc_008494F9 + loc_008494F1: End If + loc_008494F1: End If + loc_008494F1: var_eax = Err.Raise + loc_008494F9: 'Referenced from: 008494EF + loc_00849501: If edx+eax > 4 Then + loc_00849505: If var_886550 Then + loc_0084950B: If 00886550h = 1 Then + loc_00849517: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084951B: If var_14 >= 0 Then + loc_0084951D: var_eax = Err.Raise + loc_00849525: End If + loc_00849537: GoTo loc_00849566 + loc_00849539: End If + loc_00849539: End If + loc_00849539: var_eax = Err.Raise + loc_0084954A: End If + loc_00849550: GoTo loc_00849566 + loc_00849565: Exit Sub + loc_00849566: 'Referenced from: 00849537 + loc_00849566: Exit Sub +End Sub + +Public Sub Proc_10_5_849590 + Dim var_18 As Me + loc_0084960A: var_14 = CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) + loc_00849629: If var_18 Then + loc_0084962F: If var_18 = 2 Then + loc_00849642: CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849646: If CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) >= 0 Then + loc_00849648: var_eax = Err.Raise + loc_0084964D: End If + loc_00849655: If var_886558 Then + loc_0084965B: If 00886558h = 1 Then + loc_00849660: CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849667: If CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) >= 0 Then + loc_00849669: var_eax = Err.Raise + loc_00849674: End If + loc_00849677: GoTo loc_00849684 + loc_00849679: End If + loc_00849679: End If + loc_00849679: var_eax = Err.Raise + loc_00849684: 'Referenced from: 00849677 + loc_00849691: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849695: If edx+eax >= 0 Then + loc_00849697: var_eax = Err.Raise + loc_0084969C: End If + loc_008496A2: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + CInt((Int((Rnd(var_28) * global_401770)) + global_401850)) + loc_008496A6: GoTo loc_008496B3 + loc_008496A8: End If + loc_008496A8: End If + loc_008496AE: var_eax = Err.Raise + loc_008496B3: 'Referenced from: 008496A6 + loc_008496BD: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, ) + loc_008496E1: If var_18 Then + loc_008496E7: If var_18 = 2 Then + loc_008496F5: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008496F9: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_008496FB: var_eax = Err.Raise + loc_00849700: End If + loc_00849708: If var_886558 Then + loc_0084970E: If 00886558h = 1 Then + loc_00849713: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084971A: If var_14 >= 0 Then + loc_0084971C: var_eax = Err.Raise + loc_00849727: End If + loc_0084972A: GoTo loc_00849737 + loc_0084972C: End If + loc_0084972C: End If + loc_0084972C: var_eax = Err.Raise + loc_00849737: 'Referenced from: 0084972A + loc_00849744: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849748: If edx+eax >= 0 Then + loc_0084974A: var_eax = Err.Raise + loc_0084974F: End If + loc_00849755: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849759: GoTo loc_00849760 + loc_0084975B: End If + loc_0084975B: End If + loc_0084975B: var_eax = Err.Raise + loc_00849760: 'Referenced from: 00849759 + loc_0084976A: var_eax = Proc_10_22_84E1A0(var_18.GetTypeInfoCount, arg_C) + loc_00849795: If var_18 Then + loc_0084979B: If var_18 = 2 Then + loc_008497A9: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_008497AD: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_008497AF: var_eax = Err.Raise + loc_008497B4: End If + loc_008497BC: If var_886558 Then + loc_008497C2: If 00886558h = 1 Then + loc_008497C7: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008497CE: If var_14 >= 0 Then + loc_008497D0: var_eax = Err.Raise + loc_008497DB: End If + loc_008497DE: GoTo loc_008497EB + loc_008497E0: End If + loc_008497E0: End If + loc_008497E0: var_eax = Err.Raise + loc_008497EB: 'Referenced from: 008497DE + loc_008497F8: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008497FC: If edx+eax >= 0 Then + loc_008497FE: var_eax = Err.Raise + loc_00849803: End If + loc_00849809: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_0084980D: GoTo loc_00849814 + loc_0084980F: End If + loc_0084980F: End If + loc_0084980F: var_eax = Err.Raise + loc_00849814: 'Referenced from: 0084980D + loc_0084981E: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C) + loc_00849835: If var_886558 Then + loc_0084983B: If 00886558h = 1 Then + loc_00849847: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084984B: If var_14 >= 0 Then + loc_0084984D: var_eax = Err.Raise + loc_00849855: End If + loc_00849858: GoTo loc_00849864 + loc_0084985A: End If + loc_0084985A: End If + loc_0084985A: var_eax = Err.Raise + loc_00849864: 'Referenced from: 00849858 + loc_00849866: If var_886558 Then + loc_0084986C: If 00886558h = 1 Then + loc_00849878: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084987C: If var_14 >= 0 Then + loc_0084987E: var_eax = Err.Raise + loc_00849886: End If + loc_00849889: GoTo loc_00849893 + loc_0084988B: End If + loc_0084988B: End If + loc_0084988B: var_eax = Err.Raise + loc_00849893: 'Referenced from: 00849889 + loc_0084989A: ecx+edi = ecx+edi + 0001h + loc_008498B0: If var_886558 Then + loc_008498B6: If 00886558h = 1 Then + loc_008498C2: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008498C6: If var_14 >= 0 Then + loc_008498C8: var_eax = Err.Raise + loc_008498D0: End If + loc_008498D3: GoTo loc_008498DD + loc_008498D5: End If + loc_008498D5: End If + loc_008498D5: var_eax = Err.Raise + loc_008498DD: 'Referenced from: 008498D3 + loc_008498E5: If edx+eax > 2 Then + loc_008498E9: If var_886558 Then + loc_008498EF: If 00886558h = 1 Then + loc_008498FB: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_008498FF: If var_14 >= 0 Then + loc_00849901: var_eax = Err.Raise + loc_00849909: End If + loc_0084991B: GoTo loc_0084994A + loc_0084991D: End If + loc_0084991D: End If + loc_0084991D: var_eax = Err.Raise + loc_0084992E: End If + loc_00849934: GoTo loc_0084994A + loc_00849949: Exit Sub + loc_0084994A: 'Referenced from: 0084991B + loc_0084994A: Exit Sub +End Sub + +Public Sub Proc_10_6_849970 + Dim var_18 As Me + loc_008499EA: var_14 = CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) + loc_00849A09: If var_18 Then + loc_00849A0F: If var_18 = 2 Then + loc_00849A22: CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849A26: If CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) >= 0 Then + loc_00849A28: var_eax = Err.Raise + loc_00849A2D: End If + loc_00849A35: If var_886560 Then + loc_00849A3B: If 00886560h = 1 Then + loc_00849A40: CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) = CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849A47: If CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) >= 0 Then + loc_00849A49: var_eax = Err.Raise + loc_00849A54: End If + loc_00849A57: GoTo loc_00849A64 + loc_00849A59: End If + loc_00849A59: End If + loc_00849A59: var_eax = Err.Raise + loc_00849A64: 'Referenced from: 00849A57 + loc_00849A71: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849A75: If edx+eax >= 0 Then + loc_00849A77: var_eax = Err.Raise + loc_00849A7C: End If + loc_00849A82: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + CInt((Int((Rnd(var_28) * global_401CF0)) + global_401850)) + loc_00849A86: GoTo loc_00849A93 + loc_00849A88: End If + loc_00849A88: End If + loc_00849A8E: var_eax = Err.Raise + loc_00849A93: 'Referenced from: 00849A86 + loc_00849A9D: var_eax = Proc_84A0F0(var_18.GetTypeInfoCount, Me, ) + loc_00849AC1: If var_18 Then + loc_00849AC7: If var_18 = 2 Then + loc_00849AD5: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849AD9: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_00849ADB: var_eax = Err.Raise + loc_00849AE0: End If + loc_00849AE8: If var_886560 Then + loc_00849AEE: If 00886560h = 1 Then + loc_00849AF3: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849AFA: If var_14 >= 0 Then + loc_00849AFC: var_eax = Err.Raise + loc_00849B07: End If + loc_00849B0A: GoTo loc_00849B17 + loc_00849B0C: End If + loc_00849B0C: End If + loc_00849B0C: var_eax = Err.Raise + loc_00849B17: 'Referenced from: 00849B0A + loc_00849B24: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849B28: If edx+eax >= 0 Then + loc_00849B2A: var_eax = Err.Raise + loc_00849B2F: End If + loc_00849B35: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849B39: GoTo loc_00849B40 + loc_00849B3B: End If + loc_00849B3B: End If + loc_00849B3B: var_eax = Err.Raise + loc_00849B40: 'Referenced from: 00849B39 + loc_00849B4A: var_eax = Proc_10_22_84E1A0(var_18.GetTypeInfoCount, arg_C) + loc_00849B75: If var_18 Then + loc_00849B7B: If var_18 = 2 Then + loc_00849B89: var_14 = var_14 - var_18.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00849B8D: If var_14 >= var_18.%x1 = Invoke 'Ignore this Then + loc_00849B8F: var_eax = Err.Raise + loc_00849B94: End If + loc_00849B9C: If var_886560 Then + loc_00849BA2: If 00886560h = 1 Then + loc_00849BA7: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849BAE: If var_14 >= 0 Then + loc_00849BB0: var_eax = Err.Raise + loc_00849BBB: End If + loc_00849BBE: GoTo loc_00849BCB + loc_00849BC0: End If + loc_00849BC0: End If + loc_00849BC0: var_eax = Err.Raise + loc_00849BCB: 'Referenced from: 00849BBE + loc_00849BD8: edx+eax = edx+eax - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849BDC: If edx+eax >= 0 Then + loc_00849BDE: var_eax = Err.Raise + loc_00849BE3: End If + loc_00849BE9: var_18.%x1 = Invoke 'Ignore this = var_18.%x1 = Invoke 'Ignore this + var_14 + loc_00849BED: GoTo loc_00849BF4 + loc_00849BEF: End If + loc_00849BEF: End If + loc_00849BEF: var_eax = Err.Raise + loc_00849BF4: 'Referenced from: 00849BED + loc_00849BFE: var_eax = Proc_10_23_84E330(var_18.GetTypeInfoCount, var_3C) + loc_00849C15: If var_886560 Then + loc_00849C1B: If 00886560h = 1 Then + loc_00849C27: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849C2B: If var_14 >= 0 Then + loc_00849C2D: var_eax = Err.Raise + loc_00849C35: End If + loc_00849C38: GoTo loc_00849C44 + loc_00849C3A: End If + loc_00849C3A: End If + loc_00849C3A: var_eax = Err.Raise + loc_00849C44: 'Referenced from: 00849C38 + loc_00849C46: If var_886560 Then + loc_00849C4C: If 00886560h = 1 Then + loc_00849C58: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849C5C: If var_14 >= 0 Then + loc_00849C5E: var_eax = Err.Raise + loc_00849C66: End If + loc_00849C69: GoTo loc_00849C73 + loc_00849C6B: End If + loc_00849C6B: End If + loc_00849C6B: var_eax = Err.Raise + loc_00849C73: 'Referenced from: 00849C69 + loc_00849C7A: ecx+edi = ecx+edi + 0001h + loc_00849C90: If var_886560 Then + loc_00849C96: If 00886560h = 1 Then + loc_00849CA2: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849CA6: If var_14 >= 0 Then + loc_00849CA8: var_eax = Err.Raise + loc_00849CB0: End If + loc_00849CB3: GoTo loc_00849CBD + loc_00849CB5: End If + loc_00849CB5: End If + loc_00849CB5: var_eax = Err.Raise + loc_00849CBD: 'Referenced from: 00849CB3 + loc_00849CC5: If edx+eax > 1 Then + loc_00849CC9: If var_886560 Then + loc_00849CCF: If 00886560h = 1 Then + loc_00849CDB: var_14 = var_14 - var_18.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00849CDF: If var_14 >= 0 Then + loc_00849CE1: var_eax = Err.Raise + loc_00849CE9: End If + loc_00849CFB: GoTo loc_00849D2A + loc_00849CFD: End If + loc_00849CFD: End If + loc_00849CFD: var_eax = Err.Raise + loc_00849D0E: End If + loc_00849D14: GoTo loc_00849D2A + loc_00849D29: Exit Sub + loc_00849D2A: 'Referenced from: 00849CFB + loc_00849D2A: Exit Sub +End Sub + +Public Sub Proc_10_7_849D50 + loc_00849D9A: ReDim global_00886548(0 To 5) + loc_00849DA3: var_eax = Proc_9_17_8471A0(edi, esi, ebx) + loc_00849DA8: var_eax = Proc_9_23_847DB0(, , ) + loc_00849DAD: var_eax = Proc_9_24_848060(, , ) + loc_00849DB2: var_eax = Proc_9_25_848310 + loc_00849DB7: var_eax = Proc_9_21_8477C0 + loc_00849DBC: var_eax = Proc_9_22_847B00 + loc_00849DC1: var_eax = Proc_9_18_847360 + loc_00849DC6: var_eax = Proc_9_26_8485C0 + loc_00849E02: var_14 = global_00886014 & "sfx\bombExplode.wav" + loc_00849E14: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849E22: global_88656C = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849E6D: var_14 = global_00886014 & "sfx\flawless6.wav" + loc_00849E7F: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849E87: global_886578 = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849ED2: var_14 = global_00886014 & "sfx\success.wav" + loc_00849EE4: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849EEC: global_88657A = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849F36: var_14 = global_00886014 & "sfx\halleluj.wav" + loc_00849F48: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849F50: global_88657E = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849F9B: var_14 = global_00886014 & "sfx\buzzer.wav" + loc_00849FAD: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849FB5: global_88657C = Proc_10_18_84C230(var_14, var_58, var_24) + loc_00849FD5: GoTo loc_00849FF4 + loc_00849FF3: Exit Sub + loc_00849FF4: 'Referenced from: 00849FD5 +End Sub + +Public Sub Proc_10_8_84A010 + loc_0084A047: var_eax = Proc_9_19_847550(edi, esi, ebx) + loc_0084A07B: var_14 = global_00886014 & "\sfx\letsgo.wav" + loc_0084A091: var_eax = Proc_10_18_84C230(var_14, var_58, var_24) + loc_0084A099: global_886598 = Proc_10_18_84C230(var_14, var_58, var_24) + loc_0084A0BD: GoTo loc_0084A0DC + loc_0084A0DB: Exit Sub + loc_0084A0DC: 'Referenced from: 0084A0BD +End Sub + +Public Sub Proc_10_9_84A250 + Dim global_00886014 As Me + loc_0084A27B: global_88604C = &H64 + loc_0084A2A8: ReDim global_00886048(0 To 100) + loc_0084A2B9: If 00886048h Then + loc_0084A2BF: If 00886048h = 1 Then + loc_0084A2CB: If esi >= 0 Then + loc_0084A2CD: var_eax = Err.Raise + loc_0084A2D9: End If + loc_0084A2DF: GoTo loc_0084A2ED + loc_0084A2E1: End If + loc_0084A2E1: End If + loc_0084A2E1: var_eax = Err.Raise + loc_0084A2ED: 'Referenced from: 0084A2DF + loc_0084A2F9: ecx = "None" + loc_0084A307: If global_886010 = 2 Then + loc_0084A315: GoTo loc_0084A322 + loc_0084A317: End If + loc_0084A33C: Open global_00886014 & "musicListLE.txt" For Input As #1 Len = -1 + loc_0084A350: + loc_0084A35B: If EOF(1) = 0 Then + loc_0084A363: Line Input #1, var_1C + loc_0084A388: var_2C = LCase$(Left$(var_1C, 6)) + loc_0084A3A3: esi = (var_2C = "[song]") + 1 + loc_0084A3B5: If (var_2C = "[song]") + 1 = 0 Then GoTo loc_0084A350 + loc_0084A3B7: End If + loc_0084A3C2: If EOF(1) = 0 Then + loc_0084A3D4: Line Input #1, var_18 + loc_0084A3DC: Line Input #1, var_14 + loc_0084A3E4: Line Input #1, var_20 + loc_0084A3ED: If var_886048 Then + loc_0084A3F3: If 00886048h = 1 Then + loc_0084A3FE: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084A402: If 00000001h >= 0 Then + loc_0084A404: var_eax = Err.Raise + loc_0084A40A: End If + loc_0084A410: GoTo loc_0084A41A + loc_0084A412: End If + loc_0084A412: End If + loc_0084A412: var_eax = Err.Raise + loc_0084A41A: 'Referenced from: 0084A410 + loc_0084A43D: edi.GetTypeInfoCount 'Ignore this = edi.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0084A43F: ecx = global_00886014 & var_18 + loc_0084A456: If var_886048 Then + loc_0084A45C: If 00886048h = 1 Then + loc_0084A467: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084A46B: If 00000001h >= 0 Then + loc_0084A46D: var_eax = Err.Raise + loc_0084A479: End If + loc_0084A47F: GoTo loc_0084A48D + loc_0084A481: End If + loc_0084A481: End If + loc_0084A481: var_eax = Err.Raise + loc_0084A48D: 'Referenced from: 0084A47F + loc_0084A497: ecx = var_14 + loc_0084A4A5: If var_886048 Then + loc_0084A4AB: If 00886048h = 1 Then + loc_0084A4B6: 00000001h = 00000001h - edi.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0084A4BA: If 00000001h >= 0 Then + loc_0084A4BC: var_eax = Err.Raise + loc_0084A4C8: End If + loc_0084A4CE: GoTo loc_0084A4DC + loc_0084A4D0: End If + loc_0084A4D0: End If + loc_0084A4D0: var_eax = Err.Raise + loc_0084A4DC: 'Referenced from: 0084A4CE + loc_0084A4E6: ecx = var_20 + loc_0084A4EC: 00000001h = 00000001h + 0001h + loc_0084A4FD: If 00000001h+0001h <= var_88604C Then GoTo loc_0084A350 + loc_0084A503: End If + loc_0084A503: var_eax = Close + loc_0084A509: 00000001h+0001h = 00000001h+0001h - 0001h + loc_0084A525: global_88604C = edi.QueryInterface 'Ignore this + loc_0084A52C: ReDim Preserve %r + loc_0084A53A: GoTo loc_0084A550 + loc_0084A54F: Exit Sub + loc_0084A550: 'Referenced from: 0084A53A + loc_0084A56A: Exit Sub + loc_0084A57B: Exit Sub +End Sub + +Public Sub Proc_10_10_84A620 + Dim Me As Me + loc_0084A685: var_eax = SetMapMode(ebx, var_14) + loc_0084A6C8: var_1C = Me.hWnd + loc_0084A6F8: var_1C = Me.Caption + loc_0084A728: Me.Caption = CInt(640) + loc_0084A74C: global_886688 = &H7C + loc_0084A756: global_88668C = &H21 + loc_0084A760: global_8866F0 = &HA18 + loc_0084A76A: global_88669C = 1 + loc_0084A7B7: global_886704 = 4 + loc_0084A7ED: GoTo loc_0084A803 + loc_0084A802: Exit Sub + loc_0084A803: 'Referenced from: 0084A7ED +End Sub + +Public Sub Proc_10_11_84A820 + Dim global_00886684 As Me + loc_0084A865: On Error Resume Next + loc_0084A86B: DoEvents + loc_0084A879: 1 = global_00886684.ForeColor + loc_0084A8EE: If var_48 = 0 Then eax = 1 + loc_0084A904: If eax = 0 Then + loc_0084A912: var_eax = Unknown_VTable_Call[ecx+0000004Ch] + loc_0084A952: var_48 = global_00886684.hWnd + loc_0084A974: var_48 = global_00886684.Caption + loc_0084A98E: DoEvents + loc_0084A9BA: var_48 = global_00886684.hWnd + loc_0084A9DC: var_48 = global_00886684.Caption + loc_0084A9E1: var_54 = var_48 + loc_0084AA11: global_00886684.Caption = CInt(640) + loc_0084AA33: global_00886684.BackColor = CInt(480) + loc_0084AA9C: global_00886684.Show var_34, var_30 + loc_0084AAD0: var_20 = global_00886684.Tag + loc_0084AAFF: esi = (var_20 = "main") + 1 + loc_0084AB02: var_54 = (var_20 = "main") + 1 + loc_0084AB11: If (var_20 = "main") + 1 Then + loc_0084AB18: global_00886684.Refresh + loc_0084AB32: DoEvents + loc_0084AB38: global_88610A = FFFFFFh + loc_0084AB41: var_eax = Proc_12_10_860410(-2147352572, var_28, 10) + loc_0084AB46: End If + loc_0084AB46: End If + loc_0084AB46: End If + loc_0084AB46: Exit Sub + loc_0084AB51: GoTo loc_0084AB66 + loc_0084AB65: Exit Sub +End Sub + +Public Sub Proc_10_12_84AC50 + loc_0084AC9E: On Error Resume Next + loc_0084ACED: var_eax = Unknown_VTable_Call[edx+000002FCh] + loc_0084ACFE: var_A0 = var_2C + loc_0084AD7E: var_34 = arg_C + loc_0084AE4A: var_eax = Global.LoadPicture arg_C, var_38, var_34, var_30, var_4C + loc_0084AE4F: var_9C = Global.LoadPicture arg_C, var_38, var_34, var_30, var_4C + loc_0084AE8E: var_C4 = var_24 + loc_0084AEBC: var_eax = Unknown_VTable_Call[eax+00000064h] + loc_0084AEC1: var_A4 = Unknown_VTable_Call[eax+00000064h] + loc_0084AF59: var_eax = Unknown_VTable_Call[edx+000002FCh] + loc_0084AF86: var_eax = Unknown_VTable_Call[eax+000000E0h] + loc_0084AF8E: var_9C = Unknown_VTable_Call[eax+000000E0h] + loc_0084B00F: var_eax = Unknown_VTable_Call[eax+000002FCh] + loc_0084B020: var_A0 = Unknown_VTable_Call[eax+000002FCh] + loc_0084B03C: var_eax = Unknown_VTable_Call[ecx+00000080h] + loc_0084B044: var_A4 = Unknown_VTable_Call[ecx+00000080h] + loc_0084B0C5: var_eax = Unknown_VTable_Call[ecx+000002FCh] + loc_0084B0D6: var_A8 = Unknown_VTable_Call[ecx+000002FCh] + loc_0084B0F2: var_eax = Unknown_VTable_Call[edx+00000088h] + loc_0084B0FA: var_AC = Unknown_VTable_Call[edx+00000088h] + loc_0084B14F: var_80 = CInt(var_8C) + loc_0084B18A: var_eax = Proc_9_2_843330(var_84, Me, 0) + loc_0084B1AD: global_886054 = FFFFFFh + loc_0084B1BC: GoTo loc_0084B1D6 + loc_0084B1D5: Exit Sub + loc_0084B1D6: 'Referenced from: 0084B1BC +End Sub + +Public Sub Proc_10_13_84B1F0 + loc_0084B21F: global_886688 = &H7C + loc_0084B229: global_88668C = 7 + loc_0084B233: global_8866F0 = &H840 + loc_0084B242: global_886694 = arg_C + loc_0084B25B: global_886690 = arg_10 + loc_0084B2A6: GoTo loc_0084B2B2 + loc_0084B2B1: Exit Sub + loc_0084B2B2: 'Referenced from: 0084B2A6 +End Sub + +Public Sub Proc_10_14_84B2D0 + Dim arg_C As Me + loc_0084B312: If arg_2C Then + loc_0084B31E: If 00886074h <= 0 Then ecx = 1 + loc_0084B321: ecx = ecx - 1 + loc_0084B330: var_18 = ecx - 1 And 8937588 + loc_0084B333: If 00886076h > 0 Then + loc_0084B335: var_14 = global_00886076 + loc_0084B339: GoTo loc_0084B33E + loc_0084B33B: End If + loc_0084B33E: 'Referenced from: 0084B339 + loc_0084B348: 00886070h = 00886070h + 00886074h + loc_0084B356: If 00886070h+00886074h < 640 Then + loc_0084B358: 00886070h = 00886070h + 00886074h + loc_0084B361: GoTo loc_0084B368 + loc_0084B363: End If + loc_0084B368: 'Referenced from: 0084B361 + loc_0084B371: 00886072h = 00886072h + 00886076h + loc_0084B37F: If 00886072h+00886076h < 480 Then + loc_0084B381: 00886072h = 00886072h + 00886076h + loc_0084B38A: GoTo loc_0084B39E + loc_0084B38C: End If + loc_0084B38E: var_14 = SoundFunctions.VTable_00886076 + loc_0084B399: End If + loc_0084B39E: 'Referenced from: 0084B38A + loc_0084B3AB: arg_10 = arg_10 + arg_20 + loc_0084B3B7: If arg_10+arg_20 > 0 Then + loc_0084B3C5: arg_14 = arg_14 + arg_24 + loc_0084B3D2: If arg_14+arg_24 > SoundFunctions.VTable_00886076 Then + loc_0084B3DB: If arg_10 < 640 Then + loc_0084B3E5: If arg_14 < 480 Then + loc_0084B3F3: arg_18 = arg_18 + arg_20 + loc_0084B3FC: arg_1C = arg_1C + arg_24 + loc_0084B405: arg_10 = arg_10 + arg_20 + loc_0084B411: If arg_10+arg_20 > 640 Then + loc_0084B413: 00000280h = 00000280h - arg_10 + loc_0084B41D: arg_20 = arg_20 - 00000280h + loc_0084B426: arg_18+arg_20 = arg_18+arg_20 - arg_20 + loc_0084B42F: End If + loc_0084B438: arg_14 = arg_14 + arg_24 + loc_0084B444: If arg_14+arg_24 > &H1E0 Then + loc_0084B446: var_2C = var_2C - arg_14 + loc_0084B44F: arg_24 = arg_24 - var_2C + loc_0084B458: arg_1C+arg_24 = arg_1C+arg_24 - arg_24 + loc_0084B461: End If + loc_0084B46A: If arg_10 < "" Then + loc_0084B46F: arg_10 = var_18 + loc_0084B472: var_18 = var_18 - arg_10 + loc_0084B47B: var_18 = var_18 + arg_18 + loc_0084B487: GoTo loc_0084B48C + loc_0084B489: End If + loc_0084B48C: 'Referenced from: 0084B487 + loc_0084B493: If arg_14 < SoundFunctions.VTable_00886076 Then + loc_0084B495: var_14 = var_14 - arg_14 + loc_0084B4A1: var_14 = var_14 + arg_1C + loc_0084B4AB: GoTo loc_0084B4B0 + loc_0084B4AD: End If + loc_0084B4B0: 'Referenced from: 0084B4AB + loc_0084B4B3: var_20 = arg_18+arg_20 + loc_0084B4C0: var_28 = arg_18 + loc_0084B4C9: var_24 = arg_1C + loc_0084B4CC: var_1C = arg_1C+arg_24 + loc_0084B4CF: If arg_28 = 0 Then + loc_0084B4E8: Set var_3C = Me + loc_0084B4F9: arg_C.var_3C = PropBag.ReadProperty(arg_10, SoundFunctions.VTable_00886076) + loc_0084B500: If arg_C.var_3C >= 0 Then GoTo loc_0084B544 + loc_0084B502: GoTo loc_0084B535 + loc_0084B504: End If + loc_0084B51B: Set var_3C = Me + loc_0084B52C: arg_C.var_3C = PropBag.ReadProperty(arg_10, SoundFunctions.VTable_00886076) + loc_0084B533: If arg_C.var_3C >= 0 Then GoTo loc_0084B544 + loc_0084B535: 'Referenced from: 0084B502 + loc_0084B53E: arg_C.var_3C = CheckObj(arg_C, global_0040F4A0, 28) + loc_0084B544: + loc_0084B54D: End If + loc_0084B54D: End If + loc_0084B54D: End If + loc_0084B54D: End If + loc_0084B552: GoTo loc_0084B55E + loc_0084B55D: Exit Sub + loc_0084B55E: 'Referenced from: 0084B552 + loc_0084B55E: Exit Sub +End Sub + +Public Sub Proc_10_15_84B580 + Dim var_AC As Me + loc_0084B5CE: On Error Resume Next + loc_0084B601: var_40 = arg_20 + loc_0084B60F: var_3C = arg_24 + loc_0084B61D: var_38 = arg_28 + loc_0084B62B: var_34 = arg_2C + loc_0084B639: var_2C = arg_14 + loc_0084B647: var_30 = arg_10 + loc_0084B655: var_28 = arg_18 + loc_0084B663: var_24 = arg_1C + loc_0084B675: If arg_30 = 0 Then + loc_0084B687: var_AC = arg_C + loc_0084B6AA: Set var_A8 = Me + loc_0084B6C9: var_B0 = var_AC + loc_0084B711: GoTo loc_0084B7AC + loc_0084B716: End If + loc_0084B722: var_AC = arg_C + loc_0084B745: Set var_A8 = Me + loc_0084B764: var_B0 = var_AC + loc_0084B7B1: GoTo loc_0084B7C0 + loc_0084B7BF: Exit Sub + loc_0084B7C0: 'Referenced from: 0084B7B1 +End Sub + +Public Sub Proc_10_16_84B7E0 + Dim global_008868FC As Me + loc_0084B81E: var_18 = True + loc_0084B821: If global_8868FA Then + loc_0084B82E: If global_8868F8 = 0 Then + loc_0084B84A: If 00000001h <= 80 Then + loc_0084B859: If eax-00000001h >= 80 Then + loc_0084B85B: var_eax = Err.Raise + loc_0084B860: If eax-00000001h >= 80 Then + loc_0084B862: var_eax = Err.Raise + loc_0084B864: End If + loc_0084B864: End If + loc_0084B886: If edx = 0 Then + loc_0084B88E: 00886A98h = 00886A98h - 0001h + loc_0084B89B: global_886A98 = global_00886A98 + loc_0084B8A1: If 00886A98h <= 0 Then + loc_0084B8AF: var_30 = global_008868FC.hWnd + loc_0084B8D2: var_eax = KillTimer(var_30, edi) + loc_0084B8F1: global_008868E8 = KillTimer(var_30, edi) + loc_0084B8F9: End If + loc_0084B8F9: End If + loc_0084B8FC: If eax-00000001h >= 80 Then + loc_0084B8FE: var_eax = Err.Raise + loc_0084B903: If eax-00000001h >= 80 Then + loc_0084B905: var_eax = Err.Raise + loc_0084B907: End If + loc_0084B907: End If + loc_0084B919: If edx+esi*2 <> 0 Then ecx = 1 + loc_0084B928: If eax = 0 Then + loc_0084B92D: If eax-00000001h >= 80 Then + loc_0084B92F: var_eax = Err.Raise + loc_0084B931: End If + loc_0084B93B: Close #eax+esi*2 + loc_0084B941: End If + loc_0084B944: If eax-00000001h >= 80 Then + loc_0084B946: var_eax = Err.Raise + loc_0084B948: End If + loc_0084B952: If edx+esi*2 = 0 Then + loc_0084B957: If eax-00000001h >= 80 Then + loc_0084B959: var_eax = Err.Raise + loc_0084B95B: End If + loc_0084B97D: Set ecx+esi*4 = var_1C + loc_0084B98C: End If + loc_0084B98F: If eax-00000001h >= 80 Then + loc_0084B991: var_eax = Err.Raise + loc_0084B993: End If + loc_0084B99C: If eax+esi*2 = 0 Then + loc_0084B9A1: If eax-00000001h >= 80 Then + loc_0084B9A3: var_eax = Err.Raise + loc_0084B9A5: End If + loc_0084B9C7: Set edx+esi*4 = Err.Raise + loc_0084B9D6: End If + loc_0084B9D9: If eax-00000001h >= 80 Then + loc_0084B9DB: var_eax = Err.Raise + loc_0084B9DD: End If + loc_0084B9EC: If eax-00000001h >= 80 Then + loc_0084B9EE: var_eax = Err.Raise + loc_0084B9F0: End If + loc_0084B9FD: If eax-00000001h >= 80 Then + loc_0084B9FF: var_eax = Err.Raise + loc_0084BA01: End If + loc_0084BA0D: If eax-00000001h >= 80 Then + loc_0084BA0F: var_eax = Err.Raise + loc_0084BA11: End If + loc_0084BA1E: If eax-00000001h >= 80 Then + loc_0084BA20: var_eax = Err.Raise + loc_0084BA22: End If + loc_0084BA2F: If eax-00000001h >= 80 Then + loc_0084BA31: var_eax = Err.Raise + loc_0084BA33: End If + loc_0084BA3E: If eax-00000001h >= 80 Then + loc_0084BA40: var_eax = Err.Raise + loc_0084BA42: End If + loc_0084BA4E: If eax-00000001h >= 80 Then + loc_0084BA50: var_eax = Err.Raise + loc_0084BA52: End If + loc_0084BA5E: If eax-00000001h >= 80 Then + loc_0084BA60: var_eax = Err.Raise + loc_0084BA62: End If + loc_0084BA6D: If eax-00000001h >= 80 Then + loc_0084BA6F: var_eax = Err.Raise + loc_0084BA71: End If + loc_0084BA7D: If eax-00000001h >= 80 Then + loc_0084BA7F: var_eax = Err.Raise + loc_0084BA81: End If + loc_0084BA8C: 00000001h = 00000001h + var_14 + loc_0084BA9A: var_14 = 00000001h+var_14 + loc_0084BA9F: var_eax = Unknown_254(var_1C, Err.Raise, edi, global_0040F490, var_1C, Err.Raise) + loc_0084BAA4: End If + loc_0084BAFE: End If + loc_0084BB05: End If + loc_0084BB0A: GoTo loc_0084BB16 + loc_0084BB15: Exit Sub + loc_0084BB16: 'Referenced from: 0084BB0A + loc_0084BB16: Exit Sub + loc_0084BB2B: Exit Sub +End Sub + +Public Sub Proc_10_17_84BB40 + Dim global_008868FC As Me + Dim global_008868E4 As Me + Dim var_44 As Me + Dim global_00886904 As Me + loc_0084BB9B: On Error Resume Next + loc_0084BBB1: If var_8868F8 = 0 Then + loc_0084BBC0: On Error Resume Next + loc_0084BBD8: Set global_008868FC = Me + loc_0084BBFB: var_eax = SetMapMode(var_30, global_008868E4) + loc_0084BC01: var_44 = SetMapMode(var_30, global_008868E4) + loc_0084BC42: var_40 = global_008868FC.hWnd + loc_0084BC47: var_44 = var_40 + loc_0084BC8D: var_48 = global_008868E4 + loc_0084BCE7: var_48 = PropBag.ReadProperty(var_40, var_3C) + loc_0084BD2F: If var_4C Then + loc_0084BD31: GoTo loc_0084C164 + loc_0084BD36: End If + loc_0084BD3D: global_886908 = &H14 + loc_0084BD4E: global_886910 = 0 + loc_0084BD5F: global_886918 = 0 + loc_0084BD70: global_88690C = &H91 + loc_0084BDAB: var_44 = global_008868E4 + loc_0084BE0E: var_48 = PropBag.ReadProperty(var_40, var_3C) + loc_0084BE56: If var_4C Then + loc_0084BE58: GoTo loc_0084C164 + loc_0084BE5D: End If + loc_0084BEA3: var_44 = global_00886904 + loc_0084BEF8: var_44 = global_00886904 + loc_0084BF4C: var_44 = global_00886904 + loc_0084BF9B: global_008868FC.Reset + loc_0084BFA0: var_44 = global_008868FC.Reset + loc_0084C001: var_44 = global_00886904 + loc_0084C060: var_48 = PropBag.ReadProperty(var_40, var_3C) + loc_0084C0AE: If var_4C Then + loc_0084C0B0: GoTo loc_0084C164 + loc_0084C0B5: End If + loc_0084C0CE: GoTo loc_0084C0E2 + loc_0084C0D0: + loc_0084C0D4: var_34 = var_34 + var_50 + loc_0084C0DE: var_34 = var_34+var_50 + loc_0084C0E2: 'Referenced from: 0084C0CE + loc_0084C0EA: If var_34 <= &H50 Then + loc_0084C0F7: var_34 = var_34 - 00000001h + loc_0084C0FA: var_44 = var_34 + loc_0084C101: If var_44 < 80 Then + loc_0084C10D: GoTo loc_0084C11B + loc_0084C10F: End If + loc_0084C10F: var_eax = Err.Raise + loc_0084C115: var_9C = Err.Raise + loc_0084C11B: 'Referenced from: 0084C10D + loc_0084C130: GoTo loc_0084C0D0 + loc_0084C132: End If + loc_0084C139: global_8868FA = FFFFFFh + loc_0084C149: global_8868F8 = FFFFFFh + loc_0084C152: End If + loc_0084C15F: GoTo loc_0084C1F1 + loc_0084C164: 'Referenced from: 0084BD31 + loc_0084C1CB: global_8868FA = 0 + loc_0084C1E8: global_8868F8 = 0 + loc_0084C1F1: 'Referenced from: 0084C15F + loc_0084C1F1: Exit Sub + loc_0084C1FD: GoTo loc_0084C209 + loc_0084C208: Exit Sub + loc_0084C209: 'Referenced from: 0084C1FD +End Sub + +Public Sub Proc_10_18_84C230 + Dim var_7C As Me + Dim var_44 As Me + Dim global_008868E4 As Me + Dim var_1D0 As Me + Dim var_4C As Me + loc_0084C292: If var_8868FA = 0 Then + loc_0084C294: GoTo loc_0084D91C + loc_0084C299: End If + loc_0084C2A2: On Error Resume Next + loc_0084C2AF: var_eax = Proc_84F630(-1, edi, esi) + loc_0084C2B4: var_60 = Proc_84F630(-1, edi, esi) + loc_0084C2C4: If var_60 = var_FFFFFF Then + loc_0084C2D1: var_78 = var_60 + loc_0084C2D5: GoTo loc_0084D91C + loc_0084C2DA: GoTo loc_0084C2EB + loc_0084C2DC: End If + loc_0084C2E7: var_24 = var_60 + loc_0084C2EB: 'Referenced from: 0084C2DA + loc_0084C313: var_48 = FreeFile(10) + loc_0084C339: Open Me For Binary As #var_48 Len = -1 + loc_0084C372: If ecx = 0 Then + loc_0084C380: Close #var_48 + loc_0084C386: GoTo loc_0084D91C + loc_0084C38B: End If + loc_0084C3A1: If IsMissing(arg_10) = 0 Then + loc_0084C3C6: Seek #var_48, CLng(arg_10) + loc_0084C3CC: End If + loc_0084C3DD: var_1C0 = IsMissing(arg_14) + loc_0084C3EF: var_1C8 = LOF(var_48) + loc_0084C3FF: var_1C4 = IsMissing(arg_10) + loc_0084C424: If var_1C4 = var_FFFFFF Then eax = 1 + loc_0084C45F: var_154 = var_1C8 + loc_0084C484: var_ret_2 = var_1C8 - IIf(11, 0, arg_10) + loc_0084C492: var_DC = var_ret_2 + loc_0084C4A2: If var_1C0 = var_FFFFFF Then eax = 1 + loc_0084C4D1: var_EC = IIf(False, var_DC, arg_14) + loc_0084C4E0: var_ret_3 = CLng(var_EC) + loc_0084C4F6: ReDim var_44(1 To CLng(var_EC)) + loc_0084C549: Get #var_48, var_44 + loc_0084C55B: Close #var_48 + loc_0084C576: If IsMissing(arg_10) = var_FFFFFF Then + loc_0084C583: var_24 = var_24 - 00000001h + loc_0084C586: var_1D0 = var_24 + loc_0084C593: If var_1D0 < 80 Then + loc_0084C59F: GoTo loc_0084C5AD + loc_0084C5A1: End If + loc_0084C5A1: var_eax = Err.Raise + loc_0084C5A7: var_1F8 = Err.Raise + loc_0084C5AD: 'Referenced from: 0084C59F + loc_0084C5C0: GoTo loc_0084C61C + loc_0084C5C2: End If + loc_0084C5CD: var_24 = var_24 - 00000001h + loc_0084C5D0: var_1D0 = var_24 + loc_0084C5DD: If var_1D0 < 80 Then + loc_0084C5E9: GoTo loc_0084C5F7 + loc_0084C5EB: End If + loc_0084C5EB: var_eax = Err.Raise + loc_0084C5F1: var_1FC = Err.Raise + loc_0084C5F7: 'Referenced from: 0084C5E9 + loc_0084C607: var_ret_4 = CLng(arg_10) + loc_0084C61C: 'Referenced from: 0084C5C0 + loc_0084C627: var_24 = var_24 - 00000001h + loc_0084C62A: var_1D0 = var_24 + loc_0084C637: If var_1D0 < 80 Then + loc_0084C643: GoTo loc_0084C651 + loc_0084C645: End If + loc_0084C645: var_eax = Err.Raise + loc_0084C64B: var_200 = Err.Raise + loc_0084C651: 'Referenced from: 0084C643 + loc_0084C657: call UBound(00000001h, var_44, 0) + loc_0084C67D: var_1C0 = IsMissing(arg_10) + loc_0084C6A2: If var_1C0 = var_FFFFFF Then eax = 1 + loc_0084C6D1: var_BC = IIf(11, 0, arg_10) + loc_0084C6DB: var_24 = var_24 - 00000001h + loc_0084C6DE: var_1D0 = var_24 + loc_0084C6EB: If var_1D0 < 80 Then + loc_0084C6F7: GoTo loc_0084C705 + loc_0084C6F9: End If + loc_0084C6F9: var_eax = Err.Raise + loc_0084C6FF: var_204 = Err.Raise + loc_0084C705: 'Referenced from: 0084C6F7 + loc_0084C70C: var_ret_5 = CLng(var_BC) + loc_0084C74E: + loc_0084C759: If var_44 Then + loc_0084C762: If var_44 = 1 Then + loc_0084C76B: var_40 = var_40 - edx+00000014h + loc_0084C76E: var_1D0 = var_40 + loc_0084C780: If var_1D0 < 0 Then + loc_0084C78C: GoTo loc_0084C79A + loc_0084C78E: End If + loc_0084C78E: var_eax = Err.Raise + loc_0084C794: var_208 = Err.Raise + loc_0084C79A: 'Referenced from: 0084C78C + loc_0084C7A0: var_20C = var_1D0 + loc_0084C7A6: GoTo loc_0084C7B4 + loc_0084C7A8: End If + loc_0084C7A8: End If + loc_0084C7A8: var_eax = Err.Raise + loc_0084C7AE: var_20C = Err.Raise + loc_0084C7B4: 'Referenced from: 0084C7A6 + loc_0084C7B8: If var_44 Then + loc_0084C7C1: If var_44 = 1 Then + loc_0084C7C7: var_40 = var_40 + 0001h + loc_0084C7DA: var_1D4 = .QueryInterface 'Ignore this + loc_0084C7EC: If var_1D4 < 0 Then + loc_0084C7F8: GoTo loc_0084C806 + loc_0084C7FA: End If + loc_0084C7FA: var_eax = Err.Raise + loc_0084C800: var_210 = Err.Raise + loc_0084C806: 'Referenced from: 0084C7F8 + loc_0084C80C: var_214 = var_1D4 + loc_0084C812: GoTo loc_0084C820 + loc_0084C814: End If + loc_0084C814: End If + loc_0084C814: var_eax = Err.Raise + loc_0084C81A: var_214 = Err.Raise + loc_0084C820: 'Referenced from: 0084C812 + loc_0084C824: If var_44 Then + loc_0084C82D: If var_44 = 1 Then + loc_0084C833: var_40 = var_40 + 0002h + loc_0084C843: var_40+0002h = var_40+0002h - ecx+00000014h + loc_0084C846: var_1D8 = var_40+0002h + loc_0084C858: If var_1D8 < var_178 Then + loc_0084C864: GoTo loc_0084C872 + loc_0084C866: End If + loc_0084C866: var_eax = Err.Raise + loc_0084C86C: var_218 = Err.Raise + loc_0084C872: 'Referenced from: 0084C864 + loc_0084C878: var_21C = var_1D8 + loc_0084C87E: GoTo loc_0084C88C + loc_0084C880: End If + loc_0084C880: End If + loc_0084C880: var_eax = Err.Raise + loc_0084C886: var_21C = Err.Raise + loc_0084C88C: 'Referenced from: 0084C87E + loc_0084C8A9: var_80 = Chr$(eax+ecx) + loc_0084C8D0: var_84 = Chr$(ecx+edx) + loc_0084C90C: var_8C = Chr$(edx+eax) + loc_0084C93B: var_1DC = (var_80 & var_84 & var_8C = "fmt") + loc_0084C976: If var_1DC Then + loc_0084C983: var_40 = var_40 + 0001h + loc_0084C98D: var_40 = .QueryInterface 'Ignore this + loc_0084C991: GoTo loc_0084C74E + loc_0084C996: End If + loc_0084C9A7: var_1CC = VarPtr(var_74) + loc_0084C9BF: If var_7C Then + loc_0084C9C8: If var_7C = 1 Then + loc_0084C9CE: var_40 = var_40 + 0008h + loc_0084C9E1: var_1D0 = var_7C.Release 'Ignore this + loc_0084C9F3: If var_1D0 < 0 Then + loc_0084C9FF: GoTo loc_0084CA0D + loc_0084CA01: End If + loc_0084CA01: var_eax = Err.Raise + loc_0084CA07: var_220 = Err.Raise + loc_0084CA0D: 'Referenced from: 0084C9FF + loc_0084CA13: var_224 = var_1D0 + loc_0084CA19: GoTo loc_0084CA27 + loc_0084CA1B: End If + loc_0084CA1B: End If + loc_0084CA1B: var_eax = Err.Raise + loc_0084CA21: var_224 = Err.Raise + loc_0084CA27: 'Referenced from: 0084CA19 + loc_0084CA2D: var_7C.GetTypeInfoCount 'Ignore this = var_7C.GetTypeInfoCount 'Ignore this + var_224 + loc_0084CA3A: var_1C8 = VarPtr(var_7C.GetTypeInfoCount) + loc_0084CA5A: var_eax = CopyMemory(var_1CC, var_1C8, 18) + loc_0084CA65: + loc_0084CA70: If var_44 Then + loc_0084CA79: If var_44 = 1 Then + loc_0084CA82: var_40 = var_40 - edx+00000014h + loc_0084CA85: var_1D0 = var_40 + loc_0084CA97: If var_1D0 < 0 Then + loc_0084CAA3: GoTo loc_0084CAB1 + loc_0084CAA5: End If + loc_0084CAA5: var_eax = Err.Raise + loc_0084CAAB: var_228 = Err.Raise + loc_0084CAB1: 'Referenced from: 0084CAA3 + loc_0084CAB7: var_22C = var_1D0 + loc_0084CABD: GoTo loc_0084CACB + loc_0084CABF: End If + loc_0084CABF: End If + loc_0084CABF: var_eax = Err.Raise + loc_0084CAC5: var_22C = Err.Raise + loc_0084CACB: 'Referenced from: 0084CABD + loc_0084CACF: If var_44 Then + loc_0084CAD8: If var_44 = 1 Then + loc_0084CADE: var_40 = var_40 + 0001h + loc_0084CAF1: var_1D4 = var_7C.QueryInterface 'Ignore this + loc_0084CB03: If var_1D4 < 0 Then + loc_0084CB0F: GoTo loc_0084CB1D + loc_0084CB11: End If + loc_0084CB11: var_eax = Err.Raise + loc_0084CB17: var_230 = Err.Raise + loc_0084CB1D: 'Referenced from: 0084CB0F + loc_0084CB23: var_234 = var_1D4 + loc_0084CB29: GoTo loc_0084CB37 + loc_0084CB2B: End If + loc_0084CB2B: End If + loc_0084CB2B: var_eax = Err.Raise + loc_0084CB31: var_234 = Err.Raise + loc_0084CB37: 'Referenced from: 0084CB29 + loc_0084CB3B: If var_44 Then + loc_0084CB44: If var_44 = 1 Then + loc_0084CB4A: var_40 = var_40 + 0002h + loc_0084CB5A: var_40+0002h = var_40+0002h - ecx+00000014h + loc_0084CB5D: var_1D8 = var_40+0002h + loc_0084CB6F: If var_1D8 < var_178 Then + loc_0084CB7B: GoTo loc_0084CB89 + loc_0084CB7D: End If + loc_0084CB7D: var_eax = Err.Raise + loc_0084CB83: var_238 = Err.Raise + loc_0084CB89: 'Referenced from: 0084CB7B + loc_0084CB8F: var_23C = var_1D8 + loc_0084CB95: GoTo loc_0084CBA3 + loc_0084CB97: End If + loc_0084CB97: End If + loc_0084CB97: var_eax = Err.Raise + loc_0084CB9D: var_23C = Err.Raise + loc_0084CBA3: 'Referenced from: 0084CB95 + loc_0084CBA7: If var_44 Then + loc_0084CBB0: If var_44 = 1 Then + loc_0084CBB6: var_40 = var_40 + 0003h + loc_0084CBC6: var_40+0003h = var_40+0003h - edx+00000014h + loc_0084CBC9: var_1DC = var_40+0003h + loc_0084CBDB: If var_1DC < 0 Then + loc_0084CBE7: GoTo loc_0084CBF5 + loc_0084CBE9: End If + loc_0084CBE9: var_eax = Err.Raise + loc_0084CBEF: var_240 = Err.Raise + loc_0084CBF5: 'Referenced from: 0084CBE7 + loc_0084CBFB: var_244 = var_1DC + loc_0084CC01: GoTo loc_0084CC0F + loc_0084CC03: End If + loc_0084CC03: End If + loc_0084CC03: var_eax = Err.Raise + loc_0084CC09: var_244 = Err.Raise + loc_0084CC0F: 'Referenced from: 0084CC01 + loc_0084CC2C: var_80 = Chr$(ecx+edx) + loc_0084CC53: var_84 = Chr$(edx+eax) + loc_0084CC8F: var_8C = Chr$(eax+ecx) + loc_0084CCCB: var_94 = Chr$(ecx+edx) + loc_0084CCFA: var_1E0 = (var_80 & var_84 & var_8C & var_94 = "data") + loc_0084CD43: If var_1E0 Then + loc_0084CD50: var_40 = var_40 + 0001h + loc_0084CD5A: var_40 = var_7C.QueryInterface 'Ignore this + loc_0084CD5E: GoTo loc_0084CA65 + loc_0084CD63: End If + loc_0084CDDB: var_CC = IIf(False, 22, 64) + loc_0084CE6E: call Or(var_DC, var_16C, var_CC) + loc_0084CE83: call Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC)) + loc_0084CE98: call Or(var_FC, var_18C, Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC))) + loc_0084CEAD: call Or(var_10C, var_19C, Or(var_FC, var_18C, Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC)))) + loc_0084CEC2: call Or(var_11C, var_1AC, Or(var_10C, var_19C, Or(var_FC, var_18C, Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC))))) + loc_0084CED7: call Or(var_12C, var_1BC, Or(var_11C, var_1AC, Or(var_10C, var_19C, Or(var_FC, var_18C, Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC)))))) + loc_0084CEDE: var_ret_6 = CLng(Or(var_12C, var_1BC, Or(var_11C, var_1AC, Or(var_10C, var_19C, Or(var_FC, var_18C, Or(var_EC, var_17C, Or(var_DC, var_16C, var_CC))))))) + loc_0084CEE4: var_34 = var_ret_6 + loc_0084CF1B: call UBound(00000001h, var_44) + loc_0084CF25: var_40 = var_40 + 0008h + loc_0084CF32: UBound(00000001h, var_44) = UBound(00000001h, var_44) - var_7C.Release 'Ignore this + loc_0084CF3A: var_30 = UBound(00000001h, var_44) + loc_0084CF4E: var_28 = VarPtr(var_74) + loc_0084CF66: var_7C. = PropBag.ReadProperty(, ) + loc_0084CF6B: var_1D0 = var_7C. + loc_0084CFD9: var_1D0 = global_008868E4 + loc_0084D05C: var_1D4 = PropBag.ReadProperty(var_1C8, var_9C) + loc_0084D0C2: If var_1D8 Then + loc_0084D0C4: GoTo loc_0084D91C + loc_0084D0C9: End If + loc_0084D0E2: var_1D0 = var_4C + loc_0084D157: var_1D4 = PropBag.ReadProperty(var_1C8, var_9C) + loc_0084D1BD: If var_1D8 Then + loc_0084D1BF: GoTo loc_0084D91C + loc_0084D1C4: End If + loc_0084D1CF: If var_3C = 2 Then + loc_0084D1F0: GoTo loc_0084D91C + loc_0084D1F5: End If + loc_0084D222: var_1D0 = var_4C + loc_0084D297: var_1D4 = PropBag.ReadProperty(var_1C8, var_9C) + loc_0084D2FD: If var_1D8 Then + loc_0084D2FF: GoTo loc_0084D91C + loc_0084D304: End If + loc_0084D31D: If var_7C Then + loc_0084D326: If var_7C = 1 Then + loc_0084D32C: var_40 = var_40 + 0008h + loc_0084D33F: var_1D0 = var_7C.Release 'Ignore this + loc_0084D351: If var_1D0 < 0 Then + loc_0084D35D: GoTo loc_0084D36B + loc_0084D35F: End If + loc_0084D35F: var_eax = Err.Raise + loc_0084D365: var_264 = Err.Raise + loc_0084D36B: 'Referenced from: 0084D35D + loc_0084D371: var_268 = var_1D0 + loc_0084D377: GoTo loc_0084D385 + loc_0084D379: End If + loc_0084D379: End If + loc_0084D379: var_eax = Err.Raise + loc_0084D37F: var_268 = Err.Raise + loc_0084D385: 'Referenced from: 0084D377 + loc_0084D38B: var_7C.GetTypeInfoCount 'Ignore this = var_7C.GetTypeInfoCount 'Ignore this + var_268 + loc_0084D3B7: var_eax = CopyMemory(var_58, VarPtr(var_7C.GetTypeInfoCount), var_50) + loc_0084D3CD: If var_54 Then + loc_0084D3EC: If var_7C Then + loc_0084D3F5: If var_7C = 1 Then + loc_0084D3FB: var_40 = var_40 + 0008h + loc_0084D408: var_7C.Release 'Ignore this = var_7C.Release 'Ignore this + var_50 + loc_0084D420: var_1D0 = var_7C.Release 'Ignore this+var_50(1) + loc_0084D432: If var_1D0 < 0 Then + loc_0084D43E: GoTo loc_0084D44C + loc_0084D440: End If + loc_0084D440: var_eax = Err.Raise + loc_0084D446: var_26C = Err.Raise + loc_0084D44C: 'Referenced from: 0084D43E + loc_0084D452: var_270 = var_1D0 + loc_0084D458: GoTo loc_0084D466 + loc_0084D45A: End If + loc_0084D45A: End If + loc_0084D45A: var_eax = Err.Raise + loc_0084D460: var_270 = Err.Raise + loc_0084D466: 'Referenced from: 0084D458 + loc_0084D46C: var_7C.GetTypeInfoCount 'Ignore this = var_7C.GetTypeInfoCount 'Ignore this + var_270 + loc_0084D479: var_1C8 = VarPtr(var_7C.GetTypeInfoCount) + loc_0084D498: var_eax = CopyMemory(var_5C, var_1C8, var_54) + loc_0084D4A3: End If + loc_0084D4C3: var_eax = Unknown_VTable_Call[eax+0000004Ch] + loc_0084D4C8: var_1D0 = Unknown_VTable_Call[eax+0000004Ch] + loc_0084D50C: var_24 = var_24 - 00000001h + loc_0084D50F: var_1D0 = var_24 + loc_0084D51C: If var_1D0 < 80 Then + loc_0084D528: GoTo loc_0084D536 + loc_0084D52A: End If + loc_0084D52A: var_eax = Err.Raise + loc_0084D530: var_278 = Err.Raise + loc_0084D536: 'Referenced from: 0084D528 + loc_0084D54A: Set ecx+eax*4 = var_4C + loc_0084D55E: If arg_C = var_FFFFFF Then + loc_0084D56B: var_24 = var_24 - 00000001h + loc_0084D56E: var_1D0 = var_24 + loc_0084D57B: If var_1D0 < 80 Then + loc_0084D587: GoTo loc_0084D595 + loc_0084D589: End If + loc_0084D589: var_eax = Err.Raise + loc_0084D58F: var_27C = Err.Raise + loc_0084D595: 'Referenced from: 0084D587 + loc_0084D5C3: Set edx+ecx*4 = var_9C + loc_0084D5D5: End If + loc_0084D5E0: var_24 = var_24 - 00000001h + loc_0084D5E3: var_1D0 = var_24 + loc_0084D5F0: If var_1D0 < 80 Then + loc_0084D5FC: GoTo loc_0084D60A + loc_0084D5FE: End If + loc_0084D5FE: var_eax = Err.Raise + loc_0084D604: var_280 = Err.Raise + loc_0084D60A: 'Referenced from: 0084D5FC + loc_0084D614: var_1D0 = var_1D0 * 20 + loc_0084D61D: 00886990h = 00886990h + var_1D0 + loc_0084D622: call __vbaCopyBytes(00000014h, 00886990h+var_1D0, var_38, var_9C, Err.Raise, var_4C, global_0040F490, var_4C, var_58, var_50, var_5C, var_54, var_7C, var_7C, 00000000h, var_30) + loc_0084D633: var_24 = var_24 - 00000001h + loc_0084D636: var_1D0 = var_24 + loc_0084D643: If var_1D0 < 80 Then + loc_0084D64F: GoTo loc_0084D65D + loc_0084D651: End If + loc_0084D651: var_eax = Err.Raise + loc_0084D657: var_284 = Err.Raise + loc_0084D65D: 'Referenced from: 0084D64F + loc_0084D667: var_1D0 = var_1D0 * 20 + loc_0084D670: 008869ACh = 008869ACh + var_1D0 + loc_0084D675: call __vbaCopyBytes(00000012h, 008869ACh+var_1D0, var_74) + loc_0084D686: var_24 = var_24 - 00000001h + loc_0084D689: var_1D0 = var_24 + loc_0084D696: If var_1D0 < 80 Then + loc_0084D6A2: GoTo loc_0084D6B0 + loc_0084D6A4: End If + loc_0084D6A4: var_eax = Err.Raise + loc_0084D6AA: var_288 = Err.Raise + loc_0084D6B0: 'Referenced from: 0084D6A2 + loc_0084D6C4: ecx = Me + loc_0084D6E0: var_7C. = PropBag.ReadProperty(, ) + loc_0084D6E5: var_1D0 = var_7C. + loc_0084D75D: var_1D4 = PropBag.ReadProperty(var_1C8, var_9C) + loc_0084D7C3: If var_1D8 Then + loc_0084D7C5: GoTo loc_0084D91C + loc_0084D7CA: End If + loc_0084D7E4: ReDim var_44(1 To 1) + loc_0084D7F8: var_24 = var_24 - 00000001h + loc_0084D7FB: var_1D0 = var_24 + loc_0084D808: If var_1D0 < 80 Then + loc_0084D814: GoTo loc_0084D822 + loc_0084D816: End If + loc_0084D816: var_eax = Err.Raise + loc_0084D81C: var_294 = Err.Raise + loc_0084D822: 'Referenced from: 0084D814 + loc_0084D843: var_24 = var_24 - 00000001h + loc_0084D846: var_1D0 = var_24 + loc_0084D853: If var_1D0 < 80 Then + loc_0084D85F: GoTo loc_0084D86D + loc_0084D861: End If + loc_0084D861: var_eax = Err.Raise + loc_0084D867: var_298 = Err.Raise + loc_0084D86D: 'Referenced from: 0084D85F + loc_0084D88A: var_24 = var_24 - 00000001h + loc_0084D88D: var_1D0 = var_24 + loc_0084D89A: If var_1D0 < 80 Then + loc_0084D8A6: GoTo loc_0084D8B4 + loc_0084D8A8: End If + loc_0084D8A8: var_eax = Err.Raise + loc_0084D8AE: var_29C = Err.Raise + loc_0084D8B4: 'Referenced from: 0084D8A6 + loc_0084D8D1: var_24 = var_24 - 00000001h + loc_0084D8D4: var_1D0 = var_24 + loc_0084D8E1: If var_1D0 < 80 Then + loc_0084D8ED: GoTo loc_0084D8FB + loc_0084D8EF: End If + loc_0084D8EF: var_eax = Err.Raise + loc_0084D8F5: var_2A0 = Err.Raise + loc_0084D8FB: 'Referenced from: 0084D8ED + loc_0084D918: var_78 = var_24 + loc_0084D91C: 'Referenced from: 0084C294 + loc_0084D921: GoTo loc_0084D9C0 + loc_0084D9BF: Exit Sub + loc_0084D9C0: 'Referenced from: 0084D921 + loc_0084D9D5: Exit Sub +End Sub + +Public Sub Proc_10_19_84DA00 + Dim global_008868FC As Me + loc_0084DA3B: If global_8868FA Then + loc_0084DA47: edi = Me - 1 + loc_0084DA4B: If Me - 1 >= 0 Then + loc_0084DA4D: var_eax = Err.Raise + loc_0084DA53: End If + loc_0084DA62: If Me > 80 Then ecx = 1 + loc_0084DA6B: If Me < 1 Then edx = 1 + loc_0084DA7C: If ebx+edi*2 <> 0 Then edx = 1 + loc_0084DA81: If edx = 0 Then + loc_0084DA8A: ebx = Me - 1 + loc_0084DA8E: If Me - 1 >= 0 Then + loc_0084DA90: var_eax = Err.Raise + loc_0084DA96: End If + loc_0084DA99: edi = Me - 1 + loc_0084DA9D: If Me - 1 >= 0 Then + loc_0084DA9F: var_eax = Err.Raise + loc_0084DAA5: End If + loc_0084DAC7: If edx = 0 Then + loc_0084DACF: 00886A98h = 00886A98h - 0001h + loc_0084DADC: global_886A98 = global_00886A98 + loc_0084DAE2: If var_886A98 <= 0 Then + loc_0084DAF0: var_28 = global_008868FC.hWnd + loc_0084DB14: var_eax = KillTimer(var_28, 0) + loc_0084DB33: global_008868E8 = KillTimer(var_28, 0) + loc_0084DB39: End If + loc_0084DB39: End If + loc_0084DB3C: ebx = Me - 1 + loc_0084DB40: If Me - 1 >= 0 Then + loc_0084DB42: var_eax = Err.Raise + loc_0084DB48: End If + loc_0084DB4B: edi = Me - 1 + loc_0084DB4F: If Me - 1 >= 0 Then + loc_0084DB51: var_eax = Err.Raise + loc_0084DB57: End If + loc_0084DB73: If edx+ebx*2 <> 0 Then eax = 1 + loc_0084DB78: If eax = 0 Then + loc_0084DB83: edi = Me - 1 + loc_0084DB87: If Me - 1 >= 0 Then + loc_0084DB89: var_eax = Err.Raise + loc_0084DB8B: End If + loc_0084DB95: Close #eax+edi*2 + loc_0084DB9B: GoTo loc_0084DBA3 + loc_0084DB9D: End If + loc_0084DBA3: 'Referenced from: 0084DB9B + loc_0084DBA6: edi = Me - 1 + loc_0084DBAA: If Me - 1 >= 0 Then + loc_0084DBAC: var_eax = Err.Raise + loc_0084DBAE: End If + loc_0084DBB9: If edx+edi*2 = 0 Then + loc_0084DBBE: edi = Me - 1 + loc_0084DBC2: If Me - 1 >= 0 Then + loc_0084DBC4: var_eax = Err.Raise + loc_0084DBC6: End If + loc_0084DBE9: Set ecx+edi*4 = var_14 + loc_0084DBF8: End If + loc_0084DBFB: edi = Me - 1 + loc_0084DBFF: If Me - 1 >= 0 Then + loc_0084DC01: var_eax = Err.Raise + loc_0084DC03: End If + loc_0084DC0D: If eax+edi*2 = 0 Then + loc_0084DC12: edi = Me - 1 + loc_0084DC16: If Me - 1 >= 0 Then + loc_0084DC18: var_eax = Err.Raise + loc_0084DC1A: End If + loc_0084DC3D: Set edx+edi*4 = Err.Raise + loc_0084DC4C: End If + loc_0084DC4F: edi = Me - 1 + loc_0084DC53: If Me - 1 >= 0 Then + loc_0084DC55: var_eax = Err.Raise + loc_0084DC57: End If + loc_0084DC66: edi = Me - 1 + loc_0084DC6A: If Me - 1 >= 0 Then + loc_0084DC6C: var_eax = Err.Raise + loc_0084DC6E: End If + loc_0084DC7D: edi = Me - 1 + loc_0084DC81: If Me - 1 >= 0 Then + loc_0084DC83: var_eax = Err.Raise + loc_0084DC85: End If + loc_0084DC93: edi = Me - 1 + loc_0084DC97: If Me - 1 >= 0 Then + loc_0084DC99: var_eax = Err.Raise + loc_0084DC9B: End If + loc_0084DCAA: edi = Me - 1 + loc_0084DCAE: If Me - 1 >= 0 Then + loc_0084DCB0: var_eax = Err.Raise + loc_0084DCB2: End If + loc_0084DCC2: edi = Me - 1 + loc_0084DCC6: If Me - 1 >= 0 Then + loc_0084DCC8: var_eax = Err.Raise + loc_0084DCCA: End If + loc_0084DCD9: edi = Me - 1 + loc_0084DCDD: If Me - 1 >= 0 Then + loc_0084DCDF: var_eax = Err.Raise + loc_0084DCE1: End If + loc_0084DCF1: edi = Me - 1 + loc_0084DCF5: If Me - 1 >= 0 Then + loc_0084DCF7: var_eax = Err.Raise + loc_0084DCF9: End If + loc_0084DD09: edi = Me - 1 + loc_0084DD0D: If Me - 1 >= 0 Then + loc_0084DD0F: var_eax = Err.Raise + loc_0084DD11: End If + loc_0084DD20: edi = Me - 1 + loc_0084DD24: If Me - 1 >= 0 Then + loc_0084DD26: var_eax = Err.Raise + loc_0084DD28: End If + loc_0084DD37: esi = Me - 1 + loc_0084DD3B: If Me - 1 >= 0 Then + loc_0084DD3D: var_eax = Err.Raise + loc_0084DD3F: End If + loc_0084DD4B: End If + loc_0084DD4B: End If + loc_0084DD50: GoTo loc_0084DD5C + loc_0084DD5B: Exit Sub + loc_0084DD5C: 'Referenced from: 0084DD50 +End Sub + +Public Sub Proc_10_20_84DD80 + Dim global_00886900 As Me + loc_0084DDD5: If var_8868FA = 0 Then + loc_0084DDD7: GoTo loc_0084DFA5 + loc_0084DDDC: End If + loc_0084DDE5: On Error Resume Next + loc_0084DDFD: If Me <> 44100 Then edx = 1 + loc_0084DE0B: If Me <> 22050 Then ecx = 1 + loc_0084DE21: If Me <> 11025 Then ecx = 1 + loc_0084DE2F: movzx cx, [eax] + loc_0084DE39: If ecx <> 8 Then eax = 1 + loc_0084DE3F: movzx cx, [ecx] + loc_0084DE49: If arg_C <> 16 Then ebx = 1 + loc_0084DE5F: movzx cx, [eax] + loc_0084DE63: arg_C = arg_C - 0001h + loc_0084DE71: movzx ax, [eax] + loc_0084DE7B: If arg_10 <> 2 Then ebx = 1 + loc_0084DE8A: If ebx = 0 Then + loc_0084DEA2: global_88691C = global_00000001 + loc_0084DEB2: movzx dx, [ecx] + loc_0084DED9: movzx ax, [edx] + loc_0084DEF2: [edx] = [edx] * + loc_0084DEFF: var_44 = arg_10 And 255 + loc_0084DF0C: If global_886000 = 0 Then + loc_0084DF14: GoTo loc_0084DF27 + loc_0084DF16: End If + loc_0084DF27: 'Referenced from: 0084DF14 + loc_0084DF37: global_886928 = CInt((var_44 / global_401750)) + loc_0084DF4E: 00886928h = 00886928h * ecx + loc_0084DF53: global_886924 = global_00886928 + loc_0084DF78: var_24 = global_00886900 + loc_0084DFA5: End If +End Sub + +Public Sub Proc_10_21_84DFD0 + Dim var_28 As Me + loc_0084E025: If var_8868FA = 0 Then + loc_0084E027: GoTo loc_0084E181 + loc_0084E02C: End If + loc_0084E035: On Error Resume Next + loc_0084E052: If var_24 < 80 Then + loc_0084E05B: GoTo loc_0084E066 + loc_0084E05D: End If + loc_0084E05D: var_eax = Err.Raise + loc_0084E063: var_44 = Err.Raise + loc_0084E066: 'Referenced from: 0084E05B + loc_0084E076: If var_28 < 80 Then + loc_0084E07F: GoTo loc_0084E08A + loc_0084E081: End If + loc_0084E081: var_eax = Err.Raise + loc_0084E087: var_48 = Err.Raise + loc_0084E08A: 'Referenced from: 0084E07F + loc_0084E093: If Me > 80 Then eax = 1 + loc_0084E09F: If Me < 1 Then edx = 1 + loc_0084E0EB: If arg_C < -10000 Then edx = 1 + loc_0084E101: If arg_C > 10000 Then edx = 1 + loc_0084E108: If edx = 0 Then + loc_0084E121: If var_24 < 80 Then + loc_0084E12A: GoTo loc_0084E135 + loc_0084E12C: End If + loc_0084E12C: var_eax = Err.Raise + loc_0084E132: var_4C = Err.Raise + loc_0084E135: 'Referenced from: 0084E12A + loc_0084E140: var_28 = eax+edx*4 + loc_0084E157: var_2C = var_28 + loc_0084E181: End If +End Sub + +Public Sub Proc_10_22_84E1A0 + Dim var_28 As Me + loc_0084E1F5: If var_8868FA = 0 Then + loc_0084E1F7: GoTo loc_0084E30E + loc_0084E1FC: End If + loc_0084E205: On Error Resume Next + loc_0084E222: If var_24 < 80 Then + loc_0084E22B: GoTo loc_0084E236 + loc_0084E22D: End If + loc_0084E22D: var_eax = Err.Raise + loc_0084E233: var_44 = Err.Raise + loc_0084E236: 'Referenced from: 0084E22B + loc_0084E23F: If Me > 80 Then ecx = 1 + loc_0084E24B: If Me < 1 Then eax = 1 + loc_0084E278: If arg_C > 0 Then edx = 1 + loc_0084E28E: If arg_C < -10000 Then edx = 1 + loc_0084E295: If edx = 0 Then + loc_0084E2AE: If var_24 < 80 Then + loc_0084E2B7: GoTo loc_0084E2C2 + loc_0084E2B9: End If + loc_0084E2B9: var_eax = Err.Raise + loc_0084E2BF: var_48 = Err.Raise + loc_0084E2C2: 'Referenced from: 0084E2B7 + loc_0084E2CD: var_28 = eax+edx*4 + loc_0084E2DF: var_28.Reset + loc_0084E2E4: var_2C = var_28.Reset + loc_0084E30E: End If +End Sub + +Public Sub Proc_10_23_84E330 + Dim var_9C As Me + Dim var_98 As Me + loc_0084E385: If var_8868FA Then + loc_0084E390: If var_886122 <> 0 Then GoTo loc_0084E397 + loc_0084E392: End If + loc_0084E392: GoTo loc_0084EB0A + loc_0084E397: + loc_0084E3A0: On Error Resume Next + loc_0084E3C3: If var_98 < 80 Then + loc_0084E3CF: GoTo loc_0084E3DD + loc_0084E3D1: End If + loc_0084E3D1: var_eax = Err.Raise + loc_0084E3D7: var_B8 = Err.Raise + loc_0084E3DD: 'Referenced from: 0084E3CF + loc_0084E3E6: If Me > 80 Then edx = 1 + loc_0084E3F2: If Me < 1 Then ecx = 1 + loc_0084E417: If ecx+eax*2 = 0 Then + loc_0084E43A: If var_98 < 80 Then + loc_0084E446: GoTo loc_0084E454 + loc_0084E448: End If + loc_0084E448: var_eax = Err.Raise + loc_0084E44E: var_BC = Err.Raise + loc_0084E454: 'Referenced from: 0084E446 + loc_0084E465: If ecx+eax*2 = var_FFFFFF Then + loc_0084E488: If var_98 < 80 Then + loc_0084E494: GoTo loc_0084E4A2 + loc_0084E496: End If + loc_0084E496: var_eax = Err.Raise + loc_0084E49C: var_C0 = Err.Raise + loc_0084E4A2: 'Referenced from: 0084E494 + loc_0084E4B1: var_9C = edx+ecx*4 + loc_0084E4CF: var_A0 = var_9C + loc_0084E516: If var_24 = 2 Then + loc_0084E523: var_eax = Proc_10_27_8521E0(Me, var_24, -1) + loc_0084E528: var_28 = Proc_10_27_8521E0(Me, var_24, -1) + loc_0084E539: If var_28 = 0 Then + loc_0084E53B: GoTo loc_0084EB0A + loc_0084E540: End If + loc_0084E540: End If + loc_0084E54D: 00886A98h = 00886A98h + 0001h + loc_0084E557: global_886A98 = var_9C.QueryInterface 'Ignore this + loc_0084E56C: If global_886A98 <= 1 Then + loc_0084E58F: var_90 = var_9C.hWnd + loc_0084E594: var_98 = var_90 + loc_0084E5E3: var_eax = SetTimer(var_90, 0, 500, global_0084F690) + loc_0084E5E8: var_94 = SetTimer(var_90, 0, 500, global_0084F690) + loc_0084E5FA: var_64 = var_94 + loc_0084E60C: global_008868E8 = var_94 + loc_0084E612: End If + loc_0084E62F: If var_98 < 80 Then + loc_0084E63B: GoTo loc_0084E649 + loc_0084E63D: End If + loc_0084E63D: var_eax = Err.Raise + loc_0084E643: var_CC = Err.Raise + loc_0084E649: 'Referenced from: 0084E63B + loc_0084E67B: If var_98 < 80 Then + loc_0084E687: GoTo loc_0084E695 + loc_0084E689: End If + loc_0084E689: var_eax = Err.Raise + loc_0084E68F: var_D0 = Err.Raise + loc_0084E695: 'Referenced from: 0084E687 + loc_0084E6A4: var_9C = edx+ecx*4 + loc_0084E6C4: var_A0 = var_9C + loc_0084E718: var_98 = var_2C + loc_0084E739: var_9C = PropBag.ReadProperty(var_90, var_2C) + loc_0084E781: If var_90 = -2005401450 Then ecx = 1 + loc_0084E79F: If var_A0 Then + loc_0084E7AC: var_eax = Proc_10_27_8521E0(Me, 0, 0) + loc_0084E7B1: var_28 = Proc_10_27_8521E0(Me, 0, 0) + loc_0084E7C2: If var_28 = 0 Then + loc_0084E7C4: GoTo loc_0084EB0A + loc_0084E7C9: End If + loc_0084E7C9: End If + loc_0084E7E6: If var_98 < 80 Then + loc_0084E7F2: GoTo loc_0084E800 + loc_0084E7F4: End If + loc_0084E7F4: var_eax = Err.Raise + loc_0084E7FA: var_DC = Err.Raise + loc_0084E800: 'Referenced from: 0084E7F2 + loc_0084E812: GoTo loc_0084EB0A + loc_0084E817: End If + loc_0084E834: If var_98 < 80 Then + loc_0084E840: GoTo loc_0084E84E + loc_0084E842: End If + loc_0084E842: var_eax = Err.Raise + loc_0084E848: var_E0 = Err.Raise + loc_0084E84E: 'Referenced from: 0084E840 + loc_0084E85C: var_9C = eax+edx*4 + loc_0084E87A: var_A0 = CheckObj(var_98, global_00410B14, 28) + loc_0084E8C1: If var_24 = 2 Then + loc_0084E8CE: var_eax = Proc_10_26_8515F0(Me, var_24, 1) + loc_0084E8D3: var_28 = Proc_10_26_8515F0(Me, var_24, 1) + loc_0084E8E4: If var_28 = 0 Then + loc_0084E8E6: GoTo loc_0084EB0A + loc_0084E8EB: End If + loc_0084E8EB: End If + loc_0084E908: If var_98 < 80 Then + loc_0084E914: GoTo loc_0084E922 + loc_0084E916: End If + loc_0084E916: var_eax = Err.Raise + loc_0084E91C: var_E8 = Err.Raise + loc_0084E922: 'Referenced from: 0084E914 + loc_0084E931: var_9C = ecx+eax*4 + loc_0084E986: var_ret_1 = CLng(IIf(False, 1, 0)) + loc_0084E9A5: var_A0 = CheckObj(var_98, global_00410B14, 28) + loc_0084EA14: var_98 = Err + loc_0084EA30: CheckObj(var_98, global_00410B14, 28).Err = PropBag.ReadProperty(var_90, var_2C) + loc_0084EA35: var_9C = PropBag.ReadProperty(var_90, var_2C) + loc_0084EA7D: If var_90 = -2005401450 Then edx = 1 + loc_0084EA9B: If var_A0 Then + loc_0084EAA8: var_eax = Proc_10_27_8521E0(Me, 0, 0) + loc_0084EAAD: var_28 = Proc_10_27_8521E0(Me, 0, 0) + loc_0084EABE: If var_28 = 0 Then + loc_0084EAC0: GoTo loc_0084EB0A + loc_0084EAC2: End If + loc_0084EAC2: End If + loc_0084EADF: If var_98 < 80 Then + loc_0084EAEB: GoTo loc_0084EAF9 + loc_0084EAED: End If + loc_0084EAED: var_eax = Err.Raise + loc_0084EAF3: var_F4 = Err.Raise + loc_0084EAF9: 'Referenced from: 0084EAEB + loc_0084EB0A: End If + loc_0084EB0F: GoTo loc_0084EB32 + loc_0084EB31: Exit Sub + loc_0084EB32: 'Referenced from: 0084EB0F +End Sub + +Public Sub Proc_10_24_84EB50 + Dim var_64 As Me + Dim var_68 As Me + Dim var_60 As Me + Dim var_40 As Me + loc_0084EBA5: If var_8868FA = 0 Then + loc_0084EBA7: GoTo loc_0084F5EE + loc_0084EBAC: End If + loc_0084EBB5: On Error Resume Next + loc_0084EBD2: If var_60 < 80 Then + loc_0084EBDE: GoTo loc_0084EBEC + loc_0084EBE0: End If + loc_0084EBE0: var_eax = Err.Raise + loc_0084EBE6: var_84 = Err.Raise + loc_0084EBEC: 'Referenced from: 0084EBDE + loc_0084EBF5: If Me > 80 Then ecx = 1 + loc_0084EC01: If Me < 1 Then eax = 1 + loc_0084EC22: If eax+edx*2 = 0 Then + loc_0084EC3F: If var_60 < 80 Then + loc_0084EC4B: GoTo loc_0084EC59 + loc_0084EC4D: End If + loc_0084EC4D: var_eax = Err.Raise + loc_0084EC53: var_88 = Err.Raise + loc_0084EC59: 'Referenced from: 0084EC4B + loc_0084EC66: If eax+edx*2 = var_FFFFFF Then + loc_0084EC83: If var_60 < 80 Then + loc_0084EC8F: GoTo loc_0084EC9D + loc_0084EC91: End If + loc_0084EC91: var_eax = Err.Raise + loc_0084EC97: var_8C = Err.Raise + loc_0084EC9D: 'Referenced from: 0084EC8F + loc_0084ECA9: var_64 = ecx+eax*4 + loc_0084ECB5: -1 = var_64.Name + loc_0084ECBA: var_68 = var_64 + loc_0084ED01: If var_60 < 80 Then + loc_0084ED0D: GoTo loc_0084ED1B + loc_0084ED0F: End If + loc_0084ED0F: var_eax = Err.Raise + loc_0084ED15: var_94 = Err.Raise + loc_0084ED1B: 'Referenced from: 0084ED0D + loc_0084ED27: var_64 = edx+ecx*4 + loc_0084ED3A: var_68 = var_64 + loc_0084ED81: If var_60 < 80 Then + loc_0084ED8D: GoTo loc_0084ED9B + loc_0084ED8F: End If + loc_0084ED8F: var_eax = Err.Raise + loc_0084ED95: var_9C = Err.Raise + loc_0084ED9B: 'Referenced from: 0084ED8D + loc_0084EDA9: If eax+edx*2 Then + loc_0084EDBD: 00886A98h = 00886A98h - 0001h + loc_0084EDC7: global_886A98 = global_00886A98 + loc_0084EDDD: If global_886A98 <= 0 Then + loc_0084EDFC: var_58 = var_64.hWnd + loc_0084EE01: var_60 = var_58 + loc_0084EE3A: var_eax = KillTimer(var_58, 0) + loc_0084EE3F: var_5C = KillTimer(var_58, 0) + loc_0084EE4B: var_4C = var_5C + loc_0084EE5D: global_008868E8 = var_5C + loc_0084EE63: End If + loc_0084EE63: End If + loc_0084EE7A: If var_64 < 80 Then + loc_0084EE86: GoTo loc_0084EE94 + loc_0084EE88: End If + loc_0084EE88: var_eax = Err.Raise + loc_0084EE8E: var_A4 = Err.Raise + loc_0084EE94: 'Referenced from: 0084EE86 + loc_0084EEA4: If var_60 < 80 Then + loc_0084EEB0: GoTo loc_0084EEBE + loc_0084EEB2: End If + loc_0084EEB2: var_eax = Err.Raise + loc_0084EEB8: var_A8 = Err.Raise + loc_0084EEBE: 'Referenced from: 0084EEB0 + loc_0084EED9: Seek #ecx+eax*2, ecx+eax*4 + loc_0084EEF6: If var_60 < 80 Then + loc_0084EF02: GoTo loc_0084EF10 + loc_0084EF04: End If + loc_0084EF04: var_eax = Err.Raise + loc_0084EF0A: var_AC = Err.Raise + loc_0084EF10: 'Referenced from: 0084EF02 + loc_0084EF15: var_60 = var_60 * 20 + loc_0084EF31: ReDim var_28(1 To eax+edx+00000008h) + loc_0084EF51: If var_60 < 80 Then + loc_0084EF5D: GoTo loc_0084EF6B + loc_0084EF5F: End If + loc_0084EF5F: var_eax = Err.Raise + loc_0084EF65: var_B0 = Err.Raise + loc_0084EF6B: 'Referenced from: 0084EF5D + loc_0084EF81: Get #eax+edx*2, var_28 + loc_0084EF9E: If var_60 < 80 Then + loc_0084EFAA: GoTo loc_0084EFB8 + loc_0084EFAC: End If + loc_0084EFAC: var_eax = Err.Raise + loc_0084EFB2: var_B4 = Err.Raise + loc_0084EFB8: 'Referenced from: 0084EFAA + loc_0084EFC3: var_64 = eax+edx*4 + loc_0084EFD8: var_68 = var_64 + loc_0084F013: If var_24 = 2 Then + loc_0084F020: var_eax = Proc_10_27_8521E0(Me, var_24, 0) + loc_0084F025: var_30 = Proc_10_27_8521E0(Me, var_24, 0) + loc_0084F036: If var_30 = 0 Then + loc_0084F052: ReDim var_28(1 To 1) + loc_0084F05B: GoTo loc_0084F5EE + loc_0084F060: End If + loc_0084F060: End If + loc_0084F077: If var_64 < 80 Then + loc_0084F083: GoTo loc_0084F091 + loc_0084F085: End If + loc_0084F085: var_eax = Err.Raise + loc_0084F08B: var_BC = Err.Raise + loc_0084F091: 'Referenced from: 0084F083 + loc_0084F09D: var_68 = edx+ecx*4 + loc_0084F0B0: If var_60 < 80 Then + loc_0084F0BC: GoTo loc_0084F0CA + loc_0084F0BE: End If + loc_0084F0BE: var_eax = Err.Raise + loc_0084F0C4: var_C0 = Err.Raise + loc_0084F0CA: 'Referenced from: 0084F0BC + loc_0084F0DF: var_60 = var_60 * 20 + loc_0084F0FD: var_6C = CheckObj(var_64, global_0040F480, 36) + loc_0084F15A: var_64 = PropBag.ReadProperty(var_58, var_44) + loc_0084F193: If var_58 = -2005401450 Then ecx = 1 + loc_0084F1AB: If var_68 Then + loc_0084F1B8: var_eax = Proc_10_27_8521E0(Me, 0, edx+ecx+00000008h) + loc_0084F1BD: var_30 = Proc_10_27_8521E0(Me, 0, edx+ecx+00000008h) + loc_0084F1CE: If var_30 = 0 Then + loc_0084F1EA: ReDim var_28(1 To 1) + loc_0084F1F3: GoTo loc_0084F5EE + loc_0084F1F8: End If + loc_0084F1F8: End If + loc_0084F211: If var_40 Then + loc_0084F21A: If var_40 = 1 Then + loc_0084F224: 00000001h = 00000001h - eax+00000014h + loc_0084F233: If var_60 < var_178 Then + loc_0084F23F: GoTo loc_0084F24D + loc_0084F241: End If + loc_0084F241: var_eax = Err.Raise + loc_0084F247: var_CC = Err.Raise + loc_0084F24D: 'Referenced from: 0084F23F + loc_0084F250: var_D0 = var_60 + loc_0084F256: GoTo loc_0084F264 + loc_0084F258: End If + loc_0084F258: End If + loc_0084F258: var_eax = Err.Raise + loc_0084F25E: var_D0 = Err.Raise + loc_0084F264: 'Referenced from: 0084F256 + loc_0084F26A: var_64.GetTypeInfoCount 'Ignore this = var_64.GetTypeInfoCount 'Ignore this + var_D0 + loc_0084F290: var_eax = CopyMemory(var_38, VarPtr(var_64.GetTypeInfoCount), var_2C) + loc_0084F2A6: If var_34 Then + loc_0084F2C5: If var_40 Then + loc_0084F2CE: If var_40 = 1 Then + loc_0084F2DF: var_2C(1) = var_2C(1) - eax+00000014h + loc_0084F2E2: var_60 = var_2C(1) + loc_0084F2EE: If var_60 < 0 Then + loc_0084F2FA: GoTo loc_0084F308 + loc_0084F2FC: End If + loc_0084F2FC: var_eax = Err.Raise + loc_0084F302: var_D4 = Err.Raise + loc_0084F308: 'Referenced from: 0084F2FA + loc_0084F30B: var_D8 = var_60 + loc_0084F311: GoTo loc_0084F31F + loc_0084F313: End If + loc_0084F313: End If + loc_0084F313: var_eax = Err.Raise + loc_0084F319: var_D8 = Err.Raise + loc_0084F31F: 'Referenced from: 0084F311 + loc_0084F325: var_64.GetTypeInfoCount 'Ignore this = var_64.GetTypeInfoCount 'Ignore this + var_D8 + loc_0084F34B: var_eax = CopyMemory(var_3C, VarPtr(var_64.GetTypeInfoCount), var_34) + loc_0084F356: End If + loc_0084F36D: If var_60 < 80 Then + loc_0084F379: GoTo loc_0084F387 + loc_0084F37B: End If + loc_0084F37B: var_eax = Err.Raise + loc_0084F381: var_DC = Err.Raise + loc_0084F387: 'Referenced from: 0084F379 + loc_0084F38A: var_2C = var_2C + var_34 + loc_0084F3B6: If var_60 < 80 Then + loc_0084F3C2: GoTo loc_0084F3D0 + loc_0084F3C4: End If + loc_0084F3C4: var_eax = Err.Raise + loc_0084F3CA: var_E0 = Err.Raise + loc_0084F3D0: 'Referenced from: 0084F3C2 + loc_0084F3F6: If var_60 < 80 Then + loc_0084F402: GoTo loc_0084F410 + loc_0084F404: End If + loc_0084F404: var_eax = Err.Raise + loc_0084F40A: var_E4 = Err.Raise + loc_0084F410: 'Referenced from: 0084F402 + loc_0084F41C: var_64 = ecx+eax*4 + loc_0084F438: var_eax = Unknown_VTable_Call[edx+0000004Ch] + loc_0084F43D: var_68 = Unknown_VTable_Call[edx+0000004Ch] + loc_0084F484: If var_60 < 80 Then + loc_0084F490: GoTo loc_0084F49E + loc_0084F492: End If + loc_0084F492: var_eax = Err.Raise + loc_0084F498: var_EC = Err.Raise + loc_0084F49E: 'Referenced from: 0084F490 + loc_0084F4AC: GoTo loc_0084F5EE + loc_0084F4B1: End If + loc_0084F4C8: If var_60 < 80 Then + loc_0084F4D4: GoTo loc_0084F4E2 + loc_0084F4D6: End If + loc_0084F4D6: var_eax = Err.Raise + loc_0084F4DC: var_F0 = Err.Raise + loc_0084F4E2: 'Referenced from: 0084F4D4 + loc_0084F4EE: var_64 = ecx+eax*4 + loc_0084F4FA: var_64 = var_64.Name + loc_0084F4FF: var_68 = var_64 + loc_0084F546: If var_60 < 80 Then + loc_0084F552: GoTo loc_0084F560 + loc_0084F554: End If + loc_0084F554: var_eax = Err.Raise + loc_0084F55A: var_F8 = Err.Raise + loc_0084F560: 'Referenced from: 0084F552 + loc_0084F56C: var_64 = edx+ecx*4 + loc_0084F57F: var_68 = var_64 + loc_0084F5C6: If var_60 < 80 Then + loc_0084F5D2: GoTo loc_0084F5E0 + loc_0084F5D4: End If + loc_0084F5D4: var_eax = Err.Raise + loc_0084F5DA: var_100 = Err.Raise + loc_0084F5E0: 'Referenced from: 0084F5D2 + loc_0084F5EE: End If + loc_0084F5F3: GoTo loc_0084F609 + loc_0084F608: Exit Sub + loc_0084F609: 'Referenced from: 0084F5F3 + loc_0084F615: Exit Sub +End Sub + +Public Sub Proc_10_25_84F690 + Dim var_C4 As Me + Dim var_C0 As Me + Dim var_E0 As Me + Dim var_BC As Me + Dim var_4C As Me + loc_0084F6E5: If var_8868FA = 0 Then + loc_0084F6E7: GoTo loc_0085158C + loc_0084F6EC: End If + loc_0084F6F5: On Error Resume Next + loc_0084F71A: GoTo loc_0084F731 + loc_0084F71C: + loc_0084F720: var_48 = var_48 + var_E8 + loc_0084F72D: var_48 = var_48+var_E8 + loc_0084F731: 'Referenced from: 0084F71A + loc_0084F73C: If var_48 <= &H50 Then + loc_0084F75A: var_48 = var_48 - 00000001h + loc_0084F75D: var_BC = var_48 + loc_0084F76A: If var_BC < 80 Then + loc_0084F776: GoTo loc_0084F784 + loc_0084F778: End If + loc_0084F778: var_eax = Err.Raise + loc_0084F77E: var_11C = Err.Raise + loc_0084F784: 'Referenced from: 0084F776 + loc_0084F788: var_48 = var_48 - 00000001h + loc_0084F78B: var_C0 = var_48 + loc_0084F798: If var_C0 < 80 Then + loc_0084F7A4: GoTo loc_0084F7B2 + loc_0084F7A6: End If + loc_0084F7A6: var_eax = Err.Raise + loc_0084F7AC: var_120 = Err.Raise + loc_0084F7B2: 'Referenced from: 0084F7A4 + loc_0084F7C5: ecx = eax+edx*2 + 1 + loc_0084F7D9: edx = eax+edx*2 + 1 + loc_0084F7DE: If eax+edx*2 + 1 = 0 Then + loc_0084F7EF: var_48 = var_48 - 00000001h + loc_0084F7F2: var_BC = var_48 + loc_0084F7FF: If var_BC < 80 Then + loc_0084F80B: GoTo loc_0084F819 + loc_0084F80D: End If + loc_0084F80D: var_eax = Err.Raise + loc_0084F813: var_124 = Err.Raise + loc_0084F819: 'Referenced from: 0084F80B + loc_0084F836: var_48 = var_48 - 00000001h + loc_0084F839: var_C0 = var_48 + loc_0084F846: If var_C0 < 80 Then + loc_0084F852: GoTo loc_0084F860 + loc_0084F854: End If + loc_0084F854: var_eax = Err.Raise + loc_0084F85A: var_128 = Err.Raise + loc_0084F860: 'Referenced from: 0084F852 + loc_0084F86F: var_C4 = edx+ecx*4 + loc_0084F880: var_B8 = CLng(global_008868E8) + loc_0084F88A: var_48 = var_48 - 00000001h + loc_0084F88D: var_BC = var_48 + loc_0084F89A: If var_BC < 80 Then + loc_0084F8A6: GoTo loc_0084F8B4 + loc_0084F8A8: End If + loc_0084F8A8: var_eax = Err.Raise + loc_0084F8AE: var_12C = Err.Raise + loc_0084F8B4: 'Referenced from: 0084F8A6 + loc_0084F8DF: var_C8 = var_C4 + loc_0084F926: var_48 = var_48 - 00000001h + loc_0084F929: var_BC = var_48 + loc_0084F936: If var_BC < 80 Then + loc_0084F942: GoTo loc_0084F950 + loc_0084F944: End If + loc_0084F944: var_eax = Err.Raise + loc_0084F94A: var_134 = Err.Raise + loc_0084F950: 'Referenced from: 0084F942 + loc_0084F95F: var_C0 = ecx+eax*4 + loc_0084F97D: var_C4 = var_C0 + loc_0084F9C4: If var_28 = 2 Then + loc_0084F9D1: var_eax = Proc_10_27_8521E0(var_48, var_28, ecx+eax*4) + loc_0084F9D6: var_38 = Proc_10_27_8521E0(var_48, var_28, ecx+eax*4) + loc_0084F9DA: End If + loc_0084F9E6: If var_38 = var_FFFFFF Then + loc_0084F9F7: var_48 = var_48 - 00000001h + loc_0084F9FA: var_CC = var_48 + loc_0084FA07: If var_CC < 80 Then + loc_0084FA13: GoTo loc_0084FA21 + loc_0084FA15: End If + loc_0084FA15: var_eax = Err.Raise + loc_0084FA1B: var_13C = Err.Raise + loc_0084FA21: 'Referenced from: 0084FA13 + loc_0084FA25: var_48 = var_48 - 00000001h + loc_0084FA28: var_D0 = var_48 + loc_0084FA35: If var_D0 < 80 Then + loc_0084FA41: GoTo loc_0084FA4F + loc_0084FA43: End If + loc_0084FA43: var_eax = Err.Raise + loc_0084FA49: var_140 = Err.Raise + loc_0084FA4F: 'Referenced from: 0084FA41 + loc_0084FA53: var_48 = var_48 - 00000001h + loc_0084FA56: var_D4 = var_48 + loc_0084FA63: If var_D4 < 80 Then + loc_0084FA6F: GoTo loc_0084FA7D + loc_0084FA71: End If + loc_0084FA71: var_eax = Err.Raise + loc_0084FA77: var_144 = Err.Raise + loc_0084FA7D: 'Referenced from: 0084FA6F + loc_0084FA83: var_CC = var_CC * 20 + loc_0084FA9C: edx+ecx+00000008h = edx+ecx+00000008h - esi+eax*4 + loc_0084FAB0: edx+ecx+00000008h = edx+ecx+00000008h + eax+edx*4 + loc_0084FAB9: var_68 = edx+ecx+00000008h+eax+edx*4 + loc_0084FAC7: var_48 = var_48 - 00000001h + loc_0084FACA: var_C4 = var_48 + loc_0084FAD7: If var_C4 < 80 Then + loc_0084FAE3: GoTo loc_0084FAF1 + loc_0084FAE5: End If + loc_0084FAE5: var_eax = Err.Raise + loc_0084FAEB: var_148 = Err.Raise + loc_0084FAF1: 'Referenced from: 0084FAE3 + loc_0084FAF5: var_48 = var_48 - 00000001h + loc_0084FAF8: var_C8 = var_48 + loc_0084FB05: If var_C8 < 80 Then + loc_0084FB11: GoTo loc_0084FB1F + loc_0084FB13: End If + loc_0084FB13: var_eax = Err.Raise + loc_0084FB19: var_14C = Err.Raise + loc_0084FB1F: 'Referenced from: 0084FB11 + loc_0084FB3A: ecx+eax*4 = ecx+eax*4 - esi+edx*4 + loc_0084FB43: var_58 = ecx+eax*4 + loc_0084FB51: var_48 = var_48 - 00000001h + loc_0084FB54: var_BC = var_48 + loc_0084FB61: If var_BC < 80 Then + loc_0084FB6D: GoTo loc_0084FB7B + loc_0084FB6F: End If + loc_0084FB6F: var_eax = Err.Raise + loc_0084FB75: var_150 = Err.Raise + loc_0084FB7B: 'Referenced from: 0084FB6D + loc_0084FB7F: var_48 = var_48 - 00000001h + loc_0084FB82: var_C0 = var_48 + loc_0084FB8F: If var_C0 < 80 Then + loc_0084FB9B: GoTo loc_0084FBA9 + loc_0084FB9D: End If + loc_0084FB9D: var_eax = Err.Raise + loc_0084FBA3: var_154 = Err.Raise + loc_0084FBA9: 'Referenced from: 0084FB9B + loc_0084FBC9: If ecx+eax*4 < 0 Then ecx = 1 + loc_0084FBF2: var_80 = IIf(False, ecx+eax*4, edx+ecx+00000008h+eax+edx*4) + loc_0084FBFC: var_48 = var_48 - 00000001h + loc_0084FBFF: var_DC = var_48 + loc_0084FC0C: If var_DC < 80 Then + loc_0084FC18: GoTo loc_0084FC26 + loc_0084FC1A: End If + loc_0084FC1A: var_eax = Err.Raise + loc_0084FC20: var_158 = Err.Raise + loc_0084FC26: 'Referenced from: 0084FC18 + loc_0084FC35: var_E0 = edx+ecx*4 + loc_0084FC3F: var_48 = var_48 - 00000001h + loc_0084FC42: var_D8 = var_48 + loc_0084FC4F: If var_D8 < 80 Then + loc_0084FC5B: GoTo loc_0084FC69 + loc_0084FC5D: End If + loc_0084FC5D: var_eax = Err.Raise + loc_0084FC63: var_15C = Err.Raise + loc_0084FC69: 'Referenced from: 0084FC5B + loc_0084FC7F: var_ret_2 = CLng(var_80) + loc_0084FCAA: var_E4 = var_E0 + loc_0084FD3D: var_C0 = PropBag.ReadProperty(var_B8, var_50) + loc_0084FDA0: If var_C4 Then + loc_0084FDA2: GoTo loc_00851580 + loc_0084FDA7: End If + loc_0084FDB2: var_48 = var_48 - 00000001h + loc_0084FDB5: var_BC = var_48 + loc_0084FDC2: If var_BC < 80 Then + loc_0084FDCE: GoTo loc_0084FDDC + loc_0084FDD0: End If + loc_0084FDD0: var_eax = Err.Raise + loc_0084FDD6: var_168 = Err.Raise + loc_0084FDDC: 'Referenced from: 0084FDCE + loc_0084FDE0: var_48 = var_48 - 00000001h + loc_0084FDE3: var_C0 = var_48 + loc_0084FDF0: If var_C0 < 80 Then + loc_0084FDFC: GoTo loc_0084FE0A + loc_0084FDFE: End If + loc_0084FDFE: var_eax = Err.Raise + loc_0084FE04: var_16C = Err.Raise + loc_0084FE0A: 'Referenced from: 0084FDFC + loc_0084FE0E: var_48 = var_48 - 00000001h + loc_0084FE11: var_C4 = var_48 + loc_0084FE1E: If var_C4 < 80 Then + loc_0084FE2A: GoTo loc_0084FE38 + loc_0084FE2C: End If + loc_0084FE2C: var_eax = Err.Raise + loc_0084FE32: var_170 = Err.Raise + loc_0084FE38: 'Referenced from: 0084FE2A + loc_0084FE5D: edx+ecx*4 = edx+ecx*4 + var_30 + loc_0084FE66: edx+ecx*4+var_30 = edx+ecx*4+var_30 + var_34 + loc_0084FE87: If ebx = 0 Then + loc_0084FE98: var_48 = var_48 - 00000001h + loc_0084FE9B: var_C4 = var_48 + loc_0084FEA8: If var_C4 < 80 Then + loc_0084FEB4: GoTo loc_0084FEC2 + loc_0084FEB6: End If + loc_0084FEB6: var_eax = Err.Raise + loc_0084FEBC: var_174 = Err.Raise + loc_0084FEC2: 'Referenced from: 0084FEB4 + loc_0084FEC6: var_48 = var_48 - 00000001h + loc_0084FEC9: var_BC = var_48 + loc_0084FED6: If var_BC < 80 Then + loc_0084FEE2: GoTo loc_0084FEF0 + loc_0084FEE4: End If + loc_0084FEE4: var_eax = Err.Raise + loc_0084FEEA: var_178 = Err.Raise + loc_0084FEF0: 'Referenced from: 0084FEE2 + loc_0084FEF4: var_48 = var_48 - 00000001h + loc_0084FEF7: var_C0 = var_48 + loc_0084FF04: If var_C0 < 80 Then + loc_0084FF10: GoTo loc_0084FF1E + loc_0084FF12: End If + loc_0084FF12: var_eax = Err.Raise + loc_0084FF18: var_17C = Err.Raise + loc_0084FF1E: 'Referenced from: 0084FF10 + loc_0084FF4A: ecx+eax*4 = ecx+eax*4 + esi+edx*4 + loc_0084FF54: Seek #ecx+eax*2, ecx+eax*4+esi+edx*4 + loc_0084FF65: var_48 = var_48 - 00000001h + loc_0084FF68: var_BC = var_48 + loc_0084FF75: If var_BC < 80 Then + loc_0084FF81: GoTo loc_0084FF8F + loc_0084FF83: End If + loc_0084FF83: var_eax = Err.Raise + loc_0084FF89: var_180 = Err.Raise + loc_0084FF8F: 'Referenced from: 0084FF81 + loc_0084FF93: var_48 = var_48 - 00000001h + loc_0084FF96: var_C0 = var_48 + loc_0084FFA3: If var_C0 < 80 Then + loc_0084FFAF: GoTo loc_0084FFBD + loc_0084FFB1: End If + loc_0084FFB1: var_eax = Err.Raise + loc_0084FFB7: var_184 = Err.Raise + loc_0084FFBD: 'Referenced from: 0084FFAF + loc_0084FFDA: ecx+eax*4 = ecx+eax*4 - esi+edx*4 + loc_0084FFE3: ecx+eax*4 = ecx+eax*4 - 00000001h + loc_0084FFFC: ReDim var_2C(1 To ecx+eax*4) + loc_00850010: var_48 = var_48 - 00000001h + loc_00850013: var_BC = var_48 + loc_00850020: If var_BC < 80 Then + loc_0085002C: GoTo loc_0085003A + loc_0085002E: End If + loc_0085002E: var_eax = Err.Raise + loc_00850034: var_188 = Err.Raise + loc_0085003A: 'Referenced from: 0085002C + loc_00850054: Get #ecx+eax*2, var_2C + loc_00850066: var_30 = var_30 + var_34 + loc_0085007F: ReDim Preserve var_2C(1 To var_30+var_34) + loc_00850093: var_48 = var_48 - 00000001h + loc_00850096: var_C4 = var_48 + loc_008500A3: If var_C4 < 80 Then + loc_008500AF: GoTo loc_008500BD + loc_008500B1: End If + loc_008500B1: var_eax = Err.Raise + loc_008500B7: var_18C = Err.Raise + loc_008500BD: 'Referenced from: 008500AF + loc_008500C1: var_48 = var_48 - 00000001h + loc_008500C4: var_BC = var_48 + loc_008500D1: If var_BC < 80 Then + loc_008500DD: GoTo loc_008500EB + loc_008500DF: End If + loc_008500DF: var_eax = Err.Raise + loc_008500E5: var_190 = Err.Raise + loc_008500EB: 'Referenced from: 008500DD + loc_008500EF: var_48 = var_48 - 00000001h + loc_008500F2: var_C0 = var_48 + loc_008500FF: If var_C0 < 80 Then + loc_0085010B: GoTo loc_00850119 + loc_0085010D: End If + loc_0085010D: var_eax = Err.Raise + loc_00850113: var_194 = Err.Raise + loc_00850119: 'Referenced from: 0085010B + loc_00850145: ecx+eax*4 = ecx+eax*4 + esi+edx*4 + loc_0085014F: Seek #ecx+eax*2, ecx+eax*4+esi+edx*4 + loc_00850160: var_48 = var_48 - 00000001h + loc_00850163: var_BC = var_48 + loc_00850170: If var_BC < 80 Then + loc_0085017C: GoTo loc_0085018A + loc_0085017E: End If + loc_0085017E: var_eax = Err.Raise + loc_00850184: var_198 = Err.Raise + loc_0085018A: 'Referenced from: 0085017C + loc_0085018E: var_48 = var_48 - 00000001h + loc_00850191: var_C0 = var_48 + loc_0085019E: If var_C0 < 80 Then + loc_008501AA: GoTo loc_008501B8 + loc_008501AC: End If + loc_008501AC: var_eax = Err.Raise + loc_008501B2: var_19C = Err.Raise + loc_008501B8: 'Referenced from: 008501AA + loc_008501D3: ecx+eax*4 = ecx+eax*4 - esi+edx*4 + loc_008501E0: var_30 = var_30 + var_34 + loc_008501F9: ReDim var_40(ecx+eax*4 To var_30+var_34) + loc_0085020D: var_48 = var_48 - 00000001h + loc_00850210: var_BC = var_48 + loc_0085021D: If var_BC < 80 Then + loc_00850229: GoTo loc_00850237 + loc_0085022B: End If + loc_0085022B: var_eax = Err.Raise + loc_00850231: var_1A0 = Err.Raise + loc_00850237: 'Referenced from: 00850229 + loc_00850251: Get #edx+ecx*2, var_40 + loc_00850261: var_30 = var_30 + var_34 + loc_0085026A: var_F4 = var_30+var_34 + loc_0085027E: var_48 = var_48 - 00000001h + loc_00850281: var_BC = var_48 + loc_0085028E: If var_BC < 80 Then + loc_0085029A: GoTo loc_008502A8 + loc_0085029C: End If + loc_0085029C: var_eax = Err.Raise + loc_008502A2: var_1A4 = Err.Raise + loc_008502A8: 'Referenced from: 0085029A + loc_008502AC: var_48 = var_48 - 00000001h + loc_008502AF: var_C0 = var_48 + loc_008502BC: If var_C0 < 80 Then + loc_008502C8: GoTo loc_008502D6 + loc_008502CA: End If + loc_008502CA: var_eax = Err.Raise + loc_008502D0: var_1A8 = Err.Raise + loc_008502D6: 'Referenced from: 008502C8 + loc_008502F0: eax+edx*4 = eax+edx*4 - esi+ecx*4 + loc_008502F9: var_24 = eax+edx*4 + loc_008502FC: GoTo loc_00850310 + loc_008502FE: + loc_00850301: var_24 = var_24 + var_F0 + loc_0085030D: var_24 = var_24+var_F0 + loc_00850310: 'Referenced from: 008502FC + loc_00850319: If var_24 <= var_30+var_34 Then + loc_0085032A: If var_40 Then + loc_00850333: If var_40 = 1 Then + loc_0085033B: var_24 = var_24 - eax+00000014h + loc_0085033E: var_C0 = var_24 + loc_00850350: If var_C0 < var_178 Then + loc_0085035C: GoTo loc_0085036A + loc_0085035E: End If + loc_0085035E: var_eax = Err.Raise + loc_00850364: var_1AC = Err.Raise + loc_0085036A: 'Referenced from: 0085035C + loc_00850370: var_1B0 = var_C0 + loc_00850376: GoTo loc_00850384 + loc_00850378: End If + loc_00850378: End If + loc_00850378: var_eax = Err.Raise + loc_0085037E: var_1B0 = Err.Raise + loc_00850384: 'Referenced from: 00850376 + loc_00850388: If var_2C Then + loc_00850391: If var_2C = 1 Then + loc_00850399: var_24 = var_24 - eax+00000014h + loc_0085039C: var_BC = var_24 + loc_008503AE: If var_BC < var_178 Then + loc_008503BA: GoTo loc_008503C8 + loc_008503BC: End If + loc_008503BC: var_eax = Err.Raise + loc_008503C2: var_1B4 = Err.Raise + loc_008503C8: 'Referenced from: 008503BA + loc_008503CE: var_1B8 = var_BC + loc_008503D4: GoTo loc_008503E2 + loc_008503D6: End If + loc_008503D6: End If + loc_008503D6: var_eax = Err.Raise + loc_008503DC: var_1B8 = Err.Raise + loc_008503E2: 'Referenced from: 008503D4 + loc_00850407: GoTo loc_008502FE + loc_0085040C: End If + loc_00850416: var_A8 = var_34 + loc_0085042A: var_48 = var_48 - 00000001h + loc_0085042D: var_C0 = var_48 + loc_0085043A: If var_C0 < 80 Then + loc_00850446: GoTo loc_00850454 + loc_00850448: End If + loc_00850448: var_eax = Err.Raise + loc_0085044E: var_1BC = Err.Raise + loc_00850454: 'Referenced from: 00850446 + loc_00850463: ecx+eax*4 = ecx+eax*4 + var_30 + loc_0085046C: var_58 = ecx+eax*4+var_30 + loc_0085047C: If var_34 = 0 Then eax = 1 + loc_008504A8: var_70 = IIf(False, ecx+eax*4+var_30, var_34) + loc_008504B2: var_48 = var_48 - 00000001h + loc_008504B5: var_BC = var_48 + loc_008504C2: If var_BC < 80 Then + loc_008504CE: GoTo loc_008504DC + loc_008504D0: End If + loc_008504D0: var_eax = Err.Raise + loc_008504D6: var_1C0 = Err.Raise + loc_008504DC: 'Referenced from: 008504CE + loc_008504E0: var_ret_3 = CLng(var_70) + loc_0085051A: var_48 = var_48 - 00000001h + loc_0085051D: var_C0 = var_48 + loc_0085052A: If var_C0 < 80 Then + loc_00850536: GoTo loc_00850544 + loc_00850538: End If + loc_00850538: var_eax = Err.Raise + loc_0085053E: var_1C4 = Err.Raise + loc_00850544: 'Referenced from: 00850536 + loc_00850548: var_48 = var_48 - 00000001h + loc_0085054B: var_BC = var_48 + loc_00850558: If var_BC < 80 Then + loc_00850564: GoTo loc_00850572 + loc_00850566: End If + loc_00850566: var_eax = Err.Raise + loc_0085056C: var_1C8 = Err.Raise + loc_00850572: 'Referenced from: 00850564 + loc_00850580: eax+edx*4 = eax+edx*4 + var_30 + loc_00850589: eax+edx*4+var_30 = eax+edx*4+var_30 + var_34 + loc_008505AB: var_48 = var_48 - 00000001h + loc_008505AE: var_C0 = var_48 + loc_008505BB: If var_C0 < 80 Then + loc_008505C7: GoTo loc_008505D5 + loc_008505C9: End If + loc_008505C9: var_eax = Err.Raise + loc_008505CF: var_1CC = Err.Raise + loc_008505D5: 'Referenced from: 008505C7 + loc_008505D9: var_48 = var_48 - 00000001h + loc_008505DC: var_C4 = var_48 + loc_008505E9: If var_C4 < 80 Then + loc_008505F5: GoTo loc_00850603 + loc_008505F7: End If + loc_008505F7: var_eax = Err.Raise + loc_008505FD: var_1D0 = Err.Raise + loc_00850603: 'Referenced from: 008505F5 + loc_00850607: var_48 = var_48 - 00000001h + loc_0085060A: var_C8 = var_48 + loc_00850617: If var_C8 < 80 Then + loc_00850623: GoTo loc_00850631 + loc_00850625: End If + loc_00850625: var_eax = Err.Raise + loc_0085062B: var_1D4 = Err.Raise + loc_00850631: 'Referenced from: 00850623 + loc_00850635: var_48 = var_48 - 00000001h + loc_00850638: var_BC = var_48 + loc_00850645: If var_BC < 80 Then + loc_00850651: GoTo loc_0085065F + loc_00850653: End If + loc_00850653: var_eax = Err.Raise + loc_00850659: var_1D8 = Err.Raise + loc_0085065F: 'Referenced from: 00850651 + loc_00850662: var_30 = var_30 + var_34 + loc_00850686: ecx+eax*4 = ecx+eax*4 - edi+esi*4 + loc_0085068F: ecx+eax*4 = ecx+eax*4 - 00000001h + loc_00850698: var_30+var_34 = var_30+var_34 - ecx+eax*4 + loc_008506AE: eax+ecx*4 = eax+ecx*4 + var_30+var_34 + loc_008506C4: GoTo loc_00851095 + loc_008506C9: End If + loc_008506D4: var_48 = var_48 - 00000001h + loc_008506D7: var_BC = var_48 + loc_008506E4: If var_BC < 80 Then + loc_008506F0: GoTo loc_008506FE + loc_008506F2: End If + loc_008506F2: var_eax = Err.Raise + loc_008506F8: var_1DC = Err.Raise + loc_008506FE: 'Referenced from: 008506F0 + loc_00850702: var_48 = var_48 - 00000001h + loc_00850705: var_C0 = var_48 + loc_00850712: If var_C0 < 80 Then + loc_0085071E: GoTo loc_0085072C + loc_00850720: End If + loc_00850720: var_eax = Err.Raise + loc_00850726: var_1E0 = Err.Raise + loc_0085072C: 'Referenced from: 0085071E + loc_00850730: var_48 = var_48 - 00000001h + loc_00850733: var_C4 = var_48 + loc_00850740: If var_C4 < 80 Then + loc_0085074C: GoTo loc_0085075A + loc_0085074E: End If + loc_0085074E: var_eax = Err.Raise + loc_00850754: var_1E4 = Err.Raise + loc_0085075A: 'Referenced from: 0085074C + loc_0085077F: edx+ecx*4 = edx+ecx*4 + var_30 + loc_00850788: edx+ecx*4+var_30 = edx+ecx*4+var_30 + var_34 + loc_008507A9: If ebx = 0 Then + loc_008507BA: var_48 = var_48 - 00000001h + loc_008507BD: var_BC = var_48 + loc_008507CA: If var_BC < 80 Then + loc_008507D6: GoTo loc_008507E4 + loc_008507D8: End If + loc_008507D8: var_eax = Err.Raise + loc_008507DE: var_1E8 = Err.Raise + loc_008507E4: 'Referenced from: 008507D6 + loc_008507E8: var_48 = var_48 - 00000001h + loc_008507EB: var_C0 = var_48 + loc_008507F8: If var_C0 < 80 Then + loc_00850804: GoTo loc_00850812 + loc_00850806: End If + loc_00850806: var_eax = Err.Raise + loc_0085080C: var_1EC = Err.Raise + loc_00850812: 'Referenced from: 00850804 + loc_0085082F: If eax+edx*4 < 0 Then + loc_00850840: var_48 = var_48 - 00000001h + loc_00850843: var_C4 = var_48 + loc_00850850: If var_C4 < 80 Then + loc_0085085C: GoTo loc_0085086A + loc_0085085E: End If + loc_0085085E: var_eax = Err.Raise + loc_00850864: var_1F0 = Err.Raise + loc_0085086A: 'Referenced from: 0085085C + loc_0085086E: var_48 = var_48 - 00000001h + loc_00850871: var_BC = var_48 + loc_0085087E: If var_BC < 80 Then + loc_0085088A: GoTo loc_00850898 + loc_0085088C: End If + loc_0085088C: var_eax = Err.Raise + loc_00850892: var_1F4 = Err.Raise + loc_00850898: 'Referenced from: 0085088A + loc_0085089C: var_48 = var_48 - 00000001h + loc_0085089F: var_C0 = var_48 + loc_008508AC: If var_C0 < 80 Then + loc_008508B8: GoTo loc_008508C6 + loc_008508BA: End If + loc_008508BA: var_eax = Err.Raise + loc_008508C0: var_1F8 = Err.Raise + loc_008508C6: 'Referenced from: 008508B8 + loc_008508F2: ecx+eax*4 = ecx+eax*4 + esi+edx*4 + loc_008508FC: Seek #ecx+eax*2, ecx+eax*4+esi+edx*4 + loc_0085090D: var_48 = var_48 - 00000001h + loc_00850910: var_BC = var_48 + loc_0085091D: If var_BC < 80 Then + loc_00850929: GoTo loc_00850937 + loc_0085092B: End If + loc_0085092B: var_eax = Err.Raise + loc_00850931: var_1FC = Err.Raise + loc_00850937: 'Referenced from: 00850929 + loc_0085093B: var_48 = var_48 - 00000001h + loc_0085093E: var_C0 = var_48 + loc_0085094B: If var_C0 < 80 Then + loc_00850957: GoTo loc_00850965 + loc_00850959: End If + loc_00850959: var_eax = Err.Raise + loc_0085095F: var_200 = Err.Raise + loc_00850965: 'Referenced from: 00850957 + loc_00850982: ecx+eax*4 = ecx+eax*4 - esi+edx*4 + loc_0085098B: ecx+eax*4 = ecx+eax*4 - 00000001h + loc_008509A4: ReDim var_2C(1 To ecx+eax*4) + loc_008509B8: var_48 = var_48 - 00000001h + loc_008509BB: var_BC = var_48 + loc_008509C8: If var_BC < 80 Then + loc_008509D4: GoTo loc_008509E2 + loc_008509D6: End If + loc_008509D6: var_eax = Err.Raise + loc_008509DC: var_204 = Err.Raise + loc_008509E2: 'Referenced from: 008509D4 + loc_008509FC: Get #ecx+eax*2, var_2C + loc_00850A0E: var_30 = var_30 + var_34 + loc_00850A27: ReDim Preserve var_2C(1 To var_30+var_34) + loc_00850A3A: var_30 = var_30 + var_34 + loc_00850A43: var_FC = var_30+var_34 + loc_00850A57: var_48 = var_48 - 00000001h + loc_00850A5A: var_BC = var_48 + loc_00850A67: If var_BC < 80 Then + loc_00850A73: GoTo loc_00850A81 + loc_00850A75: End If + loc_00850A75: var_eax = Err.Raise + loc_00850A7B: var_208 = Err.Raise + loc_00850A81: 'Referenced from: 00850A73 + loc_00850A85: var_48 = var_48 - 00000001h + loc_00850A88: var_C0 = var_48 + loc_00850A95: If var_C0 < 80 Then + loc_00850AA1: GoTo loc_00850AAF + loc_00850AA3: End If + loc_00850AA3: var_eax = Err.Raise + loc_00850AA9: var_20C = Err.Raise + loc_00850AAF: 'Referenced from: 00850AA1 + loc_00850ACA: ecx+eax*4 = ecx+eax*4 - esi+edx*4 + loc_00850AD3: var_24 = ecx+eax*4 + loc_00850AD6: GoTo loc_00850AEA + loc_00850AD8: + loc_00850ADB: var_24 = var_24 + var_F8 + loc_00850AE7: var_24 = var_24+var_F8 + loc_00850AEA: 'Referenced from: 00850AD6 + loc_00850AF3: If var_24 <= var_30+var_34 Then + loc_00850B04: If var_2C Then + loc_00850B0D: If var_2C = 1 Then + loc_00850B15: var_24 = var_24 - ecx+00000014h + loc_00850B18: var_BC = var_24 + loc_00850B2A: If var_BC < 0 Then + loc_00850B36: GoTo loc_00850B44 + loc_00850B38: End If + loc_00850B38: var_eax = Err.Raise + loc_00850B3E: var_210 = Err.Raise + loc_00850B44: 'Referenced from: 00850B36 + loc_00850B4A: var_214 = var_BC + loc_00850B50: GoTo loc_00850B5E + loc_00850B52: End If + loc_00850B52: End If + loc_00850B52: var_eax = Err.Raise + loc_00850B58: var_214 = Err.Raise + loc_00850B5E: 'Referenced from: 00850B50 + loc_00850B7C: GoTo loc_00850AD8 + loc_00850B81: End If + loc_00850B81: GoTo loc_00850C89 + loc_00850B86: End If + loc_00850B92: var_30 = var_30 + var_34 + loc_00850BAB: ReDim var_2C(1 To var_30+var_34) + loc_00850BBE: var_30 = var_30 + var_34 + loc_00850BC7: var_104 = var_30+var_34 + loc_00850BDE: GoTo loc_00850BF2 + loc_00850BE0: + loc_00850BE3: var_24 = var_24 + var_100 + loc_00850BEF: var_24 = var_24+var_100 + loc_00850BF2: 'Referenced from: 00850BDE + loc_00850BFB: If var_24 <= var_30+var_34 Then + loc_00850C0C: If var_2C Then + loc_00850C15: If var_2C = 1 Then + loc_00850C1D: var_24 = var_24 - edx+00000014h + loc_00850C20: var_BC = var_24 + loc_00850C32: If var_BC < 0 Then + loc_00850C3E: GoTo loc_00850C4C + loc_00850C40: End If + loc_00850C40: var_eax = Err.Raise + loc_00850C46: var_218 = Err.Raise + loc_00850C4C: 'Referenced from: 00850C3E + loc_00850C52: var_21C = var_BC + loc_00850C58: GoTo loc_00850C66 + loc_00850C5A: End If + loc_00850C5A: End If + loc_00850C5A: var_eax = Err.Raise + loc_00850C60: var_21C = Err.Raise + loc_00850C66: 'Referenced from: 00850C58 + loc_00850C84: GoTo loc_00850BE0 + loc_00850C89: End If + loc_00850C89: + loc_00850C93: var_A8 = var_34 + loc_00850CA7: var_48 = var_48 - 00000001h + loc_00850CAA: var_C0 = var_48 + loc_00850CB7: If var_C0 < 80 Then + loc_00850CC3: GoTo loc_00850CD1 + loc_00850CC5: End If + loc_00850CC5: var_eax = Err.Raise + loc_00850CCB: var_220 = Err.Raise + loc_00850CD1: 'Referenced from: 00850CC3 + loc_00850CE0: edx+ecx*4 = edx+ecx*4 + var_30 + loc_00850CE9: var_58 = edx+ecx*4+var_30 + loc_00850CF9: If var_34 = 0 Then ecx = 1 + loc_00850D25: var_70 = IIf(False, edx+ecx*4+var_30, var_34) + loc_00850D2F: var_48 = var_48 - 00000001h + loc_00850D32: var_BC = var_48 + loc_00850D3F: If var_BC < 80 Then + loc_00850D4B: GoTo loc_00850D59 + loc_00850D4D: End If + loc_00850D4D: var_eax = Err.Raise + loc_00850D53: var_224 = Err.Raise + loc_00850D59: 'Referenced from: 00850D4B + loc_00850D5D: var_ret_4 = CLng(var_70) + loc_00850D97: var_48 = var_48 - 00000001h + loc_00850D9A: var_C0 = var_48 + loc_00850DA7: If var_C0 < 80 Then + loc_00850DB3: GoTo loc_00850DC1 + loc_00850DB5: End If + loc_00850DB5: var_eax = Err.Raise + loc_00850DBB: var_228 = Err.Raise + loc_00850DC1: 'Referenced from: 00850DB3 + loc_00850DC5: var_48 = var_48 - 00000001h + loc_00850DC8: var_BC = var_48 + loc_00850DD5: If var_BC < 80 Then + loc_00850DE1: GoTo loc_00850DEF + loc_00850DE3: End If + loc_00850DE3: var_eax = Err.Raise + loc_00850DE9: var_22C = Err.Raise + loc_00850DEF: 'Referenced from: 00850DE1 + loc_00850DFE: edx+ecx*4 = edx+ecx*4 + var_30 + loc_00850E07: edx+ecx*4+var_30 = edx+ecx*4+var_30 + var_34 + loc_00850E2A: var_48 = var_48 - 00000001h + loc_00850E2D: var_C0 = var_48 + loc_00850E3A: If var_C0 < 80 Then + loc_00850E46: GoTo loc_00850E54 + loc_00850E48: End If + loc_00850E48: var_eax = Err.Raise + loc_00850E4E: var_230 = Err.Raise + loc_00850E54: 'Referenced from: 00850E46 + loc_00850E58: var_48 = var_48 - 00000001h + loc_00850E5B: var_BC = var_48 + loc_00850E68: If var_BC < 80 Then + loc_00850E74: GoTo loc_00850E82 + loc_00850E76: End If + loc_00850E76: var_eax = Err.Raise + loc_00850E7C: var_234 = Err.Raise + loc_00850E82: 'Referenced from: 00850E74 + loc_00850E90: eax+edx*4 = eax+edx*4 + var_30 + loc_00850E99: eax+edx*4+var_30 = eax+edx*4+var_30 + var_34 + loc_00850EB0: GoTo loc_00851095 + loc_00850EB5: End If + loc_00850EC0: var_48 = var_48 - 00000001h + loc_00850EC3: var_C4 = var_48 + loc_00850ED0: If var_C4 < 80 Then + loc_00850EDC: GoTo loc_00850EEA + loc_00850EDE: End If + loc_00850EDE: var_eax = Err.Raise + loc_00850EE4: var_238 = Err.Raise + loc_00850EEA: 'Referenced from: 00850EDC + loc_00850EEE: var_48 = var_48 - 00000001h + loc_00850EF1: var_BC = var_48 + loc_00850EFE: If var_BC < 80 Then + loc_00850F0A: GoTo loc_00850F18 + loc_00850F0C: End If + loc_00850F0C: var_eax = Err.Raise + loc_00850F12: var_23C = Err.Raise + loc_00850F18: 'Referenced from: 00850F0A + loc_00850F1C: var_48 = var_48 - 00000001h + loc_00850F1F: var_C0 = var_48 + loc_00850F2C: If var_C0 < 80 Then + loc_00850F38: GoTo loc_00850F46 + loc_00850F3A: End If + loc_00850F3A: var_eax = Err.Raise + loc_00850F40: var_240 = Err.Raise + loc_00850F46: 'Referenced from: 00850F38 + loc_00850F72: edx+ecx*4 = edx+ecx*4 + esi+eax*4 + loc_00850F7C: Seek #edx+ecx*2, edx+ecx*4+esi+eax*4 + loc_00850F8E: var_30 = var_30 + var_34 + loc_00850FA7: ReDim var_2C(1 To var_30+var_34) + loc_00850FBB: var_48 = var_48 - 00000001h + loc_00850FBE: var_BC = var_48 + loc_00850FCB: If var_BC < 80 Then + loc_00850FD7: GoTo loc_00850FE5 + loc_00850FD9: End If + loc_00850FD9: var_eax = Err.Raise + loc_00850FDF: var_244 = Err.Raise + loc_00850FE5: 'Referenced from: 00850FD7 + loc_00850FFE: Get #eax+edx*2, var_2C + loc_0085100F: var_48 = var_48 - 00000001h + loc_00851012: var_C0 = var_48 + loc_0085101F: If var_C0 < 80 Then + loc_0085102B: GoTo loc_00851039 + loc_0085102D: End If + loc_0085102D: var_eax = Err.Raise + loc_00851033: var_248 = Err.Raise + loc_00851039: 'Referenced from: 0085102B + loc_0085103D: var_48 = var_48 - 00000001h + loc_00851040: var_BC = var_48 + loc_0085104D: If var_BC < 80 Then + loc_00851059: GoTo loc_00851067 + loc_0085105B: End If + loc_0085105B: var_eax = Err.Raise + loc_00851061: var_24C = Err.Raise + loc_00851067: 'Referenced from: 00851059 + loc_00851075: eax+edx*4 = eax+edx*4 + var_30 + loc_0085107E: eax+edx*4+var_30 = eax+edx*4+var_30 + var_34 + loc_00851095: 'Referenced from: 008506C4 + loc_008510AE: If var_4C Then + loc_008510B7: If var_4C = 1 Then + loc_008510C1: 00000001h = 00000001h - ecx+00000014h + loc_008510D6: If var_BC < 0 Then + loc_008510E2: GoTo loc_008510F0 + loc_008510E4: End If + loc_008510E4: var_eax = Err.Raise + loc_008510EA: var_250 = Err.Raise + loc_008510F0: 'Referenced from: 008510E2 + loc_008510F6: var_254 = var_BC + loc_008510FC: GoTo loc_0085110A + loc_008510FE: End If + loc_008510FE: End If + loc_008510FE: var_eax = Err.Raise + loc_00851104: var_254 = Err.Raise + loc_0085110A: 'Referenced from: 008510FC + loc_00851110: var_C4.GetTypeInfoCount 'Ignore this = var_C4.GetTypeInfoCount 'Ignore this + var_254 + loc_0085113C: var_eax = CopyMemory(var_3C, VarPtr(var_C4.GetTypeInfoCount), var_30) + loc_00851152: If var_34 Then + loc_00851171: If var_4C Then + loc_0085117A: If var_4C = 1 Then + loc_0085118B: var_30(1) = var_30(1) - ecx+00000014h + loc_0085118E: var_BC = var_30(1) + loc_008511A0: If var_BC < var_178 Then + loc_008511AC: GoTo loc_008511BA + loc_008511AE: End If + loc_008511AE: var_eax = Err.Raise + loc_008511B4: var_258 = Err.Raise + loc_008511BA: 'Referenced from: 008511AC + loc_008511C0: var_25C = var_BC + loc_008511C6: GoTo loc_008511D4 + loc_008511C8: End If + loc_008511C8: End If + loc_008511C8: var_eax = Err.Raise + loc_008511CE: var_25C = Err.Raise + loc_008511D4: 'Referenced from: 008511C6 + loc_008511DA: var_C4.GetTypeInfoCount 'Ignore this = var_C4.GetTypeInfoCount 'Ignore this + var_25C + loc_00851206: var_eax = CopyMemory(var_44, VarPtr(var_C4.GetTypeInfoCount), var_34) + loc_00851211: End If + loc_0085121B: var_A8 = var_34 + loc_0085122F: var_48 = var_48 - 00000001h + loc_00851232: var_C0 = var_48 + loc_0085123F: If var_C0 < 80 Then + loc_0085124B: GoTo loc_00851259 + loc_0085124D: End If + loc_0085124D: var_eax = Err.Raise + loc_00851253: var_260 = Err.Raise + loc_00851259: 'Referenced from: 0085124B + loc_00851268: edx+ecx*4 = edx+ecx*4 + var_30 + loc_00851271: var_58 = edx+ecx*4+var_30 + loc_00851281: If var_34 = 0 Then ecx = 1 + loc_008512AD: var_70 = IIf(False, edx+ecx*4+var_30, var_34) + loc_008512B7: var_48 = var_48 - 00000001h + loc_008512BA: var_BC = var_48 + loc_008512C7: If var_BC < 80 Then + loc_008512D3: GoTo loc_008512E1 + loc_008512D5: End If + loc_008512D5: var_eax = Err.Raise + loc_008512DB: var_264 = Err.Raise + loc_008512E1: 'Referenced from: 008512D3 + loc_008512E5: var_ret_5 = CLng(var_70) + loc_0085131F: var_48 = var_48 - 00000001h + loc_00851322: var_BC = var_48 + loc_0085132F: If var_BC < 80 Then + loc_0085133B: GoTo loc_00851349 + loc_0085133D: End If + loc_0085133D: var_eax = Err.Raise + loc_00851343: var_268 = Err.Raise + loc_00851349: 'Referenced from: 0085133B + loc_00851358: var_C0 = ecx+eax*4 + loc_0085137D: var_eax = Unknown_VTable_Call[edx+0000004Ch] + loc_00851382: var_C4 = Unknown_VTable_Call[edx+0000004Ch] + loc_008513D8: ReDim var_2C(1 To 1) + loc_008513FB: ReDim var_40(1 To 1) + loc_0085140F: var_48 = var_48 - 00000001h + loc_00851412: var_BC = var_48 + loc_0085141F: If var_BC < 80 Then + loc_0085142B: GoTo loc_00851439 + loc_0085142D: End If + loc_0085142D: var_eax = Err.Raise + loc_00851433: var_270 = Err.Raise + loc_00851439: 'Referenced from: 0085142B + loc_0085143D: var_48 = var_48 - 00000001h + loc_00851440: var_C0 = var_48 + loc_0085144D: If var_C0 < 80 Then + loc_00851459: GoTo loc_00851467 + loc_0085145B: End If + loc_0085145B: var_eax = Err.Raise + loc_00851461: var_274 = Err.Raise + loc_00851467: 'Referenced from: 00851459 + loc_0085146B: var_48 = var_48 - 00000001h + loc_0085146E: var_C4 = var_48 + loc_0085147B: If var_C4 < 80 Then + loc_00851487: GoTo loc_00851495 + loc_00851489: End If + loc_00851489: var_eax = Err.Raise + loc_0085148F: var_278 = Err.Raise + loc_00851495: 'Referenced from: 00851487 + loc_00851499: var_48 = var_48 - 00000001h + loc_0085149C: var_C8 = var_48 + loc_008514A9: If var_C8 < 80 Then + loc_008514B5: GoTo loc_008514C3 + loc_008514B7: End If + loc_008514B7: var_eax = Err.Raise + loc_008514BD: var_27C = Err.Raise + loc_008514C3: 'Referenced from: 008514B5 + loc_008514DF: var_C8 = var_C8 * 20 + loc_008514F7: esi+ecx*4 = esi+ecx*4 + edi+eax+00000008h + loc_00851512: If esi+eax*4 <= 0 Then ebx = 1 + loc_00851519: If ebx = 0 Then + loc_00851534: var_eax = Proc_10_24_84EB50(var_48, var_C0, var_3C) + loc_00851539: End If + loc_00851539: End If + loc_00851544: var_48 = var_48 - 00000001h + loc_00851547: var_BC = var_48 + loc_00851554: If var_BC < 80 Then + loc_00851560: GoTo loc_0085156E + loc_00851562: End If + loc_00851562: var_eax = Err.Raise + loc_00851568: var_280 = Err.Raise + loc_0085156E: 'Referenced from: 00851560 + loc_00851580: End If + loc_00851580: + loc_00851587: GoTo loc_0084F71C + loc_0085158C: End If + loc_00851591: GoTo loc_008515BE + loc_008515BD: Exit Sub + loc_008515BE: 'Referenced from: 00851591 + loc_008515D6: Exit Sub + loc_008515E7: Exit Sub +End Sub + +Public Sub Proc_10_26_8515F0 + Dim var_94 As Me + Dim var_24 As Me + Dim var_98 As Me + Dim var_90 As Me + Dim var_48 As Me + Dim var_2C As Me + loc_00851652: If var_8868FA = 0 Then + loc_00851654: GoTo loc_0085215D + loc_00851659: End If + loc_00851662: On Error Resume Next + loc_00851685: If var_90 < 80 Then + loc_00851691: GoTo loc_0085169F + loc_00851693: End If + loc_00851693: var_eax = Err.Raise + loc_00851699: var_B8 = Err.Raise + loc_0085169F: 'Referenced from: 00851691 + loc_008516AE: var_94 = ecx+eax*4 + loc_008516C3: -1 = var_94.Caption + loc_008516C8: var_98 = var_94 + loc_00851721: If var_90 < 80 Then + loc_0085172D: GoTo loc_0085173B + loc_0085172F: End If + loc_0085172F: var_eax = Err.Raise + loc_00851735: var_C0 = Err.Raise + loc_0085173B: 'Referenced from: 0085172D + loc_0085174A: var_94 = edx+ecx*4 + loc_00851768: var_98 = var_94 + loc_008517AF: If var_24 = 2 Then + loc_008517B1: GoTo loc_0085215D + loc_008517B6: End If + loc_008517D5: var_30 = FreeFile(10) + loc_008517FF: If var_90 < 80 Then + loc_0085180B: GoTo loc_00851819 + loc_0085180D: End If + loc_0085180D: var_eax = Err.Raise + loc_00851813: var_C8 = Err.Raise + loc_00851819: 'Referenced from: 0085180B + loc_00851832: Open edx+ecx*4 For Binary As #var_30 Len = -1 + loc_00851855: If var_90 < 80 Then + loc_00851861: GoTo loc_0085186F + loc_00851863: End If + loc_00851863: var_eax = Err.Raise + loc_00851869: var_CC = Err.Raise + loc_0085186F: 'Referenced from: 00851861 + loc_00851885: If var_94 < 80 Then + loc_00851891: GoTo loc_0085189F + loc_00851893: End If + loc_00851893: var_eax = Err.Raise + loc_00851899: var_D0 = Err.Raise + loc_0085189F: 'Referenced from: 00851891 + loc_008518BF: edx+ecx*4 = edx+ecx*4 + esi+eax*4 + loc_008518C9: Seek #var_30, edx+ecx*4+esi+eax*4 + loc_008518EC: If var_90 < 80 Then + loc_008518F8: GoTo loc_00851906 + loc_008518FA: End If + loc_008518FA: var_eax = Err.Raise + loc_00851900: var_D4 = Err.Raise + loc_00851906: 'Referenced from: 008518F8 + loc_00851927: ReDim var_2C(1 To edx+ecx*4) + loc_00851945: Get #var_30, var_2C + loc_00851957: Close #var_30 + loc_0085196A: + loc_00851975: If var_2C Then + loc_0085197E: If var_2C = 1 Then + loc_00851987: var_28 = var_28 - ecx+00000014h + loc_0085198A: var_90 = var_28 + loc_0085199C: If var_90 < var_178 Then + loc_008519A8: GoTo loc_008519B6 + loc_008519AA: End If + loc_008519AA: var_eax = Err.Raise + loc_008519B0: var_D8 = Err.Raise + loc_008519B6: 'Referenced from: 008519A8 + loc_008519BC: var_DC = var_90 + loc_008519C2: GoTo loc_008519D0 + loc_008519C4: End If + loc_008519C4: End If + loc_008519C4: var_eax = Err.Raise + loc_008519CA: var_DC = Err.Raise + loc_008519D0: 'Referenced from: 008519C2 + loc_008519D4: If var_2C Then + loc_008519DD: If var_2C = 1 Then + loc_008519E3: var_28 = var_28 + 0001h + loc_008519F6: var_94 = var_94.QueryInterface 'Ignore this + loc_00851A08: If var_94 < 0 Then + loc_00851A14: GoTo loc_00851A22 + loc_00851A16: End If + loc_00851A16: var_eax = Err.Raise + loc_00851A1C: var_E0 = Err.Raise + loc_00851A22: 'Referenced from: 00851A14 + loc_00851A28: var_E4 = var_94 + loc_00851A2E: GoTo loc_00851A3C + loc_00851A30: End If + loc_00851A30: End If + loc_00851A30: var_eax = Err.Raise + loc_00851A36: var_E4 = Err.Raise + loc_00851A3C: 'Referenced from: 00851A2E + loc_00851A40: If var_2C Then + loc_00851A49: If var_2C = 1 Then + loc_00851A4F: var_28 = var_28 + 0002h + loc_00851A5F: var_28+0002h = var_28+0002h - eax+00000014h + loc_00851A62: var_98 = var_28+0002h + loc_00851A74: If var_98 < 0 Then + loc_00851A80: GoTo loc_00851A8E + loc_00851A82: End If + loc_00851A82: var_eax = Err.Raise + loc_00851A88: var_E8 = Err.Raise + loc_00851A8E: 'Referenced from: 00851A80 + loc_00851A94: var_EC = CheckObj(var_94, global_0040F480, 36) + loc_00851A9A: GoTo loc_00851AA8 + loc_00851A9C: End If + loc_00851A9C: End If + loc_00851A9C: var_eax = Err.Raise + loc_00851AA2: var_EC = Err.Raise + loc_00851AA8: 'Referenced from: 00851A9A + loc_00851AAC: If var_2C Then + loc_00851AB5: If var_2C = 1 Then + loc_00851ABB: var_28 = var_28 + 0003h + loc_00851ACB: var_28+0003h = var_28+0003h - ecx+00000014h + loc_00851ACE: var_9C = var_28+0003h + loc_00851AE0: If var_9C < var_178 Then + loc_00851AEC: GoTo loc_00851AFA + loc_00851AEE: End If + loc_00851AEE: var_eax = Err.Raise + loc_00851AF4: var_F0 = Err.Raise + loc_00851AFA: 'Referenced from: 00851AEC + loc_00851B00: var_F4 = var_9C + loc_00851B06: GoTo loc_00851B14 + loc_00851B08: End If + loc_00851B08: End If + loc_00851B08: var_eax = Err.Raise + loc_00851B0E: var_F4 = Err.Raise + loc_00851B14: 'Referenced from: 00851B06 + loc_00851B31: var_4C = Chr$(eax+ecx) + loc_00851B55: var_50 = Chr$(ecx+edx) + loc_00851B8B: var_58 = Chr$(edx+eax) + loc_00851BC1: var_60 = Chr$(eax+ecx) + loc_00851BED: var_A0 = (var_4C & var_50 & var_58 & var_60 = "data") + loc_00851C24: If var_A0 Then + loc_00851C31: var_28 = var_28 + 0001h + loc_00851C3B: var_28 = var_94.QueryInterface 'Ignore this + loc_00851C3F: GoTo loc_0085196A + loc_00851C44: End If + loc_00851C5E: var_90 = PropBag.ReadProperty(8940032, 0) + loc_00851CB6: If var_90 < 80 Then + loc_00851CC2: GoTo loc_00851CD0 + loc_00851CC4: End If + loc_00851CC4: var_eax = Err.Raise + loc_00851CCA: var_FC = Err.Raise + loc_00851CD0: 'Referenced from: 00851CC2 + loc_00851CDF: var_94 = edx+ecx*4 + loc_00851CFD: var_98 = var_94 + loc_00851D44: If var_24 = 2 Then + loc_00851D46: GoTo loc_0085215D + loc_00851D4B: End If + loc_00851D68: If var_94 < 80 Then + loc_00851D74: GoTo loc_00851D82 + loc_00851D76: End If + loc_00851D76: var_eax = Err.Raise + loc_00851D7C: var_104 = Err.Raise + loc_00851D82: 'Referenced from: 00851D74 + loc_00851D91: var_98 = ecx+eax*4 + loc_00851DAD: If var_90 < 80 Then + loc_00851DB9: GoTo loc_00851DC7 + loc_00851DBB: End If + loc_00851DBB: var_eax = Err.Raise + loc_00851DC1: var_108 = Err.Raise + loc_00851DC7: 'Referenced from: 00851DB9 + loc_00851DDF: var_90 = var_90 * 20 + loc_00851E03: var_9C = CheckObj(var_94, global_0040F480, 36) + loc_00851E78: var_94 = PropBag.ReadProperty(var_8C, var_68) + loc_00851EDB: If var_98 Then + loc_00851EDD: GoTo loc_0085215D + loc_00851EE2: End If + loc_00851EFB: If var_48 Then + loc_00851F04: If var_48 = 1 Then + loc_00851F0A: var_28 = var_28 + 0008h + loc_00851F1D: var_90 = var_94.Release 'Ignore this + loc_00851F2F: If var_90 < var_178 Then + loc_00851F3B: GoTo loc_00851F49 + loc_00851F3D: End If + loc_00851F3D: var_eax = Err.Raise + loc_00851F43: var_114 = Err.Raise + loc_00851F49: 'Referenced from: 00851F3B + loc_00851F4F: var_118 = var_90 + loc_00851F55: GoTo loc_00851F63 + loc_00851F57: End If + loc_00851F57: End If + loc_00851F57: var_eax = Err.Raise + loc_00851F5D: var_118 = Err.Raise + loc_00851F63: 'Referenced from: 00851F55 + loc_00851F69: var_94.GetTypeInfoCount 'Ignore this = var_94.GetTypeInfoCount 'Ignore this + var_118 + loc_00851F95: var_eax = CopyMemory(var_3C, VarPtr(var_94.GetTypeInfoCount), var_34) + loc_00851FAB: If var_38 Then + loc_00851FCA: If var_48 Then + loc_00851FD3: If var_48 = 1 Then + loc_00851FD9: var_28 = var_28 + 0008h + loc_00851FE6: var_94.Release 'Ignore this = var_94.Release 'Ignore this + var_34 + loc_00851FFE: var_90 = var_94.Release 'Ignore this+var_34(1) + loc_00852010: If var_90 < var_178 Then + loc_0085201C: GoTo loc_0085202A + loc_0085201E: End If + loc_0085201E: var_eax = Err.Raise + loc_00852024: var_11C = Err.Raise + loc_0085202A: 'Referenced from: 0085201C + loc_00852030: var_120 = var_90 + loc_00852036: GoTo loc_00852044 + loc_00852038: End If + loc_00852038: End If + loc_00852038: var_eax = Err.Raise + loc_0085203E: var_120 = Err.Raise + loc_00852044: 'Referenced from: 00852036 + loc_0085204A: var_94.GetTypeInfoCount 'Ignore this = var_94.GetTypeInfoCount 'Ignore this + var_120 + loc_00852076: var_eax = CopyMemory(var_44, VarPtr(var_94.GetTypeInfoCount), var_38) + loc_00852081: End If + loc_0085209E: If var_90 < 80 Then + loc_008520AA: GoTo loc_008520B8 + loc_008520AC: End If + loc_008520AC: var_eax = Err.Raise + loc_008520B2: var_124 = Err.Raise + loc_008520B8: 'Referenced from: 008520AA + loc_008520C7: var_94 = edx+ecx*4 + loc_008520EC: var_eax = Unknown_VTable_Call[eax+0000004Ch] + loc_008520F1: var_98 = Unknown_VTable_Call[eax+0000004Ch] + loc_00852147: ReDim var_2C(1 To 1) + loc_0085215D: 'Referenced from: 00851654 + loc_00852162: GoTo loc_008521A8 + loc_008521A7: Exit Sub + loc_008521A8: 'Referenced from: 00852162 + loc_008521B4: Exit Sub +End Sub + +Public Sub Proc_10_27_8521E0 + Dim global_008868FC As Me + Dim var_64 As Me + Dim var_68 As Me + Dim var_60 As Me + Dim var_40 As Me + loc_00852242: If var_8868FA = 0 Then + loc_00852244: GoTo loc_00852B6F + loc_00852249: End If + loc_00852252: On Error Resume Next + loc_00852267: If global_886A98 >= 1 Then + loc_00852287: var_58 = global_008868FC.hWnd + loc_0085228C: var_60 = var_58 + loc_008522C5: var_eax = KillTimer(var_58, 0) + loc_008522CA: var_5C = KillTimer(var_58, 0) + loc_008522D6: var_4C = var_5C + loc_008522E8: global_008868E8 = var_5C + loc_008522EE: End If + loc_00852305: If var_60 < 80 Then + loc_00852311: GoTo loc_0085231F + loc_00852313: End If + loc_00852313: var_eax = Err.Raise + loc_00852319: var_88 = Err.Raise + loc_0085231F: 'Referenced from: 00852311 + loc_0085232A: var_64 = eax+edx*4 + loc_00852336: -1 = global_008868FC.Caption + loc_0085233B: var_68 = var_64 + loc_00852382: If var_60 < 80 Then + loc_0085238E: GoTo loc_0085239C + loc_00852390: End If + loc_00852390: var_eax = Err.Raise + loc_00852396: var_90 = Err.Raise + loc_0085239C: 'Referenced from: 0085238E + loc_008523A8: var_64 = ecx+eax*4 + loc_008523BD: var_68 = var_64 + loc_008523F8: If var_24 = 2 Then + loc_008523FA: GoTo loc_00852B6F + loc_008523FF: End If + loc_00852416: If var_60 < 80 Then + loc_00852422: GoTo loc_00852430 + loc_00852424: End If + loc_00852424: var_eax = Err.Raise + loc_0085242A: var_98 = Err.Raise + loc_00852430: 'Referenced from: 00852422 + loc_0085243B: var_64 = eax+edx*4 + loc_0085244E: var_68 = var_64 + loc_00852495: If var_64 < 80 Then + loc_008524A1: GoTo loc_008524AF + loc_008524A3: End If + loc_008524A3: var_eax = Err.Raise + loc_008524A9: var_A0 = Err.Raise + loc_008524AF: 'Referenced from: 008524A1 + loc_008524BF: If var_60 < 80 Then + loc_008524CB: GoTo loc_008524D9 + loc_008524CD: End If + loc_008524CD: var_eax = Err.Raise + loc_008524D3: var_A4 = Err.Raise + loc_008524D9: 'Referenced from: 008524CB + loc_008524F2: Seek #eax+edx*2, eax+edx*4 + loc_0085250F: If var_60 < 80 Then + loc_0085251B: GoTo loc_00852529 + loc_0085251D: End If + loc_0085251D: var_eax = Err.Raise + loc_00852523: var_A8 = Err.Raise + loc_00852529: 'Referenced from: 0085251B + loc_0085252E: var_60 = var_60 * 20 + loc_0085254B: ReDim var_2C(1 To edx+ecx+00000008h) + loc_0085256B: If var_60 < 80 Then + loc_00852577: GoTo loc_00852585 + loc_00852579: End If + loc_00852579: var_eax = Err.Raise + loc_0085257F: var_AC = Err.Raise + loc_00852585: 'Referenced from: 00852577 + loc_0085259C: Get #edx+ecx*2, var_2C + loc_008525B9: If var_60 < 80 Then + loc_008525C5: GoTo loc_008525D3 + loc_008525C7: End If + loc_008525C7: var_eax = Err.Raise + loc_008525CD: var_B0 = Err.Raise + loc_008525D3: 'Referenced from: 008525C5 + loc_008525DF: var_64 = edx+ecx*4 + loc_008525F4: var_68 = var_64 + loc_0085262F: If var_24 = 2 Then + loc_00852631: GoTo loc_00852B6F + loc_00852636: End If + loc_0085264D: If var_64 < 80 Then + loc_00852659: GoTo loc_00852667 + loc_0085265B: End If + loc_0085265B: var_eax = Err.Raise + loc_00852661: var_B8 = Err.Raise + loc_00852667: 'Referenced from: 00852659 + loc_00852673: var_68 = ecx+eax*4 + loc_00852686: If var_60 < 80 Then + loc_00852692: GoTo loc_008526A0 + loc_00852694: End If + loc_00852694: var_eax = Err.Raise + loc_0085269A: var_BC = Err.Raise + loc_008526A0: 'Referenced from: 00852692 + loc_008526B5: var_60 = var_60 * 20 + loc_008526D3: var_6C = CheckObj(var_64, global_0040F480, 36) + loc_00852730: var_64 = PropBag.ReadProperty(var_58, var_44) + loc_0085277E: If var_68 Then + loc_00852780: GoTo loc_00852B6F + loc_00852785: End If + loc_0085279E: If var_40 Then + loc_008527A7: If var_40 = 1 Then + loc_008527B1: 00000001h = 00000001h - edx+00000014h + loc_008527C0: If var_60 < 0 Then + loc_008527CC: GoTo loc_008527DA + loc_008527CE: End If + loc_008527CE: var_eax = Err.Raise + loc_008527D4: var_C8 = Err.Raise + loc_008527DA: 'Referenced from: 008527CC + loc_008527DD: var_CC = var_60 + loc_008527E3: GoTo loc_008527F1 + loc_008527E5: End If + loc_008527E5: End If + loc_008527E5: var_eax = Err.Raise + loc_008527EB: var_CC = Err.Raise + loc_008527F1: 'Referenced from: 008527E3 + loc_008527F7: global_008868FC.GetTypeInfoCount 'Ignore this = global_008868FC.GetTypeInfoCount 'Ignore this + var_CC + loc_0085281D: var_eax = CopyMemory(var_38, VarPtr(global_008868FC.GetTypeInfoCount), var_30) + loc_00852833: If var_34 Then + loc_00852852: If var_40 Then + loc_0085285B: If var_40 = 1 Then + loc_0085286C: var_30(1) = var_30(1) - edx+00000014h + loc_0085286F: var_60 = var_30(1) + loc_0085287B: If var_60 < 0 Then + loc_00852887: GoTo loc_00852895 + loc_00852889: End If + loc_00852889: var_eax = Err.Raise + loc_0085288F: var_D0 = Err.Raise + loc_00852895: 'Referenced from: 00852887 + loc_00852898: var_D4 = var_60 + loc_0085289E: GoTo loc_008528AC + loc_008528A0: End If + loc_008528A0: End If + loc_008528A0: var_eax = Err.Raise + loc_008528A6: var_D4 = Err.Raise + loc_008528AC: 'Referenced from: 0085289E + loc_008528B2: global_008868FC.GetTypeInfoCount 'Ignore this = global_008868FC.GetTypeInfoCount 'Ignore this + var_D4 + loc_008528D8: var_eax = CopyMemory(var_3C, VarPtr(global_008868FC.GetTypeInfoCount), var_34) + loc_008528E3: End If + loc_008528FA: If var_60 < 80 Then + loc_00852906: GoTo loc_00852914 + loc_00852908: End If + loc_00852908: var_eax = Err.Raise + loc_0085290E: var_D8 = Err.Raise + loc_00852914: 'Referenced from: 00852906 + loc_00852917: var_30 = var_30 + var_34 + loc_00852943: If var_60 < 80 Then + loc_0085294F: GoTo loc_0085295D + loc_00852951: End If + loc_00852951: var_eax = Err.Raise + loc_00852957: var_DC = Err.Raise + loc_0085295D: 'Referenced from: 0085294F + loc_00852984: If var_60 < 80 Then + loc_00852990: GoTo loc_0085299E + loc_00852992: End If + loc_00852992: var_eax = Err.Raise + loc_00852998: var_E0 = Err.Raise + loc_0085299E: 'Referenced from: 00852990 + loc_008529A9: var_64 = eax+edx*4 + loc_008529C5: var_eax = Unknown_VTable_Call[ecx+0000004Ch] + loc_008529CA: var_68 = Unknown_VTable_Call[ecx+0000004Ch] + loc_00852A11: If var_60 < 80 Then + loc_00852A1D: GoTo loc_00852A2B + loc_00852A1F: End If + loc_00852A1F: var_eax = Err.Raise + loc_00852A25: var_E8 = Err.Raise + loc_00852A2B: 'Referenced from: 00852A1D + loc_00852A39: If edx+ecx*2 = var_FFFFFF Then + loc_00852A56: If var_60 < 80 Then + loc_00852A62: GoTo loc_00852A70 + loc_00852A64: End If + loc_00852A64: var_eax = Err.Raise + loc_00852A6A: var_EC = Err.Raise + loc_00852A70: 'Referenced from: 00852A62 + loc_00852A7B: var_64 = eax+edx*4 + loc_00852A92: var_68 = CheckObj(Err, global_00410B14, 28) + loc_00852AC2: End If + loc_00852AC2: + loc_00852AD1: If global_886A98 >= 1 Then + loc_00852AF1: var_58 = global_008868FC.hWnd + loc_00852AF6: var_60 = var_58 + loc_00852B39: var_eax = SetTimer(var_58, 0, 500, global_0084F690) + loc_00852B3E: var_5C = SetTimer(var_58, 0, 500, global_0084F690) + loc_00852B4A: var_4C = var_5C + loc_00852B5C: global_008868E8 = var_5C + loc_00852B62: End If + loc_00852B6F: 'Referenced from: 00852244 + loc_00852B74: GoTo loc_00852B8A + loc_00852B89: Exit Sub + loc_00852B8A: 'Referenced from: 00852B74 + loc_00852B96: Exit Sub +End Sub + +Public Sub Proc_10_28_852BE0 + loc_00852C18: If global_8861A2 = 6 Then + loc_00852C63: global_8861A2 = CInt((Int((Rnd(10) * global_402640)) + global_401850)) + loc_00852C6F: GoTo loc_00852C77 + loc_00852C71: End If + loc_00852C77: 'Referenced from: 00852C6F + loc_00852C8B: If 008861A0h = var_886038 Then + loc_00852C91: + loc_00852CAF: 00886038h = 00886038h - 0001h + loc_00852CED: global_8861A0 = CInt((Int((Rnd(10) * global_00886038)) + global_401850)) + loc_00852D01: If var_886034 Then + loc_00852D07: If 00886034h = 1 Then + loc_00852D16: 008861A0h = 008861A0h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852D1A: If 008861A0h >= 0 Then + loc_00852D1C: var_eax = Err.Raise + loc_00852D24: End If + loc_00852D2B: edi*8 = edi*8 - 008861A0h + loc_00852D30: GoTo loc_00852D3A + loc_00852D32: End If + loc_00852D32: End If + loc_00852D32: var_eax = Err.Raise + loc_00852D3A: 'Referenced from: 00852D30 + loc_00852D43: If edx+eax+0000000Ah = 0 Then GoTo loc_00852C91 + loc_00852D49: var_eax = Proc_9_10_844CB0(, , ) + loc_00852D4E: End If + loc_00852D56: If global_8861A2 Then + loc_00852D61: global_88611A = FFFFFFh + loc_00852D6C: If var_88603C Then + loc_00852D76: If 0088603Ch = 1 Then + loc_00852D84: If var_886044 Then + loc_00852D8A: If 00886044h = 2 Then + loc_00852D99: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00852D9D: If 008861A0h >= 0 Then + loc_00852D9F: var_eax = Err.Raise + loc_00852DA7: End If + loc_00852DB4: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852DB8: If 008861A2h >= 0 Then + loc_00852DBA: var_eax = Err.Raise + loc_00852DC2: End If + loc_00852DC8: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_00852DCC: GoTo loc_00852DD6 + loc_00852DCE: End If + loc_00852DCE: End If + loc_00852DCE: var_eax = Err.Raise + loc_00852DD6: 'Referenced from: 00852DCC + loc_00852DE8: edx+eax = edx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852DEC: If edx+eax >= 0 Then + loc_00852DEE: var_eax = Err.Raise + loc_00852DF6: End If + loc_00852DFD: edi*8 = edi*8 - edx+eax + loc_00852E02: GoTo loc_00852E0C + loc_00852E04: End If + loc_00852E04: End If + loc_00852E04: var_eax = Err.Raise + loc_00852E0C: 'Referenced from: 00852E02 + loc_00852E1C: global_88614C = edi+eax+00000008h + loc_00852E22: If var_88603C Then + loc_00852E2C: If 0088603Ch = 1 Then + loc_00852E34: If var_886044 Then + loc_00852E3A: If 00886044h = 2 Then + loc_00852E49: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00852E4D: If 008861A0h >= 0 Then + loc_00852E4F: var_eax = Err.Raise + loc_00852E57: End If + loc_00852E64: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852E68: If 008861A2h >= 0 Then + loc_00852E6A: var_eax = Err.Raise + loc_00852E72: End If + loc_00852E78: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_00852E7C: GoTo loc_00852E86 + loc_00852E7E: End If + loc_00852E7E: End If + loc_00852E7E: var_eax = Err.Raise + loc_00852E86: 'Referenced from: 00852E7C + loc_00852E98: edx+eax = edx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852E9C: If edx+eax >= 0 Then + loc_00852E9E: var_eax = Err.Raise + loc_00852EA6: End If + loc_00852EAD: edi*8 = edi*8 - edx+eax + loc_00852EB2: GoTo loc_00852EBC + loc_00852EB4: End If + loc_00852EB4: End If + loc_00852EB4: var_eax = Err.Raise + loc_00852EBC: 'Referenced from: 00852EB2 + loc_00852ECC: global_88614E = edi+eax+0000000Ah + loc_00852ED2: If var_88603C Then + loc_00852EDC: If 0088603Ch = 1 Then + loc_00852EE0: If var_886044 Then + loc_00852EE6: If 00886044h = 2 Then + loc_00852EF5: 008861A0h = 008861A0h - 0.%x3 = PropBag.ReadProperty(%StkVar1, %StkVar2) + loc_00852EF9: If 008861A0h >= 0 Then + loc_00852EFB: var_eax = Err.Raise + loc_00852F03: End If + loc_00852F10: 008861A2h = 008861A2h - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852F14: If 008861A2h >= 0 Then + loc_00852F16: var_eax = Err.Raise + loc_00852F1E: End If + loc_00852F24: 0.%x1 = Invoke 'Ignore this = 0.%x1 = Invoke 'Ignore this + 008861A0h + loc_00852F28: GoTo loc_00852F32 + loc_00852F2A: End If + loc_00852F2A: End If + loc_00852F2A: var_eax = Err.Raise + loc_00852F32: 'Referenced from: 00852F28 + loc_00852F44: ecx+eax = ecx+eax - 0.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_00852F48: If ecx+eax >= 0 Then + loc_00852F4A: var_eax = Err.Raise + loc_00852F4C: End If + loc_00852F53: edi*8 = edi*8 - ecx+eax + loc_00852F58: GoTo loc_00852F5C + loc_00852F5A: End If + loc_00852F5A: End If + loc_00852F5A: var_eax = Err.Raise + loc_00852F5C: 'Referenced from: 00852F58 + loc_00852F6E: global_00886144 = ecx+eax+00000004h + loc_00852F74: GoTo loc_00852F7F + loc_00852F76: End If + loc_00852F76: global_88611A = 0 + loc_00852F7F: 'Referenced from: 00852F74 + loc_00852F8B: If global_886056 <= 1 Then + loc_00852F8D: global_886056 = 12 + loc_00852F96: End If + loc_00852F9D: If global_886058 <= 1 Then + loc_00852F9F: global_886058 = 8 + loc_00852FA8: End If + loc_00852FB0: If global_8860E4 = 0 Then + loc_00852FB2: global_8860E4 = 4 + loc_00852FBB: End If + loc_00852FEA: global_886098 = ((Rnd(10) * global_40263C) - global_402638) + loc_0085301B: global_88609C = ((Rnd(10) * global_40263C) - global_402638) + loc_00853033: fabs + loc_0085303F: var_4C = global_886098 + loc_00853056: If Err.Number Then + loc_0085305D: GoTo loc_00853061 + loc_0085305F: End If + loc_00853061: 'Referenced from: 0085305D + loc_00853067: fabs + loc_00853073: var_50 = global_88609C + loc_0085308A: If Err.Number Then + loc_00853091: GoTo loc_00853095 + loc_00853093: End If + loc_00853095: 'Referenced from: 00853091 + loc_0085309B: fabs + loc_008530A7: var_54 = global_886098 + loc_008530BE: If Err.Number Then + loc_008530C5: GoTo loc_008530C9 + loc_008530C7: End If + loc_008530C9: 'Referenced from: 008530C5 + loc_008530CF: fabs + loc_008530D7: var_58 = global_88609C + loc_008530EE: If Err.Number Then + loc_008530F5: GoTo loc_008530F9 + loc_008530F7: End If + loc_008530F9: 'Referenced from: 008530F5 + loc_0085310B: If eax <> 0 Then GoTo loc_00852FBB + loc_00853117: GoTo loc_00853123 + loc_00853122: Exit Sub + loc_00853123: 'Referenced from: 00853117 + loc_00853123: Exit Sub + loc_00853134: Exit Sub + loc_00853135: End If + loc_00853135: End If + loc_00853135: End If + loc_00853135: End If + loc_00853135: End If + loc_00853135: End If +End Sub diff --git a/src/about.frm b/src/about.frm new file mode 100644 index 0000000..5ee04b7 --- /dev/null +++ b/src/about.frm @@ -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 diff --git a/src/about.frx b/src/about.frx new file mode 100644 index 0000000..59be912 Binary files /dev/null and b/src/about.frx differ diff --git a/src/buttons.frm b/src/buttons.frm new file mode 100644 index 0000000..82e7486 --- /dev/null +++ b/src/buttons.frm @@ -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" + diff --git a/src/challengeOptions.frm b/src/challengeOptions.frm new file mode 100644 index 0000000..af520fd --- /dev/null +++ b/src/challengeOptions.frm @@ -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 diff --git a/src/challengeOptions.frx b/src/challengeOptions.frx new file mode 100644 index 0000000..d32224f Binary files /dev/null and b/src/challengeOptions.frx differ diff --git a/src/classicOptions.frm b/src/classicOptions.frm new file mode 100644 index 0000000..f0d8c6a --- /dev/null +++ b/src/classicOptions.frm @@ -0,0 +1,3901 @@ +VERSION 5.00 +Begin VB.Form classicOptions + BackColor = &H800000& + WindowState = 2 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + Picture = "classicOptions.frx":0 + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + Tag = "randomoptions" + KeyPreview = -1 'True + ClientLeft = 4050 + ClientTop = 1410 + ClientWidth = 11085 + ClientHeight = 9330 + ShowInTaskbar = 0 'False + Begin PictureBox rotateDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 6780 + Top = 300 + Width = 1725 + Height = 1725 + Visible = 0 'False + TabIndex = 28 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 5 + ForeColor = &H80000008& + Left = 810 + Top = 4020 + Width = 150 + Height = 210 + TabIndex = 26 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 6 + ForeColor = &H80000008& + Left = 3300 + Top = 4020 + Width = 150 + Height = 210 + TabIndex = 25 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 1 + ForeColor = &H80000008& + Left = 795 + Top = 2550 + Width = 150 + Height = 210 + TabIndex = 24 + 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 = 2550 + Width = 150 + Height = 210 + TabIndex = 23 + 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 = 150 + Width = 2835 + Height = 690 + Visible = 0 'False + TabIndex = 21 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 10 + ForeColor = &H80000008& + Left = 3285 + Top = 5445 + Width = 150 + Height = 210 + TabIndex = 19 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 9 + ForeColor = &H80000008& + Left = 795 + Top = 5445 + Width = 150 + Height = 210 + TabIndex = 18 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 2 + ForeColor = &H80000008& + Left = 8280 + Top = 6675 + Width = 1200 + Height = 450 + TabIndex = 15 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 14 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 17 + 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 = 14 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 13 + ForeColor = &H80000008& + Left = 90 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 16 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "play" + Appearance = 0 'Flat + End + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 8 + ForeColor = &H80000008& + Left = 3300 + Top = 4725 + Width = 150 + Height = 210 + TabIndex = 12 + 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 = 795 + Top = 4725 + Width = 150 + Height = 210 + TabIndex = 11 + 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 = 3285 + Top = 3255 + Width = 150 + Height = 210 + TabIndex = 10 + 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 = 3255 + Width = 150 + Height = 210 + TabIndex = 9 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 11 + ForeColor = &H80000008& + Left = 795 + Top = 6165 + Width = 150 + Height = 210 + TabIndex = 7 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 12 + ForeColor = &H80000008& + Left = 3285 + Top = 6165 + Width = 150 + Height = 210 + TabIndex = 6 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox display + BackColor = &H800000& + ForeColor = &H80000008& + Left = 3675 + Top = 2235 + Width = 5700 + Height = 4185 + TabIndex = 4 + ScaleMode = 0 + ScaleLeft = -100 + ScaleTop = -100 + ScaleWidth = 262.976 + ScaleHeight = 207.44 + 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 = 3 + 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 = 9060 + Top = 840 + End + Begin TextBox txtCustomY + BackColor = &H400000& + ForeColor = &HFFFFFF& + Left = 2445 + Top = 2505 + Width = 435 + Height = 270 + Visible = 0 'False + MousePointer = 3 'I-Beam + Text = "5" + TabIndex = 1 + MaxLength = 2 + BeginProperty Font + Name = "Verdana" + Size = 6.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin TextBox txtCustomX + BackColor = &H400000& + ForeColor = &HFFFFFF& + Left = 1755 + Top = 2505 + Width = 435 + Height = 270 + Visible = 0 'False + MousePointer = 3 'I-Beam + Text = "5" + TabIndex = 0 + MaxLength = 2 + 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 = "Flux" + BackColor = &H0& + ForeColor = &HFF& + Left = 1050 + Top = 5460 + Width = 315 + Height = 180 + TabIndex = 27 + 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 = 5 + Left = 510 + Top = 3900 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 6 + Left = 3030 + Top = 3900 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 1 + Left = 510 + Top = 2430 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 2 + Left = 2985 + Top = 2430 + Width = 750 + Height = 450 + End + Begin Label lblGameSize + Caption = "Custom" + BackColor = &H0& + ForeColor = &HFF& + Left = 1050 + Top = 2550 + Width = 585 + Height = 180 + TabIndex = 22 + 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 lblBalanced + Caption = "No" + BackColor = &H0& + ForeColor = &HFF& + Left = 1065 + Top = 4740 + Width = 210 + Height = 180 + TabIndex = 20 + 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 = 9 + Left = 510 + Top = 5355 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 10 + Left = 3015 + Top = 5325 + Width = 750 + Height = 450 + End + Begin Label lblBombs + Caption = "No" + BackColor = &H0& + ForeColor = &HFF& + Left = 1065 + Top = 4035 + Width = 210 + Height = 180 + TabIndex = 13 + 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 = 8 + Left = 3015 + Top = 4605 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 7 + Left = 510 + Top = 4605 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 4 + Left = 2985 + Top = 3135 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 3 + Left = 510 + Top = 3135 + Width = 750 + Height = 450 + End + Begin Label lblVarieties + Caption = "3 Varieties" + BackColor = &H0& + ForeColor = &HFF& + Left = 1065 + Top = 3300 + Width = 840 + Height = 180 + TabIndex = 8 + 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 = 12 + Left = 3015 + Top = 6045 + Width = 750 + Height = 450 + End + Begin Image arrowExtender + Index = 11 + Left = 510 + Top = 6045 + Width = 750 + Height = 450 + End + Begin Label lblBackground + Caption = "(HeHe)" + BackColor = &H0& + ForeColor = &HFF& + Left = 1065 + Top = 6195 + Width = 540 + Height = 180 + TabIndex = 5 + 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 lblCross + Caption = "×" + ForeColor = &HFFFFFF& + Left = 2235 + Top = 2520 + Width = 165 + Height = 240 + Visible = 0 'False + TabIndex = 2 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End +End + +Attribute VB_Name = "classicOptions" + + +Private Sub txtCustomX_Change() '835660 + loc_008356C5: var_18 = txtCustomX.Text + loc_008356EA: If 008861A8h Then + loc_008356F0: If 008861A8h = 1 Then + loc_00835703: 00000004h = 00000004h - eax+00000014h + loc_00835707: If 00000004h >= 0 Then + loc_00835709: var_eax = Err.Raise + loc_0083570B: End If + loc_0083570B: 00000004h = 00000004h + 00000004h + loc_0083570D: GoTo loc_00835719 + loc_0083570F: End If + loc_0083570F: End If + loc_00835715: var_eax = Err.Raise + loc_00835719: 'Referenced from: 0083570D + loc_00835750: If var_8861A8 Then + loc_00835756: If 008861A8h = 1 Then + loc_00835763: 00000004h = 00000004h - ecx+00000014h + loc_00835767: If 00000004h >= 0 Then + loc_00835769: var_eax = Err.Raise + loc_00835771: End If + loc_00835774: GoTo loc_0083577E + loc_00835776: End If + loc_00835776: End If + loc_00835776: var_eax = Err.Raise + loc_0083577E: 'Referenced from: 00835774 + loc_00835786: If edx+eax < 3 Then + loc_0083578A: If var_8861A8 Then + loc_00835790: If 008861A8h = 1 Then + loc_0083579D: 00000004h = 00000004h - ecx+00000014h + loc_008357A1: If 00000004h >= 0 Then + loc_008357A3: var_eax = Err.Raise + loc_008357AB: End If + loc_008357AE: GoTo loc_008357B8 + loc_008357B0: End If + loc_008357B0: End If + loc_008357B0: var_eax = Err.Raise + loc_008357B8: 'Referenced from: 008357AE + loc_008357C1: End If + loc_008357C4: var_eax = classicOptions.initPoints + loc_008357ED: GoTo loc_00835802 + loc_00835801: Exit Sub + loc_00835802: 'Referenced from: 008357ED +End Sub + +Private Sub txtCustomY_Change() '835830 + loc_00835895: var_18 = txtCustomY.Text + loc_008358BA: If 008861ACh Then + loc_008358C0: If 008861ACh = 1 Then + loc_008358D3: 00000004h = 00000004h - eax+00000014h + loc_008358D7: If 00000004h >= 0 Then + loc_008358D9: var_eax = Err.Raise + loc_008358DB: End If + loc_008358DB: 00000004h = 00000004h + 00000004h + loc_008358DD: GoTo loc_008358E9 + loc_008358DF: End If + loc_008358DF: End If + loc_008358E5: var_eax = Err.Raise + loc_008358E9: 'Referenced from: 008358DD + loc_00835920: If var_8861AC Then + loc_00835926: If 008861ACh = 1 Then + loc_00835933: 00000004h = 00000004h - ecx+00000014h + loc_00835937: If 00000004h >= 0 Then + loc_00835939: var_eax = Err.Raise + loc_00835941: End If + loc_00835944: GoTo loc_0083594E + loc_00835946: End If + loc_00835946: End If + loc_00835946: var_eax = Err.Raise + loc_0083594E: 'Referenced from: 00835944 + loc_00835956: If edx+eax < 3 Then + loc_0083595A: If var_8861AC Then + loc_00835960: If 008861ACh = 1 Then + loc_0083596D: 00000004h = 00000004h - ecx+00000014h + loc_00835971: If 00000004h >= 0 Then + loc_00835973: var_eax = Err.Raise + loc_0083597B: End If + loc_0083597E: GoTo loc_00835988 + loc_00835980: End If + loc_00835980: End If + loc_00835980: var_eax = Err.Raise + loc_00835988: 'Referenced from: 0083597E + loc_00835991: End If + loc_00835994: var_eax = classicOptions.initPoints + loc_008359BD: GoTo loc_008359D2 + loc_008359D1: Exit Sub + loc_008359D2: 'Referenced from: 008359BD +End Sub + +Private Sub picAnim_Click() '8315E0 + Dim Me As Me + loc_00831629: var_eax = Proc_9_20_8476B0(1, Me, ebx) + loc_00831634: eax = arg_C - 1 + loc_00831638: If arg_C - 1 <= 0 Then + loc_0083163E: GoTo loc_[eax*4+00831BE4h] + loc_0083164D: If global_886010 = 2 Then + loc_00831667: If Me(14) < 1 Then + loc_00831672: var_eax = classicOptions.showCustom + loc_008316B3: GoTo loc_008316BB + loc_008316B5: End If + loc_008316BE: var_eax = classicOptions.initPoints + loc_00831771: GoTo loc_00831779 + loc_00831773: End If + loc_0083177C: var_eax = classicOptions.initPoints + loc_008317D7: GoTo loc_00831817 + loc_008317D9: End If + loc_008317DC: If 008860E4h = 0 Then + loc_008317DE: GoTo loc_0083180E + loc_008317E0: End If + loc_008317E0: 008860E4h = 008860E4h - %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_008317F0: global_8860E4 = global_008860E4 + loc_008317F6: If global_88611C Then + loc_008317FC: If 008860E4h <> 3 Then GoTo loc_00831817 + loc_008317FE: global_8860E4 = 5 + loc_00831807: GoTo loc_00831817 + loc_00831809: End If + loc_0083180C: If 008860E4h = 2 Then + loc_0083180E: 'Referenced from: 008317DE + loc_0083180E: global_8860E4 = 4 + loc_00831817: End If + loc_00831817: End If + loc_00831817: var_eax = Proc_9_10_844CB0(, , ) + loc_0083181C: + loc_0083181F: var_eax = classicOptions.initPiecePreviews + loc_0083187E: If 008860E4h+%StkVar1 <> CheckObj(%StkVar2, %StkVar3, %StkVar4) <> 0 Then GoTo loc_008318C1 + loc_00831880: global_8860E4 = 2 + loc_00831887: GoTo loc_008318C1 + loc_00831889: End If + loc_00831889: 008860E4h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) = 008860E4h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831899: global_8860E4 = 008860E4h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_008318C1: End If + loc_008318C1: var_eax = Proc_9_10_844CB0(, , fs:[00000000h]) + loc_008318C9: var_eax = classicOptions.initPiecePreviews + loc_00831937: GoTo loc_008318C1 + loc_00831940: global_886124 = Not (00886124h) + loc_00831946: GoTo loc_0083181C + loc_00831951: global_8861A2 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831958: 008861A0h = 008861A0h - %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831964: global_8861A0 = global_008861A0 + loc_0083196A: If 008861A0h = 0 Then + loc_00831973: global_8861A0 = global_00886038 + loc_0083197A: End If + loc_0083197D: var_eax = classicOptions.checkForButtons + loc_008319A6: var_eax = classicOptions.loadBGfile + loc_008319BE: var_eax = Proc_9_10_844CB0(, , ) + loc_008319C3: GoTo loc_00831B29 + loc_008319D5: 008861A0h = 008861A0h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_008319D8: global_8861A2 = %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_008319E5: 00886038h = 00886038h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_008319E8: global_8861A0 = 008861A0h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831A03: var_eax = classicOptions.checkForButtons + loc_00831A2C: var_eax = classicOptions.loadBGfile + loc_00831A44: var_eax = Proc_9_10_844CB0() + loc_00831A4C: var_eax = classicOptions.initPiecePreviews + loc_00831A68: GoTo loc_00831BA4 + loc_00831A73: 008861A2h = 008861A2h - %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831A80: global_8861A2 = global_008861A2 + loc_00831A86: If 008861A2h = var_FFFFFF Then + loc_00831A88: global_8861A2 = 6 + loc_00831A94: var_eax = classicOptions.loadBGfile + loc_00831ABD: var_eax = classicOptions.initPiecePreviews + loc_00831AD9: GoTo loc_00831BA4 + loc_00831AE4: 008861A2h = 008861A2h + %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831AF1: global_8861A2 = 008861A2h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) + loc_00831AF7: If 008861A2h+%StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4) = 0 Then + loc_00831B03: var_eax = classicOptions.loadBGfile + loc_00831B2C: var_eax = classicOptions.initPiecePreviews + loc_00831B6E: GoTo loc_00831BA4 + loc_00831B7E: var_eax = classicOptions.btnButton_Click + loc_00831BA4: End If + loc_00831BA4: End If + loc_00831BA4: End If + loc_00831BA4: End If + loc_00831BA4: End If + loc_00831BA7: var_eax = classicOptions.displayInfo +End Sub + +Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '831C30 + Dim var_28 As PictureBox + Dim var_48 As PictureBox + loc_00831CBD: Button = picAnim._Default + loc_00831CEC: var_18 = picAnim.Tag + loc_00831D2E: Button = picAnim._Default + loc_00831D52: var_1C = picAnim.Tag + loc_00831D93: Button = picAnim._Default + loc_00831DB3: var_20 = picAnim.Tag + loc_00831DF1: Button = picAnim._Default + loc_00831E11: var_24 = picAnim.Tag + loc_00831E44: edi = (var_24 = "backa") + 1 + loc_00831E5A: eax = (var_20 = "playa") + 1 + loc_00831E6E: eax = (var_1C = "righta") + 1 + loc_00831E89: eax = (var_18 = "lefta") + 1 + loc_00831ED1: If (var_18 = "lefta") + 1 = 0 Then + loc_00831EFA: + loc_00831F07: If Err.Number Then + loc_00831F1F: var_A0 = Button + loc_00831F32: If Err.Number Then + loc_00831F6E: CInt(6.37066138261923E-314) = picAnim._Default + loc_00831F8E: var_18 = picAnim.Tag + loc_00831FC0: edi = (var_18 = "left") + 1 + loc_00831FDF: If (var_18 = "left") + 1 Then + loc_0083200D: var_A8 = var_28 + loc_0083201E: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083203F: picAnim.Tag = "lefta" + loc_00832073: End If + loc_0083208C: var_48 = var_28 + loc_008320A2: CInt(6.37066138261923E-314) = picAnim._Default + loc_008320C2: var_18 = picAnim.Tag + loc_008320F4: edi = (var_18 = "right") + 1 + loc_00832113: If (var_18 = "right") + 1 Then + loc_00832148: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832169: picAnim.Tag = "righta" + loc_0083219D: End If + loc_008321B9: var_48 = var_28 + loc_008321C5: var_B4 = var_28 + loc_008321D6: CInt(6.37066138261923E-314) = picAnim._Default + loc_008321F6: var_18 = picAnim.Tag + loc_00832228: edi = (var_18 = "play") + 1 + loc_00832247: If (var_18 = "play") + 1 Then + loc_0083227C: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083229D: picAnim.Tag = "playa" + loc_008322D1: End If + loc_008322ED: var_48 = var_28 + loc_008322F9: var_BC = var_28 + loc_0083230A: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083232A: var_18 = picAnim.Tag + loc_0083235C: edi = (var_18 = "back") + 1 + loc_0083237B: If (var_18 = "back") + 1 Then + loc_008323B0: CInt(6.37066138261923E-314) = picAnim._Default + loc_008323D1: picAnim.Tag = "backa" + loc_00832405: GoTo loc_00832957 + loc_0083240A: End If + loc_00832426: var_48 = var_28 + loc_00832429: var_C4 = var_28 + loc_00832440: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832460: var_18 = picAnim.Tag + loc_00832492: edi = (var_18 = "lefta") + 1 + loc_008324B1: If (var_18 = "lefta") + 1 Then + loc_008324E6: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832507: picAnim.Tag = "left" + loc_00832543: var_eax = classicOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_0083255B: End If + loc_0083258A: CInt(6.37066138261923E-314) = picAnim._Default + loc_008325AA: var_18 = picAnim.Tag + loc_008325DC: edi = (var_18 = "righta") + 1 + loc_008325FB: If (var_18 = "righta") + 1 Then + loc_00832629: var_D0 = var_28 + loc_0083263A: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083265B: picAnim.Tag = "right" + loc_00832697: var_eax = classicOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_008326AF: End If + loc_008326CB: var_48 = var_28 + loc_008326D7: var_D4 = var_28 + loc_008326E8: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832708: var_18 = picAnim.Tag + loc_0083273A: edi = (var_18 = "playa") + 1 + loc_00832759: If (var_18 = "playa") + 1 Then + loc_0083278E: CInt(6.37066138261923E-314) = picAnim._Default + loc_008327AF: picAnim.Tag = "play" + loc_008327EB: var_eax = classicOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_00832803: End If + loc_00832832: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832852: var_18 = picAnim.Tag + loc_00832884: edi = (var_18 = "backa") + 1 + loc_008328A3: If (var_18 = "backa") + 1 Then + loc_008328D1: var_E0 = var_28 + loc_008328E2: CInt(6.37066138261923E-314) = picAnim._Default + loc_00832903: picAnim.Tag = "back" + loc_0083293F: var_eax = classicOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_00832957: + loc_00832957: End If + loc_00832957: End If + loc_0083296C: GoTo loc_00831EFA + loc_00832971: End If + loc_00832971: End If + loc_0083297E: GoTo loc_008329C4 + loc_008329C3: Exit Sub + loc_008329C4: 'Referenced from: 0083297E + loc_008329C4: Exit Sub +End Sub + +Private Sub btnButton_Click() '82F7E0 + loc_0082F84F: arg_C = btnButton._Default + loc_0082F873: var_20 = btnButton.Visible + loc_0082F89D: If var_20 = 0 Then eax = 1 + loc_0082F8B4: If eax = 0 Then + loc_0082F8C6: End If + loc_0082F8CE: GoTo loc_0082F8E4 + loc_0082F8E3: Exit Sub + loc_0082F8E4: 'Referenced from: 0082F8CE +End Sub + +Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '82F910 + loc_0082F960: Button = Button + 000Ch + loc_0082F993: var_eax = classicOptions.picAnim_MouseMove(var_18, var_1C, var_20, var_24) +End Sub + +Private Sub Form_Load() '82FD20 + Dim Me As Variant + Dim var_20 As Variant + Dim var_24 As Variant + Dim var_74 As Variant + Dim global_00886072 As PictureBox + Dim var_7C As PictureBox + loc_0082FDA6: var_20 = Global.Screen + loc_0082FDD4: var_6C = Global.Width + loc_0082FE14: var_24 = Global.Screen + loc_0082FE34: var_70 = Global.Height + loc_0082FEB4: var_eax = Unknown_VTable_Call[edi+000002A4h] + loc_0082FF08: var_eax = Proc_12_43_86D100(var_34, var_20, var_20) + loc_0082FF32: var_eax = Proc_12_45_86D280(var_20, var_20, Proc_12_43_86D100(var_34, var_20, var_20)) + loc_0082FF43: var_eax = classicOptions.positionControls + loc_0082FF8A: work.ForeColor = RGB(180, 30, 70) + loc_0082FFF1: var_eax = Proc_12_47_86E570(var_20, var_20, CreateObject(global_00409370, global_008868A8)) + loc_00830021: var_eax = Proc_12_25_868460(4, global_008868A8, Proc_12_47_86E570(var_20, var_20, CreateObject(global_00409370, global_008868A8))) + loc_0083002F: var_eax = classicOptions.loadClassicOptions + loc_00830047: var_eax = Proc_9_10_844CB0(var_20, global_0040EBFC, global_008868A8) + loc_0083004F: var_eax = classicOptions.loadBGfile + loc_0083006F: If global_886010 = 2 Then + loc_0083007B: + loc_0083008D: If Me(20) <= 3 Then + loc_0083009B: If var_8861A8 Then + loc_008300A1: If 008861A8h = 1 Then + loc_008300B0: If Me(20) >= 0 Then + loc_008300B2: var_eax = Err.Raise + loc_008300B4: End If + loc_008300B7: GoTo loc_008300BB + loc_008300B9: End If + loc_008300B9: End If + loc_008300B9: var_eax = Err.Raise + loc_008300BB: 'Referenced from: 008300B7 + loc_008300C1: var_AC = Err.Raise + loc_008300C9: If var_8861AC Then + loc_008300CF: If 008861ACh = 1 Then + loc_008300DF: If Me(20) >= 0 Then + loc_008300E1: var_eax = Err.Raise + loc_008300E9: End If + loc_008300EC: GoTo loc_008300F6 + loc_008300EE: End If + loc_008300EE: End If + loc_008300EE: var_eax = Err.Raise + loc_008300F6: 'Referenced from: 008300EC + loc_0083011B: If 00886056h <> 0 Then edx = 1 + loc_00830124: If 00886056h <> 0 Then eax = 1 + loc_00830129: If eax = 0 Then + loc_00830133: End If + loc_0083013E: 00000001h = 00000001h + esi+0000004Eh + loc_0083014C: GoTo loc_0083007B + loc_00830151: End If + loc_00830168: var_74 = var_20 + loc_00830176: var_18 = CStr(00000001h+esi+0000004Eh = txtCustomX.Index) + loc_00830183: txtCustomX.Text = var_18 + loc_008301EF: txtCustomY.Text = CStr(Me(21)) + loc_0083022E: If esi+00000036h = 0 Then + loc_0083023D: var_eax = classicOptions.showCustom + loc_00830268: var_3C = global_00886056 + loc_00830299: var_1C = Trim$(Str$(global_00886056)) + loc_008302A6: txtCustomX.Text = var_1C + loc_008302F3: var_3C = global_00886058 + loc_00830324: var_1C = Trim$(Str$(global_00886058)) + loc_00830331: txtCustomY.Text = var_1C + loc_00830375: GoTo loc_00830646 + loc_0083037A: End If + loc_0083037D: var_eax = classicOptions.hideCustom + loc_00830399: GoTo loc_00830646 + loc_008303A1: var_eax = classicOptions.hideCustom + loc_008303D5: 1 = picAnim._Default + loc_008303F7: picAnim.Visible = False + loc_00830443: 1 = arrowExtender._Default + loc_00830465: arrowExtender.Visible = False + loc_008304B1: 2 = picAnim._Default + loc_008304D3: picAnim.Visible = False + loc_0083051F: 2 = arrowExtender._Default + loc_00830541: arrowExtender.Visible = False + loc_0083057F: If var_8861A8 Then + loc_00830585: If 008861A8h = 1 Then + loc_0083058F: 00000002h = 00000002h - ecx+00000014h + loc_00830599: If 00000002h >= 0 Then + loc_0083059B: var_eax = Err.Raise + loc_008305AA: End If + loc_008305AA: var_74 = var_74 + var_74 + loc_008305AC: GoTo loc_008305BA + loc_008305AE: End If + loc_008305AE: End If + loc_008305AE: var_eax = Err.Raise + loc_008305BA: 'Referenced from: 008305AC + loc_008305C9: global_886056 = ecx+eax + loc_008305D0: If var_8861AC Then + loc_008305D6: If 008861ACh = 1 Then + loc_008305E0: 00000002h = 00000002h - ecx+00000014h + loc_008305EA: If 00000002h >= 0 Then + loc_008305EC: var_eax = Err.Raise + loc_008305FB: End If + loc_008305FB: var_74 = var_74 + var_74 + loc_008305FD: GoTo loc_0083060B + loc_008305FF: End If + loc_008305FF: End If + loc_008305FF: var_eax = Err.Raise + loc_0083060B: 'Referenced from: 008305FD + loc_0083061B: global_886058 = ecx+eax + loc_00830622: If var_88611C Then + loc_0083062C: If global_8860E4 = 3 Then GoTo loc_0083063D + loc_00830631: If var_88611C <> 0 Then GoTo loc_00830646 + loc_00830633: End If + loc_0083063B: If global_8860E4 = 2 Then + loc_0083063D: global_8860E4 = 4 + loc_00830646: End If + loc_00830646: End If + loc_00830649: var_eax = classicOptions.resetHighLights + loc_00830664: var_eax = classicOptions.displayInfo + loc_0083067C: var_eax = Proc_84A1B0(var_24, var_20, var_20) + loc_0083069B: var_6C = display.Width + loc_008306C4: global_886070 = CInt(var_6C) + loc_008306EA: var_6C = display.Height + loc_00830713: global_886072 = CInt(var_6C) + loc_00830755: work.Width = global_00886070 + loc_008307A0: var_74 = var_20 + loc_008307B1: work.Height = global_00886072 + loc_008307F0: Set work.Top = work.Top = %x1s = var_20 + loc_0083080D: call Proc_10_13_84B1F0(work.Top = %x1s, global_00886070, var_20) + loc_0083082D: display.ScaleLeft = global_C2C80000 + loc_0083086B: var_74 = var_20 + loc_0083086E: display.ScaleWidth = global_43480000 + loc_008308C2: var_D8 = global_00886072 + loc_008308D8: var_E4 = global_00886070 + loc_008308EB: If global_886000 = 0 Then + loc_008308F3: GoTo loc_00830906 + loc_008308F5: End If + loc_00830906: 'Referenced from: 008308F3 + loc_00830926: display.ScaleTop = ((var_D8 / var_E4) * global_401680) + loc_0083097A: var_F4 = global_00886072 + loc_0083098D: var_74 = var_20 + loc_00830990: var_100 = global_00886070 + loc_008309A3: If global_886000 = 0 Then + loc_008309AB: GoTo loc_008309BE + loc_008309AD: End If + loc_008309BE: 'Referenced from: 008309AB + loc_008309DE: display.ScaleHeight = ((var_F4 / var_100) * global_401678) + loc_00830A17: var_7C = var_24 + loc_00830A31: var_6C = display.ScaleLeft + loc_00830A58: display.ScaleLeft = var_6C + loc_00830A9B: var_7C = var_24 + loc_00830AB5: var_6C = display.ScaleWidth + loc_00830ADC: display.ScaleWidth = var_6C + loc_00830B1F: var_7C = var_24 + loc_00830B39: var_6C = display.ScaleTop + loc_00830B60: display.ScaleTop = var_6C + loc_00830BA3: var_7C = var_24 + loc_00830BBD: var_6C = display.ScaleHeight + loc_00830BE4: display.ScaleHeight = var_6C + loc_00830C39: work.DrawWidth = CInt(1) + loc_00830C5F: var_eax = classicOptions.initPoints + loc_00830C7A: var_eax = classicOptions.initPiecePreviews + loc_00830C95: var_eax = classicOptions.checkForButtons + loc_00830CBA: GoTo loc_00830CE9 + loc_00830CE8: Exit Sub + loc_00830CE9: 'Referenced from: 00830CBA + loc_00830CE9: Exit Sub +End Sub + +Private Sub Form_Unload(Cancel As Integer) '830EB0 + Dim Me As Me + Dim var_18 As Me + loc_00830F1B: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18) + loc_00830F47: Set %x1 = Me.Top = var_18 + loc_00830F6B: Set Me.Top = Me.Top = %x1s = %x1 = Me.Top + loc_00830F7D: var_eax = classicOptions.saveClassicOptions + loc_00830FA5: GoTo loc_00830FBA + loc_00830FB9: Exit Sub + loc_00830FBA: 'Referenced from: 00830FA5 +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '82FAF0 + Dim Me As Variant + loc_0082FB45: If KeyCode = 123 Then + loc_0082FB47: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_0082FB4C: GoTo loc_0082FC05 + loc_0082FB51: End If + loc_0082FB55: If Proc_12_18_864A90(edi, Me, ebx) <> 0 Then GoTo loc_0082FC0F + loc_0082FB7A: 1 = btnButton._Default + loc_0082FBA8: var_20 = btnButton.Visible + loc_0082FBDB: If var_20 Then + loc_0082FBEB: var_eax = classicOptions.btnButton_Click + loc_0082FC03: End If + loc_0082FC05: 'Referenced from: 0082FB4C + loc_0082FC0D: GoTo loc_0082FC55 + loc_0082FC13: If classicOptions.btnButton_Click <> 27 Then GoTo loc_0082FC05 + loc_0082FC23: var_eax = classicOptions.btnButton_Click + loc_0082FC2B: If classicOptions.btnButton_Click >= 0 Then GoTo loc_0082FC05 + loc_0082FC39: classicOptions.btnButton_Click = CheckObj(Me, global_0040EBFC, 1876) + loc_0082FC3F: GoTo loc_0082FC05 + loc_0082FC54: Exit Sub + loc_0082FC55: 'Referenced from: 0082FC0D +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) '82FC80 + loc_0082FCCC: If KeyAscii = 13 Then + loc_0082FCDC: var_eax = classicOptions.btnButton_Click + loc_0082FCF8: End If +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '830E20 + loc_00830E63: var_eax = classicOptions.highLightCheck +End Sub + +Private Sub tmrMainLoop_Timer() '8329F0 + Dim Me As Me + Dim var_2C As Timer + loc_00832A5B: tmrMainLoop.Enabled = ebx + loc_00832A83: var_eax = classicOptions.drawDefaultPics + loc_00832AA5: var_eax = Proc_86B860(var_2C, Me, Me) + loc_00832AAA: + loc_00832AAE: var_eax = QueryPerformanceCounter(var_24) + loc_00832AC0: + loc_00832AC8: If 00000001h <= 4 Then + loc_00832AE5: var_eax = Proc_10_11_84A820(var_2C, var_2C, 4) + loc_00832AF6: 00000001h = 00000001h + 00000001h + loc_00832B01: GoTo loc_00832AC0 + loc_00832B03: End If + loc_00832B06: var_eax = classicOptions.drawdisplay + loc_00832B3F: var_eax = Proc_12_46_86D7E0(var_2C, var_2C, classicOptions.drawdisplay) + loc_00832B51: If esi+00000034h Then + loc_00832B56: var_eax = classicOptions.drawAnimations + loc_00832B72: End If + loc_00832B76: var_eax = QueryPerformanceCounter(var_1C) + loc_00832B91: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, edi, Me, 00000001h) + loc_00832B99: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, edi, Me, 00000001h), var_18) + loc_00832BAB: var_4C = __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, edi, Me, 00000001h), var_18) + loc_00832BB0: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00832BBD: If global_886000 = 0 Then + loc_00832BBF: fdivr st0, var_4C + loc_00832BC2: GoTo loc_00832BCF + loc_00832BC4: End If + loc_00832BCF: 'Referenced from: 00832BC2 + loc_00832BCF: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00832BF6: If Err.Number Then + loc_00832BF8: global_8860D4 = 3DCCCCCDh + loc_00832C02: End If + loc_00832C09: If global_886054 Then + loc_00832C18: End If + loc_00832C1C: If esi+00000038h = 0 Then GoTo loc_00832AAA + loc_00832C29: var_eax = classicOptions.Proc_5_36_82F1C0(Me, Me(18)) + loc_00832C3C: GoTo loc_00832C48 + loc_00832C47: Exit Sub + loc_00832C48: 'Referenced from: 00832C3C + loc_00832C48: Exit Sub +End Sub + +Private Sub arrowExtender_Click() '82F540 + loc_0082F5AF: arg_C = picAnim._Default + loc_0082F5DD: var_20 = picAnim.Visible + loc_0082F610: If var_20 Then + loc_0082F619: var_eax = classicOptions.picAnim_Click + loc_0082F631: End If + loc_0082F63D: GoTo loc_0082F653 + loc_0082F652: Exit Sub + loc_0082F653: 'Referenced from: 0082F63D +End Sub + +Private Sub arrowExtender_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '82F680 + loc_0082F6F8: Button = picAnim._Default + loc_0082F71C: var_20 = picAnim.Visible + loc_0082F753: If var_20 Then + loc_0082F778: var_eax = classicOptions.picAnim_MouseMove(Button, var_20, var_24, var_28) + loc_0082F794: End If + loc_0082F79D: GoTo loc_0082F7B3 + loc_0082F7B2: Exit Sub + loc_0082F7B3: 'Referenced from: 0082F79D +End Sub + +Private Sub display_Click() '82F9E0 + Dim Me As Me + loc_0082FA20: 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) '82FA60 + loc_0082FAA3: var_eax = classicOptions.highLightCheck +End Sub + +Public Sub positionControls() '82CED0 + Dim Me As Variant + Dim var_50 As Variant + Dim var_18 As Variant + Dim var_1C As Variant + loc_0082CF44: var_7C = stk@FF34 + loc_0082CFA0: var_eax = lblCross.Move global_43150000, 2, var_28, 168 + loc_0082CFE6: var_84 = var_18 + loc_0082D052: var_eax = display.Move global_43750000, 2, var_28, 149 + loc_0082D09C: var_50 = var_18 + loc_0082D09F: 1 = btnButton._Default + loc_0082D0CF: var_88 = var_1C + loc_0082D12E: var_eax = btnButton.Move global_43E80000, 2, var_28, 445 + loc_0082D185: 2 = btnButton._Default + loc_0082D212: var_eax = btnButton.Move global_440A0000, 2, var_28 + loc_0082D262: var_8C = var_18 + loc_0082D2CE: var_eax = txtCustomX.Move global_42EA0000, 2, var_28, 167 + loc_0082D314: var_50 = var_18 + loc_0082D383: var_eax = txtCustomY.Move global_43230000, 2, var_28 + loc_0082D435: var_eax = lblGameSize.Move global_428C0000, 2, var_28, 170 + loc_0082D47B: var_94 = var_18 + loc_0082D4E7: var_eax = lblVarieties.Move global_428C0000, 2, var_28, 220 + loc_0082D52D: var_98 = var_18 + loc_0082D599: var_eax = lblBombs.Move global_428C0000, 2, var_28, 269 + loc_0082D5DF: var_9C = var_18 + loc_0082D64B: var_eax = lblBalanced.Move global_428C0000, 2, var_28, 316 + loc_0082D691: var_A0 = var_18 + loc_0082D6FD: var_eax = lblPieceSet.Move global_428C0000, 2, var_28, 364 + loc_0082D743: var_A4 = var_18 + loc_0082D750: var_50 = var_18 + loc_0082D7AF: var_eax = lblBackground.Move global_428C0000, 2, var_28, 413 + loc_0082D7E2: + loc_0082D7EE: If Me(20) <= 12 Then + loc_0082D7F7: eax = Me(20) - 1 + loc_0082D7FB: If Me(20) - 1 <= 0 Then + loc_0082D801: GoTo loc_[eax*4+0082F188h] + loc_0082D831: Me(20) = arrowExtender._Default + loc_0082D8B1: var_eax = arrowExtender.Move global_42080000, 2, var_28, var_20 + loc_0082D90E: Me(20) = picAnim._Default + loc_0082D92F: var_58 = var_1C + loc_0082D98E: var_eax = picAnim.Move global_42540000, 2, var_28, var_20 + loc_0082D998: If picAnim.Move global_42540000 < 0 Then + loc_0082D99E: GoTo loc_0082DB35 + loc_0082D9CC: Me(20) = arrowExtender._Default + loc_0082DA4C: var_eax = arrowExtender.Move global_43470000, 2, var_28, var_20 + loc_0082DAA9: Me(20) = picAnim._Default + loc_0082DACA: var_58 = var_1C + loc_0082DB29: var_eax = picAnim.Move global_435B0000, 2, var_28, var_20 + loc_0082DB33: If picAnim.Move global_435B0000 < 0 Then + loc_0082DB35: 'Referenced from: 0082D99E + loc_0082DB44: picAnim.Move global_435B0000, 2, var_28, var_20 = CheckObj(var_58, global_0040E7E4, 616) + loc_0082DB4A: End If + loc_0082DB4A: End If + loc_0082DB60: End If + loc_0082DB69: Me(20) = Me(20) + 00000001h + loc_0082DB76: GoTo loc_0082D7E2 + loc_0082DB7B: End If + loc_0082DB9E: 1 = arrowExtender._Default + loc_0082DC21: var_eax = arrowExtender.Move global_42080000, 2, var_28, 162 + loc_0082DC78: 2 = arrowExtender._Default + loc_0082DD00: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082DD57: 3 = arrowExtender._Default + loc_0082DDDA: var_eax = arrowExtender.Move global_42080000, 2, var_28, 209 + loc_0082DE31: 4 = arrowExtender._Default + loc_0082DEB9: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082DF10: 5 = arrowExtender._Default + loc_0082DF93: var_eax = arrowExtender.Move global_42080000, 2, var_28, 260 + loc_0082DFEA: 6 = arrowExtender._Default + loc_0082E072: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082E0C9: 7 = arrowExtender._Default + loc_0082E14C: var_eax = arrowExtender.Move global_42080000, 2, var_28, 307 + loc_0082E1A3: 8 = arrowExtender._Default + loc_0082E22B: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082E282: 9 = arrowExtender._Default + loc_0082E305: var_eax = arrowExtender.Move global_42080000, 2, var_28, 355 + loc_0082E35C: 10 = arrowExtender._Default + loc_0082E3E4: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082E43B: 11 = arrowExtender._Default + loc_0082E4BE: var_eax = arrowExtender.Move global_42080000, 2, var_28, 403 + loc_0082E515: 12 = arrowExtender._Default + loc_0082E59D: var_eax = arrowExtender.Move global_43470000, 2, var_28 + loc_0082E5F4: 1 = picAnim._Default + loc_0082E677: var_eax = picAnim.Move global_42540000, 2, var_28, 170 + loc_0082E6CE: 2 = picAnim._Default + loc_0082E756: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082E7AD: 3 = picAnim._Default + loc_0082E830: var_eax = picAnim.Move global_42540000, 2, var_28, 217 + loc_0082E887: 4 = picAnim._Default + loc_0082E90F: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082E966: 5 = picAnim._Default + loc_0082E9E9: var_eax = picAnim.Move global_42540000, 2, var_28, 268 + loc_0082EA40: 6 = picAnim._Default + loc_0082EAC8: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082EB1F: 7 = picAnim._Default + loc_0082EBA2: var_eax = picAnim.Move global_42540000, 2, var_28, 315 + loc_0082EBF9: 8 = picAnim._Default + loc_0082EC81: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082ECD8: 9 = picAnim._Default + loc_0082ED5B: var_eax = picAnim.Move global_42540000, 2, var_28, 363 + loc_0082EDB2: 10 = picAnim._Default + loc_0082EE3A: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082EE91: 11 = picAnim._Default + loc_0082EF14: var_eax = picAnim.Move global_42540000, 2, var_28, 411 + loc_0082EF6B: 12 = picAnim._Default + loc_0082EFF9: var_eax = picAnim.Move global_435B0000, 2, var_28 + loc_0082F044: + loc_0082F04F: If ecx+0000004Eh <= 14 Then + loc_0082F07D: Me(20) = picAnim._Default + loc_0082F100: var_eax = picAnim.Move global_40800000, 2, var_28, 3 + loc_0082F13B: Me(20) = Me(20) + var_6C + loc_0082F145: GoTo loc_0082F044 + loc_0082F14A: End If + loc_0082F150: GoTo loc_0082F166 + loc_0082F165: Exit Sub + loc_0082F166: 'Referenced from: 0082F150 + loc_0082F166: Exit Sub +End Sub + +Public Sub resetHighLights() '830D20 + loc_00830D5E: var_eax = classicOptions.drawDefaultPics +End Sub + +Public Sub highLightCheck() '830DA0 + Dim Me As Me + loc_00830DDE: If Me.SaveProp 'Ignore this Then + loc_00830DE3: var_eax = classicOptions.resetHighLights + loc_00830DFF: End If +End Sub + +Public Sub saveClassicOptions() '830FE0 + Dim Me As Me + loc_0083101A: var_eax = Close + loc_00831044: Open global_00886014 & "classicOp.cfg" For Random As #1 Len = 20 + loc_00831062: Put #1, global_00886056 + loc_0083106D: Put #1, global_00886058 + loc_00831078: Put #1, global_00886124 + loc_00831083: Put #1, global_008860E4 + loc_0083108E: Put #1, global_0088611C + loc_00831099: Put #1, global_008861A0 + loc_008310A3: Put #1, Me(15) + loc_008310AD: Put #1, %x1 = Me.Caption + loc_008310AF: Me = Me + 00000052h + loc_008310B7: Put #1, Me+00000052h + loc_008310C2: Put #1, global_008861A2 + loc_008310C6: Close #1 + loc_008310D1: GoTo loc_008310DD + loc_008310DC: Exit Sub + loc_008310DD: 'Referenced from: 008310D1 +End Sub + +Public Sub loadClassicOptions() '831100 + Dim Me As Me + loc_00831140: var_eax = Close + loc_00831166: Open global_00886014 & "classicOp.cfg" For Random As #1 Len = 20 + loc_0083117F: If LOF(1) Then + loc_00831194: Get #1, global_00886056 + loc_0083119F: Get #1, global_00886058 + loc_008311AA: Get #1, global_00886124 + loc_008311B5: Get #1, global_008860E4 + loc_008311C0: Get #1, global_0088611C + loc_008311CB: Get #1, global_008861A0 + loc_008311D5: Get #1, Me(15) + loc_008311DF: Get #1, %x1 = Me.Caption + loc_008311E1: Me = Me + 00000052h + loc_008311ED: Get #1, Me+00000052h + loc_008311F7: Get #1, global_008861A2 + loc_008311F9: var_eax = Close + loc_00831202: If global_8860E4 >= 2 Then GoTo loc_00831307 + loc_00831208: global_8860E4 = 2 + loc_0083120F: GoTo loc_00831307 + loc_00831214: End If + loc_00831214: var_eax = Close + loc_0083121E: If 008861A8h Then + loc_00831224: If 008861A8h = 1 Then + loc_0083123B: If 00000002h >= 0 Then + loc_0083123D: var_eax = Err.Raise + loc_00831245: End If + loc_00831248: GoTo loc_00831258 + loc_0083124A: End If + loc_0083124A: End If + loc_00831250: var_eax = Err.Raise + loc_00831258: 'Referenced from: 00831248 + loc_00831267: global_886056 = ecx+eax + loc_0083126E: If var_8861AC Then + loc_00831274: If 008861ACh = 1 Then + loc_00831285: If 00000002h >= 0 Then + loc_00831287: var_eax = Err.Raise + loc_0083128F: End If + loc_00831292: GoTo loc_0083129C + loc_00831294: End If + loc_00831294: End If + loc_00831294: var_eax = Err.Raise + loc_0083129C: 'Referenced from: 00831292 + loc_008312AC: global_886058 = ecx+eax + loc_008312B3: global_8860E4 = 4 + loc_008312BC: global_88611C = 0 + loc_008312C5: global_886124 = True + loc_008312CB: global_8861A0 = 1 + loc_008312E2: global_8861A2 = 1 + loc_008312EB: var_eax = Me.1796 + loc_00831307: + loc_0083130C: GoTo loc_00831318 + loc_00831317: Exit Sub + loc_00831318: 'Referenced from: 0083130C +End Sub + +Public Sub showCustom() '831340 + loc_00831395: txtCustomX.Visible = True + loc_008313D9: txtCustomY.Visible = True + loc_00831417: lblCross.Visible = True + loc_00831447: var_eax = classicOptions.txtCustomX_Change + loc_00831462: var_eax = classicOptions.txtCustomY_Change + loc_0083147F: GoTo loc_0083148B + loc_0083148A: Exit Sub + loc_0083148B: 'Referenced from: 0083147F +End Sub + +Public Sub hideCustom() '8314B0 + loc_00831507: txtCustomX.Visible = False + loc_00831545: txtCustomY.Visible = False + loc_00831585: lblCross.Visible = False + loc_008315AD: GoTo loc_008315B9 + loc_008315B8: Exit Sub + loc_008315B9: 'Referenced from: 008315AD +End Sub + +Public Sub initPoints() '832C80 + Dim Me As Me + Dim global_401728 As Me + loc_00832CC4: If var_8861A8 Then + loc_00832CCA: If 008861A8h = 1 Then + loc_00832CDA: If Me(14) >= 0 Then + loc_00832CDC: var_eax = Err.Raise + loc_00832CE8: End If + loc_00832CEB: GoTo loc_00832CF9 + loc_00832CED: End If + loc_00832CED: End If + loc_00832CED: var_eax = Err.Raise + loc_00832CF9: 'Referenced from: 00832CEB + loc_00832D08: var_30 = ecx+eax + loc_00832D0B: If var_8861AC Then + loc_00832D11: If 008861ACh = 1 Then + loc_00832D21: If Me(14) >= 0 Then + loc_00832D23: var_eax = Err.Raise + loc_00832D2F: End If + loc_00832D32: GoTo loc_00832D40 + loc_00832D34: End If + loc_00832D34: End If + loc_00832D34: var_eax = Err.Raise + loc_00832D40: 'Referenced from: 00832D32 + loc_00832D4B: var_2C = edx+eax + loc_00832D4E: If ecx+eax < 1 Then + loc_00832D58: End If + loc_00832D5C: If edx+eax < 1 Then + loc_00832D66: End If + loc_00832D6A: If 00000001h > 50 Then + loc_00832D74: End If + loc_00832D78: If 00000001h > 50 Then + loc_00832D82: End If + loc_00832D85: If 00000032h > 50 Then + loc_00832D97: var_70 = global_00886070 + loc_00832DB3: If global_886000 = 0 Then + loc_00832DB8: GoTo loc_00832DC5 + loc_00832DBA: End If + loc_00832DC5: 'Referenced from: 00832DB8 + loc_00832DC5: GoTo loc_00832E1D + loc_00832DC7: End If + loc_00832DD7: var_88 = global_00886072 + loc_00832DF5: var_94 = global_00886070 + loc_00832E02: If global_886000 = 0 Then + loc_00832E0A: GoTo loc_00832E1D + loc_00832E0C: End If + loc_00832E1D: 'Referenced from: 00832DC5 + loc_00832E33: var_20 = CInt(((var_88 * global_401730) / var_94)) + loc_00832E36: If CInt(((var_88 * global_401730) / var_94)) > 0 Then + loc_00832E3F: End If + loc_00832E59: var_A4 = var_30 + loc_00832E6C: If global_886000 = 0 Then + loc_00832E74: GoTo loc_00832E87 + loc_00832E76: End If + loc_00832E87: 'Referenced from: 00832E74 + loc_00832E87: var_98 = var_20 + loc_00832EB4: var_24 = CInt(((var_A4 / global_401728) * var_98)) + loc_00832EBD: var_B8 = var_30 + loc_00832ED0: If global_886000 = 0 Then + loc_00832ED8: GoTo loc_00832EEB + loc_00832EDA: End If + loc_00832EEB: 'Referenced from: 00832ED8 + loc_00832F0C: var_1C = CInt(((var_B8 / global_401728) * var_98)) + loc_00832F22: var_CC = var_2C + loc_00832F35: If global_886000 = 0 Then + loc_00832F3D: GoTo loc_00832F50 + loc_00832F3F: End If + loc_00832F50: 'Referenced from: 00832F3D + loc_00832F77: var_3C = CInt(((var_CC / global_401728) * var_98)) + loc_00832F80: var_E0 = var_2C + loc_00832F93: If global_886000 = 0 Then + loc_00832F9B: GoTo loc_00832FAE + loc_00832F9D: End If + loc_00832FAE: 'Referenced from: 00832F9B + loc_00832FCC: var_18 = CInt(((var_E0 / global_401728) * var_98)) + loc_00832FE8: var_30(1) = var_30(1) * 0002h + loc_00832FFB: var_2C(1) = var_2C(1) * 0002h + loc_0083300E: var_30(2) = var_30(2) + 0008h + loc_0083302A: ReDim Me.Caption = %StkVar1(0 To Me.Release) + loc_00833038: Me = Me + 00000058h + loc_00833042: ReDim Me+00000058h(0 To %x1 = Me.BackColor) + loc_00833057: If var_30 >= 0 Then + loc_00833065: var_EC = var_3C + loc_0083306B: var_F0 = var_18 + loc_00833071: + loc_00833075: If Me.Caption = %StkVar1 Then + loc_0083307B: If Me.Caption = %StkVar1 = 0 Then + loc_0083308A: If 00000001h >= 0 Then + loc_0083308C: var_eax = Err.Raise + loc_00833092: End If + loc_00833098: GoTo loc_008330A0 + loc_0083309A: End If + loc_0083309A: End If + loc_0083309A: var_eax = Err.Raise + loc_008330A0: 'Referenced from: 00833098 + loc_008330A4: var_48 = var_48 * var_20 + loc_008330AF: var_48 = var_48 + var_24 + loc_008330BE: var_F4 = var_48+var_24 + loc_008330D4: If Me.Caption = %StkVar1 Then + loc_008330DA: If Me.Caption = %StkVar1 = 0 Then + loc_008330E9: If 00000001h >= 0 Then + loc_008330EB: var_eax = Err.Raise + loc_008330F1: End If + loc_008330F7: GoTo loc_008330FF + loc_008330F9: End If + loc_008330F9: End If + loc_008330F9: var_eax = Err.Raise + loc_008330FF: 'Referenced from: 008330F7 + loc_00833112: If Me.Caption = %StkVar1 Then + loc_00833118: If Me.Caption = %StkVar1 = 0 Then + loc_00833127: If 00000001h >= 0 Then + loc_00833129: var_eax = Err.Raise + loc_0083312F: End If + loc_00833135: GoTo loc_0083313D + loc_00833137: End If + loc_00833137: End If + loc_00833137: var_eax = Err.Raise + loc_0083313D: 'Referenced from: 00833135 + loc_0083313F: 00000001h = 00000001h + 0001h + loc_00833158: If Me.Caption = %StkVar1 Then + loc_0083315E: If Me.Caption = %StkVar1 = 0 Then + loc_0083316D: If ebx >= 0 Then + loc_0083316F: var_eax = Err.Raise + loc_00833175: End If + loc_0083317B: GoTo loc_00833183 + loc_0083317D: End If + loc_0083317D: End If + loc_0083317D: var_eax = Err.Raise + loc_00833183: 'Referenced from: 0083317B + loc_00833187: var_48 = var_48 * var_20 + loc_00833192: var_48 = var_48 + var_24 + loc_008331A1: var_F8 = var_48+var_24 + loc_008331B7: If Me.Caption = %StkVar1 Then + loc_008331BD: If Me.Caption = %StkVar1 = 0 Then + loc_008331CC: If ebx >= 0 Then + loc_008331CE: var_eax = Err.Raise + loc_008331D4: End If + loc_008331DA: GoTo loc_008331E2 + loc_008331DC: End If + loc_008331DC: End If + loc_008331DC: var_eax = Err.Raise + loc_008331E2: 'Referenced from: 008331DA + loc_008331F5: If Me.Caption = %StkVar1 Then + loc_008331FB: If Me.Caption = %StkVar1 = 0 Then + loc_0083320A: If ebx >= 0 Then + loc_0083320C: var_eax = Err.Raise + loc_00833212: End If + loc_00833218: GoTo loc_00833220 + loc_0083321A: End If + loc_0083321A: End If + loc_0083321A: var_eax = Err.Raise + loc_00833220: 'Referenced from: 00833218 + loc_00833222: 00000001h+0001h = 00000001h+0001h + 0001h + loc_0083323B: var_48 = var_48 + 0001h + loc_0083324C: If var_48+0001h <= &H32 Then GoTo loc_00833071 + loc_00833252: End If + loc_0083325E: If var_2C >= 0 Then + loc_0083326C: var_FC = var_24 + loc_00833272: var_100 = var_1C + loc_00833278: + loc_0083327C: If Me.Caption = %StkVar1 Then + loc_00833282: If Me.Caption = %StkVar1 = 0 Then + loc_00833291: If 00000001h+0001h+0001h >= 0 Then + loc_00833293: var_eax = Err.Raise + loc_00833299: End If + loc_0083329F: GoTo loc_008332A7 + loc_008332A1: End If + loc_008332A1: End If + loc_008332A1: var_eax = Err.Raise + loc_008332A7: 'Referenced from: 0083329F + loc_008332B9: If Me.Caption = %StkVar1 Then + loc_008332BF: If Me.Caption = %StkVar1 = 0 Then + loc_008332CE: If 00000001h+0001h+0001h >= 0 Then + loc_008332D0: var_eax = Err.Raise + loc_008332D6: End If + loc_008332DC: GoTo loc_008332E4 + loc_008332DE: End If + loc_008332DE: End If + loc_008332DE: var_eax = Err.Raise + loc_008332E4: 'Referenced from: 008332DC + loc_008332E8: var_40 = var_40 * var_20 + loc_008332F3: var_40 = var_40 + var_3C + loc_00833302: var_104 = var_40+var_3C + loc_00833319: If Me.Caption = %StkVar1 Then + loc_0083331F: If Me.Caption = %StkVar1 = 0 Then + loc_0083332E: If 00000001h+0001h+0001h >= 0 Then + loc_00833330: var_eax = Err.Raise + loc_00833336: End If + loc_0083333C: GoTo loc_00833344 + loc_0083333E: End If + loc_0083333E: End If + loc_0083333E: var_eax = Err.Raise + loc_00833344: 'Referenced from: 0083333C + loc_00833346: 00000001h+0001h+0001h = 00000001h+0001h+0001h + 0001h + loc_0083335F: If Me.Caption = %StkVar1 Then + loc_00833365: If Me.Caption = %StkVar1 = 0 Then + loc_00833374: If 00000001h+0001h+0001h+0001h >= 0 Then + loc_00833376: var_eax = Err.Raise + loc_0083337C: End If + loc_00833382: GoTo loc_0083338A + loc_00833384: End If + loc_00833384: End If + loc_00833384: var_eax = Err.Raise + loc_0083338A: 'Referenced from: 00833382 + loc_0083339C: If Me.Caption = %StkVar1 Then + loc_008333A2: If Me.Caption = %StkVar1 = 0 Then + loc_008333B1: If 00000001h+0001h+0001h+0001h >= 0 Then + loc_008333B3: var_eax = Err.Raise + loc_008333B9: End If + loc_008333BF: GoTo loc_008333C7 + loc_008333C1: End If + loc_008333C1: End If + loc_008333C1: var_eax = Err.Raise + loc_008333C7: 'Referenced from: 008333BF + loc_008333CB: var_40 = var_40 * var_20 + loc_008333D6: var_40 = var_40 + var_3C + loc_008333E5: var_108 = var_40+var_3C + loc_008333FC: If Me.Caption = %StkVar1 Then + loc_00833402: If Me.Caption = %StkVar1 = 0 Then + loc_00833411: If 00000001h+0001h+0001h+0001h >= 0 Then + loc_00833413: var_eax = Err.Raise + loc_00833419: End If + loc_0083341F: GoTo loc_00833427 + loc_00833421: End If + loc_00833421: End If + loc_00833421: var_eax = Err.Raise + loc_00833427: 'Referenced from: 0083341F + loc_00833429: 00000001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h + 0001h + loc_00833442: var_40 = var_40 + 0001h + loc_00833453: If var_40+0001h <= &H32 Then GoTo loc_00833278 + loc_00833459: End If + loc_0083345D: If Me.Caption = %StkVar1 Then + loc_00833463: If Me.Caption = %StkVar1 = 0 Then + loc_00833472: If 00000001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833474: var_eax = Err.Raise + loc_0083347A: End If + loc_00833480: GoTo loc_00833488 + loc_00833482: End If + loc_00833482: End If + loc_00833482: var_eax = Err.Raise + loc_00833488: 'Referenced from: 00833480 + loc_0083348E: var_FC = var_24 + loc_008334A4: If Me.Caption = %StkVar1 Then + loc_008334AA: If Me.Caption = %StkVar1 = 0 Then + loc_008334B9: If 00000001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008334BB: var_eax = Err.Raise + loc_008334C1: End If + loc_008334C7: GoTo loc_008334CF + loc_008334C9: End If + loc_008334C9: End If + loc_008334C9: var_eax = Err.Raise + loc_008334CF: 'Referenced from: 008334C7 + loc_008334D5: var_EC = var_3C + loc_008334EC: If Me.Caption = %StkVar1 Then + loc_008334F2: If Me.Caption = %StkVar1 = 0 Then + loc_00833501: If 00000001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833503: var_eax = Err.Raise + loc_00833509: End If + loc_0083350F: GoTo loc_00833517 + loc_00833511: End If + loc_00833511: End If + loc_00833511: var_eax = Err.Raise + loc_00833517: 'Referenced from: 0083350F + loc_00833519: 00000001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h + 0001h + loc_00833534: If Me.Caption = %StkVar1 Then + loc_0083353A: If Me.Caption = %StkVar1 = 0 Then + loc_00833549: If 00000001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_0083354B: var_eax = Err.Raise + loc_00833551: End If + loc_00833557: GoTo loc_0083355F + loc_00833559: End If + loc_00833559: End If + loc_00833559: var_eax = Err.Raise + loc_0083355F: 'Referenced from: 00833557 + loc_00833565: var_100 = var_1C + loc_0083357B: If Me.Caption = %StkVar1 Then + loc_00833581: If Me.Caption = %StkVar1 = 0 Then + loc_00833590: If 00000001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833592: var_eax = Err.Raise + loc_00833598: End If + loc_0083359E: GoTo loc_008335A6 + loc_008335A0: End If + loc_008335A0: End If + loc_008335A0: var_eax = Err.Raise + loc_008335A6: 'Referenced from: 0083359E + loc_008335B9: If Me.Caption = %StkVar1 Then + loc_008335BF: If Me.Caption = %StkVar1 = 0 Then + loc_008335CE: If 00000001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008335D0: var_eax = Err.Raise + loc_008335D6: End If + loc_008335DC: GoTo loc_008335E4 + loc_008335DE: End If + loc_008335DE: End If + loc_008335DE: var_eax = Err.Raise + loc_008335E4: 'Referenced from: 008335DC + loc_008335E6: 00000001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_00833601: If Me.Caption = %StkVar1 Then + loc_00833607: If Me.Caption = %StkVar1 = 0 Then + loc_00833616: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833618: var_eax = Err.Raise + loc_0083361E: End If + loc_00833624: GoTo loc_0083362C + loc_00833626: End If + loc_00833626: End If + loc_00833626: var_eax = Err.Raise + loc_0083362C: 'Referenced from: 00833624 + loc_0083363E: If Me.Caption = %StkVar1 Then + loc_00833644: If Me.Caption = %StkVar1 = 0 Then + loc_00833653: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833655: var_eax = Err.Raise + loc_0083365B: End If + loc_00833661: GoTo loc_00833669 + loc_00833663: End If + loc_00833663: End If + loc_00833663: var_eax = Err.Raise + loc_00833669: 'Referenced from: 00833661 + loc_0083366F: var_F0 = var_18 + loc_00833686: If Me.Caption = %StkVar1 Then + loc_0083368C: If Me.Caption = %StkVar1 = 0 Then + loc_0083369B: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_0083369D: var_eax = Err.Raise + loc_008336A3: End If + loc_008336A9: GoTo loc_008336B1 + loc_008336AB: End If + loc_008336AB: End If + loc_008336AB: var_eax = Err.Raise + loc_008336B1: 'Referenced from: 008336A9 + loc_008336B3: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_008336CE: If Me.Caption = %StkVar1 Then + loc_008336D4: If Me.Caption = %StkVar1 = 0 Then + loc_008336E3: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008336E5: var_eax = Err.Raise + loc_008336EB: End If + loc_008336F1: GoTo loc_008336F9 + loc_008336F3: End If + loc_008336F3: End If + loc_008336F3: var_eax = Err.Raise + loc_008336F9: 'Referenced from: 008336F1 + loc_0083370B: If Me.Caption = %StkVar1 Then + loc_00833711: If Me.Caption = %StkVar1 = 0 Then + loc_00833720: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833722: var_eax = Err.Raise + loc_00833728: End If + loc_0083372E: GoTo loc_00833736 + loc_00833730: End If + loc_00833730: End If + loc_00833730: var_eax = Err.Raise + loc_00833736: 'Referenced from: 0083372E + loc_00833749: If Me.Caption = %StkVar1 Then + loc_0083374F: If Me.Caption = %StkVar1 = 0 Then + loc_0083375E: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833760: var_eax = Err.Raise + loc_00833766: End If + loc_0083376C: GoTo loc_00833774 + loc_0083376E: End If + loc_0083376E: End If + loc_0083376E: var_eax = Err.Raise + loc_00833774: 'Referenced from: 0083376C + loc_00833776: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_00833791: If Me.Caption = %StkVar1 Then + loc_00833797: If Me.Caption = %StkVar1 = 0 Then + loc_008337A6: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008337A8: var_eax = Err.Raise + loc_008337AE: End If + loc_008337B4: GoTo loc_008337BC + loc_008337B6: End If + loc_008337B6: End If + loc_008337B6: var_eax = Err.Raise + loc_008337BC: 'Referenced from: 008337B4 + loc_008337CE: If Me.Caption = %StkVar1 Then + loc_008337D4: If Me.Caption = %StkVar1 = 0 Then + loc_008337E3: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008337E5: var_eax = Err.Raise + loc_008337EB: End If + loc_008337F1: GoTo loc_008337F9 + loc_008337F3: End If + loc_008337F3: End If + loc_008337F3: var_eax = Err.Raise + loc_008337F9: 'Referenced from: 008337F1 + loc_0083380C: If Me.Caption = %StkVar1 Then + loc_00833812: If Me.Caption = %StkVar1 = 0 Then + loc_00833821: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833823: var_eax = Err.Raise + loc_00833829: End If + loc_0083382F: GoTo loc_00833837 + loc_00833831: End If + loc_00833831: End If + loc_00833831: var_eax = Err.Raise + loc_00833837: 'Referenced from: 0083382F + loc_00833839: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_00833852: If Me.Caption = %StkVar1 Then + loc_00833858: If Me.Caption = %StkVar1 = 0 Then + loc_00833867: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833869: var_eax = Err.Raise + loc_0083386F: End If + loc_00833875: GoTo loc_0083387D + loc_00833877: End If + loc_00833877: End If + loc_00833877: var_eax = Err.Raise + loc_0083387D: 'Referenced from: 00833875 + loc_0083388F: If Me.Caption = %StkVar1 Then + loc_00833895: If Me.Caption = %StkVar1 = 0 Then + loc_008338A4: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008338A6: var_eax = Err.Raise + loc_008338AC: End If + loc_008338B2: GoTo loc_008338BA + loc_008338B4: End If + loc_008338B4: End If + loc_008338B4: var_eax = Err.Raise + loc_008338BA: 'Referenced from: 008338B2 + loc_008338CD: If Me.Caption = %StkVar1 Then + loc_008338D3: If Me.Caption = %StkVar1 = 0 Then + loc_008338E2: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008338E4: var_eax = Err.Raise + loc_008338EA: End If + loc_008338F0: GoTo loc_008338F8 + loc_008338F2: End If + loc_008338F2: End If + loc_008338F2: var_eax = Err.Raise + loc_008338F8: 'Referenced from: 008338F0 + loc_008338FA: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_00833913: If Me.Caption = %StkVar1 Then + loc_00833919: If Me.Caption = %StkVar1 = 0 Then + loc_00833928: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_0083392A: var_eax = Err.Raise + loc_00833930: End If + loc_00833936: GoTo loc_0083393E + loc_00833938: End If + loc_00833938: End If + loc_00833938: var_eax = Err.Raise + loc_0083393E: 'Referenced from: 00833936 + loc_00833950: If Me.Caption = %StkVar1 Then + loc_00833956: If Me.Caption = %StkVar1 = 0 Then + loc_00833965: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833967: var_eax = Err.Raise + loc_0083396D: End If + loc_00833973: GoTo loc_0083397B + loc_00833975: End If + loc_00833975: End If + loc_00833975: var_eax = Err.Raise + loc_0083397B: 'Referenced from: 00833973 + loc_0083398E: If Me.Caption = %StkVar1 Then + loc_00833994: If Me.Caption = %StkVar1 = 0 Then + loc_008339A3: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008339A5: var_eax = Err.Raise + loc_008339AB: End If + loc_008339B1: GoTo loc_008339B9 + loc_008339B3: End If + loc_008339B3: End If + loc_008339B3: var_eax = Err.Raise + loc_008339B9: 'Referenced from: 008339B1 + loc_008339BB: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h + loc_008339D4: If Me.Caption = %StkVar1 Then + loc_008339DA: If Me.Caption = %StkVar1 = 0 Then + loc_008339E9: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_008339EB: var_eax = Err.Raise + loc_008339F1: End If + loc_008339F7: GoTo loc_008339FF + loc_008339F9: End If + loc_008339F9: End If + loc_008339F9: var_eax = Err.Raise + loc_008339FF: 'Referenced from: 008339F7 + loc_00833A11: If Me.Caption = %StkVar1 Then + loc_00833A17: If Me.Caption = %StkVar1 = 0 Then + loc_00833A26: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833A28: var_eax = Err.Raise + loc_00833A2E: End If + loc_00833A34: GoTo loc_00833A3C + loc_00833A36: End If + loc_00833A36: End If + loc_00833A36: var_eax = Err.Raise + loc_00833A3C: 'Referenced from: 00833A34 + loc_00833A4F: If Me.Caption = %StkVar1 Then + loc_00833A55: If Me.Caption = %StkVar1 = 0 Then + loc_00833A64: If 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h >= 0 Then + loc_00833A66: var_eax = Err.Raise + loc_00833A6C: End If + loc_00833A72: GoTo loc_00833A7A + loc_00833A74: End If + loc_00833A74: End If + loc_00833A74: var_eax = Err.Raise + loc_00833A7A: 'Referenced from: 00833A72 + loc_00833A7C: 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h = 00000001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h+0001h + 0001h +End Sub + +Public Sub drawdisplay() '833AC0 + Dim Me As Variant + Dim global_00886070 As PictureBox + Dim global_00886072 As PictureBox + Dim var_54 As PictureBox + Dim var_64 As PictureBox + Dim global_401728 As PictureBox + loc_00833B9E: call Proc_9_8_843D00(%x1 = work.Top, work.Left = %x1s, var_54) + loc_00833BBD: If 0088603Ch Then + loc_00833BC7: If 0088603Ch = 1 Then + loc_00833BD5: If 00886044h Then + loc_00833BDB: If 00886044h = 2 Then + loc_00833BEA: 008861A0h = 008861A0h - ecx+0000001Ch + loc_00833BEE: var_7C = global_008861A0 + loc_00833BF1: If 008861A0h >= 0 Then + loc_00833BF3: var_eax = Err.Raise + loc_00833BFF: End If + loc_00833C0C: 008861A2h = 008861A2h - ecx+00000014h + loc_00833C10: If 008861A2h >= 0 Then + loc_00833C12: var_eax = Err.Raise + loc_00833C1E: End If + loc_00833C21: ecx+00000018h = ecx+00000018h * 8937890 + loc_00833C24: ecx+00000018h = ecx+00000018h + var_7C + loc_00833C29: GoTo loc_00833C37 + loc_00833C2B: End If + loc_00833C2B: End If + loc_00833C2B: var_eax = Err.Raise + loc_00833C37: 'Referenced from: 00833C29 + loc_00833C49: ecx+eax = ecx+eax - eax+00000014h + loc_00833C4D: If ecx+eax >= 0 Then + loc_00833C4F: var_eax = Err.Raise + loc_00833C55: End If + loc_00833C5C: edi*8 = edi*8 - ecx+eax + loc_00833C61: GoTo loc_00833C69 + loc_00833C63: End If + loc_00833C63: End If + loc_00833C63: var_eax = Err.Raise + loc_00833C69: 'Referenced from: 00833C61 + loc_00833C83: If (ecx+eax = "Not available.") = 0 Then + loc_00833C8D: If global_886010 = 1 Then + loc_00833C96: End If + loc_00833C96: End If + loc_00833C9A: If var_20 = 0 Then + loc_00833CAB: var_90 = %x1 = work.Picture + loc_00833CB2: + loc_00833CBD: If var_24 <= %x1 = work.Picture Then + loc_00833CC8: If work.BackColor = %StkVar1 Then + loc_00833CCE: If work.BackColor = %StkVar1 = 0 Then + loc_00833CDA: var_24 = var_24 - eax+00000014h + loc_00833CDE: If var_24 >= 0 Then + loc_00833CE0: var_eax = Err.Raise + loc_00833CE6: End If + loc_00833CEC: var_B4 = var_24(-3) + loc_00833CF2: GoTo loc_00833D00 + loc_00833CF4: End If + loc_00833CF4: End If + loc_00833CF4: var_eax = Err.Raise + loc_00833CFA: var_B4 = Err.Raise + loc_00833D00: 'Referenced from: 00833CF2 + loc_00833D05: If %x1 = work.Index Then + loc_00833D0B: If %x1 = work.Index = 0 Then + loc_00833D17: var_24 = var_24 - eax+00000014h + loc_00833D1B: If var_24 >= 0 Then + loc_00833D1D: var_eax = Err.Raise + loc_00833D23: End If + loc_00833D29: GoTo loc_00833D33 + loc_00833D2B: End If + loc_00833D2B: End If + loc_00833D2B: var_eax = Err.Raise + loc_00833D33: 'Referenced from: 00833D29 + loc_00833D5D: var_74 = Sin(6.37066138261923E-314#) + loc_00833D62: If work.BackColor = %StkVar1 Then + loc_00833D68: If work.BackColor = %StkVar1 = 0 Then + loc_00833D74: var_24 = var_24 - eax+00000014h + loc_00833D78: If var_24 >= 0 Then + loc_00833D7A: var_eax = Err.Raise + loc_00833D80: End If + loc_00833D86: var_B8 = var_24(-3) + loc_00833D8C: GoTo loc_00833D9A + loc_00833D8E: End If + loc_00833D8E: End If + loc_00833D8E: var_eax = Err.Raise + loc_00833D94: var_B8 = Err.Raise + loc_00833D9A: 'Referenced from: 00833D8C + loc_00833D9F: If work.BackColor = %StkVar1 Then + loc_00833DA5: If work.BackColor = %StkVar1 = 0 Then + loc_00833DB1: var_24 = var_24 - eax+00000014h + loc_00833DB5: If var_24 >= 0 Then + loc_00833DB7: var_eax = Err.Raise + loc_00833DBD: End If + loc_00833DC3: var_BC = var_24(-3) + loc_00833DC9: GoTo loc_00833DD7 + loc_00833DCB: End If + loc_00833DCB: End If + loc_00833DCB: var_eax = Err.Raise + loc_00833DD1: var_BC = Err.Raise + loc_00833DD7: 'Referenced from: 00833DC9 + loc_00833DDC: If %x1 = work.Index Then + loc_00833DE2: If %x1 = work.Index = 0 Then + loc_00833DEE: var_24 = var_24 - eax+00000014h + loc_00833DF2: If var_24 >= 0 Then + loc_00833DF4: var_eax = Err.Raise + loc_00833DFA: End If + loc_00833E00: GoTo loc_00833E0A + loc_00833E02: End If + loc_00833E02: End If + loc_00833E02: var_eax = Err.Raise + loc_00833E0A: 'Referenced from: 00833E00 + loc_00833E3E: var_C0 = ((&H0000000300905A4D&H * var_74) - [edi+edx+00000004h])) + loc_00833E6A: var_74 = Cos(6.37066138261923E-314#) + loc_00833E6F: If work.BackColor = %StkVar1 Then + loc_00833E75: If work.BackColor = %StkVar1 = 0 Then + loc_00833E83: var_24 = var_24 - eax+00000014h + loc_00833E87: If var_24 >= 0 Then + loc_00833E89: var_eax = Err.Raise + loc_00833E8F: End If + loc_00833E95: var_C4 = var_24(-3) + loc_00833E9B: GoTo loc_00833EAC + loc_00833E9D: End If + loc_00833E9D: End If + loc_00833E9D: var_eax = Err.Raise + loc_00833EA6: var_C4 = Err.Raise + loc_00833EAC: 'Referenced from: 00833E9B + loc_00833EB1: If work.BackColor = %StkVar1 Then + loc_00833EB7: If work.BackColor = %StkVar1 = 0 Then + loc_00833EC2: var_24 = var_24 - eax+00000014h + loc_00833EC6: If var_24 >= 0 Then + loc_00833EC8: var_eax = Err.Raise + loc_00833ECE: End If + loc_00833ED4: var_C8 = var_24(-3) + loc_00833EDA: GoTo loc_00833EE8 + loc_00833EDC: End If + loc_00833EDC: End If + loc_00833EDC: var_eax = Err.Raise + loc_00833EE2: var_C8 = Err.Raise + loc_00833EE8: 'Referenced from: 00833EDA + loc_00833EED: If %x1 = work.Index Then + loc_00833EF3: If %x1 = work.Index = 0 Then + loc_00833EFE: var_24 = var_24 - eax+00000014h + loc_00833F02: If var_24 >= 0 Then + loc_00833F04: var_eax = Err.Raise + loc_00833F0A: End If + loc_00833F10: GoTo loc_00833F1A + loc_00833F12: End If + loc_00833F12: End If + loc_00833F12: var_eax = Err.Raise + loc_00833F1A: 'Referenced from: 00833F10 + loc_00833F4E: var_CC = ((&H0000000300905A4D&H * var_74) + [edi+ecx+00000004h])) + loc_00833F7A: var_74 = Sin(6.37066138261923E-314#) + loc_00833F7F: If %x1 = work.Index Then + loc_00833F85: If %x1 = work.Index = 0 Then + loc_00833F93: var_24 = var_24 - eax+00000014h + loc_00833F97: If var_24 >= 0 Then + loc_00833F99: var_eax = Err.Raise + loc_00833F9F: End If + loc_00833FA5: var_D0 = var_24(-3) + loc_00833FAB: GoTo loc_00833FBC + loc_00833FAD: End If + loc_00833FAD: End If + loc_00833FAD: var_eax = Err.Raise + loc_00833FB6: var_D0 = Err.Raise + loc_00833FBC: 'Referenced from: 00833FAB + loc_00833FC1: If %x1 = work.Index Then + loc_00833FC7: If %x1 = work.Index = 0 Then + loc_00833FD2: var_24 = var_24 - eax+00000014h + loc_00833FD6: If var_24 >= 0 Then + loc_00833FD8: var_eax = Err.Raise + loc_00833FDE: End If + loc_00833FE4: var_D4 = var_24(-3) + loc_00833FEA: GoTo loc_00833FF8 + loc_00833FEC: End If + loc_00833FEC: End If + loc_00833FEC: var_eax = Err.Raise + loc_00833FF2: var_D4 = Err.Raise + loc_00833FF8: 'Referenced from: 00833FEA + loc_00833FFD: If %x1 = work.Index Then + loc_00834003: If %x1 = work.Index = 0 Then + loc_0083400E: var_24 = var_24 - eax+00000014h + loc_00834012: If var_24 >= 0 Then + loc_00834014: var_eax = Err.Raise + loc_0083401A: End If + loc_00834020: GoTo loc_0083402A + loc_00834022: End If + loc_00834022: End If + loc_00834022: var_eax = Err.Raise + loc_0083402A: 'Referenced from: 00834020 + loc_00834076: var_74 = Cos(6.37066138261923E-314#) + loc_0083407B: If %x1 = work.Index Then + loc_00834081: If %x1 = work.Index = 0 Then + loc_0083408F: var_24 = var_24 - eax+00000014h + loc_00834093: If var_24 >= 0 Then + loc_00834095: var_eax = Err.Raise + loc_0083409B: End If + loc_008340A1: var_D8 = var_24(-3) + loc_008340A7: GoTo loc_008340B8 + loc_008340A9: End If + loc_008340A9: End If + loc_008340A9: var_eax = Err.Raise + loc_008340B2: var_D8 = Err.Raise + loc_008340B8: 'Referenced from: 008340A7 + loc_008340BD: If %x1 = work.Index Then + loc_008340C3: If %x1 = work.Index = 0 Then + loc_008340CE: var_24 = var_24 - eax+00000014h + loc_008340D2: If var_24 >= 0 Then + loc_008340D4: var_eax = Err.Raise + loc_008340DA: End If + loc_008340E0: var_DC = var_24(-3) + loc_008340E6: GoTo loc_008340F4 + loc_008340E8: End If + loc_008340E8: End If + loc_008340E8: var_eax = Err.Raise + loc_008340EE: var_DC = Err.Raise + loc_008340F4: 'Referenced from: 008340E6 + loc_008340F9: If %x1 = work.Index Then + loc_008340FF: If %x1 = work.Index = 0 Then + loc_0083410A: var_24 = var_24 - eax+00000014h + loc_0083410E: If var_24 >= 0 Then + loc_00834110: var_eax = Err.Raise + loc_00834116: End If + loc_0083411C: GoTo loc_00834126 + loc_0083411E: End If + loc_0083411E: End If + loc_0083411E: var_eax = Err.Raise + loc_00834126: 'Referenced from: 0083411C + loc_00834166: If %x1 = work.Index Then + loc_0083416C: If %x1 = work.Index = 0 Then + loc_00834178: var_24 = var_24 - eax+00000014h + loc_0083417C: If var_24 >= 0 Then + loc_0083417E: var_eax = Err.Raise + loc_00834184: End If + loc_0083418A: GoTo loc_00834194 + loc_0083418C: End If + loc_0083418C: End If + loc_0083418C: var_eax = Err.Raise + loc_00834194: 'Referenced from: 0083418A + loc_00834199: If %x1 = work.Index Then + loc_0083419F: If %x1 = work.Index = 0 Then + loc_008341AB: var_24 = var_24 - eax+00000014h + loc_008341AF: If var_24 >= 0 Then + loc_008341B1: var_eax = Err.Raise + loc_008341B7: End If + loc_008341BD: GoTo loc_008341C7 + loc_008341BF: End If + loc_008341BF: End If + loc_008341BF: var_eax = Err.Raise + loc_008341C7: 'Referenced from: 008341BD + loc_008341E7: var_74 = Sin(6.37066138261923E-314#) + loc_008341EC: If %x1 = work.Index Then + loc_008341F2: If %x1 = work.Index = 0 Then + loc_00834200: var_24 = var_24 - eax+00000014h + loc_00834204: If var_24 >= 0 Then + loc_00834206: var_eax = Err.Raise + loc_0083420C: End If + loc_00834212: var_E0 = var_24(-3) + loc_00834218: GoTo loc_00834229 + loc_0083421A: End If + loc_0083421A: End If + loc_0083421A: var_eax = Err.Raise + loc_00834223: var_E0 = Err.Raise + loc_00834229: 'Referenced from: 00834218 + loc_0083422E: If %x1 = work.Index Then + loc_00834234: If %x1 = work.Index = 0 Then + loc_0083423F: var_24 = var_24 - eax+00000014h + loc_00834243: If var_24 >= 0 Then + loc_00834245: var_eax = Err.Raise + loc_0083424B: End If + loc_00834251: var_E4 = var_24(-3) + loc_00834257: GoTo loc_00834265 + loc_00834259: End If + loc_00834259: End If + loc_00834259: var_eax = Err.Raise + loc_0083425F: var_E4 = Err.Raise + loc_00834265: 'Referenced from: 00834257 + loc_0083426A: If %x1 = work.Index Then + loc_00834270: If %x1 = work.Index = 0 Then + loc_0083427B: var_24 = var_24 - eax+00000014h + loc_0083427F: If var_24 >= 0 Then + loc_00834281: var_eax = Err.Raise + loc_00834287: End If + loc_0083428D: GoTo loc_00834297 + loc_0083428F: End If + loc_0083428F: End If + loc_0083428F: var_eax = Err.Raise + loc_00834297: 'Referenced from: 0083428D + loc_008342D6: If %x1 = work.Index Then + loc_008342DC: If %x1 = work.Index = 0 Then + loc_008342E8: var_24 = var_24 - eax+00000014h + loc_008342EC: If var_24 >= 0 Then + loc_008342EE: var_eax = Err.Raise + loc_008342F4: End If + loc_008342FA: GoTo loc_00834304 + loc_008342FC: End If + loc_008342FC: End If + loc_008342FC: var_eax = Err.Raise + loc_00834304: 'Referenced from: 008342FA + loc_00834309: If %x1 = work.Index Then + loc_0083430F: If %x1 = work.Index = 0 Then + loc_0083431B: var_24 = var_24 - eax+00000014h + loc_0083431F: If var_24 >= 0 Then + loc_00834321: var_eax = Err.Raise + loc_00834327: End If + loc_0083432D: GoTo loc_00834337 + loc_0083432F: End If + loc_0083432F: End If + loc_0083432F: var_eax = Err.Raise + loc_00834337: 'Referenced from: 0083432D + loc_00834357: var_74 = Cos(6.37066138261923E-314#) + loc_0083435C: If %x1 = work.Index Then + loc_00834362: If %x1 = work.Index = 0 Then + loc_00834370: var_24 = var_24 - eax+00000014h + loc_00834374: If var_24 >= 0 Then + loc_00834376: var_eax = Err.Raise + loc_0083437C: End If + loc_00834382: var_E8 = var_24(-3) + loc_00834388: GoTo loc_00834399 + loc_0083438A: End If + loc_0083438A: End If + loc_0083438A: var_eax = Err.Raise + loc_00834393: var_E8 = Err.Raise + loc_00834399: 'Referenced from: 00834388 + loc_0083439E: If %x1 = work.Index Then + loc_008343A4: If %x1 = work.Index = 0 Then + loc_008343AF: var_24 = var_24 - eax+00000014h + loc_008343B3: If var_24 >= 0 Then + loc_008343B5: var_eax = Err.Raise + loc_008343BB: End If + loc_008343C1: var_EC = var_24(-3) + loc_008343C7: GoTo loc_008343D5 + loc_008343C9: End If + loc_008343C9: End If + loc_008343C9: var_eax = Err.Raise + loc_008343CF: var_EC = Err.Raise + loc_008343D5: 'Referenced from: 008343C7 + loc_008343DA: If %x1 = work.Index Then + loc_008343E0: If %x1 = work.Index = 0 Then + loc_008343EB: var_24 = var_24 - eax+00000014h + loc_008343EF: If var_24 >= 0 Then + loc_008343F1: var_eax = Err.Raise + loc_008343F7: End If + loc_008343FD: GoTo loc_00834407 + loc_008343FF: End If + loc_008343FF: End If + loc_008343FF: var_eax = Err.Raise + loc_00834407: 'Referenced from: 008343FD + loc_00834447: 00000001h = 00000001h + var_24 + loc_00834451: var_24 = 00000001h+var_24 + loc_00834456: GoTo loc_00833CB2 + loc_0083445B: End If + loc_00834468: var_F0 = %x1 = work.Picture + loc_0083446E: %x1 = work.Picture = %x1 = work.Picture - 0007h + loc_00834478: var_24 = %x1 = work.Picture + loc_0083447B: + loc_00834481: If var_24 <= 0 Then + loc_0083448A: var_24 = var_24 - esi+00000060h + loc_00834494: var_24 = var_24 + 0008h + loc_008344A1: eax = var_24+0008h - 1 + loc_008344A5: If var_24+0008h - 1 <= 0 Then + loc_008344A7: GoTo loc_[eax*4+00835634h] + loc_008344B1: var_24 = var_24 + 0001h + loc_008344B5: GoTo loc_008344D9 + loc_008344BA: var_24 = var_24 + 0002h + loc_008344BE: GoTo loc_008344D9 + loc_008344C3: var_24 = var_24 - 0002h + loc_008344C7: GoTo loc_008344D9 + loc_008344CC: var_24 = var_24 - 0001h + loc_008344D0: GoTo loc_008344D9 + loc_008344D5: var_24 = var_24 - 0004h + loc_008344DF: var_28 = var_24 + loc_008344E2: End If + loc_008344E7: If %x1 = work.Index Then + loc_008344ED: If %x1 = work.Index = 0 Then + loc_008344F8: var_24 = var_24 - eax+00000014h + loc_008344FC: If var_24 >= 0 Then + loc_008344FE: var_eax = Err.Raise + loc_00834504: End If + loc_0083450A: GoTo loc_00834514 + loc_0083450C: End If + loc_0083450C: End If + loc_0083450C: var_eax = Err.Raise + loc_00834514: 'Referenced from: 0083450A + loc_00834550: If %x1 = work.Index Then + loc_00834556: If %x1 = work.Index = 0 Then + loc_00834562: var_24 = var_24 - eax+00000014h + loc_00834566: If var_24 >= 0 Then + loc_00834568: var_eax = Err.Raise + loc_0083456A: End If + loc_00834570: GoTo loc_0083457A + loc_00834572: End If + loc_00834572: End If + loc_00834572: var_eax = Err.Raise + loc_0083457A: 'Referenced from: 00834570 + loc_0083457F: If %x1 = work.Index Then + loc_00834585: If %x1 = work.Index = 0 Then + loc_00834591: var_24 = var_24 - eax+00000014h + loc_00834595: If var_24 >= 0 Then + loc_00834597: var_eax = Err.Raise + loc_0083459D: End If + loc_008345A3: GoTo loc_008345AD + loc_008345A5: End If + loc_008345A5: End If + loc_008345A5: var_eax = Err.Raise + loc_008345AD: 'Referenced from: 008345A3 + loc_008345CD: If global_886000 = 0 Then + loc_008345D1: GoTo loc_008345DC + loc_008345D3: End If + loc_008345D6: call _adj_fdiv_r(Err.Raise) + loc_008345DC: 'Referenced from: 008345D1 + loc_008345DC: var_40 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_008345EB: If %x1 = work.Index Then + loc_008345F1: If %x1 = work.Index = 0 Then + loc_008345FD: var_24 = var_24 - ecx+00000014h + loc_00834601: If var_24 >= 0 Then + loc_00834603: var_eax = Err.Raise + loc_00834609: End If + loc_0083460F: GoTo loc_00834619 + loc_00834611: End If + loc_00834611: End If + loc_00834611: var_eax = Err.Raise + loc_00834619: 'Referenced from: 0083460F + loc_0083461E: If %x1 = work.Index Then + loc_00834624: If %x1 = work.Index = 0 Then + loc_00834630: var_24 = var_24 - eax+00000014h + loc_00834634: If var_24 >= 0 Then + loc_00834636: var_eax = Err.Raise + loc_0083463C: End If + loc_00834642: GoTo loc_0083464C + loc_00834644: End If + loc_00834644: End If + loc_00834644: var_eax = Err.Raise + loc_0083464C: 'Referenced from: 00834642 + loc_00834673: If global_886000 = 0 Then + loc_00834677: GoTo loc_00834682 + loc_00834679: End If + loc_0083467C: call _adj_fdiv_r(Err.Raise) + loc_00834682: 'Referenced from: 00834677 + loc_00834682: var_50 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_0083468F: End If + loc_00834694: If %x1 = work.Index Then + loc_0083469A: If %x1 = work.Index = 0 Then + loc_008346A6: var_28 = var_28 - eax+00000014h + loc_008346AA: If var_28 >= 0 Then + loc_008346AC: var_eax = Err.Raise + loc_008346AE: End If + loc_008346B4: GoTo loc_008346BA + loc_008346B6: End If + loc_008346B6: End If + loc_008346B6: var_eax = Err.Raise + loc_008346BA: 'Referenced from: 008346B4 + loc_008346F0: If %x1 = work.Index Then + loc_008346F6: If %x1 = work.Index = 0 Then + loc_00834702: var_28 = var_28 - eax+00000014h + loc_00834706: If var_28 >= 0 Then + loc_00834708: var_eax = Err.Raise + loc_0083470A: End If + loc_00834710: GoTo loc_0083471A + loc_00834712: End If + loc_00834712: End If + loc_00834712: var_eax = Err.Raise + loc_0083471A: 'Referenced from: 00834710 + loc_0083471F: If %x1 = work.Index Then + loc_00834725: If %x1 = work.Index = 0 Then + loc_00834731: var_28 = var_28 - eax+00000014h + loc_00834735: If var_28 >= 0 Then + loc_00834737: var_eax = Err.Raise + loc_0083473D: End If + loc_00834743: GoTo loc_0083474D + loc_00834745: End If + loc_00834745: End If + loc_00834745: var_eax = Err.Raise + loc_0083474D: 'Referenced from: 00834743 + loc_0083476D: If global_886000 = 0 Then + loc_00834771: GoTo loc_0083477C + loc_00834773: End If + loc_00834776: call _adj_fdiv_r(Err.Raise) + loc_0083477C: 'Referenced from: 00834771 + loc_0083477C: var_48 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_0083478B: If %x1 = work.Index Then + loc_00834791: If %x1 = work.Index = 0 Then + loc_0083479D: var_28 = var_28 - ecx+00000014h + loc_008347A1: If var_28 >= 0 Then + loc_008347A3: var_eax = Err.Raise + loc_008347A9: End If + loc_008347AF: GoTo loc_008347B9 + loc_008347B1: End If + loc_008347B1: End If + loc_008347B1: var_eax = Err.Raise + loc_008347B9: 'Referenced from: 008347AF + loc_008347BE: If %x1 = work.Index Then + loc_008347C4: If %x1 = work.Index = 0 Then + loc_008347D0: var_28 = var_28 - eax+00000014h + loc_008347D4: If var_28 >= 0 Then + loc_008347D6: var_eax = Err.Raise + loc_008347DC: End If + loc_008347E2: GoTo loc_008347EC + loc_008347E4: End If + loc_008347E4: End If + loc_008347E4: var_eax = Err.Raise + loc_008347EC: 'Referenced from: 008347E2 + loc_00834813: If global_886000 = 0 Then + loc_00834817: GoTo loc_00834822 + loc_00834819: End If + loc_0083481C: call _adj_fdiv_r(Err.Raise) + loc_00834822: 'Referenced from: 00834817 + loc_00834822: var_1C = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_0083482F: End If + loc_0083484E: If %x1 = work.Index Then + loc_00834854: If %x1 = work.Index = 0 Then + loc_00834860: var_28 = var_28 - eax+00000014h + loc_00834864: If var_28 >= 0 Then + loc_00834866: var_eax = Err.Raise + loc_00834868: End If + loc_0083486E: GoTo loc_00834878 + loc_00834870: End If + loc_00834870: End If + loc_00834870: var_eax = Err.Raise + loc_00834878: 'Referenced from: 0083486E + loc_0083487D: If %x1 = work.Index Then + loc_00834883: If %x1 = work.Index = 0 Then + loc_0083488F: var_24 = var_24 - eax+00000014h + loc_00834893: If var_24 >= 0 Then + loc_00834895: var_eax = Err.Raise + loc_0083489B: End If + loc_008348A1: GoTo loc_008348AB + loc_008348A3: End If + loc_008348A3: End If + loc_008348A3: var_eax = Err.Raise + loc_008348AB: 'Referenced from: 008348A1 + loc_008348E0: var_eax = PictureBox.1844 + loc_00834909: work.ForeColor = var_64 + loc_00834951: var_F8 = var_1C + loc_00834977: var_FC = (var_48 + global_401778) + loc_00834993: var_100 = var_50 + loc_008349B7: var_104 = (var_40 + global_401778) + loc_008349C9: var_eax = work.Line (var_104, var_100)-(var_FC, var_F8), 0 + loc_008349F7: 00000001h = 00000001h + var_24 + loc_00834A01: var_24 = 00000001h+var_24 + loc_00834A04: GoTo loc_0083447B + loc_00834A09: End If + loc_00834A14: %x1 = work.Picture = %x1 = work.Picture - 0008h + loc_00834A1E: var_A4 = %x1 = work.Picture + loc_00834A28: If var_24 <= 0 Then + loc_00834A37: var_24 = var_24 + 0001h + loc_00834A43: var_28 = var_24+0001h + loc_00834A46: If %x1 = work.Index Then + loc_00834A4C: If %x1 = work.Index = 0 Then + loc_00834A57: var_24 = var_24 - eax+00000014h + loc_00834A5B: If var_24 >= 0 Then + loc_00834A5D: var_eax = Err.Raise + loc_00834A63: End If + loc_00834A69: GoTo loc_00834A73 + loc_00834A6B: End If + loc_00834A6B: End If + loc_00834A6B: var_eax = Err.Raise + loc_00834A73: 'Referenced from: 00834A69 + loc_00834AA9: If %x1 = work.Index Then + loc_00834AAF: If %x1 = work.Index = 0 Then + loc_00834ABB: var_24 = var_24 - eax+00000014h + loc_00834ABF: If var_24 >= 0 Then + loc_00834AC1: var_eax = Err.Raise + loc_00834AC7: End If + loc_00834ACD: GoTo loc_00834AD7 + loc_00834ACF: End If + loc_00834ACF: End If + loc_00834ACF: var_eax = Err.Raise + loc_00834AD7: 'Referenced from: 00834ACD + loc_00834ADC: If %x1 = work.Index Then + loc_00834AE2: If %x1 = work.Index = 0 Then + loc_00834AEE: var_24 = var_24 - eax+00000014h + loc_00834AF2: If var_24 >= 0 Then + loc_00834AF4: var_eax = Err.Raise + loc_00834AFA: End If + loc_00834B00: GoTo loc_00834B0A + loc_00834B02: End If + loc_00834B02: End If + loc_00834B02: var_eax = Err.Raise + loc_00834B0A: 'Referenced from: 00834B00 + loc_00834B2A: If global_886000 = 0 Then + loc_00834B2E: GoTo loc_00834B39 + loc_00834B30: End If + loc_00834B33: call _adj_fdiv_r(Err.Raise) + loc_00834B39: 'Referenced from: 00834B2E + loc_00834B39: var_40 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_00834B48: If %x1 = work.Index Then + loc_00834B4E: If %x1 = work.Index = 0 Then + loc_00834B5A: var_24 = var_24 - ecx+00000014h + loc_00834B5E: If var_24 >= 0 Then + loc_00834B60: var_eax = Err.Raise + loc_00834B66: End If + loc_00834B6C: GoTo loc_00834B76 + loc_00834B6E: End If + loc_00834B6E: End If + loc_00834B6E: var_eax = Err.Raise + loc_00834B76: 'Referenced from: 00834B6C + loc_00834B7B: If %x1 = work.Index Then + loc_00834B81: If %x1 = work.Index = 0 Then + loc_00834B8D: var_24 = var_24 - eax+00000014h + loc_00834B91: If var_24 >= 0 Then + loc_00834B93: var_eax = Err.Raise + loc_00834B99: End If + loc_00834B9F: GoTo loc_00834BA9 + loc_00834BA1: End If + loc_00834BA1: End If + loc_00834BA1: var_eax = Err.Raise + loc_00834BA9: 'Referenced from: 00834B9F + loc_00834BCD: If global_886000 = 0 Then + loc_00834BD1: GoTo loc_00834BDC + loc_00834BD3: End If + loc_00834BD6: call _adj_fdiv_r(Err.Raise) + loc_00834BDC: 'Referenced from: 00834BD1 + loc_00834BDC: var_50 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_00834BE9: End If + loc_00834BEE: If %x1 = work.Index Then + loc_00834BF4: If %x1 = work.Index = 0 Then + loc_00834BFF: var_28 = var_28 - eax+00000014h + loc_00834C03: If var_28 >= 0 Then + loc_00834C05: var_eax = Err.Raise + loc_00834C0B: End If + loc_00834C11: GoTo loc_00834C1B + loc_00834C13: End If + loc_00834C13: End If + loc_00834C13: var_eax = Err.Raise + loc_00834C1B: 'Referenced from: 00834C11 + loc_00834C51: If %x1 = work.Index Then + loc_00834C57: If %x1 = work.Index = 0 Then + loc_00834C62: var_28 = var_28 - eax+00000014h + loc_00834C66: If var_28 >= 0 Then + loc_00834C68: var_eax = Err.Raise + loc_00834C6E: End If + loc_00834C74: GoTo loc_00834C7E + loc_00834C76: End If + loc_00834C76: End If + loc_00834C76: var_eax = Err.Raise + loc_00834C7E: 'Referenced from: 00834C74 + loc_00834C83: If %x1 = work.Index Then + loc_00834C89: If %x1 = work.Index = 0 Then + loc_00834C95: var_28 = var_28 - eax+00000014h + loc_00834C99: If var_28 >= 0 Then + loc_00834C9B: var_eax = Err.Raise + loc_00834CA1: End If + loc_00834CA7: GoTo loc_00834CB1 + loc_00834CA9: End If + loc_00834CA9: End If + loc_00834CA9: var_eax = Err.Raise + loc_00834CB1: 'Referenced from: 00834CA7 + loc_00834CD1: If global_886000 = 0 Then + loc_00834CD5: GoTo loc_00834CE0 + loc_00834CD7: End If + loc_00834CDA: call _adj_fdiv_r(Err.Raise) + loc_00834CE0: 'Referenced from: 00834CD5 + loc_00834CE0: var_48 = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_00834CEF: If %x1 = work.Index Then + loc_00834CF5: If %x1 = work.Index = 0 Then + loc_00834D01: var_28 = var_28 - ecx+00000014h + loc_00834D05: If var_28 >= 0 Then + loc_00834D07: var_eax = Err.Raise + loc_00834D0D: End If + loc_00834D13: GoTo loc_00834D1D + loc_00834D15: End If + loc_00834D15: End If + loc_00834D15: var_eax = Err.Raise + loc_00834D1D: 'Referenced from: 00834D13 + loc_00834D22: If %x1 = work.Index Then + loc_00834D28: If %x1 = work.Index = 0 Then + loc_00834D34: var_28 = var_28 - eax+00000014h + loc_00834D38: If var_28 >= 0 Then + loc_00834D3A: var_eax = Err.Raise + loc_00834D40: End If + loc_00834D46: GoTo loc_00834D50 + loc_00834D48: End If + loc_00834D48: End If + loc_00834D48: var_eax = Err.Raise + loc_00834D50: 'Referenced from: 00834D46 + loc_00834D74: If global_886000 = 0 Then + loc_00834D78: GoTo loc_00834D83 + loc_00834D7A: End If + loc_00834D7D: call _adj_fdiv_r(Err.Raise) + loc_00834D83: 'Referenced from: 00834D78 + loc_00834D83: var_1C = ((&H0000000300905A4D&H + global_401788) / global_401780)) + loc_00834D90: End If + loc_00834DAF: If %x1 = work.Index Then + loc_00834DB5: If %x1 = work.Index = 0 Then + loc_00834DC0: var_28 = var_28 - eax+00000014h + loc_00834DC4: If var_28 >= 0 Then + loc_00834DC6: var_eax = Err.Raise + loc_00834DCC: End If + loc_00834DD2: GoTo loc_00834DDC + loc_00834DD4: End If + loc_00834DD4: End If + loc_00834DD4: var_eax = Err.Raise + loc_00834DDC: 'Referenced from: 00834DD2 + loc_00834DE1: If %x1 = work.Index Then + loc_00834DE7: If %x1 = work.Index = 0 Then + loc_00834DF3: var_24 = var_24 - eax+00000014h + loc_00834DF7: If var_24 >= 0 Then + loc_00834DF9: var_eax = Err.Raise + loc_00834DFF: End If + loc_00834E05: GoTo loc_00834E0F + loc_00834E07: End If + loc_00834E07: End If + loc_00834E07: var_eax = Err.Raise + loc_00834E0F: 'Referenced from: 00834E05 + loc_00834E44: var_eax = PictureBox.1844 + loc_00834E6D: work.ForeColor = var_64 + loc_00834EB5: var_10C = var_1C + loc_00834EDB: var_110 = (var_48 + global_401778) + loc_00834EF7: var_114 = var_50 + loc_00834F1B: var_118 = (var_40 + global_401778) + loc_00834F2D: var_eax = work.Line (var_118, var_114)-(var_110, var_10C), 0 + loc_00834F55: 00000002h = 00000002h + var_24 + loc_00834F5F: var_24 = 00000002h+var_24 + loc_00834F68: GoTo loc_00834A24 + loc_00834F6D: End If + loc_00834F73: End If + loc_00834F90: var_64 = work.hDC + loc_00834FDC: call Proc_9_2_843330(var_64, work.Top = %x1s, 0) + loc_00834FEB: If var_20 = 0 Then + loc_00834FF0: var_eax = classicOptions.drawPiecePreviews + loc_0083500C: End If + loc_00835029: var_64 = display.hDC + loc_00835073: call Proc_9_3_843420(display.Top = %x1s, var_64, edi) + loc_00835090: var_11C = (global_8860D4 + [esi+00000070h]) + loc_008350A3: If esi+0000003Ah Then + loc_008350B6: If global_886000 = 0 Then + loc_008350BE: GoTo loc_008350CB + loc_008350C0: End If + loc_008350C6: call _adj_fdiv_m32(global_401770, edi, edi, global_00886070, global_00886072, var_6C, var_54, classicOptions.drawPiecePreviews, Me, 00000000h, 00000000h, global_00886070, global_00886072, var_6C) + loc_008350CB: 'Referenced from: 008350BE + loc_008350E1: var_74 = Sin((Cos(6.37066138261923E-314#) * [edi+edx+00000004h])) + loc_008350F1: If global_886000 = 0 Then + loc_008350F9: GoTo loc_0083510C + loc_008350FB: End If + loc_0083510C: 'Referenced from: 008350F9 + loc_00835126: If global_886000 = 0 Then + loc_0083512E: GoTo loc_0083513B + loc_00835130: End If + loc_00835136: call _adj_fdiv_m32(global_401758, global_401760, global_401764, (var_11C / global_401770)) + loc_0083513B: 'Referenced from: 0083512E + loc_00835151: var_74 = Sin((Cos(6.37066138261923E-314#) * [edi+edx+00000004h])) + loc_00835161: If global_886000 = 0 Then + loc_00835169: GoTo loc_0083517C + loc_0083516B: End If + loc_0083517C: 'Referenced from: 00835169 + loc_008351B4: var_120 = global_401748 + loc_008351CE: If Err.Number Then + loc_008351D3: GoTo loc_008351DE + loc_008351D5: End If + loc_008351DE: End If + loc_008351E5: If 0088603Ch Then + loc_008351EF: If 0088603Ch = 1 Then + loc_008351FD: If 00886044h Then + loc_00835203: If 00886044h = 2 Then + loc_00835212: 008861A0h = 008861A0h - ecx+0000001Ch + loc_0083521C: var_7C = global_008861A0 + loc_0083521F: If 008861A0h >= 0 Then + loc_00835221: var_eax = Err.Raise + loc_00835229: End If + loc_00835236: 008861A2h = 008861A2h - ecx+00000014h + loc_0083523A: If 008861A2h >= 0 Then + loc_0083523C: var_eax = Err.Raise + loc_00835244: End If + loc_00835247: ecx+00000018h = ecx+00000018h * 8937890 + loc_0083524A: ecx+00000018h = ecx+00000018h + var_7C + loc_0083524F: GoTo loc_0083525F + loc_00835251: End If + loc_00835251: End If + loc_00835257: var_eax = Err.Raise + loc_0083525F: 'Referenced from: 0083524F + loc_00835271: ecx+eax = ecx+eax - eax+00000014h + loc_00835275: If ecx+eax >= 0 Then + loc_00835277: var_eax = Err.Raise + loc_00835279: End If + loc_00835280: ebx*8 = ebx*8 - ecx+eax + loc_00835285: GoTo loc_0083528F + loc_00835287: End If + loc_00835287: End If + loc_0083528D: var_eax = Err.Raise + loc_0083528F: 'Referenced from: 00835285 + loc_0083529E: If ecx+eax+0000000Ch Then + loc_008352CC: fabs + loc_008352D8: var_124 = &H0000000300905A4D&H + loc_008352FA: var_12C = display.Left = %x1s + loc_00835324: idiv ecx + loc_0083533A: GoTo loc_008353E0 + loc_0083533F: End If + loc_00835350: var_140 = display.Left = %x1s + loc_00835362: var_13C = global_00886070 + loc_00835375: If global_886000 = 0 Then + loc_0083537D: GoTo loc_00835390 + loc_0083537F: End If + loc_00835390: 'Referenced from: 0083537D + loc_00835396: var_148 = var_140 + loc_008353A9: If global_886000 = 0 Then + loc_008353B1: GoTo loc_008353C4 + loc_008353B3: End If + loc_008353C4: 'Referenced from: 008353B1 + loc_008353C6: fchs + loc_008353C8: var_14C = ((var_148 / global_401728) - global_401728)) + loc_008353E0: 'Referenced from: 0083533A + loc_008353E7: If var_88603C Then + loc_008353F1: If 0088603Ch = 1 Then + loc_008353FF: If var_886044 Then + loc_00835405: If 00886044h = 2 Then + loc_00835414: 008861A0h = 008861A0h - ecx+0000001Ch + loc_00835418: var_7C = global_008861A0 + loc_0083541B: If 008861A0h >= 0 Then + loc_0083541D: var_eax = Err.Raise + loc_00835425: End If + loc_00835432: 008861A2h = 008861A2h - ecx+00000014h + loc_00835436: If 008861A2h >= 0 Then + loc_00835438: var_eax = Err.Raise + loc_00835440: End If + loc_00835443: ecx+00000018h = ecx+00000018h * 8937890 + loc_00835446: ecx+00000018h = ecx+00000018h + var_7C + loc_0083544B: GoTo loc_00835455 + loc_0083544D: End If + loc_0083544D: End If + loc_0083544D: var_eax = Err.Raise + loc_00835455: 'Referenced from: 0083544B + loc_00835467: ecx+eax = ecx+eax - eax+00000014h + loc_0083546B: If ecx+eax >= 0 Then + loc_0083546D: var_eax = Err.Raise + loc_0083546F: End If + loc_00835476: ebx*8 = ebx*8 - ecx+eax + loc_0083547B: GoTo loc_0083547F + loc_0083547D: End If + loc_0083547D: End If + loc_0083547D: var_eax = Err.Raise + loc_0083547F: 'Referenced from: 0083547B + loc_0083548E: If ecx+eax+0000000Eh Then + loc_008354BF: fabs + loc_008354CB: var_150 = &H0000000300905A4D&H + loc_008354ED: var_158 = var_154 + loc_00835518: idiv ecx + loc_0083552F: GoTo loc_008355D6 + loc_00835534: End If + loc_00835557: var_168 = global_00886072 + loc_0083556A: If global_886000 = 0 Then + loc_00835572: GoTo loc_00835585 + loc_00835574: End If + loc_00835585: 'Referenced from: 00835572 + loc_0083558B: var_174 = var_16C + loc_0083559E: If global_886000 = 0 Then + loc_008355A6: GoTo loc_008355B9 + loc_008355A8: End If + loc_008355B9: 'Referenced from: 008355A6 + loc_008355BB: fchs + loc_008355BD: var_178 = ((var_174 / global_401728) - global_401728)) + loc_008355D6: 'Referenced from: 0083552F + loc_008355D9: var_eax = classicOptions.updatePiecePreviews + loc_008355FB: GoTo loc_00835611 + loc_00835610: Exit Sub + loc_00835611: 'Referenced from: 008355FB + loc_00835611: Exit Sub +End Sub + +Public Sub drawDefaultPic(X) '835A00 + loc_00835A64: X = picAnim._Default + loc_00835A9F: var_eax = classicOptions.drawFrame(var_20, var_24) + loc_00835AD3: GoTo loc_00835AED + loc_00835AEC: Exit Sub + loc_00835AED: 'Referenced from: 00835AD3 +End Sub + +Public Sub drawFrame(pic, frame) '835B10 + Dim Me As Me + loc_00835B6B: var_18 = Me.Visible + loc_00835B92: var_3C = var_18 + loc_00835BAB: If (var_3C = "left") Then + loc_00835BBE: If (var_3C = "lefta") Then + loc_00835BD1: If (var_3C = "right") Then + loc_00835BE4: If (var_3C = "righta") Then + loc_00835BF7: If (var_3C = "back") Then + loc_00835C0A: If (var_3C = "backa") Then + loc_00835C1D: If (var_3C = "play") Then + loc_00835C2C: If (var_3C <> "playa") <> 0 Then GoTo loc_00835F6A + loc_00835C32: End If + loc_00835C53: var_eax = Unknown_VTable_Call[ecx+00000330h] + loc_00835CB9: frame = frame - 0001h + loc_00835CC7: frame = frame * 0019h + loc_00835CCB: GoTo loc_00835F28 + loc_00835CD0: End If + loc_00835CD0: End If + loc_00835CF1: var_eax = Unknown_VTable_Call[ecx+00000334h] + loc_00835D6C: frame = frame - 0001h + loc_00835D78: frame = frame * 0019h + loc_00835D91: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_00835DB5: GoTo loc_00835F5F + loc_00835DBA: End If + loc_00835DBA: End If + loc_00835DDB: var_eax = Unknown_VTable_Call[edx+00000338h] + loc_00835E41: frame = frame - 0001h + loc_00835E4D: frame = frame * 000Ah + loc_00835E66: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_00835E8A: GoTo loc_00835F5F + loc_00835E8F: End If + loc_00835E8F: End If + loc_00835EB0: var_eax = Unknown_VTable_Call[ecx+0000033Ch] + loc_00835F16: frame = frame - 0001h + loc_00835F24: frame = frame * 000Ah + loc_00835F3B: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_00835F5F: 'Referenced from: 00835DB5 + loc_00835F6A: + loc_00835F6F: GoTo loc_00835F96 + loc_00835F95: Exit Sub + loc_00835F96: 'Referenced from: 00835F6F + loc_00835F9F: Exit Sub +End Sub + +Public Sub drawAnimations() '835FD0 + Dim Me As Variant + Dim var_2C As PictureBox + Dim var_30 As PictureBox + Dim var_28 As PictureBox + loc_0083606B: If global_886000 = 0 Then + loc_00836070: GoTo loc_0083607A + loc_00836072: End If + loc_00836075: call _adj_fdiv_m32(%x1 = Me.Name) + loc_0083607A: 'Referenced from: 00836070 + loc_0083609A: var_A4 = var_A0 + loc_008360D8: If edi+0000004Eh <= 14 Then + loc_00836100: Me(20) = picAnim._Default + loc_00836120: var_18 = picAnim.Tag + loc_0083615C: Me(20) = picAnim._Default + loc_0083617C: var_1C = picAnim.Tag + loc_008361B8: Me(20) = picAnim._Default + loc_008361D8: var_20 = picAnim.Tag + loc_00836214: Me(20) = picAnim._Default + loc_00836234: var_24 = picAnim.Tag + loc_00836267: esi = (var_24 = "playa") + 1 + loc_0083627D: eax = (var_20 = "backa") + 1 + loc_00836291: eax = (var_1C = "righta") + 1 + loc_008362AC: eax = (var_18 = "lefta") + 1 + loc_008362F4: If (var_18 = "lefta") + 1 Then + loc_0083631C: Me(20) = picAnim._Default + loc_00836350: var_eax = classicOptions.drawFrame(var_30, Me(18)) + loc_0083637B: End If + loc_00836384: Me(20) = Me(20) + 00000001h + loc_00836391: var_eax = Unknown_2B88F(var_30, var_2C, var_2C, var_28) + loc_00836396: End If + loc_00836396: End If + loc_0083639B: If edi+00000046h > 39 Then + loc_008363A3: End If + loc_008363A9: GoTo loc_008363EF + loc_008363EE: Exit Sub + loc_008363EF: 'Referenced from: 008363A9 + loc_008363EF: Exit Sub +End Sub + +Public Sub drawDefaultPics() '836420 + Dim Me As Variant + Dim var_40 As Me + Dim var_20 As PictureBox + loc_00836488: 1 = btnButton._Default + loc_008364B4: var_40 = var_28 + loc_008364D1: var_eax = Unknown_VTable_Call[ecx+0000036Ch] + loc_008364EB: var_20 = buttons.hWnd + loc_00836520: buttons.BackColor = var_2C + loc_0083656E: 2 = btnButton._Default + loc_0083658C: var_40 = var_28 + loc_008365A9: var_eax = Unknown_VTable_Call[edx+00000368h] + loc_008365C3: var_20 = buttons.hWnd + loc_008365F1: var_64 = var_40 + loc_008365FC: buttons.BackColor = var_20 + loc_00836631: + loc_0083663D: If Me(20) <= 14 Then + loc_00836647: var_eax = classicOptions.drawDefaultPic(Me(20)) + loc_00836681: Me(20) = picAnim._Default + loc_008366A1: var_18 = picAnim.Tag + loc_008366D3: edi = (var_18 = "lefta") + 1 + loc_008366F2: If (var_18 = "lefta") + 1 Then + loc_00836716: Me(20) = picAnim._Default + loc_00836737: picAnim.Tag = "left" + loc_00836764: End If + loc_00836786: Me(20) = picAnim._Default + loc_008367A6: var_18 = picAnim.Tag + loc_008367D8: edi = (var_18 = "righta") + 1 + loc_008367F7: If (var_18 = "righta") + 1 Then + loc_0083681B: Me(20) = picAnim._Default + loc_0083683C: picAnim.Tag = "right" + loc_00836869: End If + loc_0083688B: Me(20) = picAnim._Default + loc_008368AB: var_18 = picAnim.Tag + loc_008368DD: edi = (var_18 = "playa") + 1 + loc_008368FC: If (var_18 = "playa") + 1 Then + loc_00836920: Me(20) = picAnim._Default + loc_00836941: picAnim.Tag = "play" + loc_0083696E: End If + loc_00836990: Me(20) = picAnim._Default + loc_008369B0: var_18 = picAnim.Tag + loc_008369E2: edi = (var_18 = "backa") + 1 + loc_00836A01: If (var_18 = "backa") + 1 Then + loc_00836A25: Me(20) = picAnim._Default + loc_00836A46: picAnim.Tag = "back" + loc_00836A73: End If + loc_00836A7C: Me(20) = Me(20) + 00000001h + loc_00836A85: GoTo loc_00836631 + loc_00836A8A: End If + loc_00836A95: GoTo loc_00836AC0 + loc_00836ABF: Exit Sub + loc_00836AC0: 'Referenced from: 00836A95 + loc_00836AC0: Exit Sub +End Sub + +Public Sub displayInfo() '836AF0 + Dim Me As Variant + Dim var_8C As Label + Dim var_80 As Label + loc_00836B2E: eax = Me(14) - 1 + loc_00836B65: If Me(14) - 1 <= 0 Then + loc_00836B6B: GoTo loc_[eax*4+008372B8h] + loc_00836B90: lblGameSize.Caption = "Small" + loc_00836B97: If Me(14) - 1 < 0 Then + loc_00836B9D: GoTo loc_00836C18 + loc_00836BBD: lblGameSize.Caption = "Medium" + loc_00836BC4: If Me(14) - 1 >= 0 Then GoTo loc_00836C27 + loc_00836BC6: GoTo loc_00836C18 + loc_00836BE6: lblGameSize.Caption = "Large" + loc_00836BED: If Me(14) - 1 >= 0 Then GoTo loc_00836C27 + loc_00836BEF: GoTo loc_00836C18 + loc_00836C0F: lblGameSize.Caption = "Custom" + loc_00836C16: If Me(14) - 1 >= 0 Then GoTo loc_00836C27 + loc_00836C18: 'Referenced from: 00836B9D + loc_00836C21: Me(14) - 1 = CheckObj(Me(14) - 1, global_0040E84C, 84) + loc_00836C27: End If + loc_00836C30: End If + loc_00836C35: If edi+00000036h <> 4 Then + loc_00836C70: var_20 = lblGameSize.Caption + loc_00836C9E: If var_18 Then + loc_00836CA4: If var_18 = 1 Then + loc_00836CB4: If Me(14) >= 0 Then + loc_00836CB6: var_eax = Err.Raise + loc_00836CBF: End If + loc_00836CC2: GoTo loc_00836CCD + loc_00836CC4: End If + loc_00836CC4: End If + loc_00836CC4: var_eax = Err.Raise + loc_00836CCD: 'Referenced from: 00836CC2 + loc_00836CDC: var_64 = var_18(5) + loc_00836CF3: var_24 = Str$(var_18(5)) + loc_00836D15: If var_1C Then + loc_00836D1B: If var_1C = 1 Then + loc_00836D31: If Me(14) >= 0 Then + loc_00836D33: var_eax = Err.Raise + loc_00836D42: End If + loc_00836D42: var_8C = var_8C + var_8C + loc_00836D44: GoTo loc_00836D4F + loc_00836D46: End If + loc_00836D46: End If + loc_00836D46: var_eax = Err.Raise + loc_00836D4F: 'Referenced from: 00836D44 + loc_00836D58: var_74 = var_1C(5) + loc_00836DF7: var_44 = var_20 & " (" & Trim$(var_24) & " × " & Trim$(Str$(var_1C(5))) & global_0040F578 + loc_00836E03: lblGameSize.Caption = var_44 + loc_00836E5E: GoTo loc_00836E66 + loc_00836E60: End If + loc_00836E66: 'Referenced from: 00836E5E + loc_00836E84: If var_886034 Then + loc_00836E8A: If 00886034h = 1 Then + loc_00836E96: 008861A0h = 008861A0h - ecx+00000014h + loc_00836E9D: var_80 = global_008861A0 + loc_00836EA0: If 008861A0h >= 0 Then + loc_00836EA2: var_eax = Err.Raise + loc_00836EB1: End If + loc_00836EB8: edx*8 = edx*8 - var_80 + loc_00836EBD: GoTo loc_00836ECB + loc_00836EBF: End If + loc_00836EBF: End If + loc_00836EBF: var_eax = Err.Raise + loc_00836ECB: 'Referenced from: 00836EBD + loc_00836ED5: lblPieceSet.Caption = ecx+eax + loc_00836F13: var_8C = ecx+eax + loc_00836F19: If var_88603C Then + loc_00836F23: If 0088603Ch = 1 Then + loc_00836F31: If var_886044 Then + loc_00836F37: If 00886044h = 2 Then + loc_00836F46: 008861A0h = 008861A0h - ecx+0000001Ch + loc_00836F4A: var_84 = global_008861A0 + loc_00836F50: If 008861A0h >= 0 Then + loc_00836F52: var_eax = Err.Raise + loc_00836F5E: End If + loc_00836F6B: 008861A2h = 008861A2h - ecx+00000014h + loc_00836F6F: If 008861A2h >= 0 Then + loc_00836F71: var_eax = Err.Raise + loc_00836F7D: End If + loc_00836F80: ecx+00000018h = ecx+00000018h * 8937890 + loc_00836F83: ecx+00000018h = ecx+00000018h + var_84 + loc_00836F8B: GoTo loc_00836F99 + loc_00836F8D: End If + loc_00836F8D: End If + loc_00836F8D: var_eax = Err.Raise + loc_00836F99: 'Referenced from: 00836F8B + loc_00836FAB: ecx+eax = ecx+eax - eax+00000014h + loc_00836FAF: If ecx+eax >= 0 Then + loc_00836FB1: var_eax = Err.Raise + loc_00836FB7: End If + loc_00836FBE: ebx*8 = ebx*8 - ecx+eax + loc_00836FC9: GoTo loc_00836FD1 + loc_00836FCB: End If + loc_00836FCB: End If + loc_00836FCB: var_eax = Err.Raise + loc_00836FD1: 'Referenced from: 00836FC9 + loc_00836FE1: lblBackground.Caption = ecx+eax + loc_0083700D: If global_88611C = 0 Then + loc_00837024: var_64 = global_008860E4 + loc_00837034: var_80 = ecx+eax + loc_00837046: var_20 = Str$(global_008860E4) + loc_00837067: var_28 = Trim$(var_20) & " Varieties" + loc_0083706E: lblVarieties.Caption = var_28 + loc_008370A6: GoTo loc_00837155 + loc_008370C6: 008860E4h = 008860E4h - 0001h + loc_008370D7: var_54 = global_008860E4 + loc_0083710D: var_28 = Trim$(Str$(global_008860E4)) & " Varieties" + loc_00837114: lblVarieties.Caption = var_28 + loc_00837155: 'Referenced from: 008370A6 + loc_00837160: If global_88611C Then + loc_0083717F: lblBombs.Caption = "Yes" + loc_00837186: If Me >= 0 Then GoTo loc_008371BF + loc_00837188: GoTo loc_008371B0 + loc_008371A7: lblBombs.Caption = "No" + loc_008371AE: If Me >= 0 Then GoTo loc_008371BF + loc_008371B0: 'Referenced from: 00837188 + loc_008371B9: Me = CheckObj(Me, global_0040E84C, 84) + loc_008371BF: + loc_008371D3: If global_886124 Then + loc_008371EC: lblBalanced.Caption = "Yes" + loc_008371F3: If Me >= 0 Then GoTo loc_00837226 + loc_008371F5: GoTo loc_00837217 + loc_0083720E: lblBalanced.Caption = "No" + loc_00837215: If Me >= 0 Then GoTo loc_00837226 + loc_00837217: 'Referenced from: 008371F5 + loc_00837220: Me = CheckObj(Me, global_0040E84C, 84) + loc_00837226: + loc_00837234: GoTo loc_00837295 + loc_00837294: Exit Sub + loc_00837295: 'Referenced from: 00837234 +End Sub + +Public Sub loadBGfile() '8372D0 + Dim Me As Variant + Dim var_1C As Me + Dim var_2C As PictureBox + loc_0083731C: var_3C = %x1 = Me.Top + loc_00837332: Set %x1 = Me.Top = Me + loc_00837348: If 0088603Ch Then + loc_00837352: If 0088603Ch = 1 Then + loc_00837360: If 00886044h Then + loc_00837366: If 00886044h = 2 Then + loc_0083737F: var_24 = global_008861A0 + loc_00837382: If 008861A0h >= 0 Then + loc_00837384: var_eax = Err.Raise + loc_0083738C: End If + loc_0083739D: If 008861A2h >= 0 Then + loc_0083739F: var_eax = Err.Raise + loc_008373A7: End If + loc_008373AD: Me.%x1 = Invoke 'Ignore this = Me.%x1 = Invoke 'Ignore this + var_24 + loc_008373B2: GoTo loc_008373C2 + loc_008373B4: End If + loc_008373B4: End If + loc_008373BA: var_eax = Err.Raise + loc_008373C2: 'Referenced from: 008373B2 + loc_008373D8: If edx+eax >= 0 Then + loc_008373DA: var_eax = Err.Raise + loc_008373DC: End If + loc_008373E3: esi*8 = esi*8 - edx+eax + loc_008373EA: GoTo loc_008373F4 + loc_008373EC: End If + loc_008373EC: End If + loc_008373F2: var_eax = Err.Raise + loc_008373F4: 'Referenced from: 008373EA + loc_0083740D: If 0088603Ch Then + loc_00837417: If 0088603Ch = 1 Then + loc_00837425: If 00886044h Then + loc_0083742B: If 00886044h = 2 Then + loc_0083743E: var_24 = global_008861A0 + loc_00837441: If 008861A0h >= Me.%x1 = Invoke 'Ignore this Then + loc_00837443: var_eax = Err.Raise + loc_0083744B: End If + loc_0083745C: If 008861A2h >= 0 Then + loc_0083745E: var_eax = Err.Raise + loc_00837466: End If + loc_0083746C: Me.%x1 = Invoke 'Ignore this = Me.%x1 = Invoke 'Ignore this + var_24 + loc_00837471: GoTo loc_0083747B + loc_00837473: End If + loc_00837473: End If + loc_00837473: var_eax = Err.Raise + loc_0083747B: 'Referenced from: 00837471 + loc_00837491: If ecx+eax >= 0 Then + loc_00837493: var_eax = Err.Raise + loc_00837495: End If + loc_0083749C: esi*8 = esi*8 - ecx+eax + loc_008374A1: GoTo loc_008374A5 + loc_008374A3: End If + loc_008374A3: End If + loc_008374A3: var_eax = Err.Raise + loc_008374A5: 'Referenced from: 008374A1 + loc_008374C2: call Proc_10_13_84B1F0(var_3C, Me.Left = %x1s) + loc_008374E4: var_2C = var_1C + loc_008374E7: If var_88603C Then + loc_008374F1: If 0088603Ch = 1 Then + loc_008374FF: If var_886044 Then + loc_00837505: If 00886044h = 2 Then + loc_00837514: 008861A0h = 008861A0h - ecx+0000001Ch + loc_00837518: If 008861A0h >= 0 Then + loc_0083751A: var_eax = Err.Raise + loc_00837522: End If + loc_0083752F: 008861A2h = 008861A2h - ecx+00000014h + loc_00837533: If 008861A2h >= 0 Then + loc_00837535: var_eax = Err.Raise + loc_0083753D: End If + loc_00837540: ecx+00000018h = ecx+00000018h * 8937890 + loc_00837543: ecx+00000018h = ecx+00000018h + 008861A0h + loc_00837547: GoTo loc_00837551 + loc_00837549: End If + loc_00837549: End If + loc_00837549: var_eax = Err.Raise + loc_00837551: 'Referenced from: 00837547 + loc_00837563: ecx+eax = ecx+eax - eax+00000014h + loc_00837567: If ecx+eax >= 0 Then + loc_00837569: var_eax = Err.Raise + loc_0083756B: End If + loc_00837572: esi*8 = esi*8 - ecx+eax + loc_0083757A: GoTo loc_0083757E + loc_0083757C: End If + loc_0083757C: End If + loc_0083757C: var_eax = Err.Raise + loc_0083757E: 'Referenced from: 0083757A + loc_0083758F: work.ForeColor = ecx+eax+00000018h + loc_008375B8: If global_8861A2 Then + loc_008375D4: If var_18 Then + loc_008375DE: If var_18 = 1 Then + loc_008375EC: If var_886044 Then + loc_008375F2: If 00886044h = 2 Then + loc_00837601: 008861A0h = 008861A0h - ecx+0000001Ch + loc_00837605: If 008861A0h >= 0 Then + loc_00837607: var_eax = Err.Raise + loc_0083760F: End If + loc_0083761C: 008861A2h = 008861A2h - ecx+00000014h + loc_00837620: If 008861A2h >= 0 Then + loc_00837622: var_eax = Err.Raise + loc_0083762A: End If + loc_0083762D: ecx+00000018h = ecx+00000018h * 8937890 + loc_00837630: ecx+00000018h = ecx+00000018h + 008861A0h + loc_00837634: GoTo loc_0083763E + loc_00837636: End If + loc_00837636: End If + loc_00837636: var_eax = Err.Raise + loc_0083763E: 'Referenced from: 00837634 + loc_0083764E: ecx+eax = ecx+eax - var_18(6) + loc_00837652: If ecx+eax >= 0 Then + loc_00837654: var_eax = Err.Raise + loc_00837656: End If + loc_0083765D: esi*8 = esi*8 - ecx+eax + loc_00837662: GoTo loc_00837666 + loc_00837664: End If + loc_00837664: End If + loc_00837664: var_eax = Err.Raise + loc_00837666: 'Referenced from: 00837662 + loc_00837675: var_eax = Proc_10_12_84AC50(var_3C, ecx+eax+00000004h, var_18) + loc_00837684: End If + loc_0083768A: GoTo loc_008376A0 + loc_0083769F: Exit Sub + loc_008376A0: 'Referenced from: 0083768A +End Sub + +Public Function get3DColor(zCoor1, zcoor2) '8376C0 + Dim Me As Me + loc_008376FF: zCoor1 = zCoor1 * 0002h + loc_00837709: zcoor2 = zcoor2 * 0002h + loc_0083771D: zcoor2 = zcoor2 + loc_00837720: If 0088603Ch Then + loc_0083772A: If 0088603Ch = 1 Then + loc_00837738: If 00886044h Then + loc_0083773E: If 00886044h = 2 Then + loc_00837757: var_38 = global_008861A0 + loc_0083775A: If 008861A0h >= 0 Then + loc_0083775C: var_eax = Err.Raise + loc_00837764: End If + loc_00837775: If 008861A2h >= 0 Then + loc_00837777: var_eax = Err.Raise + loc_0083777F: End If + loc_00837785: Me.%x1 = Invoke 'Ignore this = Me.%x1 = Invoke 'Ignore this + var_38 + loc_0083778A: GoTo loc_0083779A + loc_0083778C: End If + loc_0083778C: End If + loc_00837792: var_eax = Err.Raise + loc_0083779A: 'Referenced from: 0083778A + loc_008377B0: If edx+eax >= 0 Then + loc_008377B2: var_eax = Err.Raise + loc_008377BA: End If + loc_008377C1: ebx*8 = ebx*8 - edx+eax + loc_008377C9: GoTo loc_008377D9 + loc_008377CB: End If + loc_008377CB: End If + loc_008377D1: var_eax = Err.Raise + loc_008377D9: 'Referenced from: 008377C9 + loc_008377E7: var_24 = edx+eax+00000010h + loc_008377F2: If var_88603C Then + loc_008377FC: If 0088603Ch = 1 Then + loc_00837804: If var_886044 Then + loc_0083780A: If 00886044h = 2 Then + loc_0083781D: var_38 = global_008861A0 + loc_00837820: If 008861A0h >= Me.%x1 = Invoke 'Ignore this Then + loc_00837822: var_eax = Err.Raise + loc_0083782A: End If + loc_0083783B: If 008861A2h >= 0 Then + loc_0083783D: var_eax = Err.Raise + loc_00837845: End If + loc_0083784B: Me.%x1 = Invoke 'Ignore this = Me.%x1 = Invoke 'Ignore this + var_38 + loc_00837850: GoTo loc_0083785A + loc_00837852: End If + loc_00837852: End If + loc_00837852: var_eax = Err.Raise + loc_0083785A: 'Referenced from: 00837850 + loc_00837870: If edx+eax >= 0 Then + loc_00837872: var_eax = Err.Raise + loc_0083787A: End If + loc_00837881: ebx*8 = ebx*8 - edx+eax + loc_00837889: GoTo loc_00837893 + loc_0083788B: End If + loc_0083788B: End If + loc_0083788B: var_eax = Err.Raise + loc_00837893: 'Referenced from: 00837889 + loc_008378A1: var_30 = edx+eax+00000014h + loc_008378AC: If var_88603C Then + loc_008378B6: If 0088603Ch = 1 Then + loc_008378BE: If var_886044 Then + loc_008378C4: If 00886044h = 2 Then + loc_008378D7: var_38 = global_008861A0 + loc_008378DA: If 008861A0h >= Me.%x1 = Invoke 'Ignore this Then + loc_008378DC: var_eax = Err.Raise + loc_008378E4: End If + loc_008378F5: If 008861A2h >= 0 Then + loc_008378F7: var_eax = Err.Raise + loc_008378FF: End If + loc_00837905: Me.%x1 = Invoke 'Ignore this = Me.%x1 = Invoke 'Ignore this + var_38 + loc_0083790A: GoTo loc_00837914 + loc_0083790C: End If + loc_0083790C: End If + loc_0083790C: var_eax = Err.Raise + loc_00837914: 'Referenced from: 0083790A + loc_0083792A: If ecx+eax >= 0 Then + loc_0083792C: var_eax = Err.Raise + loc_0083792E: End If + loc_00837935: ebx*8 = ebx*8 - ecx+eax + loc_0083793D: GoTo loc_00837941 + loc_0083793F: End If + loc_0083793F: End If + loc_0083793F: var_eax = Err.Raise + loc_00837941: 'Referenced from: 0083793D + loc_0083795C: zCoor1 = zCoor1 + zcoor2 + loc_00837965: var_20 = ecx+eax+00000012h + loc_0083796F: var_50 = var_24 + loc_00837975: var_54 = zCoor1+zcoor2 + loc_0083797B: var_5C = var_54 + loc_00837988: If global_886000 = 0 Then + loc_00837990: GoTo loc_008379A3 + loc_00837992: End If + loc_008379A3: 'Referenced from: 00837990 + loc_008379A3: fsubr st0, var_50 + loc_008379BB: zCoor1 = zCoor1 + zcoor2 + loc_008379CE: var_68 = var_30 + loc_008379D1: var_6C = zCoor1+zcoor2 + loc_008379D7: var_74 = var_6C + loc_008379E4: If global_886000 = 0 Then + loc_008379EC: GoTo loc_008379FF + loc_008379EE: End If + loc_008379FF: 'Referenced from: 008379EC + loc_008379FF: fsubr st0, var_68 + loc_00837A0E: zCoor1 = zCoor1 + zcoor2 + loc_00837A12: var_2C = CInt((var_74 / global_401728)) + loc_00837A28: var_80 = var_20 + loc_00837A2B: var_84 = zCoor1+zcoor2 + loc_00837A37: var_8C = var_84 + loc_00837A4A: If global_886000 = 0 Then + loc_00837A52: GoTo loc_00837A65 + loc_00837A54: End If + loc_00837A65: 'Referenced from: 00837A52 + loc_00837A65: fsubr st0, var_80 + loc_00837A73: If CInt((var_5C / global_401728)) < 0 Then + loc_00837A77: End If + loc_00837A7C: If var_2C < 0 Then + loc_00837A85: End If + loc_00837A88: If CInt((var_8C / global_401728)) < 0 Then + loc_00837A8C: End If + loc_00837A92: If ebx > edx+eax+00000010h Then + loc_00837A96: End If + loc_00837A9D: If var_2C > edx+eax+00000014h Then + loc_00837A9F: var_2C = var_30 + loc_00837AA2: End If + loc_00837AA8: If eax > ecx+eax+00000012h Then + loc_00837AAC: End If + loc_00837AB8: var_28 = RGB(var_24, var_2C, var_20) +End Function + +Public Sub drawPiecePreviews() '837AF0 + Dim Me As Me + Dim var_24 As Me + Dim var_2C As Me + loc_00837B68: var_58 = global_401748 + loc_00837B7C: If Err.Number Then + loc_00837B87: End If + loc_00837B9B: If 00000001h <= Me(25) Then + loc_00837BA8: cwd + loc_00837BAA: idiv cx + loc_00837BC5: var_64 = var_5C + loc_00837BD4: var_70 = var_68 + loc_00837BDE: If global_886000 = 0 Then + loc_00837BE3: GoTo loc_00837BF0 + loc_00837BE5: End If + loc_00837BF0: 'Referenced from: 00837BE3 + loc_00837C06: var_34 = Cos((((var_64 * global_401748) / var_70) + [edx+0000000Ch])) + loc_00837C22: var_20 = CInt((var_34 * global_401828)) + loc_00837C2C: If 0088659Ch Then + loc_00837C32: If 0088659Ch = 1 Then + loc_00837C39: If Me(24) Then + loc_00837C3F: If Me(24) = 1 Then + loc_00837C4E: If 00000001h >= 0 Then + loc_00837C50: var_eax = Err.Raise + loc_00837C56: End If + loc_00837C5C: GoTo loc_00837C64 + loc_00837C5E: End If + loc_00837C5E: End If + loc_00837C5E: var_eax = Err.Raise + loc_00837C64: 'Referenced from: 00837C5C + loc_00837C7D: If edx+eax >= 0 Then + loc_00837C7F: var_eax = Err.Raise + loc_00837C85: End If + loc_00837C88: GoTo loc_00837C90 + loc_00837C8A: End If + loc_00837C8A: End If + loc_00837C8A: var_eax = Err.Raise + loc_00837C90: 'Referenced from: 00837C88 + loc_00837C9D: edx+eax = edx+eax - 0001h + loc_00837CA7: edx+eax = edx+eax * 002Dh + loc_00837CB4: var_2C = True + loc_00837CB7: var_28 = True + loc_00837CBF: If Me(24) Then + loc_00837CC5: If Me(24) = 1 Then + loc_00837CD4: If 00000001h >= 0 Then + loc_00837CD6: var_eax = Err.Raise + loc_00837CDC: End If + loc_00837CE2: var_74 = ebx+ebx*4 + loc_00837CE8: GoTo loc_00837CF3 + loc_00837CEA: End If + loc_00837CEA: End If + loc_00837CEA: var_eax = Err.Raise + loc_00837CF0: var_74 = Err.Raise + loc_00837CF3: 'Referenced from: 00837CE8 + loc_00837CF8: If Me(24) Then + loc_00837CFE: If Me(24) = 1 Then + loc_00837D0D: If var_1C >= 0 Then + loc_00837D0F: var_eax = Err.Raise + loc_00837D15: End If + loc_00837D1B: var_78 = var_1C(-3) + loc_00837D21: GoTo loc_00837D2C + loc_00837D23: End If + loc_00837D23: End If + loc_00837D23: var_eax = Err.Raise + loc_00837D29: var_78 = Err.Raise + loc_00837D2C: 'Referenced from: 00837D21 + loc_00837D41: If var_24 Then + loc_00837D47: If var_24 = 1 Then + loc_00837D4E: If Me(24) Then + loc_00837D54: If Me(24) = 1 Then + loc_00837D63: If var_1C >= 0 Then + loc_00837D65: var_eax = Err.Raise + loc_00837D6E: End If + loc_00837D74: GoTo loc_00837D7F + loc_00837D76: End If + loc_00837D76: End If + loc_00837D76: var_eax = Err.Raise + loc_00837D7F: 'Referenced from: 00837D74 + loc_00837D93: If edx+eax >= 0 Then + loc_00837D95: var_eax = Err.Raise + loc_00837D9B: End If + loc_00837D9E: GoTo loc_00837DA8 + loc_00837DA0: End If + loc_00837DA0: End If + loc_00837DA0: var_eax = Err.Raise + loc_00837DA8: 'Referenced from: 00837D9E + loc_00837DE0: var_80 = var_20 + loc_00837DFD: Me.GetTypeInfoCount 'Ignore this = Me.GetTypeInfoCount 'Ignore this + Err.Raise + loc_00837E00: call Proc_10_14_84B2D0(Me.GetTypeInfoCount, Me.Top = %x1s, 0) + loc_00837E14: 00000001h = 00000001h + var_1C + loc_00837E1A: var_1C = 00000001h+var_1C + loc_00837E21: GoTo loc_00837B97 + loc_00837E26: End If + loc_00837E2C: GoTo loc_00837E39 + loc_00837E38: Exit Sub + loc_00837E39: 'Referenced from: 00837E2C + loc_00837E39: Exit Sub +End Sub + +Public Sub updatePiecePreviews() '837E70 + Dim Me As Me + loc_00837EBE: If 00000001h <= Me(25) Then + loc_00837EC9: If Me(24) Then + loc_00837ECF: If Me(24) = 1 Then + loc_00837EDE: If 00000001h >= 0 Then + loc_00837EE0: var_eax = Err.Raise + loc_00837EE6: End If + loc_00837EEC: var_58 = esi+esi*4 + loc_00837EEF: GoTo loc_00837EFA + loc_00837EF1: End If + loc_00837EF1: End If + loc_00837EF1: var_eax = Err.Raise + loc_00837EF7: var_58 = Err.Raise + loc_00837EFA: 'Referenced from: 00837EEF + loc_00837EFF: If Me(24) Then + loc_00837F05: If Me(24) = 1 Then + loc_00837F14: If 00000001h >= 0 Then + loc_00837F16: var_eax = Err.Raise + loc_00837F1C: End If + loc_00837F22: GoTo loc_00837F2C + loc_00837F24: End If + loc_00837F24: End If + loc_00837F24: var_eax = Err.Raise + loc_00837F2C: 'Referenced from: 00837F22 + loc_00837F31: If Me(24) Then + loc_00837F37: If Me(24) = 1 Then + loc_00837F47: If var_18 >= 0 Then + loc_00837F49: var_eax = Err.Raise + loc_00837F4F: End If + loc_00837F55: GoTo loc_00837F5F + loc_00837F57: End If + loc_00837F57: End If + loc_00837F57: var_eax = Err.Raise + loc_00837F5F: 'Referenced from: 00837F55 + loc_00837F89: If Me(24) Then + loc_00837F8F: If Me(24) = 1 Then + loc_00837F9F: If var_18 >= 0 Then + loc_00837FA1: var_eax = Err.Raise + loc_00837FA7: End If + loc_00837FAD: var_5C = var_18(-3) + loc_00837FB0: GoTo loc_00837FBB + loc_00837FB2: End If + loc_00837FB2: End If + loc_00837FB2: var_eax = Err.Raise + loc_00837FB8: var_5C = Err.Raise + loc_00837FBB: 'Referenced from: 00837FB0 + loc_00837FC0: If Me(24) Then + loc_00837FC6: If Me(24) = 1 Then + loc_00837FD6: If var_18 >= 0 Then + loc_00837FD8: var_eax = Err.Raise + loc_00837FDE: End If + loc_00837FE4: GoTo loc_00837FEE + loc_00837FE6: End If + loc_00837FE6: End If + loc_00837FE6: var_eax = Err.Raise + loc_00837FEE: 'Referenced from: 00837FE4 + loc_00837FF3: If Me(24) Then + loc_00837FF9: If Me(24) = 1 Then + loc_00838009: If var_18 >= 0 Then + loc_0083800B: var_eax = Err.Raise + loc_00838011: End If + loc_00838017: GoTo loc_00838021 + loc_00838019: End If + loc_00838019: End If + loc_00838019: var_eax = Err.Raise + loc_00838021: 'Referenced from: 00838017 + loc_0083804B: If Me(24) Then + loc_00838051: If Me(24) = 1 Then + loc_00838067: If var_18 >= 0 Then + loc_00838069: var_eax = Err.Raise + loc_0083806B: End If + loc_00838071: GoTo loc_0083807F + loc_00838073: End If + loc_00838073: End If + loc_00838073: var_eax = Err.Raise + loc_0083807F: 'Referenced from: 00838071 + loc_00838092: var_64 = global_00886070 + loc_008380A5: If Me(24) Then + loc_008380AB: If Me(24) = 1 Then + loc_008380BB: If var_18 >= 0 Then + loc_008380BD: var_eax = Err.Raise + loc_008380BF: End If + loc_008380C5: GoTo loc_008380C9 + loc_008380C7: End If + loc_008380C7: End If + loc_008380C7: var_eax = Err.Raise + loc_008380C9: 'Referenced from: 008380C5 + loc_008380D7: End If + loc_008380DC: If Me(24) Then + loc_008380E2: If Me(24) = 1 Then + loc_008380F2: If var_18 >= 0 Then + loc_008380F4: var_eax = Err.Raise + loc_008380F6: End If + loc_008380FC: GoTo loc_00838100 + loc_008380FE: End If + loc_008380FE: End If + loc_008380FE: var_eax = Err.Raise + loc_00838100: 'Referenced from: 008380FC + loc_0083810A: 00886072h = 00886072h + 0064h + loc_00838120: var_6C = var_68 + loc_00838137: If Me(24) Then + loc_0083813D: If Me(24) = 1 Then + loc_0083814D: If var_18 >= 0 Then + loc_0083814F: var_eax = Err.Raise + loc_00838151: End If + loc_00838157: GoTo loc_0083815B + loc_00838159: End If + loc_00838159: End If + loc_00838159: var_eax = Err.Raise + loc_0083815B: 'Referenced from: 00838157 + loc_00838171: If global_886124 = 0 Then + loc_0083818A: If Me(24) Then + loc_00838190: If Me(24) = 1 Then + loc_008381A0: If var_18 >= 0 Then + loc_008381A2: var_eax = Err.Raise + loc_008381A4: End If + loc_008381AA: GoTo loc_008381B0 + loc_008381AC: End If + loc_008381AC: End If + loc_008381AC: var_eax = Err.Raise + loc_008381B0: 'Referenced from: 008381AA + loc_008381C7: var_74 = global_008860E4 + loc_00838206: End If + loc_00838206: End If + loc_0083820B: If Me(24) Then + loc_00838211: If Me(24) = 1 Then + loc_00838221: If var_18 >= 0 Then + loc_00838223: var_eax = Err.Raise + loc_00838225: End If + loc_0083822B: GoTo loc_0083822F + loc_0083822D: End If + loc_0083822D: End If + loc_0083822D: var_eax = Err.Raise + loc_0083822F: 'Referenced from: 0083822B + loc_00838244: If Err.Number Then + loc_00838248: If Me(24) Then + loc_0083824E: If Me(24) = 1 Then + loc_0083825E: If var_18 >= 0 Then + loc_00838260: var_eax = Err.Raise + loc_00838262: End If + loc_00838268: GoTo loc_0083826C + loc_0083826A: End If + loc_0083826A: End If + loc_0083826A: var_eax = Err.Raise + loc_0083826C: 'Referenced from: 00838268 + loc_00838276: var_78 = global_00886070 + loc_00838283: End If + loc_00838288: If Me(24) Then + loc_0083828E: If Me(24) = 1 Then + loc_0083829E: If var_18 >= 0 Then + loc_008382A0: var_eax = Err.Raise + loc_008382A2: End If + loc_008382A8: GoTo loc_008382AC + loc_008382AA: End If + loc_008382AA: End If + loc_008382AA: var_eax = Err.Raise + loc_008382AC: 'Referenced from: 008382A8 + loc_008382C1: If Err.Number Then + loc_008382C5: If Me(24) Then + loc_008382CB: If Me(24) = 1 Then + loc_008382DB: If var_18 >= 0 Then + loc_008382DD: var_eax = Err.Raise + loc_008382DF: End If + loc_008382E5: GoTo loc_008382E9 + loc_008382E7: End If + loc_008382E7: End If + loc_008382E7: var_eax = Err.Raise + loc_008382E9: 'Referenced from: 008382E5 + loc_008382F3: 00886072h = 00886072h + 0064h + loc_00838309: End If + loc_0083830E: 00000001h = 00000001h + var_18 + loc_00838314: var_18 = 00000001h+var_18 + loc_00838319: GoTo loc_00837EBA + loc_0083831E: End If + loc_0083831E: var_eax = Proc_859DE0 + loc_00838329: GoTo loc_00838335 + loc_00838334: Exit Sub + loc_00838335: 'Referenced from: 00838329 + loc_00838335: Exit Sub +End Sub + +Public Sub initPiecePreviews() '838360 + Dim Me As Me + Dim var_A8 As Me + loc_008383C5: ReDim global_008865A4(0 To global_008860E4) + loc_008383E0: ReDim global_0088659C(0 To global_008860E4) + loc_008383FB: ReDim global_008865A0(0 To global_008860E4) + loc_0083840A: var_64 = global_008860E4 + loc_00838414: If 00000001h <= global_008860E4 Then + loc_0083842F: If 0088659Ch Then + loc_00838435: If 0088659Ch = 1 Then + loc_0083844A: If 00000001h >= 0 Then + loc_0083844C: var_eax = Err.Raise + loc_0083844E: End If + loc_0083844E: 00000001h = 00000001h + 00000001h + loc_00838450: GoTo loc_00838460 + loc_00838452: End If + loc_00838452: End If + loc_00838452: var_eax = Err.Raise + loc_00838460: 'Referenced from: 00838450 + loc_008384BA: If 008861A0h = var_886038 Then + loc_008384C4: If var_88659C Then + loc_008384CA: If 0088659Ch = 1 Then + loc_008384DA: If var_30 >= 0 Then + loc_008384DC: var_eax = Err.Raise + loc_008384E4: End If + loc_008384E7: GoTo loc_008384F1 + loc_008384E9: End If + loc_008384E9: End If + loc_008384E9: var_eax = Err.Raise + loc_008384F1: 'Referenced from: 008384E7 + loc_008384FA: End If + loc_00838535: If Err.Number Then + loc_0083853C: GoTo loc_00838540 + loc_0083853E: End If + loc_00838540: 'Referenced from: 0083853C + loc_00838547: If var_886034 Then + loc_0083854D: If 00886034h = 1 Then + loc_00838560: If 008861A0h >= 0 Then + loc_00838562: var_eax = Err.Raise + loc_0083856D: End If + loc_00838574: edi*8 = edi*8 - 008861A0h + loc_00838579: GoTo loc_00838584 + loc_0083857B: End If + loc_0083857B: End If + loc_0083857B: call edi + loc_00838584: 'Referenced from: 00838579 + loc_0083858E: If var_30(1) >= 5 Then + loc_00838590: var_eax = Err.Raise + loc_0083859B: End If + loc_008385BF: If ebx Then + loc_008385C3: If var_8865A0 Then + loc_008385C9: If 008865A0h = 1 Then + loc_008385D5: If var_30 >= 0 Then + loc_008385D7: var_eax = Err.Raise + loc_008385E3: End If + loc_008385EF: GoTo loc_00838644 + loc_008385F1: End If + loc_008385F1: End If + loc_008385F1: var_eax = Err.Raise + loc_00838606: GoTo loc_00838644 + loc_00838608: End If + loc_0083860A: If Me.GetTypeInfoCount 'Ignore this Then + loc_00838610: If ecx = 1 Then + loc_0083861C: If var_30 >= 0 Then + loc_0083861E: var_eax = Err.Raise + loc_0083862A: End If + loc_0083862D: GoTo loc_0083863B + loc_0083862F: End If + loc_0083862F: End If + loc_0083862F: var_eax = Err.Raise + loc_0083863B: 'Referenced from: 0083862D + loc_00838644: 'Referenced from: 008385EF + loc_0083864C: 00000001h = 00000001h + var_30 + loc_00838656: var_30 = 00000001h+var_30 + loc_00838663: GoTo loc_00838410 + loc_00838668: End If + loc_0083866F: 00886072h = 00886072h + 002Dh + loc_00838679: 00886072h+002Dh = 00886072h+002Dh + 00C8h + loc_0083868B: If global_886124 Then + loc_0083868D: 008860E4h = 008860E4h * 002Dh + loc_008386B2: var_8C = global_008860E4 + loc_008386C2: If global_886000 = 0 Then + loc_008386CA: GoTo loc_008386DD + loc_008386CC: End If + loc_008386DD: 'Referenced from: 008386CA + loc_008386FB: 008860E4h = 008860E4h * CInt(var_8C) + loc_00838709: GoTo loc_00838756 + loc_0083870B: End If + loc_0083870E: var_78 = global_008860E4 + loc_00838714: var_94 = var_78 + loc_00838727: If global_886000 = 0 Then + loc_0083872F: GoTo loc_00838742 + loc_00838731: End If + loc_00838742: 'Referenced from: 0083872F + loc_00838756: 'Referenced from: 00838709 + loc_0083876C: ReDim Me(24)(0 To CInt(global_401868)) + loc_00838779: var_9C = var_78 + loc_0083878E: var_A8 = var_A0 + loc_008387A1: If global_886000 = 0 Then + loc_008387A9: GoTo loc_008387BC + loc_008387AB: End If + loc_008387BC: 'Referenced from: 008387A9 + loc_008387D0: var_18 = CInt((var_9C / var_A8)) + loc_008387E7: If 00000001h <= Me(25) Then + loc_008387F5: If global_886124 Then + loc_008387FB: If Me(24) Then + loc_00838801: If Me(24) = 1 Then + loc_00838810: If 00000001h >= 0 Then + loc_00838812: var_eax = Err.Raise + loc_00838818: End If + loc_0083881E: GoTo loc_00838826 + loc_00838820: End If + loc_00838820: End If + loc_00838820: var_eax = Err.Raise + loc_00838826: 'Referenced from: 0083881E + loc_00838832: var_2C = var_2C + 0001h + loc_00838848: If eax > var_8860E4 Then + loc_00838855: GoTo loc_008388FA + loc_0083885A: End If + loc_0083886C: If Me(24) Then + loc_00838872: If Me(24) = 1 Then + loc_00838881: If 00000001h >= 0 Then + loc_00838883: var_eax = Err.Raise + loc_00838889: End If + loc_0083888F: GoTo loc_00838899 + loc_00838891: End If + loc_00838891: End If + loc_00838891: var_eax = Err.Raise + loc_00838899: 'Referenced from: 0083888F + loc_008388B6: var_B0 = global_008860E4 + loc_008388FA: End If + loc_008388FE: If Me(24) Then + loc_00838904: If Me(24) = 1 Then + loc_00838913: If 00000001h >= 0 Then + loc_00838915: var_eax = Err.Raise + loc_0083891B: End If + loc_00838921: GoTo loc_00838929 + loc_00838923: End If + loc_00838923: End If + loc_00838923: var_eax = Err.Raise + loc_00838929: 'Referenced from: 00838921 + loc_0083893A: If Me(24) Then + loc_00838940: If Me(24) = 1 Then + loc_0083894F: If 00000001h >= 0 Then + loc_00838951: var_eax = Err.Raise + loc_00838957: End If + loc_0083895D: GoTo loc_00838965 + loc_0083895F: End If + loc_0083895F: End If + loc_0083895F: var_eax = Err.Raise + loc_00838965: 'Referenced from: 0083895D + loc_0083896B: var_B4 = var_28 + loc_00838982: If Me(24) Then + loc_00838988: If Me(24) = 1 Then + loc_00838997: If 00000001h >= 0 Then + loc_00838999: var_eax = Err.Raise + loc_0083899F: End If + loc_008389A5: GoTo loc_008389AD + loc_008389A7: End If + loc_008389A7: End If + loc_008389A7: var_eax = Err.Raise + loc_008389AD: 'Referenced from: 008389A5 + loc_008389BE: If Me(24) Then + loc_008389C4: If Me(24) = 1 Then + loc_008389D3: If 00000001h >= 0 Then + loc_008389D5: var_eax = Err.Raise + loc_008389DB: End If + loc_008389E1: GoTo loc_008389E9 + loc_008389E3: End If + loc_008389E3: End If + loc_008389E3: var_eax = Err.Raise + loc_008389E9: 'Referenced from: 008389E1 + loc_008389FA: var_28 = var_28 + var_18 + loc_00838A00: var_28 = var_28+var_18 + loc_00838A08: 00000001h = 00000001h + 00000001h + loc_00838A0F: GoTo loc_008387E3 + loc_00838A14: End If + loc_00838A1A: GoTo loc_00838A26 + loc_00838A25: Exit Sub + loc_00838A26: 'Referenced from: 00838A1A + loc_00838A26: Exit Sub +End Sub + +Public Sub checkForButtons() '838A60 + Dim var_1C As PictureBox + loc_00838AA9: If global_886010 = 1 Then + loc_00838AB2: If global_8861A0 <> 1 Then GoTo loc_00838AC8 + loc_00838AB4: End If + loc_00838AC2: If 008861A0h = var_886038 Then + loc_00838AC8: global_8861A2 = 6 + loc_00838AF0: 11 = picAnim._Default + loc_00838B1C: picAnim.Visible = False + loc_00838B68: 12 = picAnim._Default + loc_00838B86: picAnim.Visible = False + loc_00838B90: If var_1C < 0 Then + loc_00838B9B: GoTo loc_00838E29 + loc_00838BA0: End If + loc_00838BBF: 11 = picAnim._Default + loc_00838BEB: picAnim.Visible = True + loc_00838C37: 12 = picAnim._Default + loc_00838C55: picAnim.Visible = True + loc_00838CA1: 11 = picAnim._Default + loc_00838CBF: picAnim.AutoRedraw = True + loc_00838D0B: 12 = picAnim._Default + loc_00838D29: picAnim.AutoRedraw = True + loc_00838D59: var_eax = classicOptions.drawDefaultPics + loc_00838D90: 11 = picAnim._Default + loc_00838DAE: picAnim.AutoRedraw = False + loc_00838DFA: 12 = picAnim._Default + loc_00838E18: picAnim.AutoRedraw = False + loc_00838E22: If var_1C < 0 Then + loc_00838E29: 'Referenced from: 00838B9B + loc_00838E30: var_1C = CheckObj(var_1C, global_0040E7E4, 340) + loc_00838E32: End If + loc_00838E32: End If + loc_00838E51: If global_886010 = 1 Then + loc_00838E5A: If global_8861A0 <> 1 Then + loc_00838E7A: 1 = btnButton._Default + loc_00838E98: btnButton.Visible = False + loc_00838EC2: GoTo loc_0083901B + loc_00838EC7: End If + loc_00838EC7: End If + loc_00838EE6: 13 = picAnim._Default + loc_00838F04: picAnim.AutoRedraw = True + loc_00838F34: var_eax = PictureBox.1832 + loc_00838F6B: 1 = btnButton._Default + loc_00838F89: btnButton.Visible = True + loc_00838FD7: 13 = picAnim._Default + loc_00838FF5: picAnim.AutoRedraw = False + loc_0083901B: 'Referenced from: 00838EC2 + loc_00839023: GoTo loc_00839039 + loc_00839038: Exit Sub + loc_00839039: 'Referenced from: 00839023 +End Sub + +Public Sub Proc_5_36_82F1C0 + Dim global_00886880 As Me + loc_0082F1FE: If arg_C = 1 Then + loc_0082F20C: var_eax = Proc_10_23_84E330(global_00886598, var_38, edi) + loc_0082F211: GoTo loc_0082F218 + loc_0082F213: End If + loc_0082F213: var_eax = Proc_9_20_8476B0(esi, ebx, ) + loc_0082F218: 'Referenced from: 0082F211 + loc_0082F220: If 008861A8h Then + loc_0082F226: If 008861A8h = 1 Then + loc_0082F239: 00000004h = 00000004h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0082F23D: If 00000004h >= 0 Then + loc_0082F23F: var_eax = Err.Raise + loc_0082F247: End If + loc_0082F24C: GoTo loc_0082F25C + loc_0082F24E: End If + loc_0082F24E: End If + loc_0082F254: var_eax = Err.Raise + loc_0082F25C: 'Referenced from: 0082F24C + loc_0082F272: If 008861ACh Then + loc_0082F278: If 008861ACh = 1 Then + loc_0082F285: 00000004h = 00000004h - .%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0082F289: If 00000004h >= 0 Then + loc_0082F28B: var_eax = Err.Raise + loc_0082F293: End If + loc_0082F298: GoTo loc_0082F2A2 + loc_0082F29A: End If + loc_0082F29A: End If + loc_0082F29A: var_eax = Err.Raise + loc_0082F2A2: 'Referenced from: 0082F298 + loc_0082F2B5: If 008861A8h Then + loc_0082F2BB: If 008861A8h = 1 Then + loc_0082F2CB: If Me(14) >= 0 Then + loc_0082F2CD: var_eax = Err.Raise + loc_0082F2D5: End If + loc_0082F2DA: GoTo loc_0082F2E4 + loc_0082F2DC: End If + loc_0082F2DC: End If + loc_0082F2DC: var_eax = Err.Raise + loc_0082F2E4: 'Referenced from: 0082F2DA + loc_0082F2F3: global_886056 = ecx+eax + loc_0082F2FA: If 008861ACh Then + loc_0082F300: If 008861ACh = 1 Then + loc_0082F310: If Me(14) >= 0 Then + loc_0082F312: var_eax = Err.Raise + loc_0082F31A: End If + loc_0082F31F: GoTo loc_0082F329 + loc_0082F321: End If + loc_0082F321: End If + loc_0082F321: var_eax = Err.Raise + loc_0082F329: 'Referenced from: 0082F31F + loc_0082F333: global_886058 = ecx+eax + loc_0082F33D: eax = arg_C - 1 + loc_0082F33E: If arg_C - 1 Then + loc_0082F344: eax = arg_C - 1 - 1 + loc_0082F345: If arg_C - 1 - 1 <> 0 Then GoTo loc_0082F510 + loc_0082F34B: var_eax = Proc_845A50 + loc_0082F375: Set var_14 = Me + loc_0082F37D: var_eax = Global.Unload var_14 + loc_0082F3FE: var_eax = titleScreen.Show var_24, var_20 + loc_0082F425: GoTo loc_0082F521 + loc_0082F42A: global_8861C0 = global_00886880 + loc_0082F431: global_8860E2 = FFFFFFh + loc_0082F43A: var_eax = Proc_868420(global_0082F522, -2147352572, var_18) + loc_0082F43F: var_eax = Proc_86F0F0(10, var_30, -2147352572) + loc_0082F469: Set var_14 = stk@FFDC + loc_0082F471: var_eax = Global.Unload var_14 + loc_0082F4F2: var_eax = frmMain.Show var_24, var_20 + loc_0082F510: + loc_0082F510: End If + loc_0082F515: GoTo loc_0082F521 + loc_0082F520: Exit Sub + loc_0082F521: 'Referenced from: 0082F425 +End Sub diff --git a/src/classicOptions.frx b/src/classicOptions.frx new file mode 100644 index 0000000..165f331 Binary files /dev/null and b/src/classicOptions.frx differ diff --git a/src/frmMain.frm b/src/frmMain.frm new file mode 100644 index 0000000..07bc819 --- /dev/null +++ b/src/frmMain.frm @@ -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 diff --git a/src/frmMain.frx b/src/frmMain.frx new file mode 100644 index 0000000..1946974 Binary files /dev/null and b/src/frmMain.frx differ diff --git a/src/gameOptions.frm b/src/gameOptions.frm new file mode 100644 index 0000000..c06dc8a --- /dev/null +++ b/src/gameOptions.frm @@ -0,0 +1,2053 @@ +VERSION 5.00 +Begin VB.Form gameOptions + BackColor = &H800000& + WindowState = 2 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + Picture = "gameOptions.frx":0 + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + Tag = "gameOptions" + KeyPreview = -1 'True + ClientLeft = 4710 + ClientTop = 1605 + ClientWidth = 9600 + ClientHeight = 8625 + ShowInTaskbar = 0 'False + Begin PictureBox btnButton + BackColor = &H404040& + Index = 3 + ForeColor = &H80000008& + Left = 870 + Top = 6675 + Width = 1200 + Height = 450 + TabIndex = 39 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 23 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 40 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "reset" + Appearance = 0 'Flat + End + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 17 + ForeColor = &H80000008& + Left = 945 + Top = 6030 + Width = 150 + Height = 210 + TabIndex = 36 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 18 + ForeColor = &H80000008& + Left = 3465 + Top = 6030 + Width = 150 + Height = 210 + TabIndex = 35 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 19 + ForeColor = &H80000008& + Left = 4485 + Top = 6030 + Width = 150 + Height = 210 + TabIndex = 34 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 20 + ForeColor = &H80000008& + Left = 7005 + Top = 6030 + Width = 150 + Height = 210 + TabIndex = 33 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 16 + ForeColor = &H80000008& + Left = 7005 + Top = 5250 + Width = 150 + Height = 210 + TabIndex = 28 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 15 + ForeColor = &H80000008& + Left = 4485 + Top = 5250 + Width = 150 + Height = 210 + TabIndex = 27 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 14 + ForeColor = &H80000008& + Left = 6975 + Top = 4470 + Width = 150 + Height = 210 + TabIndex = 25 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 13 + ForeColor = &H80000008& + Left = 4455 + Top = 4470 + Width = 150 + Height = 210 + TabIndex = 24 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 12 + ForeColor = &H80000008& + Left = 6945 + Top = 3690 + Width = 150 + Height = 210 + TabIndex = 22 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 11 + ForeColor = &H80000008& + Left = 4425 + Top = 3690 + Width = 150 + Height = 210 + TabIndex = 21 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 10 + ForeColor = &H80000008& + Left = 6945 + Top = 2910 + Width = 150 + Height = 210 + TabIndex = 19 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "right" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 9 + ForeColor = &H80000008& + Left = 4410 + Top = 2910 + Width = 150 + Height = 210 + TabIndex = 18 + 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 = 3465 + Top = 5250 + Width = 150 + Height = 210 + TabIndex = 16 + 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 = 945 + Top = 5250 + Width = 150 + Height = 210 + TabIndex = 15 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 6 + ForeColor = &H80000008& + Left = 3465 + Top = 4470 + Width = 150 + Height = 210 + TabIndex = 13 + 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 = 945 + Top = 4470 + Width = 150 + Height = 210 + TabIndex = 12 + 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 = 3465 + Top = 3690 + Width = 150 + Height = 210 + TabIndex = 10 + 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 = 945 + Top = 3690 + Width = 150 + Height = 210 + TabIndex = 9 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "left" + Appearance = 0 'Flat + End + Begin PictureBox rotateDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 7560 + Top = 360 + Width = 1725 + Height = 1725 + Visible = 0 'False + TabIndex = 8 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox picAnim + BackColor = &H800000& + Index = 1 + ForeColor = &H80000008& + Left = 945 + Top = 2910 + 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 = 2 + ForeColor = &H80000008& + Left = 3465 + Top = 2910 + Width = 150 + Height = 210 + TabIndex = 5 + 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 = 4 + 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 = 1 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 22 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 3 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "cancel" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 1 + ForeColor = &H80000008& + Left = 6960 + Top = 6675 + Width = 1200 + Height = 450 + TabIndex = 0 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 21 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 2 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "ok" + Appearance = 0 'Flat + End + End + Begin Timer tmrMainLoop + Interval = 1 + Left = 8340 + Top = 1080 + End + Begin Label lblAllowBombOverlay + Caption = "On" + ForeColor = &HFF& + Left = 1215 + Top = 6030 + Width = 1500 + Height = 180 + TabIndex = 38 + 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 = 17 + Left = 510 + Top = 6000 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 18 + Left = 3195 + Top = 6000 + Width = 825 + Height = 300 + End + Begin Label lblAllowSFX + Caption = "On" + ForeColor = &HFF& + Left = 4755 + Top = 6030 + Width = 1500 + Height = 180 + TabIndex = 37 + 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 = 19 + Left = 4050 + Top = 6000 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 20 + Left = 6735 + Top = 6000 + Width = 825 + Height = 300 + End + Begin Label lblMouse3 + Caption = "Scroll" + ForeColor = &HFF& + Left = 8790 + Top = 2640 + Width = 675 + Height = 180 + TabIndex = 32 + Alignment = 2 'Center + 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 lblMouse2 + Caption = "Destroy" + ForeColor = &HFF& + Left = 8070 + Top = 2640 + Width = 675 + Height = 180 + TabIndex = 31 + Alignment = 2 'Center + 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 lblMouse1 + Caption = "Select" + ForeColor = &HFF& + Left = 7290 + Top = 2640 + Width = 675 + Height = 180 + TabIndex = 30 + Alignment = 2 'Center + 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 = 16 + Left = 6735 + Top = 5220 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 15 + Left = 4050 + Top = 5220 + Width = 825 + Height = 300 + End + Begin Label lblFlash + Caption = "On" + ForeColor = &HFF& + Left = 4755 + Top = 5250 + Width = 1500 + Height = 180 + TabIndex = 29 + 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 = 14 + Left = 6705 + Top = 4440 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 13 + Left = 4020 + Top = 4440 + Width = 825 + Height = 300 + End + Begin Label lblTitleMusic + Caption = "On" + ForeColor = &HFF& + Left = 4725 + Top = 4470 + Width = 1500 + Height = 180 + TabIndex = 26 + 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 = 12 + Left = 6675 + Top = 3660 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 11 + Left = 3990 + Top = 3660 + Width = 825 + Height = 300 + End + Begin Label lblTransitions + Caption = "On" + ForeColor = &HFF& + Left = 4695 + Top = 3690 + Width = 1500 + Height = 180 + TabIndex = 23 + 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 = 10 + Left = 6675 + Top = 2880 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 9 + Left = 3990 + Top = 2880 + Width = 825 + Height = 300 + End + Begin Label lblMouseConfig + Caption = "Configuration 1" + ForeColor = &HFF& + Left = 4695 + Top = 2910 + Width = 1500 + Height = 180 + TabIndex = 20 + 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 = 8 + Left = 3195 + Top = 5220 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 7 + Left = 510 + Top = 5220 + Width = 825 + Height = 300 + End + Begin Label lblShake + Caption = "On" + ForeColor = &HFF& + Left = 1215 + Top = 5250 + Width = 1500 + Height = 180 + TabIndex = 17 + 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 = 6 + Left = 3195 + Top = 4440 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 5 + Left = 510 + Top = 4440 + Width = 825 + Height = 300 + End + Begin Label lblParticles + Caption = "On" + ForeColor = &HFF& + Left = 1215 + Top = 4470 + Width = 1500 + Height = 180 + TabIndex = 14 + 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 = 4 + Left = 3195 + Top = 3660 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 3 + Left = 510 + Top = 3660 + Width = 825 + Height = 300 + End + Begin Label lblDebris + Caption = "On" + ForeColor = &HFF& + Left = 1215 + Top = 3690 + Width = 1500 + Height = 180 + TabIndex = 11 + 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 lblExplosions + Caption = "On" + ForeColor = &HFF& + Left = 1215 + Top = 2910 + Width = 1500 + Height = 180 + TabIndex = 7 + 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 = 510 + Top = 2880 + Width = 825 + Height = 300 + End + Begin Image arrowextender + Index = 2 + Left = 3195 + Top = 2880 + Width = 825 + Height = 300 + End +End + +Attribute VB_Name = "gameOptions" + + +Private Sub picAnim_Click() '8205E0 + Dim Me As Me + loc_0082062E: ecx = arg_C - 1 + loc_00820632: If arg_C - 1 <= 0 Then + loc_00820640: GoTo loc_[edx*4+008207D8h] + loc_00820650: global_886112 = Not (00886112h) + loc_00820656: GoTo loc_0082078F + loc_00820665: global_88610E = Not (0088610Eh) + loc_0082066C: GoTo loc_0082078F + loc_00820679: global_886114 = Not (00886114h) + loc_00820680: GoTo loc_0082078F + loc_0082068C: global_886110 = Not (00886110h) + loc_00820692: GoTo loc_0082078F + loc_008206AC: If Me.Caption = %StkVar1 = 0 Then + loc_008206B8: GoTo loc_0082078F + loc_008206C1: Me.Caption = %StkVar1 = Me.Caption = %StkVar1 + 0001h + loc_008206D3: If Me.Caption = %StkVar1+0001h > 0 Then + loc_008206DF: GoTo loc_0082078F + loc_008206EE: global_88611E = Not (0088611Eh) + loc_008206F5: GoTo loc_0082078F + loc_00820708: global_886120 = Not (00886120h) + loc_0082070F: If Not (00886120h) Then + loc_00820713: If Not (00886120h) <> 0 Then GoTo loc_0082078F + loc_00820715: var_eax = Proc_86F0B0(ebx, , ) + loc_00820721: GoTo loc_0082078F + loc_00820723: End If + loc_00820723: var_eax = Proc_84A1B0(, , ) + loc_00820728: GoTo loc_0082078F + loc_00820733: global_886116 = Not (00886116h) + loc_00820739: GoTo loc_0082078F + loc_00820743: global_886118 = Not (00886118h) + loc_0082074A: GoTo loc_0082078F + loc_00820756: global_886122 = Not (00886122h) + loc_0082075D: GoTo loc_0082078F + loc_0082075F: Not (00886116h) = Not (00886116h) - 0014h + loc_0082076C: var_18 = Not (00886116h) + loc_00820773: var_eax = gameOptions.btnButton_Click + loc_0082078F: + loc_0082078F: End If + loc_0082078F: End If + loc_0082078F: End If + loc_0082078F: var_eax = Proc_9_20_8476B0(var_18, , fs:[00000000h]) + loc_00820797: var_eax = gameOptions.displayInfo +End Sub + +Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '820830 + Dim var_28 As PictureBox + Dim var_48 As PictureBox + loc_008208BD: Button = picAnim._Default + loc_008208EC: var_18 = picAnim.Tag + loc_0082092E: Button = picAnim._Default + loc_00820952: var_1C = picAnim.Tag + loc_00820993: Button = picAnim._Default + loc_008209B3: var_20 = picAnim.Tag + loc_008209F1: Button = picAnim._Default + loc_00820A11: var_24 = picAnim.Tag + loc_00820A44: edi = (var_24 = "backa") + 1 + loc_00820A5A: eax = (var_20 = "oka") + 1 + loc_00820A6E: eax = (var_1C = "righta") + 1 + loc_00820A89: eax = (var_18 = "lefta") + 1 + loc_00820AD1: If (var_18 = "lefta") + 1 = 0 Then + loc_00820AFA: + loc_00820B07: If Err.Number Then + loc_00820B1F: var_A0 = Button + loc_00820B32: If Err.Number Then + loc_00820B6E: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820B8E: var_18 = picAnim.Tag + loc_00820BC0: edi = (var_18 = "left") + 1 + loc_00820BDF: If (var_18 = "left") + 1 Then + loc_00820C0D: var_A8 = var_28 + loc_00820C1E: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820C3F: picAnim.Tag = "lefta" + loc_00820C73: End If + loc_00820C8C: var_48 = var_28 + loc_00820CA2: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820CC2: var_18 = picAnim.Tag + loc_00820CF4: edi = (var_18 = "right") + 1 + loc_00820D13: If (var_18 = "right") + 1 Then + loc_00820D48: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820D69: picAnim.Tag = "righta" + loc_00820D9D: End If + loc_00820DB9: var_48 = var_28 + loc_00820DC5: var_B4 = var_28 + loc_00820DD6: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820DF6: var_18 = picAnim.Tag + loc_00820E28: edi = (var_18 = "ok") + 1 + loc_00820E47: If (var_18 = "ok") + 1 Then + loc_00820E7C: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820E9D: picAnim.Tag = "oka" + loc_00820ED1: End If + loc_00820EED: var_48 = var_28 + loc_00820EF9: var_BC = var_28 + loc_00820F0A: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820F2A: var_18 = picAnim.Tag + loc_00820F5C: edi = (var_18 = "cancel") + 1 + loc_00820F7B: If (var_18 = "cancel") + 1 Then + loc_00820FB0: CInt(6.37066138261923E-314) = picAnim._Default + loc_00820FD1: picAnim.Tag = "cancela" + loc_00821005: End If + loc_00821021: var_48 = var_28 + loc_0082102D: var_C4 = var_28 + loc_0082103E: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082105E: var_18 = picAnim.Tag + loc_00821090: edi = (var_18 = "reset") + 1 + loc_008210AF: If (var_18 = "reset") + 1 Then + loc_008210E4: CInt(6.37066138261923E-314) = picAnim._Default + loc_00821105: picAnim.Tag = "reseta" + loc_00821139: GoTo loc_008217DF + loc_0082113E: End If + loc_0082115A: var_48 = var_28 + loc_0082115D: var_CC = var_28 + loc_00821174: CInt(6.37066138261923E-314) = picAnim._Default + loc_00821194: var_18 = picAnim.Tag + loc_008211C6: edi = (var_18 = "lefta") + 1 + loc_008211E5: If (var_18 = "lefta") + 1 Then + loc_0082121A: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082123B: picAnim.Tag = "left" + loc_00821277: var_eax = gameOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_0082128F: End If + loc_008212BE: CInt(6.37066138261923E-314) = picAnim._Default + loc_008212DE: var_18 = picAnim.Tag + loc_00821310: edi = (var_18 = "righta") + 1 + loc_0082132F: If (var_18 = "righta") + 1 Then + loc_0082135D: var_D8 = var_28 + loc_0082136E: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082138F: picAnim.Tag = "right" + loc_008213CB: var_eax = gameOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_008213E3: End If + loc_008213FF: var_48 = var_28 + loc_0082140B: var_DC = var_28 + loc_0082141C: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082143C: var_18 = picAnim.Tag + loc_0082146E: edi = (var_18 = "oka") + 1 + loc_0082148D: If (var_18 = "oka") + 1 Then + loc_008214C2: CInt(6.37066138261923E-314) = picAnim._Default + loc_008214E3: picAnim.Tag = "ok" + loc_0082151F: var_eax = gameOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_00821537: End If + loc_00821566: CInt(6.37066138261923E-314) = picAnim._Default + loc_00821586: var_18 = picAnim.Tag + loc_008215B8: edi = (var_18 = "cancela") + 1 + loc_008215D7: If (var_18 = "cancela") + 1 Then + loc_00821605: var_E8 = var_28 + loc_00821616: CInt(6.37066138261923E-314) = picAnim._Default + loc_00821637: picAnim.Tag = "cancel" + loc_00821673: var_eax = gameOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_0082168B: End If + loc_008216A7: var_48 = var_28 + loc_008216B3: var_EC = var_28 + loc_008216C4: CInt(6.37066138261923E-314) = picAnim._Default + loc_008216E4: var_18 = picAnim.Tag + loc_00821716: edi = (var_18 = "reseta") + 1 + loc_00821735: If (var_18 = "reseta") + 1 Then + loc_0082176A: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082178B: picAnim.Tag = "reset" + loc_008217C7: var_eax = gameOptions.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_008217DF: + loc_008217DF: End If + loc_008217DF: End If + loc_008217F4: GoTo loc_00820AFA + loc_008217F9: End If + loc_008217F9: End If + loc_00821806: GoTo loc_0082184C + loc_0082184B: Exit Sub + loc_0082184C: 'Referenced from: 00821806 + loc_0082184C: Exit Sub +End Sub + +Private Sub btnButton_Click() '81FCA0 + Dim Me As Me + loc_0081FCEF: If arg_C <> 3 Then + loc_0081FCFE: GoTo loc_0081FDA5 + loc_0081FD03: End If + loc_0081FD09: var_eax = Close + loc_0081FD30: Open global_00886014 & "\fluxPrefs.cfg" For Random As #1 Len = 15 + loc_0081FD49: If LOF(1) = 0 Then + loc_0081FD4B: var_eax = Close + loc_0081FD4D: GoTo loc_0081FDA5 + loc_0081FD4F: End If + loc_0081FD4F: var_eax = Close + loc_0081FD62: var_20 = global_00886014 & "\fluxprefs.cfg" + loc_0081FD6D: var_eax = Kill 8 + loc_0081FD7C: var_eax = Proc_12_49_86ECB0(Close(), Me, @%StkVar2 & %x1) + loc_0081FD84: var_eax = gameOptions.displayInfo + loc_0081FDA0: var_eax = Proc_9_20_8476B0(, , ) + loc_0081FDA5: 'Referenced from: 0081FCFE + loc_0081FDB1: GoTo loc_0081FDC6 + loc_0081FDC5: Exit Sub + loc_0081FDC6: 'Referenced from: 0081FDB1 +End Sub + +Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '81FDF0 + loc_0081FE40: Button = Button + 0014h + loc_0081FE73: var_eax = gameOptions.picAnim_MouseMove(var_18, var_1C, var_20, var_24) +End Sub + +Private Sub tmrMainLoop_Timer() '821880 + Dim Me As Me + Dim var_2C As Timer + loc_008218EB: tmrMainLoop.Enabled = ebx + loc_00821913: var_eax = gameOptions.drawDefaultPics + loc_00821935: var_eax = Proc_86B860(var_2C, Me, Me) + loc_0082193A: + loc_0082193E: var_eax = QueryPerformanceCounter(var_24) + loc_00821950: + loc_0082195E: If 00000001h <= 4 Then + loc_00821975: var_eax = Proc_10_11_84A820(var_2C, var_2C, 4) + loc_00821986: 00000001h = 00000001h + 00000001h + loc_00821991: GoTo loc_00821950 + loc_008219A8: var_eax = Proc_12_46_86D7E0(var_2C, var_2C, 00000001h+00000001h) + loc_008219BB: If esi+00000036h Then + loc_008219C0: var_eax = gameOptions.drawAnimations + loc_008219DC: End If + loc_008219E0: var_eax = QueryPerformanceCounter(var_1C) + loc_008219FB: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, 00000001h+00000001h, Me, 00000001h) + loc_00821A03: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, 00000001h+00000001h, Me, 00000001h), var_1C) + loc_00821A19: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00821A26: If global_886000 = 0 Then + loc_00821A28: fdivr st0, 008860DCh + loc_00821A2B: GoTo loc_00821A38 + loc_00821A2D: End If + loc_00821A38: 'Referenced from: 00821A2B + loc_00821A38: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00821A5B: If Err.Number Then + loc_00821A5D: global_8860D4 = 3DCCCCCDh + loc_00821A67: End If + loc_00821A6C: If esi+00000038h = 0 Then GoTo loc_0082193A + loc_00821A79: var_eax = gameOptions.Proc_2_21_81F8A0(Me, Me(18)) + loc_00821A8C: GoTo loc_00821A98 + loc_00821A97: Exit Sub + loc_00821A98: 'Referenced from: 00821A8C + loc_00821A98: Exit Sub +End Sub + +Private Sub arrowExtender_Click() '81FAB0 + loc_0081FB1F: arg_C = picAnim._Default + loc_0081FB4D: var_20 = picAnim.Visible + loc_0081FB80: If var_20 Then + loc_0081FB89: var_eax = gameOptions.picAnim_Click + loc_0081FBA1: End If + loc_0081FBAD: GoTo loc_0081FBC3 + loc_0081FBC2: Exit Sub + loc_0081FBC3: 'Referenced from: 0081FBAD +End Sub + +Private Sub arrowExtender_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '81FBF0 + loc_0081FC61: var_eax = gameOptions.picAnim_MouseMove(Button, var_18, var_1C, var_20) +End Sub + +Private Sub Form_Load() '820030 + Dim var_18 As Screen + Dim var_1C As Screen + loc_008200B4: var_18 = Global.Screen + loc_008200E2: var_64 = Global.Width + loc_00820122: var_1C = Global.Screen + loc_00820142: var_68 = Global.Height + loc_008201B5: var_eax = Unknown_VTable_Call[edi+000002A4h] + loc_00820205: var_eax = Proc_12_45_86D280(var_18, var_18, Unknown_VTable_Call[edi+000002A4h]) + loc_00820216: var_eax = gameOptions.positionControls + loc_00820249: var_eax = Proc_12_43_86D100(var_2C, var_18, var_18) + loc_00820297: var_eax = Proc_12_47_86E570(var_18, var_18, global_0088686C) + loc_008202C3: var_eax = Proc_12_25_868460(4, global_0088686C, var_18) + loc_008202CB: var_eax = gameOptions.resetHighLights + loc_008202F4: var_eax = gameOptions.defineMouseConfigs + loc_0082030F: var_eax = gameOptions.displayInfo + loc_00820334: GoTo loc_00820353 + loc_00820352: Exit Sub + loc_00820353: 'Referenced from: 00820334 +End Sub + +Private Sub Form_Unload(Cancel As Integer) '820520 + loc_00820587: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18) + loc_008205A6: GoTo loc_008205BB + loc_008205BA: Exit Sub + loc_008205BB: 'Referenced from: 008205A6 +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '81FEC0 + Dim Me As Me + loc_0081FF0F: If KeyCode = 123 Then + loc_0081FF11: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_0081FF16: GoTo loc_0081FF68 + loc_0081FF18: End If + loc_0081FF1C: If Proc_12_18_864A90(edi, Me, ebx) = 0 Then + loc_0081FF2C: var_eax = gameOptions.btnButton_Click + loc_0081FF34: If gameOptions.btnButton_Click >= 0 Then GoTo loc_0081FF68 + loc_0081FF36: GoTo loc_0081FF56 + loc_0081FF38: End If + loc_0081FF3C: If gameOptions.btnButton_Click <> 27 Then GoTo loc_0081FF68 + loc_0081FF4C: var_eax = gameOptions.btnButton_Click + loc_0081FF54: If gameOptions.btnButton_Click >= 0 Then GoTo loc_0081FF68 + loc_0081FF56: 'Referenced from: 0081FF36 + loc_0081FF62: gameOptions.btnButton_Click = CheckObj(Me, global_0040E670, 1832) + loc_0081FF68: 'Referenced from: 0081FF16 +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) '81FF90 + loc_0081FFDC: If KeyAscii = 13 Then + loc_0081FFEC: var_eax = gameOptions.btnButton_Click + loc_00820008: End If +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '820490 + loc_008204D3: var_eax = gameOptions.highLightCheck +End Sub + +Public Sub positionControls() '81D190 + Dim var_54 As Label + Dim var_20 As Variant + Dim var_1C As Variant + loc_0081D204: var_9C = stk@FF08 + loc_0081D269: var_eax = lblMouse1.Move global_43F30000, 2, var_2C, 176 + loc_0081D2AC: var_A4 = var_1C + loc_0081D31B: var_eax = lblMouse2.Move global_44068000, 2, var_2C, 176 + loc_0081D35E: var_A8 = var_1C + loc_0081D36B: var_54 = var_1C + loc_0081D3D7: var_eax = lblMouse3.Move global_44128000, 2, var_2C + loc_0081D411: If var_18 <= 3 Then + loc_0081D439: var_18 = btnButton._Default + loc_0081D4BC: var_eax = btnButton.Move 0, 2, var_2C, 445 + loc_0081D4F5: 00000001h = 00000001h + var_18 + loc_0081D4FF: var_18 = 00000001h+var_18 + loc_0081D502: var_eax = Unknown_F08F(var_24, 00000002h, var_3C, 00000050h, var_34, 00000002h) + loc_0081D507: End If + loc_0081D527: 3 = btnButton._Default + loc_0081D550: btnButton.Left = global_42680000 + loc_0081D59E: 1 = btnButton._Default + loc_0081D5C7: btnButton.Left = global_43E80000 + loc_0081D615: 2 = btnButton._Default + loc_0081D63E: btnButton.Left = global_440A0000 + loc_0081D67C: If var_18 <= 23 Then + loc_0081D6A4: var_18 = picAnim._Default + loc_0081D72A: var_eax = picAnim.Move global_40800000, 2, var_2C, 3 + loc_0081D763: 00000001h = 00000001h + var_18 + loc_0081D76D: var_18 = 00000001h+var_18 + loc_0081D770: var_eax = Unknown_F38F(var_24, 00000002h, var_3C, 00000019h, var_34, 00000002h) + loc_0081D775: End If + loc_0081D78E: var_AC = var_1C + loc_0081D7FD: var_eax = lblExplosions.Move global_42A20000, 2, var_2C, 194 + loc_0081D840: var_B0 = var_1C + loc_0081D8AF: var_eax = lblMouseConfig.Move global_439C8000, 2, var_2C, 193 + loc_0081D8F2: var_B4 = var_1C + loc_0081D961: var_eax = lblDebris.Move global_42A20000, 2, var_2C, 246 + loc_0081D9A4: var_B8 = var_1C + loc_0081D9B1: var_54 = var_1C + loc_0081DA18: var_eax = lblTransitions.Move global_439C8000, 2, var_2C + loc_0081DACA: var_eax = lblParticles.Move global_42A20000, 2, var_2C, 298 + loc_0081DB0D: var_C0 = var_1C + loc_0081DB1A: var_54 = var_1C + loc_0081DB81: var_eax = lblTitleMusic.Move global_439C8000, 2, var_2C + loc_0081DC33: var_eax = lblShake.Move global_42A20000, 2, var_2C, 350 + loc_0081DC76: var_C8 = var_1C + loc_0081DC83: var_54 = var_1C + loc_0081DCEA: var_eax = lblFlash.Move global_439C8000, 2, var_2C + loc_0081DD9C: var_eax = lblAllowBombOverlay.Move global_42A20000, 2, var_2C, 402 + loc_0081DDDF: var_D0 = var_1C + loc_0081DE53: var_eax = lblAllowSFX.Move global_439C8000, 2, var_2C + loc_0081DE8E: + loc_0081DE9D: If var_18 <= 20 Then + loc_0081DEC0: var_18 = picAnim._Default + loc_0081DEE1: picAnim.Width = global_41200000 + loc_0081DF2F: var_18 = picAnim._Default + loc_0081DF50: picAnim.Height = global_41600000 + loc_0081DF9E: var_18 = arrowextender._Default + loc_0081DFBF: arrowextender.Width = global_425C0000 + loc_0081E007: var_18 = arrowextender._Default + loc_0081E028: arrowextender.Height = global_41A00000 + loc_0081E054: 00000001h = 00000001h + var_18 + loc_0081E05E: var_18 = 00000001h+var_18 + loc_0081E061: GoTo loc_0081DE8E + loc_0081E066: End If + loc_0081E06E: + loc_0081E076: If 00000001h <= 8 Then + loc_0081E07F: eax = 00000001h - 1 + loc_0081E083: If 00000001h - 1 <= 0 Then + loc_0081E089: GoTo loc_[eax*4+0081F858h] + loc_0081E0B1: var_18 = picAnim._Default + loc_0081E0D2: picAnim.Left = global_427C0000 + loc_0081E11A: var_18 = arrowextender._Default + loc_0081E13B: arrowextender.Left = global_42080000 + loc_0081E142: If var_20 < 0 Then + loc_0081E148: GoTo loc_0081E201 + loc_0081E16E: var_18 = picAnim._Default + loc_0081E18F: picAnim.Left = global_43670000 + loc_0081E1D7: var_18 = arrowextender._Default + loc_0081E1F8: arrowextender.Left = global_43550000 + loc_0081E1FF: If var_20 < 0 Then + loc_0081E201: 'Referenced from: 0081E148 + loc_0081E20A: var_20 = CheckObj(var_20, global_0040DC50, 100) + loc_0081E20C: End If + loc_0081E20C: End If + loc_0081E21F: End If + loc_0081E22A: 00000001h = 00000001h + var_18 + loc_0081E234: var_18 = 00000001h+var_18 + loc_0081E237: GoTo loc_0081E06E + loc_0081E23C: End If + loc_0081E255: var_54 = 00000001h+var_18 + loc_0081E258: 17 = picAnim._Default + loc_0081E27D: picAnim.Left = global_427C0000 + loc_0081E2C3: 17 = arrowextender._Default + loc_0081E2E8: arrowextender.Left = global_42080000 + loc_0081E32E: 18 = picAnim._Default + loc_0081E353: picAnim.Left = global_43670000 + loc_0081E399: 18 = arrowextender._Default + loc_0081E3BE: arrowextender.Left = global_43550000 + loc_0081E3F0: + loc_0081E3F8: If 00000009h <= 16 Then + loc_0081E401: 00000009h = 00000009h + FFFFFFF7h + loc_0081E407: If 00000009h+FFFFFFF7h <= 7 Then + loc_0081E40D: GoTo loc_[eax*4+0081F878h] + loc_0081E435: var_18 = picAnim._Default + loc_0081E456: picAnim.Left = global_43930000 + loc_0081E49E: var_18 = arrowextender._Default + loc_0081E4BF: arrowextender.Left = global_43850000 + loc_0081E4C6: If var_20 < 0 Then + loc_0081E4CC: GoTo loc_0081E585 + loc_0081E4F2: var_18 = picAnim._Default + loc_0081E513: picAnim.Left = global_43E78000 + loc_0081E55B: var_18 = arrowextender._Default + loc_0081E57C: arrowextender.Left = global_43DE8000 + loc_0081E583: If var_20 < 0 Then + loc_0081E585: 'Referenced from: 0081E4CC + loc_0081E58E: var_20 = CheckObj(var_20, global_0040DC50, 100) + loc_0081E590: End If + loc_0081E590: End If + loc_0081E5A3: End If + loc_0081E5AE: 00000001h = 00000001h + var_18 + loc_0081E5B8: var_18 = 00000001h+var_18 + loc_0081E5BB: GoTo loc_0081E3F0 + loc_0081E5C0: End If + loc_0081E5D9: var_54 = 00000001h+var_18 + loc_0081E5DC: 19 = picAnim._Default + loc_0081E601: picAnim.Left = global_43930000 + loc_0081E647: 19 = arrowextender._Default + loc_0081E66C: arrowextender.Left = global_43850000 + loc_0081E6B2: 20 = picAnim._Default + loc_0081E6D7: picAnim.Left = global_43E78000 + loc_0081E71D: 20 = arrowextender._Default + loc_0081E742: arrowextender.Left = global_43DE8000 + loc_0081E788: 1 = arrowextender._Default + loc_0081E7AD: arrowextender.Top = global_43400000 + loc_0081E7F3: 1 = picAnim._Default + loc_0081E818: picAnim.Top = global_43420000 + loc_0081E85E: 2 = arrowextender._Default + loc_0081E883: arrowextender.Top = global_43400000 + loc_0081E8C9: 2 = picAnim._Default + loc_0081E8EE: picAnim.Top = global_43420000 + loc_0081E934: 9 = arrowextender._Default + loc_0081E959: arrowextender.Top = global_43400000 + loc_0081E99F: 9 = picAnim._Default + loc_0081E9C4: picAnim.Top = global_43420000 + loc_0081EA0A: 10 = arrowextender._Default + loc_0081EA2F: arrowextender.Top = global_43400000 + loc_0081EA75: 10 = picAnim._Default + loc_0081EA9A: picAnim.Top = global_43420000 + loc_0081EAE0: 3 = arrowextender._Default + loc_0081EB05: arrowextender.Top = global_43740000 + loc_0081EB4B: 3 = picAnim._Default + loc_0081EB70: picAnim.Top = global_43760000 + loc_0081EBB6: 4 = arrowextender._Default + loc_0081EBDB: arrowextender.Top = global_43740000 + loc_0081EC21: 4 = picAnim._Default + loc_0081EC46: picAnim.Top = global_43760000 + loc_0081EC8C: 11 = arrowextender._Default + loc_0081ECB1: arrowextender.Top = global_43740000 + loc_0081ECF7: 11 = picAnim._Default + loc_0081ED1C: picAnim.Top = global_43760000 + loc_0081ED62: 12 = arrowextender._Default + loc_0081ED87: arrowextender.Top = global_43740000 + loc_0081EDCD: 12 = picAnim._Default + loc_0081EDF2: picAnim.Top = global_43760000 + loc_0081EE38: 5 = arrowextender._Default + loc_0081EE5D: arrowextender.Top = global_43940000 + loc_0081EEA3: 5 = picAnim._Default + loc_0081EEC8: picAnim.Top = global_43950000 + loc_0081EF0E: 6 = arrowextender._Default + loc_0081EF33: arrowextender.Top = global_43940000 + loc_0081EF79: 6 = picAnim._Default + loc_0081EF9E: picAnim.Top = global_43950000 + loc_0081EFE4: 13 = arrowextender._Default + loc_0081F009: arrowextender.Top = global_43940000 + loc_0081F04F: 13 = picAnim._Default + loc_0081F074: picAnim.Top = global_43950000 + loc_0081F0BA: 14 = arrowextender._Default + loc_0081F0DF: arrowextender.Top = global_43940000 + loc_0081F125: 14 = picAnim._Default + loc_0081F14A: picAnim.Top = global_43950000 + loc_0081F190: 7 = arrowextender._Default + loc_0081F1B5: arrowextender.Top = global_43AE0000 + loc_0081F1FB: 7 = picAnim._Default + loc_0081F220: picAnim.Top = global_43AF0000 + loc_0081F266: 8 = arrowextender._Default + loc_0081F28B: arrowextender.Top = global_43AE0000 + loc_0081F2D1: 8 = picAnim._Default + loc_0081F2F6: picAnim.Top = global_43AF0000 + loc_0081F33C: 15 = arrowextender._Default + loc_0081F361: arrowextender.Top = global_43AE0000 + loc_0081F3A7: 15 = picAnim._Default + loc_0081F3CC: picAnim.Top = global_43AF0000 + loc_0081F412: 16 = arrowextender._Default + loc_0081F437: arrowextender.Top = global_43AE0000 + loc_0081F47D: 16 = picAnim._Default + loc_0081F4A2: picAnim.Top = global_43AF0000 + loc_0081F4E8: 17 = arrowextender._Default + loc_0081F50D: arrowextender.Top = global_43C80000 + loc_0081F553: 17 = picAnim._Default + loc_0081F578: picAnim.Top = global_43C90000 + loc_0081F5BE: 18 = arrowextender._Default + loc_0081F5E3: arrowextender.Top = global_43C80000 + loc_0081F629: 18 = picAnim._Default + loc_0081F64E: picAnim.Top = global_43C90000 + loc_0081F694: 19 = arrowextender._Default + loc_0081F6B9: arrowextender.Top = global_43C80000 + loc_0081F6FF: 19 = picAnim._Default + loc_0081F724: picAnim.Top = global_43C90000 + loc_0081F76A: 20 = arrowextender._Default + loc_0081F78F: arrowextender.Top = global_43C80000 + loc_0081F7D4: 20 = picAnim._Default + loc_0081F7F5: picAnim.Top = global_43C90000 + loc_0081F822: GoTo loc_0081F838 + loc_0081F837: Exit Sub + loc_0081F838: 'Referenced from: 0081F822 + loc_0081F838: Exit Sub +End Sub + +Public Sub resetHighLights() '820380 + loc_008203C2: var_eax = gameOptions.drawDefaultPics +End Sub + +Public Sub highLightCheck() '820400 + Dim Me As Me + loc_0082043E: If Me.SaveProp 'Ignore this = 0 Then + loc_00820445: If esi+00000036h = 0 Then GoTo loc_00820466 + loc_00820447: End If + loc_0082044A: var_eax = gameOptions.resetHighLights + loc_00820466: +End Sub + +Public Sub drawDefaultPic(X) '821AD0 + loc_00821B34: X = picAnim._Default + loc_00821B6F: var_eax = gameOptions.drawFrame(var_20, var_24) + loc_00821BA3: GoTo loc_00821BBD + loc_00821BBC: Exit Sub + loc_00821BBD: 'Referenced from: 00821BA3 +End Sub + +Public Sub drawFrame(pic, frame) '821BE0 + Dim Me As Me + loc_00821C3B: var_18 = Me.Visible + loc_00821C62: var_3C = var_18 + loc_00821C7B: If (var_3C = "left") Then + loc_00821C8E: If (var_3C = "lefta") Then + loc_00821CA1: If (var_3C = "right") Then + loc_00821CB4: If (var_3C = "righta") Then + loc_00821CC7: If (var_3C = "cancel") Then + loc_00821CDA: If (var_3C = "cancela") Then + loc_00821CED: If (var_3C = "ok") Then + loc_00821D00: If (var_3C = "oka") Then + loc_00821D13: If (var_3C = "reset") Then + loc_00821D22: If (var_3C <> "reseta") <> 0 Then GoTo loc_00822133 + loc_00821D28: End If + loc_00821D49: var_eax = Unknown_VTable_Call[edx+00000334h] + loc_00821DC4: frame = frame - 0001h + loc_00821DD0: frame = frame * 0019h + loc_00821DE9: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_00821DF6: GoTo loc_00822111 + loc_00821DFB: End If + loc_00821DFB: End If + loc_00821E1C: var_eax = Unknown_VTable_Call[ecx+00000330h] + loc_00821E82: frame = frame - 0001h + loc_00821E90: frame = frame * 0019h + loc_00821E94: GoTo loc_008220F1 + loc_00821E99: End If + loc_00821E99: End If + loc_00821EBA: var_eax = Unknown_VTable_Call[ecx+00000334h] + loc_00821F35: frame = frame - 0001h + loc_00821F41: frame = frame * 0019h + loc_00821F5A: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_00821F7E: GoTo loc_00822128 + loc_00821F83: End If + loc_00821F83: End If + loc_00821FA4: var_eax = Unknown_VTable_Call[edx+00000338h] + loc_0082200A: frame = frame - 0001h + loc_00822016: frame = frame * 000Ah + loc_0082202F: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_00822053: GoTo loc_00822128 + loc_00822058: End If + loc_00822058: End If + loc_00822079: var_eax = Unknown_VTable_Call[ecx+0000033Ch] + loc_008220DF: frame = frame - 0001h + loc_008220ED: frame = frame * 000Ah + loc_00822104: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_00822111: 'Referenced from: 00821DF6 + loc_00822128: 'Referenced from: 00821F7E + loc_00822133: + loc_00822138: GoTo loc_0082215F + loc_0082215E: Exit Sub + loc_0082215F: 'Referenced from: 00822138 + loc_00822168: Exit Sub +End Sub + +Public Sub drawAnimations() '822190 + Dim Me As Variant + Dim var_30 As PictureBox + Dim var_34 As PictureBox + loc_00822230: If global_886000 = 0 Then + loc_00822235: GoTo loc_0082223F + loc_00822237: End If + loc_0082223A: call _adj_fdiv_m32(%x1 = Me.Name) + loc_0082223F: 'Referenced from: 00822235 + loc_0082225F: var_C0 = var_BC + loc_0082229C: If edi+0000004Ch <= 23 Then + loc_008222C4: Me(20) = picAnim._Default + loc_008222E4: var_18 = picAnim.Tag + loc_00822320: Me(20) = picAnim._Default + loc_00822340: var_1C = picAnim.Tag + loc_0082237C: Me(20) = picAnim._Default + loc_0082239C: var_20 = picAnim.Tag + loc_008223D8: Me(20) = picAnim._Default + loc_008223F8: var_24 = picAnim.Tag + loc_00822434: Me(20) = picAnim._Default + loc_00822454: var_28 = picAnim.Tag + loc_00822487: esi = (var_28 = "reseta") + 1 + loc_0082249D: eax = (var_24 = "oka") + 1 + loc_008224B5: eax = (var_20 = "cancela") + 1 + loc_008224C9: eax = (var_1C = "righta") + 1 + loc_008224E4: eax = (var_18 = "lefta") + 1 + loc_00822538: If (var_18 = "lefta") + 1 Then + loc_00822560: Me(20) = picAnim._Default + loc_00822594: var_eax = gameOptions.drawFrame(var_34, Me(18)) + loc_008225BF: End If + loc_008225C8: Me(20) = Me(20) + 00000001h + loc_008225D5: var_eax = Unknown_3388F(var_34, var_30, var_30) + loc_008225DA: End If + loc_008225DA: End If + loc_008225DF: If edi+00000046h > 39 Then + loc_008225E7: End If + loc_008225ED: GoTo loc_0082263F + loc_0082263E: Exit Sub + loc_0082263F: 'Referenced from: 008225ED + loc_0082263F: Exit Sub +End Sub + +Public Sub drawDefaultPics() '822670 + Dim Me As Variant + Dim var_44 As Me + Dim var_28 As PictureBox + Dim var_20 As Variant + Dim var_4C As Me + loc_008226DB: 1 = btnButton._Default + loc_00822707: var_44 = var_28 + loc_00822724: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0082273E: var_20 = buttons.hWnd + loc_00822773: buttons.BackColor = var_2C + loc_008227C1: 2 = btnButton._Default + loc_008227DF: var_44 = var_28 + loc_008227FC: var_eax = Unknown_VTable_Call[edx+00000344h] + loc_00822816: var_20 = buttons.hWnd + loc_00822844: var_74 = var_44 + loc_0082284F: buttons.BackColor = var_20 + loc_0082289D: 3 = btnButton._Default + loc_008228B4: var_4C = var_2C + loc_008228D8: var_eax = Unknown_VTable_Call[ecx+00000308h] + loc_00822914: var_24 = buttons.BackColor + loc_00822949: buttons.BackColor = var_30 + loc_00822982: + loc_0082298E: If Me(20) <= 23 Then + loc_00822998: var_eax = gameOptions.drawDefaultPic(Me(20)) + loc_008229D2: Me(20) = picAnim._Default + loc_008229F2: var_18 = picAnim.Tag + loc_00822A24: edi = (var_18 = "lefta") + 1 + loc_00822A43: If (var_18 = "lefta") + 1 Then + loc_00822A67: Me(20) = picAnim._Default + loc_00822A88: picAnim.Tag = "left" + loc_00822AB5: End If + loc_00822AD7: Me(20) = picAnim._Default + loc_00822AF7: var_18 = picAnim.Tag + loc_00822B29: edi = (var_18 = "righta") + 1 + loc_00822B48: If (var_18 = "righta") + 1 Then + loc_00822B6C: Me(20) = picAnim._Default + loc_00822B8D: picAnim.Tag = "right" + loc_00822BBA: End If + loc_00822BDC: Me(20) = picAnim._Default + loc_00822BFC: var_18 = picAnim.Tag + loc_00822C2E: edi = (var_18 = "oka") + 1 + loc_00822C4D: If (var_18 = "oka") + 1 Then + loc_00822C71: Me(20) = picAnim._Default + loc_00822C92: picAnim.Tag = "ok" + loc_00822CBF: End If + loc_00822CE1: Me(20) = picAnim._Default + loc_00822D01: var_18 = picAnim.Tag + loc_00822D33: edi = (var_18 = "cancela") + 1 + loc_00822D52: If (var_18 = "cancela") + 1 Then + loc_00822D76: Me(20) = picAnim._Default + loc_00822D97: picAnim.Tag = "cancel" + loc_00822DC4: End If + loc_00822DE6: Me(20) = picAnim._Default + loc_00822E06: var_18 = picAnim.Tag + loc_00822E38: edi = (var_18 = "reseta") + 1 + loc_00822E57: If (var_18 = "reseta") + 1 Then + loc_00822E7B: Me(20) = picAnim._Default + loc_00822E9C: picAnim.Tag = "reset" + loc_00822EC9: End If + loc_00822ED2: Me(20) = Me(20) + 00000001h + loc_00822EDB: GoTo loc_00822982 + loc_00822EE0: End If + loc_00822EEB: GoTo loc_00822F1A + loc_00822F19: Exit Sub + loc_00822F1A: 'Referenced from: 00822EEB + loc_00822F1A: Exit Sub +End Sub + +Public Sub displayInfo() '822F40 + Dim Me As Variant + Dim var_24 As Label + loc_00822F90: If global_886112 Then + loc_00822FAF: lblExplosions.Caption = "On" + loc_00822FB6: If Me >= 0 Then GoTo loc_00822FEF + loc_00822FB8: GoTo loc_00822FE0 + loc_00822FD7: lblExplosions.Caption = "Off" + loc_00822FDE: If Me >= 0 Then GoTo loc_00822FEF + loc_00822FE0: 'Referenced from: 00822FB8 + loc_00822FE9: Me = CheckObj(Me, global_0040E84C, 84) + loc_00822FEF: + loc_00823003: If global_88610E Then + loc_0082301C: lblDebris.Caption = "On" + loc_00823023: If Me >= 0 Then GoTo loc_00823056 + loc_00823025: GoTo loc_00823047 + loc_0082303E: lblDebris.Caption = "Off" + loc_00823045: If Me >= 0 Then GoTo loc_00823056 + loc_00823047: 'Referenced from: 00823025 + loc_00823050: Me = CheckObj(Me, global_0040E84C, 84) + loc_00823056: + loc_0082306A: If global_886114 Then + loc_00823083: lblParticles.Caption = "On" + loc_0082308A: If Me >= 0 Then GoTo loc_008230BD + loc_0082308C: GoTo loc_008230AE + loc_008230A5: lblParticles.Caption = "Off" + loc_008230AC: If Me >= 0 Then GoTo loc_008230BD + loc_008230AE: 'Referenced from: 0082308C + loc_008230B7: Me = CheckObj(Me, global_0040E84C, 84) + loc_008230BD: + loc_008230D1: If global_886110 Then + loc_008230EA: lblShake.Caption = "On" + loc_008230F1: If Me >= 0 Then GoTo loc_00823124 + loc_008230F3: GoTo loc_00823115 + loc_0082310C: lblShake.Caption = "Off" + loc_00823113: If Me >= 0 Then GoTo loc_00823124 + loc_00823115: 'Referenced from: 008230F3 + loc_0082311E: Me = CheckObj(Me, global_0040E84C, 84) + loc_00823124: + loc_00823138: If global_886122 Then + loc_00823151: lblAllowSFX.Caption = "On" + loc_00823158: If Me >= 0 Then GoTo loc_0082318B + loc_0082315A: GoTo loc_0082317C + loc_00823173: lblAllowSFX.Caption = "Off" + loc_0082317A: If Me >= 0 Then GoTo loc_0082318B + loc_0082317C: 'Referenced from: 0082315A + loc_00823185: Me = CheckObj(Me, global_0040E84C, 84) + loc_0082318B: + loc_0082319F: If global_886118 Then + loc_008231B8: lblAllowBombOverlay.Caption = "On" + loc_008231BF: If Me >= 0 Then GoTo loc_008231F2 + loc_008231C1: GoTo loc_008231E3 + loc_008231DA: lblAllowBombOverlay.Caption = "Off" + loc_008231E1: If Me >= 0 Then GoTo loc_008231F2 + loc_008231E3: 'Referenced from: 008231C1 + loc_008231EC: Me = CheckObj(Me, global_0040E84C, 84) + loc_008231F2: + loc_00823215: var_2C = lblMouseConfig.Caption = %StkVar1 + loc_00823255: var_20 = Me & Trim$(Str$(lblMouseConfig.Caption = "Configuration ")) + loc_00823262: lblMouseConfig.Caption = var_20 + loc_0082329F: If %x1 = lblMouseConfig.Caption Then + loc_008232A5: If %x1 = lblMouseConfig.Caption = 0 Then + loc_008232B1: lblMouseConfig.Caption = %StkVar1 = lblMouseConfig.Caption = %StkVar1 - eax+00000014h + loc_008232B5: If lblMouseConfig.Caption = %StkVar1 >= 0 Then + loc_008232B7: var_eax = Err.Raise + loc_008232BD: End If + loc_008232C2: GoTo loc_008232CA + loc_008232C4: End If + loc_008232C4: End If + loc_008232C4: var_eax = Err.Raise + loc_008232CA: 'Referenced from: 008232C2 + loc_008232D5: If edx+eax = 1 Then + loc_008232F1: lblMouse1.Caption = "Select" + loc_008232F8: If Me >= 0 Then GoTo loc_00823392 + loc_008232FE: GoTo loc_00823383 + loc_00823303: End If + loc_00823305: If var_24 Then + loc_0082330B: If var_24 = 1 Then + loc_00823317: lblMouse1.Caption = %StkVar1 = lblMouse1.Caption = %StkVar1 - var_24(6) + loc_0082331B: If lblMouse1.Caption = %StkVar1 >= 0 Then + loc_0082331D: var_eax = Err.Raise + loc_00823323: End If + loc_00823328: GoTo loc_00823330 + loc_0082332A: End If + loc_0082332A: End If + loc_0082332A: var_eax = Err.Raise + loc_00823330: 'Referenced from: 00823328 + loc_0082333F: If edx+eax+00000002h = 1 Then + loc_00823358: lblMouse1.Caption = "Destroy" + loc_0082335F: If Me >= 0 Then GoTo loc_00823392 + loc_00823361: GoTo loc_00823383 + loc_0082337A: lblMouse1.Caption = "Scroll" + loc_00823381: If Me >= 0 Then GoTo loc_00823392 + loc_00823383: 'Referenced from: 008232FE + loc_0082338C: Me = CheckObj(Me, global_0040E84C, 84) + loc_00823392: + loc_008233A0: If %x1 = lblMouse1.Caption Then + loc_008233A6: If %x1 = lblMouse1.Caption = 0 Then + loc_008233B2: lblMouse1.Caption = %StkVar1 = lblMouse1.Caption = %StkVar1 - eax+00000014h + loc_008233B6: If lblMouse1.Caption = %StkVar1 >= 0 Then + loc_008233B8: var_eax = Err.Raise + loc_008233BE: End If + loc_008233C3: GoTo loc_008233CB + loc_008233C5: End If + loc_008233C5: End If + loc_008233C5: var_eax = Err.Raise + loc_008233CB: 'Referenced from: 008233C3 + loc_008233D6: If edx+eax = 4 Then + loc_008233F2: lblMouse2.Caption = "Select" + loc_008233F9: If Me >= 0 Then GoTo loc_00823493 + loc_008233FF: GoTo loc_00823484 + loc_00823404: End If + loc_00823406: If var_24 Then + loc_0082340C: If var_24 = 1 Then + loc_00823418: lblMouse2.Caption = %StkVar1 = lblMouse2.Caption = %StkVar1 - var_24(6) + loc_0082341C: If lblMouse2.Caption = %StkVar1 >= 0 Then + loc_0082341E: var_eax = Err.Raise + loc_00823424: End If + loc_00823429: GoTo loc_00823431 + loc_0082342B: End If + loc_0082342B: End If + loc_0082342B: var_eax = Err.Raise + loc_00823431: 'Referenced from: 00823429 + loc_00823440: If edx+eax+00000002h = 4 Then + loc_00823459: lblMouse2.Caption = "Destroy" + loc_00823460: If Me >= 0 Then GoTo loc_00823493 + loc_00823462: GoTo loc_00823484 + loc_0082347B: lblMouse2.Caption = "Scroll" + loc_00823482: If Me >= 0 Then GoTo loc_00823493 + loc_00823484: 'Referenced from: 008233FF + loc_0082348D: Me = CheckObj(Me, global_0040E84C, 84) + loc_00823493: + loc_008234A1: If %x1 = lblMouse2.Caption Then + loc_008234A7: If %x1 = lblMouse2.Caption = 0 Then + loc_008234B3: lblMouse2.Caption = %StkVar1 = lblMouse2.Caption = %StkVar1 - eax+00000014h + loc_008234B7: If lblMouse2.Caption = %StkVar1 >= 0 Then + loc_008234B9: var_eax = Err.Raise + loc_008234BF: End If + loc_008234C4: GoTo loc_008234CC + loc_008234C6: End If + loc_008234C6: End If + loc_008234C6: var_eax = Err.Raise + loc_008234CC: 'Referenced from: 008234C4 + loc_008234D7: If edx+eax = 2 Then + loc_008234F3: lblMouse3.Caption = "Select" + loc_008234FA: If Me >= 0 Then GoTo loc_00823594 + loc_00823500: GoTo loc_00823585 + loc_00823505: End If + loc_00823507: If var_24 Then + loc_0082350D: If var_24 = 1 Then + loc_00823519: lblMouse3.Caption = %StkVar1 = lblMouse3.Caption = %StkVar1 - var_24(6) + loc_0082351D: If lblMouse3.Caption = %StkVar1 >= 0 Then + loc_0082351F: var_eax = Err.Raise + loc_00823525: End If + loc_0082352A: GoTo loc_00823532 + loc_0082352C: End If + loc_0082352C: End If + loc_0082352C: var_eax = Err.Raise + loc_00823532: 'Referenced from: 0082352A + loc_00823541: If edx+eax+00000002h = 2 Then + loc_0082355A: lblMouse3.Caption = "Destroy" + loc_00823561: If Me >= 0 Then GoTo loc_00823594 + loc_00823563: GoTo loc_00823585 + loc_0082357C: lblMouse3.Caption = "Scroll" + loc_00823583: If Me >= 0 Then GoTo loc_00823594 + loc_00823585: 'Referenced from: 00823500 + loc_0082358E: Me = CheckObj(Me, global_0040E84C, 84) + loc_00823594: + loc_008235A8: If global_88611E = var_FFFFFF Then + loc_008235C1: lblTransitions.Caption = "On" + loc_008235C8: If Me >= 0 Then GoTo loc_008235FB + loc_008235CA: GoTo loc_008235EC + loc_008235E3: lblTransitions.Caption = "Off" + loc_008235EA: If Me >= 0 Then GoTo loc_008235FB + loc_008235EC: 'Referenced from: 008235CA + loc_008235F5: Me = CheckObj(Me, global_0040E84C, 84) + loc_008235FB: + loc_0082360F: If global_886120 = var_FFFFFF Then + loc_00823628: lblTitleMusic.Caption = "On" + loc_0082364B: GoTo loc_0082368B + loc_00823664: lblTitleMusic.Caption = "Off" + loc_0082368B: 'Referenced from: 0082364B + loc_00823696: If global_886116 = var_FFFFFF Then + loc_008236AF: lblFlash.Caption = "On" + loc_008236B6: If Me >= 0 Then GoTo loc_008236E9 + loc_008236B8: GoTo loc_008236DA + loc_008236D1: lblFlash.Caption = "Off" + loc_008236D8: If Me >= 0 Then GoTo loc_008236E9 + loc_008236DA: 'Referenced from: 008236B8 + loc_008236E3: Me = CheckObj(Me, global_0040E84C, 84) + loc_008236E9: + loc_008236F3: GoTo loc_00823716 + loc_00823715: Exit Sub + loc_00823716: 'Referenced from: 008236F3 +End Sub + +Public Sub defineMouseConfigs() '823740 + Dim Me As Me + loc_0082377D: Me = Me + 00000050h + loc_00823789: ReDim Me+00000050h(0 To 6) + loc_00823796: If Me+00000050h Then + loc_0082379C: If Me+00000050h = 1 Then + loc_008237B3: If 00000001h >= 0 Then + loc_008237B5: var_eax = Err.Raise + loc_008237B7: End If + loc_008237BC: GoTo loc_008237C6 + loc_008237BE: End If + loc_008237BE: End If + loc_008237C4: var_eax = Err.Raise + loc_008237C6: 'Referenced from: 008237BC + loc_008237D5: If Me+00000050h Then + loc_008237DB: If Me+00000050h = 1 Then + loc_008237EC: If 00000001h >= 0 Then + loc_008237EE: var_eax = Err.Raise + loc_008237F0: End If + loc_008237F5: GoTo loc_008237F9 + loc_008237F7: End If + loc_008237F7: End If + loc_008237F7: var_eax = Err.Raise + loc_008237F9: 'Referenced from: 008237F5 + loc_00823809: If Me+00000050h Then + loc_0082380F: If Me+00000050h = 1 Then + loc_00823820: If 00000001h >= 0 Then + loc_00823822: var_eax = Err.Raise + loc_00823824: End If + loc_00823829: GoTo loc_0082382D + loc_0082382B: End If + loc_0082382B: End If + loc_0082382B: var_eax = Err.Raise + loc_0082382D: 'Referenced from: 00823829 + loc_00823840: If Me+00000050h Then + loc_00823846: If Me+00000050h = 1 Then + loc_00823852: If 00000002h >= 0 Then + loc_00823854: var_eax = Err.Raise + loc_00823856: End If + loc_0082385B: GoTo loc_0082385F + loc_0082385D: End If + loc_0082385D: End If + loc_0082385D: var_eax = Err.Raise + loc_0082385F: 'Referenced from: 0082385B + loc_0082386E: If Me+00000050h Then + loc_00823874: If Me+00000050h = 1 Then + loc_00823885: If 00000002h >= 0 Then + loc_00823887: var_eax = Err.Raise + loc_00823889: End If + loc_0082388E: GoTo loc_00823892 + loc_00823890: End If + loc_00823890: End If + loc_00823890: var_eax = Err.Raise + loc_00823892: 'Referenced from: 0082388E + loc_008238A5: If Me+00000050h Then + loc_008238AB: If Me+00000050h = 1 Then + loc_008238B7: If 00000002h >= 0 Then + loc_008238B9: var_eax = Err.Raise + loc_008238BB: End If + loc_008238C0: GoTo loc_008238C4 + loc_008238C2: End If + loc_008238C2: End If + loc_008238C2: var_eax = Err.Raise + loc_008238C4: 'Referenced from: 008238C0 + loc_008238D4: If Me+00000050h Then + loc_008238DA: If Me+00000050h = 1 Then + loc_008238EB: If 00000003h >= 0 Then + loc_008238ED: var_eax = Err.Raise + loc_008238EF: End If + loc_008238F4: GoTo loc_008238F8 + loc_008238F6: End If + loc_008238F6: End If + loc_008238F6: var_eax = Err.Raise + loc_008238F8: 'Referenced from: 008238F4 + loc_00823907: If Me+00000050h Then + loc_0082390D: If Me+00000050h = 1 Then + loc_0082391E: If 00000003h >= 0 Then + loc_00823920: var_eax = Err.Raise + loc_00823922: End If + loc_00823927: GoTo loc_0082392B + loc_00823929: End If + loc_00823929: End If + loc_00823929: var_eax = Err.Raise + loc_0082392B: 'Referenced from: 00823927 + loc_0082393B: If Me+00000050h Then + loc_00823941: If Me+00000050h = 1 Then + loc_00823952: If 00000003h >= 0 Then + loc_00823954: var_eax = Err.Raise + loc_00823956: End If + loc_0082395B: GoTo loc_0082395F + loc_0082395D: End If + loc_0082395D: End If + loc_0082395D: var_eax = Err.Raise + loc_0082395F: 'Referenced from: 0082395B + loc_0082396F: If Me+00000050h Then + loc_00823975: If Me+00000050h = 1 Then + loc_00823986: If 00000004h >= 0 Then + loc_00823988: var_eax = Err.Raise + loc_0082398A: End If + loc_0082398F: GoTo loc_00823993 + loc_00823991: End If + loc_00823991: End If + loc_00823991: var_eax = Err.Raise + loc_00823993: 'Referenced from: 0082398F + loc_008239A2: If Me+00000050h Then + loc_008239A8: If Me+00000050h = 1 Then + loc_008239B9: If 00000004h >= 0 Then + loc_008239BB: var_eax = Err.Raise + loc_008239BD: End If + loc_008239C2: GoTo loc_008239C6 + loc_008239C4: End If + loc_008239C4: End If + loc_008239C4: var_eax = Err.Raise + loc_008239C6: 'Referenced from: 008239C2 + loc_008239D6: If Me+00000050h Then + loc_008239DC: If Me+00000050h = 1 Then + loc_008239ED: If 00000004h >= 0 Then + loc_008239EF: var_eax = Err.Raise + loc_008239F1: End If + loc_008239F6: GoTo loc_008239FA + loc_008239F8: End If + loc_008239F8: End If + loc_008239F8: var_eax = Err.Raise + loc_008239FA: 'Referenced from: 008239F6 + loc_00823A0A: If Me+00000050h Then + loc_00823A10: If Me+00000050h = 1 Then + loc_00823A21: If 00000005h >= 0 Then + loc_00823A23: var_eax = Err.Raise + loc_00823A25: End If + loc_00823A2A: GoTo loc_00823A2E + loc_00823A2C: End If + loc_00823A2C: End If + loc_00823A2C: var_eax = Err.Raise + loc_00823A2E: 'Referenced from: 00823A2A + loc_00823A3D: If Me+00000050h Then + loc_00823A43: If Me+00000050h = 1 Then + loc_00823A54: If 00000005h >= 0 Then + loc_00823A56: var_eax = Err.Raise + loc_00823A58: End If + loc_00823A5D: GoTo loc_00823A61 + loc_00823A5F: End If + loc_00823A5F: End If + loc_00823A5F: var_eax = Err.Raise + loc_00823A61: 'Referenced from: 00823A5D + loc_00823A71: If Me+00000050h Then + loc_00823A77: If Me+00000050h = 1 Then + loc_00823A88: If 00000005h >= 0 Then + loc_00823A8A: var_eax = Err.Raise + loc_00823A8C: End If + loc_00823A91: GoTo loc_00823A95 + loc_00823A93: End If + loc_00823A93: End If + loc_00823A93: var_eax = Err.Raise + loc_00823A95: 'Referenced from: 00823A91 + loc_00823AA5: If Me+00000050h Then + loc_00823AAB: If Me+00000050h = 1 Then + loc_00823ABC: If 00000006h >= 0 Then + loc_00823ABE: var_eax = Err.Raise + loc_00823AC0: End If + loc_00823AC5: GoTo loc_00823AC9 + loc_00823AC7: End If + loc_00823AC7: End If + loc_00823AC7: var_eax = Err.Raise + loc_00823AC9: 'Referenced from: 00823AC5 + loc_00823AD8: If Me+00000050h Then + loc_00823ADE: If Me+00000050h = 1 Then + loc_00823AEF: If 00000006h >= 0 Then + loc_00823AF1: var_eax = Err.Raise + loc_00823AF3: End If + loc_00823AF8: GoTo loc_00823AFC + loc_00823AFA: End If + loc_00823AFA: End If + loc_00823AFA: var_eax = Err.Raise + loc_00823AFC: 'Referenced from: 00823AF8 + loc_00823B0C: If Me+00000050h Then + loc_00823B12: If Me+00000050h = 1 Then + loc_00823B23: If 00000006h >= 0 Then + loc_00823B25: var_eax = Err.Raise + loc_00823B27: End If + loc_00823B2C: GoTo loc_00823B30 + loc_00823B2E: End If + loc_00823B2E: End If + loc_00823B2E: var_eax = Err.Raise + loc_00823B30: 'Referenced from: 00823B2C + loc_00823B4A: + loc_00823B4E: If Me+00000050h Then + loc_00823B54: If Me+00000050h = 1 Then + loc_00823B63: If 00000001h >= 0 Then + loc_00823B65: var_eax = Err.Raise + loc_00823B6B: End If + loc_00823B70: GoTo loc_00823B78 + loc_00823B72: End If + loc_00823B72: End If + loc_00823B72: var_eax = Err.Raise + loc_00823B78: 'Referenced from: 00823B70 + loc_00823B88: If 00886104h = 0 Then + loc_00823B90: If Me+00000050h Then + loc_00823B96: If Me+00000050h = 1 Then + loc_00823BA5: If 00000001h >= 0 Then + loc_00823BA7: var_eax = Err.Raise + loc_00823BAD: End If + loc_00823BB2: GoTo loc_00823BBA + loc_00823BB4: End If + loc_00823BB4: End If + loc_00823BB4: var_eax = Err.Raise + loc_00823BBA: 'Referenced from: 00823BB2 + loc_00823BCB: If 00886106h = 0 Then + loc_00823BCF: If Me+00000050h Then + loc_00823BD5: If Me+00000050h = 1 Then + loc_00823BE4: If 00000001h >= 0 Then + loc_00823BE6: var_eax = Err.Raise + loc_00823BEC: End If + loc_00823BF1: GoTo loc_00823BF9 + loc_00823BF3: End If + loc_00823BF3: End If + loc_00823BF3: var_eax = Err.Raise + loc_00823BF9: 'Referenced from: 00823BF1 + loc_00823C0A: If 00886102h = 0 Then + loc_00823C13: End If + loc_00823C13: End If + loc_00823C13: End If + loc_00823C13: 00000001h = 00000001h + 0001h + loc_00823C1D: If 00000001h+0001h <= 6 Then GoTo loc_00823B4A +End Sub + +Public Sub Proc_2_21_81F8A0 + loc_0081F8D0: var_eax = Proc_9_20_8476B0(edi, esi, ebx) + loc_0081F8DB: eax = arg_C - 1 + loc_0081F8DC: If arg_C - 1 Then + loc_0081F8E2: eax = arg_C - 1 - 1 + loc_0081F8E3: If arg_C - 1 - 1 = 0 Then + loc_0081F8E5: var_eax = Proc_12_49_86ECB0(, , ) + loc_0081F8EA: End If + loc_0081F8ED: var_eax = Proc_845A50(, , ) + loc_0081F918: Set var_14 = Me + loc_0081F920: var_eax = Global.Unload var_14 + loc_0081F9A1: var_eax = titleScreen.Show var_24, var_20 + loc_0081F9C4: GoTo loc_0081FA96 + loc_0081F9C9: End If + loc_0081F9D1: If %x1 = titleScreen.Caption Then + loc_0081F9D7: If %x1 = titleScreen.Caption = 0 Then + loc_0081F9E9: titleScreen.Caption = %StkVar1 = titleScreen.Caption = %StkVar1 - titleScreen.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0081F9ED: If titleScreen.Caption = %StkVar1 >= 0 Then + loc_0081F9EF: var_eax = Err.Raise + loc_0081F9F1: End If + loc_0081F9F6: GoTo loc_0081FA00 + loc_0081F9F8: End If + loc_0081F9F8: End If + loc_0081F9FE: var_eax = Err.Raise + loc_0081FA00: 'Referenced from: 0081F9F6 + loc_0081FA0A: global_886104 = edx+eax + loc_0081FA15: If %x1 = titleScreen.Caption Then + loc_0081FA1B: If %x1 = titleScreen.Caption = 0 Then + loc_0081FA27: titleScreen.Caption = %StkVar1 = titleScreen.Caption = %StkVar1 - titleScreen.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0081FA2B: If titleScreen.Caption = %StkVar1 >= 0 Then + loc_0081FA2D: var_eax = Err.Raise + loc_0081FA2F: End If + loc_0081FA34: GoTo loc_0081FA38 + loc_0081FA36: End If + loc_0081FA36: End If + loc_0081FA36: var_eax = Err.Raise + loc_0081FA38: 'Referenced from: 0081FA34 + loc_0081FA43: global_886106 = edx+eax+00000002h + loc_0081FA4E: If %x1 = titleScreen.Caption Then + loc_0081FA54: If %x1 = titleScreen.Caption = 0 Then + loc_0081FA60: titleScreen.Caption = %StkVar1 = titleScreen.Caption = %StkVar1 - titleScreen.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0081FA64: If titleScreen.Caption = %StkVar1 >= 0 Then + loc_0081FA66: var_eax = Err.Raise + loc_0081FA68: End If + loc_0081FA6D: GoTo loc_0081FA71 + loc_0081FA6F: End If + loc_0081FA6F: End If + loc_0081FA6F: var_eax = Err.Raise + loc_0081FA71: 'Referenced from: 0081FA6D + loc_0081FA7C: global_886102 = edx+eax+00000004h + loc_0081FA82: var_eax = Proc_12_50_86EF10 + loc_0081FA87: GoTo loc_0081F8ED + loc_0081FA95: Exit Sub + loc_0081FA96: 'Referenced from: 0081F9C4 +End Sub diff --git a/src/gameOptions.frx b/src/gameOptions.frx new file mode 100644 index 0000000..c6da388 Binary files /dev/null and b/src/gameOptions.frx differ diff --git a/src/generateLevels.bas b/src/generateLevels.bas new file mode 100644 index 0000000..77d845b --- /dev/null +++ b/src/generateLevels.bas @@ -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 diff --git a/src/intro.frm b/src/intro.frm new file mode 100644 index 0000000..708559f --- /dev/null +++ b/src/intro.frm @@ -0,0 +1,1313 @@ +VERSION 5.00 +Begin VB.Form intro + BackColor = &H0& + WindowState = 2 + MousePointer = 99 'Custom + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MinButton = 0 'False + ControlBox = 0 'False + Tag = "intro" + KeyPreview = -1 'True + ClientLeft = 7530 + ClientTop = 1620 + ClientWidth = 6585 + ClientHeight = 8235 + MouseIcon = "intro.frx":0 + Appearance = 0 'Flat + Begin Timer tmrMain + Interval = 1 + Left = 5280 + Top = 540 + End +End + +Attribute VB_Name = "intro" + + +Private Sub tmrMain_Timer() '870680 + Dim Me As Me + loc_008706E6: var_eax = intro.loadGraphics + loc_00870705: var_eax = intro.definePhases + loc_00870721: var_eax = Proc_84A1B0(0, Me, ebx) + loc_0087072A: var_eax = QueryPerformanceCounter(var_1C) + loc_0087073B: + loc_0087073F: var_eax = QueryPerformanceCounter(var_2C) + loc_0087074F: If esi+0000004Ch < 18 Then + loc_00870754: var_eax = intro.drawGraphics + loc_00870770: End If + loc_00870796: var_eax = Proc_10_14_84B2D0(global_008865E8, global_008865E4, ebx) + loc_008707B6: var_eax = Proc_10_11_84A820(var_30, var_30, Proc_10_14_84B2D0(global_008865E8, global_008865E4, ebx)) + loc_008707C8: var_eax = QueryPerformanceCounter(var_24) + loc_008707E3: call __vbaCySub(var_24, var_20, var_2C, var_28, Me, global_0040C7EC, ebx, ebx, ebx, 00000280h, 000001E0h, var_54, var_58) + loc_008707E7: call __vbaR8Cy(__vbaCySub(var_24, var_20, var_2C, var_28, Me, global_0040C7EC, ebx, ebx, ebx, 00000280h, 000001E0h, var_54, var_58), var_20) + loc_008707F9: var_70 = __vbaR8Cy(__vbaCySub(var_24, var_20, var_2C, var_28, Me, global_0040C7EC, ebx, ebx, ebx, 00000280h, 000001E0h, var_54, var_58), var_20) + loc_008707FE: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0087080B: If global_886000 = 0 Then + loc_0087080D: fdivr st0, var_70 + loc_00870810: GoTo loc_0087081D + loc_00870812: End If + loc_0087081D: 'Referenced from: 00870810 + loc_0087081D: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00870844: If Err.Number Then + loc_00870846: global_8860D4 = 3DCCCCCDh + loc_00870850: End If + loc_00870860: call __vbaCySub(var_24, var_20, var_1C, var_18, var_70, var_6C) + loc_00870864: call __vbaR8Cy(__vbaCySub(var_24, var_20, var_1C, var_18, var_70, var_6C), var_20) + loc_00870876: var_78 = __vbaR8Cy(__vbaCySub(var_24, var_20, var_1C, var_18, var_70, var_6C), var_20) + loc_0087087B: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00870888: If global_886000 = 0 Then + loc_0087088A: fdivr st0, var_78 + loc_0087088D: GoTo loc_0087089A + loc_0087088F: End If + loc_0087089A: 'Referenced from: 0087088D + loc_008708A4: call __vbaFpCy(var_78, var_74) + loc_008708B3: var_eax = intro.updateIntro + loc_008708D3: If %x1 = Me.hWnd = 0 Then + loc_008708D9: If Me.SaveProp 'Ignore this = 0 Then GoTo loc_0087073B + loc_008708DF: End If + loc_008708E3: If Me.SaveProp 'Ignore this Then + loc_008708E8: var_eax = intro.prepareToUnload + loc_0087090F: var_eax = Proc_12_25_868460(1) + loc_00870914: End If + loc_00870917: var_eax = intro.destroySounds + loc_00870996: var_eax = titleScreen.Show var_40, var_3C + loc_008709DA: Set var_30 = Me + loc_008709E2: var_eax = Global.Unload var_30 + loc_00870A10: GoTo loc_00870A1C + loc_00870A1B: Exit Sub + loc_00870A1C: 'Referenced from: 00870A10 + loc_00870A1C: Exit Sub +End Sub + +Private Sub Form_Load() '8703C0 + Dim var_18 As Screen + Dim var_20 As Screen + loc_00870430: var_eax = Proc_12_43_86D100(var_34, var_18, var_18) + loc_00870477: var_18 = Global.Screen + loc_008704A3: Global.MousePointer = CInt(99) + loc_008704E5: var_20 = Global.Screen + loc_0087051D: var_eax = Unknown_VTable_Call[ecx+00000304h] + loc_00870537: var_1C = Global.FontCount + loc_00870564: Global.MouseIcon = var_1C + loc_0087059B: var_eax = intro.loadIntroSounds + loc_008705BF: GoTo loc_008705E6 + loc_008705E5: Exit Sub + loc_008705E6: 'Referenced from: 008705BF +End Sub + +Private Sub Form_Click() '8702D0 + +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '870340 + Dim Me As Me + loc_00870387: If KeyCode = 123 Then + loc_00870389: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_0087038E: End If +End Sub + +Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '870610 + +End Sub + +Public Sub updateIntro() '870A50 + Dim Me As Variant + Dim global_401728 As Me + Dim global_40172C As Me + loc_00870AC5: If %x1 = Me.Name Then + loc_00870ACB: If %x1 = Me.Name = 0 Then + loc_00870AD4: Me(20) = Me(20) + 0001h + loc_00870AE8: If edi >= 0 Then + loc_00870AEA: var_eax = Err.Raise + loc_00870AF0: End If + loc_00870AFD: GoTo loc_00870B07 + loc_00870AFF: End If + loc_00870AFF: End If + loc_00870B05: var_eax = Err.Raise + loc_00870B07: 'Referenced from: 00870AFD + loc_00870B18: call __vbaFpCmpCy + loc_00870B20: If __vbaFpCmpCy > 0 Then + loc_00870B2A: Me.BackColor = %StkVar1 = Me.BackColor = %StkVar1 + 0014h + loc_00870B3C: Me(20) = Me(20) + 0001h + loc_00870B51: eax = Me(20) - 1 + loc_00870B55: If Me(20) - 1 <= 0 Then + loc_00870B5B: GoTo loc_[eax*4+00872BC4h] + loc_00870B6E: GoTo loc_00870DEB + loc_00870B79: GoTo loc_00870DEB + loc_00870B95: GoTo loc_00870DEB + loc_00870B9D: var_eax = intro.switchbgspeed + loc_00870BC4: var_eax = Proc_10_23_84E330(Me(30), var_54) + loc_00870BC9: GoTo loc_00870DEB + loc_00870BDB: GoTo loc_00870DEB + loc_00870BFE: GoTo loc_00870DEB + loc_00870C06: var_eax = intro.switchbgspeed + loc_00870C2D: var_eax = Proc_10_23_84E330(Me(30), var_54) + loc_00870C32: GoTo loc_00870DEB + loc_00870C47: GoTo loc_00870DEB + loc_00870C6A: GoTo loc_00870DEB + loc_00870C72: var_eax = intro.switchbgspeed + loc_00870C99: var_eax = Proc_10_23_84E330(Me(30), var_54) + loc_00870C9E: GoTo loc_00870DEB + loc_00870CB3: GoTo loc_00870DEB + loc_00870CD6: GoTo loc_00870DEB + loc_00870CE6: var_eax = Proc_10_23_84E330(Me(30), var_54) + loc_00870CEE: var_eax = intro.switchbgspeed + loc_00870D15: global_886098 = global_00886098 + loc_00870D1B: global_88609C = global_0088609C + loc_00870D20: GoTo loc_00870DEB + loc_00870D2C: GoTo loc_00870DEB + loc_00870D64: GoTo loc_00870DEB + loc_00870D70: global_886098 = 44E74000h + loc_00870D87: call Proc_10_23_84E330(%x1 = Me.Top, var_54) + loc_00870D95: GoTo loc_00870DEB + loc_00870D9A: var_eax = intro.prepareToUnload + loc_00870DC1: var_eax = Proc_10_23_84E330(Me(31), var_54) + loc_00870DD1: call Proc_10_23_84E330(Me.Top = %x1s, var_54) + loc_00870DE1: var_eax = Proc_10_23_84E330(Me(32), var_54) + loc_00870DE6: var_eax = Proc_12_31_869E30 + loc_00870DEB: End If + loc_00870DEB: End If + loc_00870DEF: Me(20) = Me(20) + FFFFFFFEh + loc_00870DF5: If Me(20)+FFFFFFFEh <= 17 Then + loc_00870DFB: GoTo loc_[eax*4+00872C0Ch] + loc_00870E07: If Me = %x1 Then + loc_00870E0D: If Me = %x1 = 0 Then + loc_00870E1E: If 00000002h >= 0 Then + loc_00870E20: var_eax = Err.Raise + loc_00870E22: End If + loc_00870E29: GoTo loc_00870E2D + loc_00870E2B: End If + loc_00870E2B: End If + loc_00870E2B: var_eax = Err.Raise + loc_00870E2D: 'Referenced from: 00870E29 + loc_00870E3D: var_78 = var_74 + loc_00870E4D: If global_886000 = 0 Then + loc_00870E52: GoTo loc_00870E5C + loc_00870E54: End If + loc_00870E57: call _adj_fdiv_m32(edx+eax) + loc_00870E5C: 'Referenced from: 00870E52 + loc_00870E5C: global_88609C = ((var_78 * [esi+00000050h]) / [edx+eax]) + loc_00870E6C: GoTo loc_00872B8F + loc_00870E76: If Me = %x1 Then + loc_00870E7C: If Me = %x1 = 0 Then + loc_00870E8D: If 00000003h >= 0 Then + loc_00870E8F: var_eax = Err.Raise + loc_00870E91: End If + loc_00870E98: GoTo loc_00870E9C + loc_00870E9A: End If + loc_00870E9A: End If + loc_00870E9A: var_eax = Err.Raise + loc_00870E9C: 'Referenced from: 00870E98 + loc_00870EA9: If global_886000 = 0 Then + loc_00870EB1: GoTo loc_00870EC4 + loc_00870EB3: End If + loc_00870EC4: 'Referenced from: 00870EB1 + loc_00870ED7: If global_886000 = 0 Then + loc_00870EDF: GoTo loc_00870EF2 + loc_00870EE1: End If + loc_00870EF2: 'Referenced from: 00870EDF + loc_00870EFB: If global_886000 = 0 Then + loc_00870F00: GoTo loc_00870F0A + loc_00870F02: End If + loc_00870F05: call _adj_fdiv_m32(edx+eax, global_40172C) + loc_00870F0A: 'Referenced from: 00870F00 + loc_00870F0D: fsubr st0, [00401D30h] + loc_00870F2D: If global_886000 = 0 Then + loc_00870F35: GoTo loc_00870F48 + loc_00870F37: End If + loc_00870F48: 'Referenced from: 00870F35 + loc_00870F55: If global_886000 = 0 Then + loc_00870F5D: GoTo loc_00870F70 + loc_00870F5F: End If + loc_00870F70: 'Referenced from: 00870F5D + loc_00870F7F: GoTo loc_00872B8F + loc_00870F91: If global_886000 = 0 Then + loc_00870F99: GoTo loc_00870FAC + loc_00870F9B: End If + loc_00870FAC: 'Referenced from: 00870F99 + loc_00870FB9: If global_886000 = 0 Then + loc_00870FC1: GoTo loc_00870FD4 + loc_00870FC3: End If + loc_00870FD4: 'Referenced from: 00870FC1 + loc_00870FF5: If global_886000 = 0 Then + loc_00870FFA: GoTo loc_00871004 + loc_00870FFC: End If + loc_00870FFF: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871004: 'Referenced from: 00870FFA + loc_00871027: var_5C = Sin(6.37066138261923E-314#) + loc_00871039: fsubr st0, [00401D30h] + loc_00871051: + loc_0087105E: If global_886000 = 0 Then + loc_00871063: GoTo loc_0087106D + loc_00871065: End If + loc_00871068: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_0087106D: 'Referenced from: 00871063 + loc_00871083: GoTo loc_00872B8F + loc_008710A1: var_54 = CInt((6.37066138261923E-314 + global_4027F8)) + loc_008710AC: var_eax = Proc_84A0F0(Me(30), var_54) + loc_008710B6: If Me = %x1 Then + loc_008710BC: If Me = %x1 = 0 Then + loc_008710CD: If 00000005h >= 0 Then + loc_008710CF: var_eax = Err.Raise + loc_008710D1: End If + loc_008710D8: GoTo loc_008710DC + loc_008710DA: End If + loc_008710DA: End If + loc_008710DA: var_eax = Err.Raise + loc_008710DC: 'Referenced from: 008710D8 + loc_008710E9: If global_886000 = 0 Then + loc_008710F1: GoTo loc_00871104 + loc_008710F3: End If + loc_00871104: 'Referenced from: 008710F1 + loc_00871117: If global_886000 = 0 Then + loc_0087111F: GoTo loc_00871132 + loc_00871121: End If + loc_00871132: 'Referenced from: 0087111F + loc_00871141: If global_886000 = 0 Then + loc_00871149: GoTo loc_0087115C + loc_0087114B: End If + loc_0087115C: 'Referenced from: 00871149 + loc_00871169: If global_886000 = 0 Then + loc_00871171: GoTo loc_00871184 + loc_00871173: End If + loc_00871184: 'Referenced from: 00871171 + loc_0087118D: If global_886000 = 0 Then + loc_00871192: GoTo loc_0087119C + loc_00871194: End If + loc_00871197: call _adj_fdiv_m32(edx+eax, global_40172C, global_401728, global_40172C, global_40172C) + loc_0087119C: 'Referenced from: 00871192 + loc_008711BB: If global_886000 = 0 Then + loc_008711C3: GoTo loc_008711D6 + loc_008711C5: End If + loc_008711D6: 'Referenced from: 008711C3 + loc_008711E3: If global_886000 = 0 Then + loc_008711EB: GoTo loc_008711FE + loc_008711ED: End If + loc_008711FE: 'Referenced from: 008711EB + loc_0087121F: If global_886000 = 0 Then + loc_00871224: GoTo loc_0087122E + loc_00871226: End If + loc_00871229: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_0087122E: 'Referenced from: 00871224 + loc_00871251: var_5C = Sin(6.37066138261923E-314#) + loc_00871263: fsubr st0, [00401D30h] + loc_00871288: If global_886000 = 0 Then + loc_0087128D: GoTo loc_00871297 + loc_0087128F: End If + loc_00871292: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871297: 'Referenced from: 0087128D + loc_008712AD: GoTo loc_00872B8F + loc_008712B7: If Me = %x1 Then + loc_008712BD: If Me = %x1 = 0 Then + loc_008712CE: If 00000006h >= 0 Then + loc_008712D0: var_eax = Err.Raise + loc_008712D2: End If + loc_008712D9: GoTo loc_008712DD + loc_008712DB: End If + loc_008712DB: End If + loc_008712DB: var_eax = Err.Raise + loc_008712DD: 'Referenced from: 008712D9 + loc_008712EA: If global_886000 = 0 Then + loc_008712F2: GoTo loc_00871305 + loc_008712F4: End If + loc_00871305: 'Referenced from: 008712F2 + loc_0087131E: If global_886000 = 0 Then + loc_00871326: GoTo loc_00871339 + loc_00871328: End If + loc_00871339: 'Referenced from: 00871326 + loc_00871342: If global_886000 = 0 Then + loc_00871347: GoTo loc_00871351 + loc_00871349: End If + loc_0087134C: call _adj_fdiv_m32(ecx+eax, global_40172C) + loc_00871351: 'Referenced from: 00871347 + loc_00871377: If global_886000 = 0 Then + loc_0087137F: GoTo loc_00871392 + loc_00871381: End If + loc_00871392: 'Referenced from: 0087137F + loc_0087139F: If global_886000 = 0 Then + loc_008713A7: GoTo loc_008713BA + loc_008713A9: End If + loc_008713BA: 'Referenced from: 008713A7 + loc_008713D5: If global_886000 = 0 Then + loc_008713DA: GoTo loc_008713E4 + loc_008713DC: End If + loc_008713DF: call _adj_fdiv_m32(Me.Caption = %StkVar1, global_401728, global_40172C) + loc_008713E4: 'Referenced from: 008713DA + loc_0087140A: var_5C = Sin(6.37066138261923E-314#) + loc_00871416: fsubr st0, [00401D30h] + loc_00871434: GoTo loc_00871051 + loc_00871446: If global_886000 = 0 Then + loc_0087144E: GoTo loc_00871461 + loc_00871450: End If + loc_00871461: 'Referenced from: 0087144E + loc_0087146E: If global_886000 = 0 Then + loc_00871476: GoTo loc_00871489 + loc_00871478: End If + loc_00871489: 'Referenced from: 00871476 + loc_0087149B: GoTo loc_00871747 + loc_008714C4: var_54 = CInt((6.37066138261923E-314 + global_4027F8)) + loc_008714C7: var_eax = Proc_84A0F0(Me(30), var_54, global_40172C) + loc_008714D1: If Me = %x1 Then + loc_008714D7: If Me = %x1 = 0 Then + loc_008714E8: If 00000008h >= 0 Then + loc_008714EA: var_eax = Err.Raise + loc_008714EC: End If + loc_008714F3: GoTo loc_008714F7 + loc_008714F5: End If + loc_008714F5: End If + loc_008714F5: var_eax = Err.Raise + loc_008714F7: 'Referenced from: 008714F3 + loc_00871504: If global_886000 = 0 Then + loc_0087150C: GoTo loc_0087151F + loc_0087150E: End If + loc_0087151F: 'Referenced from: 0087150C + loc_00871532: If global_886000 = 0 Then + loc_0087153A: GoTo loc_0087154D + loc_0087153C: End If + loc_0087154D: 'Referenced from: 0087153A + loc_00871556: If global_886000 = 0 Then + loc_0087155B: GoTo loc_00871565 + loc_0087155D: End If + loc_00871560: call _adj_fdiv_m32(edx+eax, global_40172C) + loc_00871565: 'Referenced from: 0087155B + loc_00871575: If global_886000 = 0 Then + loc_0087157D: GoTo loc_00871590 + loc_0087157F: End If + loc_00871590: 'Referenced from: 0087157D + loc_0087159D: If global_886000 = 0 Then + loc_008715A5: GoTo loc_008715B8 + loc_008715A7: End If + loc_008715B8: 'Referenced from: 008715A5 + loc_008715D9: If global_886000 = 0 Then + loc_008715E1: GoTo loc_008715F4 + loc_008715E3: End If + loc_008715F4: 'Referenced from: 008715E1 + loc_00871601: If global_886000 = 0 Then + loc_00871609: GoTo loc_0087161C + loc_0087160B: End If + loc_0087161C: 'Referenced from: 00871609 + loc_0087162E: GoTo loc_00871747 + loc_00871638: If Me = %x1 Then + loc_0087163E: If Me = %x1 = 0 Then + loc_0087164F: If 00000009h >= 0 Then + loc_00871651: var_eax = Err.Raise + loc_00871653: End If + loc_0087165A: GoTo loc_0087165E + loc_0087165C: End If + loc_0087165C: End If + loc_0087165C: var_eax = Err.Raise + loc_0087165E: 'Referenced from: 0087165A + loc_0087166B: If global_886000 = 0 Then + loc_00871673: GoTo loc_00871686 + loc_00871675: End If + loc_00871686: 'Referenced from: 00871673 + loc_00871699: If global_886000 = 0 Then + loc_008716A1: GoTo loc_008716B4 + loc_008716A3: End If + loc_008716B4: 'Referenced from: 008716A1 + loc_008716BD: If global_886000 = 0 Then + loc_008716C2: GoTo loc_008716CC + loc_008716C4: End If + loc_008716C7: call _adj_fdiv_m32(edx+eax, global_40172C, global_401728, global_40172C) + loc_008716CC: 'Referenced from: 008716C2 + loc_008716CF: fsubr st0, [00401D30h] + loc_008716F2: If global_886000 = 0 Then + loc_008716FA: GoTo loc_0087170D + loc_008716FC: End If + loc_0087170D: 'Referenced from: 008716FA + loc_0087171A: If global_886000 = 0 Then + loc_00871722: GoTo loc_00871735 + loc_00871724: End If + loc_00871735: 'Referenced from: 00871722 + loc_00871747: 'Referenced from: 0087149B + loc_0087175C: If global_886000 = 0 Then + loc_00871761: GoTo loc_0087176B + loc_00871763: End If + loc_00871766: call _adj_fdiv_m32(Me.Caption = %StkVar1, global_40172C) + loc_0087176B: 'Referenced from: 00871761 + loc_0087176B: fsubr st0, [00402AC0h] + loc_0087178A: If global_886000 = 0 Then + loc_0087178F: GoTo loc_00871799 + loc_00871791: End If + loc_00871794: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871799: 'Referenced from: 0087178F + loc_008717BF: var_5C = Sin(6.37066138261923E-314#) + loc_008717CB: fsubr st0, [00402AD0h] + loc_008717E1: GoTo loc_00871083 + loc_00871802: var_54 = CInt((6.37066138261923E-314 + global_4027F8)) + loc_0087180D: var_eax = Proc_84A0F0(Me(30), var_54, ((&H0000000300905A4D&H / [esi+00000054h]) * global_401768)) + loc_00871817: If Me = %x1 Then + loc_0087181D: If Me = %x1 = 0 Then + loc_0087182E: If 0000000Bh >= 0 Then + loc_00871830: var_eax = Err.Raise + loc_00871832: End If + loc_00871839: GoTo loc_0087183D + loc_0087183B: End If + loc_0087183B: End If + loc_0087183B: var_eax = Err.Raise + loc_0087183D: 'Referenced from: 00871839 + loc_0087184A: If global_886000 = 0 Then + loc_00871852: GoTo loc_00871865 + loc_00871854: End If + loc_00871865: 'Referenced from: 00871852 + loc_00871878: If global_886000 = 0 Then + loc_00871880: GoTo loc_00871893 + loc_00871882: End If + loc_00871893: 'Referenced from: 00871880 + loc_008718A2: If global_886000 = 0 Then + loc_008718AA: GoTo loc_008718BD + loc_008718AC: End If + loc_008718BD: 'Referenced from: 008718AA + loc_008718CA: If global_886000 = 0 Then + loc_008718D2: GoTo loc_008718E5 + loc_008718D4: End If + loc_008718E5: 'Referenced from: 008718D2 + loc_008718EE: If global_886000 = 0 Then + loc_008718F3: GoTo loc_008718FD + loc_008718F5: End If + loc_008718F8: call _adj_fdiv_m32(edx+eax, global_40172C, global_401728, global_40172C, global_40172C) + loc_008718FD: 'Referenced from: 008718F3 + loc_0087191F: If global_886000 = 0 Then + loc_00871927: GoTo loc_0087193A + loc_00871929: End If + loc_0087193A: 'Referenced from: 00871927 + loc_00871947: If global_886000 = 0 Then + loc_0087194F: GoTo loc_00871962 + loc_00871951: End If + loc_00871962: 'Referenced from: 0087194F + loc_00871986: If global_886000 = 0 Then + loc_0087198B: GoTo loc_00871995 + loc_0087198D: End If + loc_00871990: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871995: 'Referenced from: 0087198B + loc_008719B8: var_5C = Sin(6.37066138261923E-314#) + loc_008719E2: GoTo loc_00871B69 + loc_008719EC: If Me = %x1 Then + loc_008719F2: If Me = %x1 = 0 Then + loc_00871A03: If 0000000Ch >= 0 Then + loc_00871A05: var_eax = Err.Raise + loc_00871A07: End If + loc_00871A0E: GoTo loc_00871A12 + loc_00871A10: End If + loc_00871A10: End If + loc_00871A10: var_eax = Err.Raise + loc_00871A12: 'Referenced from: 00871A0E + loc_00871A1F: If global_886000 = 0 Then + loc_00871A27: GoTo loc_00871A3A + loc_00871A29: End If + loc_00871A3A: 'Referenced from: 00871A27 + loc_00871A53: If global_886000 = 0 Then + loc_00871A5B: GoTo loc_00871A6E + loc_00871A5D: End If + loc_00871A6E: 'Referenced from: 00871A5B + loc_00871A77: If global_886000 = 0 Then + loc_00871A7C: GoTo loc_00871A86 + loc_00871A7E: End If + loc_00871A81: call _adj_fdiv_m32(ecx+eax, global_40172C) + loc_00871A86: 'Referenced from: 00871A7C + loc_00871AAC: If global_886000 = 0 Then + loc_00871AB4: GoTo loc_00871AC7 + loc_00871AB6: End If + loc_00871AC7: 'Referenced from: 00871AB4 + loc_00871AD4: If global_886000 = 0 Then + loc_00871ADC: GoTo loc_00871AEF + loc_00871ADE: End If + loc_00871AEF: 'Referenced from: 00871ADC + loc_00871B0A: If global_886000 = 0 Then + loc_00871B0F: GoTo loc_00871B19 + loc_00871B11: End If + loc_00871B14: call _adj_fdiv_m32(Me.Caption = %StkVar1, global_401728, global_40172C) + loc_00871B19: 'Referenced from: 00871B0F + loc_00871B3F: var_5C = Sin(6.37066138261923E-314#) + loc_00871B69: 'Referenced from: 008719E2 + loc_00871B76: If global_886000 = 0 Then + loc_00871B7B: GoTo loc_00871B85 + loc_00871B7D: End If + loc_00871B80: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871B85: 'Referenced from: 00871B7B + loc_00871B85: fsubr st0, [00402AE4h] + loc_00871B9B: GoTo loc_00871083 + loc_00871BC4: var_54 = CInt((6.37066138261923E-314 + global_4027F8)) + loc_00871BC7: var_eax = Proc_84A0F0(Me(30), var_54) + loc_00871BD1: If Me = %x1 Then + loc_00871BD7: If Me = %x1 = 0 Then + loc_00871BE8: If 0000000Eh >= 0 Then + loc_00871BEA: var_eax = Err.Raise + loc_00871BEC: End If + loc_00871BF3: GoTo loc_00871BF7 + loc_00871BF5: End If + loc_00871BF5: End If + loc_00871BF5: var_eax = Err.Raise + loc_00871BF7: 'Referenced from: 00871BF3 + loc_00871C04: If global_886000 = 0 Then + loc_00871C0C: GoTo loc_00871C1F + loc_00871C0E: End If + loc_00871C1F: 'Referenced from: 00871C0C + loc_00871C32: If global_886000 = 0 Then + loc_00871C3A: GoTo loc_00871C4D + loc_00871C3C: End If + loc_00871C4D: 'Referenced from: 00871C3A + loc_00871C56: If global_886000 = 0 Then + loc_00871C5B: GoTo loc_00871C65 + loc_00871C5D: End If + loc_00871C60: call _adj_fdiv_m32(edx+eax, global_40172C) + loc_00871C65: 'Referenced from: 00871C5B + loc_00871C75: If global_886000 = 0 Then + loc_00871C7D: GoTo loc_00871C90 + loc_00871C7F: End If + loc_00871C90: 'Referenced from: 00871C7D + loc_00871C9D: If global_886000 = 0 Then + loc_00871CA5: GoTo loc_00871CB8 + loc_00871CA7: End If + loc_00871CB8: 'Referenced from: 00871CA5 + loc_00871CD9: If global_886000 = 0 Then + loc_00871CE1: GoTo loc_00871CF4 + loc_00871CE3: End If + loc_00871CF4: 'Referenced from: 00871CE1 + loc_00871D01: If global_886000 = 0 Then + loc_00871D09: GoTo loc_00871D1C + loc_00871D0B: End If + loc_00871D1C: 'Referenced from: 00871D09 + loc_00871D43: If global_886000 = 0 Then + loc_00871D48: GoTo loc_00871D52 + loc_00871D4A: End If + loc_00871D4D: call _adj_fdiv_m32(Me.Caption = %StkVar1, global_40172C, global_401728, global_40172C) + loc_00871D52: 'Referenced from: 00871D48 + loc_00871D71: If global_886000 = 0 Then + loc_00871D76: GoTo loc_00871D80 + loc_00871D78: End If + loc_00871D7B: call _adj_fdiv_m32(Me.Caption = %StkVar1) + loc_00871D80: 'Referenced from: 00871D76 + loc_00871DA6: var_5C = Sin(6.37066138261923E-314#) + loc_00871DC8: GoTo loc_00871083 + loc_00871DD2: If Me = %x1 Then + loc_00871DD8: If Me = %x1 = 0 Then + loc_00871DE9: If 00000010h >= 0 Then + loc_00871DEB: var_eax = Err.Raise + loc_00871DF1: End If + loc_00871DFE: GoTo loc_00871E02 + loc_00871E00: End If + loc_00871E00: End If + loc_00871E00: var_eax = Err.Raise + loc_00871E02: 'Referenced from: 00871DFE + loc_00871E1B: If global_886000 = 0 Then + loc_00871E20: GoTo loc_00871E2A + loc_00871E22: End If + loc_00871E25: call _adj_fdiv_m32(edx+eax) + loc_00871E2A: 'Referenced from: 00871E20 + loc_00871E37: call __vbaPowerR8((&H0000000300905A4D&H / [edx+eax])) + loc_00871E40: var_2C = (global_401D30 / global_401728) + loc_00871E45: If Me = %x1 Then + loc_00871E4B: If Me = %x1 = 0 Then + loc_00871E5C: If 00000010h >= 0 Then + loc_00871E5E: var_eax = Err.Raise + loc_00871E64: End If + loc_00871E6B: GoTo loc_00871E6F + loc_00871E6D: End If + loc_00871E6D: End If + loc_00871E6D: call edi + loc_00871E6F: 'Referenced from: 00871E6B + loc_00871E8B: If global_886000 = 0 Then + loc_00871E90: GoTo loc_00871E9A + loc_00871E92: End If + loc_00871E95: call _adj_fdiv_m32(edx+eax) + loc_00871E9A: 'Referenced from: 00871E90 + loc_00871EB5: If Me = %x1 Then + loc_00871EBB: If Me = %x1 = 0 Then + loc_00871ECC: If 00000010h >= 0 Then + loc_00871ECE: var_eax = Err.Raise + loc_00871ED4: End If + loc_00871EDB: GoTo loc_00871EE3 + loc_00871EDD: End If + loc_00871EDD: End If + loc_00871EDD: var_eax = Err.Raise + loc_00871EE3: 'Referenced from: 00871EDB + loc_00871EF9: If global_886000 = 0 Then + loc_00871EFE: GoTo loc_00871F08 + loc_00871F00: End If + loc_00871F03: call _adj_fdiv_m32(edx+eax) + loc_00871F08: 'Referenced from: 00871EFE + loc_00871F24: If global_886000 = 0 Then + loc_00871F2C: GoTo loc_00871F3F + loc_00871F2E: End If + loc_00871F3F: 'Referenced from: 00871F2C + loc_00871F56: var_88 = CInt((((6.37066138261923E-314 * global_402D80) / [edx+eax]) * var_2C)) + loc_00871F65: var_84 = var_7C + loc_00871F78: If global_886000 = 0 Then + loc_00871F80: GoTo loc_00871F93 + loc_00871F82: End If + loc_00871F93: 'Referenced from: 00871F80 + loc_00871FB2: If global_886000 = 0 Then + loc_00871FBA: GoTo loc_00871FCD + loc_00871FBC: End If + loc_00871FCD: 'Referenced from: 00871FBA + loc_00871FD3: var_90 = Err.Number + loc_00871FE6: If global_886000 = 0 Then + loc_00871FEE: GoTo loc_00872001 + loc_00871FF0: End If + loc_00872001: 'Referenced from: 00871FEE + loc_0087204F: If Me = %x1 Then + loc_00872055: If Me = %x1 = 0 Then + loc_00872066: If 00000010h >= 0 Then + loc_00872068: var_eax = Err.Raise + loc_0087206E: End If + loc_00872075: GoTo loc_0087207D + loc_00872077: End If + loc_00872077: End If + loc_00872077: var_eax = Err.Raise + loc_0087207D: 'Referenced from: 00872075 + loc_00872099: If global_886000 = 0 Then + loc_0087209E: GoTo loc_008720A8 + loc_008720A0: End If + loc_008720A3: call _adj_fdiv_m32(ecx+eax) + loc_008720A8: 'Referenced from: 0087209E + loc_008720A8: fsubr st0, [00402D78h] + loc_008720AE: var_24 = _adj_fdiv_m32(ecx+eax) + loc_0087210C: If global_886000 = 0 Then + loc_00872114: GoTo loc_00872127 + loc_00872116: End If + loc_00872127: 'Referenced from: 00872114 + loc_0087212A: var_94 = CInt((Cos(6.37066138261923E-314#) * var_24)) + loc_0087213F: If global_886000 = 0 Then + loc_00872147: GoTo loc_0087215A + loc_00872149: End If + loc_0087215A: 'Referenced from: 00872147 + loc_00872162: var_9C = CInt((Sin(6.37066138261923E-314#) * var_24)) + loc_0087218B: If global_886000 = 0 Then + loc_00872193: GoTo loc_008721A6 + loc_00872195: End If + loc_008721A6: 'Referenced from: 00872193 + loc_008721A9: var_A0 = CInt((Sin(6.37066138261923E-314#) * var_24)) + loc_008721BC: If global_886000 = 0 Then + loc_008721C4: GoTo loc_008721D7 + loc_008721C6: End If + loc_008721D7: 'Referenced from: 008721C4 + loc_008721DF: var_A8 = CInt((Sin(6.37066138261923E-314#) * var_24)) + loc_00872208: If global_886000 = 0 Then + loc_00872210: GoTo loc_00872223 + loc_00872212: End If + loc_00872223: 'Referenced from: 00872210 + loc_00872230: If global_886000 = 0 Then + loc_00872238: GoTo loc_0087224B + loc_0087223A: End If + loc_0087224B: 'Referenced from: 00872238 + loc_00872253: var_B0 = Err.Number + loc_0087227C: If global_886000 = 0 Then + loc_00872284: GoTo loc_00872297 + loc_00872286: End If + loc_00872297: 'Referenced from: 00872284 + loc_008722A4: If global_886000 = 0 Then + loc_008722AC: GoTo loc_008722BF + loc_008722AE: End If + loc_008722BF: 'Referenced from: 008722AC + loc_008722C7: var_B8 = Err.Number + loc_008722F0: If global_886000 = 0 Then + loc_008722F8: GoTo loc_0087230B + loc_008722FA: End If + loc_0087230B: 'Referenced from: 008722F8 + loc_00872318: If global_886000 = 0 Then + loc_00872320: GoTo loc_00872333 + loc_00872322: End If + loc_00872333: 'Referenced from: 00872320 + loc_0087233B: var_C0 = Err.Number + loc_00872364: If global_886000 = 0 Then + loc_0087236C: GoTo loc_0087237F + loc_0087236E: End If + loc_0087237F: 'Referenced from: 0087236C + loc_0087238C: If global_886000 = 0 Then + loc_00872394: GoTo loc_008723A7 + loc_00872396: End If + loc_008723A7: 'Referenced from: 00872394 + loc_008723AF: var_C8 = Err.Number + loc_008723D8: If global_886000 = 0 Then + loc_008723E0: GoTo loc_008723F3 + loc_008723E2: End If + loc_008723F3: 'Referenced from: 008723E0 + loc_00872400: If global_886000 = 0 Then + loc_00872408: GoTo loc_0087241B + loc_0087240A: End If + loc_0087241B: 'Referenced from: 00872408 + loc_00872423: var_D0 = Err.Number + loc_0087244C: If global_886000 = 0 Then + loc_00872454: GoTo loc_00872467 + loc_00872456: End If + loc_00872467: 'Referenced from: 00872454 + loc_00872474: If global_886000 = 0 Then + loc_0087247C: GoTo loc_0087248F + loc_0087247E: End If + loc_0087248F: 'Referenced from: 0087247C + loc_00872497: var_D8 = Err.Number + loc_008724D8: GoTo loc_008724E0 + loc_008724DA: End If + loc_008724DA: fsubr st0, [00886098h] + loc_008724E0: 'Referenced from: 008724D8 + loc_008724E0: global_886098 = Err.Number + loc_00872515: global_88609C = Err.Number + loc_00872525: GoTo loc_00872B8F + loc_0087252A: End If + loc_0087252A: fsubr st0, [0088609Ch] + loc_00872530: global_88609C = Err.Number + loc_00872540: GoTo loc_00871083 + loc_008725C7: If global_886000 = 0 Then + loc_008725CF: GoTo loc_008725E2 + loc_008725D1: End If + loc_008725E2: 'Referenced from: 008725CF + loc_008725E7: var_94 = CInt((Cos(6.37066138261923E-314#) * global_402D68)) + loc_008725F0: var_A0 = CInt((Sin(6.37066138261923E-314#) * global_402D68)) + loc_00872603: If global_886000 = 0 Then + loc_0087260B: GoTo loc_0087261E + loc_0087260D: End If + loc_0087261E: 'Referenced from: 0087260B + loc_00872626: var_E0 = CInt((Cos(6.37066138261923E-314#) * global_402D68)) + loc_0087264F: If global_886000 = 0 Then + loc_00872657: GoTo loc_0087266A + loc_00872659: End If + loc_0087266A: 'Referenced from: 00872657 + loc_00872677: If global_886000 = 0 Then + loc_0087267F: GoTo loc_00872692 + loc_00872681: End If + loc_00872692: 'Referenced from: 0087267F + loc_0087269A: var_E8 = Err.Number + loc_008726C3: If global_886000 = 0 Then + loc_008726CB: GoTo loc_008726DE + loc_008726CD: End If + loc_008726DE: 'Referenced from: 008726CB + loc_008726EB: If global_886000 = 0 Then + loc_008726F3: GoTo loc_00872706 + loc_008726F5: End If + loc_00872706: 'Referenced from: 008726F3 + loc_0087270E: var_F0 = Err.Number + loc_00872737: If global_886000 = 0 Then + loc_0087273F: GoTo loc_00872752 + loc_00872741: End If + loc_00872752: 'Referenced from: 0087273F + loc_0087275F: If global_886000 = 0 Then + loc_00872767: GoTo loc_0087277A + loc_00872769: End If + loc_0087277A: 'Referenced from: 00872767 + loc_00872790: var_F8 = Err.Number + loc_008727B9: If global_886000 = 0 Then + loc_008727C1: GoTo loc_008727D4 + loc_008727C3: End If + loc_008727D4: 'Referenced from: 008727C1 + loc_008727E1: If global_886000 = 0 Then + loc_008727E9: GoTo loc_008727FC + loc_008727EB: End If + loc_008727FC: 'Referenced from: 008727E9 + loc_00872804: var_100 = Err.Number + loc_0087282D: If global_886000 = 0 Then + loc_00872835: GoTo loc_00872848 + loc_00872837: End If + loc_00872848: 'Referenced from: 00872835 + loc_00872855: If global_886000 = 0 Then + loc_0087285D: GoTo loc_00872870 + loc_0087285F: End If + loc_00872870: 'Referenced from: 0087285D + loc_00872878: var_108 = Err.Number + loc_008728A1: If global_886000 = 0 Then + loc_008728A9: GoTo loc_008728BC + loc_008728AB: End If + loc_008728BC: 'Referenced from: 008728A9 + loc_008728C9: If global_886000 = 0 Then + loc_008728D1: GoTo loc_008728E4 + loc_008728D3: End If + loc_008728E4: 'Referenced from: 008728D1 + loc_008728EC: var_110 = Err.Number + loc_00872915: If global_886000 = 0 Then + loc_0087291D: GoTo loc_00872930 + loc_0087291F: End If + loc_00872930: 'Referenced from: 0087291D + loc_0087293D: If global_886000 = 0 Then + loc_00872945: GoTo loc_00872958 + loc_00872947: End If + loc_00872958: 'Referenced from: 00872945 + loc_00872960: var_118 = Err.Number + loc_00872981: If Me = %x1 Then + loc_00872987: If Me = %x1 = 0 Then + loc_00872998: If 00000011h >= 0 Then + loc_0087299A: var_eax = Err.Raise + loc_008729A0: End If + loc_008729A3: GoTo loc_008729AD + loc_008729A5: End If + loc_008729A5: End If + loc_008729A5: var_eax = Err.Raise + loc_008729AD: 'Referenced from: 008729A3 + loc_008729D3: If global_886000 = 0 Then + loc_008729D8: GoTo loc_008729E2 + loc_008729DA: End If + loc_008729DD: call _adj_fdiv_m32(ecx+ebx, global_40172C, global_40172C, global_401728, global_40172C, global_40172C, global_401728, global_40172C, global_40172C, global_401728, global_40172C) + loc_008729E2: 'Referenced from: 008729D8 + loc_008729F3: var_28 = CInt(((6.37066138261923E-314 / [ecx+ebx]) * st1)) + loc_00872A0F: If Me = %x1 Then + loc_00872A15: If Me = %x1 = 0 Then + loc_00872A26: If 00000011h >= 0 Then + loc_00872A28: var_eax = Err.Raise + loc_00872A2E: End If + loc_00872A31: GoTo loc_00872A3B + loc_00872A33: End If + loc_00872A33: End If + loc_00872A33: var_eax = Err.Raise + loc_00872A3B: 'Referenced from: 00872A31 + loc_00872A61: If global_886000 = 0 Then + loc_00872A66: GoTo loc_00872A70 + loc_00872A68: End If + loc_00872A6B: call _adj_fdiv_m32(ecx+ebx) + loc_00872A70: 'Referenced from: 00872A66 + loc_00872A96: If global_886000 = 0 Then + loc_00872A9E: GoTo loc_00872AB1 + loc_00872AA0: End If + loc_00872AB1: 'Referenced from: 00872A9E + loc_00872AB5: var_11C = var_28 + loc_00872AC8: If global_886000 = 0 Then + loc_00872AD0: GoTo loc_00872AE3 + loc_00872AD2: End If + loc_00872AE3: 'Referenced from: 00872AD0 + loc_00872AEB: var_124 = CInt(((6.37066138261923E-314 / [ecx+ebx]) * st1)) + loc_00872B14: If global_886000 = 0 Then + loc_00872B1C: GoTo loc_00872B2F + loc_00872B1E: End If + loc_00872B2F: 'Referenced from: 00872B1C + loc_00872B32: var_128 = CInt(((6.37066138261923E-314 / [ecx+ebx]) * st1)) + loc_00872B45: If global_886000 = 0 Then + loc_00872B4D: GoTo loc_00872B60 + loc_00872B4F: End If + loc_00872B60: 'Referenced from: 00872B4D + loc_00872B68: var_130 = CInt(((6.37066138261923E-314 / [ecx+ebx]) * st1)) + loc_00872B84: GoTo loc_00871083 + loc_00872B8F: End If + loc_00872B95: GoTo loc_00872BA1 + loc_00872BA0: Exit Sub + loc_00872BA1: 'Referenced from: 00872B95 + loc_00872BA1: Exit Sub +End Sub + +Public Sub loadGraphics() '872C60 + Dim Me As Me + Dim var_18 As Me + loc_00872CA1: global_88614C = &H100 + loc_00872CA7: global_88614E = &H100 + loc_00872CC6: global_886098 = 42C80000h + loc_00872CD0: global_88609C = 42480000h + loc_00872CDA: var_eax = Proc_10_13_84B1F0(global_008865DC, global_0088614C, global_0088614E) + loc_00872D09: var_eax = Proc_10_12_84AC50(global_008865DC, global_00886014 & "graphics\backgrounds\cement dark.bmp", @%StkVar2 & %x1) + loc_00872D31: call Proc_10_13_84B1F0(%x1 = Me.FontSize, &H100, &H100) + loc_00872D55: call Proc_10_12_84AC50(%x1 = Me.FontSize, global_00886014 & "graphics\intro\grid.bmp", ) + loc_00872D6A: call Proc_84A590(%x1 = Me.FontSize, , ) + loc_00872D8C: call Proc_10_13_84B1F0(Me.FontSize = %x1s, &HA0, &H1E0) + loc_00872DA4: var_18 = global_00886014 & "graphics\intro\flashbg.bmp" + loc_00872DB1: call Proc_10_12_84AC50(Me.FontSize = %x1s, fs:[00000000h], ) + loc_00872DDC: call Proc_10_13_84B1F0(%x1 = Me.FontBold, &HA0, &H37) + loc_00872E00: call Proc_10_12_84AC50(%x1 = Me.FontBold, global_00886014 & "graphics\intro\flashtop.bmp", ) + loc_00872E2B: call Proc_10_13_84B1F0(Me.FontBold = %x1b, &HA0, &H37) + loc_00872E43: var_18 = global_00886014 & "graphics\intro\flashbottom.bmp" + loc_00872E50: call Proc_10_12_84AC50(Me.FontBold = %x1b) + loc_00872E78: call Proc_10_13_84B1F0(%x1 = Me.ForeColor, &H13A, &HA5) + loc_00872E99: call Proc_10_12_84AC50(%x1 = Me.ForeColor, global_00886014 & "graphics\intro\mwlogo.bmp") + loc_00872EAB: call Proc_84A590(%x1 = Me.ForeColor) + loc_00872ECD: call Proc_10_13_84B1F0(%x1 = Me.Width, &HFA, &H4C) + loc_00872EE5: var_18 = global_00886014 & "graphics\intro\midas.jpg" + loc_00872EF2: call Proc_10_12_84AC50(%x1 = Me.Width) + loc_00872F07: call Proc_84A590(%x1 = Me.Width) + loc_00872F29: call Proc_10_13_84B1F0(%x1 = Me.MousePointer, &H12C, &H8B) + loc_00872F4D: call Proc_10_12_84AC50(%x1 = Me.MousePointer, global_00886014 & "graphics\intro\musiclogo.bmp") + loc_00872F62: call Proc_84A590(%x1 = Me.MousePointer) + loc_00872F84: call Proc_10_13_84B1F0(%x1 = Me.Enabled, &H13B, &HA0) + loc_00872F9C: var_18 = global_00886014 & "graphics\intro\fluxlogo.bmp" + loc_00872FA9: call Proc_10_12_84AC50(%x1 = Me.Enabled) + loc_00872FBE: call Proc_84A590(%x1 = Me.Enabled) + loc_00872FDD: call Proc_10_13_84B1F0(Me.FontItalic = %x1b, &HB5, &HB5) + loc_00873001: call Proc_10_12_84AC50(Me.FontItalic = %x1b, global_00886014 & "graphics\intro\ball.bmp") + loc_00873016: call Proc_84A590(Me.FontItalic = %x1b) + loc_00873035: call Proc_10_13_84B1F0(Me.FontUnderline = %x1b, &HBE, &HBE) + loc_0087304D: var_18 = global_00886014 & "graphics\intro\cube.bmp" + loc_0087305A: call Proc_10_12_84AC50(Me.FontUnderline = %x1b) + loc_0087306F: call Proc_84A590(Me.FontUnderline = %x1b) + loc_00873091: call Proc_10_13_84B1F0(Me.CurrentX = %x1s, &HB5, &HC0) + loc_008730B5: call Proc_10_12_84AC50(Me.CurrentX = %x1s, global_00886014 & "graphics\intro\cone.bmp") + loc_008730CA: call Proc_84A590(Me.CurrentX = %x1s) + loc_008730EC: call Proc_10_13_84B1F0(Me.ScaleLeft = %x1s, &HBE, &HC0) + loc_00873104: var_18 = global_00886014 & "graphics\intro\gem.bmp" + loc_00873111: call Proc_10_12_84AC50(Me.ScaleLeft = %x1s) + loc_00873126: call Proc_84A590(Me.ScaleLeft = %x1s) + loc_00873131: Me = Me + 00000104h + loc_00873148: var_eax = Proc_10_13_84B1F0(Me+00000104h, &HBE, &HB7) + loc_00873166: var_eax = Proc_10_12_84AC50(Me+00000104h, global_00886014 & "graphics\intro\bomb.bmp") + loc_00873175: var_eax = Proc_84A590(Me+00000104h) + loc_00873180: GoTo loc_0087318C + loc_0087318B: Exit Sub + loc_0087318C: 'Referenced from: 00873180 +End Sub + +Public Sub drawIntroBG() '8731B0 + Dim Me As Me + loc_008731F4: If %x1 = Me.FontItalic = 0 Then + loc_00873213: var_28 = ((global_8860D4 * global_886098) + [esi+0000005Ch]) + loc_0087323B: fabs + loc_00873247: var_2C = var_28 + loc_00873260: var_34 = global_0088614C + loc_0087327E: idiv ecx + loc_00873289: End If + loc_0087328C: fabs + loc_00873298: var_3C = &H0000000300905A4D&H + loc_008732B1: var_44 = global_0088614E + loc_008732CF: idiv ecx + loc_008732DA: End If + loc_00873320: var_eax = Proc_9_7_843920(global_008865DC, global_0088614C, global_0088614E) + loc_00873325: GoTo loc_0087350A + loc_0087332A: End If + loc_0087336C: call Proc_9_7_843920(Me.FontSize = %x1s, 160, global_008865E8) + loc_008733A2: call Proc_9_7_843920(%x1 = Me.FontBold, 160, global_008865E8) + loc_008733DF: call Proc_9_7_843920(Me.FontBold = %x1b, 160, global_008865E8) + loc_008733FD: var_4C = ((global_8860D4 * global_886098) + [esi+0000005Ch]) + loc_00873449: fabs + loc_00873455: var_50 = var_4C + loc_0087347F: idiv ecx + loc_0087348A: GoTo loc_00873492 + loc_0087348C: End If + loc_00873492: 'Referenced from: 0087348A + loc_00873495: fabs + loc_008734A1: var_58 = &H0000000300905A4D&H + loc_008734C5: idiv ecx + loc_008734D0: End If + loc_008734D3: fabs + loc_008734DB: var_60 = &H0000000300905A4D&H + loc_008734FF: idiv ecx + loc_0087350A: End If +End Sub + +Public Sub drawintroFG() '873530 + Dim Me As Me + loc_008735B7: Me = Me + 000000B0h + loc_008735C3: var_eax = Proc_9_7_843920(Me+000000B0h, 256, 256) +End Sub + +Public Sub drawGraphics() '8735F0 + Dim Me As Me + loc_00873630: var_eax = intro.drawIntroBG + loc_00873651: If esi+0000004Ch < 17 Then + loc_00873656: var_eax = intro.drawintroFG + loc_00873672: End If + loc_00873679: If %x1 = Me.FontUnderline Then + loc_008736BD: call Proc_10_14_84B2D0(Me.FontItalic = %x1b, global_008865E8, CInt(6.37066138261923E-314)) + loc_008736C2: GoTo loc_008736CA + loc_008736C4: End If + loc_008736CA: 'Referenced from: 008736C2 + loc_008736D1: If %x1 = Me.CurrentX Then + loc_0087370F: call Proc_10_14_84B2D0(Me.FontUnderline = %x1b, global_008865E8, CInt(6.37066138261923E-314)) + loc_00873714: End If + loc_0087371B: If %x1 = Me.ScaleLeft Then + loc_00873759: call Proc_10_14_84B2D0(Me.CurrentX = %x1s, global_008865E8, CInt(6.37066138261923E-314)) + loc_0087375E: End If + loc_00873765: If %x1 = Me.ScaleWidth Then + loc_008737A3: call Proc_10_14_84B2D0(Me.ScaleLeft = %x1s, global_008865E8, CInt(6.37066138261923E-314)) + loc_008737A8: End If + loc_008737AF: If %x1 = Me.ScaleMode Then + loc_008737BA: If esi+0000004Ch = 16 Then + loc_008737DC: var_30 = var_2C + loc_0087380A: var_38 = var_34 + loc_00873841: call Proc_10_15_84B580(Me.ScaleWidth = %x1s, global_008865E8, CInt(6.37066138261923E-314)) + loc_00873846: GoTo loc_00873889 + loc_00873848: End If + loc_00873884: call Proc_10_14_84B2D0(Me.ScaleWidth = %x1s, global_008865E8, CInt(6.37066138261923E-314)) + loc_00873889: End If + loc_0087388D: If Me.Left = %x1s Then + loc_008738C2: call Proc_10_14_84B2D0(%x1 = Me.ForeColor, global_008865E8, CInt(6.37066138261923E-314)) + loc_008738C7: End If + loc_008738CE: If Me.Height = %x1s Then + loc_00873909: call Proc_10_14_84B2D0(%x1 = Me.Width, global_008865E8, CInt(6.37066138261923E-314)) + loc_0087390E: End If + loc_00873915: If Me.FontName = %StkVar1 Then + loc_00873953: call Proc_10_14_84B2D0(%x1 = Me.MousePointer, global_008865E8, CInt(6.37066138261923E-314)) + loc_00873958: End If + loc_0087395F: If Me.WindowState = %StkVar1 Then + loc_00873991: Me = Me + 00000090h + loc_0087399D: var_eax = Proc_10_14_84B2D0(Me+00000090h, global_008865E8, CInt(6.37066138261923E-314)) + loc_008739A2: End If +End Sub + +Public Sub definePhases() '8739D0 + Dim Me As Me + loc_00873A22: ReDim Me = %x1(Me To 0) + loc_00873A37: ReDim %x1 = Me.Name(128 To 0) + loc_00873A42: var_28 = global_402C78 + loc_00873A55: var_24 = global_402E50 + loc_00873A68: var_1C = global_402E48 + loc_00873A8F: If Me = %x1 Then + loc_00873A95: If Me = %x1 = 0 Then + loc_00873AAC: If 00000001h >= 0 Then + loc_00873AAE: var_eax = Err.Raise + loc_00873AB0: End If + loc_00873AB7: GoTo loc_00873AC7 + loc_00873AB9: End If + loc_00873AB9: End If + loc_00873AB9: var_eax = Err.Raise + loc_00873AC7: 'Referenced from: 00873AB7 + loc_00873ACF: var_54 = global_402E40 + loc_00873AE9: If Me = %x1 Then + loc_00873AEF: If Me = %x1 = 0 Then + loc_00873B00: If 00000002h >= 0 Then + loc_00873B02: var_eax = Err.Raise + loc_00873B04: End If + loc_00873B0B: GoTo loc_00873B11 + loc_00873B0D: End If + loc_00873B0D: End If + loc_00873B0D: var_eax = Err.Raise + loc_00873B11: 'Referenced from: 00873B0B + loc_00873B19: var_58 = global_402E40 + loc_00873B33: If Me = %x1 Then + loc_00873B39: If Me = %x1 = 0 Then + loc_00873B4A: If 00000003h >= 0 Then + loc_00873B4C: var_eax = Err.Raise + loc_00873B4E: End If + loc_00873B55: GoTo loc_00873B59 + loc_00873B57: End If + loc_00873B57: End If + loc_00873B57: var_eax = Err.Raise + loc_00873B59: 'Referenced from: 00873B55 + loc_00873B68: If Me = %x1 Then + loc_00873B6E: If Me = %x1 = 0 Then + loc_00873B7F: If 00000004h >= 0 Then + loc_00873B81: var_eax = Err.Raise + loc_00873B83: End If + loc_00873B8A: GoTo loc_00873B8E + loc_00873B8C: End If + loc_00873B8C: End If + loc_00873B8C: var_eax = Err.Raise + loc_00873B8E: 'Referenced from: 00873B8A + loc_00873B9D: If Me = %x1 Then + loc_00873BA3: If Me = %x1 = 0 Then + loc_00873BB4: If 00000005h >= 0 Then + loc_00873BB6: var_eax = Err.Raise + loc_00873BB8: End If + loc_00873BBF: GoTo loc_00873BC3 + loc_00873BC1: End If + loc_00873BC1: End If + loc_00873BC1: var_eax = Err.Raise + loc_00873BC3: 'Referenced from: 00873BBF + loc_00873BD2: If Me = %x1 Then + loc_00873BD8: If Me = %x1 = 0 Then + loc_00873BE9: If 00000006h >= 0 Then + loc_00873BEB: var_eax = Err.Raise + loc_00873BF1: End If + loc_00873BF8: GoTo loc_00873C00 + loc_00873BFA: End If + loc_00873BFA: End If + loc_00873BFA: var_eax = Err.Raise + loc_00873C00: 'Referenced from: 00873BF8 + loc_00873C0F: If Me = %x1 Then + loc_00873C15: If Me = %x1 = 0 Then + loc_00873C26: If 00000007h >= 0 Then + loc_00873C28: var_eax = Err.Raise + loc_00873C2E: End If + loc_00873C35: GoTo loc_00873C3D + loc_00873C37: End If + loc_00873C37: End If + loc_00873C37: var_eax = Err.Raise + loc_00873C3D: 'Referenced from: 00873C35 + loc_00873C4C: If Me = %x1 Then + loc_00873C52: If Me = %x1 = 0 Then + loc_00873C63: If 00000008h >= 0 Then + loc_00873C65: var_eax = Err.Raise + loc_00873C6B: End If + loc_00873C72: GoTo loc_00873C7A + loc_00873C74: End If + loc_00873C74: End If + loc_00873C74: var_eax = Err.Raise + loc_00873C7A: 'Referenced from: 00873C72 + loc_00873C86: If Me = %x1 Then + loc_00873C8C: If Me = %x1 = 0 Then + loc_00873C9D: If 00000009h >= 0 Then + loc_00873C9F: var_eax = Err.Raise + loc_00873CA5: End If + loc_00873CAC: GoTo loc_00873CB4 + loc_00873CAE: End If + loc_00873CAE: End If + loc_00873CAE: var_eax = Err.Raise + loc_00873CB4: 'Referenced from: 00873CAC + loc_00873CC3: If Me = %x1 Then + loc_00873CC9: If Me = %x1 = 0 Then + loc_00873CDA: If 0000000Ah >= 0 Then + loc_00873CDC: var_eax = Err.Raise + loc_00873CE2: End If + loc_00873CE9: GoTo loc_00873CF1 + loc_00873CEB: End If + loc_00873CEB: End If + loc_00873CEB: var_eax = Err.Raise + loc_00873CF1: 'Referenced from: 00873CE9 + loc_00873D00: If Me = %x1 Then + loc_00873D06: If Me = %x1 = 0 Then + loc_00873D17: If 0000000Bh >= 0 Then + loc_00873D19: var_eax = Err.Raise + loc_00873D1F: End If + loc_00873D26: GoTo loc_00873D2E + loc_00873D28: End If + loc_00873D28: End If + loc_00873D28: var_eax = Err.Raise + loc_00873D2E: 'Referenced from: 00873D26 + loc_00873D3A: If Me = %x1 Then + loc_00873D40: If Me = %x1 = 0 Then + loc_00873D51: If 0000000Ch >= 0 Then + loc_00873D53: var_eax = Err.Raise + loc_00873D59: End If + loc_00873D60: GoTo loc_00873D68 + loc_00873D62: End If + loc_00873D62: End If + loc_00873D62: var_eax = Err.Raise + loc_00873D68: 'Referenced from: 00873D60 + loc_00873D77: If Me = %x1 Then + loc_00873D7D: If Me = %x1 = 0 Then + loc_00873D8E: If 0000000Dh >= 0 Then + loc_00873D90: var_eax = Err.Raise + loc_00873D96: End If + loc_00873D9D: GoTo loc_00873DA5 + loc_00873D9F: End If + loc_00873D9F: End If + loc_00873D9F: var_eax = Err.Raise + loc_00873DA5: 'Referenced from: 00873D9D + loc_00873DB4: If Me = %x1 Then + loc_00873DBA: If Me = %x1 = 0 Then + loc_00873DCB: If 0000000Eh >= 0 Then + loc_00873DCD: var_eax = Err.Raise + loc_00873DD3: End If + loc_00873DDA: GoTo loc_00873DE2 + loc_00873DDC: End If + loc_00873DDC: End If + loc_00873DDC: var_eax = Err.Raise + loc_00873DE2: 'Referenced from: 00873DDA + loc_00873DEE: If Me = %x1 Then + loc_00873DF4: If Me = %x1 = 0 Then + loc_00873E05: If 0000000Fh >= 0 Then + loc_00873E07: var_eax = Err.Raise + loc_00873E0D: End If + loc_00873E14: GoTo loc_00873E1C + loc_00873E16: End If + loc_00873E16: End If + loc_00873E16: var_eax = Err.Raise + loc_00873E1C: 'Referenced from: 00873E14 + loc_00873E2B: If Me = %x1 Then + loc_00873E31: If Me = %x1 = 0 Then + loc_00873E42: If 00000010h >= 0 Then + loc_00873E44: var_eax = Err.Raise + loc_00873E4A: End If + loc_00873E51: GoTo loc_00873E59 + loc_00873E53: End If + loc_00873E53: End If + loc_00873E53: var_eax = Err.Raise + loc_00873E59: 'Referenced from: 00873E51 + loc_00873E69: If Me = %x1 Then + loc_00873E6F: If Me = %x1 = 0 Then + loc_00873E80: If 00000011h >= 0 Then + loc_00873E82: var_eax = Err.Raise + loc_00873E88: End If + loc_00873E8F: GoTo loc_00873E97 + loc_00873E91: End If + loc_00873E91: End If + loc_00873E91: var_eax = Err.Raise + loc_00873E97: 'Referenced from: 00873E8F + loc_00873EA7: If Me = %x1 Then + loc_00873EAD: If Me = %x1 = 0 Then + loc_00873EBE: If 00000012h >= 0 Then + loc_00873EC0: var_eax = Err.Raise + loc_00873EC6: End If + loc_00873ECD: GoTo loc_00873ED5 + loc_00873ECF: End If + loc_00873ECF: End If + loc_00873ECF: var_eax = Err.Raise + loc_00873ED5: 'Referenced from: 00873ECD + loc_00873EF2: + loc_00873EF7: If %x1 = Me.Name Then + loc_00873EFD: If %x1 = Me.Name = 0 Then + loc_00873F0C: If 00000001h >= 0 Then + loc_00873F0E: var_eax = Err.Raise + loc_00873F17: End If + loc_00873F1E: GoTo loc_00873F29 + loc_00873F20: End If + loc_00873F20: End If + loc_00873F20: var_eax = Err.Raise + loc_00873F29: 'Referenced from: 00873F1E + loc_00873F3B: If Me = %x1 Then + loc_00873F41: If Me = %x1 = 0 Then + loc_00873F46: 00000001h = 00000001h - eax+00000014h + loc_00873F4C: If 00000001h >= 0 Then + loc_00873F4E: var_eax = Err.Raise + loc_00873F59: End If + loc_00873F60: GoTo loc_00873F6D + loc_00873F62: End If + loc_00873F62: End If + loc_00873F62: var_eax = Err.Raise + loc_00873F6D: 'Referenced from: 00873F60 + loc_00873F78: var_20 = (var_20 + [edi+eax]) + loc_00873F81: 00000001h = 00000001h + 0001h + loc_00873F8B: If 00000001h+0001h <= 19 Then GoTo loc_00873EF2 +End Sub + +Public Sub destroySounds() '874010 + Dim Me As Me + loc_0087404D: var_eax = Proc_10_19_84DA00(Me(30), edi, Me) + loc_00874056: call Proc_10_19_84DA00(%x1 = Me.Top, , ) + loc_0087405F: var_eax = Proc_10_19_84DA00(Me(31), fs:[00000000h], ) + loc_00874068: call Proc_10_19_84DA00(Me.Top = %x1s, , ) + loc_0087406D: Me = Me + 0000007Eh + loc_00874071: var_eax = Proc_10_19_84DA00(Me+0000007Eh) +End Sub + +Public Sub switchbgspeed() '8740A0 + Dim Me As Me + loc_008740DD: Me(20) = Me(20) + FFFFFFFBh + loc_008740E3: If Me(20)+FFFFFFFBh <= 9 Then + loc_008740F1: GoTo loc_[ecx*4+008741A4h] + loc_00874108: global_886098 = var_24 + loc_0087411E: GoTo loc_0087417E + loc_0087412A: global_886098 = var_2C + loc_00874140: GoTo loc_0087417E + loc_0087414C: global_886098 = var_34 + loc_0087415C: GoTo loc_0087417E + loc_0087416E: global_886098 = var_3C + loc_0087417E: 'Referenced from: 0087411E + loc_0087417E: global_88609C = var_40 + loc_00874184: End If +End Sub + +Public Sub loadIntroSounds() '8741D0 + Dim Me As Me + Dim var_38 As Me + loc_0087425E: var_eax = Proc_10_18_84C230(global_00886014 & "sfx\wind.wav", var_5C, 10) + loc_008742C5: var_eax = Proc_10_18_84C230(global_00886014 & "sfx\rumble.wav", var_5C, 10) + loc_0087432B: var_eax = Proc_10_18_84C230(global_00886014 & "sfx\largeExplode1.wav", var_5C, 10) + loc_00874398: var_eax = Proc_10_18_84C230(global_00886014 & "sfx\mediumExplode4.wav", var_5C, 10) + loc_00874401: Me = Me + 0000007Eh + loc_00874404: var_eax = Proc_10_18_84C230(global_00886014 & "sfx\largeExplode3.wav", var_5C, 10) + loc_00874438: var_eax = Proc_10_21_84DFD0(var_6C, FFFFEC78h, var_38) + loc_00874445: var_eax = Proc_10_21_84DFD0(Me+0000007Eh, FFFFEC78h, var_38) + loc_0087444F: GoTo loc_0087446E + loc_0087446D: Exit Sub + loc_0087446E: 'Referenced from: 0087444F +End Sub + +Public Sub prepareToUnload() '874490 + Dim Me As Variant + Dim var_1C As Me + loc_008744ED: Set %x1 = Me.ForeColor = Me + loc_00874514: Set %x1 = Me.Width = var_1C + loc_0087453B: Set %x1 = Me.MousePointer = var_1C + loc_00874562: Set %x1 = Me.Enabled = %x1 = Me.MousePointer + loc_00874589: Set Me.FontSize = Me.FontSize = %x1s = var_1C + loc_008745B0: Set %x1 = Me.FontBold = var_1C + loc_008745D7: Set Me.FontBold = Me.FontBold = %x1b = %x1 = Me.FontBold + loc_008745FE: Set Me.FontItalic = Me.FontItalic = %x1b = var_1C + loc_0087464C: Set Me.ScaleLeft = Me.ScaleLeft = %x1s = Me.FontUnderline = %x1b = var_1C + loc_00874673: Set Me.CurrentX = Me.CurrentX = %x1s = var_1C + loc_008746AB: Set %x1 = Me.FontSize = var_1C + loc_008746D2: Set Me.ScaleWidth = Me.ScaleWidth = %x1s = %x1 = Me.FontSize + loc_00874719: var_eax = Unknown_VTable_Call[eax+00000084h] + loc_0087477A: var_eax = Unknown_VTable_Call[eax+0000008Ch] + loc_008747C7: var_eax = Proc_10_12_84AC50(global_008865E8, global_00886014 & "graphics\misc\titlescreen.jpg", global_00886638) + loc_00874805: GoTo loc_0087481A + loc_00874819: Exit Sub + loc_0087481A: 'Referenced from: 00874805 +End Sub diff --git a/src/intro.frx b/src/intro.frx new file mode 100644 index 0000000..7eb4658 Binary files /dev/null and b/src/intro.frx differ diff --git a/src/login.frm b/src/login.frm new file mode 100644 index 0000000..2ef493b --- /dev/null +++ b/src/login.frm @@ -0,0 +1,2003 @@ +VERSION 5.00 +Begin VB.Form login + BackColor = &H40& + WindowState = 2 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + Picture = "login.frx":0 + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ControlBox = 0 'False + Tag = "titlescreen" + KeyPreview = -1 'True + ClientLeft = 705 + ClientTop = 540 + ClientWidth = 14910 + ClientHeight = 10125 + ShowInTaskbar = 0 'False + Moveable = 0 'False + Begin PictureBox rotateDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 6360 + Top = 600 + Width = 1725 + Height = 1725 + Visible = 0 'False + TabIndex = 34 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox frameResetPlayer + BackColor = &H410514& + Left = 10200 + Top = 6510 + Width = 8910 + Height = 3240 + Visible = 0 'False + TabIndex = 27 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Begin PictureBox btnButton + BackColor = &H404040& + Index = 11 + ForeColor = &H80000008& + Left = 7620 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 30 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 11 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 31 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "back" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 10 + ForeColor = &H80000008& + Left = 6330 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 28 + 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 = 29 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "ok" + Appearance = 0 'Flat + End + End + Begin Label lblLabel + Caption = "Warning!!" + Index = 4 + BackColor = &H450A1A& + ForeColor = &HFF& + Left = 60 + Top = 1110 + Width = 8715 + Height = 270 + TabIndex = 33 + Alignment = 2 'Center + AutoSize = -1 'True + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 12 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblResetPlayer + Caption = "Are you sure you want to reset this player?" + BackColor = &H450A1A& + ForeColor = &HFFFFFF& + Left = 60 + Top = 1470 + Width = 8805 + Height = 240 + TabIndex = 32 + Alignment = 2 'Center + AutoSize = -1 'True + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + End + Begin PictureBox frameRemovePlayer + BackColor = &H410514& + Left = 10050 + Top = 3120 + Width = 8910 + Height = 3240 + Visible = 0 'False + TabIndex = 20 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Begin PictureBox btnButton + BackColor = &H404040& + Index = 8 + ForeColor = &H80000008& + Left = 6330 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 23 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 8 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 24 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "ok" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 9 + ForeColor = &H80000008& + Left = 7620 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 21 + 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 = 22 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "back" + Appearance = 0 'Flat + End + End + Begin Label lblRemovePlayer + Caption = "Are you sure you want to remove this player?" + BackColor = &H450A1A& + ForeColor = &HFFFFFF& + Left = 0 + Top = 1470 + Width = 8865 + Height = 240 + TabIndex = 26 + Alignment = 2 'Center + AutoSize = -1 'True + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 9.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLabel + Caption = "Warning!!" + Index = 0 + BackColor = &H450A1A& + ForeColor = &HFF& + Left = 90 + Top = 1080 + Width = 8715 + Height = 270 + TabIndex = 25 + Alignment = 2 'Center + AutoSize = -1 'True + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 12 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + End + Begin PictureBox frameAddPlayer + BackColor = &H410514& + Left = 10050 + Top = -240 + Width = 8910 + Height = 3240 + Visible = 0 'False + TabIndex = 13 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Begin PictureBox btnButton + BackColor = &H404040& + Index = 7 + ForeColor = &H80000008& + Left = 7620 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 18 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 7 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 19 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "back" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 6 + ForeColor = &H80000008& + Left = 6330 + Top = 2700 + Width = 1200 + Height = 450 + TabIndex = 16 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 6 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 17 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "ok" + Appearance = 0 'Flat + End + End + Begin TextBox txtPlayerName + BackColor = &H410514& + ForeColor = &HFFFFFF& + Left = 2430 + Top = 1410 + Width = 4305 + Height = 405 + Text = "Unknown" + TabIndex = 15 + MaxLength = 12 + BeginProperty Font + Name = "Verdana" + Size = 9 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLabel + Caption = "Please enter your name:" + Index = 1 + BackColor = &H450A1A& + ForeColor = &HFFFFFF& + Left = 2400 + Top = 1110 + Width = 3285 + Height = 210 + TabIndex = 14 + AutoSize = -1 'True + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 9 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 5 + ForeColor = &H80000008& + Left = 4290 + Top = 5190 + Width = 1530 + Height = 450 + TabIndex = 11 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + Begin PictureBox picAnim + BackColor = &H450A1A& + Index = 5 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 12 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + BorderStyle = 0 'None + Tag = "reset" + Appearance = 0 'Flat + End + End + Begin PictureBox animDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 210 + Top = 120 + Width = 2835 + Height = 690 + Visible = 0 'False + TabIndex = 10 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 4 + ForeColor = &H80000008& + Left = 2670 + Top = 5190 + Width = 1530 + Height = 450 + TabIndex = 7 + 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 = 8 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + BorderStyle = 0 'None + Tag = "remove" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 3 + ForeColor = &H80000008& + Left = 1050 + Top = 5190 + Width = 1530 + Height = 450 + TabIndex = 5 + 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 = 6 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + BorderStyle = 0 'None + Tag = "add" + Appearance = 0 'Flat + End + End + Begin ComboBox playerList + Style = 2 + BackColor = &H450A1A& + ForeColor = &HFFFFFF& + Left = 1065 + Top = 4605 + Width = 4770 + Height = 330 + TabIndex = 4 + BeginProperty Font + Name = "Verdana" + Size = 9 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Timer tmrMainLoop + Interval = 1 + Left = 7710 + Top = 4080 + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 2 + ForeColor = &H80000008& + Left = 8250 + 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 = 2 + ForeColor = &H80000008& + Left = 60 + Top = 45 + Width = 375 + Height = 360 + TabIndex = 3 + 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 = 6870 + Top = 6660 + Width = 1200 + Height = 450 + TabIndex = 0 + 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 = 1 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + BorderStyle = 0 'None + Tag = "ok" + Appearance = 0 'Flat + End + End + Begin Image gameIdentifier + Left = 1065 + Top = 3030 + Width = 4770 + Height = 1380 + End + Begin Label lblInfo + Caption = "Welcome to Flux!" + BackColor = &H450A1A& + ForeColor = &HFF& + Left = 6090 + Top = 4590 + Width = 3285 + Height = 480 + TabIndex = 9 + WordWrap = -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 = "login" + + +Private Sub Form_Load() '8291F0 + Dim Me As Variant + Dim var_2C As Variant + Dim var_30 As Variant + loc_00829280: var_eax = Proc_12_43_86D100(var_4C, var_2C, var_2C) + loc_008292A4: ReDim %x1 = Me.Name(Me To 0) + loc_008292D8: var_2C = Global.Screen + loc_00829309: var_84 = Global.Width + loc_00829357: var_30 = Global.Screen + loc_00829388: var_88 = Global.Height + loc_0082940A: var_eax = Unknown_VTable_Call[ecx+000002A4h] + loc_00829452: var_eax = Proc_12_45_86D280(var_2C, var_2C, Unknown_VTable_Call[ecx+000002A4h]) + loc_00829463: var_eax = login.positionControls + loc_00829482: var_eax = login.resetHighLights + loc_008294AC: var_eax = login.loadPlayers + loc_008294CF: eax = 00886018h - 1 + loc_008294D7: If 00886018h - 1 = 0 Then + loc_008294E0: End If + loc_008294F0: var_A0 = var_3C + loc_00829517: var_eax = Unknown_VTable_Call[ecx+00000300h] + loc_00829555: var_34 = buttons.BackColor + loc_00829586: var_C4 = var_A0 + loc_0082959A: var_eax = Unknown_VTable_Call[eax+0000005Ch] + loc_008295E9: var_84 = gameIdentifier.Width + loc_00829610: var_1C = CInt(var_84) + loc_00829635: var_84 = gameIdentifier.Height + loc_0082965C: var_20 = CInt(var_84) + loc_00829681: var_84 = gameIdentifier.Left + loc_008296A8: var_24 = CInt(var_84) + loc_008296CD: var_84 = gameIdentifier.Top + loc_008296F4: var_18 = CInt(var_84) + loc_00829734: var_eax = Proc_12_47_86E570(var_2C, var_2C, global_008868D0) + loc_00829776: var_eax = Unknown_VTable_Call[ecx+00000300h] + loc_0082978E: var_90 = Unknown_VTable_Call[ecx+00000300h] + loc_008297C5: var_84 = buttons.CurrentX + loc_008297F5: var_88 = var_84 + loc_00829826: var_eax = Proc_9_2_843330(var_88, global_008865E8, var_24) + loc_0082985F: var_eax = Unknown_VTable_Call[ecx+00000300h] + loc_00829877: var_90 = Unknown_VTable_Call[ecx+00000300h] + loc_00829908: var_eax = Proc_9_1_843220(var_34, var_38, var_24) + loc_00829946: var_eax = Proc_12_25_868460(4, global_008868D0, Proc_9_1_843220(var_34, var_38, var_24)) + loc_0082994E: var_eax = login.displayInfo + loc_00829977: GoTo loc_008299A2 + loc_008299A1: Exit Sub + loc_008299A2: 'Referenced from: 00829977 +End Sub + +Private Sub Form_Unload(Cancel As Integer) '829AE0 + loc_00829B47: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18) + loc_00829B66: GoTo loc_00829B7B + loc_00829B7A: Exit Sub + loc_00829B7B: 'Referenced from: 00829B66 +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '8281A0 + Dim Me As Variant + loc_008281F2: If KeyCode = 123 Then + loc_008281F4: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_008281F9: GoTo loc_00828343 + loc_008281FE: End If + loc_00828202: If Proc_12_18_864A90(edi, Me, ebx) = 0 Then + loc_00828225: var_1C = frameRemovePlayer.Visible + loc_0082825C: If var_1C Then + loc_00828265: GoTo loc_0082830A + loc_0082826A: End If + loc_00828287: var_1C = frameResetPlayer.Visible + loc_008282B0: If var_1C Then + loc_008282B9: GoTo loc_0082830A + loc_008282BB: End If + loc_008282D8: var_1C = frameAddPlayer.Visible + loc_00828301: If var_1C Then + loc_0082830A: 'Referenced from: 00828265 + loc_00828311: var_eax = login.btnButton_Click + loc_00828319: If login.btnButton_Click >= 0 Then GoTo loc_00828343 + loc_0082831B: GoTo loc_00828335 + loc_0082831D: End If + loc_0082832B: var_eax = login.btnButton_Click + loc_00828333: If login.btnButton_Click >= 0 Then GoTo loc_00828343 + loc_00828335: 'Referenced from: 0082831B + loc_00828341: login.btnButton_Click = CheckObj(Me, global_0040EF14, 1832) + loc_00828343: End If + loc_00828343: + loc_0082834F: GoTo loc_0082835B + loc_0082835A: Exit Sub + loc_0082835B: 'Referenced from: 0082834F +End Sub + +Private Sub Form_KeyPress(KeyAscii As Integer) '828380 + Dim Me As Variant + Dim var_28 As PictureBox + loc_008283DE: If KeyAscii = 13 Then + loc_00828401: var_28 = frameAddPlayer.Visible + loc_00828439: If var_28 Then + loc_00828449: var_eax = login.btnButton_Click + loc_00828451: If login.btnButton_Click >= 0 Then GoTo loc_00828588 + loc_00828457: GoTo loc_0082857A + loc_0082845C: End If + loc_00828479: var_28 = frameRemovePlayer.Visible + loc_008284B0: var_2C = frameResetPlayer.Visible + loc_008284E9: 1 = btnButton._Default + loc_00828509: var_30 = btnButton.Visible + loc_00828530: If var_2C = 0 Then eax = 1 + loc_0082853B: If var_28 = 0 Then ecx = 1 + loc_00828560: If var_30 Then + loc_00828570: var_eax = login.btnButton_Click + loc_00828578: If login.btnButton_Click < 0 Then + loc_0082857A: 'Referenced from: 00828457 + loc_00828586: login.btnButton_Click = CheckObj(Me, global_0040EF14, 1832) + loc_00828588: End If + loc_00828588: End If + loc_0082858A: End If + loc_00828592: GoTo loc_008285B0 + loc_008285AF: Exit Sub + loc_008285B0: 'Referenced from: 00828592 +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '8299D0 + loc_00829A13: var_eax = login.highLightCheck +End Sub + +Private Sub gameIdentifier_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829D50 + loc_00829D93: var_eax = login.highLightCheck +End Sub + +Private Sub playerList_Change() '82AC90 + loc_0082ACF5: var_1C = playerList.ListIndex + loc_0082AD1A: var_1C = var_1C + 0001h + loc_0082AD20: global_8861A4 = var_1C+0001h + loc_0082AD2F: var_eax = login.displayInfo + loc_0082AD53: GoTo loc_0082AD5F + loc_0082AD5E: Exit Sub + loc_0082AD5F: 'Referenced from: 0082AD53 + loc_0082AD5F: Exit Sub +End Sub + +Private Sub playerList_Click() '82B1C0 + loc_0082B203: var_eax = login.playerList_Change +End Sub + +Private Sub lblInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829DE0 + loc_00829E23: var_eax = login.highLightCheck +End Sub + +Private Sub picAnim_Click() '829E70 + loc_00829EB7: var_eax = login.btnButton_Click +End Sub + +Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829F00 + Dim var_28 As PictureBox + Dim var_40 As PictureBox + loc_00829F87: Button = picAnim._Default + loc_00829FB6: var_1C = picAnim.Tag + loc_00829FE4: var_20 = Right$(var_1C, 1) + loc_0082A003: edi = (var_20 = global_0040F164) + 1 + loc_0082A025: If (var_20 = global_0040F164) + 1 = 0 Then + loc_0082A048: + loc_0082A052: If Err.Number Then + loc_0082A06A: var_8C = Button + loc_0082A07D: If Err.Number Then + loc_0082A0B9: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A0D9: var_1C = picAnim.Tag + loc_0082A10B: edi = (var_1C = "ok") + 1 + loc_0082A12A: If (var_1C = "ok") + 1 Then + loc_0082A158: var_94 = var_28 + loc_0082A169: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A18A: picAnim.Tag = "oka" + loc_0082A1BE: End If + loc_0082A1D7: var_40 = var_28 + loc_0082A1ED: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A20D: var_1C = picAnim.Tag + loc_0082A23F: edi = (var_1C = "back") + 1 + loc_0082A25E: If (var_1C = "back") + 1 Then + loc_0082A293: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A2B4: picAnim.Tag = "backa" + loc_0082A2E8: End If + loc_0082A304: var_40 = var_28 + loc_0082A310: var_A0 = var_28 + loc_0082A321: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A341: var_1C = picAnim.Tag + loc_0082A373: edi = (var_1C = "reset") + 1 + loc_0082A392: If (var_1C = "reset") + 1 Then + loc_0082A3C7: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A3E8: picAnim.Tag = "reseta" + loc_0082A445: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A471: picAnim.AutoRedraw = False + loc_0082A49E: End If + loc_0082A4B7: var_40 = var_28 + loc_0082A4CD: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A4ED: var_1C = picAnim.Tag + loc_0082A51F: edi = (var_1C = "add") + 1 + loc_0082A53E: If (var_1C = "add") + 1 Then + loc_0082A573: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A594: picAnim.Tag = "adda" + loc_0082A5F1: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A61D: picAnim.AutoRedraw = False + loc_0082A64A: End If + loc_0082A663: var_40 = var_28 + loc_0082A679: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A699: var_1C = picAnim.Tag + loc_0082A6CB: edi = (var_1C = "remove") + 1 + loc_0082A6EA: If (var_1C = "remove") + 1 Then + loc_0082A71F: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A740: picAnim.Tag = "removea" + loc_0082A79D: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A7C9: picAnim.AutoRedraw = False + loc_0082A7F6: GoTo loc_0082ABFA + loc_0082A7FB: End If + loc_0082A819: var_B8 = var_28 + loc_0082A831: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A851: var_1C = picAnim.Tag + loc_0082A87E: var_18 = var_1C + loc_0082A8A4: var_1C = Right$(var_18, 1) + loc_0082A8BB: edi = (var_1C = global_0040F164) + 1 + loc_0082A8C7: If (var_1C = global_0040F164) + 1 Then + loc_0082A8E9: var_40 = var_28 + loc_0082A8F5: var_BC = var_28 + loc_0082A906: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A926: var_1C = picAnim.Tag + loc_0082A96F: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082A98F: var_20 = picAnim.Tag + loc_0082A9D1: var_C4 = var_38 + loc_0082A9E2: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082AA02: var_24 = picAnim.Tag + loc_0082AA35: edi = (var_24 = "remove") + 1 + loc_0082AA4B: eax = (var_20 = "add") + 1 + loc_0082AA62: eax = (var_1C = "reset") + 1 + loc_0082AA9E: If (var_1C = "reset") + 1 Then + loc_0082AACF: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082AAED: picAnim.AutoRedraw = True + loc_0082AB1A: End If + loc_0082AB43: CInt(6.37066138261923E-314) = picAnim._Default + loc_0082AB7A: Len(var_18) = Len(var_18) - 00000001h + loc_0082AB90: var_1C = Left$(var_18, Len(var_18)) + loc_0082AB9D: picAnim.Tag = var_1C + loc_0082ABE2: var_eax = login.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_0082ABFA: + loc_0082ABFA: End If + loc_0082ABFA: End If + loc_0082AC0C: GoTo loc_0082A048 + loc_0082AC11: End If + loc_0082AC11: End If + loc_0082AC1E: GoTo loc_0082AC58 + loc_0082AC57: Exit Sub + loc_0082AC58: 'Referenced from: 0082AC1E + loc_0082AC61: Exit Sub +End Sub + +Private Sub btnButton_Click() '8262C0 + Dim Me As Variant + Dim var_3C As Variant + Dim var_38 As Variant + Dim var_6C As ComboBox + loc_00826323: var_eax = Proc_9_20_8476B0(edi, Me, ebx) + loc_0082632E: eax = arg_C - 1 + loc_00826332: If arg_C - 1 <= 0 Then + loc_00826338: GoTo loc_[eax*4+008280B4h] + loc_0082634B: GoTo loc_00828026 + loc_0082635C: GoTo loc_00828026 + loc_0082637F: txtPlayerName.Text = global_0040EEC8 + loc_008263CF: 1 = btnButton._Default + loc_008263EF: var_60 = btnButton.Visible + loc_00826443: 1 = btnButton._Default + loc_00826461: btnButton.Visible = False + loc_008264AD: 2 = btnButton._Default + loc_008264CB: btnButton.Visible = False + loc_00826513: frameAddPlayer.Visible = True + loc_0082654F: var_eax = txtPlayerName.SetFocus + loc_00826559: If txtPlayerName.SetFocus < 0 Then + loc_00826569: GoTo loc_00827EC8 + loc_0082658B: var_60 = playerList.ListIndex + loc_008265BA: If var_60 = var_FFFFFF Then ecx = 1 + loc_008265CE: If var_38 = 0 Then + loc_008265F3: 1 = btnButton._Default + loc_00826611: btnButton.Visible = False + loc_0082665D: 2 = btnButton._Default + loc_0082667B: btnButton.Visible = False + loc_008266BC: var_7C = var_3C + loc_008266C4: If %x1 = lblRemovePlayer.Name Then + loc_008266CA: If %x1 = lblRemovePlayer.Name = 0 Then + loc_008266E9: var_60 = playerList.ListIndex + loc_0082670A: var_60 = var_60 + 0001h + loc_0082671A: var_60+0001h = var_60+0001h - eax+00000014h + loc_0082671F: If var_60+0001h >= 0 Then + loc_00826721: var_eax = Err.Raise + loc_00826727: End If + loc_0082672D: GoTo loc_00826735 + loc_0082672F: End If + loc_0082672F: End If + loc_0082672F: var_eax = Err.Raise + loc_00826735: 'Referenced from: 0082672D + loc_0082673B: ecx+0000000Ch = ecx+0000000Ch + Err.Raise + loc_00826740: call __vbaStrFixstr(00000014h, ecx+0000000Ch+Err.Raise, Me, var_3C, Me, var_3C, var_38, var_38, Me, var_3C, var_38, var_60) + loc_00826751: var_28 = __vbaStrFixstr(00000014h, ecx+0000000Ch+Err.Raise, Me, var_3C, Me, var_3C, var_38, var_38, Me, var_3C, var_38, var_60) + loc_0082675F: var_2C = Trim$(var_28) + loc_00826766: If %x1 = playerList.Name Then + loc_0082676C: If %x1 = playerList.Name = 0 Then + loc_0082678B: var_60 = playerList.ListIndex + loc_008267B0: var_60 = var_60 + 0001h + loc_008267C3: var_60+0001h = var_60+0001h - eax+00000014h + loc_008267C7: If var_60+0001h >= 0 Then + loc_008267C9: var_eax = Err.Raise + loc_008267CF: End If + loc_008267D5: GoTo loc_008267DD + loc_008267D7: End If + loc_008267D7: End If + loc_008267D7: var_eax = Err.Raise + loc_008267DD: 'Referenced from: 008267D5 + loc_008267E7: ecx+0000000Ch = ecx+0000000Ch + Err.Raise + loc_008267EC: call __vbaLsetFixstr(00000014h, ecx+0000000Ch+Err.Raise, var_28, Me) + loc_0082681E: var_34 = "Are you sure you want to remove the player '" & var_2C & "'?" + loc_00826827: var_eax = Unknown_VTable_Call[edx+00000054h] + loc_00826885: frameRemovePlayer.Visible = True + loc_00826891: + loc_008268A3: + loc_008268AF: var_eax = login.drawDefaultPics + loc_00826923: If var_60 = var_FFFFFF Then edx = 1 + loc_00826934: If edx = 0 Then + loc_00826959: 1 = btnButton._Default + loc_00826977: btnButton.Visible = False + loc_008269C3: 2 = btnButton._Default + loc_008269E1: btnButton.Visible = False + loc_00826A22: var_7C = var_3C + loc_00826A2A: If %x1 = lblResetPlayer.Name Then + loc_00826A30: If %x1 = lblResetPlayer.Name = 0 Then + loc_00826A4F: var_60 = playerList.ListIndex + loc_00826A70: var_60 = var_60 + 0001h + loc_00826A80: var_60+0001h = var_60+0001h - eax+00000014h + loc_00826A85: If var_60+0001h >= 0 Then + loc_00826A87: var_eax = Err.Raise + loc_00826A8D: End If + loc_00826A93: GoTo loc_00826A9B + loc_00826A95: End If + loc_00826A95: End If + loc_00826A95: var_eax = Err.Raise + loc_00826A9B: 'Referenced from: 00826A93 + loc_00826AA1: ecx+0000000Ch = ecx+0000000Ch + Err.Raise + loc_00826AA6: call __vbaStrFixstr(00000014h, ecx+0000000Ch+Err.Raise, Me, var_3C, Me, var_3C, var_38, var_38, Me, var_3C, var_38, Me) + loc_00826AB7: var_28 = __vbaStrFixstr(00000014h, ecx+0000000Ch+Err.Raise, Me, var_3C, Me, var_3C, var_38, var_38, Me, var_3C, var_38, Me) + loc_00826AC5: var_2C = Trim$(var_28) + loc_00826ACC: If %x1 = playerList.Name Then + loc_00826AD2: If %x1 = playerList.Name = 0 Then + loc_00826AF1: var_60 = playerList.ListIndex + loc_00826B16: var_60 = var_60 + 0001h + loc_00826B29: var_60+0001h = var_60+0001h - eax+00000014h + loc_00826B2D: If var_60+0001h >= 0 Then + loc_00826B2F: var_eax = Err.Raise + loc_00826B35: End If + loc_00826B3B: GoTo loc_00826B43 + loc_00826B3D: End If + loc_00826B3D: End If + loc_00826B3D: var_eax = Err.Raise + loc_00826B43: 'Referenced from: 00826B3B + loc_00826B4D: ecx+0000000Ch = ecx+0000000Ch + Err.Raise + loc_00826B52: call __vbaLsetFixstr(00000014h, ecx+0000000Ch+Err.Raise, var_28, Me) + loc_00826B84: var_34 = "Are you sure you want to reset the player '" & var_2C & "'?" + loc_00826B8D: var_eax = Unknown_VTable_Call[edx+00000054h] + loc_00826BEB: frameResetPlayer.Visible = True + loc_00826BF5: If Me >= 0 Then GoTo loc_008268A3 + loc_00826BFB: GoTo loc_00826891 + loc_00826C1D: var_28 = txtPlayerName.Text + loc_00826C54: var_1C = Trim$(var_28) + loc_00826C6F: var_eax = login.drawDefaultPics + loc_00826C95: If Len(var_1C) Then + loc_00826CA4: If Len(var_1C) > 12 Then + loc_00826CB7: var_1C = Left$(var_1C, 12) + loc_00826CBD: End If + loc_00826CC3: Me(18) = Me(18) + 0001h + loc_00826CE1: ReDim Preserve %x1 = txtPlayerName.Name(CheckObj(var_38, global_0040E85C, 64) To Me(18)+0001h) + loc_00826CF4: If global_886010 = 1 Then + loc_00826CF8: If %x1 = txtPlayerName.Name Then + loc_00826CFE: If %x1 = txtPlayerName.Name = 0 Then + loc_00826D0E: If Me(18) >= 0 Then + loc_00826D10: var_eax = Err.Raise + loc_00826D16: End If + loc_00826D28: GoTo loc_00826D78 + loc_00826D2A: End If + loc_00826D2A: End If + loc_00826D2A: var_eax = Err.Raise + loc_00826D3C: GoTo loc_00826D78 + loc_00826D3E: End If + loc_00826D40: If Err.Raise Then + loc_00826D46: If Err.Raise = 1 Then + loc_00826D56: If Me(18) >= 0 Then + loc_00826D58: var_eax = Err.Raise + loc_00826D5E: End If + loc_00826D64: GoTo loc_00826D6C + loc_00826D66: End If + loc_00826D66: End If + loc_00826D66: var_eax = Err.Raise + loc_00826D6C: 'Referenced from: 00826D64 + loc_00826D78: 'Referenced from: 00826D28 + loc_00826D7C: If %x1 = txtPlayerName.Name Then + loc_00826D82: If %x1 = txtPlayerName.Name = 0 Then + loc_00826D92: If Me(18) >= 0 Then + loc_00826D94: var_eax = Err.Raise + loc_00826D9A: End If + loc_00826DA0: GoTo loc_00826DA8 + loc_00826DA2: End If + loc_00826DA2: End If + loc_00826DA2: var_eax = Err.Raise + loc_00826DA8: 'Referenced from: 00826DA0 + loc_00826DB9: If %x1 = txtPlayerName.Name Then + loc_00826DBF: If %x1 = txtPlayerName.Name = 0 Then + loc_00826DCF: If Me(18) >= 0 Then + loc_00826DD1: var_eax = Err.Raise + loc_00826DD7: End If + loc_00826DDD: GoTo loc_00826DE5 + loc_00826DDF: End If + loc_00826DDF: End If + loc_00826DDF: var_eax = Err.Raise + loc_00826DE5: 'Referenced from: 00826DDD + loc_00826DF6: If %x1 = txtPlayerName.Name Then + loc_00826DFC: If %x1 = txtPlayerName.Name = 0 Then + loc_00826E0C: If Me(18) >= 0 Then + loc_00826E0E: var_eax = Err.Raise + loc_00826E14: End If + loc_00826E1A: GoTo loc_00826E22 + loc_00826E1C: End If + loc_00826E1C: End If + loc_00826E1C: var_eax = Err.Raise + loc_00826E22: 'Referenced from: 00826E1A + loc_00826E33: If %x1 = txtPlayerName.Name Then + loc_00826E39: If %x1 = txtPlayerName.Name = 0 Then + loc_00826E49: If Me(18) >= 0 Then + loc_00826E4B: var_eax = Err.Raise + loc_00826E51: End If + loc_00826E57: GoTo loc_00826E5F + loc_00826E59: End If + loc_00826E59: End If + loc_00826E59: var_eax = Err.Raise + loc_00826E5F: 'Referenced from: 00826E57 + loc_00826E70: If %x1 = txtPlayerName.Name Then + loc_00826E76: If %x1 = txtPlayerName.Name = 0 Then + loc_00826E86: If Me(18) >= 0 Then + loc_00826E88: var_eax = Err.Raise + loc_00826E8E: End If + loc_00826E94: GoTo loc_00826E9C + loc_00826E96: End If + loc_00826E96: End If + loc_00826E96: var_eax = Err.Raise + loc_00826E9C: 'Referenced from: 00826E94 + loc_00826EAD: If %x1 = txtPlayerName.Name Then + loc_00826EB3: If %x1 = txtPlayerName.Name = 0 Then + loc_00826EC3: If Me(18) >= 0 Then + loc_00826EC5: var_eax = Err.Raise + loc_00826ECB: End If + loc_00826ED1: GoTo loc_00826ED9 + loc_00826ED3: End If + loc_00826ED3: End If + loc_00826ED3: var_eax = Err.Raise + loc_00826ED9: 'Referenced from: 00826ED1 + loc_00826EEA: If %x1 = txtPlayerName.Name Then + loc_00826EF0: If %x1 = txtPlayerName.Name = 0 Then + loc_00826F00: If Me(18) >= 0 Then + loc_00826F02: var_eax = Err.Raise + loc_00826F08: End If + loc_00826F0E: GoTo loc_00826F16 + loc_00826F10: End If + loc_00826F10: End If + loc_00826F10: var_eax = Err.Raise + loc_00826F16: 'Referenced from: 00826F0E + loc_00826F1F: ecx+0000000Ch = ecx+0000000Ch + Err.Raise + loc_00826F24: call __vbaLsetFixstr(00000014h, ecx+0000000Ch+Err.Raise, var_1C, Me, Me, var_38, Me, Me, var_7C, var_34) + loc_00826F2E: If %x1 = txtPlayerName.Name Then + loc_00826F34: If %x1 = txtPlayerName.Name = 0 Then + loc_00826F44: If Me(18) >= 0 Then + loc_00826F46: var_eax = Err.Raise + loc_00826F4C: End If + loc_00826F52: GoTo loc_00826F5A + loc_00826F54: End If + loc_00826F54: End If + loc_00826F54: var_eax = Err.Raise + loc_00826F5A: 'Referenced from: 00826F52 + loc_00826F6A: If %x1 = txtPlayerName.Name Then + loc_00826F70: If %x1 = txtPlayerName.Name = 0 Then + loc_00826F80: If Me(18) >= 0 Then + loc_00826F82: var_eax = Err.Raise + loc_00826F88: End If + loc_00826F8E: GoTo loc_00826F96 + loc_00826F90: End If + loc_00826F90: End If + loc_00826F90: var_eax = Err.Raise + loc_00826F96: 'Referenced from: 00826F8E + loc_00826FA6: If %x1 = txtPlayerName.Name Then + loc_00826FAC: If %x1 = txtPlayerName.Name = 0 Then + loc_00826FBC: If Me(18) >= 0 Then + loc_00826FBE: var_eax = Err.Raise + loc_00826FC4: End If + loc_00826FCA: GoTo loc_00826FD2 + loc_00826FCC: End If + loc_00826FCC: End If + loc_00826FCC: var_eax = Err.Raise + loc_00826FD2: 'Referenced from: 00826FCA + loc_00826FE2: If %x1 = txtPlayerName.Name Then + loc_00826FE8: If %x1 = txtPlayerName.Name = 0 Then + loc_00826FF8: If Me(18) >= 0 Then + loc_00826FFA: var_eax = Err.Raise + loc_00827000: End If + loc_00827006: GoTo loc_0082700E + loc_00827008: End If + loc_00827008: End If + loc_00827008: var_eax = Err.Raise + loc_0082700E: 'Referenced from: 00827006 + loc_0082701E: If %x1 = txtPlayerName.Name Then + loc_00827024: If %x1 = txtPlayerName.Name = 0 Then + loc_00827034: If Me(18) >= 0 Then + loc_00827036: var_eax = Err.Raise + loc_0082703C: End If + loc_00827042: GoTo loc_0082704A + loc_00827044: End If + loc_00827044: End If + loc_00827044: var_eax = Err.Raise + loc_0082704A: 'Referenced from: 00827042 + loc_00827093: var_eax = playerList.AddItem var_1C, 10 + loc_008270DD: var_6C = var_3C + loc_008270F6: var_60 = playerList.ListCount + loc_00827117: var_60 = var_60 - 0001h + loc_00827125: playerList.ListIndex = var_60 + loc_00827155: var_eax = login.displayInfo + loc_0082718C: 1 = btnButton._Default + loc_008271AA: btnButton.Visible = True + loc_008271F6: 4 = btnButton._Default + loc_00827214: btnButton.Visible = True + loc_00827260: 5 = btnButton._Default + loc_0082727E: btnButton.Visible = True + loc_008272AB: End If + loc_008272C6: frameAddPlayer.Visible = False + loc_00827308: 1 = btnButton._Default + loc_00827326: btnButton.Visible = True + loc_00827372: 2 = btnButton._Default + loc_00827390: btnButton.Visible = True + loc_008273BD: GoTo loc_00827ED5 + loc_008273DD: frameAddPlayer.Visible = False + loc_0082742D: 1 = btnButton._Default + loc_0082744E: btnButton.Visible = Me(20) + loc_0082749A: 2 = btnButton._Default + loc_008274B8: btnButton.Visible = True + loc_008274C2: If var_3C < 0 Then + loc_008274C8: GoTo loc_00827A16 + loc_008274EA: var_60 = playerList.ListIndex + loc_0082750F: var_60 = var_60 + 0001h + loc_00827525: call UBound(00000001h, %x1 = playerList.Name, var_3C, Me, var_3C, var_38, var_3C, Me, var_3C, var_38, Me, Me, var_38) + loc_0082752D: var_ret_1 = UBound(00000001h, %x1 = playerList.Name, var_3C, Me, var_3C, var_38, var_3C, Me, var_3C, var_38, Me, Me, var_38) + loc_00827533: var_60+0001h = var_60+0001h + 0001h + loc_00827537: var_8C = var_ret_1 + loc_0082754C: If var_60+0001h+0001h <= var_ret_1 Then + loc_00827557: If %x1 = playerList.Name Then + loc_0082755D: If %x1 = playerList.Name = 0 Then + loc_00827568: var_60+0001h+0001h = var_60+0001h+0001h - eax+00000014h + loc_0082756C: If var_60+0001h+0001h >= 0 Then + loc_0082756E: var_eax = Err.Raise + loc_00827574: End If + loc_0082757A: GoTo loc_00827584 + loc_0082757C: End If + loc_0082757C: End If + loc_0082757C: var_eax = Err.Raise + loc_00827584: 'Referenced from: 0082757A + loc_00827587: var_A0 = Err.Raise + loc_0082758F: If %x1 = playerList.Name Then + loc_00827595: If %x1 = playerList.Name = 0 Then + loc_0082759D: var_60+0001h+0001h = var_60+0001h+0001h - 0001h + loc_008275AD: var_60+0001h+0001h = var_60+0001h+0001h - eax+00000014h + loc_008275B1: If var_60+0001h+0001h >= 0 Then + loc_008275B3: var_eax = Err.Raise + loc_008275B9: End If + loc_008275C5: GoTo loc_008275CD + loc_008275C7: End If + loc_008275C7: End If + loc_008275C7: var_eax = Err.Raise + loc_008275CD: 'Referenced from: 008275C5 + loc_008275D3: var_A0 = var_A0 + edx+0000000Ch + loc_008275D5: Err.Raise = Err.Raise + edx+0000000Ch + loc_008275DB: call __vbaCopyBytes(00000050h, Err.Raise+edx+0000000Ch, var_A0+edx+0000000Ch) + loc_008275E6: 00000001h = 00000001h + var_60+0001h+0001h + loc_008275F1: GoTo loc_00827545 + loc_008275F6: End If + loc_0082761A: ReDim Preserve %x1 = playerList.Name( To Me(18)) + loc_00827626: var_eax = login.savePlayers + loc_00827651: call UBound(00000001h, %x1 = playerList.Name) + loc_00827659: If UBound(00000001h, %x1 = playerList.Name) = 0 Then + loc_0082766F: var_44 = global_00886014 & "players.cfg" + loc_0082767A: var_eax = Kill 8 + loc_00827689: End If + loc_008276A8: 1 = btnButton._Default + loc_008276C6: btnButton.Visible = True + loc_00827712: 2 = btnButton._Default + loc_00827730: btnButton.Visible = True + loc_00827760: var_eax = login.loadPlayersIntoList + loc_00827795: var_60 = playerList.ListCount + loc_008277BC: If 008861A4h <= CheckObj(Me, global_0040F034, 232) Then ecx = 1 + loc_008277DC: If edx Then + loc_008277FA: 008861A4h = 008861A4h - 0001h + loc_00827808: playerList.ListIndex = global_008861A4 + loc_0082782B: GoTo loc_008278BE + loc_00827830: End If + loc_00827846: var_6C = global_008861A4 + loc_00827862: var_60 = playerList.ListCount + loc_00827883: var_60 = var_60 - 0001h + loc_00827891: playerList.ListIndex = var_60 + loc_008278BE: 'Referenced from: 0082782B + loc_008278C1: var_eax = login.displayInfo + loc_008278F4: frameRemovePlayer.Visible = False + loc_00827982: 1 = btnButton._Default + loc_008279A0: btnButton.Visible = True + loc_008279EC: 2 = btnButton._Default + loc_00827A0A: btnButton.Visible = True + loc_00827A14: If var_3C < 0 Then + loc_00827A16: 'Referenced from: 008274C8 + loc_00827A22: var_3C = CheckObj(var_3C, global_0040E7E4, 156) + loc_00827A24: End If + loc_00827A24: End If + loc_00827A3A: var_eax = login.drawDefaultPics + loc_00827A42: If login.drawDefaultPics < 0 Then + loc_00827A48: GoTo loc_00828018 + loc_00827A6A: var_60 = playerList.ListIndex + loc_00827A8F: var_60 = var_60 + 0001h + loc_00827AA4: If %x1 = playerList.Name Then + loc_00827AAA: If %x1 = playerList.Name = 0 Then + loc_00827AB5: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827AB9: If var_60+0001h >= 0 Then + loc_00827ABB: var_eax = Err.Raise + loc_00827AC1: End If + loc_00827AC7: GoTo loc_00827ACF + loc_00827AC9: End If + loc_00827AC9: End If + loc_00827AC9: var_eax = Err.Raise + loc_00827ACF: 'Referenced from: 00827AC7 + loc_00827AE2: If %x1 = playerList.Name Then + loc_00827AE8: If %x1 = playerList.Name = 0 Then + loc_00827AF3: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827AF7: If var_60+0001h >= 0 Then + loc_00827AF9: var_eax = Err.Raise + loc_00827AFF: End If + loc_00827B05: GoTo loc_00827B0D + loc_00827B07: End If + loc_00827B07: End If + loc_00827B07: var_eax = Err.Raise + loc_00827B0D: 'Referenced from: 00827B05 + loc_00827B20: If %x1 = playerList.Name Then + loc_00827B26: If %x1 = playerList.Name = 0 Then + loc_00827B31: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827B35: If var_60+0001h >= 0 Then + loc_00827B37: var_eax = Err.Raise + loc_00827B3D: End If + loc_00827B43: GoTo loc_00827B4B + loc_00827B45: End If + loc_00827B45: End If + loc_00827B45: var_eax = Err.Raise + loc_00827B4B: 'Referenced from: 00827B43 + loc_00827B5E: If %x1 = playerList.Name Then + loc_00827B64: If %x1 = playerList.Name = 0 Then + loc_00827B6F: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827B73: If var_60+0001h >= 0 Then + loc_00827B75: var_eax = Err.Raise + loc_00827B7B: End If + loc_00827B81: GoTo loc_00827B89 + loc_00827B83: End If + loc_00827B83: End If + loc_00827B83: var_eax = Err.Raise + loc_00827B89: 'Referenced from: 00827B81 + loc_00827B9C: If %x1 = playerList.Name Then + loc_00827BA2: If %x1 = playerList.Name = 0 Then + loc_00827BAD: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827BB1: If var_60+0001h >= 0 Then + loc_00827BB3: var_eax = Err.Raise + loc_00827BB9: End If + loc_00827BBF: GoTo loc_00827BC7 + loc_00827BC1: End If + loc_00827BC1: End If + loc_00827BC1: var_eax = Err.Raise + loc_00827BC7: 'Referenced from: 00827BBF + loc_00827BDA: If %x1 = playerList.Name Then + loc_00827BE0: If %x1 = playerList.Name = 0 Then + loc_00827BEB: var_60+0001h = var_60+0001h - eax+00000014h + loc_00827BEF: If var_60+0001h >= 0 Then + loc_00827BF1: var_eax = Err.Raise + loc_00827BF7: End If + loc_00827BFD: GoTo loc_00827C05 + loc_00827BFF: End If + loc_00827BFF: End If + loc_00827BFF: var_eax = Err.Raise + loc_00827C05: 'Referenced from: 00827BFD + loc_00827C16: var_eax = login.savePlayers + loc_00827C5B: 1 = btnButton._Default + loc_00827C79: btnButton.Visible = True + loc_00827CC5: 2 = btnButton._Default + loc_00827CE3: btnButton.Visible = True + loc_00827D13: var_eax = login.loadPlayersIntoList + loc_00827D48: var_60 = playerList.ListCount + loc_00827D8F: If var_38 Then + loc_00827DAE: 008861A4h = 008861A4h - 0001h + loc_00827DBC: playerList.ListIndex = global_008861A4 + loc_00827DDF: GoTo loc_00827E7C + loc_00827DE4: End If + loc_00827E15: var_60 = playerList.ListCount + loc_00827E39: var_60 = var_60 - 0001h + loc_00827E45: playerList.ListIndex = var_60 + loc_00827E7C: 'Referenced from: 00827DDF + loc_00827E7F: var_eax = login.displayInfo + loc_00827EB2: frameResetPlayer.Visible = False + loc_00827EBC: If var_38 < 0 Then + loc_00827EC8: 'Referenced from: 00826569 + loc_00827ECA: var_38 = CheckObj(var_38, global_0040E7E4, 156) + loc_00827ECC: End If + loc_00827ECC: End If + loc_00827ED5: 'Referenced from: 008273BD + loc_00827ED8: var_eax = login.drawDefaultPics + loc_00827EE0: If login.drawDefaultPics < 0 Then + loc_00827EE6: GoTo loc_00828018 + loc_00827F06: frameResetPlayer.Visible = False + loc_00827F56: 1 = btnButton._Default + loc_00827F74: btnButton.Visible = True + loc_00827FC0: 2 = btnButton._Default + loc_00827FDE: btnButton.Visible = True + loc_0082800E: var_eax = login.drawDefaultPics + loc_00828016: If login.drawDefaultPics < 0 Then + loc_00828018: 'Referenced from: 00827A48 + loc_00828024: login.drawDefaultPics = CheckObj(Me, global_0040EF14, 1816) + loc_00828026: End If + loc_00828026: End If + loc_00828026: End If + loc_00828026: End If + loc_00828026: End If + loc_00828029: var_eax = login.savePlayers + loc_00828045: End If + loc_00828045: End If + loc_00828051: GoTo loc_00828088 + loc_00828087: Exit Sub + loc_00828088: 'Referenced from: 00828051 + loc_00828091: Exit Sub +End Sub + +Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '8280F0 + loc_00828161: var_eax = login.picAnim_MouseMove(Button, var_18, var_1C, var_20) +End Sub + +Private Sub tmrMainLoop_Timer() '82B250 + Dim Me As Variant + Dim var_2C As PictureBox + Dim var_28 As ComboBox + Dim global_00887AE8 As Global + Dim global_00886880 As Me + Dim global_008868BC As Me + loc_0082B2B0: var_eax = login.drawDefaultPics + loc_0082B2ED: 1 = btnButton._Default + loc_0082B311: var_50 = btnButton.Visible + loc_0082B33C: If var_50 = var_FFFFFF Then eax = 1 + loc_0082B353: If eax Then + loc_0082B370: 1 = btnButton._Default + loc_0082B390: var_eax = btnButton.SetFocus + loc_0082B3C1: GoTo loc_0082B3FF + loc_0082B3C3: End If + loc_0082B3D8: var_eax = playerList.SetFocus + loc_0082B3FF: 'Referenced from: 0082B3C1 + loc_0082B416: var_eax = Proc_10_11_84A820(var_28, var_28, playerList.SetFocus) + loc_0082B427: var_eax = login.resetHighLights + loc_0082B443: var_eax = Proc_86B860(Me, global_0040C7EC, var_28) + loc_0082B45F: tmrMainLoop.Enabled = False + loc_0082B480: + loc_0082B484: var_eax = QueryPerformanceCounter(var_24) + loc_0082B492: var_eax = login.drawdisplay + loc_0082B4C7: var_eax = Proc_12_46_86D7E0(var_28, var_28, login.drawdisplay) + loc_0082B4E8: var_eax = Proc_10_11_84A820(var_28, var_28, Proc_12_46_86D7E0(var_28, var_28, login.drawdisplay)) + loc_0082B4FB: If esi+0000003Ah Then + loc_0082B500: var_eax = login.drawAnimations + loc_0082B51C: End If + loc_0082B520: var_eax = QueryPerformanceCounter(var_1C) + loc_0082B53B: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Proc_86B860(Me, global_0040C7EC, var_28), Me, var_28, Me, var_2C, var_28, Me) + loc_0082B543: 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_28), Me, var_28, Me, var_2C, var_28, Me), var_18) + loc_0082B555: var_78 = __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, var_28, Proc_86B860(Me, global_0040C7EC, var_28), Me, var_28, Me, var_2C, var_28, Me), var_18) + loc_0082B55A: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0082B567: If global_886000 = 0 Then + loc_0082B569: fdivr st0, var_78 + loc_0082B56C: GoTo loc_0082B579 + loc_0082B56E: End If + loc_0082B579: 'Referenced from: 0082B56C + loc_0082B579: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_0082B5A0: If Err.Number Then + loc_0082B5A2: global_8860D4 = 3DCCCCCDh + loc_0082B5AC: End If + loc_0082B5B1: If esi+00000034h = 0 Then GoTo loc_0082B480 + loc_0082B5B7: var_eax = Proc_845A50(var_78, var_74) + loc_0082B5C0: eax = Me(14) - 1 + loc_0082B5C1: If Me(14) - 1 Then + loc_0082B5C7: eax = Me(14) - 1 - 1 + loc_0082B5C8: If Me(14) - 1 - 1 <> 0 Then GoTo loc_0082B849 + loc_0082B5F4: Set var_28 = Me + loc_0082B5FC: var_eax = Global.Unload var_28 + loc_0082B67D: var_eax = titleScreen.Show var_3C, var_38 + loc_0082B687: If titleScreen.Show var_3C < 0 Then + loc_0082B697: GoTo loc_0082B841 + loc_0082B69C: End If + loc_0082B6A1: If %x1 = titleScreen.Name Then + loc_0082B6A7: If %x1 = titleScreen.Name = 0 Then + loc_0082B6B6: 008861A4h = 008861A4h - titleScreen.%x1 = GetIDsOfNames(%StkVar2) 'Ignore this + loc_0082B6BA: If 008861A4h >= 0 Then + loc_0082B6BC: var_eax = Err.Raise + loc_0082B6C2: End If + loc_0082B6C8: GoTo loc_0082B6D0 + loc_0082B6CA: End If + loc_0082B6CA: End If + loc_0082B6CA: var_eax = Err.Raise + loc_0082B6D0: 'Referenced from: 0082B6C8 + loc_0082B6D6: titleScreen.GetTypeInfoCount 'Ignore this = titleScreen.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0082B6E0: call __vbaCopyBytes(00000050h, global_00886150, titleScreen.GetTypeInfoCount, var_48, 80020004h, var_40) + loc_0082B716: var_7C = global_00887AE8 + loc_0082B719: Set var_28 = global_00886880 + loc_0082B724: var_eax = Global.Unload var_28 + loc_0082B74F: If 00886018h = 1 Then + loc_0082B7AD: var_eax = classicOptions.Show var_3C, var_38 + loc_0082B7B7: If classicOptions.Show var_3C < 0 Then + loc_0082B7C7: GoTo loc_0082B841 + loc_0082B7C9: End If + loc_0082B7CD: If classicOptions.Show var_3C, var_38 <> 0 Then GoTo loc_0082B849 + loc_0082B7D6: If var_8868BC = 0 Then + loc_0082B7E4: End If + loc_0082B82B: var_eax = challengeOptions.Show var_3C, var_38 + loc_0082B835: If challengeOptions.Show var_3C < 0 Then + loc_0082B841: 'Referenced from: 0082B697 + loc_0082B843: challengeOptions.Show var_3C, var_38 = CheckObj(global_008868BC, global_0040EDA0, 688) + loc_0082B849: End If + loc_0082B849: End If + loc_0082B849: End If + loc_0082B849: + loc_0082B856: GoTo loc_0082B86C + loc_0082B86B: Exit Sub + loc_0082B86C: 'Referenced from: 0082B856 + loc_0082B86C: Exit Sub +End Sub + +Private Sub frameAddPlayer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829BA0 + loc_00829BE3: var_eax = login.highLightCheck +End Sub + +Private Sub frameRemovePlayer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829C30 + loc_00829C73: var_eax = login.highLightCheck +End Sub + +Private Sub frameResetPlayer_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '829CC0 + loc_00829D03: var_eax = login.highLightCheck +End Sub + +Public Sub positionControls() '824F20 + Dim Me As Variant + Dim var_20 As Variant + Dim var_1C As Variant + Dim var_54 As TextBox + loc_00824FDE: var_eax = gameIdentifier.Move global_428E0000, , var_2C, 202 + loc_00825084: var_eax = playerList.Move global_428E0000, 2, var_2C, 307 + loc_00825126: var_eax = lblInfo.Move global_43CB0000, , var_2C, 306 + loc_00825167: If var_18 <= 11 Then + loc_0082518B: var_18 = picAnim._Default + loc_00825210: var_eax = picAnim.Move global_40800000, 2, var_2C, 3 + loc_00825253: 00000001h = 00000001h + var_18 + loc_0082525D: var_18 = 00000001h+var_18 + loc_00825260: var_eax = Unknown_F88F(var_24, 00000002h, var_3C, 00000019h, var_34, 00000002h) + loc_00825265: End If + loc_00825275: If var_18 <= 2 Then + loc_00825299: var_18 = btnButton._Default + loc_008252BE: btnButton.Top = global_43DE0000 + loc_00825306: var_18 = btnButton._Default + loc_0082532B: btnButton.Width = global_42A00000 + loc_00825379: var_18 = btnButton._Default + loc_0082539E: btnButton.Height = global_41F00000 + loc_008253D3: 00000001h = 00000001h + var_18 + loc_008253DD: var_18 = 00000001h+var_18 + loc_008253E0: var_eax = Unknown_16A8F(var_20, var_1C, var_1C, Me, var_20, var_1C) + loc_008253E5: End If + loc_008253F5: If var_18 <= 5 Then + loc_00825419: var_18 = btnButton._Default + loc_0082543E: btnButton.Width = global_42CC0000 + loc_0082548C: var_18 = btnButton._Default + loc_008254B1: btnButton.Height = global_41F00000 + loc_008254FF: var_18 = btnButton._Default + loc_00825524: btnButton.Top = global_43AD0000 + loc_00825553: 00000001h = 00000001h + var_18 + loc_0082555D: var_18 = 00000001h+var_18 + loc_00825560: var_eax = Unknown_16A8F(var_20, var_1C, var_1C, Me, var_20, var_1C) + loc_00825565: End If + loc_0082556C: + loc_00825578: If var_18 <= 11 Then + loc_00825599: var_18 = btnButton._Default + loc_008255BE: btnButton.Top = global_43340000 + loc_00825606: var_18 = btnButton._Default + loc_0082562B: btnButton.Width = global_42A00000 + loc_00825679: var_18 = btnButton._Default + loc_0082569E: btnButton.Height = global_41F00000 + loc_008256D3: 00000001h = 00000001h + var_18 + loc_008256DD: var_18 = 00000001h+var_18 + loc_008256E0: GoTo loc_0082556C + loc_008256FB: var_54 = 00000001h+var_18 + loc_008256FE: 1 = btnButton._Default + loc_00825723: btnButton.Left = global_43E50000 + loc_00825769: 2 = btnButton._Default + loc_0082578E: btnButton.Left = global_44098000 + loc_008257D4: 3 = btnButton._Default + loc_008257F9: btnButton.Left = global_428C0000 + loc_0082583F: 4 = btnButton._Default + loc_00825864: btnButton.Left = global_43320000 + loc_008258AA: 5 = btnButton._Default + loc_008258CF: btnButton.Left = global_438F0000 + loc_00825915: 6 = btnButton._Default + loc_0082593A: btnButton.Left = global_43D30000 + loc_00825980: 7 = btnButton._Default + loc_008259A5: btnButton.Left = global_43FE0000 + loc_008259EB: 8 = btnButton._Default + loc_00825A10: btnButton.Left = global_43D30000 + loc_00825A56: 9 = btnButton._Default + loc_00825A7B: btnButton.Left = global_43FE0000 + loc_00825AC1: 10 = btnButton._Default + loc_00825AE6: btnButton.Left = global_43D30000 + loc_00825B2C: 11 = btnButton._Default + loc_00825B51: btnButton.Left = global_43FE0000 + loc_00825B97: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00825C24: var_eax = lblLabel.Move global_43200000, 2, var_2C, 74 + loc_00825C69: var_8C = var_1C + loc_00825CDE: var_eax = txtPlayerName.Move global_43220000, 2, var_2C, 94 + loc_00825D20: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00825DA9: var_eax = lblLabel.Move global_40C00000, , var_2C, 72 + loc_00825E53: var_eax = lblRemovePlayer.Move global_C22C0000, 2, var_2C, 98 + loc_00825E95: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00825F1C: var_eax = lblLabel.Move global_40800000, , var_2C, 74 + loc_00825FD5: var_eax = lblResetPlayer.Move global_40800000, 98, var_2C + loc_00826077: var_eax = frameAddPlayer.Move global_42200000, 98, var_2C, 178 + loc_00826118: var_eax = frameRemovePlayer.Move global_42200000, 2, var_2C, 178 + loc_008261BA: var_eax = frameResetPlayer.Move global_42200000, 98, var_2C, 178 + loc_008261E7: GoTo loc_008261FD + loc_008261FC: Exit Sub + loc_008261FD: 'Referenced from: 008261E7 + loc_008261FD: Exit Sub +End Sub + +Public Sub highLightCheck() '826230 + Dim Me As Me + loc_0082626E: If Me.GetPalette 'Ignore this = 0 Then + loc_00826275: If esi+0000003Ah = 0 Then GoTo loc_00826296 + loc_00826277: End If + loc_0082627A: var_eax = login.resetHighLights + loc_00826296: +End Sub + +Public Sub loadPlayers() '8285D0 + Dim Me As Variant + Dim var_64 As Me + Dim var_70 As Variant + loc_00828617: repz stosd + loc_00828625: var_eax = Close + loc_0082864F: Open global_00886014 & "players.cfg" For Random As #1 Len = 58 + loc_00828668: If LOF(1) Then + loc_00828676: Get #1, Me = %x1 + loc_0082868E: ReDim %x1 = Me.Name(Me To 0) + loc_008286B0: If 00000001h <= Me = %x1 Then + loc_008286CD: Get #"~P", Me = %x1 + loc_008286D7: var_eax = Proc_12_37_86BD20(var_34, var_64, 1) + loc_008286DC: var_34 = Proc_12_37_86BD20(var_34, var_64, 1) + loc_008286E3: call Proc_12_37_86BD20(var_30, %x1 = Me.Name, ) + loc_008286EB: var_30 = var_30 + loc_008286EF: var_eax = Proc_12_37_86BD20(var_38, , ) + loc_008286F7: var_38 = Proc_12_37_86BD20(var_38, , ) + loc_008286FB: var_eax = Proc_12_37_86BD20(var_28, , ) + loc_00828700: var_28 = Proc_12_37_86BD20(var_28, , ) + loc_00828707: var_eax = Proc_12_37_86BD20(var_24, , ) + loc_0082870F: var_24 = Proc_12_37_86BD20(var_24, , ) + loc_00828713: var_eax = Proc_12_37_86BD20(var_2C, ) + loc_00828718: var_2C = Proc_12_37_86BD20(var_2C, ) + loc_0082871F: If %x1 = Me.Name Then + loc_00828725: If %x1 = Me.Name = 0 Then + loc_00828734: If 00000001h >= 0 Then + loc_00828736: var_eax = Err.Raise + loc_0082873C: End If + loc_00828745: GoTo loc_0082874D + loc_00828747: End If + loc_00828747: End If + loc_00828747: var_eax = Err.Raise + loc_0082874D: 'Referenced from: 00828745 + loc_00828756: Me.GetTypeInfoCount 'Ignore this = Me.GetTypeInfoCount 'Ignore this + Err.Raise + loc_0082875B: call __vbaCopyBytes(00000050h, Me.GetTypeInfoCount) + loc_00828766: 00000001h = 00000001h + var_68 + loc_0082876F: var_68 = 00000001h+var_68 + loc_00828774: GoTo loc_008286A9 + loc_00828779: End If + loc_0082877C: var_eax = login.loadPlayersIntoList + loc_008287A1: Get #1, global_008861A4 + loc_008287AC: If Me = %x1 Then + loc_008287D3: 1 = btnButton._Default + loc_008287F5: btnButton.Visible = True + loc_00828841: 4 = btnButton._Default + loc_00828863: btnButton.Visible = True + loc_008288AF: 5 = btnButton._Default + loc_008288D1: btnButton.Visible = True + loc_0082891E: var_88 = playerList.ListCount + loc_0082896C: If var_70 Then + loc_00828987: 008861A4h = 008861A4h - 0001h + loc_00828995: playerList.ListIndex = global_008861A4 + loc_008289BC: GoTo loc_00828A5D + loc_008289C1: End If + loc_008289F3: var_88 = playerList.ListCount + loc_00828A1E: var_88 = var_88 - 0001h + loc_00828A2C: playerList.ListIndex = var_88 + loc_00828A5D: 'Referenced from: 008289BC + loc_00828A60: var_eax = login.displayInfo + loc_00828A80: GoTo loc_00828BF9 + loc_00828AA4: 1 = btnButton._Default + loc_00828AD0: btnButton.Visible = False + loc_00828B1C: 4 = btnButton._Default + loc_00828B3A: btnButton.Visible = False + loc_00828B86: 5 = btnButton._Default + loc_00828BA4: btnButton.Visible = False + loc_00828BE1: var_eax = login.savePlayers + loc_00828BF9: + loc_00828BF9: End If + loc_00828BF9: End If + loc_00828BF9: var_eax = Close + loc_00828C04: GoTo loc_00828C23 + loc_00828C22: Exit Sub + loc_00828C23: 'Referenced from: 00828C04 + loc_00828C23: Exit Sub +End Sub + +Public Sub loadPlayersIntoList() '828C50 + Dim Me As Variant + Dim var_20 As Variant + loc_00828CAE: var_eax = playerList.Clear + loc_00828CE4: + loc_00828CEC: If var_18 <= Me(18) Then + loc_00828D0E: If %x1 = playerList.Name Then + loc_00828D14: If %x1 = playerList.Name = 0 Then + loc_00828D1D: var_18 = var_18 - eax+00000014h + loc_00828D24: var_38 = var_18 + loc_00828D27: If var_18 >= 0 Then + loc_00828D29: var_eax = Err.Raise + loc_00828D32: End If + loc_00828D38: GoTo loc_00828D40 + loc_00828D3A: End If + loc_00828D3A: End If + loc_00828D3A: var_eax = Err.Raise + loc_00828D40: 'Referenced from: 00828D38 + loc_00828D66: edx+0000000Ch = edx+0000000Ch + Err.Raise + loc_00828D6B: call __vbaStrFixstr(00000014h, edx+0000000Ch+Err.Raise, var_30, 80020004h, var_28, Me, Me, var_20, Me, Me, Me, Me, 0000000Ah) + loc_00828D76: var_1C = __vbaStrFixstr(00000014h, edx+0000000Ch+Err.Raise, var_30, 80020004h, var_28, Me, Me, var_20, Me, Me, Me, Me, 0000000Ah) + loc_00828D81: var_eax = playerList.AddItem var_1C + loc_00828DA4: If %x1 = playerList.Name Then + loc_00828DAA: If %x1 = playerList.Name = 0 Then + loc_00828DB6: var_18 = var_18 - eax+00000014h + loc_00828DBA: If var_18 >= 0 Then + loc_00828DBC: var_eax = Err.Raise + loc_00828DC2: End If + loc_00828DC8: GoTo loc_00828DD0 + loc_00828DCA: End If + loc_00828DCA: End If + loc_00828DCA: var_eax = Err.Raise + loc_00828DD0: 'Referenced from: 00828DC8 + loc_00828DDA: edx+0000000Ch = edx+0000000Ch + Err.Raise + loc_00828DDF: call __vbaLsetFixstr(00000014h, edx+0000000Ch+Err.Raise, var_1C) + loc_00828E02: 00000001h = 00000001h + var_18 + loc_00828E0C: var_18 = 00000001h+var_18 + loc_00828E0F: GoTo loc_00828CE4 + loc_00828E14: End If + loc_00828E19: If esi+00000044h = 0 Then + loc_00828E3A: 1 = btnButton._Default + loc_00828E5C: btnButton.Visible = False + loc_00828EA8: 4 = btnButton._Default + loc_00828ECA: btnButton.Visible = False + loc_00828F20: 5 = btnButton._Default + loc_00828F3E: btnButton.Visible = False + loc_00828F6B: End If + loc_00828F70: GoTo loc_00828F8F + loc_00828F8E: Exit Sub + loc_00828F8F: 'Referenced from: 00828F70 + loc_00828F8F: Exit Sub +End Sub + +Public Sub savePlayers() '828FC0 + Dim Me As Me + Dim var_64 As Me + loc_00829007: repz stosd + loc_00829012: var_eax = Close + loc_0082903C: Open global_00886014 & "players.cfg" For Random As #1 Len = 58 + loc_00829053: Put #1, Me = %x1 + loc_0082906F: If 00000001h <= Me = %x1 Then + loc_0082907A: If %x1 = Me.Name Then + loc_00829080: If %x1 = Me.Name = 0 Then + loc_0082908F: If 00000001h >= 0 Then + loc_00829091: var_eax = Err.Raise + loc_00829097: End If + loc_0082909D: GoTo loc_008290A5 + loc_0082909F: End If + loc_0082909F: End If + loc_0082909F: var_eax = Err.Raise + loc_008290A5: 'Referenced from: 0082909D + loc_008290AB: Me.GetTypeInfoCount 'Ignore this = Me.GetTypeInfoCount 'Ignore this + Err.Raise + loc_008290B4: call __vbaCopyBytes(00000050h, var_64, Me.GetTypeInfoCount) + loc_008290BE: var_eax = Proc_12_36_86BA30(var_34) + loc_008290C6: var_34 = Proc_12_36_86BA30(var_34) + loc_008290CA: var_eax = Proc_12_36_86BA30(var_30) + loc_008290CF: var_30 = Proc_12_36_86BA30(var_30) + loc_008290D6: var_eax = Proc_12_36_86BA30(var_38) + loc_008290DE: var_38 = Proc_12_36_86BA30(var_38) + loc_008290E2: var_eax = Proc_12_36_86BA30(var_28) + loc_008290EA: var_28 = Proc_12_36_86BA30(var_28) + loc_008290EE: var_eax = Proc_12_36_86BA30(var_24) + loc_008290F3: var_24 = Proc_12_36_86BA30(var_24) + loc_008290FA: var_eax = Proc_12_36_86BA30(var_2C) + loc_00829102: var_2C = Proc_12_36_86BA30(var_2C) + loc_00829105: 00000001h = 00000001h + 0001h + loc_0082911E: Put #, Me.QueryInterface, var_64 + loc_00829129: 00000001h = 00000001h + 00000001h + loc_00829134: GoTo loc_00829068 + loc_00829139: End If + loc_00829159: var_84 = playerList.ListIndex + loc_00829181: var_84 = var_84 + 0001h + loc_00829187: global_8861A4 = var_84+0001h + loc_0082919D: Put #1, global_008861A4 + loc_008291A3: var_eax = Close + loc_008291AE: GoTo loc_008291C3 + loc_008291C2: Exit Sub + loc_008291C3: 'Referenced from: 008291AE + loc_008291C3: Exit Sub +End Sub + +Public Sub resetHighLights() '829A60 + loc_00829AA2: var_eax = login.drawDefaultPics +End Sub + +Public Sub displayInfo() '82AD90 + Dim var_54 As Variant + Dim var_1C As ComboBox + Dim var_20 As ComboBox + loc_0082AE2C: var_88 = playerList.ListIndex + loc_0082AE68: If edx Then + loc_0082AE75: eax = 00886018h - 1 + loc_0082AE76: If 00886018h - 1 Then + loc_0082AE7C: eax = 00886018h - 1 - 1 + loc_0082AE7D: If 00886018h - 1 - 1 <> 0 Then GoTo loc_0082B0CB + loc_0082AE96: If var_1C Then + loc_0082AE9C: If var_1C = 1 Then + loc_0082AEAB: 008861A4h = 008861A4h - var_1C(6) + loc_0082AEAF: If 008861A4h >= 0 Then + loc_0082AEB1: var_eax = Err.Raise + loc_0082AEBA: End If + loc_0082AEC0: GoTo loc_0082AECB + loc_0082AEC2: End If + loc_0082AEC2: End If + loc_0082AEC2: var_eax = Err.Raise + loc_0082AECB: 'Referenced from: 0082AEC0 + loc_0082AEDD: var_5C = edx+eax+00000038h + loc_0082AEF1: var_28 = Str$(edx+eax+00000038) + loc_0082AF10: If var_20 Then + loc_0082AF16: If var_20 = 1 Then + loc_0082AF22: 008861A4h = 008861A4h - var_20(6) + loc_0082AF29: var_90 = global_008861A4 + loc_0082AF2F: If 008861A4h >= 0 Then + loc_0082AF31: var_eax = Err.Raise + loc_0082AF40: End If + loc_0082AF46: GoTo loc_0082AF51 + loc_0082AF48: End If + loc_0082AF48: End If + loc_0082AF48: var_eax = Err.Raise + loc_0082AF51: 'Referenced from: 0082AF46 + loc_0082AF63: var_6C = edx+eax+0000003Ch + loc_0082AF71: var_34 = Str$(edx+eax+0000003C) + loc_0082AF90: If var_24 Then + loc_0082AF96: If var_24 = 1 Then + loc_0082AFA5: 008861A4h = 008861A4h - var_24(6) + loc_0082AFA9: If 008861A4h >= 0 Then + loc_0082AFAB: var_eax = Err.Raise + loc_0082AFB4: End If + loc_0082AFBA: GoTo loc_0082AFC5 + loc_0082AFBC: End If + loc_0082AFBC: End If + loc_0082AFBC: var_eax = Err.Raise + loc_0082AFC5: 'Referenced from: 0082AFBA + loc_0082AFDD: var_7C = edx+eax+00000040h + loc_0082AFEB: var_44 = Str$(edx+eax+00000040) + loc_0082B071: var_50 = "You're on Flux LE level " & Trim$(var_28) & ", Flux Normal level " & Trim$(var_34) & ", and Flux Extreme level " & Trim$(var_44) + loc_0082B080: var_18 = var_50 & global_0040F308 + loc_0082B0BB: GoTo loc_0082B0CB + loc_0082B0BD: End If + loc_0082B0C5: var_18 = "Ready to play Flux Classic! Click the 'Ok' button to proceed." + loc_0082B0CB: 'Referenced from: 0082B0BB + loc_0082B0E8: lblInfo.Caption = var_18 + loc_0082B0EF: If var_54 < 0 Then + loc_0082B0F1: GoTo loc_0082B11A + loc_0082B0F3: End If + loc_0082B111: lblInfo.Caption = global_0040EEC8 + loc_0082B118: If var_54 >= 0 Then GoTo loc_0082B129 + loc_0082B11A: 'Referenced from: 0082B0F1 + loc_0082B123: var_54 = CheckObj(var_54, global_0040E84C, 84) + loc_0082B129: End If + loc_0082B137: GoTo loc_0082B192 + loc_0082B191: Exit Sub + loc_0082B192: 'Referenced from: 0082B137 +End Sub + +Public Sub drawdisplay() '82B8A0 + +End Sub + +Public Sub drawDefaultPics() '82B900 + Dim Me As Variant + Dim var_50 As Me + Dim var_28 As PictureBox + Dim var_2C As PictureBox + Dim var_34 As PictureBox + loc_0082B976: 1 = btnButton._Default + loc_0082B9A2: var_50 = var_34 + loc_0082B9BF: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0082B9D3: var_40 = Unknown_VTable_Call[ecx+00000354h] + loc_0082B9D6: var_2C = buttons.hWnd + loc_0082BA06: buttons.BackColor = var_38 + loc_0082BA53: 2 = btnButton._Default + loc_0082BA71: var_50 = var_34 + loc_0082BA8E: var_eax = Unknown_VTable_Call[ecx+00000368h] + loc_0082BAA4: var_2C = buttons.hWnd + loc_0082BAD5: buttons.BackColor = var_38 + loc_0082BB22: 3 = btnButton._Default + loc_0082BB40: var_50 = var_34 + loc_0082BB5D: var_eax = Unknown_VTable_Call[ecx+00000350h] + loc_0082BB73: var_2C = buttons.hWnd + loc_0082BBA4: buttons.BackColor = var_38 + loc_0082BBF1: 4 = btnButton._Default + loc_0082BC0F: var_50 = var_34 + loc_0082BC2C: var_eax = Unknown_VTable_Call[ecx+0000034Ch] + loc_0082BC42: var_2C = buttons.hWnd + loc_0082BC73: buttons.BackColor = var_38 + loc_0082BCC0: 5 = btnButton._Default + loc_0082BCDE: var_50 = var_34 + loc_0082BCFB: var_eax = Unknown_VTable_Call[ecx+00000348h] + loc_0082BD11: var_2C = buttons.hWnd + loc_0082BD42: buttons.BackColor = var_38 + loc_0082BD8F: 6 = btnButton._Default + loc_0082BDAD: var_50 = var_34 + loc_0082BDCA: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0082BDE0: var_2C = buttons.hWnd + loc_0082BE11: buttons.BackColor = var_38 + loc_0082BE5E: 7 = btnButton._Default + loc_0082BE7C: var_50 = var_34 + loc_0082BE99: var_eax = Unknown_VTable_Call[ecx+00000344h] + loc_0082BEAF: var_2C = buttons.hWnd + loc_0082BEE0: buttons.BackColor = var_38 + loc_0082BF2D: 8 = btnButton._Default + loc_0082BF4B: var_50 = var_34 + loc_0082BF68: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0082BF7E: var_2C = buttons.hWnd + loc_0082BFAF: buttons.BackColor = var_38 + loc_0082BFFC: 9 = btnButton._Default + loc_0082C01A: var_50 = var_34 + loc_0082C037: var_eax = Unknown_VTable_Call[ecx+00000344h] + loc_0082C04D: var_2C = buttons.hWnd + loc_0082C07E: buttons.BackColor = var_38 + loc_0082C0CB: 10 = btnButton._Default + loc_0082C0E9: var_50 = var_34 + loc_0082C106: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0082C11C: var_2C = buttons.hWnd + loc_0082C14D: buttons.BackColor = var_38 + loc_0082C19A: 11 = btnButton._Default + loc_0082C1B8: var_50 = var_34 + loc_0082C1D5: var_eax = Unknown_VTable_Call[ecx+00000344h] + loc_0082C1EB: var_2C = buttons.hWnd + loc_0082C21C: buttons.BackColor = var_38 + loc_0082C25E: If 00000001h <= 11 Then + loc_0082C26B: var_eax = login.drawDefaultPic(1) + loc_0082C2A3: var_18 = picAnim._Default + loc_0082C2C3: var_1C = picAnim.Tag + loc_0082C30D: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_0082C32F: var_eax = Unknown_E8458970(var_2C, var_28, Me, Me, var_38) + loc_0082C355: var_18 = picAnim._Default + loc_0082C375: var_1C = picAnim.Tag + loc_0082C3AF: var_18 = picAnim._Default + loc_0082C3EA: var_18 = picAnim._Default + loc_0082C40A: var_20 = picAnim.Tag + loc_0082C433: Len(var_20) = Len(var_20) - 00000001h + loc_0082C449: var_24 = Left$(var_1C, Len(var_20)) + loc_0082C451: picAnim.Tag = var_24 + loc_0082C4AD: 00000001h = 00000001h + var_18 + loc_0082C4B3: var_18 = 00000001h+var_18 + loc_0082C4B6: GoTo loc_0082C25A + loc_0082C4BB: End If + loc_0082C4C9: GoTo loc_0082C503 + loc_0082C502: Exit Sub + loc_0082C503: 'Referenced from: 0082C4C9 + loc_0082C503: Exit Sub +End Sub + +Public Sub drawDefaultPic(X) '82C530 + loc_0082C594: X = picAnim._Default + loc_0082C5CF: var_eax = login.drawFrame(var_20, var_24) + loc_0082C603: GoTo loc_0082C61D + loc_0082C61C: Exit Sub + loc_0082C61D: 'Referenced from: 0082C603 +End Sub + +Public Sub drawFrame(pic, frame) '82C640 + Dim Me As Me + loc_0082C69B: var_18 = Me.Visible + loc_0082C6C2: var_3C = var_18 + loc_0082C6DB: If (var_3C = "ok") Then + loc_0082C6EE: If (var_3C = "oka") Then + loc_0082C701: If (var_3C = "back") Then + loc_0082C714: If (var_3C = "backa") Then + loc_0082C727: If (var_3C = "add") Then + loc_0082C73A: If (var_3C = "adda") Then + loc_0082C74D: If (var_3C = "remove") Then + loc_0082C760: If (var_3C = "removea") Then + loc_0082C773: If (var_3C = "reset") Then + loc_0082C782: If (var_3C <> "reseta") <> 0 Then GoTo loc_0082CBCA + loc_0082C788: End If + loc_0082C7A9: var_eax = Unknown_VTable_Call[edx+00000334h] + loc_0082C824: frame = frame - 0001h + loc_0082C830: frame = frame * 0019h + loc_0082C849: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_0082C856: GoTo loc_0082C9E9 + loc_0082C85B: End If + loc_0082C85B: End If + loc_0082C87C: var_eax = Unknown_VTable_Call[ecx+0000031Ch] + loc_0082C8E2: frame = frame - 0001h + loc_0082C8EE: frame = frame * 0019h + loc_0082C907: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_0082C92B: GoTo loc_0082CBBF + loc_0082C930: End If + loc_0082C930: End If + loc_0082C951: var_eax = Unknown_VTable_Call[ecx+00000320h] + loc_0082C9B7: frame = frame - 0001h + loc_0082C9C3: frame = frame * 0019h + loc_0082C9DC: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_0082C9E9: 'Referenced from: 0082C856 + loc_0082CA00: GoTo loc_0082CBBF + loc_0082CA05: End If + loc_0082CA05: End If + loc_0082CA26: var_eax = Unknown_VTable_Call[ecx+00000334h] + loc_0082CAA1: frame = frame - 0001h + loc_0082CAAD: frame = frame * 0019h + loc_0082CAC6: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_0082CAEA: GoTo loc_0082CBBF + loc_0082CAEF: End If + loc_0082CAEF: End If + loc_0082CB10: var_eax = Unknown_VTable_Call[edx+00000330h] + loc_0082CB76: frame = frame - 0001h + loc_0082CB82: frame = frame * 0019h + loc_0082CB9B: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_0082CBBF: 'Referenced from: 0082C92B + loc_0082CBCA: + loc_0082CBCF: GoTo loc_0082CBF6 + loc_0082CBF5: Exit Sub + loc_0082CBF6: 'Referenced from: 0082CBCF + loc_0082CBFF: Exit Sub +End Sub + +Public Sub drawAnimations() '82CC30 + Dim Me As Variant + Dim var_28 As PictureBox + loc_0082CCAF: If global_886000 = 0 Then + loc_0082CCB4: GoTo loc_0082CCBE + loc_0082CCB6: End If + loc_0082CCB9: call _adj_fdiv_m32 + loc_0082CCBE: 'Referenced from: 0082CCB4 + loc_0082CCD8: var_5C = var_58 + loc_0082CD10: If var_18 <= 11 Then + loc_0082CD37: var_18 = picAnim._Default + loc_0082CD57: var_1C = picAnim.Tag + loc_0082CDA1: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_0082CDC3: var_eax = Unknown_E845896A(var_28, var_24) + loc_0082CDEA: var_18 = picAnim._Default + loc_0082CE1E: var_eax = login.drawFrame(var_2C, Me(16)) + loc_0082CE4E: 00000001h = 00000001h + var_18 + loc_0082CE54: var_18 = 00000001h+var_18 + loc_0082CE57: var_eax = Unknown_1468F(var_2C, var_28, var_28, var_24) + loc_0082CE5C: End If + loc_0082CE5C: End If + loc_0082CE61: If edi+0000003Ch > 39 Then + loc_0082CE69: End If + loc_0082CE6F: GoTo loc_0082CE99 + loc_0082CE98: Exit Sub + loc_0082CE99: 'Referenced from: 0082CE6F + loc_0082CE99: Exit Sub +End Sub diff --git a/src/login.frx b/src/login.frx new file mode 100644 index 0000000..6ccaee4 Binary files /dev/null and b/src/login.frx differ diff --git a/src/scoring.frm b/src/scoring.frm new file mode 100644 index 0000000..04d9915 --- /dev/null +++ b/src/scoring.frm @@ -0,0 +1,1727 @@ +VERSION 5.00 +Begin VB.Form scoring + BackColor = &H0& + WindowState = 2 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + Picture = "scoring.frx":0 + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ControlBox = 0 'False + Tag = "titlescreen" + KeyPreview = -1 'True + ClientLeft = 2820 + ClientTop = 1530 + ClientWidth = 12450 + ClientHeight = 10125 + ShowInTaskbar = 0 'False + Moveable = 0 'False + Begin PictureBox rotateDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 7830 + Top = 390 + Width = 1725 + Height = 1725 + Visible = 0 'False + TabIndex = 34 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox animDisplay + BackColor = &H8080FF& + ForeColor = &H80000008& + Left = 1230 + Top = 1050 + Width = 2835 + Height = 690 + Visible = 0 'False + TabIndex = 33 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin Timer tmrMainLoop + Interval = 1 + Left = 5760 + Top = 1260 + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 2 + ForeColor = &H80000008& + Left = 8280 + Top = 6660 + Width = 1200 + 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 = "back" + Appearance = 0 'Flat + End + End + Begin PictureBox btnButton + BackColor = &H404040& + Index = 1 + ForeColor = &H80000008& + Left = 6900 + 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 work + BackColor = &HFFFFFF& + ForeColor = &H80000008& + Left = 10500 + Top = 300 + Width = 960 + Height = 945 + Visible = 0 'False + TabIndex = 1 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin PictureBox display + BackColor = &H800000& + ForeColor = &H80000008& + Left = 10440 + Top = 1380 + Width = 1080 + Height = 1200 + TabIndex = 0 + ScaleMode = 3 + AutoRedraw = False + FontTransparent = True + AutoSize = -1 'True + BorderStyle = 0 'None + Appearance = 0 'Flat + End + Begin Label lblLevelInfo + Caption = "13x19, 3 Varieties" + ForeColor = &HFFFFFF& + Left = 6720 + Top = 2190 + Width = 2775 + Height = 240 + TabIndex = 35 + Alignment = 1 'Right Justify + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScoreName + Caption = "LamerWorks 1" + Index = 1 + ForeColor = &HFFFFFF& + Left = 900 + Top = 5580 + Width = 2250 + Height = 195 + TabIndex = 32 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScoreName + Caption = "LamerWorks 1" + Index = 2 + ForeColor = &HFFFFFF& + Left = 900 + Top = 5880 + Width = 2250 + Height = 195 + TabIndex = 31 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScoreName + Caption = "LamerWorks 1" + Index = 3 + ForeColor = &HFFFFFF& + Left = 900 + Top = 6180 + Width = 2250 + Height = 195 + TabIndex = 30 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScore + Caption = "12" + Index = 1 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 5580 + Width = 210 + Height = 195 + TabIndex = 29 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScore + Caption = "25" + Index = 2 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 5880 + Width = 210 + Height = 195 + TabIndex = 28 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBLowScore + Caption = "34" + Index = 3 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 6180 + Width = 210 + Height = 195 + TabIndex = 27 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScoreName + Caption = "MasterWorks 1" + Index = 1 + ForeColor = &HFFFFFF& + Left = 900 + Top = 4170 + Width = 2250 + Height = 195 + TabIndex = 26 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScoreName + Caption = "MasterWorks 2" + Index = 2 + ForeColor = &HFFFFFF& + Left = 900 + Top = 4470 + Width = 2250 + Height = 195 + TabIndex = 25 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScoreName + Caption = "MasterWorks 3" + Index = 3 + ForeColor = &HFFFFFF& + Left = 900 + Top = 4770 + Width = 2250 + Height = 195 + TabIndex = 24 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScore + Caption = "128351" + Index = 1 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 4170 + Width = 630 + Height = 195 + TabIndex = 23 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScore + Caption = "120012" + Index = 2 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 4470 + Width = 630 + Height = 195 + TabIndex = 22 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblBHighScore + Caption = "98711" + Index = 3 + ForeColor = &HFFFFFF& + Left = 3180 + Top = 4770 + Width = 525 + Height = 195 + TabIndex = 21 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label baseScore + Caption = "1000" + ForeColor = &HFFFFFF& + Left = 3870 + Top = 2610 + Width = 540 + Height = 240 + TabIndex = 20 + 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 + Begin Label eliminationBonus + Caption = "×4" + ForeColor = &HFFFFFF& + Left = 3870 + Top = 2940 + Width = 300 + Height = 240 + TabIndex = 19 + 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 + Begin Label finalScore + Caption = "4000" + ForeColor = &H80FFFF& + Left = 3870 + Top = 3270 + Width = 540 + Height = 240 + TabIndex = 18 + 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 + Begin Label lblHighScoreName + Caption = "MasterWorks 1" + Index = 1 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 4170 + Width = 2250 + Height = 195 + TabIndex = 17 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblHighScoreName + Caption = "MasterWorks 2" + Index = 2 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 4470 + Width = 2250 + Height = 195 + TabIndex = 16 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblHighScoreName + Caption = "MasterWorks 3" + Index = 3 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 4770 + Width = 2250 + Height = 195 + TabIndex = 15 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblHighScore + Caption = "128351" + Index = 1 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 4170 + Width = 630 + Height = 195 + TabIndex = 14 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblHighScore + Caption = "120012" + Index = 2 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 4470 + Width = 630 + Height = 195 + TabIndex = 13 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblHighScore + Caption = "98711" + Index = 3 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 4770 + Width = 525 + Height = 195 + TabIndex = 12 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScoreName + Caption = "LamerWorks 1" + Index = 1 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 5580 + Width = 2250 + Height = 195 + TabIndex = 11 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScoreName + Caption = "LamerWorks 1" + Index = 2 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 5880 + Width = 2250 + Height = 195 + TabIndex = 10 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScoreName + Caption = "LamerWorks 1" + Index = 3 + ForeColor = &HFFFFFF& + Left = 5580 + Top = 6180 + Width = 2250 + Height = 195 + TabIndex = 9 + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScore + Caption = "12" + Index = 1 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 5580 + Width = 210 + Height = 195 + TabIndex = 8 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScore + Caption = "25" + Index = 2 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 5880 + Width = 210 + Height = 195 + TabIndex = 7 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblLowScore + Caption = "34" + Index = 3 + ForeColor = &HFFFFFF& + Left = 8010 + Top = 6180 + Width = 210 + Height = 195 + TabIndex = 6 + AutoSize = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End +End + +Attribute VB_Name = "scoring" + + +Private Sub picAnim_Click() '83D8A0 + loc_0083D8E7: var_eax = scoring.btnButton_Click +End Sub + +Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '83D930 + Dim var_24 As PictureBox + loc_0083D9A5: Button = picAnim._Default + loc_0083D9C9: var_1C = picAnim.Tag + loc_0083D9F8: var_20 = Right$(var_1C, 1) + loc_0083DA17: esi = (var_20 = global_0040F164) + 1 + loc_0083DA39: If (var_20 = global_0040F164) + 1 = 0 Then + loc_0083DA5C: + loc_0083DA66: If Err.Number Then + loc_0083DA7B: var_58 = Button + loc_0083DA88: If Err.Number Then + loc_0083DAB7: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DADB: var_1C = picAnim.Tag + loc_0083DB11: esi = (var_1C = "ok") + 1 + loc_0083DB30: If (var_1C = "ok") + 1 Then + loc_0083DB54: var_60 = var_24 + loc_0083DB62: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DB87: picAnim.Tag = "oka" + loc_0083DBC2: End If + loc_0083DBE0: var_64 = var_24 + loc_0083DBEE: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DC12: var_1C = picAnim.Tag + loc_0083DC48: esi = (var_1C = "back") + 1 + loc_0083DC67: If (var_1C = "back") + 1 Then + loc_0083DC96: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DCBB: picAnim.Tag = "backa" + loc_0083DCF3: End If + loc_0083DCF6: + loc_0083DD07: GoTo loc_0083DA5C + loc_0083DD27: var_68 = Err.Number + loc_0083DD35: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DD59: var_1C = picAnim.Tag + loc_0083DD8A: var_18 = var_1C + loc_0083DDB0: var_1C = Right$(var_18, 1) + loc_0083DDC7: esi = (var_1C = global_0040F164) + 1 + loc_0083DDD3: If (var_1C = global_0040F164) + 1 = 0 Then GoTo loc_0083DCF3 + loc_0083DE02: CInt(6.37066138261923E-314) = picAnim._Default + loc_0083DE2C: Len(var_18) = Len(var_18) - 00000001h + loc_0083DE42: var_1C = Left$(var_18, Len(var_18)) + loc_0083DE4A: picAnim.Tag = var_1C + loc_0083DE93: var_eax = scoring.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_0083DEB3: GoTo loc_0083DCF6 + loc_0083DEBA: End If + loc_0083DEC3: GoTo loc_0083DEE9 + loc_0083DEE8: Exit Sub + loc_0083DEE9: 'Referenced from: 0083DEC3 + loc_0083DEF2: Exit Sub +End Sub + +Private Sub btnButton_Click() '83B070 + Dim Me As Me + loc_0083B0B0: var_eax = Proc_9_20_8476B0(edi, Me, ebx) + loc_0083B0BB: eax = arg_C - 1 + loc_0083B0BC: If arg_C - 1 Then + loc_0083B0BE: eax = arg_C - 1 - 1 + loc_0083B0BF: If arg_C - 1 - 1 <> 0 Then GoTo loc_0083B0DB + loc_0083B0CD: GoTo loc_0083B0DB + loc_0083B0CF: End If + loc_0083B0DB: 'Referenced from: 0083B0CD +End Sub + +Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '83B110 + loc_0083B181: var_eax = scoring.picAnim_MouseMove(Button, var_18, var_1C, var_20) +End Sub + +Private Sub display_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '83D750 + loc_0083D793: var_eax = scoring.highLightCheck +End Sub + +Private Sub tmrMainLoop_Timer() '83DF20 + Dim Me As Variant + loc_0083DF74: var_eax = scoring.drawDefaultPics + loc_0083DFAD: var_eax = Proc_10_11_84A820(var_28, var_28, scoring.drawDefaultPics) + loc_0083DFBE: var_eax = scoring.resetHighLights + loc_0083DFDA: var_eax = Proc_86B860(Me, global_0040C7EC, 0) + loc_0083DFF6: tmrMainLoop.Enabled = False + loc_0083E017: + loc_0083E01B: var_eax = QueryPerformanceCounter(var_24) + loc_0083E02E: If global_88619A = 0 Then + loc_0083E030: var_eax = Proc_86F270(var_28, Me, Me) + loc_0083E035: End If + loc_0083E04E: var_eax = Proc_12_46_86D7E0(var_28, var_28, Proc_86F270(var_28, Me, Me)) + loc_0083E06F: var_eax = Proc_10_11_84A820(var_28, var_28, Proc_12_46_86D7E0(var_28, var_28, Proc_86F270(var_28, Me, Me))) + loc_0083E082: If esi+0000003Eh Then + loc_0083E087: var_eax = scoring.drawAnimations + loc_0083E0A3: End If + loc_0083E0A7: var_eax = QueryPerformanceCounter(var_1C) + loc_0083E0C2: call __vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, Me, Set %StkVar1 = %StkVar2 'Ignore this) + loc_0083E0CA: call __vbaR8Cy(__vbaCySub(var_1C, var_18, var_24, var_20, Me, global_0040C7EC, Me, global_0040C7EC, Me, Set %StkVar1 = %StkVar2, var_24) + loc_0083E0E0: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_0083E0ED: If global_886000 = 0 Then + loc_0083E0EF: fdivr st0, var_44 + loc_0083E0F2: GoTo loc_0083E0FF + loc_0083E0F4: End If + loc_0083E0FF: 'Referenced from: 0083E0F2 + loc_0083E0FF: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_0083E126: If Err.Number Then + loc_0083E128: global_8860D4 = 3DCCCCCDh + loc_0083E132: End If + loc_0083E137: If esi+00000038h = 0 Then GoTo loc_0083E017 + loc_0083E13D: var_eax = Proc_845A50(var_44, var_40) + loc_0083E149: If Me(15) = 0 Then + loc_0083E14B: global_886128 = FFFFFFh + loc_0083E154: End If + loc_0083E17A: Set var_28 = Me + loc_0083E182: var_eax = Global.Unload var_28 + loc_0083E1B0: GoTo loc_0083E1BC + loc_0083E1BB: Exit Sub + loc_0083E1BC: 'Referenced from: 0083E1B0 + loc_0083E1BC: Exit Sub +End Sub + +Private Sub Form_Load() '83B290 + Dim var_20 As Screen + Dim var_24 As Screen + loc_0083B310: var_eax = Proc_12_43_86D100(var_34, var_20, var_20) + loc_0083B33A: var_eax = Proc_12_45_86D280(var_20, var_20, Proc_12_43_86D100(var_34, var_20, var_20)) + loc_0083B34B: var_eax = scoring.positionControls + loc_0083B397: var_20 = Global.Screen + loc_0083B3B7: var_6C = Global.Width + loc_0083B3F7: var_24 = Global.Screen + loc_0083B417: var_70 = Global.Height + loc_0083B48A: var_eax = Unknown_VTable_Call[edi+000002A4h] + loc_0083B4BE: var_eax = scoring.resetHighLights + loc_0083B525: var_eax = Proc_12_47_86E570(var_20, var_20, CreateObject(global_00408628, global_00886BA4)) + loc_0083B54E: If global_88613A Then + loc_0083B55B: GoTo loc_0083B586 + loc_0083B55D: End If + loc_0083B564: var_eax = Proc_10_6_849970(640, 0, var_68) + loc_0083B56D: var_eax = Proc_10_5_849590(0, 0, global_00886BA4) + loc_0083B576: var_eax = Proc_10_4_8491B0(0, 0, Proc_12_47_86E570(var_20, var_20, CreateObject(global_00408628, global_00886BA4))) + loc_0083B586: 'Referenced from: 0083B55B + loc_0083B586: var_eax = Proc_12_25_868460(var_68, var_20, global_0040F9BC) + loc_0083B58E: var_eax = scoring.displayLevelInfo + loc_0083B5B7: var_eax = scoring.doScore + loc_0083B5E8: ReDim var_1C(0 To 3) + loc_0083B5FD: ReDim var_18(0 To 3) + loc_0083B602: var_eax = Proc_12_40_86CB50(global_00886BA4, global_0040C7EC) + loc_0083B60A: var_eax = scoring.doHighScores + loc_0083B625: var_eax = scoring.doLowScores + loc_0083B63D: var_eax = Proc_12_41_86CE70 + loc_0083B645: var_eax = scoring.displayScores + loc_0083B66A: GoTo loc_0083B689 + loc_0083B688: Exit Sub + loc_0083B689: 'Referenced from: 0083B66A +End Sub + +Private Sub Form_Unload(Cancel As Integer) '83D7E0 + loc_0083D847: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18) + loc_0083D866: GoTo loc_0083D87B + loc_0083D87A: Exit Sub + loc_0083D87B: 'Referenced from: 0083D866 +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '83B1C0 + Dim Me As Me + loc_0083B20F: If KeyCode = 123 Then + loc_0083B211: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_0083B216: GoTo loc_0083B268 + loc_0083B218: End If + loc_0083B21C: If Proc_12_18_864A90(edi, Me, ebx) = 0 Then + loc_0083B22C: var_eax = scoring.btnButton_Click + loc_0083B234: If scoring.btnButton_Click >= 0 Then GoTo loc_0083B268 + loc_0083B236: GoTo loc_0083B256 + loc_0083B238: End If + loc_0083B23C: If scoring.btnButton_Click <> 27 Then GoTo loc_0083B268 + loc_0083B24C: var_eax = scoring.btnButton_Click + loc_0083B254: If scoring.btnButton_Click >= 0 Then GoTo loc_0083B268 + loc_0083B256: 'Referenced from: 0083B236 + loc_0083B262: scoring.btnButton_Click = CheckObj(Me, global_0040F9BC, 1832) + loc_0083B268: 'Referenced from: 0083B216 +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '83B6C0 + loc_0083B703: var_eax = scoring.highLightCheck +End Sub + +Public Sub positionControls() '839060 + Dim Me As Variant + Dim var_1C As Variant + Dim var_20 As Variant + loc_008390BB: lblLevelInfo.Left = global_43E00000 + loc_00839107: lblLevelInfo.Top = global_43120000 + loc_00839142: lblLevelInfo.Width = global_43390000 + loc_00839180: var_24 = var_1C + loc_00839183: lblLevelInfo.Height = global_41800000 + loc_008391C4: baseScore.Left = global_43810000 + loc_008391FC: var_24 = var_1C + loc_008391FF: baseScore.Top = global_432E0000 + loc_0083923A: baseScore.Width = global_42100000 + loc_00839278: var_24 = var_1C + loc_0083927B: baseScore.Height = global_41800000 + loc_008392BC: eliminationBonus.Left = global_43810000 + loc_008392F4: var_24 = var_1C + loc_008392F7: eliminationBonus.Top = global_43440000 + loc_00839332: eliminationBonus.Width = global_42100000 + loc_00839370: var_24 = var_1C + loc_00839373: eliminationBonus.Height = global_41800000 + loc_008393B4: finalScore.Left = global_43810000 + loc_008393EC: var_24 = var_1C + loc_008393EF: finalScore.Top = global_435A0000 + loc_0083942A: finalScore.Width = global_42100000 + loc_0083946B: finalScore.Height = global_41800000 + loc_008394AC: 1 = btnButton._Default + loc_008394CD: btnButton.Left = global_43E60000 + loc_00839513: 2 = btnButton._Default + loc_00839534: btnButton.Left = global_440A0000 + loc_0083956B: If var_18 <= 2 Then + loc_00839592: var_18 = btnButton._Default + loc_008395B3: btnButton.Top = global_43DE0000 + loc_008395FB: var_18 = btnButton._Default + loc_0083961C: btnButton.Width = global_42A00000 + loc_0083966A: var_18 = btnButton._Default + loc_0083968B: btnButton.Height = global_41F00000 + loc_008396BD: 00000001h = 00000001h + var_18 + loc_008396C7: var_18 = 00000001h+var_18 + loc_008396CA: var_eax = Unknown_15E8F(var_20, var_1C, var_1C, Me, var_20, var_1C) + loc_008396CF: End If + loc_008396DF: If var_18 <= 2 Then + loc_00839706: var_18 = picAnim._Default + loc_00839727: picAnim.Left = global_40800000 + loc_0083976F: var_18 = picAnim._Default + loc_00839790: picAnim.Top = global_40400000 + loc_008397D8: var_18 = picAnim._Default + loc_008397F9: picAnim.Width = global_41C80000 + loc_00839847: var_18 = picAnim._Default + loc_00839868: picAnim.Height = global_41C00000 + loc_0083989A: 00000001h = 00000001h + var_18 + loc_008398A4: var_18 = 00000001h+var_18 + loc_008398A7: var_eax = Unknown_1C78F(var_20, var_1C, var_1C, Me, var_20, var_1C) + loc_008398AC: End If + loc_008398B3: + loc_008398BF: If var_18 <= 3 Then + loc_008398E3: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839904: lblBHighScoreName.Left = global_42700000 + loc_0083994C: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083996D: lblBHighScoreName.Width = global_43160000 + loc_008399BB: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_008399DC: lblBHighScoreName.Height = global_41500000 + loc_00839A2A: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839A4B: lblBHighScore.Left = global_43540000 + loc_00839A93: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839AB4: lblBHighScore.Width = global_42280000 + loc_00839B02: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839B23: lblBHighScore.Height = global_41500000 + loc_00839B71: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839B92: lblBLowScoreName.Left = global_42700000 + loc_00839BDA: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839BFB: lblBLowScoreName.Width = global_43160000 + loc_00839C49: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839C6A: lblBLowScoreName.Height = global_41500000 + loc_00839CB8: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839CD9: lblBLowScore.Left = global_43540000 + loc_00839D21: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839D42: lblBLowScore.Width = global_42280000 + loc_00839D90: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839DB1: lblBLowScore.Height = global_41500000 + loc_00839DFF: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839E20: lblHighScoreName.Left = global_43BA0000 + loc_00839E68: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839E89: lblHighScoreName.Width = global_43160000 + loc_00839ED7: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839EF8: lblHighScoreName.Height = global_41500000 + loc_00839F46: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839F67: lblHighScore.Left = global_44058000 + loc_00839FAF: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00839FD0: lblHighScore.Width = global_42280000 + loc_0083A01E: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A03F: lblHighScore.Height = global_41500000 + loc_0083A08D: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A0AE: lblLowScoreName.Left = global_43BA0000 + loc_0083A0F6: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A117: lblLowScoreName.Width = global_43160000 + loc_0083A165: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A186: lblLowScoreName.Height = global_41500000 + loc_0083A1D4: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A1F5: lblLowScore.Left = global_44058000 + loc_0083A23D: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A25E: lblLowScore.Width = global_42280000 + loc_0083A2AC: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A2CD: lblLowScore.Height = global_41500000 + loc_0083A2FF: 00000001h = 00000001h + var_18 + loc_0083A309: var_18 = 00000001h+var_18 + loc_0083A30C: GoTo loc_008398B3 + loc_0083A32D: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A34E: lblBHighScoreName.Top = global_438B0000 + loc_0083A394: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A3B5: lblBHighScoreName.Top = global_43950000 + loc_0083A3FB: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A41C: lblBHighScoreName.Top = global_439F0000 + loc_0083A462: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A483: lblBHighScore.Top = global_438B0000 + loc_0083A4C9: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A4EA: lblBHighScore.Top = global_43950000 + loc_0083A530: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A551: lblBHighScore.Top = global_439F0000 + loc_0083A597: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A5B8: lblHighScoreName.Top = global_438B0000 + loc_0083A5FE: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A61F: lblHighScoreName.Top = global_43950000 + loc_0083A665: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A686: lblHighScoreName.Top = global_439F0000 + loc_0083A6CC: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A6ED: lblHighScore.Top = global_438B0000 + loc_0083A733: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A754: lblHighScore.Top = global_43950000 + loc_0083A79A: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A7BB: lblHighScore.Top = global_439F0000 + loc_0083A801: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A822: lblBLowScoreName.Top = global_43BA0000 + loc_0083A868: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A889: lblBLowScoreName.Top = global_43C40000 + loc_0083A8CF: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A8F0: lblBLowScoreName.Top = global_43CE0000 + loc_0083A936: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083A957: lblBLowScore.Top = global_43BA0000 + loc_0083A99D: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083A9BE: lblBLowScore.Top = global_43C40000 + loc_0083AA04: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083AA25: lblBLowScore.Top = global_43CE0000 + loc_0083AA6B: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083AA8C: lblLowScoreName.Top = global_43BA0000 + loc_0083AAD2: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083AAF3: lblLowScoreName.Top = global_43C40000 + loc_0083AB39: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083AB5A: lblLowScoreName.Top = global_43CE0000 + loc_0083ABA0: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083ABC1: lblLowScore.Top = global_43BA0000 + loc_0083AC07: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083AC28: lblLowScore.Top = global_43C40000 + loc_0083AC70: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083AC91: lblLowScore.Top = global_43CE0000 + loc_0083ACBA: GoTo loc_0083ACD0 + loc_0083ACCF: Exit Sub + loc_0083ACD0: 'Referenced from: 0083ACBA + loc_0083ACD0: Exit Sub +End Sub + +Public Sub doScore() '83AD00 + Dim Me As Me + Dim var_18 As Label + Dim var_30 As Label + loc_0083AD72: call __vbaCyInt(global_008860A8, global_008860AC, var_30, Me, Me, Me, Me, ebx) + loc_0083AD78: var_34 = var_30 + loc_0083ADB7: baseScore.Caption = Trim$(Str$(__vbaCyInt(global_008860A8, global_008860AC, var_30, Me, Me, Me, Me, ebx))) + loc_0083ADFE: If global_88613A = 0 Then + loc_0083AE11: var_1C = global_008860E4 + loc_0083AE14: If global_88611C Then + loc_0083AE16: 008860E4h = 008860E4h - 0001h + loc_0083AE20: var_1C = global_008860E4 + loc_0083AE23: End If + loc_0083AE2F: var_48 = var_1C + loc_0083AE60: var_18 = global_0040FAE8 & Trim$(Str$(var_1C)) + loc_0083AE83: call __vbaCyMulI2(var_1C, global_008860A8, global_008860AC) + loc_0083AE89: global_8860A8 = __vbaCyMulI2(var_1C, global_008860A8, global_008860AC) + loc_0083AE8E: global_8860AC = global_008860A8 + loc_0083AE94: GoTo loc_0083AEA4 + loc_0083AE96: End If + loc_0083AE9E: var_18 = "No bonus." + loc_0083AEA4: 'Referenced from: 0083AE94 + loc_0083AEC1: eliminationBonus.Caption = var_18 + loc_0083AF06: call __vbaCyInt(global_008860A8, global_008860AC, var_30, var_18, Me, var_30, var_18, Me) + loc_0083AF12: var_34 = global_008860A8 + loc_0083AF38: var_2C = Trim$(Str$(__vbaCyInt(global_008860A8, global_008860AC, var_30, var_18, Me, var_30, var_18, Me))) + loc_0083AF3C: finalScore.Caption = var_2C + loc_0083AF7E: GoTo loc_0083AFA6 + loc_0083AFA5: Exit Sub + loc_0083AFA6: 'Referenced from: 0083AF7E +End Sub + +Public Sub highLightCheck() '83AFE0 + Dim Me As Me + loc_0083B01E: If Me.Reset = 0 Then + loc_0083B025: If esi+0000003Eh = 0 Then GoTo loc_0083B046 + loc_0083B027: End If + loc_0083B02A: var_eax = scoring.resetHighLights + loc_0083B046: +End Sub + +Public Sub displayLevelInfo() '83B750 + loc_0083B7B1: var_18 = global_008860E4 + loc_0083B7B4: If global_88611C Then + loc_0083B7B6: 008860E4h = 008860E4h - 0001h + loc_0083B7C0: var_18 = global_008860E4 + loc_0083B7C3: End If + loc_0083B7CA: If 008861A8h Then + loc_0083B7D0: If 008861A8h = 1 Then + loc_0083B7E7: If 00000001h >= 0 Then + loc_0083B7E9: var_eax = Err.Raise + loc_0083B7EB: End If + loc_0083B7EE: var_68 = esi+esi + loc_0083B7F1: GoTo loc_0083B7FE + loc_0083B7F3: End If + loc_0083B7F3: End If + loc_0083B7F9: var_eax = Err.Raise + loc_0083B7FB: var_68 = Err.Raise + loc_0083B7FE: 'Referenced from: 0083B7F1 + loc_0083B806: If 008861ACh Then + loc_0083B80C: If 008861ACh = 1 Then + loc_0083B81D: If 00000001h >= 0 Then + loc_0083B81F: var_eax = Err.Raise + loc_0083B827: End If + loc_0083B82A: GoTo loc_0083B834 + loc_0083B82C: End If + loc_0083B82C: End If + loc_0083B82C: var_eax = Err.Raise + loc_0083B834: 'Referenced from: 0083B82A + loc_0083B85F: If 00886056h <> 0 Then eax = 1 + loc_0083B864: If eax = 0 Then + loc_0083B86B: GoTo loc_0083B9C3 + loc_0083B870: End If + loc_0083B877: If var_8861A8 Then + loc_0083B87D: If 008861A8h = 1 Then + loc_0083B894: If 00000002h >= 0 Then + loc_0083B896: var_eax = Err.Raise + loc_0083B89E: End If + loc_0083B8A1: GoTo loc_0083B8B3 + loc_0083B8A3: End If + loc_0083B8A3: End If + loc_0083B8A9: var_eax = Err.Raise + loc_0083B8B3: 'Referenced from: 0083B8A1 + loc_0083B8B5: If var_8861AC Then + loc_0083B8BB: If 008861ACh = 1 Then + loc_0083B8CC: If 00000002h >= 0 Then + loc_0083B8CE: var_eax = Err.Raise + loc_0083B8D6: End If + loc_0083B8D9: GoTo loc_0083B8E3 + loc_0083B8DB: End If + loc_0083B8DB: End If + loc_0083B8DB: var_eax = Err.Raise + loc_0083B8E3: 'Referenced from: 0083B8D9 + loc_0083B902: If 00886056h <> 0 Then edx = 1 + loc_0083B90B: If 00886056h <> 0 Then eax = 1 + loc_0083B910: If eax = 0 Then + loc_0083B917: GoTo loc_0083B9C3 + loc_0083B91C: End If + loc_0083B923: If var_8861A8 Then + loc_0083B929: If 008861A8h = 1 Then + loc_0083B940: If 00000003h >= 0 Then + loc_0083B942: var_eax = Err.Raise + loc_0083B94A: End If + loc_0083B94D: GoTo loc_0083B95F + loc_0083B94F: End If + loc_0083B94F: End If + loc_0083B955: var_eax = Err.Raise + loc_0083B95F: 'Referenced from: 0083B94D + loc_0083B961: If var_8861AC Then + loc_0083B967: If 008861ACh = 1 Then + loc_0083B978: If 00000003h >= 0 Then + loc_0083B97A: var_eax = Err.Raise + loc_0083B982: End If + loc_0083B985: GoTo loc_0083B98F + loc_0083B987: End If + loc_0083B987: End If + loc_0083B987: var_eax = Err.Raise + loc_0083B98F: 'Referenced from: 0083B985 + loc_0083B9AE: If 00886056h <> 0 Then edx = 1 + loc_0083B9B7: If 00886056h <> 0 Then eax = 1 + loc_0083B9BC: If eax = 0 Then + loc_0083B9C3: 'Referenced from: 0083B86B + loc_0083B9C6: var_1C = "Large" + loc_0083B9D8: GoTo loc_0083BA77 + loc_0083B9DD: End If + loc_0083B9EC: var_3C = global_00886056 + loc_0083B9F6: var_4C = global_00886058 + loc_0083BA56: var_1C = Trim$(Str$(global_00886056)) & " × " & Trim$(Str$(global_00886058)) + loc_0083BA77: 'Referenced from: 0083B9D8 + loc_0083BA95: var_3C = var_18 + loc_0083BAE9: var_30 = var_1C & ", " & Trim$(Str$(var_18)) & " varieties" + loc_0083BAF0: lblLevelInfo.Caption = var_30 + loc_0083BB35: GoTo loc_0083BB60 + loc_0083BB5F: Exit Sub + loc_0083BB60: 'Referenced from: 0083BB35 +End Sub + +Public Sub displayScores() '83BB90 + Dim Me As Me + Dim var_5C As Label + Dim var_3C As Label + Dim var_60 As Label + loc_0083BBFC: + loc_0083BC04: If 00000001h <= 3 Then + loc_0083BC13: If 00000001h >= 4 Then + loc_0083BC15: var_eax = Err.Raise + loc_0083BC1B: End If + loc_0083BC34: call __vbaFpCmpCy(eax*8+008862E4h, eax*8+008862E8h, Me, %ecx = %S_edx_S, %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)) + loc_0083BC3F: If __vbaFpCmpCy(eax*8+008862E4h, eax*8+008862E8h, Me, %ecx = %S_edx_S, %StkVar1 = CheckObj(%StkVar2, %StkVar3, %StkVar4)) Then + loc_0083BC64: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_0083BC85: var_5C = var_3C + loc_0083BC88: If var_1C >= 4 Then + loc_0083BC8A: var_eax = Err.Raise + loc_0083BC90: End If + loc_0083BC9D: var_44 = ebx*8+008862E4h + loc_0083BCB5: var_20 = Str$(0#) + loc_0083BCC3: var_24 = Trim$(var_20) + loc_0083BCCC: lblHighScore.Caption = var_24 + loc_0083BD11: GoTo loc_0083BD81 + loc_0083BD32: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_0083BD57: lblHighScore.Caption = global_0040EEC8 + loc_0083BD81: 'Referenced from: 0083BD11 + loc_0083BDA3: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083BDC7: var_60 = var_3C + loc_0083BDCA: var_44 = var_1C + loc_0083BDD4: If var_1C >= 4 Then + loc_0083BDD6: var_eax = Err.Raise + loc_0083BDDC: End If + loc_0083BDE9: call __vbaStrFixstr(00000014h, ecx*8+00886244h, var_38, var_1C, var_3C, var_38, var_3C, Me, var_20, var_1C, var_3C, var_38, var_20, Me) + loc_0083BDF4: var_28 = __vbaStrFixstr(00000014h, ecx*8+00886244h, var_38, var_1C, var_3C, var_38, var_3C, Me, var_20, var_1C, var_3C, var_38, var_20, Me) + loc_0083BE02: var_2C = Trim$(var_28) + loc_0083BE0B: If var_1C >= 4 Then + loc_0083BE0D: var_eax = Err.Raise + loc_0083BE13: End If + loc_0083BE24: call __vbaLsetFixstr(00000014h, ecx*8+00886244h, var_28) + loc_0083BE73: var_7C = var_60 + loc_0083BE7E: lblHighScoreName.Caption = Trim$(Str$(var_1C)) & ".) " & var_2C + loc_0083BED0: If var_1C >= 4 Then + loc_0083BED2: var_eax = Err.Raise + loc_0083BED8: End If + loc_0083BEEE: call __vbaFpCmpCy(ebx*8+008863A4h, ebx*8+008863A8h) + loc_0083BEF6: If __vbaFpCmpCy(ebx*8+008863A4h, ebx*8+008863A8h) Then + loc_0083BF1D: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083BF3F: var_5C = var_3C + loc_0083BF42: If var_1C >= 4 Then + loc_0083BF44: var_eax = Err.Raise + loc_0083BF4A: End If + loc_0083BF57: var_44 = ebx*8+008863A4h + loc_0083BF7D: var_24 = Trim$(Str$(0#)) + loc_0083BF86: lblBHighScore.Caption = var_24 + loc_0083BFC1: GoTo loc_0083C034 + loc_0083BFC3: End If + loc_0083BFE4: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C009: lblBHighScore.Caption = global_0040EEC8 + loc_0083C034: 'Referenced from: 0083BFC1 + loc_0083C055: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C07A: var_60 = var_3C + loc_0083C07D: var_44 = var_1C + loc_0083C087: If var_1C >= 4 Then + loc_0083C089: var_eax = Err.Raise + loc_0083C08F: End If + loc_0083C09C: call __vbaStrFixstr(00000014h, edx*8+00886304h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_38, Me) + loc_0083C0A7: var_28 = __vbaStrFixstr(00000014h, edx*8+00886304h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_38, Me) + loc_0083C0B5: var_2C = Trim$(var_28) + loc_0083C0BE: If var_1C >= 4 Then + loc_0083C0C0: var_eax = Err.Raise + loc_0083C0C6: End If + loc_0083C0D7: call __vbaLsetFixstr(00000014h, edx*8+00886304h, var_28) + loc_0083C124: var_34 = Trim$(Str$(var_1C)) & ".) " & var_2C + loc_0083C12D: lblBHighScoreName.Caption = var_34 + loc_0083C17F: If var_1C >= 4 Then + loc_0083C181: var_eax = Err.Raise + loc_0083C187: End If + loc_0083C19D: call __vbaFpCmpCy(ebx*8+00886464h, ebx*8+00886468h) + loc_0083C1A5: If __vbaFpCmpCy(ebx*8+00886464h, ebx*8+00886468h) Then + loc_0083C1CC: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_0083C1EE: var_5C = var_3C + loc_0083C1F1: If var_1C >= 4 Then + loc_0083C1F3: var_eax = Err.Raise + loc_0083C1F9: End If + loc_0083C206: var_44 = ebx*8+00886464h + loc_0083C22E: var_88 = var_5C + loc_0083C23F: lblLowScore.Caption = Trim$(Str$(0#)) + loc_0083C27A: GoTo loc_0083C2ED + loc_0083C27C: End If + loc_0083C29D: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083C2C2: lblLowScore.Caption = global_0040EEC8 + loc_0083C2ED: 'Referenced from: 0083C27A + loc_0083C30E: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C333: var_60 = var_3C + loc_0083C336: var_44 = var_1C + loc_0083C340: If var_1C >= 4 Then + loc_0083C342: var_eax = Err.Raise + loc_0083C348: End If + loc_0083C355: call __vbaStrFixstr(00000014h, edx*8+008863C4h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_3C, Me) + loc_0083C360: var_28 = __vbaStrFixstr(00000014h, edx*8+008863C4h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_3C, Me) + loc_0083C36E: var_2C = Trim$(var_28) + loc_0083C377: If var_1C >= 4 Then + loc_0083C379: var_eax = Err.Raise + loc_0083C37F: End If + loc_0083C390: call __vbaLsetFixstr(00000014h, edx*8+008863C4h, var_28) + loc_0083C3DD: var_34 = Trim$(Str$(var_1C)) & ".) " & var_2C + loc_0083C3E6: lblLowScoreName.Caption = var_34 + loc_0083C438: If var_1C >= 4 Then + loc_0083C43A: var_eax = Err.Raise + loc_0083C440: End If + loc_0083C456: call __vbaFpCmpCy(ebx*8+00886524h, ebx*8+00886528h) + loc_0083C45E: If __vbaFpCmpCy(ebx*8+00886524h, ebx*8+00886528h) Then + loc_0083C485: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_0083C4A7: var_5C = var_3C + loc_0083C4AA: If var_1C >= 4 Then + loc_0083C4AC: var_eax = Err.Raise + loc_0083C4B2: End If + loc_0083C4BF: var_44 = ebx*8+00886524h + loc_0083C4E7: var_90 = var_5C + loc_0083C4F8: lblBLowScore.Caption = Trim$(Str$(0#)) + loc_0083C533: GoTo loc_0083C5A6 + loc_0083C535: End If + loc_0083C556: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083C57B: lblBLowScore.Caption = global_0040EEC8 + loc_0083C5A6: 'Referenced from: 0083C533 + loc_0083C5C7: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C5EC: var_60 = var_3C + loc_0083C5EF: var_44 = var_1C + loc_0083C5F9: If var_1C >= 4 Then + loc_0083C5FB: var_eax = Err.Raise + loc_0083C601: End If + loc_0083C60E: call __vbaStrFixstr(00000014h, edx*8+00886484h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_3C, Me) + loc_0083C619: var_28 = __vbaStrFixstr(00000014h, edx*8+00886484h, var_38, var_1C, var_3C, var_38, var_38, Me, var_38, var_1C, var_3C, var_38, var_3C, Me) + loc_0083C627: var_2C = Trim$(var_28) + loc_0083C630: If var_1C >= 4 Then + loc_0083C632: var_eax = Err.Raise + loc_0083C638: End If + loc_0083C649: call __vbaLsetFixstr(00000014h, edx*8+00886484h, var_28) + loc_0083C696: var_34 = Trim$(Str$(var_1C)) & ".) " & var_2C + loc_0083C69F: lblBLowScoreName.Caption = var_34 + loc_0083C6F9: 00000001h = 00000001h + var_1C + loc_0083C703: var_1C = 00000001h+var_1C + loc_0083C706: GoTo loc_0083BBFC + loc_0083C70B: End If + loc_0083C725: var_18 = RGB(255, 255, 128) + loc_0083C728: If edi+00000034h Then + loc_0083C736: If global_886124 Then + loc_0083C75E: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C77C: lblBHighScore.FontBold = True + loc_0083C7CB: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C7E9: lblBHighScoreName.FontBold = True + loc_0083C838: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C858: lblBHighScore.ForeColor = var_18 + loc_0083C8A1: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083C8C1: lblBHighScoreName.ForeColor = var_18 + loc_0083C8C8: If var_3C < 0 Then + loc_0083C8CE: GoTo loc_0083CA61 + loc_0083C8D3: End If + loc_0083C8F5: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083C913: lblHighScore.FontBold = True + loc_0083C962: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C980: lblHighScoreName.FontBold = True + loc_0083C9CF: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083C9EF: lblHighScore.ForeColor = var_18 + loc_0083CA38: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083CA58: lblHighScoreName.ForeColor = var_18 + loc_0083CA5F: If var_3C < 0 Then + loc_0083CA61: 'Referenced from: 0083C8CE + loc_0083CA6A: var_3C = CheckObj(var_3C, global_0040E84C, 108) + loc_0083CA6C: End If + loc_0083CA6C: End If + loc_0083CA7F: End If + loc_0083CA84: If edi+00000036h Then + loc_0083CA95: If global_886124 Then + loc_0083CABA: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083CAD8: lblBLowScore.FontBold = True + loc_0083CB27: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083CB45: lblBLowScoreName.FontBold = True + loc_0083CB94: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083CBB4: lblBLowScore.ForeColor = var_18 + loc_0083CBFD: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083CC1D: lblBLowScoreName.ForeColor = var_18 + loc_0083CC24: If var_3C < 0 Then + loc_0083CC2A: GoTo loc_0083CDBA + loc_0083CC4E: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083CC6C: lblLowScore.FontBold = True + loc_0083CCBB: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083CCD9: lblLowScoreName.FontBold = True + loc_0083CD28: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0083CD48: lblLowScore.ForeColor = var_18 + loc_0083CD91: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0083CDB1: lblLowScoreName.ForeColor = var_18 + loc_0083CDB8: If var_3C < 0 Then + loc_0083CDBA: 'Referenced from: 0083CC2A + loc_0083CDC3: var_3C = CheckObj(var_3C, global_0040E84C, 108) + loc_0083CDC5: End If + loc_0083CDC5: End If + loc_0083CDD8: End If + loc_0083CDDE: GoTo loc_0083CE14 + loc_0083CE13: Exit Sub + loc_0083CE14: 'Referenced from: 0083CDDE + loc_0083CE14: Exit Sub +End Sub + +Public Sub doHighScores() '83CE40 + loc_0083CE91: If 00000001h <= 3 Then + loc_0083CEA2: If global_886124 Then + loc_0083CEA7: If 00000001h >= 4 Then + loc_0083CEA9: var_eax = Err.Raise + loc_0083CEAF: End If + loc_0083CEC5: If 008860ACh >= 0 Then + loc_0083CEC7: If Not Asm.g_flag Then GoTo loc_0083CF28 + loc_0083CED3: If 008860A8h > 0 Then GoTo loc_0083CF28 + loc_0083CED5: GoTo loc_0083CF10 + loc_0083CED7: End If + loc_0083CEDA: If 00000001h >= 4 Then + loc_0083CEDC: var_eax = Err.Raise + loc_0083CEE2: End If + loc_0083CEF8: If 008860ACh >= 0 Then + loc_0083CEFA: If Not Asm.g_flag Then GoTo loc_0083D0A8 + loc_0083CF0A: If 008860A8h > 0 Then GoTo loc_0083D0A8 + loc_0083CF10: End If + loc_0083CF10: End If + loc_0083CF15: 00000001h = 00000001h + 00000001h + loc_0083CF23: GoTo loc_0083CE8E + loc_0083CF2C: If edi = 1 Then + loc_0083CF3A: global_88623C = CLng(3) + loc_0083CF3F: End If + loc_0083CF47: If 00000002h >= 0 Then + loc_0083CF53: If 00000002h >= 4 Then + loc_0083CF55: var_eax = Err.Raise + loc_0083CF5B: End If + loc_0083CF5E: 00000002h = 00000002h + 0001h + loc_0083CF6E: If ebx >= 4 Then + loc_0083CF70: var_eax = Err.Raise + loc_0083CF76: End If + loc_0083CF95: If 00000002h >= 4 Then + loc_0083CF97: var_eax = Err.Raise + loc_0083CF9D: End If + loc_0083CFA0: 00000002h = 00000002h + 0001h + loc_0083CFB0: If ebx >= 4 Then + loc_0083CFB2: var_eax = Err.Raise + loc_0083CFB8: End If + loc_0083CFC5: call __vbaStrFixstr(00000014h, ecx*8+00886304h) + loc_0083CFD0: var_20 = __vbaStrFixstr(00000014h, ecx*8+00886304h) + loc_0083CFE4: call __vbaLsetFixstr(00000014h, eax*8+00886304h, var_20) + loc_0083CFF9: True = True + 00000002h + loc_0083D004: GoTo loc_0083CF44 + loc_0083D009: End If + loc_0083D010: call __vbaStrFixstr(00000014h, global_00886150) + loc_0083D021: var_20 = __vbaStrFixstr(00000014h, global_00886150) + loc_0083D02F: var_24 = Trim$(var_20) + loc_0083D042: call __vbaLsetFixstr(00000014h, global_00886150, var_20) + loc_0083D04A: If var_1C >= 4 Then + loc_0083D04C: var_eax = Err.Raise + loc_0083D052: End If + loc_0083D063: call __vbaLsetFixstr(00000014h, ecx*8+00886304h, var_24) + loc_0083D07B: If var_1C >= 4 Then + loc_0083D07D: var_eax = Err.Raise + loc_0083D083: End If + loc_0083D0A3: GoTo loc_0083D20D + loc_0083D0A8: + loc_0083D0B0: If 00000002h >= var_1C Then + loc_0083D0BC: If 00000002h >= 4 Then + loc_0083D0BE: var_eax = Err.Raise + loc_0083D0C4: End If + loc_0083D0C7: 00000002h = 00000002h + 0001h + loc_0083D0D7: If ebx >= 4 Then + loc_0083D0D9: var_eax = Err.Raise + loc_0083D0DF: End If + loc_0083D0FE: If 00000002h >= 4 Then + loc_0083D100: var_eax = Err.Raise + loc_0083D106: End If + loc_0083D109: 00000002h = 00000002h + 0001h + loc_0083D119: If ebx >= 4 Then + loc_0083D11B: var_eax = Err.Raise + loc_0083D121: End If + loc_0083D12E: call __vbaStrFixstr(00000014h, eax*8+00886244h) + loc_0083D139: var_20 = __vbaStrFixstr(00000014h, eax*8+00886244h) + loc_0083D14D: call __vbaLsetFixstr(00000014h, edx*8+00886244h, var_20) + loc_0083D162: True = True + 00000002h + loc_0083D16D: GoTo loc_0083D0AD + loc_0083D172: End If + loc_0083D179: call __vbaStrFixstr(00000014h, global_00886150) + loc_0083D18A: var_20 = __vbaStrFixstr(00000014h, global_00886150) + loc_0083D198: var_24 = Trim$(var_20) + loc_0083D1AB: call __vbaLsetFixstr(00000014h, global_00886150, var_20) + loc_0083D1B3: If var_1C >= 4 Then + loc_0083D1B5: var_eax = Err.Raise + loc_0083D1BB: End If + loc_0083D1CC: call __vbaLsetFixstr(00000014h, eax*8+00886244h, var_24) + loc_0083D1E4: If var_1C >= 4 Then + loc_0083D1E6: var_eax = Err.Raise + loc_0083D1EC: End If + loc_0083D20D: End If + loc_0083D213: GoTo loc_0083D229 + loc_0083D228: Exit Sub + loc_0083D229: 'Referenced from: 0083D213 + loc_0083D229: Exit Sub +End Sub + +Public Sub doLowScores() '83D250 + loc_0083D2A1: If 00000001h <= 3 Then + loc_0083D2B1: If global_886124 Then + loc_0083D2B6: If 00000001h >= 4 Then + loc_0083D2B8: var_eax = Err.Raise + loc_0083D2BE: End If + loc_0083D2CD: If 008860ACh >= 0 Then + loc_0083D2CF: If Not Asm.g_flag Then + loc_0083D2E0: If 008860A8h < 0 Then GoTo loc_0083D2E7 + loc_0083D2E2: End If + loc_0083D2E7: End If + loc_0083D2EA: If 00000001h >= 4 Then + loc_0083D2EC: var_eax = Err.Raise + loc_0083D2F2: End If + loc_0083D308: call __vbaFpCmpCy(esi*8+00886524h, esi*8+00886528h, 00000001h, 00000001h, 00000001h) + loc_0083D316: If 1 Then + loc_0083D31C: GoTo loc_0083D386 + loc_0083D31E: End If + loc_0083D321: If 00000001h >= 4 Then + loc_0083D323: var_eax = Err.Raise + loc_0083D329: End If + loc_0083D338: If 008860ACh >= 0 Then + loc_0083D33A: If Not Asm.g_flag Then + loc_0083D34A: If 008860A8h < 0 Then GoTo loc_0083D351 + loc_0083D34C: End If + loc_0083D351: End If + loc_0083D354: If 00000001h >= 4 Then + loc_0083D356: var_eax = Err.Raise + loc_0083D35C: End If + loc_0083D372: call __vbaFpCmpCy(esi*8+00886464h, esi*8+00886468h) + loc_0083D380: If 1 Then + loc_0083D386: 'Referenced from: 0083D31C + loc_0083D38B: 00000001h = 00000001h + 00000001h + loc_0083D39B: var_eax = Unknown_3DE + loc_0083D3A0: End If + loc_0083D3A4: If edi = 1 Then + loc_0083D3B2: global_886240 = CLng() + loc_0083D3B7: End If + loc_0083D3BF: If 00000002h >= 0 Then + loc_0083D3CB: If 00000002h >= 4 Then + loc_0083D3CD: var_eax = Err.Raise + loc_0083D3D3: End If + loc_0083D3D6: 00000002h = 00000002h + 0001h + loc_0083D3E6: If ebx >= 4 Then + loc_0083D3E8: var_eax = Err.Raise + loc_0083D3EE: End If + loc_0083D40D: If 00000002h >= 4 Then + loc_0083D40F: var_eax = Err.Raise + loc_0083D415: End If + loc_0083D418: 00000002h = 00000002h + 0001h + loc_0083D428: If ebx >= 4 Then + loc_0083D42A: var_eax = Err.Raise + loc_0083D430: End If + loc_0083D43D: call __vbaStrFixstr(00000014h, ecx*8+00886484h) + loc_0083D448: var_20 = __vbaStrFixstr(00000014h, ecx*8+00886484h) + loc_0083D45C: call __vbaLsetFixstr(00000014h, eax*8+00886484h, var_20) + loc_0083D471: True = True + 00000002h + loc_0083D47C: GoTo loc_0083D3BC + loc_0083D481: End If + loc_0083D488: call __vbaStrFixstr(00000014h, global_00886150) + loc_0083D499: var_20 = __vbaStrFixstr(00000014h, global_00886150) + loc_0083D4A7: var_24 = Trim$(var_20) + loc_0083D4BA: call __vbaLsetFixstr(00000014h, global_00886150, var_20) + loc_0083D4C2: If var_1C >= 4 Then + loc_0083D4C4: var_eax = Err.Raise + loc_0083D4CA: End If + loc_0083D4DB: call __vbaLsetFixstr(00000014h, ecx*8+00886484h, var_24) + loc_0083D4F3: If var_1C >= 4 Then + loc_0083D4F5: var_eax = Err.Raise + loc_0083D4FB: End If + loc_0083D51B: GoTo loc_0083D685 + loc_0083D520: End If + loc_0083D528: If 00000002h >= var_1C Then + loc_0083D534: If 00000002h >= 4 Then + loc_0083D536: var_eax = Err.Raise + loc_0083D53C: End If + loc_0083D53F: 00000002h = 00000002h + 0001h + loc_0083D54F: If ebx >= 4 Then + loc_0083D551: var_eax = Err.Raise + loc_0083D557: End If + loc_0083D576: If 00000002h >= 4 Then + loc_0083D578: var_eax = Err.Raise + loc_0083D57E: End If + loc_0083D581: 00000002h = 00000002h + 0001h + loc_0083D591: If ebx >= 4 Then + loc_0083D593: var_eax = Err.Raise + loc_0083D599: End If + loc_0083D5A6: call __vbaStrFixstr(00000014h, eax*8+008863C4h) + loc_0083D5B1: var_20 = __vbaStrFixstr(00000014h, eax*8+008863C4h) + loc_0083D5C5: call __vbaLsetFixstr(00000014h, edx*8+008863C4h, var_20) + loc_0083D5DA: True = True + 00000002h + loc_0083D5E5: GoTo loc_0083D525 + loc_0083D5EA: End If + loc_0083D5F1: call __vbaStrFixstr(00000014h, global_00886150) + loc_0083D602: var_20 = __vbaStrFixstr(00000014h, global_00886150) + loc_0083D610: var_24 = Trim$(var_20) + loc_0083D623: call __vbaLsetFixstr(00000014h, global_00886150, var_20) + loc_0083D62B: If var_1C >= 4 Then + loc_0083D62D: var_eax = Err.Raise + loc_0083D633: End If + loc_0083D644: call __vbaLsetFixstr(00000014h, eax*8+008863C4h, var_24) + loc_0083D65C: If var_1C >= 4 Then + loc_0083D65E: var_eax = Err.Raise + loc_0083D664: End If + loc_0083D685: End If + loc_0083D68B: GoTo loc_0083D6A1 + loc_0083D6A0: Exit Sub + loc_0083D6A1: 'Referenced from: 0083D68B + loc_0083D6A1: Exit Sub +End Sub + +Public Sub resetHighLights() '83D6D0 + loc_0083D712: var_eax = scoring.drawDefaultPics +End Sub + +Public Sub drawDefaultPics() '83E1F0 + Dim Me As Variant + Dim var_50 As Me + Dim var_34 As Variant + Dim var_28 As PictureBox + Dim var_2C As PictureBox + Dim var_3C As PictureBox + loc_0083E261: 1 = btnButton._Default + loc_0083E283: var_50 = var_34 + loc_0083E2A0: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_0083E2BA: var_2C = buttons.hWnd + loc_0083E2EF: buttons.BackColor = var_38 + loc_0083E341: 2 = btnButton._Default + loc_0083E37D: var_eax = Unknown_VTable_Call[ecx+00000368h] + loc_0083E397: var_2C = buttons.hWnd + loc_0083E3C8: buttons.BackColor = var_2C + loc_0083E40B: If 00000001h <= 2 Then + loc_0083E415: var_eax = scoring.drawDefaultPic(1) + loc_0083E44F: 1 = picAnim._Default + loc_0083E473: var_1C = picAnim.Tag + loc_0083E4C1: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_0083E4E3: var_eax = Unknown_8BE84589(var_2C, var_28, scoring.drawDefaultPic(1), Me, var_38) + loc_0083E507: 1 = picAnim._Default + loc_0083E52B: var_1C = picAnim.Tag + loc_0083E567: 1 = picAnim._Default + loc_0083E5A3: var_18 = picAnim._Default + loc_0083E5C7: var_20 = picAnim.Tag + loc_0083E5F4: Len(var_20) = Len(var_20) - 00000001h + loc_0083E60A: var_24 = Left$(var_1C, Len(var_20)) + loc_0083E612: picAnim.Tag = var_24 + loc_0083E66F: 00000001h = 00000001h + var_18 + loc_0083E674: var_18 = 00000001h+var_18 + loc_0083E679: var_eax = Unknown_26D(var_34, var_30, var_3C) + loc_0083E67E: End If + loc_0083E689: GoTo loc_0083E6C3 + loc_0083E6C2: Exit Sub + loc_0083E6C3: 'Referenced from: 0083E689 + loc_0083E6C3: Exit Sub +End Sub + +Public Sub drawDefaultPic(X) '83E6F0 + loc_0083E754: X = picAnim._Default + loc_0083E78F: var_eax = scoring.drawFrame(var_20, var_24) + loc_0083E7C3: GoTo loc_0083E7DD + loc_0083E7DC: Exit Sub + loc_0083E7DD: 'Referenced from: 0083E7C3 +End Sub + +Public Sub drawFrame(pic, frame) '83E800 + Dim Me As Me + loc_0083E85B: var_18 = Me.Visible + loc_0083E882: var_3C = var_18 + loc_0083E89B: If (var_3C = "ok") Then + loc_0083E8AE: If (var_3C = "oka") Then + loc_0083E8C1: If (var_3C = "back") Then + loc_0083E8D0: If (var_3C <> "backa") <> 0 Then GoTo loc_0083EA84 + loc_0083E8D6: End If + loc_0083E8F7: var_eax = Unknown_VTable_Call[edx+00000334h] + loc_0083E972: frame = frame - 0001h + loc_0083E97E: frame = frame * 0019h + loc_0083E997: var_eax = Proc_9_0_843110(var_24, var_28, 0) + loc_0083E9A4: GoTo loc_0083EA62 + loc_0083E9A9: End If + loc_0083E9A9: End If + loc_0083E9CA: var_eax = Unknown_VTable_Call[ecx+00000330h] + loc_0083EA30: frame = frame - 0001h + loc_0083EA3C: frame = frame * 0019h + loc_0083EA55: var_eax = Proc_9_0_843110(var_20, var_24, 0) + loc_0083EA62: 'Referenced from: 0083E9A4 + loc_0083EA84: + loc_0083EA89: GoTo loc_0083EAB0 + loc_0083EAAF: Exit Sub + loc_0083EAB0: 'Referenced from: 0083EA89 + loc_0083EAB9: Exit Sub +End Sub + +Public Sub drawAnimations() '83EAE0 + Dim Me As Variant + Dim var_28 As PictureBox + Dim var_2C As PictureBox + loc_0083EB5F: If global_886000 = 0 Then + loc_0083EB64: GoTo loc_0083EB6E + loc_0083EB66: End If + loc_0083EB69: call _adj_fdiv_m32(Me = %x1) + loc_0083EB6E: 'Referenced from: 0083EB64 + loc_0083EB88: var_5C = Set %x2 = Me(%StkVar1) + loc_0083EBC0: If var_18 <= 2 Then + loc_0083EBE7: var_18 = picAnim._Default + loc_0083EC07: var_1C = picAnim.Tag + loc_0083EC51: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_0083EC73: var_eax = Unknown_E845896A(var_28, var_24) + loc_0083EC9A: var_18 = picAnim._Default + loc_0083ECCE: Call scoring.drawFrame(var_2C, %x1 = picAnim._Default) + loc_0083ECFE: 00000001h = 00000001h + var_18 + loc_0083ED04: var_18 = 00000001h+var_18 + loc_0083ED07: var_eax = Unknown_1468F(var_28, var_28, var_24, Unknown_E845896A(var_28, var_24)) + loc_0083ED0C: End If + loc_0083ED0C: End If + loc_0083ED11: If %x1 = picAnim._Default > 0 Then + loc_0083ED19: End If + loc_0083ED1F: GoTo loc_0083ED49 + loc_0083ED48: Exit Sub + loc_0083ED49: 'Referenced from: 0083ED1F + loc_0083ED49: Exit Sub +End Sub diff --git a/src/scoring.frx b/src/scoring.frx new file mode 100644 index 0000000..50ca208 Binary files /dev/null and b/src/scoring.frx differ diff --git a/src/titleScreen.frm b/src/titleScreen.frm new file mode 100644 index 0000000..5c4271c --- /dev/null +++ b/src/titleScreen.frm @@ -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 diff --git a/src/topScores.frm b/src/topScores.frm new file mode 100644 index 0000000..f6c530a --- /dev/null +++ b/src/topScores.frm @@ -0,0 +1,1019 @@ +VERSION 5.00 +Begin VB.Form topScores + BackColor = &H0& + WindowState = 2 + ScaleMode = 3 + AutoRedraw = True + FontTransparent = True + Picture = "topScores.frx":0 + BorderStyle = 0 'None + 'Icon = n/a + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ControlBox = 0 'False + Tag = "topscores" + KeyPreview = -1 'True + ClientLeft = 5820 + ClientTop = 1995 + ClientWidth = 14910 + ClientHeight = 10155 + 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 largeHigh + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2130 + Top = 3090 + Width = 2325 + Height = 195 + TabIndex = 22 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label largeHigh + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4560 + Top = 3090 + Width = 2325 + Height = 195 + TabIndex = 21 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label largeHigh + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 7020 + Top = 3090 + Width = 2325 + Height = 195 + TabIndex = 20 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label largeLow + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2130 + Top = 3510 + Width = 2325 + Height = 195 + TabIndex = 19 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label largeLow + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4560 + Top = 3510 + Width = 2325 + Height = 195 + TabIndex = 18 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label largeLow + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 7020 + Top = 3510 + Width = 2325 + Height = 195 + TabIndex = 17 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumLow + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 6990 + Top = 4740 + Width = 2325 + Height = 195 + TabIndex = 16 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumLow + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4530 + Top = 4740 + Width = 2325 + Height = 195 + TabIndex = 15 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumLow + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2100 + Top = 4740 + Width = 2325 + Height = 195 + TabIndex = 14 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumHigh + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 6990 + Top = 4320 + Width = 2325 + Height = 195 + TabIndex = 13 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumHigh + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4530 + Top = 4320 + Width = 2325 + Height = 195 + TabIndex = 12 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label mediumHigh + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2100 + Top = 4320 + Width = 2325 + Height = 195 + TabIndex = 11 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallLow + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 6990 + Top = 5940 + Width = 2325 + Height = 195 + TabIndex = 10 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallLow + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4530 + Top = 5940 + Width = 2325 + Height = 195 + TabIndex = 9 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallLow + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2100 + Top = 5940 + Width = 2325 + Height = 195 + TabIndex = 8 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallHigh + Caption = "MasterWorks 999999999" + Index = 4 + ForeColor = &HC0FFFF& + Left = 6990 + Top = 5520 + Width = 2325 + Height = 195 + TabIndex = 7 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallHigh + Caption = "MasterWorks 999999999" + Index = 3 + ForeColor = &HC0FFFF& + Left = 4530 + Top = 5520 + Width = 2325 + Height = 195 + TabIndex = 6 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label smallHigh + Caption = "MasterWorks 999999999" + Index = 2 + ForeColor = &HC0FFFF& + Left = 2100 + Top = 5520 + Width = 2325 + Height = 195 + TabIndex = 5 + Alignment = 2 'Center + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin Label lblVersionInfo + Caption = "topScores.frx":13EBC + ForeColor = &HFFFFFF& + Left = 1320 + Top = 6660 + Width = 6855 + Height = 420 + TabIndex = 4 + Alignment = 2 'Center + WordWrap = -1 'True + BackStyle = 0 'Transparent + BeginProperty Font + Name = "Verdana" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End +End + +Attribute VB_Name = "topScores" + + +Private Sub Form_Load() '875F20 + Dim var_18 As Screen + Dim var_1C As Screen + loc_00875F96: var_eax = Proc_12_43_86D100(var_2C, var_18, var_18) + loc_00875FD2: var_18 = Global.Screen + loc_00876000: var_64 = Global.Width + loc_00876040: var_1C = Global.Screen + loc_00876060: var_68 = Global.Height + loc_008760D2: var_eax = Unknown_VTable_Call[edi+000002A4h] + loc_0087612A: var_eax = Proc_12_45_86D280(var_18, var_18, Unknown_VTable_Call[edi+000002A4h]) + loc_0087613B: var_eax = topScores.positionControls + loc_00876156: var_eax = topScores.resetHighLights + loc_0087617F: If global_886010 = 2 Then + loc_00876198: lblVersionInfo.Caption = "You may submit these scores to the Flux Uplink by clicking on the 'Flux Uplink' icon in your Flux folder!" + loc_0087619F: If topScores.resetHighLights >= 0 Then GoTo loc_008761D2 + loc_008761A1: GoTo loc_008761C3 + loc_008761BA: lblVersionInfo.Caption = "You need to purchase the full version of Flux in order to submit these scores to the Flux Uplink! Please visit www.planetflux.com to get your copy NOW!" + loc_008761C1: If topScores.resetHighLights >= 0 Then GoTo loc_008761D2 + loc_008761C3: 'Referenced from: 008761A1 + loc_008761CC: topScores.resetHighLights = CheckObj(topScores.resetHighLights, global_0040E84C, 84) + loc_008761D2: + loc_008761E5: var_eax = topScores.displayScores + loc_00876239: var_eax = Proc_12_47_86E570(var_18, var_18, CreateObject(global_004058E0, global_00886BB8)) + loc_00876265: var_eax = Proc_12_25_868460(4, global_00886BB8, Proc_12_47_86E570(var_18, var_18, CreateObject(global_004058E0, global_00886BB8))) + loc_00876277: GoTo loc_00876296 + loc_00876295: Exit Sub + loc_00876296: 'Referenced from: 00876277 +End Sub + +Private Sub Form_Unload(Cancel As Integer) '8763D0 + loc_00876437: var_eax = Proc_12_44_86D1C0(var_28, var_18, var_18) + loc_00876456: GoTo loc_0087646B + loc_0087646A: Exit Sub + loc_0087646B: 'Referenced from: 00876456 +End Sub + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '875E60 + Dim Me As Me + loc_00875EAF: If KeyCode = 123 Then + loc_00875EB1: var_eax = Proc_12_18_864A90(edi, Me, ebx) + loc_00875EB6: GoTo loc_00875EF8 + loc_00875EB8: End If + loc_00875EBE: If Proc_12_18_864A90(edi, Me, ebx) <> 0 Then ecx = 1 + loc_00875EC7: If Proc_12_18_864A90(edi, Me, ebx) <> 0 Then edx = 1 + loc_00875ECC: If edx = 0 Then + loc_00875EDC: var_eax = topScores.btnButton_Click + loc_00875EF8: + loc_00875EF8: End If +End Sub + +Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '8762C0 + loc_00876303: var_eax = topScores.highLightCheck +End Sub + +Private Sub tmrMainLoop_Timer() '876A00 + Dim Me As Variant + Dim var_2C As PictureBox + loc_00876A60: var_eax = topScores.drawDefaultPics + loc_00876A9D: 1 = btnButton._Default + loc_00876AC1: var_50 = btnButton.Visible + loc_00876AEC: If var_50 = var_FFFFFF Then eax = 1 + loc_00876B03: If eax Then + loc_00876B20: 1 = btnButton._Default + loc_00876B40: var_eax = btnButton.SetFocus + loc_00876B71: End If + loc_00876B88: var_eax = Proc_10_11_84A820(var_28, var_28, var_28) + loc_00876B99: var_eax = topScores.resetHighLights + loc_00876BB5: var_eax = Proc_86B860(Me, global_0040C7EC, var_2C) + loc_00876BD1: tmrMainLoop.Enabled = False + loc_00876BF2: + loc_00876BF6: var_eax = QueryPerformanceCounter(var_24) + loc_00876C1A: var_eax = Proc_12_46_86D7E0(var_28, var_28, GetLastError) + loc_00876C3B: var_eax = Proc_10_11_84A820(var_28, var_28, Proc_12_46_86D7E0(var_28, var_28, GetLastError)) + loc_00876C4E: If esi+0000003Ah Then + loc_00876C53: var_eax = topScores.drawAnimations + loc_00876C6F: End If + loc_00876C73: var_eax = QueryPerformanceCounter(var_1C) + loc_00876C8E: 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_00876C96: 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_00876CAC: call __vbaR8Cy(global_008860D8, global_008860DC) + loc_00876CB9: If global_886000 = 0 Then + loc_00876CBB: fdivr st0, var_78 + loc_00876CBE: GoTo loc_00876CCB + loc_00876CC0: End If + loc_00876CCB: 'Referenced from: 00876CBE + loc_00876CCB: global_8860D4 = __vbaR8Cy(global_008860D8, global_008860DC) + loc_00876CF2: If Err.Number Then + loc_00876CF4: global_8860D4 = 3DCCCCCDh + loc_00876CFE: End If + loc_00876D03: If esi+00000034h = 0 Then GoTo loc_00876BF2 + loc_00876D09: var_eax = Proc_845A50(var_78, var_74) + loc_00876D12: eax = Me(14) - 1 + loc_00876D13: If Me(14) - 1 = 0 Then + loc_00876D3F: Set var_28 = Me + loc_00876D47: var_eax = Global.Unload var_28 + loc_00876DC8: var_eax = titleScreen.Show var_3C, var_38 + loc_00876DE6: End If + loc_00876DF3: GoTo loc_00876E09 + loc_00876E08: Exit Sub + loc_00876E09: 'Referenced from: 00876DF3 + loc_00876E09: Exit Sub +End Sub + +Private Sub picAnim_Click() '8764C0 + loc_00876507: var_eax = topScores.btnButton_Click +End Sub + +Private Sub picAnim_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '876550 + loc_008765C5: Button = picAnim._Default + loc_008765E9: var_1C = picAnim.Tag + loc_00876618: var_20 = Right$(var_1C, 1) + loc_00876637: esi = (var_20 = global_0040F164) + 1 + loc_00876659: If (var_20 = global_0040F164) + 1 = 0 Then + loc_00876675: + loc_0087667F: If Err.Number Then + loc_00876694: var_58 = Button + loc_008766A1: If Err.Number Then + loc_008766C2: var_5C = Err.Number + loc_008766D0: CInt(6.37066138261923E-314) = picAnim._Default + loc_008766F4: var_1C = picAnim.Tag + loc_0087672A: esi = (var_1C = "ok") + 1 + loc_00876749: If (var_1C = "ok") + 1 Then + loc_00876778: CInt(6.37066138261923E-314) = picAnim._Default + loc_0087679D: picAnim.Tag = "oka" + loc_008767D5: End If + loc_008767D8: + loc_008767E9: GoTo loc_00876675 + loc_00876809: var_60 = Err.Number + loc_00876817: CInt(6.37066138261923E-314) = picAnim._Default + loc_0087683B: var_1C = picAnim.Tag + loc_0087686C: var_18 = var_1C + loc_00876892: var_1C = Right$(var_18, 1) + loc_008768A9: esi = (var_1C = global_0040F164) + 1 + loc_008768B5: If (var_1C = global_0040F164) + 1 = 0 Then GoTo loc_008767D5 + loc_008768E4: CInt(6.37066138261923E-314) = picAnim._Default + loc_0087690E: Len(var_18) = Len(var_18) - 00000001h + loc_00876924: var_1C = Left$(var_18, Len(var_18)) + loc_0087692C: picAnim.Tag = var_1C + loc_00876975: var_eax = topScores.drawDefaultPic(CInt(6.37066138261923E-314)) + loc_00876995: GoTo loc_008767D8 + loc_0087699C: End If + loc_008769A5: GoTo loc_008769CB + loc_008769CA: Exit Sub + loc_008769CB: 'Referenced from: 008769A5 + loc_008769D4: Exit Sub +End Sub + +Private Sub btnButton_Click() '875D30 + Dim Me As Me + loc_00875D70: var_eax = Proc_9_20_8476B0(edi, Me, ebx) + loc_00875D7B: eax = arg_C - 1 + loc_00875D7C: If arg_C - 1 = 0 Then + loc_00875D8A: End If +End Sub + +Private Sub btnButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '875DB0 + loc_00875E21: var_eax = topScores.picAnim_MouseMove(Button, var_18, var_1C, var_20) +End Sub + +Public Sub positionControls() '874840 + Dim var_1C As Variant + loc_0087489E: 1 = btnButton._Default + loc_008748CE: btnButton.Width = global_42A00000 + loc_0087491A: 1 = btnButton._Default + loc_0087493F: btnButton.Height = global_41F00000 + loc_0087498B: 1 = btnButton._Default + loc_008749B0: btnButton.Left = global_440A0000 + loc_008749F6: 1 = btnButton._Default + loc_00874A1B: btnButton.Top = global_43DE0000 + loc_00874A61: 1 = picAnim._Default + loc_00874A86: picAnim.Left = global_40800000 + loc_00874ACC: 1 = picAnim._Default + loc_00874AF1: picAnim.Top = global_40400000 + loc_00874B37: 1 = picAnim._Default + loc_00874B5C: picAnim.Width = global_41C80000 + loc_00874BA8: 1 = picAnim._Default + loc_00874BCD: picAnim.Height = global_41C00000 + loc_00874C15: var_24 = var_1C + loc_00874C18: lblVersionInfo.Left = global_42B00000 + loc_00874C53: lblVersionInfo.Top = global_43DE0000 + loc_00874C8B: var_24 = var_1C + loc_00874C8E: lblVersionInfo.Width = global_43E48000 + loc_00874CCF: lblVersionInfo.Height = global_41E00000 + loc_00874D03: + loc_00874D0F: If var_18 <= 4 Then + loc_00874D2F: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00874D50: largeHigh.Width = global_431B0000 + loc_00874D9E: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874DBF: largeHigh.Height = global_41500000 + loc_00874E0D: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874E2E: largeHigh.Top = global_434E0000 + loc_00874E76: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874E97: largeLow.Width = global_431B0000 + loc_00874EE5: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874F06: largeLow.Height = global_41500000 + loc_00874F54: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874F75: largeLow.Top = global_436A0000 + loc_00874FBD: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00874FDE: mediumHigh.Width = global_431B0000 + loc_0087502C: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0087504D: mediumHigh.Height = global_41500000 + loc_0087509B: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_008750BC: mediumHigh.Top = global_43900000 + loc_00875104: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875125: mediumLow.Width = global_431B0000 + loc_00875173: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875194: mediumLow.Height = global_41500000 + loc_008751E2: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875203: mediumLow.Top = global_439E0000 + loc_0087524B: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0087526C: smallHigh.Width = global_431B0000 + loc_008752BA: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_008752DB: smallHigh.Height = global_41500000 + loc_00875329: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_0087534A: smallHigh.Top = global_43B80000 + loc_00875392: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_008753B3: smallLow.Width = global_431B0000 + loc_00875401: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875422: smallLow.Height = global_41500000 + loc_00875470: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875491: smallLow.Top = global_43C60000 + loc_008754C2: var_34 = var_34 + var_18 + loc_008754CC: var_18 = var_34+var_18 + loc_008754CF: GoTo loc_00874D03 + loc_008754ED: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875512: largeHigh.Left = global_430E0000 + loc_00875558: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0087557D: largeHigh.Left = global_43980000 + loc_008755C3: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_008755E8: largeHigh.Left = global_43EA0000 + loc_0087562E: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875653: largeLow.Left = global_430E0000 + loc_00875699: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_008756BE: largeLow.Left = global_43980000 + loc_00875704: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875729: largeLow.Left = global_43EA0000 + loc_0087576F: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875794: mediumHigh.Left = global_430E0000 + loc_008757DA: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_008757FF: mediumHigh.Left = global_43980000 + loc_00875845: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_0087586A: mediumHigh.Left = global_43EA0000 + loc_008758B0: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_008758D5: mediumLow.Left = global_430E0000 + loc_0087591B: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875940: mediumLow.Left = global_43980000 + loc_00875986: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_008759AB: mediumLow.Left = global_43EA0000 + loc_008759F1: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875A16: smallHigh.Left = global_430E0000 + loc_00875A5C: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875A81: smallHigh.Left = global_43980000 + loc_00875AC7: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875AEC: smallHigh.Left = global_43EA0000 + loc_00875B32: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875B57: smallLow.Left = global_430E0000 + loc_00875B9D: var_eax = Unknown_VTable_Call[ecx+00000040h] + loc_00875BC2: smallLow.Left = global_43980000 + loc_00875C07: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00875C28: smallLow.Left = global_43EA0000 + loc_00875C55: GoTo loc_00875C6B + loc_00875C6A: Exit Sub + loc_00875C6B: 'Referenced from: 00875C55 + loc_00875C6B: Exit Sub +End Sub + +Public Sub highLightCheck() '875CA0 + Dim Me As Me + loc_00875CDE: If Me.GetPalette 'Ignore this = 0 Then + loc_00875CE5: If esi+0000003Ah = 0 Then GoTo loc_00875D06 + loc_00875CE7: End If + loc_00875CEA: var_eax = topScores.resetHighLights + loc_00875D06: +End Sub + +Public Sub resetHighLights() '876350 + loc_00876392: var_eax = topScores.drawDefaultPics +End Sub + +Public Sub drawDefaultPics() '876E30 + 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_00876EA1: 1 = btnButton._Default + loc_00876EC3: var_50 = var_34 + loc_00876EE0: var_eax = Unknown_VTable_Call[ecx+00000354h] + loc_00876EFA: var_2C = buttons.hWnd + loc_00876F2F: buttons.BackColor = var_38 + loc_00876F72: If 00000001h <= 1 Then + loc_00876F7C: var_eax = topScores.drawDefaultPic(1) + loc_00876FB6: 1 = picAnim._Default + loc_00876FDA: var_1C = picAnim.Tag + loc_00877028: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_0087704A: var_eax = Unknown_8BE84589(var_2C, var_28, topScores.drawDefaultPic(1), Me, var_38) + loc_0087706E: 1 = picAnim._Default + loc_00877092: var_1C = picAnim.Tag + loc_008770CE: 1 = picAnim._Default + loc_0087710A: var_18 = picAnim._Default + loc_0087712E: var_20 = picAnim.Tag + loc_00877158: Len(var_20) = Len(var_20) - 00000001h + loc_00877171: var_24 = Left$(var_1C, Len(var_20)) + loc_00877179: picAnim.Tag = var_24 + loc_008771D6: 00000001h = 00000001h + var_18 + loc_008771DB: var_18 = 00000001h+var_18 + loc_008771E0: var_eax = Unknown_26D(var_34, var_30, Me) + loc_008771E5: End If + loc_008771F0: GoTo loc_0087722A + loc_00877229: Exit Sub + loc_0087722A: 'Referenced from: 008771F0 + loc_0087722A: Exit Sub +End Sub + +Public Sub drawDefaultPic(X) '877250 + loc_008772B4: X = picAnim._Default + loc_008772EF: var_eax = topScores.drawFrame(var_20, var_24) + loc_00877323: GoTo loc_0087733D + loc_0087733C: Exit Sub + loc_0087733D: 'Referenced from: 00877323 +End Sub + +Public Sub drawFrame(pic, frame) '877360 + Dim Me As Me + loc_008773BB: var_18 = Me.Visible + loc_008773E2: var_3C = var_18 + loc_008773FB: If (var_3C = "ok") Then + loc_0087740A: If (var_3C <> "oka") <> 0 Then GoTo loc_008774E7 + loc_00877410: End If + loc_00877431: var_eax = Unknown_VTable_Call[ecx+00000330h] + loc_00877493: frame = frame - 0001h + loc_0087749F: frame = frame * 0019h + loc_008774B5: var_eax = Proc_9_0_843110(var_20, var_24, ebx) + loc_008774E7: + loc_008774EC: GoTo loc_00877513 + loc_00877512: Exit Sub + loc_00877513: 'Referenced from: 008774EC + loc_0087751C: Exit Sub +End Sub + +Public Sub drawAnimations() '877550 + Dim Me As Variant + Dim var_28 As PictureBox + loc_008775C9: If global_886000 = 0 Then + loc_008775CE: GoTo loc_008775D8 + loc_008775D0: End If + loc_008775D3: call _adj_fdiv_m32 + loc_008775D8: 'Referenced from: 008775CE + loc_008775F2: var_5C = var_58 + loc_00877627: If var_18 <= 1 Then + loc_0087764E: var_18 = picAnim._Default + loc_0087766E: var_1C = picAnim.Tag + loc_008776B8: esi = (Right$(var_1C, 1) = global_0040F164) + 1 + loc_008776DA: var_eax = Unknown_E845896A(var_28, var_24) + loc_00877701: var_18 = picAnim._Default + loc_00877735: var_eax = topScores.drawFrame(var_2C, Me(16)) + loc_00877765: 00000001h = 00000001h + var_18 + loc_0087776B: var_18 = 00000001h+var_18 + loc_0087776E: var_eax = Unknown_1468F(var_2C, var_28, var_28, var_24) + loc_00877773: End If + loc_00877773: End If + loc_00877778: If edi+0000003Ch > 39 Then + loc_00877780: End If + loc_00877786: GoTo loc_008777B0 + loc_008777AF: Exit Sub + loc_008777B0: 'Referenced from: 00877786 + loc_008777B0: Exit Sub +End Sub + +Public Sub displayScores() '8777E0 + Dim Me As Me + Dim var_24 As Label + loc_00877830: If 00000002h <= 4 Then + loc_0087783E: If var_8861A8 Then + loc_00877844: If 008861A8h = 1 Then + loc_00877855: If 00000001h >= 0 Then + loc_00877857: var_eax = Err.Raise + loc_00877863: End If + loc_00877866: GoTo loc_00877874 + loc_00877868: End If + loc_00877868: End If + loc_00877868: var_eax = Err.Raise + loc_00877874: 'Referenced from: 00877866 + loc_00877883: global_886056 = ecx+eax + loc_0087788A: If var_8861AC Then + loc_00877890: If 008861ACh = 1 Then + loc_008778A1: If 00000001h >= 0 Then + loc_008778A3: var_eax = Err.Raise + loc_008778AF: End If + loc_008778B2: GoTo loc_008778C0 + loc_008778B4: End If + loc_008778B4: End If + loc_008778B4: var_eax = Err.Raise + loc_008778C0: 'Referenced from: 008778B2 + loc_008778C7: global_8860E4 = 2 + loc_008778CE: global_886058 = ecx+eax + loc_008778D5: var_eax = Proc_12_40_86CB50(, , ) + loc_008778F8: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_00877924: var_1C = topScores.getHighLabel + loc_00877943: smallHigh.Caption = var_1C + loc_00877994: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_008779B2: var_1C = topScores.getLowLabel + loc_008779D1: smallLow.Caption = var_1C + loc_00877A06: 00000001h = 00000001h + var_18 + loc_00877A10: var_18 = 00000001h+var_18 + loc_00877A15: var_eax = Unknown_1E4(var_20, var_18, var_24, var_20, var_20, Me) + loc_00877A1A: End If + loc_00877A27: If 00000002h <= 4 Then + loc_00877A35: If var_8861A8 Then + loc_00877A3B: If 008861A8h = 1 Then + loc_00877A48: 00000002h = 00000002h - ecx+00000014h + loc_00877A4C: If 00000002h >= 0 Then + loc_00877A4E: var_eax = Err.Raise + loc_00877A5A: End If + loc_00877A5D: GoTo loc_00877A6B + loc_00877A5F: End If + loc_00877A5F: End If + loc_00877A5F: var_eax = Err.Raise + loc_00877A6B: 'Referenced from: 00877A5D + loc_00877A7A: global_886056 = ecx+eax + loc_00877A81: If var_8861AC Then + loc_00877A87: If 008861ACh = 1 Then + loc_00877A94: 00000002h = 00000002h - ecx+00000014h + loc_00877A98: If 00000002h >= 0 Then + loc_00877A9A: var_eax = Err.Raise + loc_00877AA6: End If + loc_00877AA9: GoTo loc_00877AB7 + loc_00877AAB: End If + loc_00877AAB: End If + loc_00877AAB: var_eax = Err.Raise + loc_00877AB7: 'Referenced from: 00877AA9 + loc_00877ABE: global_8860E4 = 2 + loc_00877AC5: global_886058 = ecx+eax + loc_00877ACC: var_eax = Proc_12_40_86CB50(Me, 2, var_24) + loc_00877AEF: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_00877B11: var_1C = topScores.getHighLabel + loc_00877B34: mediumHigh.Caption = var_1C + loc_00877B86: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00877BA8: var_1C = topScores.getLowLabel + loc_00877BCB: mediumLow.Caption = var_1C + loc_00877C04: 00000001h = 00000001h + 00000002h + loc_00877C0F: var_eax = Unknown_1E7(var_20, 00000002h, var_24, var_20, var_20, Me) + loc_00877C14: End If + loc_00877C24: If 00000002h <= 4 Then + loc_00877C32: If var_8861A8 Then + loc_00877C38: If 008861A8h = 1 Then + loc_00877C45: 00000003h = 00000003h - ecx+00000014h + loc_00877C49: If 00000003h >= 0 Then + loc_00877C4B: var_eax = Err.Raise + loc_00877C57: End If + loc_00877C5A: GoTo loc_00877C68 + loc_00877C5C: End If + loc_00877C5C: End If + loc_00877C5C: var_eax = Err.Raise + loc_00877C68: 'Referenced from: 00877C5A + loc_00877C77: global_886056 = edx+eax + loc_00877C7D: If var_8861AC Then + loc_00877C83: If 008861ACh = 1 Then + loc_00877C90: 00000003h = 00000003h - ecx+00000014h + loc_00877C94: If 00000003h >= 0 Then + loc_00877C96: var_eax = Err.Raise + loc_00877CA2: End If + loc_00877CA5: GoTo loc_00877CB3 + loc_00877CA7: End If + loc_00877CA7: End If + loc_00877CA7: var_eax = Err.Raise + loc_00877CB3: 'Referenced from: 00877CA5 + loc_00877CBA: global_8860E4 = 2 + loc_00877CC1: global_886058 = ecx+eax + loc_00877CC8: var_eax = Proc_12_40_86CB50(Me, 2, var_24) + loc_00877CEB: var_eax = Unknown_VTable_Call[edx+00000040h] + loc_00877D17: var_1C = topScores.getHighLabel + loc_00877D36: largeHigh.Caption = var_1C + loc_00877D87: var_eax = Unknown_VTable_Call[eax+00000040h] + loc_00877DA5: var_1C = topScores.getLowLabel + loc_00877DC4: largeLow.Caption = var_1C + loc_00877DF9: 00000001h = 00000001h + var_18 + loc_00877DFF: var_18 = 00000001h+var_18 + loc_00877E04: var_eax = Unknown_1DF(var_20, var_18, var_24, var_20, var_20, Me) + loc_00877E09: End If + loc_00877E0E: GoTo loc_00877E2D + loc_00877E2C: Exit Sub + loc_00877E2D: 'Referenced from: 00877E0E + loc_00877E2D: Exit Sub +End Sub + +Public Function getHighLabel() '877E60 + loc_00877EC4: call __vbaFpCmpCy(global_008863AC, global_008863B0, edi, esi, ebx) + loc_00877ECC: If __vbaFpCmpCy(global_008863AC, global_008863B0, edi, esi, ebx) > 0 Then + loc_00877ED9: call __vbaStrFixstr(00000014h, global_0088632C) + loc_00877EEA: var_1C = __vbaStrFixstr(00000014h, global_0088632C) + loc_00877F07: call __vbaLsetFixstr(00000014h, global_0088632C, var_1C) + loc_00877F1C: var_34 = global_008863AC + loc_00877F57: var_18 = Trim$(var_1C) & " " & Trim$(Str$(global_008863AC)) + loc_00877F78: GoTo loc_00877F88 + loc_00877F7A: End If + loc_00877F88: 'Referenced from: 00877F78 + loc_00877F8E: GoTo loc_00877FBF + loc_00877F94: If var_4 Then + loc_00877F9F: End If + loc_00877FBE: Exit Sub + loc_00877FBF: 'Referenced from: 00877F8E +End Function + +Public Function getLowLabel() '877FF0 + loc_00878054: call __vbaFpCmpCy(global_008863AC, global_008863B0, edi, esi, ebx) + loc_0087805C: If __vbaFpCmpCy(global_008863AC, global_008863B0, edi, esi, ebx) > 0 Then + loc_00878069: call __vbaStrFixstr(00000014h, global_008864AC) + loc_0087807A: var_1C = __vbaStrFixstr(00000014h, global_008864AC) + loc_00878097: call __vbaLsetFixstr(00000014h, global_008864AC, var_1C) + loc_008780AC: var_34 = global_0088652C + loc_008780E7: var_18 = Trim$(var_1C) & " " & Trim$(Str$(global_0088652C)) + loc_00878108: GoTo loc_00878118 + loc_0087810A: End If + loc_00878118: 'Referenced from: 00878108 + loc_0087811E: GoTo loc_0087814F + loc_00878124: If var_4 Then + loc_0087812F: End If + loc_0087814E: Exit Sub + loc_0087814F: 'Referenced from: 0087811E +End Function + +Public Sub Proc_19_19_876490 + loc_00876498: var_eax = Me.1788 +End Sub diff --git a/src/topScores.frx b/src/topScores.frx new file mode 100644 index 0000000..6375976 Binary files /dev/null and b/src/topScores.frx differ diff --git a/src/versionDeclare.bas b/src/versionDeclare.bas new file mode 100644 index 0000000..034553d --- /dev/null +++ b/src/versionDeclare.bas @@ -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