Bot.vb

Public Class Bot
    Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINT_API) As Boolean

    Private Structure POINT_API
        Public X As Integer
        Public Y As Integer
    End Structure

    Private foodXY As POINT_API

    Private Sub GetMouseXY(ByRef p As POINT_API)
        GetCursorPos(p)
        MessageBox.Show("OK!", "Position found")
    End Sub

    Private Sub TimerEat_Tick(sender As Object, e As EventArgs) Handles TimerEat.Tick
        eatfood(foodXY.X, foodXY.Y)
    End Sub

    Private Sub Bot_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            TryAttachToProcess("Classictibia")
            txtPID.Text = "PID: " + _targetProcess.Id.ToString
        Catch ex As Exception
            MsgBox("Injection failed!")
        End Try
    End Sub

    Private Sub TimerLoop_Tick(sender As Object, e As EventArgs) Handles TimerLoop.Tick
        CheckMana()
        If CheckInsert = True Then Application.Exit()
    End Sub

    Private Sub butMana_Click(sender As Object, e As EventArgs) Handles butMana.Click
        If getManaTrain = False Then getManaTrain = True Else getManaTrain = False
    End Sub

    Private Sub butEat_Click(sender As Object, e As EventArgs) Handles butEat.Click
        If getEatFood = False Then getEatFood = True Else getEatFood = False
    End Sub

    Private Sub butREC_Click(sender As Object, e As EventArgs) Handles butREC.Click
        TimerFoodPos.Enabled = True
    End Sub

    Private Sub TimerFoodPos_Tick(sender As Object, e As EventArgs) Handles TimerFoodPos.Tick
        GetMouseXY(foodXY)
        TimerFoodPos.Stop()
    End Sub
End Class