kallblodig Posted April 19, 2009 Share Posted April 19, 2009 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 More sharing options...
picea892 Posted April 20, 2009 Share Posted April 20, 2009 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now