frmOverlay

' //// Written by FattyXP of UnknownCheats.me
' //// Also my handle on pretty much everything.
' //// Credits go out to Teddi for his C# External Base which I learned heavily from
' //// and also Google, for being the fucking shit!

Imports System
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Threading
Imports System.Security.Cryptography
Imports System.Windows.Forms
Imports System.String
Imports System.Text
'Imports Microsoft.DirectX
'Imports Microsoft.DirectX.Direct3D
Imports System.Timers
Imports System.IO
Imports System.Xml.Serialization
Imports System.Collections.Concurrent
Imports System.Windows
Imports System.Management
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Drawing.Text

Imports SlimDX
Imports SlimDX.Direct3D9

Public Class frmDebugged




    'If you are advanced beyond COPY and PASTA then go past here. Otherwise I'd leave it alone.
    'If you are prepared to learn, I've commented what most of the code is doing throughout the
    'process, if you understand the language you should be able to understand the code.

#Region "Declares"
    ' Here we declare the function calls we make to Windows API's using System.Runtime.InteropServices

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margins As Margins) As Integer
    End Function
    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Interoperability", "CA1401:PInvokesShouldNotBeVisible")> <DllImport("user32", EntryPoint:="GetWindowLong")> _
    Public Shared Function GetWindowLong( _
            ByVal hWnd As IntPtr, _
            ByVal nIndex As GWL _
                ) As Integer
    End Function

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Interoperability", "CA1401:PInvokesShouldNotBeVisible")> <DllImport("user32", EntryPoint:="SetWindowLong")> _
    Public Shared Function SetWindowLong( _
            ByVal hWnd As IntPtr, _
            ByVal nIndex As GWL, _
            ByVal dsNewLong As WS_EX _
                ) As Integer
    End Function

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Interoperability", "CA1401:PInvokesShouldNotBeVisible")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Portability", "CA1901:PInvokeDeclarationsShouldBePortable", MessageId:="2")> <DllImport("user32.dll", EntryPoint:="SetLayeredWindowAttributes")> _
    Public Shared Function SetLayeredWindowAttributes( _
            ByVal hWnd As IntPtr, _
            ByVal crKey As Integer, _
            ByVal alpha As Byte, _
            ByVal dwFlags As LWA _
                ) As Boolean
    End Function
#End Region

#Region "ANTI"

    Public Shared Function GetUniqueKey(maxSize As Integer) As String
        Dim chars As Char() = New Char(61) {}
        chars = "a^ùbcd以是可推得凡一九八四加減六十倍數之zijkl石室诗士施氏，嗜狮，誓食十狮mnopqrstuvw8€xyzåäöABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ1234567890АаБбВвГгДдЕеӘәЖжЗзИиЙйКкЛлМмНнОоÖöПпПпрСсТтуФфХхҺһҺһЧч'ШшьЭэԚԜԝ".ToCharArray()
        Dim data As Byte() = New Byte(0) {}
        Dim crypto As New RNGCryptoServiceProvider()
        crypto.GetNonZeroBytes(data)
        data = New Byte(maxSize - 1) {}
        crypto.GetNonZeroBytes(data)
        Dim result As New StringBuilder(maxSize)
        For Each b As Byte In data
            result.Append(chars(b Mod (chars.Length)))
        Next
        Return result.ToString()
    End Function

    Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
        Dim Generator As System.Random = New System.Random()
        Return Generator.Next(Min, Max)
    End Function

#End Region

#Region " Ik neuk je de moeder"





    Dim Llegbones() As Integer = {28, 27, 26, 0}
    Dim Rlegbones() As Integer = {25, 24, 23, 0}
    Dim Spinebones() As Integer = {0, 1, 2, 3, 4, 5, 10}
    Dim Larmbones() As Integer = {9, 8, 7, 6}
    Dim Rarmbones() As Integer = {15, 14, 13, 12}
    Dim colorDialiski As New ColorDialog


    Private entNumber As Integer = 3
    Private entNumber2 As Integer
    ' Private menuPos As Point = New Point(Me.Width + Me.Width / 2, Me.Height - Me.Height / 8)
    Private menuPos As Point
    Private textheight As Integer = 20
    Private y1 As Integer = 20
    Const menuWidth As Integer = 350


    Private engine As Integer
    Const textwidth As Integer = menuWidth - 10
    Private menuHeight As Integer
    Dim transparancylev As Integer = 255
    Private coolfade As Boolean = False
    Private interval As Integer = 15
    Shared poslist(4) As Point
    Private intDelayCompensation As Integer = 7

    Private crosshairsize As Integer
    Private crosshaircolor As Color = Color.Red

    ' Direct3D Variables
    Dim device As Device

    Dim device2 As SlimDX.Direct3D11.Device

    Dim buffer As VertexBuffer
    Dim dxLine, dxline2 As Line

    Dim dxFont, dxFont2, dxfont3, dxfont4, dxfont5, dxfont6 As Font
    Dim dxtexture As Texture
    Dim dxbox As Box
    Dim dx3D As BoundingBox



    Private errormessages As String

    Dim marg As Margins
    Public v_Matrix As Matrix


    Private Shared globwidth As Integer
    ' Our Data Collection Variables
    Public Shared RussianCommandoUnit As List(Of dildo.VectorMeData)

    Public Shared Player As dildo.VectorMeData


    Dim _memr As New dildo.ProcM(PROCESS_NAME)

    ' Program Variables
    Dim dx, dx2, dx3, dx4, dx5 As System.Threading.Thread
    Public boolESP As Boolean = False, drawtime As Boolean = True, boolRainbow As Boolean = False, bool3D As Boolean, tap As Boolean, boolAttackTeam As Boolean, trigger As Boolean = False, triggerbool As Boolean, boolname As Boolean = True, boolhealthbar As Boolean = True, boolBoneESP As Boolean = True, boolToggle As Boolean = False, boolBox As Boolean = False, boolDistance As Boolean = True, boolWeapon As Boolean = True, warningSyst As Boolean = True, isRunning As Boolean = True, DrawMenu As Boolean = False, esp As Boolean = False, Misc As Boolean = False, Settings As Boolean = False, up As Boolean = False, down As Boolean = False, right1 As Boolean = False, left1 As Boolean = False, snaplines As Boolean = False, crosshair As Boolean = False

    Dim boolAim As Boolean = False, aimbotmenu As Boolean, boolAimStyle As Boolean, boolHold As Boolean, boolRage As Boolean, boolInCrossCheck As Boolean

    Dim AimSpeed As Integer

    Dim Mode, menuPOSopt As Integer


    Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
    Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

    Dim _initalStyle As Integer
    Private declient As Integer


    ' Constants
    Const GWL_EXSTYLE As Integer = -20
    Const WS_EX_LAYERED As Integer = &H80000
    Const WS_EX_TRANSPARENT As Integer = &H20F
    Const LWA_ALPHA As Integer = &H2
    Const LWA_COLORKEY As Integer = &H1
    Const _InvView_right As Integer = &H4, _InvView_up As Integer = &H10, _InvView_forward As Integer = &H1C, _InvView_Translation As Integer = &H28, _ViewPortMatrix3 As Integer = &H54, _ProjD1 As Integer = &HCC, _ProjD2 As Integer = &HD8

    Const MAXPEOPLEEE As Integer = 64
    Const PROCESS_NAME As String = "csgo"
    Dim skeletkleurke As Color
    Dim kleurkevanhealthboxbg As Color
    Dim kleurkevandenforegrond As Color
    Shared Size2 As New Size(6, 6)

    Public radarRadius As Integer = globwidth / 2
    Shared Punt, punt2, puntcurve1, puntcurve2, midradar As New Point(0, 0)
    Shared Screen_Size_X As Integer = Screen.PrimaryScreen.Bounds.Width
    Shared Screen_Size_Y As Integer = Screen.PrimaryScreen.Bounds.Height
    Private xleft As Integer = Me.Width - globwidth

    Private triggerdelay As Integer



    Shared dikte As Integer = 1
    ' These offsets likely don't need updating as Valve doesn't change its Structures usually.

    Const bspotted As Integer = &H935
    Const DefuserOff As Integer = &H23B0
    Const teamoff As Integer = &HF0
    Const posOff As Integer = &H134
    Const hOff As Integer = &HFC
    Const skeletMatrix As Integer = &HA78
    Const loopamt As Integer = &H10
    Const pAngs As Integer = &H13E8
    Const weaponidoff As Integer = &H1690 '&H1684
    Const hactiveWeaponOff As Integer = &H12C0
    Private crosshairOff As Integer = &H2410
    Const viewOffset = &H104
    Const offsetSetViewAngles As Integer = &H4CE0
    Const shotsFired As Integer = &H1D6C
    Const lifeState As Integer = &H25B
    Const vecVelocity As Integer = &H110
    Const bspottedmask As Integer = &H978
    Private jump As Integer = &H0
    Private flashmaxduration As Integer
    Private flashmaxalpha As Integer
    Const armoroff As Integer = &H23B0
    'Const CL_SCRBRD_KILLS As Integer = &HBDC
    'Const CL_SCRBRD_ASSISTS As Integer = &HCE0
    'Const CL_SCRBRD_DEATHS As Integer = &HDE4
    'Const CL_SCRBRD_HEALTH As Integer = &H1178
    'Const CL_SCRBRD_ARMOR As Integer = &H182C
    'Const CL_SCRBRD_SCORE As Integer = &H1930
    'Const CL_SCRBRD_CLANTAGS As Integer = &H411C
    'Const iclip1 As Integer = &H15C0
    'Const iclip2 As Integer = &H15C4
#End Region

#Region "Types, Structs, Defines, Enums"
    ' Random shit we need to define to use
    Public Structure Margins
        Dim Left As Integer
        Dim Right As Integer
        Dim Top As Integer
        Dim Bottom As Integer
    End Structure

    Public Enum GWL As Integer
        ExStyle = -20
    End Enum

    Public Enum WS_EX As Integer
        Transparent = &H20
        Layered = &H80000
    End Enum

    Public Enum LWA As Integer
        ColorKey = &H1
        Alpha = &H2
    End Enum

#End Region

#Region "Custom Functions"
    ' Custom functions to easily call within other calls
    ' Makes looking at algorithms easier to understand.
    'Private Function getdataplayer(
    'Public Function readScoreboard(clientid As Integer)
    '    Try
    'Dim ScoreBoardAddy As Integer = _memr.rdInt(client + scoreboardbase)

    '        Player.kills = _memr.rdInt(ScoreBoardAddy + CL_SCRBRD_KILLS + 4 * clientid)
    '        Player.deaths = _memr.rdInt(ScoreBoardAddy + CL_SCRBRD_DEATHS + 4 * clientid)
    '        Player.assists = _memr.rdInt(ScoreBoardAddy + CL_SCRBRD_ASSISTS + 4 * clientid)

    '        Player.score = _memr.rdInt(ScoreBoardAddy + CL_SCRBRD_SCORE + 4 * clientid)
    ''MessageBox.Show("lol")

    '    Catch ex As Exception
    'Dim stuff As String = ex.ToString
    '    End Try

    '    Return 0

    'End Function

    Public Function getWeaponName(weaponid As Integer) As String

        Dim getRussianMother() As String = _
    {" none", _
  "deagle", _
  "Dual Berettas", _
  "fiveseven", _
  "glock", _
  "p228", _
  "", _
 "ak47", _
  "aug", _
  "awp", _
  "famas", _
  "g3sg1", _
     "", _
  "galil", _
  "m249", _
  "m3", _
  "m4a1", _
 "mac10", _
  "mp5navy", _
  "p90", _
  "scout", _
  "sg550", _
  "sg552", _
  "tmp", _
  "ump45", _
  "xm1014", _
  "bizon", _
  "mag7", _
  "negev", _
  "sawedoff", _
  "tec9", _
  "taser", _
  "p2000", _
  "mp7", _
 " mp9", _
  "nova", _
  "p250", _
  "scar17", _
  "scar20", _
  "sg556", _
  "ssg08", _
  "knifegg", _
  "knife", _
  "flashbang", _
 " hegrenade", _
 " smokegrenade", _
  "molotov", _
  "decoy", _
  "incgrenade", _
  "c4"}

        Return getRussianMother(weaponid)


    End Function


    Private Function GetEntPosition(entptr As Integer) As dildo.Vect3d
        'Returns a Vector3D of the Entity in Entity slot entptr, use index of for loop
        Dim ent As Integer = _memr.rdInt(declient + entlist + (entptr * &H10))
        Return _memr.rdVector(ent + posOff)
    End Function

    Private Function GetBonePos(target As Integer, bone As Integer) As dildo.Vect3d
        'Returns the Vector3D of <bone> in the <target> Entity.Pointer.
        Dim bMatrix As Integer = _memr.rdInt(target + skeletMatrix)
        Dim vec As New dildo.Vect3d()
        vec.x = _memr.rdFloat(bMatrix + (&H30 * bone) + &HC)
        vec.y = _memr.rdFloat(bMatrix + (&H30 * bone) + &H1C)
        vec.z = _memr.rdFloat(bMatrix + (&H30 * bone) + &H2C)
        Return vec
    End Function

    Private Function GetPlayerPosition() As dildo.Vect3d
        'Returns the players Vector3D
        Dim ent As Integer = _memr.rdInt(declient + baseoff)
        Return _memr.rdVector(ent + posOff)
    End Function

    Private Function GetEyeAngles() As dildo.Vect3d
        'Returns EyeAngles Vector3D
        Dim LocalPlayer As Integer = _memr.rdInt(declient + baseoff)

        Return _memr.rdVector(LocalPlayer + &H23B4)

    End Function

    Private Function RussiaToScreen(from As dildo.Vect3d, viewMatrix As Matrix, width As Integer, height As Integer) As Vector2
        ' Returns a Vector3D containing the 2D Coordinates of <from>.
        Dim [to] As New Vector2

        ' From what I've seen, pretty standard WorldToScreen function. The math is the same across them all.
        [to].X = viewMatrix.M11 * from.x + viewMatrix.M12 * from.y + viewMatrix.M13 * from.z + viewMatrix.M14
        [to].Y = viewMatrix.M21 * from.x + viewMatrix.M22 * from.y + viewMatrix.M23 * from.z + viewMatrix.M24
        Dim w As Single = viewMatrix.M41 * from.x + viewMatrix.M42 * from.y + viewMatrix.M43 * from.z + viewMatrix.M44

        If w < 0.01F Then
            ' REMEMBER TO CHECK FOR 0,0,0 RESULTS AND IGNORE THEM! If you make new calls to this function.
            Return New Vector2(0, 0)
        End If

        Dim invw As Single = 1.0F / w
        [to].X *= invw
        [to].Y *= invw

        Dim x As Single = width / 2
        Dim y As Single = height / 2

        x += 0.5F * [to].X * width + 0.5F
        y -= 0.5F * [to].Y * height + 0.5F

        [to].X = x
        [to].Y = y

        Return [to]
    End Function

    Shared Function radtodeg(ByVal radian As Double) As Double
        Return (radian / 180) * Math.PI
    End Function



#End Region

#Region "Drawing Shits"

    Sub drawPlayerBox(item As dildo.VectorMeData, ColorMid As Color, colorOut As Color, hoogte As Single, dikteuitlijning As Integer)


        Dim BoxHeightoff As Single = 8500.0F / item.Distance
        Dim intFillCorner = 1
        If dikteuitlijning = 1 Or dikteuitlijning = 0 Then
            intFillCorner = 0

        Else
            intFillCorner = CInt(dikteuitlijning / 2)
        End If

        DrawLine(item.W2SPos.X - (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X - (hoogte / 4), item.W2SPos.Y, dikte, ColorMid)
        DrawLine(item.W2SPos.X + (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X + (hoogte / 4), item.W2SPos.Y, dikte, ColorMid) 'hoogtelijnen

        DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.Head.Y - BoxHeightoff, item.W2SPos.X + (hoogte / 4) + intFillCorner, item.Head.Y - BoxHeightoff, dikte, ColorMid)
        DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.W2SPos.Y, item.W2SPos.X + (hoogte / 4) + intFillCorner, item.W2SPos.Y, dikte, ColorMid)
        '3D
        DrawLine(item.W2SPos.X - (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X - (hoogte / 4), item.W2SPos.Y, dikte, ColorMid)
        DrawLine(item.W2SPos.X + (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X + (hoogte / 4), item.W2SPos.Y, dikte, ColorMid) 'hoogtelijnen

        DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.Head.Y - BoxHeightoff, item.W2SPos.X + (hoogte / 4) + intFillCorner, item.Head.Y - BoxHeightoff, dikte, ColorMid)
        DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.W2SPos.Y, item.W2SPos.X + (hoogte / 4) + intFillCorner, item.W2SPos.Y, dikte, ColorMid)
        'lijnen boven
        If esp = True Then

        Else


            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)

            ''lijnen onder

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.Head.Y + dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.W2SPos.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
        End If
    End Sub

    Sub drawPlayerBox2(coordinates() As Vector2, color As Color, w As Integer)



        For i = 0 To 2
            Trace.WriteLine(coordinates)
            '  DrawLine(coordinates(i).X, coordinates(i).Y, coordinates(i + 1).Y, coordinates(i + 1).Y, w, color)

        Next

        'lijnen boven
        If esp = True Then

        Else


            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)

            ''lijnen onder

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.Head.Y + dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.W2SPos.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
        End If
    End Sub
    Private Function rainbow() As Color

        Static x As Single = 0
        Static y As Single = 0
        Static r As Single = 0
        Static g As Single = 0
        Static b As Single = 0

        If y >= 0.0F AndAlso y < 255.0F Then
            r = 255.0F
            g = 0.0F
            b = x
        ElseIf y >= 255.0F AndAlso y < 510.0F Then
            r = 255.0F - x
            g = 0.0F
            b = 255.0F
        ElseIf y >= 510.0F AndAlso y < 765.0F Then
            r = 0.0F
            g = x
            b = 255.0F
        ElseIf y >= 765.0F AndAlso y < 1020.0F Then
            r = 0.0F
            g = 255.0F
            b = 255.0F - x
        ElseIf y >= 1020.0F AndAlso y < 1275.0F Then
            r = x
            g = 255.0F
            b = 0.0F
        ElseIf y >= 1275.0F AndAlso y < 1530.0F Then
            r = 255.0F
            g = 255.0F - x
            b = 0.0F
        End If

        x += 0.01F 'increase this value to switch colors faster
        If x >= 255.0F Then
            x = 0.0F
        End If

        y += 0.01F 'increase this value to switch colors faster
        If y > 1530.0F Then
            y = 0.0F
        End If


        Return Color.FromArgb(250, CInt(Fix(r)), CInt(Fix(g)), CInt(Fix(b)))
    End Function
    Public Sub DrawWorldLine(ByVal Point1 As dildo.Vect3d, ByVal Point2 As dildo.Vect3d, ByVal DrawColor As Color)
        Dim RefVec As New Vector2
        Dim Point1S As New Vector2
        Dim Point2S As New Vector2

        Point1S = RussiaToScreen(Point1, Player.zichtmatrix, Me.Width, Me.Height)

        Point2S = RussiaToScreen(Point2, Player.zichtmatrix, Me.Width, Me.Height)

        DrawLine(Point1S.X, Point1S.Y, Point2S.X, Point2S.Y, 1, DrawColor)


    End Sub
    Public Function convertto2D(src() As Vector3) As Vector2()
        Static jemoeder() As Vector2
        For i = 0 To src.Count - 1
            jemoeder(i).X = src(i).X / src(i).Z
            jemoeder(i).Y = src(i).Y / src(i).Z

        Next
        Return jemoeder

    End Function

    Sub drawPlayer3DBox(item As dildo.VectorMeData, height As Integer, color As Color, width As Integer)


        Dim BoxHeightoff As Single = 8500.0F / item.Distance
        Dim middle As Vector2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, 10), Player.zichtmatrix, Me.Width, Me.Height)


        'DrawLine(item.W2SPos.X - (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X - (hoogte / 4), item.W2SPos.Y, dikte, ColorMid)
        'DrawLine(item.W2SPos.X + (hoogte / 4), item.Head.Y - BoxHeightoff, item.W2SPos.X + (hoogte / 4), item.W2SPos.Y, dikte, ColorMid) 'hoogtelijnen

        'DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.Head.Y - BoxHeightoff, item.W2SPos.y + (hoogte / 4) + intFillCorner, item.Head.Y - BoxHeightoff, dikte, ColorMid)
        'DrawLine(item.W2SPos.X - (hoogte / 4) - intFillCorner, item.W2SPos.Y, item.W2SPos.X + (hoogte / 4) + intFillCorner, item.W2SPos.Y, dikte, ColorMid)
        Dim x, y, z As Single
        x = item.W2SPos.X
        y = item.W2SPos.Y
        z = 1

        ' Dim BoxA As New dildo.Vect3d(item.W2SPos.X - (height / 4), item.W2SPos.Y, item.zPos + width)
        '  Dim BoxB As New dildo.Vect3d(item.W2SPos.X - (height / 4), item.W2SPos.Y, item.zPos + width)
        Dim virtualBox() = New Vector3() {New Vector3}
        ReDim virtualBox(7)

        virtualBox(0) = New Vector3(x, y - height, z + width)
        virtualBox(1) = New Vector3(x + width, y - height, z + width)
        virtualBox(2) = New Vector3(x + width, y, z + width)
        virtualBox(3) = New Vector3(x, y, z + width)
        virtualBox(4) = New Vector3(x, y - height, z)
        virtualBox(5) = New Vector3(x + width, y - height, z)

        virtualBox(6) = New Vector3(x + width, y, z)
        virtualBox(7) = New Vector3(x, y, z)
        Try
            Trace.WriteLine(virtualBox(0))

            DrawLine(virtualBox(0).X / virtualBox(0).Z, virtualBox(0).Y / virtualBox(0).Z, virtualBox(1).X / virtualBox(1).Z, virtualBox(1).Y / virtualBox(1).Z, 1, color)



            '   DrawWorldLine(BoxA, BoxB, color)
            '    DrawWorldLine(BoxA, BoxD, color)
            '   DrawWorldLine(BoxB, BoxC, color)

        Catch ex As Exception
            Trace.WriteLine(ex)
        End Try

        'lijnen boven
        If esp = True Then

        Else


            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.Head.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.Head.Y - dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) - dikteuitlijning, item.W2SPos.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) + dikteuitlijning, item.W2SPos.Y + dikteuitlijning, dikteuitlijning, colorOut)

            ''lijnen onder

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X - (hoogte / 4) + dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
            'DrawLine(item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut) 'hoogtelijnen

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.Head.Y + dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.Head.Y + dikteuitlijning, dikteuitlijning, colorOut)

            'DrawLine(item.W2SPos.X - (hoogte / 4) + dikteuitlijning - intFillCorner, item.W2SPos.Y - dikteuitlijning, item.W2SPos.X + (hoogte / 4) - dikteuitlijning + intFillCorner, item.W2SPos.Y - dikteuitlijning, dikteuitlijning, colorOut)
        End If
    End Sub
    Private skeletonsize As Integer = 1

    Function getSkeleton(pointer As Integer, veccoords2 As Vector3) As dildo.VectorMeData.SkeletonVectorData


    End Function
    Sub drawBone(point1 As Vector2, point2 As Vector2, color As Color)

        'Dim skeletoncolor As Color = skeletkleurke
        'Dim height As Single
        'height = target.W2SPos.Y - target.Head.Y

        'Dim startBonePos, endBonePos As dildo.Vect3d
        'Dim StartDrawPos, EndDrawPos As Vector2
        '' If target.Levenz > 0 Then




        'Dim rrlegpos As dildo.Vect3d = GetBonePos(target.toewijzingsadres, Rlegbones(0))


        'If Get3dDistance(rrlegpos.x, rrlegpos.z, rrlegpos.y, target.VecCoords.x, target.VecCoords.z, target.VecCoords.y) > 45.0F Then



        '    '  MessageBox.Show("Not updated")

        '    ' System.Diagnostics.Trace.WriteLine("Not Updated Skipping Draw function")

        '    Exit Sub
        'Else
        '    If StartDrawPos.X = 0 And StartDrawPos.Y = 0 Or EndDrawPos.X = 0 And EndDrawPos.Y = 0 Then
        '        Exit Sub
        '    End If
        'End If


        ''    If Not StartDrawPos = New Vector2(0, 0) Then



        ''    Else
        ''        Exit Sub

        ''    End If

        ''    If Not EndDrawPos = New Vector2(0, 0) Then




        ''    Else
        ''        Exit Sub

        ''    End If

        ''Else
        ''    Exit Sub

        ''End If'
        ''MessageBox.Show("x Start: " & StartDrawPos.X & " y Start: " & StartDrawPos.Y & " x End: " & EndDrawPos.X & " y End: " & EndDrawPos.Y)
        If boolRainbow Then
            DrawLine(point1.X, point1.Y, point2.X, point2.Y, skeletonsize, rainbow())
        Else
            DrawLine(point1.X, point1.Y, point2.X, point2.Y, skeletonsize, color)

        End If

        '' MessageBox.Show("x Start: " & StartDrawPos.X & " y Start: " & StartDrawPos.Y & " x End: " & EndDrawPos.X & " y End: " & EndDrawPos.Y)
        '' _ShadowText("Z", New Point(StartDrawPos.X, StartDrawPos.Y), Color.Aquamarine)
        ''  _ShadowText("----", New Point(EndDrawPos.X, EndDrawPos.Y), Color.Aquamarine)
        '' DrawLine(Me.Width / 2, Me.Height / 2, 0, 0, 4, Color.White)




        '    If boolRainbow = True Then
        '  Trace.WriteLine("try draw lines")
        '    Dim intDistance As Integer = 1
        '    Dim dikkie As Integer = 1
        'DrawLine(StartDrawPos.X - intDistance, StartDrawPos.Y - intDistance, EndDrawPos.X - intDistance, EndDrawPos.Y - intDistance, dikkie, rainbow())
        'DrawLine(StartDrawPos.X + intDistance, StartDrawPos.Y + intDistance, EndDrawPos.X + intDistance, EndDrawPos.Y + intDistance, dikkie, rainbow())
        '     DrawCircle(StartDrawPos.X, StartDrawPos.Y, 10, 4, dikkie, rainbow())
        '   DrawCircle(EndDrawPos.X, EndDrawPos.Y, 10, 4, dikkie, rainbow())
        '    End If



    End Sub

    Sub drawSkeleton(skelData As dildo.VectorMeData.SkeletonVectorData, itemcolor As Color)


        'Dim skeletoncolor As Color = skeletkleurke
        For i = 0 To 5
            drawBone(skelData.Spine.bonepos2(i), skelData.Spine.bonepos2(i + 1), itemcolor)
        Next
        For i = 0 To 2

            drawBone(skelData.Lleg.bonepos2(i), skelData.Lleg.bonepos2(i + 1), itemcolor)
            drawBone(skelData.Rleg.bonepos2(i), skelData.Rleg.bonepos2(i + 1), itemcolor)
            drawBone(skelData.Larm.bonepos2(i), skelData.Larm.bonepos2(i + 1), itemcolor)
            drawBone(skelData.Rarm.bonepos2(i), skelData.Rarm.bonepos2(i + 1), itemcolor)
        Next


        ' DrawBox(item.Head.X, item.Head.Y, height / 10, height / 10, 2, skeletoncolor)
        ' DrawCircle(item.Head.X, item.Head.Y, height / 10, 20, 1, skeletoncolor)
        'Dim skeletoncolor As Color = skeletkleurke
        'Dim skeletonsize As Integer = 1
        'Dim height As Single
        'height = item.W2SPos.Y - item.Head.Y


        'For i = 0 To 1 'Left leg
        '    Dim TPool As System.Threading.ThreadPool
        '    ' Queue a task

        '    w2sobject1 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Llegbones(i)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    'TPool.QueueUserWorkItem(New System.Threading.WaitCallback _
        '    '               (AddressOf looper))
        '    w2sobject2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Llegbones(i + 1)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    '' Queue another task




        '    If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then

        '        DrawLine(w2sobject1.X, w2sobject1.Y, w2sobject2.X, w2sobject2.Y, skeletonsize, skeletoncolor)

        '    End If



        'Next
        'w2sprev1 = w2sobject2
        'For i = 0 To 1 'Right leg
        '    w2sobject1 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Rlegbones(i)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    w2sobject2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Rlegbones(i + 1)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then
        '        DrawLine(w2sobject1.X, w2sobject1.Y, w2sobject2.X, w2sobject2.Y, skeletonsize, skeletoncolor)
        '    End If
        'Next
        'w2sprev2 = w2sobject2

        'For i = 0 To 4 'spine

        '    w2sobject1 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Spinebones(i)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    w2sobject2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Spinebones(i + 1)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then
        '        DrawLine(w2sobject1.X, w2sobject1.Y, w2sobject2.X, w2sobject2.Y, skeletonsize, skeletoncolor)
        '    End If

        '    If i = 0 Then
        '        If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then
        '            DrawLine(w2sobject1.X, w2sobject1.Y, w2sprev1.X, w2sprev1.Y, skeletonsize, skeletoncolor)
        '            DrawLine(w2sobject1.X, w2sobject1.Y, w2sprev2.X, w2sprev2.Y, skeletonsize, skeletoncolor)
        '        End If
        '    End If
        'Next
        'spineend = w2sobject2
        '' DrawLine(w2sobject2.X, w2sobject2.Y, item.Head.X, item.Head.Y, skeletonsize, skeletoncolor)
        'For i = 0 To 1 'Right arm
        '    w2sobject1 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Rarmbones(i)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    w2sobject2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Rarmbones(i + 1)), Ik.zichtmatrix, Me.Width, Me.Height)

        '    If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then
        '        DrawLine(w2sobject1.X, w2sobject1.Y, w2sobject2.X, w2sobject2.Y, skeletonsize, skeletoncolor)
        '    End If

        'Next
        'w2sprev1 = w2sobject2

        'For i = 0 To 1 'Right arm
        '    w2sobject1 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Larmbones(i)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    w2sobject2 = RussiaToScreen(GetBonePos(item.toewijzingsadres, Larmbones(i + 1)), Ik.zichtmatrix, Me.Width, Me.Height)
        '    If w2sobject1.X <> 0 And w2sobject1.Y <> 0 And w2sobject2.X <> 0 And w2sobject2.Y <> 0 Then
        '        DrawLine(w2sobject1.X, w2sobject1.Y, w2sobject2.X, w2sobject2.Y, skeletonsize, skeletoncolor)
        '    End If

        'Next
        'w2sprev2 = w2sobject2
        'If w2sprev1.X <> 0 And w2sprev1.Y <> 0 And w2sprev1.Y <> 0 And w2sprev2.Y <> 0 Then
        '    DrawLine(w2sprev2.X, w2sprev2.Y, spineend.X, spineend.Y, skeletonsize, skeletoncolor)

        '    DrawLine(w2sprev1.X, w2sprev1.Y, spineend.X, spineend.Y, skeletonsize, skeletoncolor)
        '    'DrawCircle(item.Head.X, item.Head.Y, height / 10, 4, skeletonsize, skeletoncolor)
        '    DrawBox(item.Head.X, item.Head.Y, height / 10, height / 10, 2, skeletoncolor)
        'End If

    End Sub

    Private Sub DrawCircle(ByVal X As Integer, ByVal Y As Integer, ByVal radius As Integer, ByVal numSides As Integer, ByVal Thickness As Integer, ByVal Color As Color)
        Dim Line(128) As Vector2
        Dim [Step] As Single = CSng(Math.PI) * 2.0F / numSides
        Dim Count As Integer = 0
        For a As Single = 0 To (CSng(Math.PI) * 2.0) - 1 Step [Step]
            Dim X1 As Single = radius * CSng(Math.Cos(a)) + X
            Dim Y1 As Single = radius * CSng(Math.Sin(a)) + Y
            Dim X2 As Single = radius * CSng(Math.Cos(a + [Step])) + X
            Dim Y2 As Single = radius * CSng(Math.Sin(a + [Step])) + Y
            Line(Count).X = X1
            Line(Count).Y = Y1
            Line(Count + 1).X = X2
            Line(Count + 1).Y = Y2
            DrawLine(X1, Y1, X2, Y2, Thickness, Color)
            Count += 2
        Next a
    End Sub

    Public Sub shadoxtextboxed(text As String, Position As Point, color__1 As Color, colorbox As Color, thickness As Integer, outline As Integer, boxwidth As Integer, afstandzijkant As Integer)



        'Draws text with that cool shadow effect.
        Try



            DrawLine(Position.X - afstandzijkant, Position.Y, Position.X + outline, Position.Y, thickness, colorbox)
            DrawLine(Position.X - afstandzijkant, Position.Y + boxwidth, Position.X + outline, Position.Y + boxwidth, thickness, colorbox)

            DrawLine(Position.X - afstandzijkant, Position.Y, Position.X - afstandzijkant, Position.Y + boxwidth, thickness, colorbox)

            DrawLine(Position.X + outline, Position.Y, Position.X + outline, Position.Y + boxwidth, thickness, colorbox)
            Position.X += 5
            Position.Y += 2.5
            dxFont.DrawString(Nothing, text, Position.X, Position.Y, color__1)
            dxFont.DrawString(Nothing, text, Position.X, Position.Y, color__1)
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub
    Public Sub _ShadowText(text As String, Position As Point, color__1 As Color)
        'Draws text with that cool shadow effect.
        Try
            'dxFont.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.Black)

            dxFont2.DrawString(Nothing, text, Position.X - 1, Position.Y, Color.Black)
            dxFont2.DrawString(Nothing, text, Position.X + 1, Position.Y, Color.Black)
            dxFont2.DrawString(Nothing, text, Position.X, Position.Y + 1, Color.Black)
            dxFont2.DrawString(Nothing, text, Position.X, Position.Y - 1, Color.Black)
            dxFont2.DrawString(Nothing, text, Position.X, Position.Y, color__1)
            'dxFont2.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.White)
            '  dxFont2.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.Black)

        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub
    Public Sub _ShadowText2(text As String, Position As Point, color__1 As Color)
        'Draws text with that cool shadow effect.
        Try
            'dxFont2.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.Black)
            dxFont2.DrawString(Nothing, text, Position.X, Position.Y, color__1)
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub


    Public Sub _ShadowText3(text As String, Position As Point, color__1 As Color)
        'Draws text with that cool shadow effect.
        Try
            'dxFont2.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.Black)

            dxFont.DrawString(Nothing, text, Position.X - 1, Position.Y, Color.Black)
            dxFont.DrawString(Nothing, text, Position.X + 1, Position.Y, Color.Black)
            dxFont.DrawString(Nothing, text, Position.X, Position.Y + 1, Color.Black)
            dxFont.DrawString(Nothing, text, Position.X, Position.Y - 1, Color.Black)
            dxFont.DrawString(Nothing, text, Position.X, Position.Y, color__1)
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub

    Public Sub _ShadowText4(text As String, Position As Point, color__1 As Color)
        'Draws text with that cool shadow effect.
        Try
            'dxFont2.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.Black)

            dxfont3.DrawString(Nothing, text, Position.X - 1, Position.Y, Color.Black)
            dxfont3.DrawString(Nothing, text, Position.X + 1, Position.Y, Color.Black)
            dxfont3.DrawString(Nothing, text, Position.X, Position.Y + 1, Color.Black)
            dxfont3.DrawString(Nothing, text, Position.X, Position.Y - 1, Color.Black)
            dxfont3.DrawString(Nothing, text, Position.X, Position.Y, color__1)
            'dxfont3.DrawText(Nothing, text, New Point(Position.X + 1, Position.Y + 1), Color.OrangeRed)
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub
    Public Sub DrawLine(x1 As Single, y1 As Single, x2 As Single, y2 As Single, w As Single, Color As Color)
        'Draw a w pixel wide line of color from x1/y1 to x2/y2.
        Try

            Dim black As Color = Drawing.Color.Black
            Dim vLine As Vector2() = New Vector2(1) {New Vector2(x1, y1), New Vector2(x2, y2)}
            'Dim vLine1 As Vector2() = New Vector2(1) {New Vector2(x1 + 1, y1), New Vector2(x2 + 1, y2)}
            'Dim vLine2 As Vector2() = New Vector2(1) {New Vector2(x1 - 1, y1), New Vector2(x2 - 1, y2)}
            'Dim vLine3 As Vector2() = New Vector2(1) {New Vector2(x1, y1 + 1), New Vector2(x2, y2 + 1)}
            'Dim vLine4 As Vector2() = New Vector2(1) {New Vector2(x1, y1 - 1), New Vector2(x2, y2 - 1)}
            dxLine.GlLines = True

            dxLine.Antialias = False

            dxLine.Width = w
            dxLine.Begin()
            dxLine.Draw(vLine, Color.ToArgb())

            'dxLine.Draw(vLine1, black)
            'dxLine.Draw(vLine2, black)
            'dxLine.Draw(vLine3, black)
            'dxLine.Draw(vLine4, black)
            dxLine.End()
        Catch ex As Exception
            Dim stuff As String = ex.ToString

        End Try

    End Sub


    Private Shared Function SetTransparency(A As Integer, color__1 As Color) As Color
        ' Sets the transparent color to color__1
        Try
            Return Color.FromArgb(A, color__1.R, color__1.G, color__1.B)
        Catch ex As Exception

        End Try


    End Function

    Public Sub DrawFilledBox(x As Single, y As Single, w As Single, h As Single, Color As System.Drawing.Color)
        'Draws a Solid box of Color
        Dim vLine As Vector2() = New Vector2(1) {}
        Try
            dxLine.GlLines = True
            dxLine.Antialias = True
            dxLine.Width = 1

            vLine(0).X = x + w / 2
            vLine(0).Y = y
            vLine(1).X = x + w / 2
            vLine(1).Y = y + h

            dxLine.Begin()
            dxLine.Draw(vLine, Color.ToArgb())
            dxLine.End()
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub

    Public Sub DrawAntiRussiaBox(x As Single, y As Single, w As Single, h As Single, transparency As Integer, Color As System.Drawing.Color)
        ' Draws a TransparentBox, with Color as the transparency color

        Dim vLine As Vector2() = New Vector2(1) {}
        Try

            dxLine.GlLines = True
            dxLine.Antialias = False

            dxLine.Width = w

            vLine(0).X = x + w / 2
            vLine(0).Y = y
            vLine(1).X = x + w / 2
            vLine(1).Y = y + h
            Dim halfTransparent As Color = SetTransparency(transparency, Color)
            dxLine.Begin()
            dxLine.Draw(vLine, halfTransparent.ToArgb())
            dxLine.End()



        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub

    Public Sub DrawAntiRussiaBox3(x As Single, y As Single, w As Single, h As Single, transparency As Integer, Color As System.Drawing.Color)
        ' Draws a TransparentBox, with Color as the transparency color

        Dim vLine As Vector2() = New Vector2(1) {}
        Try

            dxline2.GlLines = True
            dxline2.Antialias = False

            dxline2.Width = w

            vLine(0).X = x + w / 2
            vLine(0).Y = y
            vLine(1).X = x + w / 2
            vLine(1).Y = y + h
            Dim halfTransparent As Color = SetTransparency(transparency, Color)
            dxline2.Begin()
            dxline2.Draw(vLine, halfTransparent.ToArgb())
            dxline2.End()



        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub
    Public Sub DrawAntiRussiaBox2(x As Single, y As Single, w As Single, h As Single, transparency As Integer, ColorMain As System.Drawing.Color, colorEdge As System.Drawing.Color)
        Dim differential As Integer = 1

        DrawAntiRussiaBox(x - differential, y - differential, w + differential, h + differential, transparency, colorEdge)
        DrawAntiRussiaBox(x, y, w, h, transparency, ColorMain)

    End Sub


    Public Sub DrawFilledBoxie(x As Single, y As Single, w As Single, h As Single, transparency As Integer, Color As System.Drawing.Color)
        ' Draws a TransparentBox, with Color as the transparency color

        Dim vLine As Vector2() = New Vector2(1) {}
        Try

            dxLine.GlLines = True
            dxLine.Antialias = False

            dxLine.Width = w

            vLine(0).X = x + w / 2
            vLine(0).Y = y
            vLine(1).X = x + w / 2
            vLine(1).Y = y + h

            dxLine.Begin()
            dxLine.Draw(vLine, Color)
            dxLine.End()



        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

    End Sub

    Public Sub DrawBox(x As Single, y As Single, w As Single, h As Single, px As Integer, Color As System.Drawing.Color)
        ' Draws a Colored Box.
        ' Try
        Try
            DrawLine(x - w, y - h, x + w, y - h, px, Color)
            DrawLine(x - w, y + h, x + w, y + h, px, Color)

            DrawLine(x - w, y - h, x - w, y + h, px, Color)
            DrawLine(x + w, y + h, x + w, y - h, px, Color)
        Catch ex As Exception
            Dim stuff As String = ex.ToString()
        End Try

        'Catch ex As Exception

        ' End Try

    End Sub

#End Region




#Region "Math Functions"

    Private Function GetDistance(point1 As PointF, point2 As PointF) As Double
        'pythagoras theorem c^2 = a^2 + b^2
        'thus c = square root(a^2 + b^2)
        Dim a As Double = CDbl(point2.X - point1.X)
        Dim b As Double = CDbl(point2.Y - point1.Y)

        Return Math.Sqrt(a * a + b * b)
    End Function

    Private Function cmToInches(icm As Double) As Int32
        Dim cm As Double = 0.393700787
        Dim total_inc As Double
        total_inc = (icm * cm)
        ' Perform Calculation
        Return Convert.ToInt32(total_inc)
    End Function

    Private Function inchesToFeet(inches As Int32) As Int32
        Return Convert.ToInt32(inches / 12)
    End Function

#End Region

#Region "Hooking Related"
    ' This region is things related to the Keyboard Hook, for turning on/off things and exiting the hack.
    ' Some things are also used by the Aimhack and Recoil Crosshair.


    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <DllImport("user32.dll")> _
    Private Shared Function SetWindowsHookEx(idHook As Integer, callback As LowLevelKeyboardProc, hInstance As IntPtr, threadId As UInteger) As IntPtr
    End Function

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Portability", "CA1901:PInvokeDeclarationsShouldBePortable", MessageId:="3")> <DllImport("user32.dll")> _
    Private Shared Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As UInteger, ByVal dwExtraInfo As Integer) As Boolean
    End Function
    Private Shared Function UnhookWindowsHookEx(hInstance As IntPtr) As Boolean
    End Function

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Portability", "CA1901:PInvokeDeclarationsShouldBePortable", MessageId:="2")> <DllImport("user32.dll")> _
    Private Shared Function CallNextHookEx(idHook As IntPtr, nCode As Integer, wParam As Integer, lParam As IntPtr) As IntPtr
    End Function

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Globalization", "CA2101:SpecifyMarshalingForPInvokeStringArguments", MessageId:="0")> <DllImport("kernel32.dll")> _
    Private Shared Function LoadLibrary(lpFileName As String) As IntPtr
    End Function

    Private Delegate Function LowLevelKeyboardProc(nCode As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <DllImport("user32.dll")> _
    Private Shared Sub mouse_event(dwFlags As UInteger, dx As UInteger, dy As UInteger, dwData As UInteger, dwExtraInfo As UIntPtr)
    End Sub

    <System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1060:MovePInvokesToNativeMethodsClass")> <DllImport("user32.dll")> _
    Private Shared Function GetAsyncKeyState(vKey As Integer) As Short
    End Function

    Const WH_KEYBOARD_LL As Integer = 13
    Const WM_KEYDOWN As Integer = &H100

    Private _proc As LowLevelKeyboardProc = AddressOf hookProc

    Private Shared hhook As IntPtr = IntPtr.Zero

    Public Sub SetHook()
        Dim hInstance As IntPtr = LoadLibrary("User32")
        hhook = SetWindowsHookEx(WH_KEYBOARD_LL, _proc, hInstance, 0)
    End Sub

    Public Shared Sub UnHook()
        UnhookWindowsHookEx(hhook)
    End Sub

    Function calcMagnitude(vector1 As dildo.Vect3d, vector2 As dildo.Vect3d)
        Dim magnitude As Single
        magnitude = Math.Sqrt((vector2.x - vector1.x) ^ 2 + (vector2.y - vector1.y) ^ 2 + (vector2.z - vector1.z) ^ 2)
    End Function

    Public Function getRect(hwnd As IntPtr) As Rectangle

        Dim result As Rectangle
        GetClientRect(hwnd, result)

        Return result
    End Function

    Private settingz As New SettingForm()
    <DllImport("user32.dll")> _
    Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Integer) As Integer
    Dim formSettings As New SettingForm()
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal flags As ShowWindowEnum) As <System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
    End Function

    Private Enum ShowWindowEnum
        Hide = 0
        ShowNormal = 1
        ShowMinimized = 2
        ShowMaximized = 3
        Maximize = 3
        ShowNormalNoActivate = 4
        Show = 5
        Minimize = 6
        ShowMinNoActivate = 7
        ShowNoActivate = 8
        Restore = 9
        ShowDefault = 10
        ForceMinimized = 11
    End Enum
    Public Function hookProc(code As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
        Dim shitKey As Integer = Marshal.ReadInt32(lParam)

        Dim ValidKeyDown As Boolean = False
        If shitKey = Keys.Insert.GetHashCode() OrElse shitKey = Keys.Home.GetHashCode() OrElse shitKey = Keys.End.GetHashCode() _
            OrElse shitKey = Keys.Delete.GetHashCode() OrElse shitKey = Keys.Down.GetHashCode() OrElse shitKey = Keys.Up.GetHashCode() OrElse shitKey = Keys.Right.GetHashCode() OrElse shitKey = Keys.Left.GetHashCode() Then
            ValidKeyDown = True
        End If
        If code >= 0 AndAlso wParam = WM_KEYDOWN AndAlso ValidKeyDown Then
            If shitKey = Keys.Insert.GetHashCode() Then

                ' UnHook()

            End If

            If shitKey = Keys.Right.GetHashCode() Then
                right1 = True
                checksetting(2)


            End If

            If shitKey = Keys.Left.GetHashCode() Then
                left1 = True
                checksetting(0)

            End If

            If shitKey = Keys.Down.GetHashCode() Then
                down = True


            End If

            If shitKey = Keys.Up.GetHashCode() Then
                up = True


            End If


            If shitKey = Keys.Insert.GetHashCode() Then

            End If


            If shitKey = Keys.Home.GetHashCode() Then


                DrawMenu = Not DrawMenu


                '  Me.TopMost = False

                '  settingz.Visible = True
                '   SendKeys.Send("{ESC}")
                '    Me.TopMost = False
                ' settingz.Focus()
                If DrawMenu Then

                    '  formSettings.Close()
                    '   Me.TopMost = False

                    '  AboutBox1.Size = Me.Size
                    formSettings = settingz

                    formSettings.Show()
                    formSettings.TopMost = True
                    ' formSettings.Focus()


                    formSettings.Location = New Point(menuPos.X - settingz.Width, menuPos.Y + settingz.Height)

                    formSettings.Activate()


                    '    settingz.Show()
                    ShowWindow(formSettings.Handle, ShowWindowEnum.Show)
                    SetActiveWindow(formSettings.Handle)



                Else
                    '   Me.TopMost = True
                    '  '       Me.Activate()
                    '  formSettings.Dispose()


                    formSettings.Hide()
                    '     Me.Activate()
                    ShowWindow(Process.GetProcessesByName("csgo").First.MainWindowHandle, ShowWindowEnum.Show)
                    SetActiveWindow(Process.GetProcessesByName("csgo").First.MainWindowHandle)




                    '  formSettings = New SettingForm








                End If
            End If
            If shitKey = Keys.End.GetHashCode() Then
                If isRunning Then
                    isRunning = False
                    allowstart = False

                Else
                    isRunning = True
                    allowstart = True

                    'bgWork.RunWorkerAsync(dx)
                End If
            End If
            If shitKey = Keys.Delete.GetHashCode() Then
                Application.Exit()
            End If
            Return 1
        Else

            Return CallNextHookEx(hhook, code, CInt(wParam), lParam)
        End If
    End Function

#End Region

    Private allowstart As Boolean = True

#Region "Form Subroutines"

    Private Sub frmOverLay_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Try



            UnHook()
            device.Dispose()
        Catch ex As Exception

        End Try
    End Sub

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call

    End Sub


    Dim date1 As Date = Today
    Dim date2 As Date = #6/19/2016# 'einddatum
    Dim jemoeder As String



    'Private Function GetIPv4Address() As String
    '    GetIPv4Address = String.Empty
    '    Dim strHostName As String = System.Net.Dns.GetHostName()
    '    Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)

    '    For Each ipheal As System.Net.IPAddress In iphe.AddressList
    '        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
    '            GetIPv4Address = ipheal.ToString()
    '        End If
    '    Next

    'End Function
    'Sub sendmail(datenow As Date)
    '    Dim strArray() As String = {"l", "e", "e", "r", "l", "i", "n", "g", "id"}







    '    Try

    '        Dim text As String



    '        Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
    '        text = text & vbNewLine & vbNewLine & "MAC:" & vbNewLine
    '        For i = 0 To 4
    '            text = text & nics(i).GetPhysicalAddress.ToString & vbNewLine & nics(i).Speed & vbNewLine



    '        Next

    '        text = text & vbNewLine & vbNewLine & "ADDY: " & GetIPv4Address()
    '        text = text & vbNewLine & vbNewLine & "NAME: " & My.Computer.Name
    '        text = text & vbNewLine & vbNewLine & "Time compare: " & Today.ToString & " real time: " & globalDate

    '        Dim Mail As New MailMessage
    '        Dim SMTP As New SmtpClient("smtp.gmail.com")
    '        Dim lols As String = ""
    '        For i = 0 To strArray.Count - 1
    '            lols &= strArray(i)
    '        Next
    '        Dim test As String = encrypt(lols)
    '        lols = ""

    '        Mail.Subject = My.Computer.Name & " time: " & globalDate
    '        Mail.From = New MailAddress("name@gmail.com")
    '        SMTP.Credentials = New System.Net.NetworkCredential("djjeffkok@gmail.com", decrypt(test)) '<-- Password Here

    '        Mail.To.Add("desleydelits@gmail.com") 'I used ByVal here for address

    '        Mail.Body = text 'Message Here

    '        SMTP.EnableSsl = True
    '        SMTP.Port = "587"
    '        SMTP.Send(Mail)
    '        test = ""

    '        lols = ""
    '    Catch ex As Exception
    '        Dim stuff As String
    '        stuff = ex.ToString
    '    End Try












    'End Sub
    Private pw As String = GetUniqueKey(20)
    Function encrypt(string1 As String) As String

        Dim wrapper As New Simple3Des(pw)
        Dim ciphertext As String = wrapper.EncryptData(string1)

        ' System.Diagnostics.Trace.WriteLine(ciphertext)

        Return ciphertext

    End Function
    Function decrypt(cipher As String) As String
        Dim ciphertext As String = cipher
        Dim xxxze As String = pw

        Dim wrapper As New Simple3Des(xxxze)

        Return wrapper.DecryptData(ciphertext)

    End Function



    Private baseoff As Integer  '&HA4CA5C
    Private entlist As Integer  '&H49EE2E4
    Private vmatrixshit As Integer    ' &H49E3874
    'Const scoreboardbase As Integer = &H4A0C49C
    'Const severbase As Integer = &H4A31090
    Private radarbase As Integer
    Private globalDate As Date

    Function convertToVect3(src As Vector3) As dildo.Vect3d
        Dim result As New dildo.Vect3d
        result.x = src.X
        result.y = src.Y
        result.z = src.Z
        Return result

    End Function
    Function convertTovector3(src As dildo.Vect3d) As Vector3
        Dim result As New Vector3
        result.X = src.x
        result.Y = src.y
        result.Z = src.z
        Return result

    End Function




    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function GetClientRect(ByVal hWnd As System.IntPtr, _
   ByRef lpRECT As Rectangle) As Integer
        ' Leave function empty
    End Function

    <DllImport("user32.dll")> _
    Private Shared Function ClientToScreen(ByVal hWnd As IntPtr, ByRef lpPoint As Point) As Boolean
    End Function
    Private Declare Auto Function GetPrivateProfileString Lib "kernel32" (ByVal lpAppName As String, _
      ByVal lpKeyName As String, _
      ByVal lpDefault As String, _
      ByVal lpReturnedString As StringBuilder, _
      ByVal nSize As Integer, _
      ByVal lpFileName As String) As Integer
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32

#Region "OFFSET-SCANNER"



    Private tick As Long
    Private newPlayers As Long = 0L
    'private Dictionary<int, string> entityClasses;
    Private Const MAX_PLAYERS As Integer = 64, MAX_ENTITIES As Integer = 1024
    Private updatedOffsets As Boolean = False
    Private Shared scanner As Kappa.Scannerino
    Private Const MAX_DUMP_SIZE As Integer = &HFFFF
    Public Shared dllClientAddress As Integer, dllEngineAddress As Integer
    Public Shared dllClientSize As Long, dllEngineSize As Long
    Private Shared localPlayer As Integer

    Public entityListAddress As Integer, localAddress As Integer, radarAddress As Integer, scoreBoardAddress As Integer, enginePointer As Integer
#Region "MODULE-STUFF"
    Private Shared Function GetModuleByName(process As Process, name As String) As ProcessModule
        Try
            For Each [module] As ProcessModule In process.Modules
                If [module].FileName.EndsWith(name) Then
                    Return [module]
                End If
            Next
        Catch
        End Try
        Return Nothing
    End Function
    Private Shared Function GetModuleSize(process As Process, name As String) As Long
        Dim [module] As ProcessModule = GetModuleByName(process, name)
        If [module] IsNot Nothing Then
            Return [module].ModuleMemorySize
        End If
        Return 0L
    End Function
    Private Shared Function GetModuleBaseAddressByName(process As Process, name As String) As IntPtr
        Dim [module] As ProcessModule = GetModuleByName(process, name)
        If [module] IsNot Nothing Then
            Return [module].BaseAddress
        End If
        Return IntPtr.Zero
    End Function
#End Region



    Public Sub FindOffsets()
        Dim d As System.Drawing.Graphics = Me.CreateGraphics()
        Dim drawString As String = "Scanning Offsets..."
        Dim drawFont As New System.Drawing.Font(fontName, 10)
        Dim drawBrush As New  _
           System.Drawing.SolidBrush(System.Drawing.Color.Gray)
        Dim drawBrush2 As New  _
         System.Drawing.SolidBrush(System.Drawing.Color.Black)

        ' d.DrawString(drawString, New System.Drawing.Font(fontName, 12 + Multiplierfont), drawBrush, New Point(Me.Width / 2, Me.Height / 2))

        scanner = New Kappa.Scannerino(Process.GetProcessesByName(PROCESS_NAME)(0), IntPtr.Zero, MAX_DUMP_SIZE)


        ' scanner = New Scannerino(Process.GetProcessesByName(PROCESS_NAME)(0), IntPtr.Zero, MAX_DUMP_SIZE)
        dllClientAddress = GetModuleBaseAddressByName(scanner.Process, "bin\client.dll").ToInt32()
        dllEngineAddress = GetModuleBaseAddressByName(scanner.Process, "engine.dll").ToInt32()
        dllClientSize = GetModuleSize(scanner.Process, "bin\client.dll")
        dllEngineSize = GetModuleSize(scanner.Process, "engine.dll")
        'dllClientAddress = declient
        'dllEngineAddress = engine
        'dllClientSize = declient.SizeOf
        'dllEngineSize = engine.SizeOf



        If dllClientAddress = 0 OrElse dllClientSize = 0L Then
            Trace.WriteLine(" > NOPE: Module client.dll not found")

            Return
        End If
        If dllEngineAddress = 0 OrElse dllEngineSize = 0 Then
            Trace.WriteLine(" > NOPE: Module engine.dll not found")

            Return
        End If
        Dim point1 As Point = New Point(Me.Width / 2 - 250, Me.Height / 2)

        d.DrawString(drawString, New System.Drawing.Font(fontName, 25 + Multiplierfont), drawBrush, point1)
        point1.X += 1


        d.DrawString(drawString, New System.Drawing.Font(fontName, 25 + Multiplierfont), drawBrush, point1)
        point1.X -= 2
        d.DrawString(drawString, New System.Drawing.Font(fontName, 25 + Multiplierfont), drawBrush, point1)
        Thread.Sleep(1000)
        FindEntityList()



        FindLocalPlayer()


        FindRadarBase()

        FindCrosshairIndex()

        'FindServerBase()
        FindEnginePointer()

        ''FindAttack()
        FindJump()
        ''FindGlowObjectBase()
        ''FindEngineBuffer()
        FindViewMatrix()

        Me.Invalidate()
        FindFlashMaxAlpha()
        FindFlashMaxDuration()


        'MessageBox.Show("Offsets Updated", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Private Sub FindEntityList()
        'add eax, client.dll+xxxx
        'shr ecx, x
        'cmp [eax+04], ecx
        Dim pattern As Byte() = New Byte() {&H5, &H0, &H0, &H0, &H0, &HC1, _
            &HE9, &H0, &H39, &H48, &H4}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer, val2 As Integer

        address = FindAddress(pattern, 1, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)

        address = FindAddress(pattern, 7, mask, dllClientAddress, dllClientSize)
        val2 = _memr.rdByte(address)

        val1 = val1 + val2 - dllClientAddress

        entlist = val1
        Trace.WriteLine("EntityList:" & val1)
    End Sub
    Private Sub FindLocalPlayer()
        '    'lea esi, [eax*4+client.dll+xxxx]
        '    'mov [client.dll+xxxx],edx
        '    'mov eax,[ecx+08]
        '    'mov ecx,[eax+04]
        Dim pattern As Byte() = New Byte() {&H8D, &H34, &H85, &H0, &H0, &H0, _
                &H0, &H89, &H15, &H0, &H0, &H0, _
                      &H0, &H8B, &H41, &H8, &H8B, &H48, _
                      &H0}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer, val2 As Integer

        address = FindAddress(pattern, 3, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)
        address = FindAddress(pattern, 18, mask, dllClientAddress, dllClientSize)
        val2 = _memr.rdByte(address)
        val1 += val2
        val1 -= dllClientAddress

        localPlayer = val1
        baseoff = val1
        Trace.WriteLine("LocalPlayer:" & val1)
    End Sub
    'Private Sub FindScoreBoardBase()
    '    'Find pointer from engine.dll
    '    'mov [ebp-0C],ecx
    '    'mov ecx,[engine.dll+xxxx]
    '    'push ebx
    '    'push esi
    '    'push edi
    '    'moveax,[ecx]
    '    Dim pattern As Byte() = New Byte() {&H89, &H4D, &HF4, &H8B, &HD, &H0, _
    '        &H0, &H0, &H0, &H53, &H56, &H57, _
    '        &H8B, &H1}
    '    Dim mask As String = MaskFromPattern(pattern)
    '    Dim address As Integer, pointer As Integer, offset As Integer

    '    address = FindAddress(pattern, 5, mask, dllEngineAddress, dllEngineSize)
    '    pointer = WinAPI.ReadInt32(scanner.Process.Handle, address)
    '    pointer = pointer - dllEngineAddress

    '    Dim short1 As Byte() = BitConverter.GetBytes(CShort(&H4))
    '    'int 3
    '    'int 3
    '    'push ebp
    '    'mov ebp,esp
    '    'mov eax,[ebp+08]
    '    'mov eax,[acx+eax*8+xx]
    '    'pop ebp
    '    'ret 0004
    '    'int 3
    '    'int 3
    '    pattern = New Byte() {&HCC, &HCC, &H55, &H8B, &HEC, &H8B, _
    '        &H45, &H8, &H8B, &H44, &HC1, &H0, _
    '        &H5D, &HC2, short1(0), short1(1), &HCC, &HCC}
    '    mask = MaskFromPattern(pattern)

    '    address = FindAddress(pattern, 11, mask, dllClientAddress, dllClientSize)
    '    offset = WinAPI.ReadByte(scanner.Process.Handle, address)
    '    'assume constant eax 46
    '    address = WinAPI.ReadInt32(scanner.Process.Handle, dllEngineAddress + pointer)
    '    '0x46 * offset + pointer;
    '    address = address + &H46 * 8 + offset
    '    address -= dllClientAddress
    '    GameOffsets.CL_SCRBRD_BASE = address
    '    PrintAddress("ScoreBoardBase", address)
    'End Sub
    Private Sub FindRadarBase()
        Dim int1 As Byte() = BitConverter.GetBytes(&H100000)
        'mov eax,[client.dll+xxxx]
        'test eax, 00100000
        'je client.dll+2E78C6
        Dim pattern As Byte() = New Byte() {&HA1, &H0, &H0, &H0, &H0, &HA9, _
            int1(0), int1(1), int1(2), int1(3), &H74, &H6, _
            &H81, &HCE, int1(0), int1(1), int1(2), int1(3)}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer, val2 As Integer

        address = FindAddress(pattern, 1, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)

        'mov eax,[edi+xx]
        'mov ecx,[eax+esi*4]
        pattern = New Byte() {&H8B, &H47, &H0, &H8B, &HC, &HB0, _
            &H80, &H79, &HD, &H0}
        mask = MaskFromPattern(pattern)

        address = FindAddress(pattern, 2, mask, dllClientAddress, dllClientSize)
        val2 = _memr.rdByte(address)

        address = val1 + val2 - dllClientAddress

        radarbase = address
        Trace.WriteLine("Radarbase: " & radarbase)
    End Sub
    Private Sub FindViewMatrix()
        Dim pattern As Byte() = {&H53, &H8B, &HDC, &H83, &HEC, &H8, _
            &H83, &HE4, &HF0, &H83, &HC4, &H4, _
            &H55, &H8B, &H6B, &H4, &H89, &H6C, _
            &H24, &H4, &H8B, &HEC, &HA1, &H0, _
            &H0, &H0, &H0, &H81, &HEC, &H98, _
            &H3, &H0, &H0}
        Dim address As Integer = FindAddress(pattern, 0, "xxxxxxxxxxxxxxxxxxxxxxx????xxxxxx", dllClientAddress, dllClientSize)
        If address = 0 Then
            Return
        End If
        address = _memr.rdInt(address + &H4EE)
        address -= dllClientAddress
        address += &H80
        vmatrixshit = address
        Trace.WriteLine("ViewMatrix:" & address)
    End Sub
    Private Sub FindCrosshairIndex()
        If localPlayer = &H0 Then
            Trace.WriteLine("LocalPlayer-offset is invalid, won't find xhair this way.")
            Return
        End If

        'push esi
        'push edi
        'mov edi,ecx
        'mov [edi+xxxx], ????
        'mov ecx,[client.dll+????]
        'cmp ecx, client.dll+????
        'jne client.dll+????
        'mov eax,[client.dll+????]
        'jmp client.dll+????
        Dim pattern As Byte() = New Byte() {&H56, &H57, &H8B, &HF9, &HC7, &H87, _
            &H0, &H0, &H0, &H0, &H0, &H0, _
            &H0, &H0, &H8B, &HD, &H0, &H0, _
            &H0, &H0, &H81, &HF9, &H0, &H0, _
            &H0, &H0, &H75, &H7, &HA1, &H0, _
            &H0, &H0, &H0, &HEB, &H7}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer

        address = FindAddress(pattern, 6, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)
        'val1 -= localPlayer;

        '= val1
        crosshairOff = val1

        Trace.WriteLine("CrosshairIndex:" & val1)
    End Sub

    'Private Shared Sub FindAttack()
    '    Dim int1 As Byte() = BitConverter.GetBytes(&HFFFFFFFDUI)
    '    'mov [client.dll+xxxx],edx
    '    'mov edx, [client.dll+????]
    '    'test dl, 03
    '    'je client.dll+????
    '    'or esi,04
    '    'test al,04
    '    'mov edi,FFFFFFFD
    '    Dim pattern As Byte() = New Byte() {&H89, &H15, &H0, &H0, &H0, &H0, _
    '        &H8B, &H15, &H0, &H0, &H0, &H0, _
    '        &HF6, &HC2, &H3, &H74, &H3, &H83, _
    '        &HCE, &H4, &HA8, &H4, &HBF, int1(0), _
    '        int1(1), int1(2), int1(3)}
    '    Dim mask As String = MaskFromPattern(pattern)
    '    Dim address As Integer, val1 As Integer

    '    address = FindAddress(pattern, 2, mask, dllClientAddress, dllClientSize)
    '    'Find x1
    '    If address <> 0 Then
    '        val1 = WinAPI.ReadInt32(scanner.Process.Handle, address)
    '        'Read x1
    '        address = val1 - dllClientAddress
    '    End If

    '    GameOffsets.CL_LOCAL_BUTTONS_ATTACK = address
    '    PrintAddress("attack", address)
    'End Sub

    Private Sub FindFlashMaxAlpha()
        '<<<
        Dim pattern As Byte() = New Byte() {&HF, &H2F, &HF2, &HF, &H87, &H0, _
            &H0, &H0, &H0, &HF3, &HF, &H10, _
            &HA1, &H0, &H0, &H0, &H0, &HF, _
            &H2F, &HCC, &HF, &H83}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer

        address = FindAddress(pattern, 13, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)


        flashmaxalpha = val1
        Trace.WriteLine("Flashmaxalpha:" & val1)
    End Sub
    Private Sub FindFlashMaxDuration()
        '<<<
        Dim pattern As Byte() = New Byte() {&H84, &HC0, &HF, &H84, &H0, &H0, _
            &H0, &H0, &HF3, &HF, &H10, &H87, _
            &H0, &H0, &H0, &H0, &HF, &H57, _
            &HC9, &HF, &H2E, &H86}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer

        address = FindAddress(pattern, 12, mask, dllClientAddress, dllClientSize)
        val1 = _memr.rdInt(address)

        flashmaxduration = val1
        Trace.WriteLine("FlashMaxDuration:" & val1)
    End Sub
    Private Sub FindJump()
        Dim int1 As Byte() = BitConverter.GetBytes(&HFFFFFFFDUI)
        'mov [client.dll+xxxx],edx
        'mov edx,[client.dll+xxxx]
        'test dl, 03
        'je client.dll+????
        'or esi,08
        'test al,08
        'mov edi,FFFFFFFD
        Dim pattern As Byte() = New Byte() {&H89, &H15, &H0, &H0, &H0, &H0, _
            &H8B, &H15, &H0, &H0, &H0, &H0, _
            &HF6, &HC2, &H3, &H74, &H3, &H83, _
            &HCE, &H8, &HA8, &H8, &HBF, int1(0), _
            int1(1), int1(2), int1(3)}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer

        address = FindAddress(pattern, 2, mask, dllClientAddress, dllClientSize)
        'Find x1
        If address <> 0 Then
            val1 = _memr.rdInt(address)
            'Read x1
            address = val1 - dllClientAddress
        End If
        jump = address
        Trace.WriteLine("jump:" & address)
    End Sub
    'Private Shared Sub FindServerBase()
    '    '<<<<
    '    Dim pattern As Byte() = New Byte() {&H81, &HC6, &H0, &H0, &H0, &H0, _
    '        &H81, &HFE, &H0, &H0, &H0, &H0, _
    '        &H7C, &HEB, &H8B, &HD, &H0, &H0, _
    '        &H0, &H0, &H5F, &H5E, &H85, &HC9, _
    '        &H74, &HF, &H8B, &H1, &HFF, &H50, _
    '        &H4, &HC7, &H5}
    '    Dim mask As String = MaskFromPattern(pattern)
    '    Dim address As Integer, val1 As Integer

    '    address = FindAddress(pattern, 16, mask, dllClientAddress, dllClientSize)
    '    'Find x1
    '    If address <> 0 Then
    '        val1 = WinAPI.ReadInt32(scanner.Process.Handle, address)
    '        'Read x1
    '        address = val1 - dllClientAddress
    '    End If

    '    GameOffsets.CL_SRV_BASE = address
    '    PrintAddress("ServerBase", address)
    'End Sub
    Private Sub FindEnginePointer()
        '<<<<
        Dim pattern As Byte() = New Byte() {&HC2, &H0, &H0, &HCC, &HCC, &H8B, _
            &HD, &H0, &H0, &H0, &H0, &H33, _
            &HC0, &H83, &HB9}
        Dim mask As String = MaskFromPattern(pattern)
        Dim address As Integer, val1 As Integer

        address = FindAddress(pattern, 7, mask, dllEngineAddress, dllEngineSize)
        'Find x1
        If address <> 0 Then
            val1 = _memr.rdInt(address)
            'Read x1
            address = val1 - dllEngineAddress
        End If
        offsetclientstatez = address
        'GameOffsets.EN_ENGINE_POINTER = address
        Trace.WriteLine("EnginePointer:" & address)
    End Sub
    'Private Shared Sub FindEngineBuffer()
    '    Dim pattern As Byte() = New Byte() {&H66, &HA1, &H8C, &HB, &HE3, &HF, _
    '        &H8B, &HF2, &H66, &H89, &H7, &H8A, _
    '        &H2}
    '    Dim mask As String = "xx????xxxxxxx"
    '    Dim address As Integer, val1 As Integer

    '    address = FindAddress(pattern, 2, mask, dllEngineAddress, dllEngineSize)
    '    If address <> 0 Then
    '        val1 = WinAPI.ReadInt32(scanner.Process.Handle, address)
    '        'Read x1
    '        address = val1 - dllEngineAddress
    '    End If

    '    GameOffsets.EN_ENGINE_BUFFER = address
    '    PrintAddress("EngineBuffer", address)
    'End Sub
    'Private Shared Sub FindMapName()
    '    Dim pattern As Byte() = New Byte() {&H72, &HEF, &HC6, &H0, &H0, &HB8, _
    '        &H0, &H0, &H0, &H0, &H80, &H3D, _
    '        &H0, &H0, &H0, &H0, &H0, &H74, _
    '        &H15, &H8A, &H8, &H80, &HF9}
    '    Dim mask As String = MaskFromPattern(pattern)
    '    Dim address As Integer, val1 As Integer

    '    address = FindAddress(pattern, 6, mask, dllEngineAddress, dllEngineSize)
    '    val1 = WinAPI.ReadInt32(scanner.Process.Handle, address)

    '    address = val1 - dllEngineAddress

    '    GameOffsets.CL_LOCAL_CURRENT_MAP = address
    '    PrintAddress("CurrentMap", address)
    'End Sub
    'Private Shared Sub FindGlowObjectBase()
    '    '<<<<<
    '    Dim pattern As Byte() = New Byte() {&H8D, &H8F, &H0, &H0, &H0, &H0, _
    '        &HA1, &H0, &H0, &H0, &H0, &HC7, _
    '        &H4, &H2, &H0, &H0, &H0, &H0, _
    '        &H89, &H35, &H0, &H0, &H0, &H0, _
    '        &H8B, &H51}
    '    Dim mask As String = MaskFromPattern(pattern)
    '    Dim address As Integer, val1 As Integer

    '    address = FindAddress(pattern, 7, mask, dllClientAddress, dllClientSize)
    '    'Find x1
    '    If address <> 0 Then
    '        val1 = WinAPI.ReadInt32(scanner.Process.Handle, address)
    '        'Read x1
    '        address = val1 - dllClientAddress
    '    End If
    '    GameOffsets.CL_GLOWMANAGER = address
    '    PrintAddress("GlowObjectBase", address)
    'End Sub

    Private Shared Function MaskFromPattern(pattern As Byte()) As String
        Dim builder As New StringBuilder()
        For Each data As Byte In pattern
            If data = &H0 Then
                builder.Append("?"c)
            Else
                builder.Append("x"c)
            End If
        Next
        Return builder.ToString()
    End Function
    Private Shared Function FindAddress(pattern As Byte(), offset As Integer, mask As String, dllAddress As Integer, dllSize As Long, Optional wNonZero As Boolean = False) As Integer
        Dim address As Integer = 0
        Dim i As Integer = 0
        While i < dllSize AndAlso address = 0
            scanner.Address = New IntPtr(dllAddress + i)
            address = scanner.FindPattern(pattern, mask, offset).ToInt32()
            scanner.ResetRegion()
            i += MAX_DUMP_SIZE
        End While

        Return address
    End Function

#End Region
    Private rcs, vrcs As Boolean
    Private offsetclientstatez As Integer

    Dim clientstate = _memr.rdInt(engine + offsetclientstatez)
    Dim setviewangleaddy As Integer = clientstate + offsetSetViewAngles

    Sub rcsaimbot()
        clientstate = _memr.rdInt(engine + offsetclientstatez)
        setviewangleaddy = clientstate + offsetSetViewAngles

        Do
            '   Trace.WriteLine("test")
            Thread.Sleep(5)

            Static vecpunch As Vector3 = Vector3.Zero




            ' rcs = True
            Try


                If Player.shotsfired > 0 And rcs Then
                    '   Trace.WriteLine(Player.vecpunch)
                    Dim recoiladd As Single



                    recoiladd = 2.0F


                    Dim currentpunch = Player.vecpunch - vecpunch
                    Dim viewangles2 = convertTovector3(_memr.rdVector(setviewangleaddy))
                    Dim newviewangles = viewangles2 - currentpunch * recoiladd
                    newviewangles = t24(Kappa.MathUtils.ClampAngle(t23(newviewangles)))

                    writeViewAngles(t23(newviewangles), setviewangleaddy)
                    '    Trace.WriteLine(newviewangles.X & " old ones " & viewangles2.X)

                End If
                vecpunch = Player.vecpunch

            Catch ex As Exception
                Dim stuff As String = ex.ToString
            End Try




        Loop
    End Sub

    Function t23(ByVal src As Vector3) As Kappa.MathObjects.Vector3
        Return New Kappa.MathObjects.Vector3(src.X, src.Y, src.Z)
    End Function
    Function t24(ByVal src As Kappa.MathObjects.Vector3) As Vector3
        Return New Vector3(src.X, src.Y, src.Z)
    End Function
    Sub writeViewAngles(angles As Kappa.MathObjects.Vector3, adress As Integer)
        '  Trace.WriteLine("compensating")
        Dim data() As Byte = New Byte(12) {}
        Array.Copy(BitConverter.GetBytes(angles.X), 0, data, 0, 4)
        Array.Copy(BitConverter.GetBytes(angles.Y), 0, data, 4, 4)
        Array.Copy(BitConverter.GetBytes(angles.Z), 0, data, 8, 4)
        _memr.WrtMem(adress, data)


    End Sub
    Private Sub frmOverlay_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim rect As New Rectangle
            Dim systemPoint As New Point
            Dim hwnd As IntPtr = Process.GetProcessesByName("csgo").First.MainWindowHandle
            ClientToScreen(hwnd, systemPoint)
            GetClientRect(hwnd, rect)
            If rect.Right = 0 And rect.Bottom = 0 And systemPoint = Point.Empty Then
                Me.WindowState = FormWindowState.Maximized
                Me.Location = Point.Empty
            Else
                Me.WindowState = FormWindowState.Normal
                Me.Location = systemPoint
                Me.Width = rect.Right
                Me.Height = rect.Bottom
            End If


            'Trace.WriteLine(Cursor.Position)
            'Trace.WriteLine(Me.Location.X)


        Catch ex As Exception
            MessageBox.Show("Make sure you are running csgo in windowed fullscreen or windowed no border")
        End Try


        menuPos = New Point(Me.Width - menuWidth - menuWidth / 4, menuHeight / 4)






        ' sendmail()
        '  MsgBox("Checking for legitimate copy")

        ' url = New System.Uri("")
        Try

            '  SetHook()


            Me.Text = GetUniqueKey(GetRandom(12, 72))


            _initalStyle = GetWindowLong(Me.Handle, GWL.ExStyle)

            SetWindowLong(Me.Handle, GWL.ExStyle, _initalStyle Or WS_EX.Layered Or WS_EX.Transparent)

            SetLayeredWindowAttributes(Me.Handle, 20, 250 * 0.9, LWA.Alpha)
            ' Set our Keyboard Hook
            SetHook()
            ' Create our new instances of Player and EnemyData
            Player = New dildo.VectorMeData
            RussianCommandoUnit = New List(Of dildo.VectorMeData)
            ' Dim TargetProcess As Process() = Process.GetProcessesByName("csgo")
            ' TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
            '
            'Dim rectangle As Rectangle = getRect(TargetProcessHandle)
            'Trace.WriteLine(rectangle)
            ' MessageBox.Show(rectangle.ToString)
            draw()
            'Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()

            'For i = 0 To nics.Count - 1


            '    ' MessageBox.Show(nics(i).GetPhysicalAddress.ToString)
            '    If nics(i).GetPhysicalAddress.ToString = "08863B935253" Or nics(i).GetPhysicalAddress.ToString = "8863B935253" Or nics(i).GetPhysicalAddress.ToString = "C8E0EB4F7C93" Then
            '        test = 1

            '    End If


            ' jemoeder = "quinten francois"
            '    esp = False
            _memr.StartProcess()

            declient = _memr.DllImageAddress("client.dll")
            engine = _memr.DllImageAddress("engine.dll")
            FindOffsets()

            dx2 = New Thread(New ThreadStart(AddressOf Me.triggerloop))
            dx3 = New Thread(New ThreadStart(AddressOf Me.rcsaimbot))
            dx = New Thread(New ThreadStart(AddressOf Me.drawDX))


            dx3.IsBackground = True
            dx3.Start()

            dx2.IsBackground = True
            dx2.Start()

            dx.IsBackground = True
            dx.Start()



        Catch ex As Exception
            ' MessageBox.Show("")
            Me.Close()
            MsgBox("Contact your administrator for more info")
            UnHook()


            Me.Close()
            Me.Dispose()
        End Try











    End Sub
    Private Function FadeBitmap(ByVal bmp As Bitmap, ByVal opacity As Single) As Bitmap
        Dim bmp2 As New Bitmap(bmp.Width, bmp.Height, Imaging.PixelFormat.Format32bppArgb)
        opacity = Math.Max(0, Math.Min(opacity, 1.0F))

        Using ia As New Imaging.ImageAttributes
            Dim cm As New Imaging.ColorMatrix
            cm.Matrix33 = opacity
            ia.SetColorMatrix(cm)
            Dim destpoints() As PointF = {New Point(0, 0), New Point(bmp.Width, 0), New Point(0, bmp.Height)}
            Using g As Graphics = Graphics.FromImage(bmp2)
                g.DrawImage(bmp, destpoints, _
                New RectangleF(Point.Empty, bmp.Size), GraphicsUnit.Pixel, ia)
            End Using
        End Using
        Return bmp2
    End Function

    Private Sub frmOverlay_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        'Dim stopwatch1 As New Stopwatch
        'Dim formGraphics As System.Drawing.Graphics = Me.CreateGraphics()
        'Dim drawString As String
        'Dim drawFont As New System.Drawing.Font("Arial", 10)
        'Dim drawBrush As New  _
        '   System.Drawing.SolidBrush(System.Drawing.Color.Cyan)
        'Dim drawBrush2 As New  _
        ' System.Drawing.SolidBrush(System.Drawing.Color.Black)

        marg.Left = 0
        marg.Top = 0
        marg.Right = Me.Width
        marg.Bottom = Me.Height
        'Dim picBox As New PictureBox
        'picBox.Location = New Point(Me.Width - 300, Me.Height - 300)
        'picBox.Image = My.Resources._299
        'picBox.Width = 300
        'picBox.Height = 100
        'Me.Controls.Add(picBox)


        'stopwatch1.Start()
        'If stopwatch1.ElapsedMilliseconds > 1000 Then
        '    picBox.Location = picBox.Location + New Point(20, 20)
        'End If
        DwmExtendFrameIntoClientArea(Me.Handle, marg)
    End Sub
#End Region

#Region "Russian Drawing"
    Sub draw()
        'checkSaved()
        Dim present As New PresentParameters
        'present.BackBufferCount = 1
        present.Windowed = True
        present.SwapEffect = SwapEffect.Discard

        '  Dim pfc As New PrivateFontCollection
        '  pfc.AddFontFile(Application.StartupPath & "\font.ttf")
        '   MessageBox.Show(Application.StartupPath & "\font.ttf")
        '  Dim font1, font2, font3 As System.Drawing.Font
        ' font1 = New System.Drawing.Font(pfc.Families(0), 30, FontStyle.Bold)
        ' font2 = New System.Drawing.Font(pfc.Families(0), 9, FontStyle.Regular)
        '  font3 = New System.Drawing.Font(pfc.Families(0), 10, FontStyle.Bold)
        present.BackBufferCount = 2
        present.BackBufferFormat = Direct3D9.Format.A8R8G8B8

        present.BackBufferHeight = Me.Height
        present.BackBufferWidth = Me.Width

        device = New Device(New SlimDX.Direct3D9.Direct3D(), 0, DeviceType.Hardware, Me.Handle, CreateFlags.HardwareVertexProcessing, present)


        dxLine = New Direct3D9.Line(Me.device)

        If fontName = "" Then
            fontName = "Microsoft Sans Serif"
        Else

        End If
        If Multiplierfont = 0 Then
            Multiplierfont = 1
        End If
        Try



            dxFont = New Direct3D9.Font(Me.device, New System.Drawing.Font("" & fontName, 25 + Multiplierfont, FontStyle.Bold))
            dxFont2 = New Direct3D9.Font(Me.device, New System.Drawing.Font("" & fontName, 9 + Multiplierfont, FontStyle.Regular))
            dxfont3 = New Direct3D9.Font(Me.device, New System.Drawing.Font("" & fontName, 10 + Multiplierfont, FontStyle.Bold))


        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        ' Dim dxbitmap As Bitmap = New Bitmap(Application.StartupPath() & "\sprite.bmp")
        ' dxtexture = FromBitmap(device, dxbitmap, Usage.Dynamic, Pool.Default)
        'dxsprite = New Sprite(device)



    End Sub


    Function ResizeBitmap(ByVal bitmapToResize As Bitmap, ByVal width As Integer, ByVal height As Integer)
        'make a blank bitmap the correct size
        Dim NewBitmap As New Bitmap(width, height)
        'make an instance of graphics that will draw on "NewBitmap"
        Dim BitmpGraphics As Graphics = Graphics.FromImage(NewBitmap)
        'work out the scale factor
        Dim scaleFactorX As Integer = bitmapToResize.Width / width
        Dim scaleFactorY As Integer = bitmapToResize.Height / width
        'resize the graphics
        BitmpGraphics.ScaleTransform(scaleFactorX, scaleFactorY)
        'draw the bitmap to NewBitmap
        BitmpGraphics.DrawImage(bitmapToResize, 0, 0)
        Return NewBitmap
    End Function



    Private punchsens As Single
    Private punchAnglesD As dildo.Vect3d
    Private hotkey As Integer = 1
    Private hotkeyAim As Integer = 1
    Private hotkeyaimtext As String = "Set New Key"

    Sub getkeytrigger()
        hotkey = 0
        Do While hotkey = 0
            hotkeytext = "Waiting for input"
            Dim shit As New Kappa.KeyUtils







            Thread.Sleep(20)

            shit.Update()

            For Each item In shit.KeysThatWentDown()

                hotkey = Integer.Parse(item)


                hotkeytext = "Set New Key"
                Exit Sub

            Next

        Loop


    End Sub
    'Sub getkeyAim()
    '    hotkeyAim = 0
    '    Do While hotkeyAim = 0
    '        hotkeyaimtext = "Waiting for input"
    '        Dim shit As New Kappa.KeyUtils







    '        Thread.Sleep(20)

    '        shit.Update()

    '        For Each item In shit.KeysThatWentDown()

    '            hotkeyAim = Integer.Parse(item)


    '            hotkeyaimtext = "Set New Key"
    '            Exit Sub

    '        Next

    '    Loop


    'End Sub
    Sub getcrossid()
        Dim entityincross, crosshealth, crossteam As Integer
        Dim enemyincross As Integer
        Dim punchlimitxy As Single = punchsens



        If GetAsyncKeyState(hotkey) <> 0 Then
            triggerbool = True
        Else
            triggerbool = False
        End If

        If GetAsyncKeyState(&H1) <> 0 Then
            triggerbool = False

        End If

        If triggerbool Then
            punchAnglesD = _memr.rdVector(Player.toewijzingsadres + pAngs)


            entityincross = _memr.rdInt(Player.toewijzingsadres + (crosshairOff))
            enemyincross = _memr.rdInt(declient + entlist + ((entityincross - 1) * &H10))
            crossteam = _memr.rdInt(enemyincross + teamoff)
            '        Trace.WriteLine(Player.Team & " " & crossteam & " " & entityincross & boolAttackTeam)
            If (Player.Team <> crossteam And entityincross <> 0) Then

                '  If GetAsyncKeyState(&H1) <> 0 Then

                If punchAnglesD.x < punchlimitxy And punchAnglesD.y < punchlimitxy Then
                    Thread.Sleep(triggerdelay)

                    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, UIntPtr.Zero)
                    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, UIntPtr.Zero)


                End If




                '   _ShadowText2("Player Locked ", pos33, Color.White)




                'End If

            End If


        End If



    End Sub

    Sub triggerloop()
        Do
            ' boolBox = True
            System.Threading.Thread.Sleep(2)
            getcrossid()
        Loop
    End Sub

    Sub checksetting(Optional leftorright As Integer = 1)


        Select Case entNumber

            Case 3
                If esp = True Then

                End If
                esp = Not esp

                'Case 2
                '    boolBox = Not boolBox

                '    '    If boolBox = True Then
                '    'bool3D = False

                '    ' End If
                'Case 3
                '    bool3D = Not bool3D
                '    ' If bool3D = True Then
                '    '  boolBox = False

                '    ' End If
            Case 4
                boolBoneESP = Not boolBoneESP





            Case 5
                boolWeapon = Not boolWeapon


            Case 6


                boolname = Not boolname

            Case 7
                boolhealthbar = Not boolhealthbar
            Case 8
                If leftorright = 0 And renderDistance > 0 Then
                    'left

                    renderDistance -= 1


                ElseIf leftorright = 2 And renderDistance < 400 Then
                    'right
                    renderDistance += 1


                End If

            Case 9

                'Static intColor As Integer = 2
                'Dim color(10) As Color
                'color(2) = Drawing.Color.White
                'color(1) = Drawing.Color.Yellow
                'color(0) = Drawing.Color.Blue
                'color(3) = Drawing.Color.Green
                'color(4) = Drawing.Color.Red
                'color(5) = Drawing.Color.DarkGoldenrod
                'color(6) = Drawing.Color.Lime
                'color(7) = Drawing.Color.Purple
                'color(8) = Drawing.Color.Fuchsia
                'color(9) = Drawing.Color.Black
                'color(10) = Drawing.Color.DeepSkyBlue

                'If leftorright = 0 And intColor > 0 Then
                '    'left

                '    intColor -= 1


                'ElseIf leftorright = 2 And intColor < color.Count - 1 Then
                '    'right
                '    intColor += 1


                'End If

                colorDialiski.ShowDialog()
                Me.Focus()
                skeletkleurke = colorDialiski.Color
                ' skeletkleurke = Color(intColor)
            Case 10

                'Static Pattern As Integer = 0
                'Dim xxx(4) As Color
                'xxx(0) = Drawing.Color.Red
                'xxx(1) = Drawing.Color.Yellow

                'xxx(2) = Drawing.Color.Green
                'xxx(3) = Drawing.Color.Blue
                'xxx(4) = Drawing.Color.Blue
                'If leftorright = 0 And Pattern > 0 Then
                '    Pattern -= 1


                'ElseIf leftorright = 2 And Pattern < 4 Then
                '    Pattern += 1
                'End If
                'If Pattern = 0 Then
                '    kleurkevanhealthboxbg = Color.Red
                '    kleurkevandenforegrond = Color.Yellow
                'ElseIf Pattern = 1 Then
                '    kleurkevanhealthboxbg = Color.Blue
                '    kleurkevandenforegrond = Color.Green

                'ElseIf Pattern = 2 Then
                '    kleurkevanhealthboxbg = Color.Red
                '    kleurkevandenforegrond = Color.Green

                'ElseIf Pattern = 3 Then
                '    kleurkevanhealthboxbg = Color.BlanchedAlmond
                '    kleurkevandenforegrond = Color.PaleTurquoise
                'ElseIf Pattern = 4 Then
                '    kleurkevanhealthboxbg = Color.Red
                '    kleurkevandenforegrond = Color.Lime

                'End If
                colorDialiski.ShowDialog()
                Me.Focus()
                kleurkevandenforegrond = colorDialiski.Color


                colorDialiski.ShowDialog()

                kleurkevanhealthboxbg = colorDialiski.Color
                'nieuwe color voorgrond

                'nieuwe color achtergrond


                'coolfade = Not coolfade
            Case 11

                'Static intColorr As Integer = 4
                'Dim color(10) As Color
                'color(2) = Drawing.Color.White
                'color(1) = Drawing.Color.Yellow
                'color(0) = Drawing.Color.Blue
                'color(3) = Drawing.Color.Green
                'color(4) = Drawing.Color.Red
                'color(5) = Drawing.Color.Orange
                'color(6) = Drawing.Color.Lime
                'color(7) = Drawing.Color.RoyalBlue
                'color(8) = Drawing.Color.DarkRed
                'color(9) = Drawing.Color.LightYellow
                'color(10) = Drawing.Color.DeepSkyBlue

                'If leftorright = 0 And intColorr > 0 Then
                '    'left


                '    intColorr -= 1


                'ElseIf leftorright = 2 And intColorr < 10 Then
                '    'right

                '    intColorr += 1

                'End If
                Me.Focus()
                colorDialiski.ShowDialog()

                kleurTeam = colorDialiski.Color

            Case 12
                If leftorright = 0 And skeletonsize > 1 Then
                    'left


                    skeletonsize -= 1


                ElseIf leftorright = 2 And skeletonsize < 10 Then
                    'right

                    skeletonsize += 1

                End If


            Case 13

            Case 17 'radar


            Case 30
                trigger = Not trigger

            Case 31

            Case 32
                If leftorright = 0 And triggerdelay > 0 Then
                    'left


                    triggerdelay -= 1


                ElseIf leftorright = 2 And triggerdelay < 1000 Then
                    'right

                    triggerdelay += 1

                End If
            Case 33
                If leftorright = 0 And punchsens > 0.0 Then
                    'left


                    punchsens -= 0.1F


                ElseIf leftorright = 2 And punchsens < 3.0 Then
                    'right

                    punchsens += 0.1F


                End If
            Case 34

                tap = Not tap
            Case 35
                boolAttackTeam = Not boolAttackTeam


            Case 36

                dx4 = New Thread(New ThreadStart(AddressOf getkeytrigger))

                dx4.IsBackground = True
                dx4.Start()

                'emptyness


            Case 40
                aimbotmenu = Not aimbotmenu




            Case 41

            Case 42
                boolAimStyle = Not boolAimStyle


            Case 43
                If leftorright = 0 And AimSpeed > 1 Then
                    'left


                    AimSpeed -= 1


                ElseIf leftorright = 2 And AimSpeed < 200 Then
                    'right

                    AimSpeed += 1

                End If
            Case 44
                boolHold = Not boolHold

                boolAim = False

            Case 45

                boolRage = Not boolRage
                If boolRage = False Then
                    AimSpeed = 25
                    boolHold = True
                ElseIf boolRage = True Then
                    AimSpeed = 100
                    boolHold = False
                    hotkey = hotkeyAim
                    punchsens = 0.01
                    triggerdelay = 25

                End If
            Case 46

                'dx5 = New Thread(New ThreadStart(AddressOf getkeyAim))

                'dx5.IsBackground = True
                'dx5.Start()


            Case 50
                Misc = Not Misc
            Case 51
                Static counter As Integer
                If crosshair = True And counter = 0 Or crosshair = False And counter = 0 Then
                    crosshairsize = 100
                    crosshairanimation.Start()
                    counter += 1
                End If
                crosshair = Not crosshair
            Case 52
                'Static intColorrr As Integer = 4
                'Dim color(10) As Color
                'color(2) = Drawing.Color.White
                'color(1) = Drawing.Color.Yellow
                'color(0) = Drawing.Color.Blue
                'color(3) = Drawing.Color.Green
                'color(4) = Drawing.Color.Red
                'color(5) = Drawing.Color.Orange
                'color(6) = Drawing.Color.Lime
                'color(7) = Drawing.Color.MidnightBlue
                'color(8) = Drawing.Color.PapayaWhip
                'color(9) = Drawing.Color.LightYellow
                'color(10) = Drawing.Color.DeepSkyBlue

                'If leftorright = 0 And intColorrr > 0 Then
                '    'left


                '    intColorrr -= 1


                'ElseIf leftorright = 2 And intColorrr < 10 Then
                '    'right

                '    intColorrr += 1

                'End If
                colorDialiski.ShowDialog()
                Me.Focus()
                '    UnHook()

                crosshaircolor = colorDialiski.Color
                '  SetHook()
            Case 53
                If leftorright = 0 And crosshairsize > 1 Then
                    'left


                    crosshairsize -= 1


                ElseIf leftorright = 2 And crosshairsize < 100 Then
                    'right

                    crosshairsize += 1

                End If
            Case 54
                warningSyst = Not warningSyst





                'emptyness 30 places


            Case 55
                boolRainbow = Not boolRainbow







            Case 80
                Settings = Not Settings
            Case 81

            Case 82

            Case 83

                isRunning = False
                isRunning = True


            Case 84
                If leftorright = 0 And intDelayCompensation > 0 Then
                    'left


                    intDelayCompensation -= 1


                ElseIf leftorright = 2 And intDelayCompensation < 20 Then
                    'right

                    intDelayCompensation += 1

                End If

            Case 85
                Me.Focus()

                hackFont.ShowDialog()


                fontName = hackFont.Font.Name
                '   My.Application.
                '  MessageBox.Show(fontName)

            Case 86
                If leftorright = 0 And Multiplierfont > 0 Then
                    'left


                    Multiplierfont -= 1


                ElseIf leftorright = 2 And Multiplierfont < 20 Then
                    'right

                    Multiplierfont += 1

                End If
            Case 87
                Try
a:                  menuPos.X = Integer.Parse(InputBox("Please give new x coordinates for the menu", "MenuPosition", 0, Screen_Size_X / 2, Screen_Size_Y / 2))
                    menuPos.Y = Integer.Parse(InputBox("Please give new y coordinates for the menu", "MenuPosition", 0, Screen_Size_X / 2, Screen_Size_Y / 2))
                Catch ex As Exception
                    If MessageBox.Show(ex.ToString, "error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error) = Forms.DialogResult.Retry Then
                        GoTo a
                    Else

                    End If

                End Try



            Case 120
            Case 250



            Case Else


        End Select


    End Sub
    Dim Multiplierfont As Integer

    Dim togglekey As Keys = Keys.F5

    Sub drawthinbox(point As Point, w As Integer, height As Integer, thickness As Integer, color2 As Color)
        DrawLine(point.X, point.Y, point.X + w, point.Y, thickness, color2)


        DrawLine(point.X, point.Y, point.X, point.Y + height, thickness, color2)
        '  DrawLine(point.X, point.Y, point.X + w, point.Y, thickness, color2)
        DrawLine(point.X + w, point.Y, point.X + w, point.Y + height, thickness, color2)

        DrawLine(point.X, point.Y + height, point.X + w, point.Y + height, thickness, color2)


    End Sub


    Sub menu(start As Integer)
        'Dim colorlist() As Color
        ' Dim intSettingNum As Integer = 1
        ' colorlist(1) = Color.Aqua
        Dim interval2 As Integer = start

    End Sub

    Private currentItems As Integer = 3
    Private intmaxnum As Integer = 3

    Sub tekenKleurke()
        Do

            Thread.Sleep(20)
            ' DrawFilledBoxie(menuPos.X, menuPos.Y, menuWidth, menuHeight, 250, rainbow())

        Loop

    End Sub
    Private fontName As String




    'Sub menuDrawer()


    '    Dim colorTextOn, Colortextoff As Color
    '    Dim menuscrollcolor As Color = Color.OrangeRed

    '    Dim intex As Integer = 10

    '    Dim textcolor As Color = Color.White
    '    Dim boxcolor As Color = Color.OrangeRed
    '    Dim good, bad, edgecolor As Color

    '    edgecolor = Color.Black
    '    good = Color.Lime
    '    bad = Color.Red
    '    colorTextOn = Color.Red
    '    Colortextoff = Color.White



    '    If DrawMenu Then
    '        Thread.Sleep(5)
    '        Dim intslut As Integer = 2
    '        '  DrawFilledBoxie(menuPos.X - intex - intslut / 2, menuPos.Y - intex - intslut / 2, menuWidth + intex * 2 + intslut, menuHeight + intex * 2 + intslut, 50, Color.FromArgb(102, 153, 153)) 'Color.FromArgb(Not skeletkleurke.R, Not skeletkleurke.G, Not skeletkleurke.B
    '        ' DrawFilledBoxie(menuPos.X - intex - intslut / 2, menuPos.Y - intex - intslut / 2, menuWidth + intex * 2 + intslut, menuHeight + intex * 2 + intslut, 50, Color.DarkGoldenrod)
    '        ' DrawFilledBoxie(menuPos.X - intex, menuPos.Y - intex, menuWidth + intex * 2, menuHeight + intex * 2, 255, Color.FromArgb(255, 86, 86, 86))

    '        DrawFilledBoxie(menuPos.X - intex, menuPos.Y - intex, menuWidth + intex * 2, menuHeight + intex * 2, 255, Color.FromArgb(100, 86, 86, 86))

    '        'DrawLine(menuPos.X - intex, menuPos.Y - intex, menuPos.X + menuWidth + intex * 2, menuPos.Y - intex, 10, Color.Black)

    '        'DrawFilledBoxie(menuPos.X, menuPos.Y, menuWidth, menuHeight, 250, Color.FromArgb(255, 100, 100, 100))
    '        DrawFilledBoxie(menuPos.X, menuPos.Y, menuWidth, menuHeight, 250, Color.FromArgb(100, 100, 100))

    '        ' DrawLine(menuPos.X, menuPos.Y + menuHeight - 50, menuPos.X, menuPos.Y + 50, 2, Color.Black)

    '        Dim menuwidthfactor As Single = 1.5F


    '        Dim intlimit As Integer = currentItems

    '        '   MessageBox.Show(intlimit)
    '        '     System.Diagnostics.Trace.WriteLine(intlimit & "           " & entNumber)


    '        Dim intStarts() As Integer = {3, 30, 40, 50, 80}
    '        Dim intEnds() As Integer = {12, 36, 46, 55, 88}
    '        Dim intStates() As Boolean = {esp, trigger, aimbotmenu, Misc, Settings}
    '        menuHeight = (currentItems * 15) + 30
    '        If down = True And y1 <= 15 * currentItems Then



    '            ' MessageBox.Show("PRESS")
    '            'If esp = False And entNumber = 1 Then
    '            '    entNumber = 29
    '            '    '     MessageBox.Show("10")
    '            'End If
    '            'If trigger = False And entNumber = 30 Then
    '            '    entNumber = 49
    '            'ElseIf trigger = True And entNumber = 32 Then
    '            '    entNumber = 49
    '            'End If
    '            'If Misc = False And entNumber = 50 Then
    '            '    entNumber = 79
    '            'End If
    '            For i = 0 To intStarts.Count - 2
    '                If intStates(i) = False And intStarts(i) = entNumber Then
    '                    entNumber = intStarts(i + 1) - 1
    '                ElseIf intStates(i) = True And intEnds(i) = entNumber Then
    '                    entNumber = intStarts(i + 1) - 1
    '                End If

    '            Next



    '            y1 += 15
    '            entNumber += 1
    '            down = False

    '        End If


    '        If up = True And entNumber > 1 Then
    '            'If esp = False And entNumber = 11 Then

    '            '    entNumber = 2
    '            '    '  MessageBox.Show("14")

    '            'End If
    '            'If trigger = False And entNumber = 16 Then
    '            '    entNumber = 12

    '            'End If
    '            For i = 1 To intStarts.Count - 1
    '                If intStates(i - 1) = False And intStarts(i) = entNumber Then
    '                    entNumber = intStarts(i - 1) + 1
    '                ElseIf intStates(i - 1) = True And intStarts(i) = entNumber Then
    '                    entNumber = intEnds(i - 1) + 1
    '                End If

    '            Next


    '            y1 -= 15
    '            entNumber -= 1
    '            up = False

    '        End If

    '        DrawAntiRussiaBox(menuPos.X - 6, menuPos.Y + y1 + textheight / 8, menuWidth - textwidth - 5, 20, 255, menuscrollcolor)

    '        DrawAntiRussiaBox(menuPos.X + menuWidth + 1, menuPos.Y + y1 + textheight / 8, menuWidth - textwidth - 5, 20, 255, menuscrollcolor)

    '        '   DrawAntiRussiaBox(menuPos.X + menuWidth - 1, menuPos.Y + y1 - 1, menuWidth - textwidth - 5 + 1, 20, 255, menuscrollcolor)



    '        currentItems = 0


    '        Dim state As Color
    '        If esp Then

    '            _ShadowText("[-] ESP", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            interval += 15

    '            currentItems += 1
    '            '_ShadowText("2D BOX", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            'If boolBox Then

    '            '    state = good
    '            'Else

    '            '    state = bad
    '            'End If
    '            'DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)
    '            'interval += 15
    '            'currentItems += 1
    '            '_ShadowText("Stomach ESP", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            'If bool3D Then

    '            '    state = good
    '            'Else

    '            '    state = bad
    '            'End If
    '            'DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)
    '            'interval += 15
    '            'currentItems += 1
    '            _ShadowText("Bone ESP", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolBoneESP Then

    '                state = good
    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)
    '            interval += 15
    '            currentItems += 1

    '            _ShadowText("Weapon", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolWeapon Then

    '                state = good
    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)
    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Name ESP", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolname Then

    '                state = good
    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)
    '            interval += 15
    '            '  _ShadowText("Healthbar", New Point(menuPos.X + 30, menuPos.Y + interval), Color.White)
    '            currentItems += 1

    '            _ShadowText("Healthbar", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolhealthbar Then

    '                state = good

    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)

    '            interval += 15
    '            currentItems += 1


    '            _ShadowText("Renderdistance: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            _ShadowText(renderDistance, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)

    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Bone color: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            ' _ShadowText(skeletkleurke.ToKnownColor.ToString, New Point(menuPos.X + menuWidth / 2, menuPos.Y + interval), skeletkleurke)
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, skeletkleurke, edgecolor)

    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Healthbox Color: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            _ShadowText("FG: ", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            _ShadowText("BG: ", New Point(menuPos.X + menuWidth / menuwidthfactor + 50, menuPos.Y + interval), Colortextoff)
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor + 25, menuPos.Y + interval + textheight / 4, 8, 8, 255, kleurkevandenforegrond, edgecolor)
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor + 75, menuPos.Y + interval + textheight / 4, 8, 8, 255, kleurkevanhealthboxbg, edgecolor)
    '            '    _ShadowText(colorlist(intSettingNum).ToString, New Point(menuPos.X + 30, menuPos.Y + interval2), Color.White)
    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Box & Name color: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, kleurTeam, edgecolor)
    '            interval += 15
    '            currentItems += 1

    '            _ShadowText("Bone size: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            _ShadowText(skeletonsize, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            interval += 15
    '            currentItems += 1
    '        Else


    '            _ShadowText("[+] ESP", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            interval += 15
    '            currentItems += 1
    '        End If

    '        'Misc = True

    '        If trigger Then
    '            _ShadowText("[-] Triggerbot", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            interval += 15
    '            currentItems += 1
    '            Dim colorTriggy As Color
    '            If triggerbool Then


    '            Else




    '            End If
    '            _ShadowText("Active: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If triggerbool Then
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Lime, edgecolor)
    '            Else
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Red, edgecolor)
    '            End If




    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Trigger Delay:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(triggerdelay, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)

    '            currentItems += 1

    '            interval += 15
    '            _ShadowText("Punch Sensetivity:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(punchsens, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            currentItems += 1

    '            interval += 15
    '            _ShadowText("Mode:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            If tap Then
    '                _ShadowText("Tap", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            Else
    '                _ShadowText("Spray", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            End If

    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Target:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            If boolAttackTeam Then
    '                _ShadowText("All", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            Else
    '                _ShadowText("Only Enemy", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            End If



    '            currentItems += 1

    '            interval += 15
    '            _ShadowText(hotkeytext, New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)

    '            _ShadowText(hotkey, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)




    '            currentItems += 1
    '        Else
    '            _ShadowText("[+] Triggerbot", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '        End If

    '        interval += 15


    '        If aimbotmenu Then
    '            _ShadowText("[-] Aimbot", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            interval += 15
    '            currentItems += 1
    '            Dim colorTriggy As Color

    '            _ShadowText("Aimbot: ", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolAim Then
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Lime, edgecolor)
    '            Else
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Red, edgecolor)
    '            End If




    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("AimStyle:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            If boolAimStyle Then
    '                _ShadowText("Head", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            Else
    '                _ShadowText("Stomach + arms + legs", New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            End If


    '            currentItems += 1

    '            interval += 15
    '            _ShadowText("Aimspeed:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(AimSpeed, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            currentItems += 1

    '            interval += 15
    '            _ShadowText("Hold Mode:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            If boolHold Then
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Lime, edgecolor)
    '            Else
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Red, edgecolor)
    '            End If

    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Rage Mode:", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            If boolRage Then
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Lime, edgecolor)
    '            Else
    '                DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, Color.Red, edgecolor)
    '            End If



    '            currentItems += 1

    '            interval += 15
    '            _ShadowText(hotkeyaimtext, New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)

    '            _ShadowText(hotkeyAim, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)




    '            currentItems += 1
    '        Else
    '            _ShadowText("[+] Aimbot", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '        End If

    '        interval += 15

    '        If Misc Then

    '            _ShadowText("[-] Misc", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '            interval += 15

    '            _ShadowText("Crosshair", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If crosshair Then

    '                state = good
    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)

    '            currentItems += 1
    '            interval += 15

    '            _ShadowText("Crosshair color", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, crosshaircolor, edgecolor)
    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Crosshair size: ", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(crosshairsize, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Warning Msg", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If warningSyst Then

    '                state = good

    '            Else
    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)

    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Rainbow Mode", New Point(menuPos.X + 30, menuPos.Y + interval), Colortextoff)
    '            If boolRainbow Then
    '                state = rainbow()


    '            Else

    '                state = bad
    '            End If
    '            DrawAntiRussiaBox2(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval + textheight / 4, 8, 8, 255, state, edgecolor)

    '            currentItems += 1
    '        Else

    '            _ShadowText("[+] Misc", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '        End If

    '        interval += 15


    '        If Settings Then
    '            _ShadowText("[-] Settings", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Save settings", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            interval += 15
    '            currentItems += 1
    '            _ShadowText("Load settings", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("!Force Data Refresh!", New Point(menuPos.X + 30, menuPos.Y + interval), Color.Orange)
    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Refresh Delay(ms): ", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)


    '            _ShadowText(intDelayCompensation.ToString, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            currentItems += 1

    '            interval += 15
    '            _ShadowText("Fontname(Restart Required): ", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(fontName, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("FontSize(Restart Required): ", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText(Multiplierfont, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)
    '            currentItems += 1
    '            interval += 15
    '            _ShadowText("Menu Position: ", New Point(menuPos.X + 30, menuPos.Y + interval), textcolor)
    '            _ShadowText("xPos: " & menuPos.X & " yPos: " & menuPos.Y, New Point(menuPos.X + menuWidth / menuwidthfactor, menuPos.Y + interval), Colortextoff)

    '            currentItems += 1

    '        Else
    '            _ShadowText("[+] Settings", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '            currentItems += 1
    '        End If

    '        interval += 15







    '        'If Misc Then
    '        '    _ShadowText("[-] Misc", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)


    '        'Else

    '        '    _ShadowText("[+] Misc", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '        'End If
    '        'interval += 15


    '        'If Settings Then
    '        '    _ShadowText("[-] Settings", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '        'Else

    '        '    _ShadowText("[+] Settings", New Point(menuPos.X + 5, menuPos.Y + interval), textcolor)
    '        'End If

    '        DrawAntiRussiaBox(menuPos.X, menuPos.Y + y1 + textheight / 8, menuWidth / 1.005, 20, 50, Color.FromArgb(255, 255, 255, 255))






    '        interval += 15
    '        '   DrawAntiRussiaBox(menuPos.X + 10, menuPos.Y + textheight / 4, menuWidth - 20, 15, 200, textcolor)

    '        _ShadowText4("PegasuS v" & Application.ProductVersion.ToString, New Point(menuPos.X + 15, menuPos.Y + textheight / 4), Color.Lime)




    '        interval = 25


    '    Else
    '        ' _ShadowText("External Hack v" & Application.ProductVersion.ToString, New Point(menuPos.X + 3, menuPos.Y + 3), Color.Black)
    '        Thread.Sleep(intDelayCompensation)
    '        DrawAntiRussiaBox(0, 0, 250, 20, 1, Color.White)
    '    End If

    'End Sub


    Private renderDistance As Single = 75.0
    Private hotkeytext As String = "Set New Key"

    Public Function ValidateBones(ByVal Ent As uPublic2.dildo.VectorMeData) As Boolean
        Dim vecOrigin As dildo.Vect3d = GetEntPosition(Ent.toewijzingsadres)
        MessageBox.Show(vecOrigin.ToString)
        If Get3dDistance(Ent.skeleton.Rleg.bonepos3(0).x, Ent.skeleton.Rleg.bonepos3(0).z, Ent.skeleton.Rleg.bonepos3(0).y, vecOrigin.x, vecOrigin.z, vecOrigin.y) > 45.0F Then
            Return False
        Else
            Return True
        End If

    End Function


    Sub getSkeletonPos(itemPointer As Integer)


    End Sub
    Dim currentitem As dildo.VectorMeData
    Private kleurTeam As System.Drawing.Color
    Private Function DegreesToRadians(ByVal degrees As Double) As Double
        Return degrees / (180 / Math.PI)
    End Function

    Private Function DegreesToRadians(ByVal degrees As Decimal) As Decimal
        Return Convert.ToDecimal(degrees / (180 / Math.PI))
    End Function

    Private Sub DrawCircle2(ByVal Center As Vector2, ByVal Radius As Single, ByVal color As Color, ByVal Sides As UShort) '= 30
        Dim Angle As Single = DegreesToRadians(360.0F / Sides)

        Dim Cos As Single = Math.Cos(Angle)
        Dim Sin As Single = Math.Sin(Angle)

        Dim vec As New Vector2(Radius, 0)

        For i As UShort = 0 To Sides - 1
            Dim rot As New Vector2(Cos * vec.X - Sin * vec.Y, Sin * vec.X + Cos * vec.Y)
            rot += Center
            vec += Center
            DrawLine(vec.X, vec.Y, rot.X, rot.Y, 1, color)
            vec = rot - Center
        Next i
    End Sub



    Sub espLOOP()





        'MessageBox.Show("xDDDDDD")
        Try


            '  isRunning = False
            Dim item As New dildo.VectorMeData
            'Dim iterationList As List(Of dildo.VectorMeData) = xxxdata
            Dim vect3dcheck As dildo.Vect3d = New dildo.Vect3d(0, 0, 0)




            Dim intcounter As Integer = 0

            Dim playr As dildo.VectorMeData
            playr = Player

            For Each item In RussianCommandoUnit
                'System.Diagnostics.Trace.WriteLine("Test")

                If settingz.boolradarhack Then



                    '           Trace.WriteLine("Writing memoryz")
                    If item.bspotted = False Then
                        _memr.WrtInt(item.toewijzingsadres + bspotted, 1)
                    End If




                End If


                If playr.bspotted = True And warningSyst Then

                    _ShadowText3("YOU HAVE BEEN SPOTTED!!!", New Point(Me.Width / 2 - Me.Width / 10, Me.Height - Me.Height / 1.05), rainbow())
                    '    intDelayCompensation += 1
                    '                    _ShadowText3(" _       __                 _           " & vbNewLine &
                    '"| |     / /___ __________  (_)___  ____ _" & vbNewLine &
                    '"| | /| / / __ `/ ___/ __ \/ / __ \/ __ `/" & vbNewLine &
                    '"| |/ |/ / /_/ / /  / / / / / / / / /_/ /" & vbNewLine &
                    '"|__/|__/\__,_/_/  /_/ /_/_/_/ /_/\__, /" & vbNewLine &
                    '                                "/____/ ", New Point(Me.Width / 2 - Me.Width / 10, Me.Height - Me.Height / 1.05), kleurTeam)
                End If

                If item.VecCoords.x = 0 Or item.VecCoords.y = 0 Or item.VecCoords.z = 0 Then 'item.Team = playr.Team Or
                    Continue For
                End If
                If item.isVisible = False Then
                    Continue For

                End If

                If item.Distance / 100 > renderDistance Or item.Levenz <= 0 Then

                    Continue For



                Else

                    Dim BoxHeightoff As Single = 8500.0F / item.Distance
                    '   Dim NameHeightoff As Single = 30000.0F / item.Distance
                    Dim height As Single
                    height = item.W2SPos.Y - item.Head.Y
                    If height < 0 Then
                        ' System.Diagnostics.Trace.WriteLine(height)
                        Continue For

                    End If
                    Dim intADD As Integer = height / 4
                    Dim width As Single

                    width = height * (45.0F / 80.0F)

                    Dim HealthBarWidth As Single = 3000.0F / item.Distance
                    Dim healthbar As Color = Color.Red


                    Dim posHealthValue As Point = New Point(item.W2SPos.X + intADD + 5, item.Head.Y - BoxHeightoff)

                    'Trace.WriteLine(item.isVisible)
                    Dim intInteveral As Integer = 0

                    'If item.Distance / 100 <= 10 Then
                    '    _ShadowText3("Enemies near!", New Point(Me.Width - 200, 0), Color.OrangeRed)
                    'End If


                    'If item.Team <> Ik.Team Then
                    '    kleurTeam = Color.Red
                    'Else
                    '    kleurTeam = Color.Blue

                    'End If
                    ' ReDim items(enemyDataCon.Count)
                    ' items.

                    'skipping draw
                    '   MessageBox.Show("Not updated")

                    ' System.Diagnostics.Trace.WriteLine("Not Updated Skipping Draw function")

                    '  Continue For
                    If boolAttackTeam Then
                        'If item.bspotted = True Then
                        '    Cursor.Position = New Point(item.skeleton.Spine.bonepos2(GetRandom(0, 6)).X, item.skeleton.Spine.bonepos2(GetRandom(0, 6)).Y)
                        'End If

                    End If
                    '   boolBox = True

                    If boolBox Then
                        drawPlayerBox(item, item.Color, Color.Black, height, 1)
                        '  DrawAntiRussiaBox(item.W2SPos.X - width / 2 + HealthBarWidth, item.W2SPos.Y - (height * 2) - BoxHeightoff, width, height + BoxHeightoff, 200, rainbow())
                    End If
                    '  DrawAntiRussiaBox(Me.Width / 2 - Me.Width / 10, Me.Height - Me.Height / 1.05 - 50, 250, 100, 100, rainbow())
                    If boolBoneESP Then


                        Dim headw As Integer = height / 8

                        Dim headh As Integer = 5000.0F / item.Distance
                        If item.skeleton.Broken = True Then
                        Else
                            drawSkeleton(item.skeleton, item.Color)
                            If boolRainbow Then
                                DrawBox(item.Head.X, item.Head.Y - BoxHeightoff / 3, headw, headh, skeletonsize, rainbow())
                            Else
                                '  DrawBox(item.Head.X, item.Head.Y - BoxHeightoff / 3, headw, headh, skeletonsize, skeletkleurke)
                                DrawCircle2(New Vector2(item.Head.X, item.Head.Y), headw, item.Color, 25)
                            End If

                            '       DrawLine(item.skeleton.Larm.bonepos2(3).X, item.skeleton.Larm.bonepos2(3).Y, item.skeleton.Rarm.bonepos2(3).X, item.skeleton.Rarm.bonepos2(3).Y, skeletonsize, skeletkleurke)


                        End If

                        'drawSkeleton(item)

                        '   Trace.WriteLine(item.skeleton)

                        '' Queue another task


                    End If

                    ' If Get3dDistance(item.Head.X,, rrlegpos.y, item.VecCoords.x, item.VecCoords.z, item.VecCoords.y) > 45.0F Then

                    ' Dim vec3 As Single = Get3dDistance(item.Head.X, item.zPos, item.Head.Y, item.VecCoords.x, item.VecCoords.z, item.VecCoords.y)
                    ''_ShadowText("Upper: " & (85.0F).ToString & " Operant: " & Get3dDistance(headpos.x, headpos.z, headpos.y, item.VecCoords.x, item.VecCoords.z, item.VecCoords.y), _
                    ''         New Point(item.Head.X, item.W2SPos.Y - 64), Color.CadetBlue)
                    '  If boolBox Then
                    'If vec3 > 95.0F Then


                    '        '  MessageBox.Show("Invalid: " & (45.0F).ToString & " Endresult: " & Get3dDistance(headpos.x, headpos.z, headpos.y, item.VecCoords.x, item.VecCoords.z, item.VecCoords.y))
                    '    Else

                    '  End If
                    'bool3D = False
                    'If bool3D Then
                    '    '  drawPlayer3DBox(item, height, kleurTeam, 1)
                    '    If boolRainbow Then
                    '        DrawCircle(item.skeleton.Spine.bonepos2(2).X, item.skeleton.Spine.bonepos2(2).Y, 6000.0F / item.Distance, 4, 1, rainbow())
                    '    Else
                    '        DrawCircle(item.skeleton.Spine.bonepos2(2).X, item.skeleton.Spine.bonepos2(2).Y, 6000.0F / item.Distance, 4, 1, item.Color)
                    '    End If

                    'End If





                    If boolhealthbar Then


                        Dim healthbar2 As Color = Color.Lime
                        DrawFilledBoxie(item.W2SPos.X - width / 2 - HealthBarWidth, item.Head.Y - BoxHeightoff, HealthBarWidth, height + BoxHeightoff, 255, healthbar)
                        DrawFilledBoxie(item.W2SPos.X - width / 2 - HealthBarWidth, item.Head.Y + height, HealthBarWidth, -(((height + BoxHeightoff) / 100.0F)) * item.Levenz, 255, healthbar2)


                    End If
                    If settingz.boolarmor Then

                        Dim healthbar2 As Color = Color.Orange
                        Dim healtbar As Color = Color.SteelBlue
                        DrawFilledBoxie(item.W2SPos.X - width / 1.5 - HealthBarWidth, item.Head.Y - BoxHeightoff, HealthBarWidth, height + BoxHeightoff, 255, healthbar)
                        DrawFilledBoxie(item.W2SPos.X - width / 1.5 - HealthBarWidth, item.Head.Y + height, HealthBarWidth, -(((height + BoxHeightoff) / 100.0F)) * item.armorlevel, 255, healthbar2)

                    End If
                    'Dim x, y, z As Integer
                    'x = item.VecCoords.x
                    'y = item.VecCoords.y
                    'z = item.VecCoords.z
                    'System.Diagnostics.Trace.WriteLine("Enemy x: " & x & "Enemy y: " & y)
                    'If x < -1900 And x > -2050 And y > 1400 And y < 1700 Then
                    '    _ShadowText(intcounter & "fella(s) spotted at b", New Point(1200, 500), Color.Aqua)

                    'End If


                    'If x < 500 And x > -250 And y > 2000 And y < 2600 And z < 100 Then
                    '    intcounter += 1
                    '    _ShadowText(intcounter & "fella(s) spotted ct spawn", New Point(1200, 500), Color.Aqua)

                    'End If

                    ' MessageBox.Show(vecNorm.ToString)
                    ' snaplines = True


                    If snaplines Then
                        If settingz.intsnapmode = 0 Then
                            DrawLine(Me.Width / 2 - dikte, Me.Height / 2 + dikte, item.W2SPos.X, item.W2SPos.Y, 1, item.Color)
                        Else
                            DrawLine(Me.Width / 2 - dikte, Me.Height + dikte, item.W2SPos.X, item.W2SPos.Y, 1, item.Color)
                        End If

                    End If



                    If boolname Then
                        _ShadowText(item.Name, New Point(item.W2SPos.X - intADD, item.W2SPos.Y + intInteveral), item.Color)
                        intInteveral += 12
                    End If






                    ' Weapons.weaponName(61) = "usp"
                    If boolWeapon Then
                        _ShadowText(Convert.ToString(getWeaponName(item.weaponnr)), New Point(item.W2SPos.X - intADD, item.W2SPos.Y + intInteveral), item.Color)
                        intInteveral += 12

                        '  _ShadowText("Head locked", posWeapDef, Color.GreenYellow)

                    End If




                    '_ShadowText(Convert.ToString("" & item.Name), pos, kleurke)
                    ' _ShadowText(strteam, pos, kleurke)
                    '_ShadowText(item.Health.ToString + " HP", posHealthValue, shakie)
                    'If boolDistance Then




                    If boolDistance Then
                        If item.Distance = 0 Then
                            Dim posDistance As String = ("0 m")
                            _ShadowText(Convert.ToString("") & posDistance, New Point(item.W2SPos.X - intADD, item.W2SPos.Y + intInteveral), item.Color)
                            intInteveral += 12
                        Else
                            Dim intresult As Integer
                            intresult = CInt(item.Distance / 100)
                            Dim posDistance As String = (intresult).ToString + " m"



                            _ShadowText(Convert.ToString("" & posDistance), New Point(item.W2SPos.X - intADD, item.W2SPos.Y + intInteveral), item.Color)
                            intInteveral += 12
                        End If
                    End If


                End If

            Next
            '     isRunning = True

        Catch ex As Exception
            Dim stuff As String = ex.ToString
            ' xxxdata.Clear()
            '   MessageBox.Show(stuff)
            '    intDelayCompensation += 1
            '  MessageBox.Show("Error @ ESPLOOP _  " & stuff & isRunning.ToString)
        End Try



    End Sub

    Sub drawStats(positionbox As Point, w As Integer, h As Integer, color As Color)
        Dim yplus As Integer = 0




        _ShadowText2("KILLS:  " & Player.kills, New Point(positionbox.X + w / 4, positionbox.Y + h / 10), color.Red)
        yplus += 40

        _ShadowText2("DEATHS: " & Player.deaths, New Point(positionbox.X + w / 4, positionbox.Y + h / 10 + yplus), color.Red)

        yplus += 40

        _ShadowText2("ASSISTS: " & Player.assists, New Point(positionbox.X + w / 4, positionbox.Y + h / 10 + yplus), color.Red)
        yplus += 40

        _ShadowText2("SCORE:   " & Player.score, New Point(positionbox.X + w / 4, positionbox.Y + h / 10 + yplus), color.Red)
        yplus += 40
        _ShadowText2("clip1: " & Player.clipweapon1 & " clip2: " & Player.clipweapon1 & vbNewLine & "Headshot score: " & Player.headshotscore, New Point(200, 400), Drawing.Color.Aqua)

        DrawAntiRussiaBox(positionbox.X, positionbox.Y, w, yplus + 20, 50, Drawing.Color.White)
        drawthinbox(positionbox, w, yplus + 20, 2, color.Black)





    End Sub



    'Sub drawDX2()
    '    Do
    '        'Thread.Sleep(50)
    '        Try


    '        device2.Clear(Direct3D.ClearFlags.Target, Color.FromArgb(0, 0, 0, 0), 2.0F, 0)




    '        device2.RenderState.ZBufferEnable = False
    '        device2.RenderState.Lighting = False


    '        device2.RenderState.CullMode = Cull.None
    '            device2.Transform.Projection = Matrix.OrthoOffCenterLH(0, Me.Width, Me.Height, 0, 0, 500)
    '        '  System.Threading.Thread.Sleep(1)


    '        ' Do things Direct3D needs to do so we can draw on the buffer



    '        '     device.Clear(Direct3D.ClearFlags.Target, rainbow(), 0.5F, 0)


    '        device2.BeginScene()
    '            DrawAntiRussiaBox3(500, 0, Screen_Size_X / 2, Screen_Size_Y / 2, 50, Color.Gray)

    '        device2.EndScene()
    '            device2.Present()
    '        Catch ex As Exception

    '        End Try
    '    Loop
    'End Sub
    Sub drawDX()



        Try



            Do

                Thread.Sleep(intDelayCompensation)
                device.Clear(Direct3D9.ClearFlags.Target, Color.FromArgb(0, 0, 0, 0), 2.0F, 0)





                '  device.Viewport = New Viewport(0, Me.Width, Me.Height, 0, 0, 1)
                device.Viewport = New Viewport(0, 0, Me.Width, Me.Height)
                '  System.Threading.Thread.Sleep(1)


                ' Do things Direct3D needs to do so we can draw on the buffer



                '     device.Clear(Direct3D.ClearFlags.Target, rainbow(), 0.5F, 0)


                device.BeginScene()

                _ShadowText("Made by SunFlares", New Point(Me.Width - 125, 10), kleurvijand)
                Dim textuc As String = "www.unknowncheats.me"
                _ShadowText4(textuc, New Point(Me.Width / 2 - 80, Me.Height - 25), kleurvijand)
                '    _ShadowText4("MIDDLE", New Point(Me.Width / 2, Me.Height - 50), kleurvijand)
                ' getKey()
                ' START DRAWING!
                ' dxsprite.Begin(SpriteFlags.None)
                ' Dim color1 As Color = Color.Transparent
                'For i = 0 To menuHeight Step 10
                '    dxsprite.Draw2D(dxtexture, New Point(10, -i), 0, New Point(menuPos.X, menuPos.Y), color1)
                '    dxsprite.Draw2D(dxtexture, New Point(-menuWidth, -i), 0, New Point(menuPos.X, menuPos.Y), color1)
                'Next
                'For i = 0 To menuWidth Step 10
                '    dxsprite.Draw2D(dxtexture, New Point(-i, 10), 0, New Point(menuPos.X, menuPos.Y), color1)

                '    ' dxsprite.Draw2D(dxtexture, New Point(-i, -menuHeight - 10), 0, New Point(menuPos.X, menuPos.Y), color1)
                'Next
                ' dxsprite.End()

                'Draw a little box thing



                'Hack title

                ' _ShadowText("Home", New Point(intxas, 3), Color.White)
                'Lines around box




                If _memr.CheckProcess Then

                    'If drawtime Then
                    '    _ShadowText3("Time: " & globalDate.Hour & ":" & globalDate.Minute, New Point(Screen_Size_X - 250, 0), Color.Gray)

                    'End If


                    ' _ShadowText("PlayerBase: " + Player.toewijzingsadres.ToString() + " Player Vector: X: " + Player.VecCoords.x.ToString() _
                    '+ " Y: " + Player.VecCoords.y.ToString() + " Z: " + Player.VecCoords.z.ToString(), New Point(0, Screen_Size_Y), Color.AliceBlue)

                    ' Draw everything
                    'menuDrawer()
                    If vrcs Then
                        Dim punchAngles As dildo.Vect3d
                        Try
                            punchAngles = _memr.rdVector(Player.toewijzingsadres + pAngs)
                        Catch ex As Exception
                        End Try

                        Dim crX As Integer = Me.Width / 2, crY As Integer = Me.Height / 2
                        Dim d1y As Integer = Me.Height / 90
                        Dim d1x As Integer = Me.Width / 90
                        Dim drX As Integer = crX - CInt(d1x * (punchAngles.y)) ' + 8
                        Dim drY As Integer = crY + CInt(d1y * (punchAngles.x)) ' + 8

                        DrawCircle2(New Vector2(drX, drY), crosshairsize, crosshaircolor, 12)

                    End If

                    If crosshair Then


                        'Dim crX As Integer = Me.Width / 2, crY As Integer = Me.Height / 2
                        'Dim d1y As Integer = Me.Height / 90
                        'Dim d1x As Integer = Me.Width / 90

                        'Dim punchAngles As dildo.Vect3d
                        'Try
                        '    punchAngles = _memr.rdVector(Player.toewijzingsadres + pAngs)
                        'Catch ex As Exception
                        'End Try

                        'Dim drX As Integer = crX - CInt(d1x * (punchAngles.y)) ' + 8
                        'Dim drY As Integer = crY + CInt(d1y * (punchAngles.x)) ' + 8

                        'DrawLine(drX - 20, drY, drX + 20, drY, 1, Color.Red)
                        'DrawLine(drX, drY - 20, drX, drY + 20, 1, Color.Red)
                        If crosshairrecoil = False Then
                            Dim crX As Integer = Me.Width / 2, crY As Integer = Me.Height / 2
                            Dim d1y As Integer = Me.Height / 90
                            Dim d1x As Integer = Me.Width / 90

                            Dim punchAngles As Vector3 = Vector3.Zero
                            Try

                            Catch ex As Exception
                            End Try

                            Dim drX As Integer = crX - CInt(d1x * (punchAngles.y)) ' + 8
                            Dim drY As Integer = crY + CInt(d1y * (punchAngles.x)) ' + 8

                            DrawLine(drX - 20, drY, drX + 20, drY, 1, crosshaircolor)
                            DrawLine(drX, drY - 20, drX, drY + 20, 1, crosshaircolor)

                            '  MessageBox.Show("test")
                        ElseIf crosshairrecoil = True Then
                            Dim crX As Integer = Me.Width / 2, crY As Integer = Me.Height / 2
                            Dim d1y As Integer = Me.Height / 90
                            Dim d1x As Integer = Me.Width / 90

                            Dim punchAngles As dildo.Vect3d
                            Try
                                punchAngles = _memr.rdVector(Player.toewijzingsadres + pAngs)
                            Catch ex As Exception
                            End Try

                            Dim drX As Integer = crX - CInt(d1x * (punchAngles.y)) ' + 8
                            Dim drY As Integer = crY + CInt(d1y * (punchAngles.x)) ' + 8

                            DrawLine(drX - 20, drY, drX + 20, drY, 1, crosshaircolor)
                            DrawLine(drX, drY - 20, drX, drY + 20, 1, crosshaircolor)
                        End If


                    Else


                    End If

                    '         drawRadar()
                    If RussianCommandoUnit.Count = 0 Then


                    Else


                        ' System.Diagnostics.Trace.WriteLine("Entities Found! start drawing")



                        '  bgWork.Dispose()

                        espLOOP()

                        ' xxxdata.Clear()










                        End If

                End If




                device.EndScene()
                device.Present()
                If isRunning Then
                    If bgWork.IsBusy <> True Then
                        bgWork.RunWorkerAsync(dx)

                    End If
                End If

                '  dxsprite.Dispose()
            Loop


        Catch ex As Exception
            Dim stuff As String = ex.ToString
            '       MessageBox.Show(stuff)
        End Try

    End Sub




#End Region







    Private Function Get3dDistance(ByVal myCoordsX As Single, ByVal myCoordsZ As Single, ByVal myCoordsY As Single, ByVal eNx As Single, ByVal eNz As Single, ByVal eNy As Single) As Single
        'Use the 3d distance formula to get a resulting Floating distance value POW!!
        Return Math.Sqrt(Math.Pow(CDbl(eNx - myCoordsX), 2.0) + Math.Pow(CDbl(eNy - myCoordsY), 2.0) + Math.Pow(CDbl(eNz - myCoordsZ), 2.0))
    End Function

#Region "Memory Reading"
    Dim sigBombStruct() As Byte = {&HBE, &H1, &H0, &H0, &H0, &HEB, &H3, &H8D, &H49, &H0, &H8B, &HD}
    Function getClassName(entityname As String)
        Dim entitypointer
        Dim pNext As UShort = _memr.rdShort(entlist + 8)
        pNext = _memr.rdShort(pNext + 8)
        pNext = _memr.rdShort(pNext + 1)
        pNext = _memr.rdShort(pNext + 8)

        ' entityn = _memr.rdStringUnicode(declient + pNext, Marshal.SizeOf(entityname))
        Return entityname
    End Function
    Private radar As Boolean
    Private teamesp As Boolean
    Private kleurvijand As Color = Color.Red
    Dim intLocation As Point
    Sub drawRadar()

        '  sprite = New Sprite(device)

        '  texture = TextureLoader.FromFile(device, "C:\Users\LawrenceDS\Desktop\test.bmp")
        ' sprite.Begin(SpriteFlags.SortTexture)





        Try
            intLocation.X = -100
            Dim dm = 1

            If RussianCommandoUnit.Count = 0 Then

                DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth, 100, globwidth, globwidth, settingz.radaralpha, Color.FromArgb(settingz.radaralpha, Color.Gray))
                DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth - dm, 100 - dm, globwidth + dm * 2, globwidth + dm * 2, settingz.radaralpha, Color.FromArgb(settingz.radaralpha, Color.Black))
                '  DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth + globwidth / 2 - 2, globwidth / 2 - intLocation.Y - 2, Size2.Width, Size2.Height, 255, kleurTeam)

            Else


                punt2.X = CInt(globwidth / 2 - 2)
                punt2.Y = CInt(globwidth / 2 - 2)


                DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth, 100, globwidth, globwidth, settingz.radaralpha, Color.FromArgb(settingz.radaralpha, Color.Gray))
                DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth - dm, 100 - dm, globwidth + dm * 2, globwidth + dm * 2, settingz.radaralpha, Color.FromArgb(settingz.radaralpha, Color.Black))


                'DrawLine(Me.Width + intLocation.X - globwidth, globwidth / 2 - intLocation.Y, Me.Width + intLocation.X, globwidth / 2 - intLocation.Y, 1, Color.Black)
                ''
                'DrawLine(Me.Width + intLocation.X - globwidth + globwidth / 2, globwidth - intLocation.Y, Me.Width + intLocation.X - globwidth / 2, intLocation.Y, 1, Color.Black)





                midradar.X = Me.Width + intLocation.X - globwidth + globwidth / 2
                midradar.Y = globwidth / 2

                Dim item As dildo.VectorMeData
                For Each item In RussianCommandoUnit


                    If item.Levenz > 0 And item.Distance <= 2500 Then
                        Dim color As System.Drawing.Color





                        ' MessageBox.Show("Item x: " & item.xPos & " item y: " & item.yPos)

                        ' MessageBox.Show(GetEyeAngles.y)
                        Punt = New Point(WorldToRadar(New Point(Player.xPos, Player.yPos), New Point(item.xPos, item.yPos), GetEyeAngles.y, globwidth, globwidth, settingz.intradarradius)) '(globwidth + 200) * 0.03))
                        ' dx.FillRectangle(color, New Rectangle(Punt, Size2))
                        ' MessageBox.Show("Punt x: " & Punt.X & " Punt y: " & Punt.Y)

                        '_ShadowText("X: " + Punt.X & " Y: " + Punt.Y, New Point(Screen_Size_X / 2, Screen_Size_Y / 2), color.MistyRose)

                        Select Case settingz.intradarstyle

                            Case 0
                                DrawAntiRussiaBox(Punt.X + Me.Width - globwidth + intLocation.X, Punt.Y + 100, Size2.Width, Size2.Height, 255, item.Color)
                                DrawAntiRussiaBox(Me.Width + intLocation.X - globwidth + globwidth / 2 - 2, globwidth / 2 + 100 - 2, Size2.Width, Size2.Height, 255, kleurTeam)
                            Case 1


                                DrawCircle2(New Vector2(Punt.X + Me.Width - globwidth + intLocation.X, Punt.Y + 100), Size2.Width, item.Color, 25)
                                DrawCircle2(New Vector2(Me.Width + intLocation.X - globwidth + globwidth / 2 - 2, globwidth / 2 + 100 - 2), Size2.Width, kleurTeam, 25)



                            Case 2
                                DrawCircle2(New Vector2(Punt.X + Me.Width - globwidth + intLocation.X, Punt.Y + 100), Size2.Width, item.Color, 3)
                                DrawCircle2(New Vector2(Me.Width + intLocation.X - globwidth + globwidth / 2 - 2, globwidth / 2 + 100 - 2), Size2.Width, kleurTeam, 3)
                            Case Else
                                'nope
                        End Select


                    End If







                Next
            End If



        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
    Private Function WorldToRadar(ByVal myPos As Point, ByVal enemypos As Point, ByVal MyYaw As Single, ByVal RadarWidth As Single, ByVal RadarHeight As Single, ByVal Radius As Integer) As Point

        Try


            'Berechnet Kosinus und Sinus von Yaw
            Dim cosYaw As Single = Math.Cos(radtodeg(MyYaw))
            Dim sinYaw As Single = Math.Sin(radtodeg(MyYaw))



            'Wir berechnen die Distanz zwischen uns und dem anderen Mitspieler
            Dim distanzX As Single = enemypos.X - myPos.X
            Dim distanzY As Single = enemypos.Y - myPos.Y

            'Wir berechnen die Radarkoordinaten
            Dim positionX As Single = ((distanzY * cosYaw - distanzX * sinYaw) * -1 / Radius) + RadarWidth / 2
            Dim positionY As Single = ((distanzX * cosYaw + distanzY * sinYaw) / Radius) * -1 + RadarHeight / 2



            'Wir passen die Radarkoordinaten an unseren Spieler (in der Mitte) an
            Return New Point(positionX, positionY)

        Catch ex As Exception
        End Try
    End Function
    Private Sub bgWork_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgWork.DoWork
        '  System.Threading.Thread.Sleep(10)
        ' Memory Reading into a Collection
        'Dim strResult As String = ""
        '  dx.Priority = ThreadPriority.Highest
        If isRunning = False Then
            ' If you turn it off with the variable then stop the worker.
            bgWork.CancelAsync()
        End If

        Try




            '  Dim vt As Integer = _memr.rdInt()

            'Dim temp2 As Integer
            'temp2 = _memr.rdInt(declient + entlist + (50 * weaponidoff))
            'strResult += temp2
            '  strResult += getWeaponName(_memr.rdInt(temp2 + weaponidoff)).ToString & vbNewLine




            'System.Diagnostics.Trace.WriteLine("Backgroundworker active", "Features")


            ' First read LocalPlayer info:
            Player.toewijzingsadres = _memr.rdInt(declient + baseoff)
            'System.Diagnostics.Trace.WriteLine("Pointer: " & Ik.toewijzingsadres, "Vars")
            Player.Levenz = _memr.rdInt(Player.toewijzingsadres + hOff)
            ' System.Diagnostics.Trace.WriteLine("LifePoints: " & Ik.Levenz, "Vars")


            Player.zichtmatrix = _memr.LeesGeheugen(Of Matrix)(declient + vmatrixshit, Marshal.SizeOf(v_Matrix), False)
            Player.shotsfired = _memr.rdInt(Player.toewijzingsadres + shotsFired)
            Player.Team = _memr.rdInt(Player.toewijzingsadres + teamoff)
            Player.Vector(GetPlayerPosition)
            Player.bspotted = _memr.rdInt(Player.toewijzingsadres + bspotted)
            Player.vecpunch = convertTovector3(_memr.rdVector(Player.toewijzingsadres + pAngs))
            'Read into viewMatrix
            v_Matrix = Matrix.Identity
            v_Matrix = Player.zichtmatrix


            ' Empty the enemyData list

            RussianCommandoUnit.Clear()

            Dim i As Integer
            For i = 0 To MAXPEOPLEEE - 1 Step 1
                ' Populate the enemyData list

                Dim enemyDataRead As New dildo.VectorMeData
                enemyDataRead.toewijzingsadres = _memr.rdInt(declient + entlist + (i * &H10))

                If enemyDataRead.toewijzingsadres = 0 Or enemyDataRead.toewijzingsadres = Player.toewijzingsadres Then
                    ' if EnityPointer is 0 or our own player, then jump to the next entity.
                    If enemyDataRead.toewijzingsadres = Player.toewijzingsadres Then
                        Player.id = i


                    End If
                    Continue For
                End If

                enemyDataRead.Levenz = _memr.rdInt(enemyDataRead.toewijzingsadres + hOff)
                enemyDataRead.armorlevel = _memr.rdInt(enemyDataRead.toewijzingsadres + armoroff)



                Dim handleweapon As Integer = _memr.rdInt(enemyDataRead.toewijzingsadres + hactiveWeaponOff) '&H12C0
                Dim entityID As Integer = handleweapon And &HFFFF
                Dim temp As Integer
                temp = _memr.rdInt(declient + entlist + (entityID - 1) * &H10)

                Dim intradarB As Integer = _memr.rdInt(declient + radarbase)
                Dim RadarPointer = _memr.rdInt(intradarB + &H50)

                enemyDataRead.Name = _memr.rdStringUnicode(RadarPointer + (&H1E0 * (i + 1) + &H24), 64)


                enemyDataRead.weaponnr = _memr.rdInt(temp + weaponidoff) '&H1684

                enemyDataRead.bspotted = _memr.rdInt(enemyDataRead.toewijzingsadres + bspotted)

                enemyDataRead.SpottedBy = _memr.rdInt(enemyDataRead.toewijzingsadres + bspottedmask)




                If enemyDataRead.Levenz <= 0 Then
                    ' if the Entity is dead, jump to the next Entity
                    Continue For
                End If

                enemyDataRead.Team = _memr.rdInt(enemyDataRead.toewijzingsadres + teamoff)
                '   enemyDataRead.HasDefuseKit = _memr.rdInt(enemyDataRead.toewijzingsadres + DefuserOff)




                ' If the Entity is not on our Team, add it to the list!
                If enemyDataRead.Team <> Player.Team Or teamesp Then


                    ' Read its Position
                    enemyDataRead.Vector(GetEntPosition(i))
                    Dim testing, w2sScaled As Vector2
                    Try

                        testing = RussiaToScreen(enemyDataRead.VecCoords, v_Matrix, Me.Width, Me.Height)
                        If _memr.rdByte(enemyDataRead.toewijzingsadres + &H270) = 0 Then
                            Continue For
                        End If




                        radar = True
                        If testing.X = 0 And testing.Y = 0 Then


                            ' Failed World to Screen, DUMP IT!
                            If radar Then
                                enemyDataRead.isVisible = False
                                GoTo ad

                            ElseIf radar = False Then
                                Continue For

                            End If
                            'Continue For
                        Else
                            enemyDataRead.isVisible = True
ad:
                            ' Its FEET are on screen! WooHOO, now check its Head, since thats part of the bounds to
                            ' our ESP box.
                            enemyDataRead.scaledW2S = w2sScaled
                            '  System.Diagnostics.Trace.WriteLine(w2sScaled.X)
                            enemyDataRead.W2SPos = testing
                            ' Rise and reuse I always say
                            Dim testing2 = New dildo.Vect3d
                            testing2 = GetBonePos(enemyDataRead.toewijzingsadres, 10) ' 10 is preferred Head, some like 11.
                            Dim headTest As New Vector2
                            headTest = RussiaToScreen(testing2, v_Matrix, Me.Width, Me.Height)
                            If headTest.X = 0 And headTest.Y = 0 Then


                                ' Fail yet again, NEXT!
                                If radar Then
                                    enemyDataRead.isVisible = False
                                    GoTo ab
                                Else
                                    Continue For

                                End If
                            End If

ab:                         ' Gather the last bit of info needed
                            enemyDataRead.Head = headTest









                            'Skeleton


                            Try
                                Dim newskel As New dildo.VectorMeData.SkeletonVectorData
                                Dim coords As New dildo.Vect3d(enemyDataRead.VecCoords.x, enemyDataRead.VecCoords.y, enemyDataRead.VecCoords.z)

                                Dim x, y As Integer

                                For y = 0 To 3

                                    If newskel.Broken = True Then
                                        Exit For

                                    End If
                                    newskel.Rleg.bonepos3(y) = GetBonePos(enemyDataRead.toewijzingsadres, Rlegbones(y))
                                    newskel.Rleg.bonepos2(y) = RussiaToScreen(newskel.Rleg.bonepos3(y), Player.zichtmatrix, Me.Width, Me.Height)



                                    If y = 0 Then
                                        If Get3dDistance(newskel.Rleg.bonepos3(0).x, newskel.Rleg.bonepos3(0).z, newskel.Rleg.bonepos3(0).y, coords.x, coords.z, coords.y) > 45.0F Then



                                            '        '  messagebox.show("not updated")

                                            '        '     System.Diagnostics.Trace.WriteLine("not updated skipping bone read function")
                                            newskel.Broken = True


                                            Exit For

                                        Else
                                            newskel.Broken = False

                                            ' Trace.Write(newskel.Larm.bonepos2(0).X)
                                        End If

                                    End If







                                    newskel.Lleg.bonepos3(y) = GetBonePos(enemyDataRead.toewijzingsadres, Llegbones(y))
                                    newskel.Lleg.bonepos2(y) = RussiaToScreen(newskel.Lleg.bonepos3(y), Player.zichtmatrix, Me.Width, Me.Height)


                                    newskel.Larm.bonepos3(y) = GetBonePos(enemyDataRead.toewijzingsadres, Larmbones(y))
                                    newskel.Larm.bonepos2(y) = RussiaToScreen(newskel.Larm.bonepos3(y), Player.zichtmatrix, Me.Width, Me.Height)

                                    newskel.Rarm.bonepos3(y) = GetBonePos(enemyDataRead.toewijzingsadres, Rarmbones(y))
                                    newskel.Rarm.bonepos2(y) = RussiaToScreen(newskel.Rarm.bonepos3(y), Player.zichtmatrix, Me.Width, Me.Height)
                                    'drawbone(llegbones(i), llegbones(i + 1), item)
                                    'drawbone(rlegbones(i), rlegbones(i + 1), item)
                                    'drawbone(larmbones(i), larmbones(i + 1), item)
                                    'drawbone(rarmbones(i), rarmbones(i + 1), item)
                                Next
                                For x = 0 To 6
                                    'drawbone(spinebones(i), spinebones(i + 1), item)
                                    If newskel.Broken = True Then
                                        'MessageBox.Show("Corrupt bones")
                                        '   Trace.WriteLine("Bones corrupt player: " & i & " name: " & enemyDataRead.Name)
                                        Exit For
                                    End If
                                    newskel.Spine.bonepos3(x) = GetBonePos(enemyDataRead.toewijzingsadres, Spinebones(x))


                                    '     MessageBox.Show("skeletskix y : " & newskel.Spine.bonepos3(x).x & newskel.Spine.bonepos3(x).y)



                                    newskel.Spine.bonepos2(x) = RussiaToScreen(newskel.Spine.bonepos3(x), Player.zichtmatrix, Me.Width, Me.Height)
                                Next

                                enemyDataRead.skeleton = newskel


                            Catch ex As Exception
                                'Trace.WriteLine(ex.ToString)
                                MessageBox.Show(ex.ToString)
                            End Try

                            'Dim newskel As New dildo.VectorMeData.SkeletonVectorData
                            'enemyDataRead.skeleton = newskel


                            ' thread.sleep(500)


































                            Dim posDist As Double = GetDistance(enemyDataRead.point, Player.point)
                            Dim DistanceCM As Integer = CInt(posDist)
                            enemyDataRead.Distance = DistanceCM
                            '  enemyDataRead.skeleton = getSkeleton(enemyDataRead.Pointer, v_Matrix)
                            If enemyDataRead.Team <> Player.Team Then
                                enemyDataRead.Color = kleurvijand
                            Else
                                enemyDataRead.Color = kleurTeam
                            End If

                            ' Add the Entity to our PlayerDataVec list.

                            RussianCommandoUnit.Add(enemyDataRead)
                        End If

                    Catch ex As Exception
                        Dim stuff As String = ex.ToString
                        'intDelayCompensation += 1
                    End Try


                End If
            Next
            '  _ShadowText(strResult, New Point(50, 500), Color.Aqua)

        Catch ex As Exception
            Dim stuff As String = ex.ToString
            ' intDelayCompensation += 1
            ' Trace.WriteLine(ex.ToString)
            '   MessageBox.Show(ex.ToString)
        End Try


        ' bgWork.ReportProgress(100)
    End Sub

#End Region








    Private previouskills, previousassist, previousdeaths, killstreak As Integer
    Private first As Boolean = True
    Private enabled As Boolean = False
    'Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    '    Try

    '    readScoreboard(0)

    '        If first = True Then

    '            previousdeaths = Player.deaths
    '            previouskills = Player.kills
    '            first = False

    '        End If



    '        Dim sounds(25) As String
    '        sounds(0) = Application.StartupPath() & "\QuakeSounds\megaKill.wav"
    '        sounds(1) = Application.StartupPath() & "\QuakeSounds\godlike.wav"
    '        sounds(2) = Application.StartupPath() & "\QuakeSounds\holyShit.wav"


    '        sounds(5) = Application.StartupPath() & "\QuakeSounds\teamkiller.wav"

    '        sounds(3) = Application.StartupPath() & "\QuakeSounds\doublekill.wav"
    '        sounds(4) = Application.StartupPath() & "\QuakeSounds\doublekill2.wav"

    '        sounds(6) = Application.StartupPath() & "\QuakeSounds\suicide.wav"
    '        sounds(7) = Application.StartupPath() & "\QuakeSounds\suicide2.wav"
    '        sounds(8) = Application.StartupPath() & "\QuakeSounds\suicide3.wav"
    '        sounds(9) = Application.StartupPath() & "\QuakeSounds\suicide4.wav"

    '        sounds(10) = Application.StartupPath() & "\QuakeSounds\triplekill.wav"
    '        sounds(11) = Application.StartupPath() & "\QuakeSounds\hattrick.wav"
    '        sounds(12) = Application.StartupPath() & "\QuakeSounds\hattrick.wav"

    '        sounds(13) = Application.StartupPath() & "\QuakeSounds\killingspree.wav"
    '        sounds(14) = Application.StartupPath() & "\QuakeSounds\multikill.wav"

    '        sounds(15) = Application.StartupPath() & "\QuakeSounds\dominating.wav"


    '        sounds(16) = Application.StartupPath() & "\QuakeSounds\ultrakill.wav"

    '        sounds(17) = Application.StartupPath() & "\QuakeSounds\unstoppable.wav"
    '        sounds(18) = Application.StartupPath() & "\QuakeSounds\whickedsick.wav"
    '        sounds(19) = Application.StartupPath() & "\QuakeSounds\ownage.wav"
    '        sounds(20) = Application.StartupPath() & "\QuakeSounds\rampage.wav"
    '        If previousdeaths < Player.deaths Then
    '            killstreak = 0
    '            previousdeaths = Player.deaths


    '        End If

    '        If Player.kills > previouskills Then
    '            killstreak += 1
    '            previouskills = Player.kills
    '            enabled = True

    '        End If
    '        If Player.kills < previouskills Then
    '            killstreak = 0




    '            If Player.Health > 1 Then
    '                My.Computer.Audio.Play(sounds(5))
    '            Else
    '                My.Computer.Audio.Play(sounds(GetRandom(6, 9)))
    '            End If

    '            previouskills = Player.kills

    '        End If
    '        If enabled = True Then


    '            Select Case killstreak
    '                Case 1

    '                    My.Computer.Audio.Play(sounds(GetRandom(0, 2)))

    '                Case 2
    '                    My.Computer.Audio.Play(sounds(GetRandom(3, 4)))


    '                Case 3
    '                    My.Computer.Audio.Play(sounds(GetRandom(11, 12)))
    '                Case 4
    '                    My.Computer.Audio.Play(sounds(GetRandom(13, 14)))
    '                Case 5
    '                    My.Computer.Audio.Play(sounds(GetRandom(15, 16)))
    '                Case 6

    '                    My.Computer.Audio.Play(sounds(16))
    '                Case 7
    '                    My.Computer.Audio.Play(sounds(17))
    '                Case 8
    '                    My.Computer.Audio.Play(sounds(18))
    '                Case 9
    '                    My.Computer.Audio.Play(sounds(19))
    '                Case 10
    '                    My.Computer.Audio.Play(sounds(19))

    '                Case Else
    '                    My.Computer.Audio.Play(sounds(9))
    '            End Select
    '            enabled = False
    '        End If




    '    Catch ex As Exception

    '    End Try

    '    'If Player.kills + 2 = previouskills Then

    '    'End If

    'End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Static intcount As Integer
        Static intmaxOpa As Integer
        Try

            If warningSyst Then

                If Player.bspotted = True Then



                    If intcount = 0 Then
                        My.Computer.Audio.Play(My.Resources._ON, AudioPlayMode.Background)
                        intcount += 1
                    End If


                Else


                    intcount = 0

                End If



            End If



        Catch ex As Exception
            'MessageBox.Show(ex.ToString & "@Timer")
        End Try




    End Sub
    Private crosshairrecoil As Boolean

    Private Sub crosshairanimation_Tick(sender As Object, e As EventArgs) Handles crosshairanimation.Tick
        boolBox = settingz.boolbox
        boolBoneESP = settingz.boolboneESP
        boolhealthbar = settingz.boolhealthbar
        boolname = settingz.boolname
        boolWeapon = settingz.boolweapon
        boolDistance = settingz.booldistance
        snaplines = settingz.boolsnaplines
        punchsens = settingz.sngRecoil
        warningSyst = settingz.warningsyst
        hotkey = settingz.hotkey
        rcs = settingz.RCS
        vrcs = settingz.vrcs
        kleurTeam = settingz.kleurteam
        kleurvijand = settingz.kleurenemy
        intDelayCompensation = settingz.intdelaycompensation
        globwidth = settingz.intradarsize * 10
        teamesp = settingz.boolteam
        radar = settingz.boolradar
        intLocation = settingz.radarlocation
        Size2 = New Size(settingz.intradaritemsize, settingz.intradaritemsize)
        crosshaircolor = settingz.kleurcross
        crosshairsize = settingz.crossize
        crosshair = settingz.boolcross
        crosshairrecoil = settingz.recoilmode
        If settingz.blockrender Then

            isRunning = False
            allowstart = False

        Else
            If isRunning = False Then
                isRunning = True
                allowstart = True
            End If

        End If
    End Sub


End Class