Some Useful AutoIT Scripts

[barnyonfire1]

these r alot of scripts from mmowned and other sites i have found

Fish Bot

MsgBox(0, "", "FishBot")

#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

AntiAFK Bot

$Msg = MsgBox(1, "AFK Bot", "Anti AFK.")
If $Msg = 2 Then
UserEnd()

EndIf
HotKeySet("{Pause}", "UserEnd")
Func UserEnd()
Exit
EndFunc
WinSetState("World of Warcraft", "", @SW_MAXIMIZE)
ControlSend("World of Warcraft", "", "", "/join jsdfhgbjhadfbvjvjfkj")
ControlSend("World of Warcraft", "", "", "{ENTER}")
While 1
ControlSend("World of Warcraft", "", "", "I'm Not AFK!")
ControlSend("World of Warcraft", "", "", "{ENTER}")
Sleep(30000)
WEnd

Acidic Bot

$name = "Acidic WoW"
$version = "v0.67"
$demo = 1
$maxkills = 10000
$kills = 0
$loots = 0

HotKeySet("^!x", "MyExit")
Func MyExit()
Exit
EndFunc

Func Status($message)
$stats = ""
$stats = $stats & "Life: " & LifeValue() & "%" & @LF
$stats = $stats & "Mana: " & ManaValue() & "%" & @LF
$stats = $stats & @LF
$stats = $stats & "Estimated Kills: " & $kills & @LF
$stats = $stats & "Estimated Loots: " & $loots
If EnemyExists() = 1 Then
$stats = $stats & @LF & @LF
$stats = $stats & "Enemy Life: " & EnemyLifeValue() & "%"
EndIf
If $demo = 1 Then
TrayTip($name & " " & $version & " (DEMO)", $message & @LF & @LF & $stats, 10, 1)
Else
TrayTip($name & " " & $version, $message & @LF & @LF & $stats, 10, 1)
EndIf
EndFunc

Func Test()
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "291.5: " & PixelGetColor(291.5,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "282: " & PixelGetColor(282,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "274: " & PixelGetColor(274,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "265: " & PixelGetColor(265,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "257: " & PixelGetColor(257,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "248: " & PixelGetColor(248,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "240: " & PixelGetColor(240,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "231: " & PixelGetColor(231,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "223: " & PixelGetColor(223,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "214: " & PixelGetColor(214,6)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
MsgBox(4096, $name & " " & $version, "206: " & PixelGetColor(206,6)
EndFunc

Func LifeValue()
$lifespot = 162
$lifepercent = 100
While $lifespot >= 77
If PixelGetColor($lifespot,69) >= 30000 And PixelGetColor($lifespot,69) <= 55000 Then
$life = $lifepercent
ExitLoop
EndIf
$lifespot = $lifespot - 8.5
$lifepercent = $lifepercent - 10
If $lifepercent <= 0 Then
$life = 0
ExitLoop
EndIf
Wend
Return $life
EndFunc

Func ManaValue()
$manaspot = 162
$manapercent = 100
While $manaspot >= 77
If PixelGetColor($manaspot,79) >= 100 And PixelGetColor($manaspot,79) <= 200 Then
$mana = $manapercent
ExitLoop
EndIf
$manaspot = $manaspot - 8.5
$manapercent = $manapercent - 10
If $manapercent <= 0 Then
$mana = 0
ExitLoop
EndIf
Wend
Return $mana
EndFunc

Func EnemyExists()
If PixelGetColor(290,56) >= 10000000 And PixelGetColor(290,56) <= 15000000 Then
Return 1
ElseIf PixelGetColor(290,56) >= 5500000 And PixelGetColor(290,56) <= 7000000 Then
Return 1
Else
Return 0
EndIf
EndFunc

Func EnemyLifeValue()
$enemylifespot = 291
$enemylifepercent = 100
While $enemylifespot >= 206
If PixelGetColor($enemylifespot,6 >= 35000 And PixelGetColor($enemylifespot,6 <= 55000 Then
$enemylife = $enemylifepercent
ExitLoop
EndIf
$enemylifespot = $enemylifespot - 8.5
$enemylifepercent = $enemylifepercent - 10
If $enemylifepercent <= 0 Then
$enemylife = 0
ExitLoop
EndIf
Wend
Return $enemylife
EndFunc

Func Loot()
Status("Attempting to loot.")
$didloot = 0
$x = 50
$y = 300
While $y <= 550
If EnemyExists() = 1 And EnemyLifeValue() > 0 Then ExitLoop
MouseMove($x, $y, 1)
Send("{LSHIFT DOWN}")
MouseClick("right")
Send("{LSHIFT UP}")
If PixelGetColor(34,123) = 0 Then
$didloot = 1
$loots = $loots + 1
Status("Loot attempt successful.")
Send("{ESC}")
EndIf
Sleep(25)
$x = $x + 50
If $x = 750 Then
$y = $y + 50
$x = 50
EndIf
WEnd
If EnemyExists() = 1 Then
Send("{ESC}")
EndIf
If $didloot = 0 Then
Status("Loot attempt failed.")
EndIf
Send("{HOME 5}{END 2}")
Sleep(1000)
EndFunc

Func LoadingMagic()
If PixelGetColor(332,569) >= 6500000 And PixelGetColor(332,569) <= 8000000 Then
Return 1
Else
Return 0
EndIf
EndFunc

Func LocateEnemy()
Status("Locating enemy position.")
$locatecycles = 0
Send("2")
Sleep(500)
While LoadingMagic() = 0
If EnemyExists() = 0 Then
ExitLoop
EndIf
Send("{RIGHT DOWN}")
Sleep(250)
Send("{RIGHT UP}")
If EnemyExists() = 0 Then
Send("{TAB}")
EndIf
Send("2")
Sleep(500)
$locatecycles = $locatecycles + 1
If $locatecycles = 10 Then
Send("{ESC}")
ExitLoop
EndIf
WEnd
Status("Enemy position located.")
EndFunc

Func AttackEnemy()
Status("Attacking enemy.")
While EnemyExists() = 1
Status("Attacking enemy.")
Send("3")
Sleep(500)
If LoadingMagic() = 0 Then
LocateEnemy()
EndIf
While LoadingMagic() = 1
Sleep(250)
WEnd
WEnd
Status("Enemy defeated.")
$kills = $kills + 1
If $kills = $maxkills Then
If $demo = 1 Then
MsgBox(4096, $name & " " & $version, "This is a demo version which ends after " & $maxkills & " kills.")
Exit
EndIf
EndIf
EndFunc

Func Move()
;Send("{NUMLOCK}")
Send("{RIGHT DOWN}")
Sleep(500)
Send("{RIGHT UP}")
;Send("{NUMLOCK}")
EndFunc

While 1 = 1
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
Move()

If LifeValue() >= 80 Then
If ManaValue() >= 80 Then
Status("Looking/Waiting for enemy.")
Send("{TAB}")
Else
Status("Waiting for mana to regenerate.")
EndIf
Else
Status("Waiting for life to regenerate.")
EndIf

Sleep(1000)

If EnemyExists() = 1 Then
Status("Enemy detected.")
Send("t")
Sleep(2000)
While EnemyExists() = 1
LocateEnemy()
AttackEnemy()
Sleep(1000)
WEnd
Loot()
EndIf
Wend
Sleep(10000)

; ----------------------------------------------------------------------------

well this is only some more r coming soon

[Relz]

what makes you think you need to put the stuff we have on here in 1post? theres this thing called search that people can use. theres no point in doing this.

[rudez]

lol yea getting other ppls posts nd puttin it into 1 isnt gona get u rep...its like stealin really, at least give mention to the ppl who made it

[dumbledrew]

Nice!!!! +rep

He's just trying to help the community, and doing an awesome job IMO..

[Relz]

Nice!!!! +rep

He's just trying to help the community, and doing an awesome job IMO..

no, you giving him rep is gay. he jsut took scripts that were already there and tried to get credit for them. you gave him what he wanted. and no he isnt contributing to the community, just taking other's contributes and getting rep off them.

[Shattered]

no, you giving him rep is gay. he jsut took scripts that were already there and tried to get credit for them. you gave him what he wanted. and no he isnt contributing to the community, just taking other's contributes and getting rep off them.

This is helping people its makeing it more conveintent, Fault did the exact same thing and got tons of rep for it along with that his forum got a sticky. He was helping the community he wasnt hurting it, its not like hes asking for rep hes trying to help. I don't see why you are getting down on him he was just trying to help. Also notice that he said and from other sites, its not all from this site. But I do not agree that he got rep for this, and I dont agree that Fault got rep for what he did too, I think he was just trying to be nice.


Btw heres the link to faults thread.

http://www.mmowned.com/forums/model-...ollection.html

[Relz]

those were all faults edits. these, are not this kids. see the difference?

[dumbledrew]

This is helping people its makeing it more conveintent, Fault did the exact same thing and got tons of rep for it along with that his forum got a sticky. He was helping the community he wasnt hurting it, its not like hes asking for rep hes trying to help. I don't see why you are getting down on him he was just trying to help. Also notice that he said and from other sites, its not all from this site. But I do not agree that he got rep for this, and I dont agree that Fault got rep for what he did too, I think he was just trying to be nice.


Btw heres the link to faults thread.

http://www.mmowned.com/forums/model-...ollection.html

Amen brothern!!!!! You guy's should be nicer. As was said, he tried to make it more convinient..

[Shattered]

those were all faults edits. these, are not this kids. see the difference?

Please read the link before you post, if you read Faults post 10 of those he did not make him self plus all the race conversions he did not make himself.

[Relz]

well, its not like its hard to type something in the search bar. i dont think it needs to be more convenient.

[Shattered]

Some of those scripts are not from this site though. But once again Fault got a lot of rep for that post that in my opnion he shouldn't have gotten any. Get down on Fault if you want to get down on people here he got a sticky and a lot of rep.

[Relz]

Some of those scripts are not from this site though. But once again Fault got a lot of rep for that post that in my opnion he shouldn't have gotten any. Get down on Fault if you want to get down on people here he got a sticky and a lot of rep.

1. those scripts are INFACT from mmowned, or atleast on it
2. you cant say anything, you have 3rep and like 10posts
3. fault is a contributer and i respect him. he atleast gave credit to the people that made the other edits. and when it was first put up (before all the edits) it was all from him. and he didnt need that post to get contrib or alot of rep, he already had both. and also, people with under 10 posts that "+rep" dont give out any, which is most of the people that repped him for that.

[rudez]

Hey Shattered! Notice how in Faults post he's linked the original guide and mentioned the person who made it? Thats how Barney should have done it, get your fact straight before you try and make an argument! i think relz pretty much said the rest lol
kkthnxbye

[=sinister=]

http://www.mmowned.com/forums/bots-p...urce-code.html

Thats not cool, man, not cool at all!

[Mutated Carpet People]

Very sad.... Copy and paste for the loss.....