Jump to content

Backround mode


Recommended Posts

Heya, I cant get this script to work in backround mode, can you guys help me? Its a BG WoW bot ^_^

;+--------------------------------+----------------------------------+

;| Kallblodigs AutoBG Horde AV bot |

;+--------------------------+-----+-------+--------------------------+

; | Version .03 |

; +----------------------+-------------+----------------------+

; +--+By using this in conjunction with World of Warcraft you are+--+

; |violating your EULA and TOS. Using this bot can result in a temp|

; |or even a permanent ban (Even though it will never happen). |

; +-----+Open Source Meaning Tweak it up however you want because i am stuck.+----+

; +-+------------------------------------------------------+--+0x180204

; | Written for my friends at http://rpg-exploiters.shoq.net/ |

; +-----------------------------------------------------------+176,276

;

; ******************* Bot Start

TrayTip("AutoBG Version 0.3 ", "F9 to Exit the bot, F8 to Pause the bot", 5, 1)

; Press Esc to terminate script, Pause/Break to "pause"

Global $Paused

HotKeySet("{F8}", "TogglePause")

HotKeySet("{F9}", "Terminate")

HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d

Start_BG()

; ***** Start_BG Func

; ***** Activates WoW and asks to start

Func Start_BG()

If Not WinExists("World of Warcraft") Then

MsgBox(0, Random(0, 100), "WoW must be opened to run AutoBG")

Exit

EndIf

WinActivate("World of Warcraft")

WinSetOnTop("World of Warcraft", "", 0)

Sleep(500)

EndFunc

; ***** Que Start

Bg_Que()

; ***** Start Auto Que For SW AB

Func Bg_Que()

$coord = PixelSearch( 0, 0, 1152, 864, 0x32394A, 2 )

If @error Then

MsgBox(16, "Error", "First color not found.")

Else

MouseMove($coord[0], $coord[1])

EndIf

Sleep(2000); 2sec delay

ControlSend($handle, "", "", "{Enter}")

ControlSend($handle, "", "", "/target kartra bloodsnarl)"

Sleep(2000)

ControlSend($handle, "", "", "{Enter}")

MouseClick("Right")

MouseMove(228,596)

MouseCLick("Left")

Mousemove(228,596)

MouseClick("Left")

Mousemove(238,646)

MouseClick("Left")

Mousemove(250,618)

MouseClick("Left")

Mousemove(235,609)

MouseClick("Left")

Mousemove(229,602)

MouseClick("Left")

Mousemove(547,242)

MouseClick("Left")

Mousemove(558,235)

MouseClick("Left")

Mousemove(568,224)

MouseClick("Left")

Mousemove(545,224)

EndFunc

Sleep(Random(60000, 80000))

Anti_AFK()

; ***** Anti-AFK Function

Func Anti_AFK()

While 1

ControlSend($handle, "", "", "{UP down}") ;move out of cave

Sleep(7000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "{LEFT down}")

Sleep(70)

ControlSend($handle, "", "", "{LEFT up}")

ControlSend($handle, "", "", "{UP down}")

Sleep(1000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "{RIGHT down}")

Sleep(115)

ControlSend($handle, "", "", "{RIGHT up}")

ControlSend($handle, "", "", "{UP down}")

Sleep(15000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "{LEFT down}")

Sleep(200)

ControlSend($handle, "", "", "{LEFT up}")

ControlSend($handle, "", "", "{UP down}")

Sleep(7000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "{RIGHT down}")

Sleep(150)

ControlSend($handle, "", "", "{RIGHT up}")

ControlSend($handle, "", "", "{UP down}")

Sleep(5000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "3") ;e is bound to my av trinket

Sleep("15000")

ControlSend($handle, "", "", "{RIGHT down}") ;move a bit to not die/get afk marked

Sleep(200)

ControlSend($handle, "", "", "{RIGHT up}")

ControlSend($handle, "", "", "{UP down}")

Sleep(7000)

ControlSend($handle, "", "", "{UP up}")

ControlSend($handle, "", "", "0")

WEnd

EndFunc

While 1

Sleep(100)

WEnd

;;;;;;;;

Func TogglePause()

$Paused = NOT $Paused

While $Paused

sleep(100)

ToolTip('AutoBG is "Paused"',0,0)

WEnd

ToolTip("")

EndFunc

Func Terminate()

Exit 0

EndFunc

Func ShowMessage()

MsgBox(4096,"","This is a message from the darkside....")

EndFunc

Thanks!

Link to comment
Share on other sites

This is a pretty simple script. If your going to cheat at a game you might as well do something constructive while your at it and learn how to script.

Open WOW, run the script. WOW is set to always on top and active.

Esc to terminate

F8 terminate

F9 pause

shift Alt D apparently does nothing important. Probably just there in case you want to check the script is running.

script does a whole lot of nothing with a bunch of somethings in between.

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

  • Recently Browsing   0 members

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