Bananas in Pajamas
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Angler Extreme

Go down

Angler Extreme Empty Angler Extreme

Post  Trayus Sat Feb 02, 2008 3:30 am


#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

and the link:

but it's like, 1.12 script Very Happy

Trayus
Guest


Back to top Go down

Angler Extreme Empty Re: Angler Extreme

Post  Auntpol Sat Feb 02, 2008 5:54 am

http://download.yousendit.com/B3CE217E79FE6A18
Auntpol
Auntpol
Guild Master
Guild Master

Posts : 14
Join date : 2008-01-24

https://bipraid.board-directory.net

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum