Imports System.Threading
Imports System.Threading.Thread
Imports System.Windows.Forms

Imports Elektro.Core.IO.Enums
Imports Elektro.Core.IO.Tools

Public Module Module1

    Public Sub Main()
        Console.Title = "Auto-Potion"

        Console.WriteLine("Press any key to start...")
        Console.ReadKey(intercept:=True)

        Module1.RunBot()
    End Sub

    <DebuggerStepperBoundary>
    Private Sub RunBot()
        ' Añadir tareas aquí.
        Dim potionAction As Action = Sub() Module1.TakePotion(TimeSpan.FromSeconds(3))
        Dim potionTask As New Task(potionAction)

        ' Iniciar tareas aquí (asincrónicamente).
        Console.Clear()
        Console.WriteLine("Bot is running...")
        potionTask.Start()

        ' Esperar sincrónicamente a que todas las tareas asincrónicas finalicen.
        Task.WaitAll({potionTask})
    End Sub

    <DebuggerStepThrough>
    Private Sub TakePotion(ByVal interval As TimeSpan)

        Dim success As Boolean
        Do While True
            Sleep(interval)
            success = (Keyboard.SendKey(Keys.F1, KeyBehavior.Press) = 2)
            If (success) Then
                Console.WriteLine("[{0}] Potion consumed.", DateTime.Now.ToLongTimeString())
            Else
                Environment.ExitCode = 1
                Environment.FailFast(String.Format("Not all keystrokes were sent in Method: '{0}()'.", New StackFrame(0).GetMethod.Name))
            End If
        Loop

    End Sub

End Module