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