helldragon Posted April 21, 2006 Share Posted April 21, 2006 this is a script that one of the users here posted, i decided i was going to edit it a bit (im not too advanced so i cant really COMPLETELY build my own yet). I got it all working, except for when it disconnects, it will load the game back up, and continue to do what is needed, except for pushing enter every 60 seconds, which is very much needed, here is the code.... yet again i dont take credit for making this whole thing, though i did edit some of it already and much more to come. expandcollapse popup$SCrack = ("C:\Documents and Settings\David\Desktop\Bot110\SCrack.exe") $SRO = ("C:\Program Files\Silkroad\Silkroad.exe") $SROExe = ("sro_client.exe") $SROClient = ("SRO_Client") $Account = ("acct") $Password = ("password") $SROLauncher = ("Silkroad Online Launcher") $Connected = 0 $Disconnected = 0 ;================================================= While $Connected = 0 StartPrograms() Connect() If $Connected = 1 Then StartBot() EndIf Wend While $Connected = 1 While $Disconnected = 0 sleep (2500) ControlSend($SROClient, "", "", "{ENTER}") Sleep (60000) If ProcessExists ($SROExe) Then $Disconnected = 0 Else $Disconnected = 1 $Connected = 0 WinKill ($SROExe) EndIf Wend While $Connected = 0 StartPrograms() Connect() If $Connected = 1 Then StartBot() EndIf Wend wend ;================================================== Func StartPrograms() Run($SCrack) Sleep(4000) Run($SRO) EndFunc Func Connect() WinActive ($SROLauncher) Sleep (5000) ControlClick ($SROLauncher, "", 1000) Sleep (7500) WinActivate ($SROClient) Sleep (1000) MouseClick ("Left", 674, 550, 1, 0) Sleep (2000) MouseClick ("Left", 674, 550, 1, 0) Sleep (2000) Send ($Account) Sleep (1000) Send ("{TAB}") Send ($Password) Sleep (1000) WinActivate ($SROClient) Send ("{ENTER}") Sleep(7500) MouseClick ("Left", 397, 500, 3, 5); Press first character Sleep (5000) MouseClick ("Left", 992, 939, 2, 0); press start If WinExists ($SROClient) = 1 Then $Connected = 1 Else $Connected = 0 EndIf EndFunc Func StartBot() Sleep(10000) MouseWheel("down", 8);Just to expand visual distance ingame sleep (100) Send("{INSERT}") sleep(100) MouseClick ("Left", 800, 337, 1, 10);close pet inventory sleep(200) MouseClick ("Left", 11, 960, 4, 3); Expands Chat window sleep(2000) If PixelGetColor(39, 93) <> 16202041 Then do Send("e");open AutoMatch sleep(1000) MouseClick ("Left", 513, 717, 1, 10); Press AutoMatch sleep(1000) MouseClick ("Left", 596, 659, 1, 10); Press Confirm sleep(1000) Send("e") Until PixelGetColor(39, 93) = 16202041 endif EndFunc any help would be greatly appreciated, thanks for your time Link to comment Share on other sites More sharing options...
Paulie Posted April 21, 2006 Share Posted April 21, 2006 (edited) try throwing a While 1 Sleep(60000) send("{ENTER}") Wend In, i dunno where you need it, but that pushes enter every 60 secs EDIT: accedently pushed tab and then Enter while typing, my bad Edited April 21, 2006 by Paulie Link to comment Share on other sites More sharing options...
helldragon Posted April 21, 2006 Author Share Posted April 21, 2006 what do you mean? 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