Shinies Posted November 6, 2005 Share Posted November 6, 2005 (edited) Hey, i just put together this script today and thought i might share it with u all since iv seen a few people day they play it.Heres the code:expandcollapse popup;*************************************************************************************************** **; ;************** Dark Throne Recruiter Bot(Omega) ***************************************************; ;************** By: Smirk_zero v1.00 ***************************************************; ;************** Email: Smirk_zero@hotmail.com ***************************************************; ;*************************************************************************************************** **; ;Variables $Splash = IniRead( "Settings.ini", "Settings", "UseSplash", "True") $BrowserTitle = IniRead( "Settings.ini", "Settings", "BrowserTitle", "Dark Throne (OMEGA) - Microsoft Internet Explorer") $Click1X = IniRead( "Settings.ini", "MouseCoords", "XPos1", "400") $Click1Y = IniRead( "Settings.ini", "MouseCoords", "YPos1", "425") $Click2X = IniRead( "Settings.ini", "MouseCoords", "XPos2", "400") $Click2Y = IniRead( "Settings.ini", "MouseCoords", "YPos2", "516") $Click3X = IniRead( "Settings.ini", "MouseCoords", "XPos3", "565") $Click3Y = IniRead( "Settings.ini", "MouseCoords", "YPos3", "486") $BeginSleep = IniRead( "Settings.ini", "Delays", "BeginSleep", "3000") $AfterSleep = IniRead( "Settings.ini", "Delays", "AfterSleep", "4000") $ClickDelay = IniRead( "Settings.ini", "Delays", "ClickDelay", "500") ;HotKeys HotKeySet( "{pause}", "Pause") HotKeySet( "{end}", "Terminate") ;Begin Script Sleep($BeginSleep) Call("Click") ;Clicking Function Func Click() While 1 If $Splash = "True" Then SplashTextOn( "RecruiterBot", "Press 'Pause/Break' To Pause, Press 'End' To Exit", 600, 20, 0, 0) EndIf MouseClick( "left", $Click1X, $Click1Y, 1, 0) Sleep($ClickDelay) MouseClick( "left", $Click2X, $Click2Y, 1, 0) Sleep($ClickDelay) MouseClick( "left", $Click3X, $Click3Y, 1, 0) Sleep($AfterSleep) WEnd EndFunc ;==>Click ;Pause Function Func Pause() $MsgActive = MsgBox(4, "Recruiter Bot", "Bot is now paused, click 'Yes' to unpause, click 'No' to quit") Select Case $MsgActive = 6 WinActivate( "'" & $BrowserTitle & "'") Case $MsgActive = 7 MsgBox(0, "Exit", "You Have Chosen To Exit") Exit EndSelect EndFunc ;==>Pause ;Exit Function Func Terminate() Exit EndFunc ;==>TerminateI NO LONGER PROVIDE SUPPORT FOR THIS SCRIPT, PLEASE STOP EMAILING ME ASKING FOR HELP AS I DONT EVEN KNOW HOW ANYMORE (QUIT DARKTHRONE). THANK YOU! DarkThrone_Recruit_Bot.rar Edited December 16, 2008 by Smirk_zero Link to comment Share on other sites More sharing options...
erifash Posted November 6, 2005 Share Posted November 6, 2005 <off topic> Cool sig! I wish I was that good with Photoshop! </off topic> But... Sorry I don't play DarkThrone. My UDFs:_FilePrint() | _ProcessGetName() | _Degree() and _Radian()My Scripts:Drive Lock - Computer Lock Using a Flash DriveAU3Chat - Simple Multiuser TCP ChatroomStringChunk - Split a String Into Equal PartsAutoProxy - Custom Webserver Link to comment Share on other sites More sharing options...
IMMA Posted November 12, 2005 Share Posted November 12, 2005 (edited) Hey how can that code work?Can you make it simplier And the file attachment when i donload it,nothing happen to me at all,nothing has been changed Edited November 12, 2005 by IMMA Link to comment Share on other sites More sharing options...
Shinies Posted November 12, 2005 Author Share Posted November 12, 2005 What do u meen by making it simpler? thats a pretty simple script. All it does is reads variables from a .ini file and clicks the screen based on them. Also what do u meen by nothing has changed for you? Link to comment Share on other sites More sharing options...
IMMA Posted November 13, 2005 Share Posted November 13, 2005 (edited) I attach the file and click nothing happens.And how can i use it? Edited November 13, 2005 by IMMA Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted November 13, 2005 Share Posted November 13, 2005 hahah i tryed it randomyl clicked everywhere Link to comment Share on other sites More sharing options...
IMMA Posted November 13, 2005 Share Posted November 13, 2005 How did you do it? Link to comment Share on other sites More sharing options...
Slow_One Posted May 15, 2006 Share Posted May 15, 2006 well I was able to locate an put the proper mouse positions in, I also tweaked the speeds some too .. worked ok once I set it up to my liking.. but if you want to make a truely better go at it check about having it find the location of the buttons on the site an it then randomly click within the buttons position.. also I feel you could have it check for the click "here" comment that may pop up from time to time.. but if you really feel like having fun with it an want to smoke the clicking times down.. make it run within a command prompt window an load NO graphics.. it will cut the speeds down to where you will wish you had done them that way all along.. also you could make it do all of it without tying up the mouse cursor, so you can still use the system for other tasks while it is clicking.. an could be more fun to make it able to use several settings/config files for various accounts.. I mention the last part because if it is done well it could do both beta an omega base in one app.. best of luck an need to make the way people adjust the settings on this project simpler if nothing else.. either with built in randomizing or as I said take it to a command prompt window.. 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