Jump to content

first autoit script - WoW starting zone Bot

will88

By will88,
in AutoIt Example Scripts

 Share

Recommended Posts

will88 Adventurer

will88

Posted
Posted (edited)

Only works for mobs that don't attack you(starting zones). 

;------how to use------
;run wow in window mode
;open.ini file
;Death options
;Death = logout
;Death = shutdown
;Death = quit
;If you happen to die, changing Death to logout will log you out of wow, shutdown will shutdown your pc, quit will Quit bot + WoW
;Set Cast(in the .ini file) to the binding of your casting spell(fireball)
;Also set Armor(in the .ini file) to the binding of your armor spell(frost armor)
;Change name of script
;Change line 20 to what you want to call the Setup.ini file
;press f1 to start the script and f2 to stop it
;if the bot isn't working properly (not detecting the right colors) check out lines 33-37
;-----------------------
HotkeySet("{F1}", "Start")
HotkeySet("{F2}", "Stop")
Global $Loop = 0

$InI = 'SETUP.ini';change to what you want to name the Setup.ini file


GLOBAL $deathini = IniRead(@ScriptDir & "\" & $InI, "Options", "Death", "NotFound")
$armorini = IniRead(@ScriptDir & "\" & $InI, "Options", "Armor", "NotFound")
$Cast = IniRead(@ScriptDir & "\" & $InI, "Options", "Cast", "NotFound")
$buffkey = $armorini
$WoW = 'World of Warcraft'
$notset = ''
$logout = 'logout'
$shutdownn = 'shutdown'
$quit = 'quit'
$attack = 't'
$findmob = '{tab}'
;colors
$mobtargeted = '0xC8C500';target a mob and get the color of the background color where the mob name is
$health = '0x009300';get the color of your health and pick the color of the health at about 25% or 1/2(health doesent have to be at 25% or 1/2 just to get the color)
$mana = '0x000095';get the color of your mana and pick the color of the mana at about 25% or 1/2(mana doesent have to be at 25% or 1/2 just to get the color)
$armor = '0x0078EA';cast your mage armor(frost armor) and get the color of it where all your buffs go near the map.
$dead = '0x750100';get the color of the release spirit button
;
If FileExists(@ScriptDir & "\" & $InI) Then
sleep(random(400, 550))
Else
msgbox(0, "Error", $InI & " does not exist!")
EndIf
If $deathini==$notset Then
$deathini = false
Else
$deathini = True
EndIf
If $armorini==$notset then
$armorini = false
Else
$armorini = true
EndIf
If $armorini = false and $deathini = false Then
msgbox(0, $InI, "Armor and Death options need to be setup in the .ini file")
EndIf
If $armorini = true and $deathini = false Then
msgbox(0, $InI, "Death options need to be setup in the .ini file")
EndIf
If $armorini = false and $deathini = True Then
msgbox(0, $InI, "Armor key needs to be setup in the .ini file")
EndIf
If $Cast==$notset Then
msgbox(0, "Error", "Cast not set" )
EndIf
While 1 
If $Loop = 1 Then
$deathdetect = PixelSearch( 0, 0, 1000, 800, $dead)
If Not @error Then
tooltip("you are dead")
died($deathini)
EndIf
tooltip("detecting buff")
$buff = PixelSearch( 0, 0, 1000, 800, $armor)
If Not @error Then
tooltip("buff detected")
sleep(random(700, 1000))
Else
send($buffkey)
sleep(random(600, 900))
EndIf
tooltip( "checking mana")
PixelSearch( 0, 0, 1000, 800, $mana)
sleep(random(500, 700))
If Not @error Then
tooltip( "good on mana")
sleep(random(500, 1000))
else
tooltip( "I need mana")
sleep(random(9000, 10000))
EndIf
tooltip( "checking health")
PixelSearch( 0, 0, 1000, 800, $health)
sleep(random(500, 700))
If Not @error Then
tooltip( "good on health")
sleep(random(500, 1000))
else
tooltip( "I need health")
sleep(random(9000, 10500))
EndIf
tooltip( "finding mob")
send($findmob)
sleep(random(500, 700))
PixelSearch( 0, 0, 1000, 800, $mobtargeted)
sleep(random(500, 700))
If Not @error Then
tooltip( "mob found")
sleep(random(500, 1000))
send($attack)
sleep(random(300, 600))
send($Cast)
sleep(random(10000, 15000))
Do
$mobalive = PixelSearch( 0, 0, 1000, 800, $mobtargeted)
sleep(random(500, 700))
If @error Then
dead()
Else
alive()
tooltip("mob still alive")
EndIf
Until Not IsArray($mobalive)
EndIf
If $Loop = 1 Then 
Sleep(1000) 
Else 
ExitLoop 
EndIf 
EndIF
WEnd 
Func Start() 
$Loop = 1
EndFunc
Func Stop() 
$Loop = 0 
EndFunc
Func died($deathini)
If $deathini = $logout then logout()
If $deathini = $shutdownn then shutdownn()
If $deathini = $quit then quit()
EndFunc
Func logout()
sleep(random(800, 1000))
send('{enter}')
sleep(random(800, 1000))
send('/logout')
sleep(random(800, 1000))
send('{enter}')
exit
EndFunc
Func shutdownn()
shutdown( 9 )
EndFunc
Func Quit()
exit
WinClose($WoW)
EndFunc
Func alive()
send($cast)
sleep(random(3000, 5000))
EndFunc
Func dead()
$loop = 1
EndFunc
Edited by will88
Password-Keeper
Link to comment
Share on other sites
Skrip Universalist

Skrip

Posted
Posted (edited)

I tabbed it out for you (Tidy)

CODE

;------how to use------

;run wow in window mode

;open.ini file

;Death options

;Death = logout

;Death = shutdown

;Death = quit

;If you happen to die, changing Death to logout will log you out of wow, shutdown will shutdown your pc, quit will Quit bot + WoW

;Set Cast(in the .ini file) to the binding of your casting spell(fireball)

;Also set Armor(in the .ini file) to the binding of your armor spell(frost armor)

;Change name of script

;Change line 20 to what you want to call the Setup.ini file

;press f1 to start the script and f2 to stop it

;if the bot isn't working properly (not detecting the right colors) check out lines 33-37

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

HotKeySet("{F1}", "Start")

HotKeySet("{F2}", "Stop")

Global $Loop = 0

$InI = 'SETUP.ini';change to what you want to name the Setup.ini file

Global $deathini = IniRead(@ScriptDir & "\" & $InI, "Options", "Death", "NotFound")

$armorini = IniRead(@ScriptDir & "\" & $InI, "Options", "Armor", "NotFound")

$Cast = IniRead(@ScriptDir & "\" & $InI, "Options", "Cast", "NotFound")

$buffkey = $armorini

$WoW = 'World of Warcraft'

$notset = ''

$logout = 'logout'

$shutdownn = 'shutdown'

$quit = 'quit'

$attack = 't'

$findmob = '{tab}'

;colors

$mobtargeted = '0xC8C500';target a mob and get the color of the background color where the mob name is

$health = '0x009300';get the color of your health and pick the color of the health at about 25% or 1/2(health doesent have to be at 25% or 1/2 just to get the color)

$mana = '0x000095';get the color of your mana and pick the color of the mana at about 25% or 1/2(mana doesent have to be at 25% or 1/2 just to get the color)

$armor = '0x0078EA';cast your mage armor(frost armor) and get the color of it where all your buffs go near the map.

$dead = '0x750100';get the color of the release spirit button

;

If FileExists(@ScriptDir & "\" & $InI) Then

Sleep(Random(400, 550))

Else

MsgBox(0, "Error", $InI & " does not exist!")

EndIf

If $deathini == $notset Then

$deathini = False

Else

$deathini = True

EndIf

If $armorini == $notset Then

$armorini = False

Else

$armorini = True

EndIf

If $armorini = False And $deathini = False Then

MsgBox(0, $InI, "Armor and Death options need to be setup in the .ini file")

EndIf

If $armorini = True And $deathini = False Then

MsgBox(0, $InI, "Death options need to be setup in the .ini file")

EndIf

If $armorini = False And $deathini = True Then

MsgBox(0, $InI, "Armor key needs to be setup in the .ini file")

EndIf

If $Cast == $notset Then

MsgBox(0, "Error", "Cast not set")

EndIf

While 1

If $Loop = 1 Then

$deathdetect = PixelSearch(0, 0, 1000, 800, $dead)

If Not @error Then

ToolTip("you are dead")

died($deathini)

EndIf

ToolTip("detecting buff")

$buff = PixelSearch(0, 0, 1000, 800, $armor)

If Not @error Then

ToolTip("buff detected")

Sleep(Random(700, 1000))

Else

Send($buffkey)

Sleep(Random(600, 900))

EndIf

ToolTip("checking mana")

PixelSearch(0, 0, 1000, 800, $mana)

Sleep(Random(500, 700))

If Not @error Then

ToolTip("good on mana")

Sleep(Random(500, 1000))

Else

ToolTip("I need mana")

Sleep(Random(9000, 10000))

EndIf

ToolTip("checking health")

PixelSearch(0, 0, 1000, 800, $health)

Sleep(Random(500, 700))

If Not @error Then

ToolTip("good on health")

Sleep(Random(500, 1000))

Else

ToolTip("I need health")

Sleep(Random(9000, 10500))

EndIf

ToolTip("finding mob")

Send($findmob)

Sleep(Random(500, 700))

PixelSearch(0, 0, 1000, 800, $mobtargeted)

Sleep(Random(500, 700))

If Not @error Then

ToolTip("mob found")

Sleep(Random(500, 1000))

Send($attack)

Sleep(Random(300, 600))

Send($Cast)

Sleep(Random(10000, 15000))

Do

$mobalive = PixelSearch(0, 0, 1000, 800, $mobtargeted)

Sleep(Random(500, 700))

If @error Then

dead()

Else

alive()

ToolTip("mob still alive")

EndIf

Until Not IsArray($mobalive)

EndIf

If $Loop = 1 Then

Sleep(1000)

Else

ExitLoop

EndIf

EndIf

WEnd

Func Start()

$Loop = 1

EndFunc ;==>Start

Func Stop()

$Loop = 0

EndFunc ;==>Stop

Func died($deathini)

If $deathini = $logout Then logout()

If $deathini = $shutdownn Then shutdownn()

If $deathini = $quit Then Quit()

EndFunc ;==>died

Func logout()

Sleep(Random(800, 1000))

Send('{enter}')

Sleep(Random(800, 1000))

Send('/logout')

Sleep(Random(800, 1000))

Send('{enter}')

Exit

EndFunc ;==>logout

Func shutdownn()

Shutdown(9)

EndFunc ;==>shutdownn

Func Quit()

Exit

WinClose($WoW)

EndFunc ;==>Quit

Func alive()

Send($Cast)

Sleep(Random(3000, 5000))

EndFunc ;==>alive

Func dead()

$Loop = 1

EndFunc ;==>dead

EDIT: Hmm..the codebox doesn't keep it tabbed? Dubya-Tee-Eph?

And I would test it, but I do not have WoW installed..

Edited by Firestorm

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...