#include <GUIConstants.au3>
$wait_time = 30000
$tolerance = IniRead("hex.ini", "Variables", "Tolerance", 20)
$sear_step = IniRead("hex.ini", "Variables", "Step", 2)
$spla_colo = 0xF6F6F6

HotKeySet("{PAUSE}", "End")
HotKeySet("{F6}", "Set_Bobber")

GUI_Gene()

Func GUI_Gene()
    GUICreate(Random(0,9999),150,127)

    $menu_menu = GUICtrlCreateMenu("Menu")
    $menu_abou = GUICtrlCreateMenuItem("About",$menu_menu)
    $menu_line = GUICtrlCreateMenuItem("",$menu_menu)
    $menu_exit = GUICtrlCreateMenuItem("Exit",$menu_menu)

    $help_menu = GUICtrlCreateMenu("Help")
    $help_gene = GUICtrlCreateMenuItem("Generate Ini",$help_menu)

    $start = GUICtrlCreateButton("Start",37,58,76,23)

    $arra = IniReadSection("hex.ini","Values")
    If @error == 1 Then
        MsgBox(4096,"","Error loading ""Values"" from Ini" & @CRLF & "Generating basic Ini setup")
        Ini_Gene()
        $arra = IniReadSection("hex.ini","Values")
    EndIf

    $list = GUICtrlCreateCombo("", 25, 25, 100, 23)
    For $i = 1 to $arra[0][0]
        GUICtrlSetData($list,$arra[$i][0])
    Next

    GUISetState()

    While 1
        $mess = GUIGetMsg()

        If $mess = $start Then
            global $colo_use =IniRead("hex.ini","Values",GUICtrlRead($list),"")
            Start_Bot()
        EndIf
        If $mess = $help_gene Then Ini_Gene()
        If $mess = $GUI_EVENT_CLOSE or $mess = $menu_exit Then Exit
        If $mess = $menu_abou Then MsgBox(0,"About","Written by Luvmachine" & @CRLF & "Original design Pantless Krab")
    WEnd
EndFunc

Func Ini_Gene()
    IniWrite("hex.ini","Values","Dark Purple","0x463B4D")
    IniWrite("hex.ini","Values","Red","0xA72C0B")
    IniWrite("hex.ini","Values","Stormwind Red","0x6B1F0C")
    IniWrite("hex.ini","Values","Beige","0xBB9B3D")
    IniWrite("hex.ini","Values","Wailing Caverns","0x210B04")
    IniWrite("hex.ini","Variables","Tolerance","20")
   IniWrite("hex.ini","Variables","Step","2")
EndFunc

Func Start_Bot()
    GUIDelete()

    If Not WinExists("World of Warcraft") Then
        MsgBox(0, Random(0, 9999), "World of Warcraft must be open.")
        Exit
    EndIf

    WinActivate("World of Warcraft")
    WinSetOnTop("World of Warcraft", "", 0)
    Sleep(500)
    Set_Size()

    If MsgBox(4, Random(0, 9999), "Do you want to start the Bot?") == 6 Then
    Else
       Exit
   EndIf
   
   WinSetOnTop("World of Warcraft", "", 1)

    MouseMove($wind_left, $wind_top, 2)
    MouseMove($wind_righ, $wind_top, 2)
    MouseMove($wind_righ, $wind_bott, 2)
    MouseMove($wind_left, $wind_bott, 2)

    Cast_Pole()
    Find_Float()
EndFunc

Func Set_Size()
    $bord_vert = 23
    $bord_hori = 4
    $wind_size = WinGetClientSize("World of Warcraft")
    $wind_posi = WinGetPos("World of Warcraft")
    $wind_x = $wind_posi[0] + $bord_hori
    $wind_y = $wind_posi[1] + $bord_vert
    global $wind_top = $wind_y + (.25 * $wind_size[1])
    global $wind_bott = $wind_top + (.35 * $wind_size[1]) - 1
    global $wind_left = $wind_x + (.15 * $wind_size[0])
    global $wind_righ = $wind_left + $wind_size[0] - (.3 * $wind_size[0]) - 1
EndFunc

Func Cast_Pole()
    global $star_time = TimerInit()
   WinActivate("World of Warcraft")
    Send("1")
    Sleep(1000)
EndFunc

Func Find_Float()
   While 1
      If TimerDiff($star_time) >= $wait_time Then
         Cast_Pole()
      EndIf

      $pos = PixelSearch($wind_left, $wind_top, $wind_righ, $wind_bott, $colo_use, $tolerance, $sear_step)
         If @error Then
            SetError(0)
         Else
            MouseMove($pos[0], $pos[1], 2)
            Find_Splash($pos[0], $pos[1] )
         EndIf
         Sleep(10)
      WEnd
EndFunc

Func Find_Splash($float_x, $float_y)
    $sear_left = $float_x - 32
    $sear_righ = $sear_left + 52
    $sear_top = $float_y - 32
    $sear_bott = $sear_top + 64

    While TimerDiff($star_time) < $wait_time
        $pos = PixelSearch($sear_left, $sear_top, $sear_righ, $sear_bott, $spla_colo, $tolerance, $sear_step)
        If @error Then
            SetError(0)
        Else
            Send("{SHIFTDOWN}")
            MouseClick("right", $pos[0], $pos[1], 1, 2)
            Send("{ShiftUP}")
            Sleep(5500)
            ExitLoop
        EndIf
        Sleep(10)
    WEnd

    Cast_Pole()
EndFunc

Func End()
   WinSetOnTop("World of Warcraft", "", 0)
    Exit
EndFunc

Func Set_Bobber()
    $bob_pos = MouseGetPos()
   MouseMove(0, 0, 0)
    $colo_use = "0x" & Hex(PixelGetColor($bob_pos[0], $bob_pos[1]), 6)
    IniWrite("hex.ini","Values", $colo_use, $colo_use)
EndFunc