Form1

Imports Setting.IniFile
Public Class getrektfeggit
    Dim ini As New Setting.IniFile("Settings\Settings.ini")
    Private Sub OriginRegister_CheckedChanged(ByVal sender As System.Object) Handles OriginRegister.CheckedChanged
        If OriginRegister.Checked = True Then
            WriteMemory(Of Byte)(&H56EC09, 117)
        Else
            WriteMemory(Of Byte)(&H56EC09, 116)
        End If
    End Sub

    Private Sub OriginLogin_CheckedChanged(ByVal sender As System.Object) Handles OriginLogin.CheckedChanged
        If OriginLogin.Checked = True Then
            UAV.Start()
        Else
            UAV.Stop()
        End If
    End Sub

    Private Sub UAV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UAV.Tick
        WriteMemory(Of Integer)(&H2CB5989, 4)
        WriteMemory(Of Integer)(&H2E4911D4, 4)
    End Sub

    Private Sub MeClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MeClose.Click
        Me.Close()
    End Sub

    Private Sub MeMinimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MeMinimize.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub OriginSaveSettings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OriginSaveSettings.Click
        ini.WriteValue("Weapon Hacks", "No Recoil", OriginRegister.Checked)
        ini.WriteValue("Weapon Hacks", "No Sway", OriginNoSway.Checked)
        ini.WriteValue("Weapon Hacks", "Orbital VSAT", OriginLogin.Checked)
        ini.WriteValue("Weapon Hacks", "Gun X", cg_gun_x.Value)
        ini.WriteValue("Weapon Hacks", "Gun Z", cg_gun_z.Value)
        ini.WriteValue("Weapon Hacks", "Gun Y", cg_gun_y.Value)
        ini.WriteValue("Visual Hacks", "FPS Unlocker", OriginFPSUnlocker.Checked)
        ini.WriteValue("Visual Hacks", "FoV", OriginFieldOfView.Value)
    End Sub

    Private Sub LoadSettingsOrigin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadSettingsOrigin.Click
        OriginRegister.Checked = ini.ReadValue("Weapon Hacks", "No Recoil")
        OriginNoSway.Checked = ini.ReadValue("Weapon Hacks", "No Sway")
        OriginLogin.Checked = ini.ReadValue("Weapon Hacks", "Orbital VSAT")
        OriginFPSUnlocker.Checked = ini.ReadValue("Visual Hacks", "FPS Unlocker")
        cg_gun_x.Value = ini.ReadValue("Weapon Hacks", "Gun X")
        cg_gun_z.Value = ini.ReadValue("Weapon Hacks", "Gun Z")
        cg_gun_y.Value = ini.ReadValue("Weapon Hacks", "Gun Y")
        OriginFieldOfView.Value = ini.ReadValue("Visual Hacks", "FoV")

        If OriginRegister.Checked = True Then
            WriteMemory(Of Byte)(&H56EC09, 117)
        Else
            WriteMemory(Of Byte)(&H56EC09, 116)
        End If

        If OriginLogin.Checked = True Then
            UAV.Start()
        Else
            UAV.Stop()
        End If

        If OriginNoSway.Checked = True Then
            WriteMemory(Of Single)(&H2A29440, 0)
        Else
            WriteMemory(Of Single)(&H2A29440, 4)
        End If

        If OriginFPSUnlocker.Checked = True Then
            WriteMemory(Of Integer)(&H2A33760, 0)
        Else
            WriteMemory(Of Integer)(&H2A33760, 60)
        End If

        WriteMemory(Of Single)(&H2A4B400, +cg_gun_z.Value)
        WriteMemory(Of Single)(&H2A4B340, +cg_gun_x.Value)
        WriteMemory(Of Single)(&H2A4B3A0, +cg_gun_y.Value)
        WriteMemory(Of Single)(&H2A42F40, +OriginFieldOfView.Value)
    End Sub

    Private Sub OriginNoSway_CheckedChanged(ByVal sender As System.Object) Handles OriginNoSway.CheckedChanged
        If OriginNoSway.Checked = True Then
            WriteMemory(Of Single)(&H2A29440, 0)
            WriteMemory(Of Single)(&H2A2920, 30)
        Else
            WriteMemory(Of Single)(&H2A29440, 4)
            WriteMemory(Of Single)(&H2A2920, 4.5)
        End If
    End Sub

    Private Sub OriginFPSUnlocker_CheckedChanged(ByVal sender As System.Object) Handles OriginFPSUnlocker.CheckedChanged
        If OriginFPSUnlocker.Checked = True Then
            WriteMemory(Of Integer)(&H2A33760, 0)
        Else
            WriteMemory(Of Integer)(&H2A33760, 60)
        End If
    End Sub

    Private Sub cg_gun_z_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cg_gun_z.Scroll
        WriteMemory(Of Single)(&H2A4B400, +cg_gun_z.Value)
    End Sub

    Private Sub cg_gun_x_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cg_gun_x.Scroll
        WriteMemory(Of Single)(&H2A4B340, +cg_gun_x.Value)
    End Sub

    Private Sub cg_gun_y_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cg_gun_y.Scroll
        WriteMemory(Of Single)(&H2A4B3A0, +cg_gun_y.Value)
    End Sub

    Private Sub OriginFieldOfView_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OriginFieldOfView.Scroll
        WriteMemory(Of Single)(&H2A42F40, +OriginFieldOfView.Value)
    End Sub
End Class